commit 7cc3bff3582ab6d5140aeaa2fd7e551f76086404 Author: Marius Mutu Date: Mon Aug 3 01:51:36 2026 +0300 Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored) Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md: - .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu) - 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2) - Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti - Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back) - CLAUDE.md, docs/README.md, roa_sync.bat Co-Authored-By: Claude Opus 5 Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..bbf8fed --- /dev/null +++ b/.gitattributes @@ -0,0 +1,4 @@ +# SVN ramane autoritatea pentru line endings (rulaj paralel svn+git). +# Dezactiveaza orice normalizare CRLF/LF facuta de git, ca sa nu mai apara +# "modificari" fantoma dupa fiecare svn update/checkout care doar atinge mtime-ul. +* -text diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..47c6c0c --- /dev/null +++ b/.gitignore @@ -0,0 +1,112 @@ +# ============================================================================= +# Flux text FoxBin2Prg: git urmareste DOAR versiunile text .??2 (in arbore), +# nu binarele VFP. Binarele convertibile si indecsii regenerabili se ignora. +# SVN ramane sursa de adevar pentru binare (via global-ignores pe .??2). +# ============================================================================= + +# --- Binare VFP convertibile in text .??2 (ambele forme de caz) --- +*.vcx +*.VCX +*.vct +*.VCT +*.scx +*.SCX +*.sct +*.SCT +*.frx +*.FRX +*.frt +*.FRT +*.mnx +*.MNX +*.mnt +*.MNT +*.lbx +*.LBX +*.lbt +*.LBT +*.pjx +*.PJX +*.pjt +*.PJT +*.dbc +*.DBC +*.dct +*.DCT + +# --- Exceptie: memo corupt (Error 41), FoxBin2Prg nu-l poate converti; ramane binar --- +!Clase/registry.vcx +!Clase/registry.vct + +# --- Indecsi regenerabili (nu se transporta in .db2/.dc2) --- +*.cdx +*.CDX +*.dcx +*.DCX + +# --- Tabele .dbf convertite in .db2 (lista explicita; restul .dbf raman binare) --- +datemenu/infisiere.dbf +datemenu/yact.dbf +datemenu/Vechi/menu1.dbf +datemenu/Vechi/menu1.FPT +datemenu/Vechi/nom_meniu.dbf +datemenu/Vechi/refaceri.dbf +datemenu/Vechi/tabela_fisa_cont.dbf +datemenu/Vechi/tabela_fisa_cont.FPT +Grafice/DKCONTRL.DBF +Programe/genhtml.dbf +Programe/genhtml.fpt + +# --- Fisiere generate/compilate Visual FoxPro --- +*.fxp +*.FXP +*.mpr +*.MPR +*.mpx +*.MPX +*.vcr +*.VCR +*.src + +# --- Backup-uri si fisiere temporare create de editorul VFP --- +*.bak +*.BAK +*.TBK +*.tmp +*.TMP +*.err +*.ERR +*.Stats +*.stackdump + +# --- Executabile compilate --- +*.exe +*.EXE + +# --- Stare locala / specifica masinii, nu proiectului --- +FOXUSER.DBF +FOXUSER.FPT +roacontracte_ref.CDX +roacontracte_ref.DBF +roacontracte_ref.FPT +log.txt +LOG.txt +*.lnk +Thumbs.db +Desktop.ini +bash.exe.stackdump + +# --- Setari locale Claude Code (specifice masinii, nu proiectului) --- +.claude/ + +# --- Notite locale neversionate / patch-uri de review --- +docs/local/ +docs/progres.md +docs/diff_*.patch +.gstack/ + +# --- Subversion (working copy paralela) --- +.svn/ + +# --- COMUN este gestionat separat, prin propriul sau git (romfast/comun.git) --- +COMUN/ diff --git a/CLAUDE.md b/CLAUDE.md new file mode 100644 index 0000000..fbd2cc2 --- /dev/null +++ b/CLAUDE.md @@ -0,0 +1,144 @@ +# CLAUDE.md + +This file provides guidance to Claude Code (claude.ai/code) when working with code in this repository. + +## What this is + +ROACONTRACTE is a Visual FoxPro 9 desktop application (Romanian-language) for **contracte** — +client/supplier contracts with rate (scadentar), facturare din contract, incasari, garantii si +alerte. Thick client: VFP source (`.prg`, `.scx`, `.vcx`, `.mnx`, `.frx`) compiled to +`roacontracte.exe`, on an Oracle backend reached through the shared `goExecutor`/`goConn` +pass-through objects (`gcS` = schema, primita in parametrul de lansare). + +It is one product in the ROA suite built by ROA Romfast SRL; this directory +(`D:\ROA\ROACONTRACTE`) is one working copy inside the `D:\ROA` tree that holds the siblings +(ROACONT, ROAGEST, ROAIMOB, ROAFACTURARE, ...) plus the suite-wide shared library +`D:\ROA\COMUNROA`. + +Cod, comentarii, meniuri si changelog sunt in romana — pastreaza limba la editari. + +## Version control + +Primarily an **SVN** working copy (`^/ROACONTRACTE/Trunk`, repository root +`http://svnroa:3001/svn/ROA`) — `svn status`, `svn diff`, `svn commit` raman fluxul legacy. +`COMUN\` e external SVN (`^/COMUN/Trunk`). A **git** mirror runs in parallel +(`gitea.romfast.ro:romfast/roacontracte.git`), synced from SVN; SVN stays the source of truth. + +Git tracks the **FoxBin2Prg text versions** of the VFP binaries (`.vc2/.sc2/.fr2/.mn2/.pj2/.db2`), +generated in-tree next to each binary — not the binaries themselves. Refresh them with +`git_sync.ps1` at the start of every session and before any `git commit`: + +``` +powershell -ExecutionPolicy Bypass -File D:\ROA\UTIL\foxbin2prg\git_sync.ps1 -ProjectRoot D:\ROA\ROACONTRACTE +``` + +Sau, mai simplu, `roa_sync.bat` din radacina proiectului: face svn update -> git_sync -> commit +`sync SVN rN` pe `main` (proiect + COMUN) -> push. + +Then search the `.??2` files in-tree with Grep, citing `file:line`. Write-back text->binary via +`txt2vcx.ps1` is supported **only for `.vc2`/`.sc2`**; `.frx/.mnx/.pjx/.dbf` are editable only in +the VFP IDE. See `D:\ROA\UTIL\foxbin2prg\CLAUDE.md` and `COMUN\docs\flux-editare-vfp-text.md`. + +`COMUN/` is excluded from this repo's git — shared by every ROA product and versioned by its +**own git repo**, `gitea.romfast.ro:romfast/comun.git`. Run git commands for `COMUN/` from inside +that directory, and treat any change there as cross-project (fara `push --force`). + +## Building / running + +No CLI build. Compiled from the VFP 9 IDE: open `roaContracte.pjx`, then Project > Build. +Entry point is `Programe/roacontracte.prg` (`PARAMETERS tparam` — sir cu `;` trimis de launcher-ul +ROA Start: host, user, parola, idutil, idprogram, ..., an, luna, schema, idfirma; altfel intra pe +valorile de dezvoltare din cod). + +`roacontracte.exe` refuza sa porneasca daca numele fisierului nu incepe cu `ROACONTRACTE`. +Startup-ul e procedural (nu `RoaApp`): `SET PATH` peste folderele proprii + `COMUN\*` + `..\COMUNROA\`, +zeci de `SET CLASSLIB/PROCEDURE ... ADDITIVE` (ordinea conteaza — inregistrarile ulterioare umbresc), +apoi `goApp = CREATEOBJECT("wzApplication")` (AppWizard, `COMUN\clase\appwiz.vcx`) cu +`goApp.cStartupMenu = meniuri\roacontracte.mpr` si `goApp.cStartupForm = COMUN\ferestre\frm_login.scx`. +Fisiere `.prg`/`.vcx` noi comune trebuie inregistrate acolo ca sa fie vizibile in aplicatie. +`config.fpw` da mediul de rulare; `versiune_db.txt` (`YYYY_MM_DD_NN`) e marcajul ultimei migrari DB. +Editeaza intotdeauna sursa, nu compilatul (`.FXP`/`.SCT`/`.VCT`/`.MPR`). + +## Directory layout + +`Programe/` logica de business proprie (`oproceduri_roacontracte.prg`, `oproceduri_roaclienti.prg`, +`oparteneri_contracte.prg`, `oproceduri_registretva.prg`, `oproceduri_preluari.prg`, `pmenu.prg`, +`refverif.prg`, `verifica.prg`) · `Clase/` `.vcx` proprii (`ferestre_contracte.vcx`, +`onom_clienti.vcx`, `roaclienti.vcx`, `ofundal*.vcx`, `outlook2003bar.vcx`) · `Ferestre/` formulare +(`frm_dg_*.scx` = paginile din datele generale ale contractului, `fundal.scx`, `startfirma.scx`) · +`Meniuri/` (`roacontracte.mnx` = meniul de start, `rapIncasari.mnx`) · `Rapoarte/` `.frx` +(`rcontracte`, `rcontracte_centralizator`, `rRate`, `rrate_facturi`, `rRate_facturi_extins`, +`rincasari`, `rap_facturat_incasat`, `rctrrestdefact`, `ratedefacturat`, `ralerte`, +`fisa_contractului`) · `Grafice/`, `datemenu/`, `Locale/`, `Teste/` · `COMUN/` biblioteca partajata. + +Ca la ROAGEST, o buna parte din logica efectiva vine din `COMUN\programe\` si `COMUN\clase\` +rezolvate prin `SET PATH` (login, nomenclatoare, parteneri, eFactura ANAF, listari, oracle). + +## Domain quick reference + +Obiecte Oracle uzuale (vezi `Programe/oproceduri_roacontracte.prg`): `vcontracte`, +`vcontracte_toate`, `vtipuri_contracte`, `vctr_scadentar` (ratele contractului), +`vctr_rate_facturi` (legatura rata-factura), `vctr_articole`, `vctr_selectii`, +`ctr_facturi_garantii`, `vireg_parteneri`/`ireg_parteneri`, `vnom_valute`, `vnom_sectii`, +`vatas_referinte` (atasamente), `vcrm_politici_preturi`, `vcrm_note_vanzari`. + +TVA e sensibil la perioada documentului (19/9/5% inainte de 01.08.2025, 21/11% dupa) — foloseste +cota din perioada documentului, nu "cota curenta". + +## Changelog convention + +`changelog_roacontracte.txt`, blocuri de comentariu HTML, cea mai noua intrare **prima**: + +``` + +``` + +Tag-uri: `:nou:`, `:modificare:`, `:eroare:`, `:adaugare:`. Se bumpeaza `MAJOR.MINOR.PATCH` +(seria curenta `2.3.x`). Intrarile sunt scurte, orientate spre utilizator: o singura intrare +consolidata per livrare, fara pasi intermediari sau detalii interne. + +## Reguli de lucru si testare + +**Inainte de orice modificare de cod sau testare, citeste `COMUN\docs\reguli_lucru.md`.** +Nu e optional si nu e doar context: contine regulile de livrare (diff ca fisier + aprobare +inainte de write-back), comentariile (max o linie), modificarile minime, harnessul de testare +headless si — la punctul 7 — lista de conventii obligatorii per zona atinsa (encoding cp1252 la +editarea `.vc2`/`.sc2`, UX formulare/griduri, `GO` pe `Recno()`, `goExecutor` + `ALTER TABLE`, +testare UI, export Oracle). Fisierul e index: urmeaza linkurile relevante pentru sarcina curenta. +Depanare detaliata: `COMUN\docs\depanare_testare_vfp.md`. + +Foloseste **PowerShell**, nu Bash (bash.exe crapa pe aceste masini si lasa stackdump-uri). + +## Mod de lucru: delegare catre subagenti + review inainte de commit + +- **Orchestrare pe misiuni lungi**: niciodata un singur subagent care acumuleaza context pe multe + sarcini inlantuite — sesiunea principala orchestreaza subagenti proaspeti per sarcina (max + ~200-250k tokens per subagent, apoi handoff + agent nou), cu handoff compact pe disc: + `COMUN\docs\orchestrare-subagenti.md`. +- **Delegare**: modificarile de volum/rutina (aplicarea unei propuneri aprobate din `docs/`, + editari pe versiunile text `.??2` + write-back, actualizari de documentatie, rulari de teste) se + delega catre **subagenti Sonnet care lucreaza in background** (Agent tool cu `model: sonnet`), + iar sesiunea principala doar orchestreaza si verifica rezultatele. +- **Fara commit fara review**: nu da commit (git sau svn) din proprie initiativa pe modificari de + cod — diff-ul se livreaza intai ca fisier in `docs/`, iar commit-ul vine dupa aprobare. +- **Curatenie inainte de commit**: `powershell -File COMUN\utile\curatenie.ps1` (`-DryRun` doar + listeaza) sterge patch-urile de review, handoff-urile, backup-urile `*.pre_runda*.bak` si + artefactele de test. + +## Stil de raspuns + +Raspunsuri scurte si concrete: stare (facut / de decis / urmeaza), cu fisier si linie. Fara +naratiune de proces, fara reluari. Detaliile lungi (dovezi, iesiri de test) se scriu in fisier si +se trimite link-ul. + +## Project insights (docs/) + +`docs/` tine notite scurte si concrete descoperite in timpul lucrului (fluxuri ascunse, capcane, +proceduri/tabele cheie) — vezi `docs/README.md`. Ofera-te proactiv sa actualizezi `docs/` cand +descoperi ceva neevident, ca sesiunile viitoare sa nu reinvestigheze. diff --git a/Clase/Outlook2003BarArrow.png b/Clase/Outlook2003BarArrow.png new file mode 100644 index 0000000..4975444 Binary files /dev/null and b/Clase/Outlook2003BarArrow.png differ diff --git a/Clase/Outlook2003BarSplitter.png b/Clase/Outlook2003BarSplitter.png new file mode 100644 index 0000000..029925a Binary files /dev/null and b/Clase/Outlook2003BarSplitter.png differ diff --git a/Clase/ferestre_contracte.vc2 b/Clase/ferestre_contracte.vc2 new file mode 100644 index 0000000..f26c0b7 --- /dev/null +++ b/Clase/ferestre_contracte.vc2 @@ -0,0 +1,17957 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ferestre_contracte.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +*< LIBCOMMENT: Application Wizard framework class library. /> +* +DEFINE CLASS ct_contracte AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cDurata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cDurata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cNume_val.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cNume_val.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cNr_ctr.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cNr_ctr.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cData_ctr.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cData_ctr.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cValvaluta.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cValvaluta.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cTipc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cTipc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cValctva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cValctva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cSemnat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cSemnat.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cIncetat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cIncetat.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cInactiv.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cInactiv.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column16.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column16.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column17.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column17.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column18.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column18.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column20.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column20.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cAre_link.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cAre_link.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cAre_link.Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cAre_link.Command2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cSucursala.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.cSucursala.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column22.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column22.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column23.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column23.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column24.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column24.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_contracte.Column24.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_lbbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou_gri1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="BUT_MODIFICA1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="but_factura" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> + + * + *m: arata_linkuri + *m: dblclick_bind + *m: do_adauga_act_aditional + *p: cfiltru + *p: nireg + * + + * + BackColor = 255,255,255 + cfiltru = + cgridsortlist = grid_contracte + Height = 362 + Name = "ct_contracte" + nireg = 0 + Width = 800 + Gridsort1.Left = 180 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 7 + _ct_controller_keypress1.Name = "_ct_controller_keypress1" + * + + ADD OBJECT '_lbbase1' AS _lbbase WITH ; + BackColor = 255,255,255, ; + Caption = "Lista contractelor", ; + ForeColor = 255,255,255, ; + Left = 8, ; + Name = "_lbbase1", ; + TabIndex = 21, ; + Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\_lb_base.vcx" BaseClass="label" /> + + ADD OBJECT '_shape1' AS _shape WITH ; + Anchor = 11, ; + BackColor = 0,64,128, ; + BorderColor = 0,64,128, ; + Height = 24, ; + Left = 0, ; + Name = "_shape1", ; + Top = 0, ; + Width = 804, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 711, ; + Name = "But_excel1", ; + TabIndex = 18, ; + ToolTipText = "Fisier Excel", ; + Top = -2, ; + Visible = .T., ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'but_factura' AS commandbutton WITH ; + Anchor = 9, ; + BackColor = 255,255,255, ; + Caption = "", ; + Height = 27, ; + Left = 770, ; + Name = "but_factura", ; + Picture = ..\comun\grafice\factura.bmp, ; + SpecialEffect = 1, ; + ToolTipText = "Factura", ; + Top = -2, ; + Width = 29 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 683, ; + Name = "But_listare1", ; + TabIndex = 17, ; + ToolTipText = "Listare", ; + Top = -2, ; + Visible = .T., ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'BUT_MODIFICA1' AS but_modifica WITH ; + Anchor = 9, ; + Height = 27, ; + Left = 626, ; + Name = "BUT_MODIFICA1", ; + Picture = ..\comun\grafice\modific_sus.bmp, ; + TabIndex = 15, ; + ToolTipText = "Modificare", ; + Top = -2, ; + Visible = .T., ; + Width = 34 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 9, ; + Left = 596, ; + Name = "But_nou1", ; + Picture = ..\comun\grafice\nou_sus.bmp, ; + TabIndex = 14, ; + ToolTipText = "Adaugare contract", ; + Top = -2, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou_gri1' AS but_nou_gri WITH ; + Anchor = 9, ; + caction = do_adauga_act_aditional, ; + Left = 740, ; + Name = "But_nou_gri1", ; + Picture = ..\comun\grafice\nou_sus_dis.bmp, ; + TabIndex = 19, ; + ToolTipText = "Adaugare act aditional", ; + Top = -2 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ; + Anchor = 9, ; + Left = 534, ; + Name = "But_reset_criterii1", ; + Top = -2 + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; + Anchor = 9, ; + Comment = "*:OnResize=RT", ; + Left = 565, ; + Name = "But_start_criterii1", ; + Top = -2 + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 9, ; + Left = 655, ; + Name = "But_sterge1", ; + TabIndex = 16, ; + ToolTipText = "Stergere", ; + Top = -2, ; + Visible = .T., ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Anchor = 12, ; + Height = 27, ; + Left = 632, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 23, ; + Top = 331, ; + Width = 153, ; + ZOrderSet = 10, ; + Text_simplu1.ControlSource = "this.parent.parent.nIreg", ; + Text_simplu1.Height = 21, ; + Text_simplu1.Left = 76, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 72, ; + LB_SIMPLU1.Caption = "Înregistrãri", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'grid_contracte' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 24, ; + DeleteMark = .F., ; + FontSize = 10, ; + GridLineColor = 192,192,192, ; + HeaderHeight = 34, ; + Height = 304, ; + HighlightStyle = 2, ; + Left = 8, ; + Name = "grid_contracte", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordMark = .T., ; + RecordSource = "cContracte", ; + RowHeight = 19, ; + TabIndex = 20, ; + Top = 24, ; + Width = 784, ; + ZOrderSet = 3, ; + Column1.ColumnOrder = 3, ; + Column1.ControlSource = "denumire", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cNume", ; + Column1.ReadOnly = .T., ; + Column1.Width = 193, ; + Column2.ColumnOrder = 14, ; + Column2.ControlSource = "durata", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cDurata", ; + Column2.ReadOnly = .T., ; + Column2.Width = 57, ; + Column3.ColumnOrder = 11, ; + Column3.ControlSource = "nume_val", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cNume_val", ; + Column3.ReadOnly = .T., ; + Column3.Width = 63, ; + Column4.ColumnOrder = 2, ; + Column4.ControlSource = "iif(tip_istoric='A',numar_aa,numar)", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cNr_ctr", ; + Column4.ReadOnly = .T., ; + Column4.Width = 98, ; + Column5.ColumnOrder = 4, ; + Column5.ControlSource = "data", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Format = "d", ; + Column5.Name = "cData_ctr", ; + Column5.ReadOnly = .T., ; + Column5.Width = 89, ; + Column6.ColumnOrder = 9, ; + Column6.ControlSource = "valftva", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Format = "rk", ; + Column6.InputMask = (get_mask(14,MAX(gnPc,gnPVal))), ; + Column6.Name = "cValvaluta", ; + Column6.ReadOnly = .T., ; + Column6.Width = 107, ; + Column7.ColumnOrder = 15, ; + Column7.ControlSource = "denumire_tip", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Name = "cTipc", ; + Column7.ReadOnly = .T., ; + Column7.Width = 170, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "valctva", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Format = "rk", ; + Column8.InputMask = (get_mask(14,MAX(gnPc,gnPVal))), ; + Column8.Name = "cValctva", ; + Column8.ReadOnly = .T., ; + Column8.Width = 95, ; + Column9.Alignment = 2, ; + Column9.ColumnOrder = 17, ; + Column9.ControlSource = "semnat", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "cSemnat", ; + Column9.ReadOnly = .T., ; + Column9.Sparse = .F., ; + Column9.Width = 64, ; + Column10.Alignment = 2, ; + Column10.ColumnOrder = 18, ; + Column10.ControlSource = "abs(incetat-1)", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Name = "cIncetat", ; + Column10.ReadOnly = .T., ; + Column10.Sparse = .F., ; + Column10.Width = 72, ; + Column11.Alignment = 2, ; + Column11.ColumnOrder = 20, ; + Column11.ControlSource = "abs(inactiv-1)", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.Name = "cInactiv", ; + Column11.ReadOnly = .T., ; + Column11.Sparse = .F., ; + Column11.Width = 45, ; + Column12.ColumnOrder = 8, ; + Column12.ControlSource = "descriere", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.Name = "Column12", ; + Column12.ReadOnly = .T., ; + Column13.ColumnOrder = 16, ; + Column13.ControlSource = "selectie", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.Name = "Column13", ; + Column13.ReadOnly = .T., ; + Column14.ColumnOrder = 6, ; + Column14.ControlSource = "numar_intern", ; + Column14.FontName = "Arial", ; + Column14.FontSize = 10, ; + Column14.Name = "Column14", ; + Column14.ReadOnly = .T., ; + Column14.Width = 86, ; + Column15.ColumnOrder = 7, ; + Column15.ControlSource = "data_intern", ; + Column15.FontName = "Arial", ; + Column15.FontSize = 10, ; + Column15.Name = "Column15", ; + Column15.ReadOnly = .T., ; + Column15.Width = 96, ; + Column16.ColumnOrder = 12, ; + Column16.ControlSource = "data_inceput", ; + Column16.FontName = "Arial", ; + Column16.FontSize = 10, ; + Column16.Name = "Column16", ; + Column16.ReadOnly = .T., ; + Column16.Width = 70, ; + Column17.ColumnOrder = 13, ; + Column17.ControlSource = "data_sfarsit", ; + Column17.FontName = "Arial", ; + Column17.FontSize = 10, ; + Column17.Name = "Column17", ; + Column17.ReadOnly = .T., ; + Column17.Width = 69, ; + Column18.ColumnOrder = 19, ; + Column18.ControlSource = "data_incetat", ; + Column18.FontName = "Arial", ; + Column18.FontSize = 10, ; + Column18.Name = "Column18", ; + Column18.ReadOnly = .T., ; + Column18.Width = 79, ; + Column19.ColumnOrder = 5, ; + Column19.ControlSource = "numar_ult_aa", ; + Column19.FontName = "Arial", ; + Column19.FontSize = 10, ; + Column19.Name = "Column20", ; + Column19.ReadOnly = .T., ; + Column19.Width = 69, ; + Column20.ColumnOrder = 1, ; + Column20.Comment = "are_link", ; + Column20.CurrentControl = "Command1", ; + Column20.DynamicCurrentControl = "iif(are_link=1,'command1','command2')", ; + Column20.FontName = "Arial", ; + Column20.FontSize = 10, ; + Column20.Name = "cAre_link", ; + Column20.ReadOnly = .T., ; + Column20.Sparse = .F., ; + Column20.Width = 51, ; + Column21.ColumnOrder = 22, ; + Column21.ControlSource = "sucursala", ; + Column21.FontName = "Arial", ; + Column21.FontSize = 10, ; + Column21.Name = "cSucursala", ; + Column21.ReadOnly = .T., ; + Column21.Width = 141, ; + Column22.ColumnOrder = 23, ; + Column22.ControlSource = "responsabil", ; + Column22.FontName = "Arial", ; + Column22.FontSize = 10, ; + Column22.Name = "Column22", ; + Column22.ReadOnly = .T., ; + Column22.Width = 112, ; + Column23.ColumnOrder = 24, ; + Column23.ControlSource = "sectie", ; + Column23.FontName = "Arial", ; + Column23.FontSize = 10, ; + Column23.Name = "Column23", ; + Column23.ReadOnly = .T., ; + Column23.Width = 83, ; + Column24.ColumnOrder = 21, ; + Column24.ControlSource = "suspendat", ; + Column24.CurrentControl = "Check1", ; + Column24.FontName = "Arial", ; + Column24.FontSize = 10, ; + Column24.Name = "Column24", ; + Column24.ReadOnly = .T., ; + Column24.Sparse = .F. + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_contracte.cAre_link.Command1' AS commandbutton WITH ; + Caption = "", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 27, ; + Left = 18, ; + Name = "Command1", ; + Picture = ..\comun\grafice\attach_mic.bmp, ; + SpecialEffect = 1, ; + Top = 72, ; + Width = 84 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'grid_contracte.cAre_link.Command2' AS commandbutton WITH ; + Caption = "", ; + Height = 27, ; + Left = 30, ; + Name = "Command2", ; + SpecialEffect = 1, ; + Top = 60, ; + Width = 84 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'grid_contracte.cAre_link.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Atasa- mente", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + Picture = ..\comun\grafice\attach_mic.bmp, ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cAre_link.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.cData_ctr.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data contract", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cData_ctr.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.cDurata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Durata (Luni)", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cDurata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.cInactiv.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 33, ; + Name = "Check1", ; + Top = 60, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grid_contracte.cInactiv.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Activ", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cIncetat.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 37, ; + Name = "Check1", ; + Top = 24, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grid_contracte.cIncetat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "In desfasurare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cNr_ctr.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. contract", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cNr_ctr.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cNume.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.cNume_val.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cNume_val.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Mod selectie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. inregistrare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inregistrare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.Column16.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inceput", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.Column16.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.Column17.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data sfarsit", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.Column17.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.Column18.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data incetare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.Column18.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.Column20.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ultimul act ad.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.Column20.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.Column22.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Responsabil", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.Column22.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.Column23.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sectie", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.Column23.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.Column24.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + ControlSource = "suspendat", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 10, ; + Left = 10, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 47, ; + Width = 10 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grid_contracte.Column24.Header1' AS header WITH ; + Caption = "Suspendat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.Column24.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.cSemnat.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 46, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 24, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grid_contracte.cSemnat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Semnat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cSucursala.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cSucursala.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.cTipc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip contract", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cTipc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.cValctva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare contract (cu TVA)", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cValctva.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_contracte.cValvaluta.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare contract (fara TVA)", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_contracte.cValvaluta.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + Lparameters pcFiltru + Local lcFiltru + lcFiltru = pcFiltru + If Empty(lcFiltru) + lcFiltru = [1=2] + Endif + save_grid_tag(This.grid_contracte) + poCtr.ca_baza1.cfiltru = lcFiltru + poCtr.ca_baza1.afisare() + + Select cContracte + If Reccount()>0 + This.nireg = Reccount() + Else + This.nireg = 0 + Endif + + restore_grid_tag(This.grid_contracte) + If Reccount('cContracte')>0 + Select cContracte + Locate For id_ctr = goContract.id_ctr + If !Found() + Go Top + Endif + + This.grid_contracte.SetFocus() + Endif + + + + ENDPROC + + PROCEDURE arata_linkuri + DO arata_linkuri IN oproceduri_atasamente.prg + this.grid_contracte.Refresh + + ENDPROC + + PROCEDURE dblclick_bind + loGrid = this.grid_contracte + + For j = 1 To loGrid.ColumnCount + *loHeader = loGrid.Columns(j).Header1 + *Bindevent(loHeader, "DblClick", This, "grid_sort") + + IF TYPE('THIS.grid_contracte.COLUMNS[J].Text1')<>'U' + BINDEVENT(THIS.grid_contracte.COLUMNS[J].Text1,"DblClick",THIS,"inainte_de_do_modifica") + ENDIF + + Endfor + + ENDPROC + + PROCEDURE do_adauga + Local lcAlias, lnId_ctr, lcNumar, llNou + lcAlias = This.grid_contracte.RecordSource + Store '' To lcNumar + Store 0 To lnId_ctr + llNou = .T. + + Release poGeneratorNumere + Do declarare_generator_numere In oproceduri_roacontracte.prg + poGeneratorNumere.creeaza_cursor_serii(13) + pnGNnumar = poGeneratorNumere.aloca_numar(13) + lcNumar = Alltrim(Str(pnGNnumar)) + lnId_ctr = adauga_contract(lcAlias, lcNumar) + pnGNnumar=0 + + Select (lcAlias) + Scatter Name goContract Memo Blank + *SCATTER MEMO BLANK TO aContract + goContract.id_ctr = lnId_ctr + goContract.id_tip_ctr = Iif(gnParametru_prog=1,-1,-2) + goContract.denumire_tip = Iif(gnParametru_prog=1,'CLIENT','FURNIZOR') + goContract.numar = lcNumar + goContract.data = TTOD(Get_Ora()) + ***------------ + Do make_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele + DO make_crsNote In oproceduri_roacontracte.prg + DO make_crsValute In oproceduri_roacontracte.prg + DO make_crsSectii In oproceduri_roacontracte.prg + DO make_crsTip_ctr In oproceduri_roacontracte.prg + DO make_crsSelectii In oproceduri_roacontracte.prg + **-- + + Select cCtrScadentar + Select crsAtasamente + Select cCtrArt + + lcCtrN = Createobject('frm_contracte_nou',llNou) + lcCtrN.lb_titlu_alb_b121.Caption = "Contract nou" + lcCtrN.Show(1) + + If buton = 1 + Select (lcAlias) + APPEND BLANK + GATHER NAME goContract MEMO + ENDIF + + Do inchide_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele + DO inchide_crsNote In oproceduri_roacontracte.prg + DO inchide_crsValute In oproceduri_roacontracte.prg + DO inchide_crsSectii In oproceduri_roacontracte.prg + DO inchide_crsTip_ctr In oproceduri_roacontracte.prg + DO inchide_crsSelectii In oproceduri_roacontracte.prg + + This.grid_contracte.Refresh() + This.grid_contracte.SetFocus() + + + ENDPROC + + PROCEDURE do_adauga_act_aditional + Local lcAlias + lcAlias = This.grid_contracte.RecordSource + + Select cContracte + Scatter Name loRec Blank + + Do Adauga_Modifica_Inregistrare With 'actaditional',loRec,,"INSERT" In oproceduri_ams.prg + + this.do_cauta() + + + ENDPROC + + PROCEDURE do_cauta + Parameters tlReset + + Local lcFiltru + Store '' To lcFiltru + *!* If This.ck_nume.Value = 1 + *!* lcFiltru = lcFiltru + This.ck_nume.filtru + *!* Endif + + *!* If This.ck_nr_ctr.Value = 1 + *!* lcFiltru = lcFiltru + This.ck_nr_ctr.filtru + *!* Endif + + *!* If This.ck_data_ctr.Value = 1 + *!* lcFiltru = lcFiltru + This.ck_data_ctr.filtru + *!* Endif + + *!* If This.ck_nume_val.Value = 1 + *!* lcFiltru = lcFiltru + This.ck_nume_val.filtru + *!* Endif + + *!* If This.ck_denumire_tip.Value = 1 + *!* lcFiltru = lcFiltru + This.ck_denumire_tip.filtru + *!* Endif + + *!* If This.ck_tipc.Value = 1 + *!* lcFiltru = lcFiltru + This.ck_tipc.filtru + *!* ENDIF + + *!* If This.ck_responsabil.Value = 1 + *!* lcFiltru = lcFiltru + This.ck_responsabil.filtru + *!* ENDIF + + *!* If This.ck_sectie .Value = 1 + *!* lcFiltru = lcFiltru + This.ck_sectie .filtru + *!* Endif + + *!* Do Case + *!* Case This.optIncetat.Value = 1 + *!* lcFiltru = lcFiltru + [ and c.incetat = 0] + *!* Case This.optIncetat.Value = 2 + *!* lcFiltru = lcFiltru + [ and c.incetat = 1] + *!* Case This.optIncetat.Value = 3 + *!* lcFiltru = lcFiltru + [ and (c.incetat = 0 or c.incetat = 1)] + *!* Endcase + + *!* Do Case + *!* Case This.optInactiv.Value = 1 && active + *!* lcFiltru = lcFiltru + [ and c.inactiv = 0] + *!* Case This.optInactiv.Value = 2 && inactive + *!* lcFiltru = lcFiltru + [ and c.inactiv = 1] + *!* Case This.optInactiv.Value = 3 && toate + *!* lcFiltru = lcFiltru + [ and (c.inactiv = 0 or c.inactiv = 1)] + *!* Endcase + + *!* If This.ck_istoric.Value = 1 AND This.ck_aa.Value = 0 + *!* lcFiltru = lcFiltru + [ and (c.tip_istoric = 'C' or c.tip_istoric = 'I')] + *!* Endif + + *!* If This.ck_aa.Value = 1 AND This.ck_istoric.Value = 0 + *!* lcFiltru = lcFiltru + [ and (c.tip_istoric = 'C' or c.tip_istoric = 'A')] + *!* ENDIF + + *!* IF This.ck_istoric.Value = 0 AND This.ck_aa.Value = 0 + *!* lcFiltru = lcFiltru + [ and c.tip_istoric = 'C'] + *!* ENDIF + + *!* IF This.ck_istoric.Value = 1 AND This.ck_aa.Value = 1 + *!* lcFiltru = lcFiltru + [ and (c.tip_istoric = 'C' or c.tip_istoric = 'A' or c.tip_istoric = 'I')] + *!* ENDIF + + If !'ACT ADITIONAL'$Upper(Alltrim(Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro)) + lcFiltru = [ AND c.tip_istoric <> 'A' ] + lcFiltru + Endif + + If !'ISTORIC'$Upper(Alltrim(Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro)) + lcFiltru = [ AND c.tip_istoric <> 'I' ] + lcFiltru + Endif + + + lcCondSucursala = Iif(!Isnull(gnIdSucursala), ' AND c.id_sucursala = '+Alltrim(Str(gnIdSucursala)), '') + + If Len(Thisform.pagefr1.page2.ct_contracte1.filtru_pretty)>0 + lcFiltru = lcFiltru+" and (" + Alltrim(Thisform.pagefr1.page2.ct_contracte1.filtru_pretty) + ")" + Endif + If !Empty(lcFiltru) + lcFiltru = lcFiltru + lcCondSucursala + Endif + If !Empty(lcFiltru) + lcFiltru = Substr(lcFiltru,6) + Else + lcFiltru = [] + Endif + + This.cFiltru = lcFiltru + *!* MESSAGEBOX(lcFiltru) + *!* _cliptext=lcFiltru + This.actualizeaza_grid1(lcFiltru) + If Reccount('cContracte')=0 + If !tlReset + aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare") + Endif + Select cContracte + Scatter Name goContract Memo Blank + Endif + + Select cContracte + This.grid_contracte.SetFocus() + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH this.grid_contracte + + + ENDPROC + + PROCEDURE inainte_de_do_listare + *Thisform.AlwaysOnTop = .F. + Private plToate, pcDataOra && toate contractele + Store .F. To plToate + pcDataOra = get_ora(2) + lcmenu="\ 0 ] + Endif + + lcSel = [{call pack_crm.restdefacturat(?pcFiltru, ?pnGroupResponsabil)}] + + lcCursor = 'crsRestDeFacturat' + if goExecutor.oExecuta(lcSel, lcCursor) + goExport.export2frx(lcCursor,[rctrrestdefact]) + Use In (lcCursor) + endif + Case lnx = 8 + Select cContracte + If Reccount('cContracte')=0 + Return + Endif + Private pcFiltru,pcTitlu,pcGrup,pnGrupResponsabil,pnFacturatIncasat + Store 0 To pnGrupResponsabil, pnFacturatIncasat + pcGrup = '1=1' + pcFiltru = This.cfiltru + lorfm = Createobject('frm_facturat_incasat') + lorfm.Show(1) + If buton = 2 + Return + Endif + If pnGrupResponsabil = 1 + pcGrup = 'cFacturi.id_responsabil' + Else + pcGrup = '1=1' + Endif + lcSelect = [select c.id_ctr, p.denumire,i.id_part,c.contract,c.numar,c.data,]+; + IIF(pnGrupResponsabil = 1,[i.id_responsabil,],[]) +; + Iif(pnGrupResponsabil = 1,[r.denumire],[''])+[ as nresp,v.nume_val,v.moneda_nationala,c.valftva, ] +; + [ SUM(] + Iif(gnParametru_prog = 1,[i.debit],[i.credit]) + [) as tot_fact, ] +; + [ SUM(] + Iif(gnParametru_prog = 1,[i.credit],[i.debit]) + [) as tot_achit, ] +; + [ cast(0 as number(20,4)) as sold_contract, cast(0 as number(20,4)) as sold_part ] +; + [ from ireg_parteneri i join vcontracte_toate c on i.id_ctr=c.id_ctr ] +; + [ LEFT JOIN NOM_PARTENERI P ON I.ID_PART = P.ID_PART ] +; + IIF(pnGrupResponsabil = 1,[ LEFT JOIN NOM_PARTENERI R ON I.ID_RESPONSABIL = R.ID_PART ],[]) +; + [ LEFT JOIN VNOM_VALUTE V ON I.ID_VALUTA = V.ID_VALUTA ] +; + [ LEFT JOIN VNOM_VENCHEL VC ON I.ID_VENCHELT = VC.ID_VENCHELT ] +; + [ where ] + pcFiltru +; + [ group by c.id_ctr, p.denumire,i.id_part,c.contract,c.numar,c.data,] +; + IIF(pnGrupResponsabil = 1,[i.id_responsabil,],[]) +; + Iif(pnGrupResponsabil = 1,[r.denumire,],[]) +; + [ v.nume_val,v.moneda_nationala,c.valftva ] +; + [ order by v.nume_val, c.data, c.numar] + lcCursor = [cFacturi] + if goExecutor.oExecuta(lcSelect,lcCursor) + pcTitlu = [Situaþie facturat-încasat] + If pnFacturatIncasat = 1 + Select (lcCursor) + Set Filter To tot_fact - tot_achit <> 0 + Else + Select (lcCursor) + Endif + goExport.export2frx(lcCursor,[rap_facturat_incasat]) + Use In (lcCursor) + endif + Endcase + *Thisform.AlwaysOnTop = .T. + + + ENDPROC + + PROCEDURE inainte_de_do_modifica + Do make_cursoare_ctr In oproceduri_roacontracte.prg && creeaza cursoarele + DO make_crsNote In oproceduri_roacontracte.prg + DO make_crsValute In oproceduri_roacontracte.prg + DO make_crsSectii In oproceduri_roacontracte.prg + DO make_crsTip_ctr In oproceduri_roacontracte.prg + DO make_crsSelectii In oproceduri_roacontracte.prg + **-- + + Select cCtrScadentar + Select crsAtasamente + Select cCtrArt + + loctrn = Createobject('frm_contracte_nou') + loctrn.Show(1) + + Do inchide_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele + DO inchide_crsNote In oproceduri_roacontracte.prg + DO inchide_crsValute In oproceduri_roacontracte.prg + DO inchide_crsSectii In oproceduri_roacontracte.prg + DO inchide_crsTip_ctr In oproceduri_roacontracte.prg + DO inchide_crsSelectii In oproceduri_roacontracte.prg + + ENDPROC + + PROCEDURE inainte_de_do_sterge + PRIVATE pnId_ctr, pnTip + + LOCAL lnRaspuns, lcSql, lnSucces, lcId, lcId_util + STORE 0 TO lnRaspuns, lnSucces + STORE '' TO lcSql + + IF !EMPTY(goContract.id_ctr) + lnRaspuns = amessage('Doriti sa stergeti contractul?',4+32,_SCREEN.CAPTION) + IF lnRaspuns = 7 && 7 = No ; 6 = Yes + RETURN + ENDIF + + lcId = ALLTRIM(STR(goContract.id_ctr)) + lcId_util = ALLTRIM(STR(gnIdUtil)) + + lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;] + lnSucces = goExecutor.oExecute(lcSql) + + IF lnSucces < 0 + AMESSAGEBOX(goExecutor.oprelucrareEroare(),0+16,"Eroare") + RETURN + ENDIF + + THIS.actualizeaza_grid1() + ENDIF + + ENDPROC + + PROCEDURE Init + DoDefault() + This.dblclick_bind() + + Select cContracte + If Reccount()>0 + This.nireg = Reccount() + Else + This.nireg = 0 + Endif + + This.clb_tx_simplu1.text_simplu1.Refresh + + If gnParametru_prog=2 + This.but_factura.Visible = .F. + Endif + + + ENDPROC + + PROCEDURE but_factura.Click + lnOptiune = xmenu('Factura lei;Invoice;Factura fiscala in valuta') + DO CASE + CASE m.lnOptiune = 1 + DO facturare_contracte WITH 'FACTURA LEI' IN oproceduri_facturare.prg + CASE m.lnOptiune = 2 + DO facturare_contracte WITH 'INVOICE' IN oproceduri_facturare.prg + CASE m.lnOptiune = 3 + DO facturare_contracte WITH 'FACTURA VALUTA' IN oproceduri_facturare.prg + ENDCASE + + ENDPROC + + PROCEDURE But_reset_criterii1.Click + Local llcautare + + Thisform.pagefr1.page2.ct_contracte1.filtru_pretty = "" + Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro = "" + Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro_full = "" + If Type ("thisform.pagefr1.page2.ct_contracte1.but_start_criterii1") = 'O' + Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.ToolTipText=Thisform.pagefr1.page2.ct_contracte1.filtru_pretty + Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.SetFocus + Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.pornit = "nu" + Endif + + DODEFAULT() + lcfiltru = [Stare;nofiled;1;] + *!* llcautare = This.Parent.but_start_criterii1.lcautare + *!* This.Parent.but_start_criterii1.lcautare = .F. + Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.loadfiltru(lcfiltru) + *!* This.Parent.but_start_criterii1.lcautare = llcautare + + *Thisform.pagefr1.page2.ct_contracte1.do_cauta(.T.) + Thisform.pagefr1.page2.ct_contracte1.Refresh + + ENDPROC + + PROCEDURE But_start_criterii1.loadcriterii + Parameters tacriterii + External Array tacriterii + #Define crlf Chr(13)+Chr(10) + SELECT cContracte + + lcStringCriterii = "Data ctr.\data\D\none\" + crlf + ; + "Nr.ctr.\c.numar_aa\T\none\" + crlf + ; + "Responsabil\c.responsabil\T\c.ID_RESPONSABIL\nom_parteneri" + crlf + ; + "Partener\c.denumire\T\c.ID_PART\nom_parteneri" + crlf + ; + "Valoarea contractului\c.valftva\N\none" + crlf + ; + "Tip contract\c.denumire_tip\T\c.ID_TIP_CTR\tipuri_contracte" + crlf + ; + "Articole\|E|" + ; + "instr(',' || c.ids_articol || ',', ','||<>||',') > 0"+; + "\I\none\nom_articol" + crlf + ; + "Valuta\c.nume_val\T\c.ID_VALUTA\nom_valuta" + crlf + ; + "Stare\nofiled\A\In desfasurare si active,Incetate,Active,Inactive,Suspendate,Nesuspendate,Toate#c.incetat=0 and c.inactiv=0,c.incetat=1,c.inactiv=0,c.inactiv=1,c.suspendat=1,c.suspendat=0,1=1\" + crlf + ; + "Istoric\nofiled\E\1=1" + crlf + ; + "Act aditional\nofiled\E\1=1" + crlf + ; + "Sectie\c.sectie\T\c.ID_SECTIE\nom_sectie" + DoDefault() + *!* "Grupe gestiuni\|E|" + ; + *!* [a.id_gestiune in ( ] + ; + *!* [ select ID_GESTIUNE ] + ; + *!* [ from vgest_coresp_grupe_gestiuni c ] + ; + *!* [ join (select id_grupe ] + ; + *!* [ from gest_nom_grupe ] + ; + *!* [ where sters = 0 ] + ; + *!* [ start with id_grupe = <> ] + ; + *!* [ connect by prior id_grupe = parent_id) g on c.id_grupe = g.id_grupe )\I\none\nom_grupa_gestiune] + crlf + ; + ENDPROC + + *!* "In desfasurare\nofiled\A\Contracte in desfasurare,Contracte incetate,Toate#c.incetat = 0,c.incetat=1,1=1\" + crlf + ; + *!* "Active\nofiled\A\Contracte active,Contracte inactive,Toate#c.inactiv = 0,c.inactiv = 1,1=1\" + crlf + ; + *!* "Suspendate\nofiled\A\Contracte suspendate,Contracte nesuspendate,Toate#c.suspendat = 1,c.suspendat = 0,1=1\" + crlf + ENDPROC + + PROCEDURE grid_contracte.AfterRowColChange + LPARAMETERS nColIndex + + LOCAL lcTabel + lcTabel = this.RecordSource + + SELECT (lcTabel) + SCATTER NAME goContract MEMO + ENDPROC + + PROCEDURE grid_contracte.cAre_link.Command1.Click + this.Parent.Parent.Parent.arata_linkuri() + + ENDPROC + + PROCEDURE grid_contracte.cAre_link.Command2.Click + this.Parent.Parent.Parent.arata_linkuri() + + ENDPROC + + PROCEDURE grid_contracte.cNume.Text1.RightClick + Private plToate, pcDataOra + Store .F. To plToate + pcDataOra = get_ora(2) + + lcmenu = "Fisa contractului;Lista facturilor pentru contractul selectat" + lnx = xmenu(lcmenu) + + Do Case + Case lnx=1 + + save_grid(This.Parent.Parent.Parent.grid_contracte) + + Do make_cursoare_ctr In oproceduri_roacontracte.prg && imi creeaza cursoarele + Do make_cCtrActeAditionale In oproceduri_roacontracte.prg + + Select cContracte + Set Filter To id_ctr = goContract.id_ctr + + Select cCtrArt + Index On id_ctr To Addbs(gcTempPath)+'cCtrArt.idx' + + Select cCtrScadentar + Index On id_ctr To Addbs(gcTempPath)+'cCtrScadentar.idx' + + Select cCtrFactGarant + Index On id_ctr To Addbs(gcTempPath)+'cCtrFactGarant.idx' + + Select cCtrActeAditionale + Index On id_tata To Addbs(gcTempPath)+'cCtrActeAditionale.idx' + + Select cCtrFacturatIncasat + Index On id_ctr To Addbs(gcTempPath) + 'cCtrFacturatIncasat.idx' + + Select cContracte + Set Relation To + + Select cContracte + Set Relation To id_ctr Into cCtrArt Additive + + Select cContracte + Set Relation To id_ctr Into cCtrFactGarant Additive + + Select cContracte + Set Relation To id_ctr Into cCtrScadentar Additive + + Select cContracte + Set Relation To id_ctr Into cCtrActeAditionale Additive + + Select cContracte + Set Relation To id_ctr Into cCtrFacturatIncasat Additive + + Set Skip To cCtrArt, cCtrFactGarant, cCtrScadentar, cCtrActeAditionale, cCtrFacturatIncasat + + lcSetData = Set('date') + Set Date German + + Select cContracte + Report Form fisa_contractului.frx To Printer Prompt Preview + + Set Date To &lcSetData + + + Select cContracte + Set Filter To + + Set Relation Off Into 'cCtrArt' + Set Relation Off Into 'cCtrFactGarant' + Set Relation Off Into 'cCtrScadentar' + Set Relation Off Into 'cCtrActeAditionale' + Set Relation Off Into 'cCtrFacturatIncasat' + + If Used('cCtrScadentar') + Use In cCtrScadentar + Endif + If Used('cCtrFactGarant') + Use In cCtrFactGarant + Endif + If Used('cCtrArt') + Use In cCtrArt + Endif + If Used('cCtrLink') + Use In cCtrLink + Endif + If Used('cCtrActeAditionale') + Use In cCtrActeAditionale + Endif + If Used('cCtrFacturatIncasat') + Use In cCtrFacturatIncasat + Endif + restore_grid(This.Parent.Parent.Parent.grid_contracte) + + Case lnx = 2 + llContract = .T. + Do Case + Case gnParametru_prog = 1 + Do lans_ireg_parteneri With .F., gcCont411, .T.,,,,,llContract + Case gnParametru_prog = 2 + Do lans_ireg_parteneri With .F.,'401', .F.,,,,,llContract + Endcase + Endcase + + ENDPROC + + PROCEDURE grid_contracte.Init + this.SetAll("DynamicBackColor","iif(inactiv=1,RGB(200,200,200),RGB(255,255,255))","Column") + this.SetAll("DynamicForeColor","iif(tip_istoric='I',RGB(0,128,0),IIF(tip_istoric='A',RGB(0,0,128),RGB(0,0,0)))","Column") + + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_date_generale AS container + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="outlook2003bar1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="outlook2003bar1.Panes.Pane1.Olecontrol1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="outlook2003bar1.Panes.Pane1.Olecontrol2" UniqueID="" Timestamp="" /> + + * + BackColor = 255,255,255 + Height = 401 + Name = "ct_date_generale" + Width = 800 + * + + ADD OBJECT 'outlook2003bar1' AS outlook2003bar WITH ; + Anchor = 7, ; + Left = 5, ; + Name = "outlook2003bar1", ; + Top = 1, ; + Panes.ErasePage = .T., ; + Panes.Height = 328, ; + Panes.Name = "Panes", ; + Panes.PageCount = 7, ; + Panes.Pane1.Caption = "Date generale", ; + Panes.Pane1.Name = "Pane1", ; + Panes.Pane1.picture16 = Email Envelope 16.png, ; + Panes.Pane1.picture24 = Email Envelope 24.png, ; + Panes.Pane2.Caption = "Obiectul si valoarea contractului", ; + Panes.Pane2.Name = "Pane2", ; + Panes.Pane2.picture16 = Contacts 16.png, ; + Panes.Pane2.picture24 = Contacts 24.png, ; + Panes.Pane3.Caption = "Termene de facturare si achitare", ; + Panes.Pane3.Name = "Pane3", ; + Panes.Pane3.picture16 = Favourites 16.png, ; + Panes.Pane3.picture24 = Favourites 24.png, ; + Panes.Pane4.Caption = "Termene de livrare/receptie si garantii", ; + Panes.Pane4.Enabled = .F., ; + Panes.Pane4.Name = "Pane4", ; + Panes.Pane4.picture16 = Calendar Multiweek 16.png, ; + Panes.Pane4.picture24 = Calendar Multiweek 24.png, ; + Panes.Pane5.Caption = "Facturare", ; + Panes.Pane5.Name = "Pane5", ; + Panes.Pane5.picture16 = Games 16.png, ; + Panes.Pane5.picture24 = Games 24.png, ; + Panes.Pane6.Caption = "Clauze speciale si observatii", ; + Panes.Pane6.Name = "Pane6", ; + Panes.Pane6.picture16 = Help 2 16.png, ; + Panes.Pane6.picture24 = Help 2 24.png, ; + Panes.Pane7.Caption = "Documente atasate", ; + Panes.Pane7.Name = "Pane7", ; + Panes.Pane7.picture16 = Music Player 1 16.png, ; + Panes.Pane7.picture24 = Music Player 1 24.png, ; + Panes.Top = 33, ; + overflowpanel.MenuButton.imgPicture.Height = 16, ; + overflowpanel.MenuButton.imgPicture.Name = "imgPicture", ; + overflowpanel.MenuButton.imgPicture.Width = 16, ; + overflowpanel.MenuButton.Name = "MenuButton", ; + overflowpanel.Name = "overflowpanel", ; + SplitBar.imgSplitter.Height = 3, ; + SplitBar.imgSplitter.Name = "imgSplitter", ; + SplitBar.imgSplitter.Width = 35, ; + SplitBar.Name = "SplitBar", ; + Panel.Name = "Panel", ; + Splitter.Name = "Splitter", ; + Title.lblCaption.Name = "lblCaption", ; + Title.linBorder.Name = "linBorder", ; + Title.Name = "Title" + *< END OBJECT: ClassLib="outlook2003bar.vcx" BaseClass="container" /> + + ADD OBJECT 'outlook2003bar1.Panes.Pane1.Olecontrol1' AS olecontrol WITH ; + Anchor = 15, ; + Height = 328, ; + Left = 0, ; + Name = "Olecontrol1", ; + Top = 0, ; + Width = 198 + *< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAECFvJ3sxccBAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAigAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAA8BAAAAAAAABwAAAAIAAAD+////BAAAAAUAAAAGAAAACQAAAAgAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+2kEHHiYXREbFqAMDwKDYoIUM0EggAAAB3FAAA5iEAALE8wWoBAAYAIgAAAD0AMgCNAQAACAAAAHFIHwAB782rXAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAACQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RS04NUZFLTExZDEtOEJFMy0wMDAwRjg3NTREQTEBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaNYaADwAAAABAACADgAAAEhpZGVTZWxlY3Rpb24ABQAAAEwAAAAADAAAAEluZGVudGF0aW9uABEAAABODQAAAAcAAAAAAAAAAAAuQAoAAABMYWJlbEVkaXQACQAAAEkKAAAAAQAAAAoAAABMaW5lU3R5bGUACQAAAEkKAAAAAQAAAA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAA4AAABQYXRoU2VwYXJhdG9yAAoAAABIAAAAAAEAAABcDAAAAE9MRURyYWdNb2RlAAkAAABJCgAAAAAAAAAMAAAAT0xFRHJvcE1vZGUACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsAAAFAEBKHwAGAAAAAAAAAAUAAIBs5xIAAQAAAFwAH97svQEABQCx5xIAA1LjC5GPzhGd4wCqAEu4UQEAAACQAURCAQAFQXJpYWxCAV0gWwB4AxUASMIaADUAbAB7AD0AYwBkAFIAJgBhAEYAIQBaAFoAdQBbAEwAfQAtADkAKwBlAAkAAABJCgAAAAAAAAAAJQB5AEkAeAA5AGoAXQB5AFUANgBgAHsAPQB0ADYAQQBzADIAWgB4AEoAMwBFAFUAKgA0AEMAXQB9AFcAdgBQAHQALABeAD8AVQBbACgAQwAoAHMAcABaAHUAYgBtAC4ANAAlAGIALgBDAHoAMgA9AHgAQwBYAFEAQABBACUAagBQAFAARQBlAC0AKwBtACgAXgBdAE8APQBxAEEAawBBAHMAYQB7AHEALgAhAE8ARABzAEMATgBYAFEAXgB9AEAAMgBbADQAPQBhAEUAMQBTAHYAawBCACgAVAAsAHMAaABtAFgAQwA/ACgAMwBYAFEAYABZAHcAQAA2AF8AQwB0AGUAJQBrAHoAWABeAG4AOABAAGoALQB6AGEAWABdAEgAdwBOAFMAVABxAE0AeABFAD0AQABZAD0AKQApAFcAJQBvACYAcwBpADIAZQA0AHsAJABhAD0ASQBNACUANgA/AGUAdgBhAGwANgB4AHUAcgB3AGMAQgBiAHUAdwAuACUAcgBwAFYAOQArAFQAbgBTAC0AbgAsAGUATABDAFYARgBvAGwAJgAhAGwAMABWAD8A" /> + + ADD OBJECT 'outlook2003bar1.Panes.Pane1.Olecontrol2' AS olecontrol WITH ; + Height = 150, ; + Name = "Olecontrol2", ; + Visible = .F., ; + Width = 200 + *< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+////BQAAAAYAAAAHAAAACAAAAAkAAAAKAAAACwAAABYAAAANAAAADgAAAA8AAAAQAAAAEQAAABIAAAATAAAAFAAAABUAAAAEAAAAFwAAABgAAAD+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAECFvJ3sxccBAwAAAAABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAADikAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAFcAAAAAAAAAAQAAAP7///8DAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9cAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAJAAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADkzNjgyNjVFLTg1RkUtMTFkMS04QkUzLTAwMDBGODc1NERBMSQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RQEAAIAMAAAASW1hZ2VIZWlnaHQACQAAAEkKAAAAEAAAAAsAAABJbWFnZVdpZHRoAAkAAABJCgAAABAAAAANAAAAVXNlTWFza0NvbG9yAAUAAABMAQAAAABJCgAAABgAAAALAAAASW1hZ2V3aWR0aAAJAAAASQoAAAAYAAAADQAAI38kLJGF0RGxagDA8Cg2KCFDNBIIAAAA7QMAAO0DAACAfuHmAAAGAAgAAAAQABAAwMDAAP//AAAB782rAAAFAOBLHwAGAAAA/////wUAAIAAAAAADAAAAAETAAAARABhAHQAZQBsAGUAIABjAG8AbgB0AHIAYQBjAHQAdQBsAHUAaQABEAAAAEMAYQBpAHgAYQAgAGQAZQAgAGUAbgB0AHIAYQBkAGEAAQ4AAABDAGEAaQB4AGEAIABkAGUAIABzAGEA7QBkAGEAAQ4AAABJAHQAZQBuAHMAIABlAG4AdgBpAGEAZABvAHMAAQ8AAABJAHQAZQBuAHMAIABlAHgAY///5I50/+3h/+bU/tjE/cy2/sSr67+yT6rnA7P/D5H+XpTShn98qKio4ODg+/v7////55N4/MWq+7ma+8au/+LR/+jW8trTMdL1AMf/B7P+H474PHmsg4ODtra25eXl+/v79+Tf/fDj+97P8KOH85Ry/MCl/cCniMbMBNz+AMH/DK79I4/5SXighoaGubm56enp/////O3d//bs++nh8aB+/9/G/9vC+c65bNjkAtv/AL//JanwXozCcXN5jIyMxsbG/////////OjX/u/i+7uY/9S0/97D/+XL793ORt3xJdTzi6DITl7aID3ZX2B/qamp//////////38+eXa97OT/93G/+XK/+HE/+DB2eDYfrPMe4fvRGv/EUT/Hj3UtLS0/////////////v797rKg4o555peC8bik+9vI/9vGt3N2gJTwVXr/OGD+Xnbe3Nzc/////////////////////v39+enl7Lqs5J6K435e2aqhubvfg5btoazr3d/p+Pj4BwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////f398/Pz6Ojo5+fn6+vr8fHx+Pj4/f39/////////////////////////v7+/Pz89PT01tbWsrKyqKiosrKyvb29y8vL2tra5eXl7+/v+fn5/v7+////////9/f34uLi2Lmt4LGhx56QsYBxn3ZqkHt1i4aFlZWVpaWlvr6+4ODg+fn5/////f39zdnhmqu2k46R/9/O//fs/u/i+9/O88Sx3aOQv4FvpnFjkoaCwsLC8fHx////9PT0VazcDrz+U6HC+tfH//Dl/dfI/tW9/9zA/+XL//Df+93Mp3tvuLi47u7u/v7+stHlFbLzHcv/dcTS/+bX//Pr/eTc/dG9/s+0/+LJ//jt/eTTr4R4u7u78PDw+/v7b7viEcT+Mcj2tc7I//Pp/uba/dC9/c22/cy1/cmy/smq/drFpH1wubm57+/v5+7zNrnrGMv/S8To693N//38/eDV/dfH/c+7/c+5/Myz/9a689HAf3yCsLCw6+vrvtrrL8n6INH/e8LV//Lm//z7/+ff/+jh/ePa/dfG/ciu/9zF39DCVpe1qqqq6Ojols3oO9j/Ndb+p8PF+e3p9erm89jO+NbK/drO/dnM/dfG/+PSzdvNZKrCqqqq5+fngcfoTeT/Rt3+qry75byo17OmyZyQxLa0/f///////////OznwdrOba7Gra2t6Ojods3tZvP/U9/7l+P2+f32//Hh9MKvzquh////////////8eHbuNfWdq3FsbGx6urqgs3ubOr8aer8atz3huX6z+7x+trJ2L60////////////9ePax9rae6rEwsLC8PDw9fr90Of2sNvwktLscsnrZdLypNfhybes8ufc8+PW4drS3MjA3uDdkrvV4uLi+Pj4/////////////////v7++Pz+4fD5gsTlhPT1gvT2cebxaafIq8bY1uTt+vr6/v7+////////////////////////////1en2h9Dud9jxcs3sz93m9fX1/v7+////////CAAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////////////////////////////+vr67u7u6Ojo8fHx/Pz8/////////////////////v7++fn59/f3+vr6/v7+////7e3twsLCrKyswcHB4uLi8vLy+Pj4/f39////////9vb23d3dy8vL1dXV5+fn8vLy3J2K3KSIm3Bjh4eHqampwsLC2NjY8/Pz/////v7+y9rkfqnBg4ySk5OTrKyswL296IRj//jR+d+5qXFekW1jmXtzr6+v5+fn////9/f3Wa7dGr74JrHmQZC4YoCRjXl1+Jhw/ujB//DI/ezF/O3G2a+Qo6Oj5OTk////y97pFrX1KcX5Mdj/Kdn/SbHSw4p7/8Sb/du0/d63/uS9//PMyZp/p6en5ubm/v7+gcDjEsL9NMj3Ref/dcHM7LCL/7+W/Mqk/Mym/dGr/dav/+W+uoZwo6Oj5eXl+Pn5TrvpHMr/Pcz3Wuv6gM3S5sWj/8We/LuV+76Y+8Se/Mmj/9avx410o6Oj5OTk3OnxNcT1KNL/SdH2s8zBn8O8hL6+srSh+saf/LKM+7eS/riQ/bqU15J1ra2t6enpttfrPtX8NdX/VtX04+bU/8ur9cSns6yd1sCi/7aO/6B43KOGqsi9mYB6t7e37u7un9TrT+D+Rdv+cNr04tC89cq4/9bB08i6s7+z/6yB1YVuitDemPf3f5uovLy87+/vjs/tafL/Wub+ft35ydvT7NvQ//Ho3NjPmtTgn6uzjsjch9v0o9/tfaS1xMTE8vLyodXwadr0Z+b6Zdv2ct/6h+P2neLztubvvvb+vfn/vvX/seHwv+TsiKe61dXV+Pj4/f7+8Pj8zub1rNvwk9XubsjsYNHxXNj2bNz3f973lOH4td3uw+DusMfW7u7u/f39////////////////////////9fv9i9HuePj/dfr/XuL5iLDJvNLh8PP1/f39////////////////////////////////4fD5n9jwhdLtjMrn7e3t+vr6////////////CQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////v7+/Pz89/f37e3t5ubm5eXl5eXl6+vr9fX1+/v7/v7+////////////////////+Pj44+PjzMzMtbW1pqampKSkpaWlsLCwyMjI39/f9fX1////////////////////5N3ss6XFlnHApWvojmLBoGjgkWPHfW+Ni4CXsrKy6Ojo/////v7+9fX16Ojo6Ojot4Txs3H/tXb9vIP/vIH/vIL/t3r+s3H/mmLcmpqa4ODg////9/f31tbWr6+vqampqnXowIr/v4j/v4n/wIr/wIn/v4f/v4n/pW3nmpqa4ODg////ytznPq3gQKLLWYOcmmrYxZT/xJP/xpT/xpX/xZT/xJH/xJD/p3Dmmpqa4ODg/Pz8crvhGr74LtP/Ls/9i3rwzKD/y5//zaL/0qX/zqL/ypz/zZ7/rHjmmpqa4ODg6+/zLrXsHsD4Rt3+RuH/k4r40ar/0an/zqj6tpXexJ7w0ab/t5LkmmzOmpqa4ODguNboIcf8J8f7YtrwX+HympD51rP/2LL/oI63LC4tbGN3wKTgUVJSUTlto6Oj5OTkfMTmM9j/MdD+r9XQ0ryjq4jh3Lz/2rv+sqfBrrGtop2puaPSub20oYPDvb297+/vacXqROL/QNH6wOLd/8qt353A0an/6NL/49L0xbXXybHn2rn+xabqqYjP4eHh+/v7YdTzWu7/V9j7ydnS/9nI/+DNrYri1rP/7+D/79z/4sb/0ar/roHh4eDj+fn5////cczuZ+H3Z+H5iuXzoNvoueTwuebsqL/4s6P5uJn3oYblqI/F4N/h/Pz8////////+fz+4O/4tt3xlNXuasvuWtLzY9z4f9/3k9/2wuPxqMjb39/f9/f3/////////////////////////////f7+4/H6btjyev3/Wtr1l7bJytrl+vr6/v7+////////////////////////////////////wuP1kNXvmM3o8fHx+/v7////////////////////CgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////////////////+vr67Ozs4uLi6enp+Pj4/////////v7+/v7+/////////////////f39+vr6+/v76+vrv7+/oKCgs7Oz4ODg+Pj48vLy4uLi4ODg8PDw/Pz8/////v7+8fHx2tra1dXVfHR1STs/QUBCgYGBwsLC6urqzMzMn5+foKCgyMjI8fHx////+fn5tcnXkKOtkpKSp3Bz2IyRbkxRVlZXs7Ozvbu8W0lNPzY5WltcoaGh4+Pj////2uXrLKzmHrnyN5TAdX+V9KSmrGZqUlFToKCgrJWX2I6Vr3N5QTk7m5ub3d3d/f39hcHgFrj2LdD+LNb/Ksr5U63JY3aHXG6Ce31+kJGUxIiE5JaaYUVKr6+v4uLi8vT2PLbqGMD7QtX7R+D/RuD/Pun/TLDJYpOpQrjfUnuPaHR/iXuAeWJktra25eXlyd7sIsL5IMb7Udr6V+v/W+7/XfP/YbTDbJ+rVvb/Xff/VOD0VoihcGJop6en4+PjlMvnLNH/J87/cdHlqca6gMzPbOXsd8TOq4GJjJiheKiybsLGU6rAZ1lelpaW3d3ddMPnPNz/NNH9jNzm/9q8+cCh2r6mjp+cz3eB0G92ql5khFNYWENIOzM2nJyc4ODgZsjsTub/QtT8od7j8c67/865/82ysMG6nauzo4+XkG15f1ZgY0JGNy4xvLy87+/vY9b0Y/L/V9f4quvy4cu4/ujd/+rgvdfVhOX7gNnvhtXsgrzRgqKuc3Fz2dnZ+/v7ac7wbev7ZuT5c973h+T4nOHyvuTpwOvxv/T9v/X9p+T4suLwotbnsbKy5+fn////7/f7yuP0qtrwjc/sbcvtXdDyWdT1a9v4ft33leH3ruX34fL1nsjg19na9PT0/////////////////////f7+8fj8yOP0Zdv1d/z/bfT+WsLlmrjNwdfm+Pj4/f39////////////////////////////////rtzyhtPud9fvos3k8PDw+/v7////////////CwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////v7+9vb26+vr6Ojo6+vr8vLy+/v7////////////////////////////////////+vr639/fuLi4qqqqsLCwwcHB3d3d9PT0/v7+////////////////+/v77+/v6Ojo5dfS4rqpw5mIwJmHpIN2hIKBoqKiysrK5+fn9/f3/f39/////v7+7Ozsw8PDrKysuaii//To/+bU/+zd/uXS0Z+Jh3Vujo6OsLCw1tbW9fX1////+vr6iLzbPKraTYuqhZyn0+S4993J+eLS//Pj/+/c67idrXtolH11tbW16+vr////3ufuKLDsJtL/KND/jtDLgNZ258m344Fd7bmX/+vW/+zY/+TGzZJ6t7e37u7u/v7+mMfhFb/7OM/7Str8rta6v+ojfyQskYXREbFqAMDwKDYoIUM0EggAAADtAwAA7QMAAIB+4eYAAAYAugEAABAAEADAwMAA//8AAAHvzasAAAUA4EsfAAYAAAD/////BQAAgAAAAAAMAAAAARMAAABEAGEAdABlAGwAZQAgAGMAbwBuAHQAcgBhAGMAdAB1AGwAdQBpAAEQAAAAQwBhAGkAeABhACAAZABlACAAZQBuAHQAcgBhAGQAYQABDgAAAEMAYQBpAHgAYQAgAGQAZQAgAHMAYQDtAGQAYQABDgAAAEkAdABlAG4AcwAgAGUAbgB2AGkAYQBkAG8AcwABDwAAAEkAdABlAG4AcwAgAGUAeABjAGwAdQDtAGQAbwBzAAEJAAAAUgBhAHMAYwB1AG4AaABvAHMAASEAAABPAGIAaQBlAGMAdAB1AGwAIABzAGkAIAB2AGEAbABvAGEAcgBlAGEAIABjAG8AbgB0AHIAYQBjAHQAdQBsAHUAaQABIAAAAFQAZQByAG0AZQBuAGUAIABkAGUAIABmAGEAYwB0AHUAcgBhAHIAZQAgAHMAaQAgAGEAYwBoAGkAdABhAHIAZQABBQAAAEoAbwBnAG8AcwABBwAAAE0A+gBzAGkAYwBhAHMAAQUAAABGAG8AdABvAHMAAQYAAABWAO0AZABlAG8AcwAMAAAAAQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////+/v77u7u5ubm7Ozs9/f3/f39////////////////////////////////////////7e3twsLCp6ensrKyzMzM4+Pj8vLy+/v7////////////////////////////+/v715iH13NVrGtYi3JrjIyMpqamwMDA2NjY6+vr9/f3/f39////////////////8Ojm1WNE7ohj8Y9r4XpZuWhQlGldh399mJiYsrKyzMzM4+Pj8vLy+/v7/v7+////4bOo3GNA6YRf9aJ+9Jx385dy74pm0nJVpmVTi3JrjIyMpaWlw8PD4uLi+fn5/f392Ypz4G9L6IZi96+K9KaB9KJ99KB79J158pVw4X9dumlRlm1ij4aEu7u77e3t9e/t3XlZ5HxY6Ytm+LWN+rGI/LGJ+K2H9KeC9KWA9KN99J5575FssG5apqam5ubm683F5oJf6Ydh6ZFtsbmzqKmf0aiO66yI97WO9bGL9a2I9KmE9qyHx39kp6en5ubm5bSn7JRv7I9p6pdyr93egub5e8ncia6236+P+8Ka97yW9reS97aRxIxzq6ur6Ojo4aKP8aR+7pZw66WBt+Dfi9v0ddL1hd/1xKqU9q2F8rKM9bqU88CcwpR9ra2t6Ojo45yE9bKM8qB69biQjdbfjtHqs+f7oODzyLKc9raN8LON7qeC6bOQwZmDsLCw6enp6Z2B/MWe97SO9LKK3tG0xdjR3OfixeHk5dKy98ig8LWQ8bWP5rSRw52Hs7Oz6enp7bWl66WH7qWD75969qqC9a2E8bOM7cOg9s+o+dy1/Oa/+Nex59WzyqiSw8PD7u7u/////fn49d3X8dHH6bOh55+H6p1+7Jhz8aiD8KmD8K2I7bSO5NCx17Og4+Pj9/f3/////////////////////////fj27Lao+b+Y/caf+r+Z14Rnyayk6NTO+vr6/v7+/////////////////////////////PXz66mT66aI76aD37Gl7+/v/Pz8////////AgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////////////////v7++Pj46+vr5ubm7+/v+/v7/////////////////f399fX18vLy+Pj4/v7+/v7+8vLy1tbWs7OzpqamwMDA6enp/f39////////////8fHx0dHRwcHBz8/P4+Pj5eXltsC2WKZmVMx1T4ZXjY2NxcXF8fHx/v7+////+/v72rWrvH9ujn15jo6OpKSkjqKPN6pKR+lxVPSDUed+WnZdm5ub1tbW+Pj4////8Ovq1WZJ7odj5X1bwWZRaGxLEJcnMtdTO9xfRONsVPOCRr5jdn52uLi47u7u/v7+4LOn3GM/7Itn9p9795h1kIdEIooXDaggL9JOO9teReRtU/OCTZRZs7Oz7Ozs+/v72YVt4XFN6o1o+K+I9aaB/6GEqZZWB6gXIsk+MNNQO9xfQeFoQKBWxMTE9PT08+nm33lX5HxY6ZNu6bOS9a2F/7KOuKloELckGcEwJcpBK9pTW6ZGhYF3yMjI9vb26Ma96Ilk6YZh5Jl4kcTNmbi5wKmen6ZuI8g+DbgiFr0rGc4+cKtSoHlyxcXF9PT05K6e75x27ZNs6aaFrOnxeNz7dNPza7GiPshTLNJQJdVNFM09c65aqYF3xcXF8vLy46KN9KyF8p946LaVetHpldXwmuT9pMjMza+Bsbt8is1+jbNr0LKPr4t/ysrK9PT06J+G+8Kc9KuE9cCZttbMyeDgyuz0vNHP9sOd/bmW8qiF66eF4b6hrYl+0tLS9/f37bSj7KSE76WB76B796Z+77GM7LuZ8sij+tu0+du1+dmy6cyp3sOlvKGZ4eHh+/v7/////fr5+u3o78q/7b2t56GJ6JZ38aB78aeB8KmD8LGL37eY4bKW4NPQ9PT0/v7+/////////////////////////vv66qeP/MSe/MSe6pRxzLWv6NnV+vr6/v7+////////////////////////////////+Ofj8MOz7LWg5bir8/Pz/Pz8////////////AwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////f398fHx2dnZycnJy8vLyMjItra2t7e32NjY9fX1/v7+////////////+fn57Ozs4ODgtL60bY5tb4Jveoh8RYlLQpBNeYF6pKSk2NjY+Pj4/////////Pz85eXlu7u7gpmMGJkaKchEMcBMKqtALLhGVO2CR65gc3pzqqqq39/f+vr6////8fLyZbDXPaLYL4ViGsQqKM1EMtZTPN9iQuBoS+l3WvmLPo1KgICAsLCw4uLi/v7+rc/jFbn2JcD/IJ+RMNNJIcY7Isc9Lc9LNthZP95lSul0Ue19Q4NLh4eHv7+/+vr6W7jkFML8NcH8KKWTT+5zH8Q3E7onIcU6Ks5HM9VUPNxhSOhyTux6S4hSvr6+4OrwJr3zGcL7P8f8K6SqSdttOttVGsMsFr4rHcI1KMtDMdRQONtYOs1QUZhW2dnZr9ToJcv9IsX7WNj4S7DUJ5uiLLKaIrJcE7AmE70nF8AqHsAyNMVmR5GMqKio5ubmhMXlM9f/J8r9e9vo17qhuLawgam8S5i/JqtjLdFEIrBEUM+lffT1X6DDo6Oj4+PjaMHoROL/NM/9gdrn+d3G/8mr/8ilvJaLPKeYY9qzh+71lP//mfv7cbnNnqCg4ODgVc/zU+j/RNf+nNjf8r2j98++/97L1burftDtgN/+iOT5heL2ouzwh8zcoqWm4+PjXdn2aPT/Wtr5oez64NO/+dvN/+jd4sKyjdPkjN/1j9/0itjxsubshb3Sq62t6OjocdPxaeb5aOf7ceP6ddj1m9fku+Lnwd/mzvz+xvj+s+v4ruT0xeXsfarDv7+/7u7u7PT7yeX0tOHxhM3rcNXwYtT0XNb2beP8eNz3it32sOv6x+v24vT6jrnT39/f9/f3////////////////////8vj8z+b1c9Duefz/cfX/Zen8aazQscna1OHq+Pj4/v7+////////////////////////////xuP1e8/uct7zcdXuxNbi9PT0/f39////////BAAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA+/v77Ozs2dnZy8vLyMjIwsLCsLCwsrKy19fX9vb2/v7+////////////////////6enps7u0dY12aIFoan9rOn89K5U1d313o6Oj1tbW9fX1/v7+////////////////gbKGRctmPtViNM1SKL5BHbk0G8UyJI0uc3lzoKCgy8vL4+Pj7+/v+Pj4/f39////S89uW/yOTvF9PedqLtVOIsg8GL4tDrggHIUgenhyjIyMo6Ojubm5zc3N4ODg8fHxZuiNdveiYNd6a9F2QtBiLdFMFcAsF8k4HL88u7aI0J6Mq4x+koN9i4uLpaWl0dHRmO+2HaItcpZC/62Xl6lqHMdFQNJhZMFopcKN/+vb/+7c/+bT+dK73aGHrYt/v7+/gdmYPrpQpbN4/+zl06yDlK5u3MCX/tbE//fz//ry//Lo/uDP/tfA+syxu5OEyMjI0OTSbMR9y8ej//r1/+ze/+HUyLm/lqrB+O7m9OHZ/NbE/+HP/+zc8ci0r5+Y19fX////6e7n5trI//jx2tDPd6fJQKXgP6fiZqHJWZrGqbK9//bm//fs2rCdsaWg4+Pj/////OHZ8dnSlLjOXLfjVsX4Xsf4XMX2UsD3Tb/4Uarc1c3N///4y6GRurOx7e3t/////fbzhavFT7nnZcnxZMXtZcfwZMfxYcXxYcXyWsn5d7bY+OTbwqedzs7O9vb2////////6/L2abTYb8vre9r2c9Lxb83vbMzvasrvZ8jvV8Dtl6q70buz6+vr/f39////////////6fL3crfYedPtiOX4huP4hOL5geD4cM3sVabOpLjH7+/v/Pz8////////////////////6/P4drvZg9vtk+35i+X1b8Tib6HA1dvf+Pj4/v7+////////////////////////////6vL3erzYgNXna7PRnrjJ7Ozs/Pz8////////////////////////////////////////0ePujbnVxNfj9fX1/f39////////////////////BQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////+fn54+PjxcXFr6+vpKSkpaWlsrKyv7+/u7u7qqqqoaGho6OjtLS02NjY9vb2/Pz84+PjwZiNv4VwyYVrx4xyso98knJpl29lu11ExmhNxnNZuGtWhnh1qamp4ODg9PLx14t19KB7+riS+8Ga/+O7+ty15H9b3Fg16HhU+6WA/aR+/Jp2wWtShYSEwsLC6MO57YFd8KJ9+ryW8qaA/dCq8beR4mtH6nVR+a6I8JFt4WdE9I5q+ZVxlmtfrKys57Gf6YBb65Zx97aQ7ZZx+8qj7a2H5GlG9JFs/cag6Yhj6HFO631a+p14vG5Yo6Oj5a6c53tW6o5q9a+J54Ne+MCZ6qJ9739b+6mE/NKs/ceh9aB764Rg8o5qx3ZcpaWl5Kua5XVQ6Ilk9KuF4GxJ87SO6Zt37o5p/cWe/d+4/dCq+LiS86yG7pdzxXBWsbGx5KiX5nZS43lV8Z143WM/6JJs5Y5q5oRf/uG6/uvE/d62/dCq8amE76WAuntmyMjI4aKR53ZS53dT75Zy9rqV9s6o77mU6Jdy/vHJ//3V/u/I/d63+MOd9KuGvJ2U5ubm4aOS8IVh/bGM+rWQ+biS+8ag/+C5+sym9LmT/daw//nR//rT/dy21ZmF4+Pj+vr65JmC+K6J5oBc425J6G5M8YFd9Ypm8Ypm9pp2z3JVxYh03aaR6MK08fHx+/v7////6KqP5X9b1kon31876HBP8YVh9Ytn5WpH7HxXsW1asLCw6+vr////////////////6qaM+JZy4GE+3l065GdF7XlV8IJe6n1Z+Z14vXVgwsLC8vLy////////////////7LWh/a6J+ZVx8Y1p741o8Zp1+LOM/baR+6WAw5KE4+Pj+/v7////////////////+/Px7LGY+aeD+qB7/76Y/9Ks/smi+K6K2ZaD5ePj+fn5////////////////////////////9NbL8ce07K6U5qSM5rel6c/H9vb2/f39////////////////////////BgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////f395ubmuLi4nZ2do6OjtbW1yMjI2dnZ5eXl8PDw+Pj4/f39////////////////9PT04LSe7bSUzKCHspB9koV9jImGlZWVp6enu7u7zc3N3d3d6+vr+Pj4/v7+/v7+59HI9cKq/////vj1/ObZ+tbA5byiyJyCpoR1kIJ8jIqJmpqaubm54+Pj+/v7+vr6462Y/fPu//Pv/uff/////////u/q+7ed+q+S96eH3pl9wpF6oJuZ19fX+vr68enm7LGb//////fy/NLC/Mq4/NDB+7ih+7GX+7ii+7ig+7mj+8Cev7Sr5eXl/f395r+x9tDC//n1/dvN/vDq//r2//Dq/7ie/KaH+qWH+7qj+9XFyquX0dDP+Pj4////4qWR+uHX//rz/t7Q/M28/Mu59sOw3p6H+7ad/8Om/+jf676ks6yo5+fn/v7+////4JeA/vHo/uHR/dfG/ure//nx0b+2Qk5hdqbYgLnt8OHbyJd8u7u77+/v/////7X1y7rgkGvuiGTBn2Hf8MP/5866hXLNzc34+Pj3+PhSt+Ubyf9E0vlo5Pfl3cXz6NLUu6tOlc6EdXFVklOI04jlv66ZjovX19f8/PzR4+4wxvcnz/9X1vTCzr386d391cOqj4YngsIlSmEkZ6LUw7ShsLWPkpTU1NT6+vqo0eg61v401P9n2vLw2b/67eTvuaPym3rTmIGjcl16amz0zLePy9KAk57S0tL5+fmFyehQ5P9J3P6H4vLw07v/8+r449f70r3/yaz/xqr/vaDk08GP1eGDlqLU1NT6+vp4zO1n8v9c4fyi8fza3c763cv/6Nnl0L2+zsywwcfD09O519ma1uSJm6Xa2tr8/PyBz+907/tp6vxy3veB4Pig5vTK7e3D6+6y9f+19P+o6vyx4e6h0uOqs7jm5ub+/v7v9/vZ7PfH5vOt2vCg2u+Azexiye9w3fmD6/uI5vqQ4Pe+3e2bxd7c3t/19fX////////////////////////////1+v140O98//9z+v9X1PObs8PM2+X6+vr+/v7////////////////////////////////K5/aI1O902fGNx+Tt7e36+vr///////////8MAAAAbHQAADYDAABCTTYDAAAAAAAANgAAACgAAAAQAAAAEAAAAAEAGAAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAD////////////////////////////////8/Pzy8vLn5+fm5ubx8fH8/Pz////////////////+/v77+/v6+vr9/f3////+/v7s7OzGxsapqamnp6fCwsLn5+f7+/v////////////29vbg4ODT09Pd3d3t7e3x8fGVlJVaUFNjTVFfW1yKioq4uLjj4+P6+vr////9/f3R2uCPqLeNkJKbm5u2trapp6cuKC2VgHLLspx5UFdbVFeIiIi+vr7v7+/////v8fNHruAawfsuqdpOi6hxgIlYZ3FfQzn/zKT/7sTYwqmWZmlyYWS7u7vu7u7///+01OcTuPcsy/wv1/8w0/410PUtbYpFKyTKkHT/2K7CrJR1UFNwX2HZ2dn4+Pj9/f1nvOUUxf8/zfhL4v9J4P9M7v80gpNFLCdHNzSAZlhMODpTUVadnZ3d3d38/Pzu8/U1vO8cyf5G0Pdd6PpZ7P9i/f87g5OcZFDfl3ZXOTMyRkxMnbyIjI7Nzc339/fE3OwvzPslzf9X0fG9uqeVvrl93dtHfoiicV//w5bFeFxOeHt19f5xjp/IyMj19fWa0eo/2f401P9p1vD/17v/xqj2yKuHcWl7XVbwt5Kxc1lWjpOR8vJ0kaLJycn19fWDyOdR5f9I3v+H3O3vv6fxy7r/2MCfgXtsS01tUE1KMy9ZhYyl7O10kaLKysr19fV0zu5q9v9Y4v2L3vXewKr21cXh1c+NaGvswKHgq4xNNTNcg5Kq5Ox2k6TMzMz39/eJ0e9u5fhr6/xt3vh+4feQoqepaWvZqpr/8cbksZNlSEicw83B6O+GorTa2tr6+vr5/P7e8Pi02/Ch3/J2zexTmbRzip2MhIqXfXhubHF2orfY8fe+3u2/zNXu7u7+/v7////////////////////3/P7k8/pmxOZ26u118/ln6f+Irsa30OHz9PX8/Pz////////////////////////////////M5/eV2/J41/CN0Ons7Oz6+vr///////////8=" /> + + PROCEDURE outlook2003bar1.Panes.Pane1.Olecontrol1.Init + With This + .Imagelist = .Parent.oleControl2 + With .Nodes + Local laNos[12,3] + Store Null To laNos + laNos[1,1] = "Datele contractului" + laNos[2,1] = "Caixa de entrada" + laNos[3,1] = "Caixa de saída" + laNos[4,1] = "Itens enviados" + laNos[5,1] = "Itens excluídos" + laNos[6,1] = "Rascunhos" + laNos[7,1] = "Obiectul si valoarea contractului" + laNos[8,1] = "Termene de facturare si achitare" + laNos[9,1] = "Jogos" + laNos[10,1] = "Músicas" + laNos[11,1] = "Fotos" + laNos[12,1] = "Vídeos" + *!* Store laNos[1,1] To laNos[2,2], laNos[3,2], laNos[4,2], laNos[5,2], laNos[6,2] + *!* Store 4 To laNos[2,3], laNos[3,3], laNos[4,3], laNos[5,3], laNos[6,3] + *!* Local lnNo + *!* For lnNo=1 To Alen(laNos,1) + *!* .Add(laNos[lnNo,2],laNos[lnNo,3],laNos[lnNo,1],laNos[lnNo,1],laNos[lnNo,1]) + *!* Endfor + ENDWITH + + *!* Local loNo + *!* loNo = .Nodes(0) + *!* loNo.Expanded = .T. + *!* .SelectedItem = loNo + *!* loNo = Null + Endwith + ENDPROC + + PROCEDURE outlook2003bar1.Panes.Pane1.Olecontrol1.NodeClick + *** ActiveX Control Event *** + LPARAMETERS node + LOCAL TX + TX = THIS.SelectedItem.TEXT + MESSAGEBOX(tx) + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_dg AS container + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Height = 356 + Name = "ct_dg" + Width = 698 + * + +ENDDEFINE + +DEFINE CLASS ct_dg_cu_banda AS ct_dg OF "ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" /> + + * + Name = "ct_dg_cu_banda" + * + + ADD OBJECT '_label1' AS _label WITH ; + BackStyle = 0, ; + Left = 6, ; + Name = "_label1", ; + Top = 7 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> + + ADD OBJECT '_shape3' AS _shape WITH ; + Anchor = 11, ; + BorderStyle = 0, ; + Height = 24, ; + Left = 1, ; + Name = "_shape3", ; + Top = 1, ; + Width = 804, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\..\roaregistratura\comun\clase\_baza.vcx" BaseClass="shape" /> + +ENDDEFINE + +DEFINE CLASS ct_dg_date_generale AS ct_dg OF "ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDescriere" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtMotiv_incetat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData_intern" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_incetat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDurata" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData_incetat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtNumar_intern" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_inactiv" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_semnat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_valute" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData_inceput" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData_sfarsit" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_sectii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdResponsabil" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtResponsabil" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_tip_ctr" UniqueID="" Timestamp="" /> + + * + *p: newdata_sfarsit + *p: nid_valuta_new + *p: nid_valuta_old + *p: olddata_sfarsit + *p: _memberdata && XML Metadata for customizable properties + * + + * + Height = 221 + Name = "ct_dg_date_generale" + newdata_sfarsit = {} + nid_valuta_new = 0 + nid_valuta_old = 0 + olddata_sfarsit = {} + Width = 429 + _memberdata = + + + + * + + ADD OBJECT 'cbo_sectii' AS _combobox WITH ; + ControlSource = "goContract.sectie", ; + FontSize = 10, ; + Height = 21, ; + Left = 307, ; + Name = "cbo_sectii", ; + RowSource = "crsSectii.sectie,id_sectie", ; + RowSourceType = 2, ; + TabIndex = 12, ; + Top = 153, ; + Width = 113, ; + ZOrderSet = 26 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'cbo_tip_ctr' AS _combobox WITH ; + ControlSource = "goContract.denumire_tip", ; + FontSize = 10, ; + Height = 21, ; + Left = 88, ; + Name = "cbo_tip_ctr", ; + RowSource = "crsTip_ctr.denumire_tip,id_tip_ctr", ; + RowSourceType = 2, ; + TabIndex = 4, ; + Top = 53, ; + Width = 113, ; + ZOrderSet = 31 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'cbo_valute' AS _combobox WITH ; + ControlSource = "goContract.nume_val", ; + FontSize = 10, ; + Height = 21, ; + Left = 89, ; + Name = "cbo_valute", ; + RowSource = "crsValute.nume_val,id_valuta", ; + RowSourceType = 2, ; + TabIndex = 11, ; + Top = 153, ; + Width = 113, ; + ZOrderSet = 22 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'ck_inactiv' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Inactiv", ; + ControlSource = "goContract.inactiv", ; + FontSize = 10, ; + Height = 18, ; + Left = 97, ; + Name = "ck_inactiv", ; + TabIndex = 15, ; + Top = 201, ; + Width = 55, ; + ZOrderSet = 19 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'ck_incetat' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Încetat", ; + ControlSource = "goContract.incetat", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 8, ; + Name = "ck_incetat", ; + TabIndex = 9, ; + Top = 127, ; + Width = 58, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'ck_semnat' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Semnat", ; + ControlSource = "goContract.semnat", ; + FontSize = 10, ; + Height = 18, ; + Left = 8, ; + Name = "ck_semnat", ; + TabIndex = 14, ; + Top = 201, ; + Width = 64, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'cmdResponsabil' AS commandbutton WITH ; + Caption = "", ; + FontName = "Arial Narrow", ; + Height = 21, ; + Left = 204, ; + Name = "cmdResponsabil", ; + Picture = ..\grafice\find.bmp, ; + TabIndex = 16, ; + Top = 175, ; + Width = 28, ; + ZOrderSet = 27 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Data început", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 8, ; + Name = "Label1", ; + TabIndex = 28, ; + Top = 82, ; + Width = 75, ; + ZOrderSet = 21 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label10' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Durata (luni)", ; + FontSize = 10, ; + Height = 18, ; + Left = 8, ; + Name = "Label10", ; + TabIndex = 21, ; + Top = 104, ; + Width = 72, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label12' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Tip contract", ; + FontSize = 10, ; + Height = 18, ; + Left = 7, ; + Name = "Label12", ; + TabIndex = 25, ; + Top = 55, ; + Width = 70, ; + ZOrderSet = 17 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label14' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Responsabil", ; + FontSize = 10, ; + Height = 18, ; + Left = 8, ; + Name = "Label14", ; + TabIndex = 24, ; + Top = 176, ; + Width = 73, ; + ZOrderSet = 28 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label17' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Valuta", ; + FontSize = 10, ; + Height = 18, ; + Left = 8, ; + Name = "Label17", ; + TabIndex = 22, ; + Top = 154, ; + Width = 39, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Data încetãrii", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 221, ; + Name = "Label2", ; + TabIndex = 26, ; + Top = 104, ; + Width = 78, ; + ZOrderSet = 13 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label20' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Secþie", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 221, ; + Name = "Label20", ; + TabIndex = 23, ; + Top = 154, ; + Width = 39, ; + ZOrderSet = 32 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label21' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Motiv încetare", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 221, ; + Name = "Label21", ; + TabIndex = 19, ; + Top = 127, ; + Width = 82, ; + ZOrderSet = 18 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Descriere", ; + FontSize = 10, ; + Height = 18, ; + Left = 7, ; + Name = "Label4", ; + TabIndex = 20, ; + Top = 33, ; + Width = 57, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Data sfârºit", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 221, ; + Name = "Label5", ; + TabIndex = 27, ; + Top = 82, ; + Width = 68, ; + ZOrderSet = 24 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nr./data înreg.", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 7, ; + Name = "Label6", ; + TabIndex = 17, ; + Top = 10, ; + Width = 84, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "/", ; + FontSize = 10, ; + Height = 18, ; + Left = 208, ; + Name = "Label9", ; + TabIndex = 18, ; + Top = 10, ; + Width = 6, ; + ZOrderSet = 30 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + BackStyle = 0, ; + Height = 221, ; + Left = 0, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Top = 0, ; + Width = 429, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape3' AS shape WITH ; + BackStyle = 0, ; + Height = 0, ; + Left = 5, ; + Name = "Shape3", ; + SpecialEffect = 0, ; + Top = 150, ; + Width = 418, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape5' AS shape WITH ; + BackStyle = 0, ; + Height = 0, ; + Left = 5, ; + Name = "Shape5", ; + SpecialEffect = 0, ; + Top = 200, ; + Width = 418, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape7' AS shape WITH ; + BackStyle = 0, ; + Height = 0, ; + Left = 5, ; + Name = "Shape7", ; + SpecialEffect = 0, ; + Top = 77, ; + Width = 418, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'txtData_inceput' AS textbox WITH ; + ControlSource = "goContract.data_inceput", ; + FontSize = 10, ; + Format = "k", ; + Height = 21, ; + Left = 89, ; + Name = "txtData_inceput", ; + TabIndex = 5, ; + Top = 80, ; + Width = 113, ; + ZOrderSet = 23 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtData_incetat' AS textbox WITH ; + ControlSource = "goContract.data_incetat", ; + FontSize = 10, ; + Format = "k", ; + Height = 21, ; + Left = 307, ; + Name = "txtData_incetat", ; + TabIndex = 8, ; + Top = 102, ; + Width = 113, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtData_intern' AS textbox WITH ; + ControlSource = "goContract.data_intern", ; + FontSize = 10, ; + Height = 21, ; + Left = 217, ; + Name = "txtData_intern", ; + TabIndex = 2, ; + Top = 8, ; + Width = 113, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtData_sfarsit' AS textbox WITH ; + ControlSource = "goContract.data_sfarsit", ; + FontSize = 10, ; + Format = "k", ; + Height = 21, ; + Left = 307, ; + Name = "txtData_sfarsit", ; + TabIndex = 7, ; + Top = 80, ; + Width = 113, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtDescriere' AS textbox WITH ; + ControlSource = "goContract.descriere", ; + FontSize = 10, ; + Format = "!k", ; + Height = 21, ; + Left = 88, ; + Name = "txtDescriere", ; + TabIndex = 3, ; + Top = 31, ; + Width = 331, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtDurata' AS textbox WITH ; + ControlSource = "goContract.durata", ; + FontSize = 10, ; + Format = "k", ; + Height = 21, ; + Left = 89, ; + Name = "txtDurata", ; + TabIndex = 6, ; + Top = 102, ; + Width = 113, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtMotiv_incetat' AS textbox WITH ; + ControlSource = "goContract.motiv_incetat", ; + FontSize = 10, ; + Format = "!k", ; + Height = 21, ; + Left = 307, ; + Name = "txtMotiv_incetat", ; + TabIndex = 10, ; + Top = 125, ; + Width = 113, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtNumar_intern' AS textbox WITH ; + ControlSource = "goContract.numar_intern", ; + FontSize = 10, ; + Format = "k", ; + Height = 21, ; + Left = 88, ; + Name = "txtNumar_intern", ; + TabIndex = 1, ; + Top = 8, ; + Width = 113, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtResponsabil' AS textbox WITH ; + ControlSource = "goContract.responsabil", ; + DisabledBackColor = 255,255,255, ; + FontSize = 10, ; + Format = "!k", ; + Height = 21, ; + Left = 89, ; + Name = "txtResponsabil", ; + ReadOnly = .T., ; + TabIndex = 13, ; + Top = 175, ; + Width = 113, ; + ZOrderSet = 29 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Init + this.nId_valuta_old = goContract.id_valuta + ENDPROC + + PROCEDURE cbo_sectii.Valid + goContract.id_sectie = crsSectii.id_sectie + goContract.sectie = crsSectii.sectie + ENDPROC + + PROCEDURE cbo_tip_ctr.Valid + goContract.id_tip_ctr = crsTip_ctr.id_tip_ctr + goContract.denumire_tip = crsTip_ctr.denumire_tip + ENDPROC + + PROCEDURE cbo_valute.Valid + goContract.id_valuta = crsValute.id_valuta + goContract.nume_val = crsValute.nume_val + goContract.moneda_nationala = crsValute.moneda_nationala && modificare v 2.0.46 + This.Parent.nId_valuta_new = goContract.id_valuta + + If Nvl(This.Parent.nId_valuta_old,0) <> Nvl(This.Parent.nId_valuta_new,0) + If Reccount('cCtrArt')>0 + AMESSAGEBOX('Modificati valuta si in obiectul contractului!',0+48,'Atentie') + Endif + This.Parent.nId_valuta_old = goContract.id_valuta + Endif + + + ENDPROC + + PROCEDURE cmdResponsabil.Click + locauta = caut_responsabil() + + IF buton=2 + RETURN + ENDIF + + goContract.id_responsabil = locauta.id_responsabil + goContract.responsabil = locauta.nume + + this.Parent.txtResponsabil.Refresh + + + ENDPROC + + PROCEDURE txtData_incetat.Valid + IF !EMPTY(goContract.data_inceput) AND goContract.data_incetat <= goContract.data_inceput + aMESSAGEBOX('Introduceti data incetarii mai mare decat data de inceput a contractului !',0+48,"Atentie") + *goContract.data_incetat = goContract.data_inceput + 1 + ENDIF + + this.Parent.txtData_inceput.Refresh + ENDPROC + + PROCEDURE txtData_sfarsit.Valid + If !Empty(goContract.data_inceput) And goContract.data_sfarsit <= goContract.data_inceput + aMESSAGEBOX('Introduceti data de sfarsit mai mare decat data de inceput a contractului !',0+48,"Atentie") + * goContract.data_sfarsit = goContract.data_inceput + 1 + Endif + + If !Empty(Nvl(goContract.data_inceput,{})) And !Empty(Nvl(goContract.data_sfarsit,{})) + goContract.durata = Int((Year(goContract.data_sfarsit)*12 + Month(goContract.data_sfarsit)) - (Year(goContract.data_inceput)*12 + Month(goContract.data_inceput))) + ELSE + goContract.durata = 0 + ENDIF + + This.Parent.txtDurata.Refresh + + ENDPROC + + PROCEDURE txtDurata.Valid + goContract.data_sfarsit = GOMONTH(goContract.data_inceput, goContract.durata) + this.Parent.txtData_sfarsit.Refresh + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_dg_date_generale_frz AS ct_dg OF "ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtOfertanti" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_selectii" UniqueID="" Timestamp="" /> + + * + Height = 53 + Name = "ct_dg_date_generale_frz" + Width = 364 + * + + ADD OBJECT 'cbo_selectii' AS _combobox WITH ; + ControlSource = "goContract.selectie", ; + FontSize = 10, ; + Height = 21, ; + Left = 109, ; + Name = "cbo_selectii", ; + RowSource = "crsSelectii.selectie,id_selectie", ; + RowSourceType = 2, ; + TabIndex = 2, ; + Top = 28, ; + Width = 113, ; + ZOrderSet = 26 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Modul de selecþie", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 7, ; + Name = "Label3", ; + TabIndex = 4, ; + Top = 30, ; + Width = 104, ; + ZOrderSet = 37 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Ofertanþi", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 7, ; + Name = "Label7", ; + TabIndex = 3, ; + Top = 7, ; + Width = 51, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + BackStyle = 0, ; + Height = 54, ; + Left = 0, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Top = 0, ; + Width = 364, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'txtOfertanti' AS textbox WITH ; + ControlSource = "goContract.ofertanti", ; + FontSize = 10, ; + Height = 21, ; + Left = 109, ; + Name = "txtOfertanti", ; + TabIndex = 1, ; + Top = 5, ; + Width = 245, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE cbo_selectii.Valid + goContract.id_selectie = crsSelectii.id_selectie + goContract.selectie = crsSelectii.selectie + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_dg_fact AS ct_dg OF "ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_text_standard" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cboNote" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lbNota" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_opt_facturare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + + * + Height = 96 + Name = "ct_dg_fact" + Width = 364 + * + + ADD OBJECT '_shape1' AS _shape WITH ; + BackStyle = 0, ; + Height = 96, ; + Left = 0, ; + Name = "_shape1", ; + SpecialEffect = 0, ; + Top = 0, ; + Width = 364, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'cbo_opt_facturare' AS _combobox WITH ; + ControlSource = "gocontract.opt_facturare", ; + FontSize = 10, ; + Height = 24, ; + Left = 106, ; + Name = "cbo_opt_facturare", ; + RowSource = "Denumirea ratei + valoarea ratei urmatoare,Primul art.din lista de art. (obiectul ctr.) + valoarea ratei urm.,Articole la alegere din lista de art. cu preturile din lista de art.", ; + RowSourceType = 1, ; + TabIndex = 1, ; + Top = 26, ; + Width = 250, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" /> + + ADD OBJECT 'cboNote' AS combobox WITH ; + BoundColumn = 2, ; + BoundTo = .T., ; + ColumnCount = 3, ; + ColumnLines = .F., ; + ColumnWidths = "300,20", ; + ControlSource = "gocontract.id_nota", ; + FontSize = 10, ; + Height = 24, ; + Left = 106, ; + Name = "cboNote", ; + RowSource = "crsNote.denumire,id_nota", ; + RowSourceType = 2, ; + Style = 2, ; + TabIndex = 2, ; + Top = 52, ; + Width = 250, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'ck_text_standard' AS checkbox WITH ; + Alignment = 0, ; + BackStyle = 0, ; + Caption = 'Text suplimentar standard: "Cf. contract nr ... / data..."', ; + ControlSource = "gocontract.text_standard", ; + FontSize = 10, ; + Height = 17, ; + Left = 7, ; + Name = "ck_text_standard", ; + TabIndex = 3, ; + Top = 77, ; + Width = 357, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Ce se factureazã", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 7, ; + Name = "Label1", ; + TabIndex = 5, ; + Top = 30, ; + Width = 100, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Facturare", ; + FontSize = 10, ; + Height = 18, ; + Left = 7, ; + Name = "Label2", ; + TabIndex = 6, ; + Top = 4, ; + Width = 57, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lbNota' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nota contabilã", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 7, ; + Name = "lbNota", ; + TabIndex = 4, ; + Top = 56, ; + Width = 85, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="label" /> + + PROCEDURE cboNote.InteractiveChange + gocontract.id_nota = crsNote.id_nota + ENDPROC + + PROCEDURE cboNote.Valid + gocontract.id_nota = crsNote.id_nota + ENDPROC + + PROCEDURE cbo_opt_facturare.Init + this.Value = gocontract.opt_facturare + + IF this.Value = 1 OR this.Value = 2 + this.Parent.lbNota.Visible = .T. + this.Parent.cboNote.Visible = .T. + ELSE + this.Parent.lbNota.Visible = .F. + this.Parent.cboNote.Visible = .F. + ENDIF + ENDPROC + + PROCEDURE cbo_opt_facturare.Valid + Local lnInreg + Store 0 To lnInreg + + If This.Value = 1 Or This.Value = 2 + This.Parent.lbNota.Visible = .T. + This.Parent.cboNote.Visible = .T. + Else + This.Parent.lbNota.Visible = .F. + This.Parent.cboNote.Visible = .F. + Endif + + Do Case + Case This.Value = 1 + Select cCtrScadentar + Calculate Cnt() For !Deleted() To lnInreg + If lnInreg = 0 + aMessagebox('Adaugati rate!',0+48,'Atentie') + Endif + Case This.Value = 2 + Select cCtrArt + Calculate Cnt() For !Deleted() To lnInreg + If lnInreg = 0 + aMessagebox('Adaugati obiectul contractului!',0+48,'Atentie') + Endif + Select cCtrScadentar + Calculate Cnt() For !Deleted() To lnInreg + If lnInreg = 0 + aMessagebox('Adaugati rate!',0+48,'Atentie') + Endif + Endcase + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_dg_obiectul AS ct_dg_cu_banda OF "ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cNume_art.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cNume_art.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cUm.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cUm.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cCant.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cCant.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cPret_unitar.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cPret_unitar.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cValoare.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cValoare.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cCoef_discount.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cCoef_discount.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cVal_discount.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cVal_discount.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cValcDiscount.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cValcDiscount.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cNume_val.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cNume_val.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cPret_cu_tva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_articole.cPret_cu_tva.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDiscount" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValcdiscount" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValDiscount" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValctva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtProc_tva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtCoef_discount" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValftva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValDiscountTotal" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_pret_cu_tva" UniqueID="" Timestamp="" /> + + * + *m: actualizeaza_zecimale + *p: ncoef_discount + *p: ndiscountmediu + *p: noldproctva + *p: nsumaarticole + *p: nvalcdiscount + *p: nvaldiscount + *p: nzecimalepret + *p: nzecimalesuma + *p: _memberdata && XML Metadata for customizable properties + * + + * + Height = 208 + Name = "ct_dg_obiectul" + ncoef_discount = 0 + ndiscountmediu = 0 + noldproctva = 0 + nsumaarticole = 0 + nvalcdiscount = 0 + nvaldiscount = 0 + nzecimalepret = gnPPretV + nzecimalesuma = gnPc + Width = 795 + _memberdata = + + + _shape3.Height = 24 + _shape3.Left = 1 + _shape3.Name = "_shape3" + _shape3.Top = 1 + _shape3.Width = 812 + _shape3.ZOrderSet = 0 + _label1.Caption = "Obiectul ºi valoarea contractului" + _label1.FontSize = 10 + _label1.Left = 7 + _label1.Name = "_label1" + _label1.ZOrderSet = 7 + * + + ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; + Anchor = 15, ; + ccolwithlabel = column1, ; + csourcegrid = grid_articole, ; + csumcolumns = cvaloare,cValcDiscount, ; + ctotallabelexpression = 'TOTAL', ; + FontSize = 10, ; + Height = 22, ; + Left = 0, ; + Name = "_grdfooter1", ; + RowHeight = 19, ; + Top = 120, ; + Visible = .T., ; + Width = 794, ; + ZOrderSet = 3 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 9, ; + caction = do_adauga_obiectul, ; + Left = 734, ; + Name = "But_nou1", ; + TabIndex = 6, ; + Top = 1, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 9, ; + caction = inainte_de_do_sterge_obiectul, ; + Left = 764, ; + Name = "But_sterge1", ; + TabIndex = 5, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ck_pret_cu_tva' AS checkbox WITH ; + Alignment = 0, ; + Anchor = 8, ; + AutoSize = .T., ; + Caption = "Preþuri cu TVA", ; + FontBold = .T., ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 605, ; + Name = "ck_pret_cu_tva", ; + Top = 9, ; + Width = 111 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grid_articole' AS _grid WITH ; + Anchor = 15, ; + ColumnCount = 12, ; + DeleteMark = .F., ; + FontSize = 10, ; + GridLineColor = 192,192,192, ; + HeaderHeight = 36, ; + Height = 113, ; + HighlightStyle = 2, ; + Left = 0, ; + Name = "grid_articole", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "cCtrArt", ; + RowHeight = 19, ; + Top = 30, ; + Width = 794, ; + ZOrderSet = 2, ; + Column1.ControlSource = "recno()", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 35, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "nume_articol", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cNume_art", ; + Column2.ReadOnly = .T., ; + Column2.Width = 287, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "um", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Name = "cUm", ; + Column3.ReadOnly = .T., ; + Column3.Width = 41, ; + Column4.ControlSource = "cant", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Format = "rk", ; + Column4.InputMask = (get_mask(10,gnPCant)), ; + Column4.Name = "cCant", ; + Column4.Width = 49, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "pret_unitar", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Format = "rk", ; + Column5.InputMask = (get_mask(14,This.nZecimalePret)), ; + Column5.Name = "cPret_unitar", ; + Column5.Width = 60, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "valoare", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Format = "rk", ; + Column6.InputMask = (get_mask(14,This.nZecimaleSuma)), ; + Column6.Name = "cValoare", ; + Column6.ReadOnly = .T., ; + Column6.Width = 50, ; + Column7.ColumnOrder = 8, ; + Column7.ControlSource = "coef_discount", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Format = "rk", ; + Column7.InputMask = (get_mask(10,2)), ; + Column7.Name = "cCoef_discount", ; + Column7.Width = 49, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "val_discount", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Format = "rk", ; + Column8.InputMask = (get_mask(10,This.nZecimalePret)), ; + Column8.Name = "cVal_discount", ; + Column8.Width = 53, ; + Column9.ColumnOrder = 10, ; + Column9.ControlSource = "pret_unitar-(coef_discount*pret_unitar)/100", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Format = "rk", ; + Column9.InputMask = (get_mask(10,This.nZecimalePret)), ; + Column9.Name = "Column9", ; + Column9.ReadOnly = .T., ; + Column9.Width = 71, ; + Column10.ColumnOrder = 11, ; + Column10.ControlSource = "cant *(pret_unitar-(coef_discount*pret_unitar)/100)", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Format = "rk", ; + Column10.InputMask = (get_mask(20,This.nZecimaleSuma)), ; + Column10.Name = "cValcDiscount", ; + Column10.ReadOnly = .T., ; + Column10.Width = 62, ; + Column11.ColumnOrder = 12, ; + Column11.ControlSource = "nume_val", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.Name = "cNume_val", ; + Column11.Width = 44, ; + Column12.ColumnOrder = 5, ; + Column12.ControlSource = "pret_cu_tva", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.Name = "cPret_cu_tva", ; + Column12.ReadOnly = .T., ; + Column12.Sparse = .F., ; + Column12.Width = 37 + *< END OBJECT: ClassLib="c:\program files (x86)\microsoft visual foxpro 9\ffc\_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_articole.cCant.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cantitate", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_articole.cCant.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_articole.cCoef_discount.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Discount (%)", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_articole.cCoef_discount.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_articole.cNume_art.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Articol", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_articole.cNume_art.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_articole.cNume_val.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_articole.cNume_val.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_articole.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. crt.", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_articole.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_articole.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret unitar diminuat", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_articole.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_articole.cPret_cu_tva.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 34, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 53, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grid_articole.cPret_cu_tva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret cu TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_articole.cPret_unitar.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret unitar", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_articole.cPret_unitar.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_articole.cUm.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Um", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_articole.cUm.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_articole.cVal_discount.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Discount", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_articole.cVal_discount.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_articole.cValcDiscount.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare - Discount", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_articole.cValcDiscount.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_articole.cValoare.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_articole.cValoare.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Procent mediu discount articole", ; + FontSize = 10, ; + Height = 18, ; + Left = 7, ; + Name = "Label1", ; + TabIndex = 14, ; + Top = 157, ; + Width = 185, ; + WordWrap = .F., ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label10' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "%", ; + FontSize = 10, ; + Height = 18, ; + Left = 479, ; + Name = "Label10", ; + TabIndex = 22, ; + Top = 157, ; + Width = 14, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label15' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "TVA", ; + FontBold = .T., ; + FontSize = 10, ; + Height = 18, ; + Left = 745, ; + Name = "Label15", ; + TabIndex = 23, ; + Top = 157, ; + Width = 28, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label16' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "%", ; + FontBold = .T., ; + FontSize = 10, ; + Height = 18, ; + Left = 777, ; + Name = "Label16", ; + TabIndex = 22, ; + Top = 178, ; + Width = 12, ; + ZOrderSet = 18 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total valoare articole cu discount", ; + FontSize = 8, ; + Height = 16, ; + Left = 7, ; + Name = "Label3", ; + TabIndex = 21, ; + Top = 212, ; + Visible = .F., ; + Width = 161, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Procent discount general", ; + FontSize = 10, ; + Height = 18, ; + Left = 273, ; + Name = "Label4", ; + TabIndex = 16, ; + Top = 157, ; + Width = 146, ; + ZOrderSet = 19 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total valoare discount articole", ; + FontSize = 10, ; + Height = 18, ; + Left = 7, ; + Name = "Label5", ; + TabIndex = 18, ; + Top = 178, ; + Width = 173, ; + WordWrap = .F., ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Valoare discount general", ; + FontSize = 10, ; + Height = 18, ; + Left = 273, ; + Name = "Label6", ; + TabIndex = 20, ; + Top = 178, ; + Width = 145, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total general - fãrã TVA", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 500, ; + Name = "Label7", ; + TabIndex = 17, ; + Top = 157, ; + Width = 138, ; + ZOrderSet = 21 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label8' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total general - cu TVA", ; + FontSize = 10, ; + Height = 18, ; + Left = 500, ; + Name = "Label8", ; + TabIndex = 15, ; + Top = 178, ; + Width = 131, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "%", ; + FontSize = 10, ; + Height = 18, ; + Left = 244, ; + Name = "Label9", ; + TabIndex = 22, ; + Top = 157, ; + Width = 14, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape5' AS shape WITH ; + Anchor = 15, ; + BackStyle = 0, ; + Height = 208, ; + Left = 0, ; + Name = "Shape5", ; + SpecialEffect = 0, ; + Top = -1, ; + Width = 796, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'txtCoef_discount' AS textbox WITH ; + Anchor = 6, ; + ControlSource = "thisform.nCoef_discount", ; + FontSize = 10, ; + Format = "rk", ; + Height = 20, ; + InputMask = (get_mask(4,2)), ; + Left = 419, ; + Name = "txtCoef_discount", ; + TabIndex = 2, ; + Top = 155, ; + Width = 58, ; + ZOrderSet = 22 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtDiscount' AS textbox WITH ; + Anchor = 6, ; + ControlSource = "thisform.nDiscountMediu", ; + FontSize = 10, ; + Format = "rk", ; + Height = 20, ; + InputMask = (get_mask(4,2)), ; + Left = 191, ; + Name = "txtDiscount", ; + ReadOnly = .T., ; + TabIndex = 8, ; + Top = 155, ; + Width = 51, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtProc_tva' AS textbox WITH ; + Anchor = 6, ; + ControlSource = "goContract.proc_tva", ; + FontSize = 10, ; + Format = "rk", ; + Height = 20, ; + InputMask = "99", ; + Left = 738, ; + Name = "txtProc_tva", ; + TabIndex = 4, ; + Top = 176, ; + Width = 38, ; + ZOrderSet = 17 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtValcdiscount' AS textbox WITH ; + Anchor = 6, ; + ControlSource = "thisform.nValcdiscount", ; + FontSize = 8, ; + Format = "rk", ; + Height = 20, ; + InputMask = (get_mask(8,gnPA)), ; + Left = 172, ; + Name = "txtValcdiscount", ; + ReadOnly = .T., ; + TabIndex = 10, ; + Top = 210, ; + Visible = .F., ; + Width = 86, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtValctva' AS textbox WITH ; + Anchor = 6, ; + ControlSource = "goContract.valctva", ; + FontSize = 10, ; + Format = "rk", ; + Height = 20, ; + InputMask = (get_mask(8,This.nZecimaleSuma)), ; + Left = 636, ; + Name = "txtValctva", ; + ReadOnly = .T., ; + TabIndex = 12, ; + Top = 176, ; + Width = 86, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtValDiscount' AS textbox WITH ; + Anchor = 6, ; + ControlSource = "thisform.nValDiscount", ; + FontSize = 10, ; + Format = "rk", ; + Height = 20, ; + InputMask = (get_mask(8,This.nZecimaleSuma)), ; + Left = 191, ; + Name = "txtValDiscount", ; + ReadOnly = .T., ; + TabIndex = 9, ; + Top = 177, ; + Width = 78, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtValDiscountTotal' AS textbox WITH ; + Anchor = 6, ; + ControlSource = "goContract.val_discount", ; + FontSize = 10, ; + Format = "rk", ; + Height = 20, ; + InputMask = (get_mask(8,This.nZecimaleSuma)), ; + Left = 419, ; + Name = "txtValDiscountTotal", ; + TabIndex = 3, ; + Top = 176, ; + Width = 66, ; + ZOrderSet = 24 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtValftva' AS textbox WITH ; + Anchor = 6, ; + ControlSource = "goContract.valftva", ; + FontSize = 10, ; + Format = "rk", ; + Height = 20, ; + InputMask = (get_mask(8,This.nZecimaleSuma)), ; + Left = 636, ; + Name = "txtValftva", ; + ReadOnly = .T., ; + TabIndex = 11, ; + Top = 155, ; + Width = 86, ; + ZOrderSet = 23 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_zecimale + Lparameters tnZecimalePret, tnZecimaleSuma + This.nzecimalepret = tnZecimalePret + This.nzecimalesuma = tnZecimaleSuma + With This.grid_articole + .cpret_unitar.InputMask = get_mask(14,This.nzecimalepret) + .cValoare.InputMask = get_mask(14,This.nzecimaleSuma) + .cVal_discount.InputMask = get_mask(10,This.nzecimaleSuma) + .Column9.InputMask = get_mask(10,This.nzecimalepret) + .cValcDiscount.InputMask = get_mask(20,This.nzecimalesuma) + Endwith + This.txtvalcdiscount.InputMask = get_mask(8,This.nzecimalesuma) + This.txtValDiscount.InputMask = get_mask(8,This.nzecimalesuma) + This.txtvalftva.InputMask = get_mask(8,This.nzecimalesuma) + This.txtValctva.InputMask = get_mask(8,This.nzecimalesuma) + ENDPROC + + PROCEDURE ck_pret_cu_tva.Valid + SELECT cCtrArt + REPLACE ALL pret_cu_tva WITH this.Value + Thisform.afisactual_obiectul + ENDPROC + + PROCEDURE grid_articole.cCant.Text1.LostFocus + Local lcTabel + lcTabel = This.Parent.Parent.RecordSource + + Select (lcTabel) + Replace valoare With round(cant * pret_unitar,This.Parent.Parent.Parent.nzecimalesuma) && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100 + Thisform.afisactual_obiectul + This.Parent.Parent.Parent._grdfooter1.calctotal + + + ENDPROC + + PROCEDURE grid_articole.cCoef_discount.Text1.LostFocus + Local lcTabel + lcTabel = This.Parent.Parent.RecordSource + + Select (lcTabel) + Replace val_discount With round(pret_unitar * cant * coef_discount / 100,This.Parent.Parent.Parent.nzecimalesuma) + Replace valoare With round(cant * pret_unitar,This.Parent.Parent.Parent.nzecimalesuma) && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100 + Thisform.afisactual_obiectul + This.Parent.Parent.Parent._grdfooter1.calcTotal + + ENDPROC + + PROCEDURE grid_articole.cNume_val.Text1.DblClick + If gnParametru_prog =2 + Local locauta + locauta = caut_valuta() + If buton = 2 + Return + Endif + + Local lcTabel + lcTabel = This.Parent.Parent.RecordSource + + Select (lcTabel) + Replace id_valuta With locauta.id_valuta, nume_val With locauta.nume_val + + *IF THISFORM.cOldValue <> THISFORM.cNewValue + Thisform.do_modifica_ctr_art() + *ENDIF + + This.Parent.Parent.Refresh + Endif + + ENDPROC + + PROCEDURE grid_articole.cPret_unitar.Text1.LostFocus + Local lcTabel + lcTabel = This.Parent.Parent.RecordSource + + Select (lcTabel) + Replace valoare With round(cant * pret_unitar,This.Parent.Parent.Parent.nzecimalesuma) && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100 + Thisform.afisactual_obiectul + This.Parent.Parent.Parent._grdfooter1.calctotal + + ENDPROC + + PROCEDURE grid_articole.cVal_discount.Text1.LostFocus + Local lcTabel + lcTabel = This.Parent.Parent.RecordSource + + Select (lcTabel) + If pret_unitar * cant <> 0 + Replace coef_discount With round(val_discount / (pret_unitar * cant) * 100,2) + Endif + + Replace valoare With round(cant * pret_unitar,This.Parent.Parent.Parent.nzecimalesuma) && , valcdiscount WITH (cant*pret_unitar)*(100-discount)/100 + Thisform.afisactual_obiectul + This.Parent.Parent.Parent._grdfooter1.calctotal + + ENDPROC + + PROCEDURE txtCoef_discount.Valid + * IF EMPTY(goContract.val_discount) + *goContract.val_discount = ROUND(THISFORM.nValcdiscount * THISFORM.nCoef_discount / 100,gnPC) + goContract.val_discount = ROUND(THISFORM.nSumaArticole * THISFORM.nCoef_discount / 100,This.Parent.nzecimalesuma) + *goContract.valftva = THISFORM.nValcdiscount - goContract.val_discount + goContract.valftva = THISFORM.nSumaArticole - goContract.val_discount + goContract.valctva = round(goContract.valftva * (1+goContract.proc_tva/100),This.Parent.nzecimalesuma) + + thisform._pageframe1.page1.ct_dg_obiectul1.txtValDiscountTotal.REFRESH + thisform._pageframe1.page1.ct_dg_obiectul1.txtValftva.REFRESH + thisform._pageframe1.page1.ct_dg_obiectul1.txtValctva.REFRESH + * ENDIF + + + + ENDPROC + + PROCEDURE txtProc_tva.Valid + goContract.valctva = round(goContract.valftva * (1+goContract.proc_tva/100),This.Parent.nzecimalesuma) + thisform._pageframe1.page1.ct_dg_obiectul1.txtValctva.REFRESH + ENDPROC + + PROCEDURE txtProc_tva.When + This.Parent.nOldProcTVA = goContract.proc_tva + ENDPROC + + PROCEDURE txtValDiscountTotal.Valid + *thisform.nCoef_discount = ROUND(goContract.val_discount / thisform.nValcdiscount * 100, gnPC) + Thisform.nCoef_discount = Round(goContract.val_discount / Thisform.nSumaArticole * 100, 2) + *goContract.valftva = thisform.nValcdiscount - goContract.val_discount + goContract.valftva = Thisform.nSumaArticole - goContract.val_discount + goContract.valctva = Round(goContract.valftva * (1+goContract.proc_tva/100),This.Parent.nzecimalesuma) + + Thisform._pageframe1.page1.ct_dg_obiectul1.txtCoef_discount.Refresh + Thisform._pageframe1.page1.ct_dg_obiectul1.txtValftva.Refresh + Thisform._pageframe1.page1.ct_dg_obiectul1.txtValctva.Refresh + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_dg_tf AS ct_dg_cu_banda OF "ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cProcent.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cProcent.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cData_scadenta.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cData_scadenta.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cValvaluta.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cValvaluta.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cPret_cu_tva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cPret_cu_tva.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cProc_tva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cProc_tva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cValrataftva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cValrataftva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cValratactva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cValratactva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cRest.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cRest.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtScadenta_incasare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtCoef_penalitati" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdMultiplicaRate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdAplicaScadenta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_pret_cu_tva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_afisare_scadenta" UniqueID="" Timestamp="" /> + + * + *m: actualizeaza_zecimale + *p: nzecimalepret + *p: nzecimalesuma + * + + * + Height = 479 + Name = "ct_dg_tf" + nzecimalepret = gnPPretV + nzecimalesuma = gnPc + Width = 795 + _SHAPE3.BackStyle = 0 + _SHAPE3.Name = "_SHAPE3" + _SHAPE3.ZOrderSet = 1 + _label1.Caption = "Termene de facturare ºi achitare" + _label1.FontSize = 10 + _label1.Left = 7 + _label1.Name = "_label1" + _label1.TabIndex = 1 + _label1.Top = 8 + _label1.ZOrderSet = 2 + * + + ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; + ccolwithlabel = cDen_rata, ; + csourcegrid = grid_scadentar, ; + csumcolumns = cprocent,cvalrataftva,cvalratactva,cvalvaluta,crest, ; + FontSize = 10, ; + Left = 0, ; + Name = "_grdfooter1", ; + RowHeight = 19, ; + TabIndex = 13, ; + Top = 408, ; + Width = 794, ; + ZOrderSet = 13 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_shape1' AS _shape WITH ; + Height = 479, ; + Left = 0, ; + Name = "_shape1", ; + SpecialEffect = 0, ; + Top = 0, ; + Width = 795, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + caction = inainte_de_do_listare_rate, ; + Left = 762, ; + Name = "But_listare1", ; + TabIndex = 14, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 9, ; + caction = do_adauga_rate, ; + Left = 701, ; + Name = "But_nou1", ; + TabIndex = 3, ; + Top = 1, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 9, ; + caction = inainte_de_do_sterge_rate, ; + Left = 731, ; + Name = "But_sterge1", ; + TabIndex = 4, ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ck_afisare_scadenta' AS checkbox WITH ; + Alignment = 0, ; + Anchor = 6, ; + AutoSize = .T., ; + Caption = "Se afiºeazã data scadenþei pe facturã", ; + ControlSource = "goContract.afisare_scadenta", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 282, ; + Name = "ck_afisare_scadenta", ; + TabIndex = 11, ; + Top = 453, ; + Width = 237 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'ck_pret_cu_tva' AS checkbox WITH ; + Alignment = 0, ; + Anchor = 8, ; + AutoSize = .T., ; + Caption = "Preþuri cu TVA", ; + FontBold = .T., ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 581, ; + Name = "ck_pret_cu_tva", ; + TabIndex = 15, ; + Top = 7, ; + Width = 111 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'cmdAplicaScadenta' AS commandbutton WITH ; + Anchor = 6, ; + Caption = "Aplicã", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 22, ; + Left = 211, ; + Name = "cmdAplicaScadenta", ; + TabIndex = 6, ; + ToolTipText = "Inlocuieste data scadenta cu data facturarii + perioada scadenta", ; + Top = 450, ; + Width = 60, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'cmdMultiplicaRate' AS commandbutton WITH ; + Anchor = 6, ; + Caption = "Instrument de multiplicare rate", ; + FontSize = 10, ; + Height = 27, ; + Left = 522, ; + Name = "cmdMultiplicaRate", ; + TabIndex = 5, ; + Top = 448, ; + Visible = .F., ; + Width = 96, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'grid_scadentar' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 13, ; + DeleteMark = .F., ; + FontSize = 10, ; + GridLineColor = 192,192,192, ; + HeaderHeight = 19, ; + Height = 400, ; + HighlightStyle = 2, ; + Left = 0, ; + Name = "grid_scadentar", ; + Panel = 1, ; + Partition = 0, ; + ReadOnly = .F., ; + RecordMark = .F., ; + RecordSource = "cCtrScadentar", ; + RowHeight = 19, ; + TabIndex = 2, ; + Top = 30, ; + Width = 794, ; + ZOrderSet = 3, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "nr_rata", ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cNr_rata", ; + Column1.ReadOnly = .F., ; + Column1.Width = 26, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "data_rata", ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cData_rata", ; + Column2.ReadOnly = .F., ; + Column2.Width = 72, ; + Column3.ColumnOrder = 7, ; + Column3.ControlSource = "valrata", ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Format = "rk", ; + Column3.InputMask = (get_mask(20,This.nZecimalePret)), ; + Column3.Name = "cValrata", ; + Column3.ReadOnly = .F., ; + Column3.Width = 74, ; + Column4.ColumnOrder = 2, ; + Column4.ControlSource = "den_rata", ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Name = "cDen_rata", ; + Column4.ReadOnly = .F., ; + Column4.Width = 135, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "procent", ; + Column5.FontName = "Arial", ; + Column5.FontSize = 10, ; + Column5.Format = "rk", ; + Column5.InputMask = (get_mask(20,2)), ; + Column5.Name = "cProcent", ; + Column5.ReadOnly = .F., ; + Column5.Width = 39, ; + Column6.BackColor = 225,223,217, ; + Column6.ColumnOrder = 12, ; + Column6.ControlSource = "nume_val", ; + Column6.FontName = "Arial", ; + Column6.FontSize = 10, ; + Column6.Name = "cNume_val", ; + Column6.ReadOnly = .T., ; + Column6.Width = 39, ; + Column7.ColumnOrder = 4, ; + Column7.ControlSource = "data_scadenta", ; + Column7.FontName = "Arial", ; + Column7.FontSize = 10, ; + Column7.Name = "cData_scadenta", ; + Column7.ReadOnly = .F., ; + Column7.Width = 70, ; + Column8.BackColor = 225,223,217, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "valvaluta", ; + Column8.FontName = "Arial", ; + Column8.FontSize = 10, ; + Column8.Format = "rk", ; + Column8.InputMask = (get_mask(20,This.nZecimaleSuma)), ; + Column8.Name = "cValvaluta", ; + Column8.ReadOnly = .T., ; + Column8.Width = 92, ; + Column9.Alignment = 2, ; + Column9.ColumnOrder = 6, ; + Column9.ControlSource = "pret_cu_tva", ; + Column9.FontName = "Arial", ; + Column9.FontSize = 10, ; + Column9.Name = "cPret_cu_tva", ; + Column9.ReadOnly = .T., ; + Column9.Sparse = .F., ; + Column9.Width = 79, ; + Column10.BackColor = 225,223,217, ; + Column10.ColumnOrder = 13, ; + Column10.ControlSource = "proc_tva", ; + Column10.FontName = "Arial", ; + Column10.FontSize = 10, ; + Column10.Format = "rk", ; + Column10.InputMask = "99", ; + Column10.Name = "cProc_tva", ; + Column10.ReadOnly = .T., ; + Column10.Width = 36, ; + Column11.BackColor = 225,223,217, ; + Column11.ColumnOrder = 8, ; + Column11.ControlSource = "valrataftva", ; + Column11.FontName = "Arial", ; + Column11.FontSize = 10, ; + Column11.Format = "rk", ; + Column11.InputMask = (get_mask(20,This.nZecimalePret)), ; + Column11.Name = "cValrataftva", ; + Column11.ReadOnly = .T., ; + Column11.Width = 73, ; + Column12.BackColor = 225,223,217, ; + Column12.ColumnOrder = 9, ; + Column12.ControlSource = "valratactva", ; + Column12.DynamicBackColor = "", ; + Column12.FontName = "Arial", ; + Column12.FontSize = 10, ; + Column12.Format = "rk", ; + Column12.InputMask = (get_mask(20,This.nZecimalePret)), ; + Column12.Name = "cValratactva", ; + Column12.ReadOnly = .T., ; + Column12.Width = 75, ; + Column13.BackColor = 225,223,217, ; + Column13.ColumnOrder = 11, ; + Column13.ControlSource = "valrataftva - valvaluta", ; + Column13.FontName = "Arial", ; + Column13.FontSize = 10, ; + Column13.InputMask = (get_mask(20,This.nZecimaleSuma)), ; + Column13.Name = "cRest", ; + Column13.ReadOnly = .F., ; + Column13.Width = 95 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_scadentar.cData_rata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data facturarii", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cData_rata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cData_scadenta.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadentei", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cData_scadenta.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cDen_rata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire rata", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cDen_rata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + Enabled = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cNr_rata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. rata", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cNr_rata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + Enabled = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cNume_val.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cNume_val.Text1' AS textbox WITH ; + BackColor = 225,223,217, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cPret_cu_tva.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 17, ; + Left = 29, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 29, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grid_scadentar.cPret_cu_tva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret cu TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cProc_tva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Proc TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cProc_tva.Text1' AS textbox WITH ; + BackColor = 225,223,217, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cProcent.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent (%)", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cProcent.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cRest.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rest de facturat fara TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cRest.Text1' AS textbox WITH ; + BackColor = 225,223,217, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cValrata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare rata", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cValrata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .F., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cValratactva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare rata cu TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cValratactva.Text1' AS textbox WITH ; + BackColor = 225,223,217, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cValrataftva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare rata fara TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cValrataftva.Text1' AS textbox WITH ; + BackColor = 225,223,217, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cValvaluta.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare facturata fara TVA", ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cValvaluta.Text1' AS textbox WITH ; + BackColor = 225,223,217, ; + BorderStyle = 0, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label13' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Coef.penalitãþi", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 625, ; + Name = "Label13", ; + TabIndex = 12, ; + Top = 453, ; + Visible = .F., ; + Width = 84, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "zile", ; + FontSize = 10, ; + Height = 18, ; + Left = 179, ; + Name = "Label4", ; + TabIndex = 10, ; + Top = 453, ; + Width = 22, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Scadenþã încasare", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 18, ; + Left = 7, ; + Name = "Label6", ; + TabIndex = 9, ; + Top = 453, ; + Width = 110, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'txtCoef_penalitati' AS textbox WITH ; + Anchor = 12, ; + ControlSource = "goContract.coef_penalitati", ; + FontSize = 10, ; + Height = 23, ; + Left = 714, ; + Name = "txtCoef_penalitati", ; + TabIndex = 8, ; + Top = 450, ; + Visible = .F., ; + Width = 57, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtScadenta_incasare' AS textbox WITH ; + Anchor = 6, ; + ControlSource = "goContract.scadenta_incasare", ; + FontSize = 10, ; + Format = "rk", ; + Height = 23, ; + InputMask = "999", ; + Left = 117, ; + Name = "txtScadenta_incasare", ; + TabIndex = 7, ; + Top = 450, ; + Width = 58, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_zecimale + Lparameters tnZecimalePret, tnZecimaleSuma + This.nzecimalepret = tnZecimalePret + This.nzecimalesuma = tnZecimaleSuma + With This.grid_scadentar + .cValrata.InputMask = get_mask(20,This.nzecimaleSuma) + .cValrataftva.InputMask = get_mask(20,This.nzecimaleSuma) + .cValratactva.InputMask = get_mask(20,This.nzecimaleSuma) + .cValvaluta.InputMask = get_mask(20,This.nzecimaleSuma) + .cRest.InputMask = get_mask(20,This.nZecimalesuma) + Endwith + ENDPROC + + PROCEDURE Init + this.grid_scadentar.HeaderHeight = 38 + + ENDPROC + + PROCEDURE cmdAplicaScadenta.Click + LOCAL lnZileScadenta, lcTabelRate + + lnZileScadenta = this.Parent.txtscadenta_incasare.Value + lcTabelRate = this.Parent.grid_scadentar.RecordSource + SELECT (lcTabelRate) + REPLACE ALL data_scadenta WITH data_rata + lnZileScadenta + this.Parent.grid_scadentar.Refresh + ENDPROC + + PROCEDURE cmdMultiplicaRate.Click + Private pnNrRate, pdDataI, pnValRata, pnId_valuta, pnFrecventa, pcDen_rata, pnPtLuna + Store 1 To pnNrRate, pnFrecventa, pnPtLuna + + Select cCtrScadentar + pdDataI = data_rata + pnId_valuta = id_valuta + pcNume_val = Alltrim(nume_val) + + pnValRata = goContract.valftva + + lomr = Createobject("frm_multiplica_rate") + lomr.Show(1) + + If buton = 2 + Return + Endif + + pcId_ctr = Alltrim(Str(goContract.id_ctr)) + + pcDataI = Alltrim(Dtos(pdDataI)) + + *!* modificare v 2.0.6 + *!* lcSql = [begin pack_crm.multiplica_rate(] + pcId_ctr + [,] + ALLTRIM(STR(pnNrRate)) + [, TO_DATE('] + IIF(!EMPTY(pcDataI) and !ISNULL(pcDataI),pcDataI,[NULL]) + [','YYYYMMDD'), ] + ; + *!* ALLTRIM(STR(pnValRata,20,gnPC)) + [,'] + SUBSTR(ALLTRIM(pcDen_rata),1,30) + [',] + NVL(ALLTRIM(STR(pnId_valuta)),[NULL]) + [,] ; + *!* + ALLTRIM(STR(pnFrecventa)) + [,] + ALLTRIM(STR(pnPtLuna)) + [); end;] + lcSql = [begin pack_crm.multiplica_rate(] + pcId_ctr + [,] + Alltrim(Str(pnNrRate)) + [,] + ; + [TO_DATE('] + Iif(!Empty(pcDataI) And !Isnull(pcDataI),pcDataI,[NULL]) + [','YYYYMMDD'), ] + ; + ALLTRIM(Str(pnValRata,20,This.Parent.nzecimalepret)) + [,'] + Substr(Alltrim(pcDen_rata),1,80) + [',] + ; + NVL(Alltrim(Str(pnId_valuta)),[NULL]) + [,] + Alltrim(Str(pnFrecventa)) + [,] + ; + ALLTRIM(Str(pnPtLuna)) + [); end;] + *!* modificare v 2.0.6 ^ + if goExecutor.oExecuta(lcSql) + Thisform.actualizeaza_grid1() + Endif + + ENDPROC + + PROCEDURE grid_scadentar.cData_rata.Text1.LostFocus + LOCAL lcTabel + lcTabel = this.Parent.Parent.RecordSource + SELECT (lcTabel) + REPLACE data_scadenta WITH data_rata + NVL(goContract.scadenta_incasare,0) + + this.Parent.Parent.Refresh + ENDPROC + + PROCEDURE grid_scadentar.cProcent.Text1.LostFocus + LOCAL lnProc + lnProc = this.Value + IF lnProc*0 = 0 AND goContract.valftva*0 = 0&& <> ************* + REPLACE valrata WITH round(NVL(goContract.valftva,0) * lnProc/100,This.Parent.Parent.Parent.nzecimalepret) + ELSE + REPLACE valrata WITH 0 + ENDIF + + this.Parent.Parent.Parent._grdfooter1.calctotal + + + ENDPROC + + PROCEDURE grid_scadentar.cValrata.Text1.LostFocus + If goContract.valftva <> 0 And goContract.valftva*0 = 0 && <> ************* + Replace procent With valrata/goContract.valftva * 100 + Else + Replace procent With 0 + Endif + + If pret_cu_tva = 1 + Replace valrataftva With round(valrata / (1+proc_tva/100),This.Parent.Parent.Parent.nzecimalepret), valratactva With valrata + Else + Replace valrataftva With valrata, valratactva With round(valrata * (1+proc_tva/100),This.Parent.Parent.Parent.nzecimalepret) + Endif + + This.Parent.Parent.Parent._grdfooter1.calctotal + + + + + ENDPROC + + PROCEDURE grid_scadentar.Init + * NU STERGE + + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_dg_tf_2 AS ct_dg_cu_banda OF "ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_fact_atas" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtSumaRate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtSumaFacturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="optFactAtas" UniqueID="" Timestamp="" /> + + * + Height = 428 + Name = "ct_dg_tf_2" + Width = 809 + _shape3.Name = "_shape3" + _label1.Caption = "Facturi asociate la scadenþar" + _label1.Name = "_label1" + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 725, ; + Name = "But_listare1", ; + Top = 33, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 9, ; + Left = 755, ; + Name = "But_sterge1", ; + Top = 33, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Anchor = 3, ; + AutoSize = .F., ; + Caption = "Ataºare facturi", ; + FontCharSet = 238, ; + FontSize = 10, ; + Height = 29, ; + Left = 240, ; + Name = "Command1", ; + Top = 36, ; + Width = 120, ; + WordWrap = .T. + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'grid_fact_atas' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 10, ; + DeleteMark = .F., ; + GridLineColor = 192,192,192, ; + HeaderHeight = 38, ; + Height = 323, ; + Left = 372, ; + Name = "grid_fact_atas", ; + Panel = 1, ; + RecordSource = "cFactAtas", ; + Top = 69, ; + Width = 423, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "id_fact", ; + Column1.Name = "Column1", ; + Column1.Width = 50, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "valvaluta", ; + Column2.Format = "rk", ; + Column2.InputMask = (get_mask(14,max(gnPc,gnPVal))), ; + Column2.Name = "Column2", ; + Column2.Width = 81, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "curs", ; + Column3.Format = "rk", ; + Column3.InputMask = (get_mask(10,gnPCurs)), ; + Column3.Name = "Column3", ; + Column3.Width = 48, ; + Column4.ColumnOrder = 6, ; + Column4.ControlSource = "nume_val", ; + Column4.Name = "Column4", ; + Column4.Width = 55, ; + Column5.ColumnOrder = 8, ; + Column5.ControlSource = "nract", ; + Column5.Name = "Column5", ; + Column5.Width = 56, ; + Column6.ColumnOrder = 9, ; + Column6.ControlSource = "ttod(dataact)", ; + Column6.Name = "Column6", ; + Column6.Width = 41, ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "fdoc", ; + Column7.Name = "Column7", ; + Column7.Width = 53, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "explicatia", ; + Column8.Name = "Column8", ; + Column8.Width = 111, ; + Column9.ColumnOrder = 3, ; + Column9.ControlSource = "valvalutactva", ; + Column9.InputMask = (get_mask(14,max(gnPc,gnPVal))), ; + Column9.Name = "Column9", ; + Column9.Width = 84, ; + Column10.ColumnOrder = 4, ; + Column10.ControlSource = "proctva", ; + Column10.Name = "Column10", ; + Column10.Width = 47 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_fact_atas.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "ID fact.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Proc TVA (%)", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare valuta (fara TVA)", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr fact", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data fact", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare valuta (cu TVA)", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar' AS _grdrow WITH ; + Anchor = 7, ; + ColumnCount = 5, ; + DeleteMark = .F., ; + GridLineColor = 192,192,192, ; + HeaderHeight = 38, ; + Height = 323, ; + HighlightStyle = 2, ; + Left = 12, ; + Name = "grid_scadentar", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordMark = .F., ; + RecordSource = "cCtrScadentar", ; + RowHeight = 18, ; + TabIndex = 1, ; + Top = 69, ; + Width = 351, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "nr_rata", ; + Column1.FontName = "Arial", ; + Column1.Name = "cNr_rata", ; + Column1.ReadOnly = .T., ; + Column1.Width = 29, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "data_rata", ; + Column2.FontName = "Arial", ; + Column2.Name = "cData_rata", ; + Column2.ReadOnly = .T., ; + Column2.Width = 55, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "valrata", ; + Column3.FontName = "Arial", ; + Column3.Format = "rk", ; + Column3.InputMask = (get_mask(20,max(gnPc,gnPVal))), ; + Column3.Name = "cValrata", ; + Column3.ReadOnly = .T., ; + Column3.Width = 97, ; + Column4.ColumnOrder = 2, ; + Column4.ControlSource = "den_rata", ; + Column4.FontName = "Arial", ; + Column4.Name = "cDen_rata", ; + Column4.ReadOnly = .T., ; + Column4.Width = 99, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "nume_val", ; + Column5.FontName = "Arial", ; + Column5.Name = "cNume_val", ; + Column5.ReadOnly = .T., ; + Column5.Width = 45 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_scadentar.cData_rata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data facturarii", ; + FontName = "Arial", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cData_rata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cDen_rata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire rata", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cDen_rata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cNr_rata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. rata", ; + FontName = "Arial", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cNr_rata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cNume_val.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cNume_val.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cValrata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare rata valuta (fara TVA)", ; + FontName = "Arial", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cValrata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total valoare rate", ; + FontSize = 10, ; + Height = 18, ; + Left = 105, ; + Name = "Label1", ; + Top = 400, ; + Width = 100 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total valori facturi", ; + FontSize = 10, ; + Height = 18, ; + Left = 536, ; + Name = "Label2", ; + Top = 400, ; + Width = 102 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'optFactAtas' AS optiongroup WITH ; + AutoSize = .F., ; + BackStyle = 0, ; + ButtonCount = 2, ; + Height = 37, ; + Left = 374, ; + Name = "optFactAtas", ; + Top = 30, ; + Value = 1, ; + Width = 243, ; + Option1.AutoSize = .T., ; + Option1.BackStyle = 0, ; + Option1.Caption = "Facturile ataºate la ratã", ; + Option1.FontCharSet = 238, ; + Option1.FontSize = 10, ; + Option1.Height = 18, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 2, ; + Option1.Value = 1, ; + Option1.Width = 156, ; + Option2.AutoSize = .T., ; + Option2.BackStyle = 0, ; + Option2.Caption = "Toate facturile ataºate la contract", ; + Option2.FontCharSet = 238, ; + Option2.FontSize = 10, ; + Option2.Height = 18, ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 16, ; + Option2.Width = 212 + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'txtSumaFacturi' AS textbox WITH ; + Anchor = 12, ; + ControlSource = "thisform.nSumaFact", ; + FontSize = 10, ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(14,gnPA)), ; + Left = 642, ; + Name = "txtSumaFacturi", ; + Top = 397, ; + Width = 153 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtSumaRate' AS textbox WITH ; + Anchor = 6, ; + ControlSource = "thisform.nSumaRate", ; + FontSize = 10, ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(14,gnPA)), ; + Left = 210, ; + Name = "txtSumaRate", ; + Top = 397, ; + Width = 153 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Command1.Click + Local lcSel, lcCursor, lnSucces, lcScadentar, lnId_fact, lnId_rata, lcSql, lnSucces + + *!* lcSel = [{call pack_crm.facturi_neatasate(] + ALLTRIM(STR(gnParametru_prog))+ [,] + ALLTRIM(STR(goContract.id_part)) + [,]+ALLTRIM(STR(goContract.id_ctr))+ [)}] + *!* lcCursor = 'cFact_neatas' + *!* lnSucces = goExecutor.oExecute(lcSel, lcCursor) + *!* IF lnSucces < 0 + *!* amessage(goExecutor.cEroare,0+16,"Eroare") + *!* RETURN + *!* ENDIF + + Private poFactGaran + Store '' To poFactGaran + + Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal + lcOrder = [dataact desc] + lcgroup = [] + lcFiltru = [ 1=1 ] + + Do Case + Case gnParametru_prog=1 + lcSchema = [] + lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, debit as suma, id_fact, cod, explicatia, ]+; + [(case when id_fact in (select id_fact from vctr_rate_facturi) then 1 else 0 end) as atasata ]+; + [ from vireg_emise_in_perioada ] + lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+; + [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] + Case gnParametru_prog=2 + lcSchema = [] + lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, credit as suma, id_fact, cod, explicatia, ]+; + [(case when id_fact in (select id_fact from vctr_rate_facturi) then 1 else 0 end) as atasata ]+; + [ from vireg_emise_in_perioada ] + lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+; + [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] + + Otherwise + lcFiltruOriginal = [] + Endcase + + llAfiseaza = .F. + llModParam = .T. + + gencursor('poFactGaran','cFact_neatas', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) + poFactGaran.ca_baza1.afisare() + + ***---------------------------- + + lcScadentar = Thisform.grid_scadentar.RecordSource + + Select cFact_neatas + loip = Createobject('frm_atas_fact_iregpart') + loip.lb_titlu_alb_b121.Caption = 'Facturi fara contract sau corespunzatoare contractului '+Alltrim(goContract.numar) + ' / ' + Dtoc(goContract.Data) + loip.Show(1) + + If buton = 2 + Return + Endif + + Private pnFA_valvaluta, pnFA_valvalutacTVA, pnFA_procTVA, pnFA_valctva, pnFA_curs, pnFA_id_valuta, pcFA_nume_val, pnValRata + Store 0 To pnFA_valvaluta, pnFA_valvalutacTVA, pnFA_procTVA, pnFA_curs, pnFA_id_valuta, pnValRata + Store '' To pcFA_nume_val + + pnFA_valctva = cFact_neatas.suma + + + Select (lcScadentar) + lnId_rata = id_rata + pnFA_id_valuta = id_valuta + pcFA_nume_val = Upper(Alltrim(nume_val)) + pnValRata = valrata && ca sa aflu cursul + + pnFA_valvaluta = pnValRata + pnFA_procTVA = goContract.proc_tva + pnFA_valvalutacTVA = Round(pnFA_valvaluta * (1+pnFA_procTVA/100),gnPC) + + *IF pnFA_valctva <> 0 + If pnFA_valvalutacTVA <> 0 + pnFA_curs = Round(pnFA_valctva/pnFA_valvalutacTVA,gnPCurs) + Endif + + + loafc = Createobject('frm_atas_fact_curs') + loafc.Show(1) + + If buton = 2 + Return + Endif + + lnId_fact = cFact_neatas.id_fact + + If !Empty(lnId_fact) + + lcSql = [begin pack_crm.adauga_rata_fact(] + Alltrim(Str(lnId_rata)) + [,] + Alltrim(Str(lnId_fact)) + [,] ; + + Alltrim(Str(pnFA_valvaluta,14,gnPC)) + [,] + Alltrim(Str(pnFA_valvalutacTVA,14,gnPC)) + [,] + Alltrim(Str(pnFA_procTVA)) + [,] ; + + Alltrim(Str(pnFA_curs,12,gnPCurs)) + [,] + Alltrim(Str(pnFA_id_valuta)) + [,] + Alltrim(Str(gnIdUtil)) + [); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX('pack_crm.cauta_ctr_art'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + Thisform.actualizeaza_grid2() + + *!* lcId_ctr = ALLTRIM(STR(goContract.id_ctr)) + *!* lcId_fact = ALLTRIM(STR(lnId_fact)) + *!* lcSql = [update act set id_ctr=] + lcId_ctr + [ where id_fact=]+lcId_fact + [ and id_ctr is null and sters=0] + *!* lnSucces = goExecutor.oExecute(lcSql) + + *!* IF lnSucces < 0 + *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + *!* RETURN + *!* ENDIF + + Endif + + + + ENDPROC + + PROCEDURE grid_fact_atas.AfterRowColChange + LPARAMETERS nColIndex + + SELECT cFactAtas + lnId_fact = id_fact + + + + lcTabelScadentar = thisform.grid_scadentar.RecordSource + UPDATE (lcTabelScadentar) SET lid_fact = 0 + IF USED('cRate') + USE IN cRate + ENDIF + + SELECT id_rata FROM cFactAtas WHERE id_fact = lnId_fact INTO CURSOR cRate + + UPDATE (lcTabelScadentar) SET lid_fact = 1 WHERE id_rata in (select id_rata from cRate) + + thisform.grid_scadentar.SetAll('DynamicBackColor','IIF(cCtrScadentar.Lid_fact=1, RGB(217,217,255), RGB(255,255,255))','Column') + + + + + + + + ENDPROC + + PROCEDURE grid_scadentar.AfterRowColChange + LPARAMETERS nColIndex + + LOCAL lcTabelFactAtas + lcTabelFactAtas = thisform.grid_fact_atas.RecordSource + + IF thisform.optFactAtas.Value = 1 + SELECT (lcTabelFactAtas) + SET FILTER TO id_rata = cCtrScadentar.id_rata + ELSE + SELECT (lcTabelFactAtas) + SET FILTER TO + ENDIF + + thisform.grID_FACT_ATAS.SetAll("DynamicBackColor","IIF(id_rata = cCtrScadentar.id_rata, RGB(206,255,255), RGB(255,255,255))", "Column") + + thisform.afisactual + thisform.grid_fact_atas.Refresh + thisform.Refresh + + + ENDPROC + + PROCEDURE optFactAtas.Valid + thisform.grid_scadentar.AfterRowColChange + + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_dg_tl AS ct_dg_cu_banda OF "ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtGrnt_pv_nr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtGrnt_proc_ret" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtGrnt_val_ret" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtGrnt_alerta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtGrnt_proc_alerta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtGrnt_pv_data" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_garant" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_garant.cNract.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_garant.cNract.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_garant.cDataact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_garant.cDataact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_garant.cValftva.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_garant.cValftva.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_garant.cGarantie.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_garant.cGarantie.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtGrnt_perioada" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="BUT_MODIFICA1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_attach1" UniqueID="" Timestamp="" /> + + * + Height = 479 + Name = "ct_dg_tl" + Width = 795 + _SHAPE3.Name = "_SHAPE3" + _SHAPE3.ZOrderSet = 0 + _label1.Caption = "Termene de livrare/receptie si Garantii" + _label1.FontCharSet = 1 + _label1.FontName = "Arial" + _label1.FontSize = 10 + _label1.Name = "_label1" + _label1.ZOrderSet = 2 + * + + ADD OBJECT '_grdfooter1' AS _grdfooter WITH ; + ccolwithlabel = cNract, ; + csourcegrid = grid_Fact_garant, ; + csumcolumns = cValftva,cGarantie, ; + ctotallabelexpression = 'TOTAL', ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 20, ; + Left = 455, ; + Name = "_grdfooter1", ; + RowHeight = 19, ; + TabIndex = 29, ; + Top = 240, ; + Width = 338, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_shape1' AS _shape WITH ; + Height = 479, ; + Left = 0, ; + Name = "_shape1", ; + SpecialEffect = 0, ; + Top = 0, ; + Width = 795, ; + ZOrderSet = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'But_attach1' AS but_attach WITH ; + Anchor = 9, ; + caction = do_ataseaza_garantie, ; + Left = 673, ; + Name = "But_attach1", ; + TabIndex = 9, ; + ToolTipText = "Atasare factura la contract;Facturile din contabilitate ale partenerului de pe contract care sunt atasate la contractul selectat sau nu sunt atasate la nici un contract", ; + Top = 1, ; + ZOrderSet = 27 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'BUT_MODIFICA1' AS but_modifica WITH ; + Anchor = 9, ; + caction = inainte_de_do_modifica_garantie, ; + Left = 733, ; + Name = "BUT_MODIFICA1", ; + TabIndex = 11, ; + ToolTipText = "Modificare", ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 25 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 9, ; + caction = do_adauga_garantie, ; + Left = 703, ; + Name = "But_nou1", ; + TabIndex = 10, ; + ToolTipText = "Se alege dintre facturile din contabilitate ale partenerului de pe contract care sunt atasate la contractul selectat; facturi de 4111 pentru contracte-clienti si 401 sau 404 pentru contracte-furnizori", ; + Top = 1, ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 9, ; + caction = inainte_de_do_sterge_garantie, ; + Left = 763, ; + Name = "But_sterge1", ; + TabIndex = 12, ; + ToolTipText = "Stergere", ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 26 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_Fact_garant' AS _grdbase WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 232, ; + Left = 455, ; + Name = "grid_Fact_garant", ; + Panel = 1, ; + RecordSource = "cCtrFactGarant", ; + RowHeight = 19, ; + TabIndex = 13, ; + Top = 28, ; + Width = 338, ; + ZOrderSet = 18, ; + Column1.ControlSource = "nract", ; + Column1.FontCharSet = 1, ; + Column1.FontName = "Arial", ; + Column1.FontSize = 10, ; + Column1.Name = "cNract", ; + Column1.Width = 67, ; + Column2.ControlSource = "dataact", ; + Column2.FontCharSet = 1, ; + Column2.FontName = "Arial", ; + Column2.FontSize = 10, ; + Column2.Name = "cDataact", ; + Column2.Width = 65, ; + Column3.ControlSource = "valftva", ; + Column3.FontCharSet = 1, ; + Column3.FontName = "Arial", ; + Column3.FontSize = 10, ; + Column3.Format = "rk", ; + Column3.InputMask = (get_mask(12,gnPc)), ; + Column3.Name = "cValftva", ; + Column3.Width = 98, ; + Column4.ControlSource = "garantie", ; + Column4.FontCharSet = 1, ; + Column4.FontName = "Arial", ; + Column4.FontSize = 10, ; + Column4.Format = "rk", ; + Column4.InputMask = (get_mask(12,gnPc)), ; + Column4.Name = "cGarantie", ; + Column4.Width = 70 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_Fact_garant.cDataact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_Fact_garant.cDataact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_Fact_garant.cGarantie.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Garantii retinute", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_Fact_garant.cGarantie.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_Fact_garant.cNract.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_Fact_garant.cNract.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_Fact_garant.cValftva.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare (fara TVA)", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_Fact_garant.cValftva.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 100,185,255 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "PV predare-primire finalã", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 12, ; + Name = "Label1", ; + TabIndex = 26, ; + Top = 164, ; + Width = 144, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label10' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Facturi - Garantii retinute", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 464, ; + Name = "Label10", ; + TabIndex = 17, ; + Top = 9, ; + Width = 146, ; + ZOrderSet = 19 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label12' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Perioadã garantie", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 12, ; + Name = "Label12", ; + TabIndex = 20, ; + Top = 189, ; + Width = 103, ; + ZOrderSet = 21 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label13' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "(nr. luni)", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 201, ; + Name = "Label13", ; + TabIndex = 22, ; + Top = 189, ; + Width = 49, ; + ZOrderSet = 23 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Valoare garantie retinutã", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 12, ; + Name = "Label2", ; + TabIndex = 25, ; + Top = 86, ; + Width = 143, ; + ZOrderSet = 7 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Returnare partialã", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 12, ; + Name = "Label3", ; + TabIndex = 21, ; + Top = 112, ; + Width = 104, ; + ZOrderSet = 9 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Procent garantie retinut", ; + FontCharSet = 1, ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 12, ; + Name = "Label4", ; + TabIndex = 16, ; + Top = 60, ; + Width = 137, ; + ZOrderSet = 5 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "(nr. zile)", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 201, ; + Name = "Label5", ; + TabIndex = 23, ; + Top = 112, ; + Width = 49, ; + ZOrderSet = 11 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Procent returnare", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 12, ; + Name = "Label6", ; + TabIndex = 24, ; + Top = 138, ; + Width = 102, ; + ZOrderSet = 12 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "/", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 232, ; + Name = "Label7", ; + TabIndex = 28, ; + Top = 164, ; + Width = 6, ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label8' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "%", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 201, ; + Name = "Label8", ; + TabIndex = 19, ; + Top = 60, ; + Width = 14, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "%", ; + FontName = "Arial", ; + FontSize = 10, ; + Height = 18, ; + Left = 201, ; + Name = "Label9", ; + TabIndex = 18, ; + Top = 138, ; + Width = 14, ; + ZOrderSet = 17 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'txtGrnt_alerta1' AS textbox WITH ; + ControlSource = "goContract.grnt_alerta1", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "rk", ; + Height = 23, ; + InputMask = "9999", ; + Left = 157, ; + Name = "txtGrnt_alerta1", ; + TabIndex = 3, ; + Top = 109, ; + Width = 43, ; + ZOrderSet = 10 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtGrnt_perioada' AS textbox WITH ; + ControlSource = "goContract.grnt_perioada", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "rk", ; + Height = 23, ; + InputMask = "9999", ; + Left = 157, ; + Name = "txtGrnt_perioada", ; + TabIndex = 8, ; + Top = 186, ; + Width = 43, ; + ZOrderSet = 22 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtGrnt_proc_alerta1' AS textbox WITH ; + ControlSource = "goContract.grnt_proc_alerta1", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(4,0)), ; + Left = 157, ; + Name = "txtGrnt_proc_alerta1", ; + TabIndex = 4, ; + Top = 135, ; + Width = 43, ; + ZOrderSet = 13 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtGrnt_proc_ret' AS textbox WITH ; + ControlSource = "goContract.grnt_proc_ret", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(4,0)), ; + Left = 157, ; + Name = "txtGrnt_proc_ret", ; + TabIndex = 1, ; + Top = 57, ; + Width = 43, ; + ZOrderSet = 6 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtGrnt_pv_data' AS textbox WITH ; + ControlSource = "goContract.grnt_pv_data", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "rk", ; + Height = 23, ; + Left = 241, ; + Name = "txtGrnt_pv_data", ; + TabIndex = 7, ; + Top = 161, ; + Width = 72, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtGrnt_pv_nr' AS textbox WITH ; + ControlSource = "goContract.grnt_pv_nr", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "rk", ; + Height = 23, ; + InputMask = "9999999999", ; + Left = 157, ; + Name = "txtGrnt_pv_nr", ; + TabIndex = 6, ; + Top = 161, ; + Width = 72, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtGrnt_val_ret' AS textbox WITH ; + ControlSource = "goContract.grnt_val_ret", ; + FontName = "Arial", ; + FontSize = 10, ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(10,gnPc)), ; + Left = 157, ; + Name = "txtGrnt_val_ret", ; + TabIndex = 2, ; + Top = 83, ; + Width = 156, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE txtGrnt_proc_ret.Valid + IF !ISNULL(gocontract.valftva) + goContract.grnt_val_ret = gocontract.valftva * goContract.grnt_proc_ret / 100 + thisform.txtGrnt_val_ret.Refresh + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_part_nr_data AS container + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="cmdDenumire" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtClient" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtNumar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData_ctr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_actAd" UniqueID="" Timestamp="" /> + + * + *m: blocheaza_campuri + *m: deblocheaza_campuri + *p: llock + * + + * + BackColor = 197,214,254 + Height = 62 + llock = .T. + Name = "ct_part_nr_data" + Width = 600 + * + + ADD OBJECT 'cmdDenumire' AS commandbutton WITH ; + Caption = "", ; + Enabled = .F., ; + Height = 22, ; + Left = 525, ; + Name = "cmdDenumire", ; + Picture = ..\grafice\find.bmp, ; + TabIndex = 2, ; + Top = 5, ; + Width = 29 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Command2' AS commandbutton WITH ; + Anchor = 3, ; + Caption = "Modificã", ; + FontBold = .T., ; + FontCharSet = 238, ; + FontSize = 10, ; + ForeColor = 0,0,255, ; + Height = 47, ; + Left = 8, ; + Name = "Command2", ; + Picture = ..\comun\grafice\lock.bmp, ; + SpecialEffect = 0, ; + TabIndex = 1, ; + Top = 4, ; + Width = 131 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Partener", ; + FontBold = .T., ; + FontSize = 10, ; + Height = 18, ; + Left = 163, ; + Name = "Label3", ; + TabIndex = 6, ; + Top = 8, ; + Width = 57 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nr. contract ", ; + FontBold = .T., ; + FontSize = 10, ; + Height = 18, ; + Left = 163, ; + Name = "Label4", ; + TabIndex = 7, ; + Top = 30, ; + Width = 79 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Data contract ", ; + FontBold = .T., ; + FontSize = 10, ; + Height = 18, ; + Left = 359, ; + Name = "Label9", ; + TabIndex = 8, ; + Top = 30, ; + Width = 90 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lb_actAd' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nr. act ad.", ; + FontBold = .T., ; + FontSize = 10, ; + Height = 18, ; + Left = 163, ; + Name = "lb_actAd", ; + TabIndex = 8, ; + Top = 43, ; + Visible = .F., ; + Width = 67 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'txtClient' AS textbox WITH ; + ControlSource = "goContract.denumire", ; + FontSize = 10, ; + Height = 21, ; + Left = 240, ; + Name = "txtClient", ; + ReadOnly = .T., ; + TabIndex = 5, ; + Top = 6, ; + Width = 283 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtData_ctr' AS textbox WITH ; + ControlSource = "goContract.data", ; + FontSize = 10, ; + Height = 21, ; + Left = 452, ; + Name = "txtData_ctr", ; + ReadOnly = .T., ; + TabIndex = 4, ; + Top = 28, ; + Width = 102 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtNumar' AS textbox WITH ; + ControlSource = "goContract.numar", ; + FontSize = 10, ; + Format = "k", ; + Height = 21, ; + Left = 241, ; + Name = "txtNumar", ; + ReadOnly = .T., ; + TabIndex = 3, ; + Top = 28, ; + Width = 113 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE blocheaza_campuri + this.cmdDenumire.Enabled = .F. + this.txtNumar.ReadOnly = .T. + this.txtData_ctr.ReadOnly = .T. + + + ENDPROC + + PROCEDURE deblocheaza_campuri + this.cmdDenumire.Enabled = .T. + this.txtNumar.ReadOnly = .F. + this.txtData_ctr.ReadOnly = .F. + ENDPROC + + PROCEDURE cmdDenumire.Click + LOCAL lcIdTipPart, lcTitlu + STORE '' TO lcIdTipPart, lcTitlu + + * loCauta = caut_partener(lcIdTipPart, lcTitlu) + + DO CASE + CASE gnParametru_prog = 1 && contracte clienti + lcIdTipPart = [-1] + lcTitlu = 'Clienti' + lcLista = ['4111'] + lcContul = '4111' + CASE gnParametru_prog = 2 && contracte furnizori + lcIdTipPart = [-2] + lcTitlu = 'Furnizori' + lcLista = ['401','404'] + lcContul = '401' + ENDCASE + + lnIdTipPart = GetContIdTipPart(lcContul) + + + *!* IF !EMPTY(lcLista) + *!* lcSql = [select distinct c.cont as cont_part, c.explicatie as explic_cont, c.id_tip_part as tip ] + ; + *!* [from vcoresp_tip_cont c ] + ; + *!* [where c.cont in (] + lcLista + [) ] + *!* ENDIF + *!* lcCursor = 'xcont' + + *!* lnSucces = goExecutor.oExecute(lcSql,lcCursor) + *!* IF lnSucces < 0 + *!* aMessagebox('Eroare!',0+48, 'Atentie!') + *!* RETURN + *!* ENDIF + + + *!* SELECT xcont + *!* BROWSE + + *!* SELECT xcont + *!* LOCATE FOR VAL(cont_part) = VAL(lcContul) + *!* lcContul = cont_part + *!* lcTip = ALLTRIM(STR(tip)) + + locauta = CautPartenerContabilitate(GetHash([cTitlu=>] + lcTitlu + [??lAdaugCorespondente=>1??cTipuriParteneri=>] + ALLTRIM(STR(lnIdTipPart)))) + + IF buton = 2 + RETURN + ENDIF + + goContract.id_part = loCauta.id_part + goContract.denumire = loCauta.denumire + THIS.PARENT.txtClient.REFRESH + * THISFORM.pageframe1.page1.txtClient.REFRESH + + ENDPROC + + PROCEDURE Command2.Click + Parameters tlNou + && la adaugarea unui contract nou, intra cu butonul de modificare "apasat" + + *!* If Alltrim(goContract.tip_istoric) <> 'C' && pentru istoric Acte aditionale, sa nu mai pot face modificari, doar vizualizari + *!* AMESSAGEBOX('Nu se poate modifica istoricul unui contract!',0+48,'Atentie!') + *!* Return + *!* Endif + Local llNou + llNou = tlNou + + If This.Parent.lLock + If !llNou + AMESSAGEBOX('Toate modificarile au efect imediat! Nu puteti da renuntare!',0+48,'Atentie!') + Endif + + This.Picture = 'unlock.bmp' + This.Parent.lLock = .F. + This.Caption = 'Salveaza' + This.Parent.deblocheaza_campuri() + + ****** + If Type('podg_dg.but_termin1') <> 'U' + podg_dg.deblocheaza_campuri() + Endif + If Type('podg_ob.but_termin1') <> 'U' + podg_ob.deblocheaza_campuri() + Endif + If Type('podg_tf.but_termin1') <> 'U' + podg_tf.deblocheaza_campuri() + Endif + If Type('podg_link.but_termin1') <> 'U' + podg_link.deblocheaza_campuri() + Endif + If Type('podg_fact.but_termin1') <> 'U' + podg_fact.deblocheaza_campuri() + Endif + If Type('podg_tl.but_termin1') <> 'U' + podg_tl.deblocheaza_campuri() + Endif + If Type('podg_obs.but_termin1') <> 'U' + podg_obs.deblocheaza_campuri() + Endif + ****** + Else + If Type('podg_fact.but_termin1') <> 'U' + If (goContract.opt_facturare = 1 Or goContract.opt_facturare = 2) And Empty(Nvl(goContract.id_nota,0)) + AMESSAGEBOX('Alegeti nota contabila !',0+48) + + If Type('podg_dg.but_termin1') <> 'U' + podg_dg.blocheaza_campuri() + Endif + If Type('podg_ob.but_termin1') <> 'U' + podg_ob.blocheaza_campuri() + Endif + If Type('podg_tf.but_termin1') <> 'U' + podg_tf.blocheaza_campuri() + Endif + If Type('podg_link.but_termin1') <> 'U' + podg_link.blocheaza_campuri() + Endif + If Type('podg_fact.but_termin1') <> 'U' + podg_fact.blocheaza_campuri() + Endif + If Type('podg_tl.but_termin1') <> 'U' + podg_tl.blocheaza_campuri() + Endif + If Type('podg_obs.but_termin1') <> 'U' + podg_obs.blocheaza_campuri() + Endif + + Return + Endif + Endif + + + This.Picture = 'lock.bmp' + This.Parent.lLock = .T. + This.Caption = 'Modifica' + This.Parent.blocheaza_campuri() + + If Empty(Nvl(goContract.id_part,0)) + AMESSAGEBOX('Alegeti partenerul!') + + If Type('podg_dg.but_termin1') <> 'U' + podg_dg.blocheaza_campuri() + Endif + If Type('podg_ob.but_termin1') <> 'U' + podg_ob.blocheaza_campuri() + Endif + If Type('podg_tf.but_termin1') <> 'U' + podg_tf.blocheaza_campuri() + Endif + If Type('podg_link.but_termin1') <> 'U' + podg_link.blocheaza_campuri() + Endif + If Type('podg_fact.but_termin1') <> 'U' + podg_fact.blocheaza_campuri() + Endif + If Type('podg_tl.but_termin1') <> 'U' + podg_tl.blocheaza_campuri() + Endif + If Type('podg_obs.but_termin1') <> 'U' + podg_obs.blocheaza_campuri() + Endif + + This.Parent.cmdDenumire.SetFocus() + Return + Endif + + If pnGNnumar<>0 And Upper(Alltrim(Str(pnGNnumar))) <> Upper(Alltrim(goContract.numar)) + poGeneratorNumere.dezaloca_numar(13) + Endif + Do modifica_ctr_dg With goContract In oproceduri_roacontracte.prg + + && sa nu mai faca de fiecare data do_cauta (sa aduca toate contactele de pe server) + Select cContracte + Locate For id_ctr = goContract.id_ctr + If Found() + Gather Name goContract Memo + Endif + + If Type('podg_dg.but_termin1') <> 'U' + podg_dg.blocheaza_campuri() + Endif + If Type('podg_ob.but_termin1') <> 'U' + podg_ob.blocheaza_campuri() + Endif + If Type('podg_tf.but_termin1') <> 'U' + podg_tf.blocheaza_campuri() + Endif + If Type('podg_link.but_termin1') <> 'U' + podg_link.blocheaza_campuri() + Endif + If Type('podg_fact.but_termin1') <> 'U' + podg_fact.blocheaza_campuri() + Endif + If Type('podg_tl.but_termin1') <> 'U' + podg_tl.blocheaza_campuri() + Endif + If Type('podg_obs.but_termin1') <> 'U' + podg_obs.blocheaza_campuri() + Endif + + Endif + + + + + + ENDPROC + + PROCEDURE Command2.Refresh + IF THIS.PARENT.lLock + THIS.PICTURE = 'lock.bmp' + THIS.CAPTION = 'Modifica' + ELSE + THIS.PICTURE = 'unlock.bmp' + THIS.CAPTION = 'Salveaza' + ENDIF + + + + + + ENDPROC + + PROCEDURE Label3.Init + DO CASE + CASE gnParametru_prog = 1 + THIS.CAPTION = 'Client' + CASE gnParametru_prog = 2 + THIS.CAPTION = 'Furnizor' + ENDCASE + + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_part_nr_data_2 AS container + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdDenumire" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtClient" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtNumar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData_ctr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_actAd" UniqueID="" Timestamp="" /> + + * + *m: blocheaza_campuri + *m: deblocheaza_campuri + *p: llock + * + + * + BackColor = 206,241,255 + Height = 34 + llock = .T. + Name = "ct_part_nr_data_2" + Width = 795 + * + + ADD OBJECT '_shape1' AS _shape WITH ; + Height = 34, ; + Left = 0, ; + Name = "_shape1", ; + SpecialEffect = 0, ; + Top = 0, ; + Width = 795, ; + ZOrderSet = 0 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" /> + + ADD OBJECT 'cmdDenumire' AS commandbutton WITH ; + Caption = "", ; + Height = 22, ; + Left = 371, ; + Name = "cmdDenumire", ; + Picture = ..\grafice\find.bmp, ; + TabIndex = 2, ; + Top = 5, ; + Width = 29 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Partener", ; + FontBold = .T., ; + FontSize = 10, ; + ForeColor = 255,0,0, ; + Height = 18, ; + Left = 7, ; + Name = "Label3", ; + TabIndex = 6, ; + Top = 9, ; + Width = 57 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nr. / Data contract", ; + FontBold = .T., ; + FontSize = 10, ; + ForeColor = 255,0,0, ; + Height = 18, ; + Left = 440, ; + Name = "Label4", ; + TabIndex = 7, ; + Top = 9, ; + Width = 116 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "/", ; + FontBold = .T., ; + FontSize = 10, ; + Height = 18, ; + Left = 674, ; + Name = "Label9", ; + TabIndex = 8, ; + Top = 9, ; + Width = 6 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lb_actAd' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nr. act ad.", ; + FontBold = .T., ; + FontSize = 8, ; + Height = 16, ; + Left = 440, ; + Name = "lb_actAd", ; + TabIndex = 8, ; + Top = 18, ; + Visible = .F., ; + Width = 55 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'txtClient' AS textbox WITH ; + ControlSource = "goContract.denumire", ; + DisabledBackColor = 255,255,255, ; + FontSize = 10, ; + Format = "!k", ; + Height = 21, ; + Left = 80, ; + Name = "txtClient", ; + ReadOnly = .T., ; + TabIndex = 5, ; + Top = 6, ; + Width = 289 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtData_ctr' AS textbox WITH ; + ControlSource = "goContract.data", ; + FontSize = 10, ; + Format = "k", ; + Height = 21, ; + Left = 686, ; + Name = "txtData_ctr", ; + TabIndex = 4, ; + Top = 6, ; + Width = 102 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtNumar' AS textbox WITH ; + ControlSource = "goContract.numar", ; + FontSize = 10, ; + Format = "k", ; + Height = 21, ; + Left = 554, ; + Name = "txtNumar", ; + TabIndex = 3, ; + Top = 6, ; + Width = 113 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE blocheaza_campuri + this.cmdDenumire.Enabled = .F. + this.txtNumar.ReadOnly = .T. + this.txtData_ctr.ReadOnly = .T. + + + ENDPROC + + PROCEDURE deblocheaza_campuri + this.cmdDenumire.Enabled = .T. + this.txtNumar.ReadOnly = .F. + this.txtData_ctr.ReadOnly = .F. + ENDPROC + + PROCEDURE cmdDenumire.Click + LOCAL lcIdTipPart, lcTitlu + STORE '' TO lcIdTipPart, lcTitlu + + * loCauta = caut_partener(lcIdTipPart, lcTitlu) + + DO CASE + CASE gnParametru_prog = 1 && contracte clienti + lcIdTipPart = [-1] + lcTitlu = 'Clienti' + lcLista = ['4111'] + lcContul = '4111' + CASE gnParametru_prog = 2 && contracte furnizori + lcIdTipPart = [-2] + lcTitlu = 'Furnizori' + lcLista = ['401','404'] + lcContul = '401' + ENDCASE + + lnIdTipPart = GetContIdTipPart(lcContul) + + + *!* IF !EMPTY(lcLista) + *!* lcSql = [select distinct c.cont as cont_part, c.explicatie as explic_cont, c.id_tip_part as tip ] + ; + *!* [from vcoresp_tip_cont c ] + ; + *!* [where c.cont in (] + lcLista + [) ] + *!* ENDIF + *!* lcCursor = 'xcont' + + *!* lnSucces = goExecutor.oExecute(lcSql,lcCursor) + *!* IF lnSucces < 0 + *!* aMessagebox('Eroare!',0+48, 'Atentie!') + *!* RETURN + *!* ENDIF + + + *!* SELECT xcont + *!* BROWSE + + *!* SELECT xcont + *!* LOCATE FOR VAL(cont_part) = VAL(lcContul) + *!* lcContul = cont_part + *!* lcTip = ALLTRIM(STR(tip)) + + locauta = CautPartenerContabilitate(GetHash([cTitlu=>] + lcTitlu + [??lAdaugCorespondente=>1??cTipuriParteneri=>] + ALLTRIM(STR(lnIdTipPart)))) + + IF buton = 2 + RETURN + ENDIF + + goContract.id_part = loCauta.id_part + goContract.denumire = loCauta.denumire + THIS.PARENT.txtClient.REFRESH + * THISFORM.pageframe1.page1.txtClient.REFRESH + + ENDPROC + + PROCEDURE Label3.Init + DO CASE + CASE gnParametru_prog = 1 + THIS.CAPTION = 'Client' + CASE gnParametru_prog = 2 + THIS.CAPTION = 'Furnizor' + ENDCASE + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_actaditional AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_actaditional" + * + + PROCEDURE make_sql + LPARAMETERS toRec,tnId + + lcActiune = ALLTRIM(THIS.cActiune) + lcId_util = ALLTRIM(STR(gnidutil)) + + IF INLIST(lcActiune, "UPDATE",'INSERT') AND TYPE('toRec') != "O" + RETURN .F. + ENDIF + + IF INLIST(lcActiune, "UPDATE",'DELETE') AND TYPE('tnId') != "N" + RETURN .F. + ENDIF + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = ALLTRIM(STR(tnId)) + ENDIF + + IF INLIST(lcActiune, "UPDATE",'INSERT') + lcId_ctr = NVL(ALLTRIM(STR(goContract.id_ctr)),"0") + lcId_part = NVL(ALLTRIM(STR(goContract.id_part)),"0") + lcId_tip_ctr = NVL(ALLTRIM(STR(goContract.id_tip_ctr)),"0") + lcNumar = NVL(ALLTRIM(toRec.numar),"0") + lcData = ALLTRIM(DTOS(toRec.data)) + lcDescriere = NVL(ALLTRIM(toRec.descriere),"") + ENDIF + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin pack_crm.adauga_act_aditional(]+lcId_ctr+ [,]+lcId_part+ [,] + lcId_tip_ctr+[,']+ lcNumar+[',]+; + [to_date(']+lcData+[','YYYYMMDD'),']+lcDescriere+ [',]+lcId_util+[); end;] + + Case lcActiune = "UPDATE" + lcSql = [begin pack_def.modifica_contract(]+lcId+[,']+lcNumar+[',]+; + [to_date(']+lcData+[','YYYYMMDD'),]+lcId_tip_ctr + [,]+lcInactiv+[,]+lcId_util+[); end;] + + Case lcActiune = "DELETE" + lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;] + ENDCASE + + this.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_selectie AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_selectie" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcId_util = Alltrim(Str(gnIdUtil)) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcSelectie = Strtran(Alltrim(toRec.selectie),['],['']) + ENDIF + + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin PACK_CTR_FURNIZORI.adauga_selectie('] + lcSelectie + [',]+lcId_util+[); end;] + + Case lcActiune = "UPDATE" + lcSql = [begin PACK_CTR_FURNIZORI.modifica_selectie(]+lcId +[,']+lcSelectie+ [',]+ lcId_util+[); end;] + + Case lcActiune = "DELETE" + * lcSql = [begin pack_nomenclatoare.sterge_tip_ctr(]+lcId+[,]+lcId_util+[); end;] + lcSql = [begin PACK_CTR_FURNIZORI.sterge_selectie(]+lcId+ [,]+ lcId_util+[); end;] + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_actaditional_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_data" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_numar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_descriere" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_actaditional1" UniqueID="" Timestamp="" /> + + * + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 143 + Name = "frm_actaditional_nou" + nid = .F. + orec = .NULL. + Width = 353 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 293 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 61 + Lb_titlu_alb_b121.Caption = "ACT ADIÞIONAL" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 324 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 96 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 8 + * + + ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ; + Left = 295, ; + Name = "BUT_RENUNT1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_data' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 7, ; + Name = "Clb_data", ; + TabIndex = 2, ; + Top = 68, ; + Width = 314, ; + ZOrderSet = 7, ; + TEXT_SIMPLU1.ControlSource = "poRec.data", ; + TEXT_SIMPLU1.Format = "!K", ; + TEXT_SIMPLU1.Left = 114, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + Lb_simplu1.Caption = "Data", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_descriere' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 7, ; + Name = "Clb_descriere", ; + TabIndex = 3, ; + Top = 105, ; + Width = 314, ; + ZOrderSet = 7, ; + Text_simplu1.ControlSource = "poRec.descriere", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Left = 114, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Descriere", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_numar' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 7, ; + Name = "Clb_numar", ; + TabIndex = 1, ; + Top = 40, ; + Width = 314, ; + ZOrderSet = 7, ; + Text_simplu1.ControlSource = "poRec.numar", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Left = 114, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Numãr", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_actaditional1' AS cus_odata_actaditional WITH ; + Left = 180, ; + Name = "Cus_odata_actaditional1", ; + Top = 8 + *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + Local plReturn + lccontrol = Upper(This.ActiveControl.BaseClass ) + If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.ActiveControl.ControlSource + &lcval=Thisform.ActiveControl.Value + Endif + + Do Case + Case Empty(porec.numar) + amessagebox('Nu ati completat numarul actului aditional!',0+48,"Atentie") + this.clb_numar.texT_SIMPLU1.SetFocus() + plReturn=.F. + Case Empty(porec.data) + amessagebox('Nu ati completat data actului aditional!',0+48,"Atentie") + this.clb_data.texT_SIMPLU1.SetFocus() + plReturn=.F. + Case Empty(porec.descriere) + amessagebox('Nu ati completat desrierea actului aditional!',0+48,"Atentie") + this.clb_descriere.texT_SIMPLU1.SetFocus() + plReturn=.F. + Otherwise + plReturn=This.cus_odata_actaditional1.salvare(This.OREC,This.NID) + endcase + + Return plReturn + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + DODEFAULT() + THIS.orec = toRec + THIS.nid = tnId + this.cus_odata_actaditional1.cactiune = tcActiune + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_alerte AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Ck_data_ctr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cDenumire.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cDenumire.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cNumar.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cNumar.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cData.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cData.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cValidat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cValidat.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cNr_alerta.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cNr_alerta.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cInstiintat.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cInstiintat.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cInstiintat.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cDescriere.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_alerte.cDescriere.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_validat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_Instiintat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nr_ctr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nr_alerta" UniqueID="" Timestamp="" /> + + * + cgridsortlist = grid_alerte + DoCreate = .T. + Height = 573 + Name = "frm_alerte" + Width = 708 + _SHAPE1.Anchor = 11 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 948 + _SHAPE2.Anchor = 9 + _SHAPE2.Height = 29 + _SHAPE2.Left = 613 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 92 + LB_TITLU_ALB_B121.Caption = "Alerte garanþii" + LB_TITLU_ALB_B121.Left = 6 + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 12 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 677 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 11 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Left = 192 + GRIDSORT1.Name = "GRIDSORT1" + GRIDSORT1.Top = 6 + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 645, ; + Name = "But_excel1", ; + TabIndex = 10, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + caction = do_listare, ; + Left = 614, ; + Name = "But_listare1", ; + TabIndex = 9, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_data_ctr' AS ck_filtru_numar WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = data, ; + Caption = "Data ctr.", ; + FontName = "Arial Narrow", ; + Left = 72, ; + Name = "Ck_data_ctr", ; + TabIndex = 2, ; + tip = D, ; + Top = 34, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nr_alerta' AS ck_filtru_numar WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = nr_alerta, ; + Caption = "Nr. alertã", ; + FontName = "Arial Narrow", ; + Left = 72, ; + mask = 9, ; + Name = "Ck_nr_alerta", ; + TabIndex = 4, ; + Top = 53 + *< END OBJECT: ClassLib="..\..\roacont\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nr_ctr' AS ck_filtru_text WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = numar, ; + Caption = "Nr. ctr.", ; + Comment = "*:OnResize=LT", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_nr_ctr", ; + TabIndex = 1, ; + Top = 34, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = denumire, ; + Caption = "Partener", ; + Comment = "*:OnResize=LT", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_nume", ; + TabIndex = 3, ; + Top = 53, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 9, ; + Comment = "*:OnResize=LT", ; + Left = 547, ; + Name = "Cmd_cauta1", ; + TabIndex = 7, ; + Top = 42, ; + Width = 67, ; + ZOrderSet = 21 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 9, ; + Comment = "*:OnResize=LT", ; + Left = 619, ; + Name = "Cmd_reset1", ; + TabIndex = 17, ; + Top = 42, ; + Width = 67, ; + ZOrderSet = 18 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_alerte' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 7, ; + DeleteMark = .F., ; + GridLines = 0, ; + HeaderHeight = 38, ; + Height = 429, ; + Left = 6, ; + Name = "grid_alerte", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "cAlerte", ; + ScrollBars = 2, ; + TabIndex = 8, ; + Top = 90, ; + Width = 695, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "denumire", ; + Column1.Name = "cDenumire", ; + Column1.Width = 157, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "numar", ; + Column2.Name = "cNumar", ; + Column2.Width = 33, ; + Column3.ColumnOrder = 3, ; + Column3.ControlSource = "ttod(data)", ; + Column3.Name = "cData", ; + Column3.Width = 70, ; + Column4.ColumnOrder = 6, ; + Column4.ControlSource = "validat", ; + Column4.Name = "cValidat", ; + Column4.Sparse = .F., ; + Column4.Width = 41, ; + Column5.ColumnOrder = 7, ; + Column5.ControlSource = "nr_alerta", ; + Column5.Name = "cNr_alerta", ; + Column5.Width = 33, ; + Column6.ColumnOrder = 5, ; + Column6.ControlSource = "Instiintat", ; + Column6.CurrentControl = "Check1", ; + Column6.FontName = "Arial", ; + Column6.Name = "cInstiintat", ; + Column6.Sparse = .F., ; + Column6.Width = 35, ; + Column7.ColumnOrder = 4, ; + Column7.ControlSource = "descriere", ; + Column7.Name = "cDescriere", ; + Column7.Width = 298 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_alerte.cData.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data contr.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_alerte.cData.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_alerte.cDenumire.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Partener", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_alerte.cDenumire.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_alerte.cDescriere.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere alerta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_alerte.cDescriere.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_alerte.cInstiintat.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + FontName = "Arial", ; + Height = 17, ; + Left = 21, ; + Name = "Check1", ; + Top = 89, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grid_alerte.cInstiintat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Insti- intat", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_alerte.cInstiintat.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_alerte.cNr_alerta.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr alerta", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_alerte.cNr_alerta.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_alerte.cNumar.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. contr.", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_alerte.cNumar.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_alerte.cValidat.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + FontName = "Arial", ; + Height = 17, ; + Left = 33, ; + Name = "Check1", ; + Top = 59, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grid_alerte.cValidat.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Validat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'Label1' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nr. alertã:", ; + FontCharSet = 238, ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 6, ; + Name = "Label1", ; + TabIndex = 13, ; + Top = 519, ; + Width = 44 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "1 - depãºire termen contractual", ; + FontCharSet = 238, ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 50, ; + Name = "Label2", ; + TabIndex = 14, ; + Top = 519, ; + Width = 129 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "2 - restituire procent parþial din garanþia reþinutã la facturã (dupã nr. zile de la PVR)", ; + FontCharSet = 238, ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 50, ; + Name = "Label3", ; + TabIndex = 15, ; + Top = 531, ; + Width = 339 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "3 - restituirea restului de garanþie de pe toate facturile emise conform contractului (dupã perioada de garanþie)", ; + FontCharSet = 238, ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 50, ; + Name = "Label4", ; + TabIndex = 16, ; + Top = 543, ; + Width = 445 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "4 - apropiere ultima ratã definitã", ; + FontCharSet = 238, ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 50, ; + Name = "Label5", ; + TabIndex = 18, ; + Top = 555, ; + Width = 130 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'opt_Instiintat' AS optiongroup WITH ; + AutoSize = .F., ; + BackStyle = 0, ; + ButtonCount = 3, ; + Height = 51, ; + Left = 271, ; + Name = "opt_Instiintat", ; + TabIndex = 6, ; + Top = 34, ; + Value = 1, ; + Width = 97, ; + Option1.AutoSize = .T., ; + Option1.BackStyle = 0, ; + Option1.Caption = "Alerte neînºtiinþate", ; + Option1.FontCharSet = 238, ; + Option1.FontName = "Arial Narrow", ; + Option1.Height = 18, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 1, ; + Option1.Value = 1, ; + Option1.Width = 92, ; + Option2.AutoSize = .T., ; + Option2.BackStyle = 0, ; + Option2.Caption = "Alerte înºtiinþate", ; + Option2.FontCharSet = 238, ; + Option2.FontName = "Arial Narrow", ; + Option2.Height = 18, ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 16, ; + Option2.Width = 82, ; + Option3.AutoSize = .T., ; + Option3.BackStyle = 0, ; + Option3.Caption = "Toate alertele", ; + Option3.FontName = "Arial Narrow", ; + Option3.Height = 18, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 32, ; + Option3.Width = 72 + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'opt_validat' AS optiongroup WITH ; + AutoSize = .F., ; + BackStyle = 0, ; + ButtonCount = 3, ; + Height = 51, ; + Left = 168, ; + Name = "opt_validat", ; + TabIndex = 5, ; + Top = 36, ; + Value = 1, ; + Width = 97, ; + Option1.AutoSize = .T., ; + Option1.BackStyle = 0, ; + Option1.Caption = "Alerte nevalidate", ; + Option1.FontName = "Arial Narrow", ; + Option1.Height = 18, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 1, ; + Option1.Value = 1, ; + Option1.Width = 87, ; + Option2.AutoSize = .T., ; + Option2.BackStyle = 0, ; + Option2.Caption = "Alerte validate", ; + Option2.FontName = "Arial Narrow", ; + Option2.Height = 18, ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 16, ; + Option2.Width = 77, ; + Option3.AutoSize = .T., ; + Option3.BackStyle = 0, ; + Option3.Caption = "Toate alertele", ; + Option3.FontName = "Arial Narrow", ; + Option3.Height = 18, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 32, ; + Option3.Width = 72 + *< END OBJECT: BaseClass="optiongroup" /> + + PROCEDURE actualizeaza_grid1 + Lparameters pcFiltru + + Local lcFiltru + lcFiltru = pcFiltru + If Empty(lcFiltru) + lcFiltru = poAlerte.ca_baza1.cfiltru + Endif + + save_grid_tag(This.grid_alerte) + poAlerte.ca_baza1.cfiltru = lcFiltru + poAlerte.ca_baza1.afisare() + + restore_grid_tag(This.grid_alerte) + If Reccount('cAlerte')>0 + Select cAlerte + Go Top + This.grid_alerte.SetFocus() + Endif + + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru = "" + + If This.ck_nume.Value = 1 + lcFiltru = lcFiltru + This.ck_nume.filtru + Endif + + If This.ck_nr_ctr.Value = 1 + lcFiltru = lcFiltru + This.ck_nr_ctr.filtru + Endif + + If This.ck_data_ctr.Value = 1 + lcFiltru = lcFiltru + This.ck_data_ctr.filtru + Endif + + If This.ck_nr_alerta.Value = 1 + lcFiltru = lcFiltru + This.ck_nr_alerta.filtru + ENDIF + + Do Case + Case This.opt_validat.Value = 1 + lcFiltru = lcFiltru + [ and validat = 0] + Case This.opt_validat.Value = 2 + lcFiltru = lcFiltru + [ and validat = 1] + ENDCASE + + Do Case + Case This.opt_Instiintat.Value = 1 + lcFiltru = lcFiltru + [ and instiintat = 0] + Case This.opt_Instiintat.Value = 2 + lcFiltru = lcFiltru + [ and instiintat = 1] + Endcase + + + If !Empty(lcFiltru) + lcFiltru = Substr(lcFiltru,6) + Else + lcFiltru = [1=1] + Endif + + This.actualizeaza_grid1(lcFiltru) + If Reccount('cAlerte')=0 + aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare") + Endif + this.grid_alerte.SetFocus() + + ENDPROC + + PROCEDURE do_listare + thisform.AlwaysOnTop=.f. + pcdataora = get_Ora(2) + + SELECT cAlerte + REPORT FORM ralerte TO PRINTER PROMPT PREVIEW + thisform.AlwaysOnTop=.t. + ENDPROC + + PROCEDURE do_reset + With This + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + ENDWITH + + this.opt_validat.Value = 1 + this.opt_Instiintat.Value = 1 + this.ck_nr_ctr.SetFocus() + ENDPROC + + PROCEDURE inainte_de_do_excel + DO export_excel_grid WITH this.grid_alerte + + ENDPROC + + PROCEDURE grid_alerte.cInstiintat.Check1.Valid + Private pnId_ctr, pnNr_alerta + Store 0 To pnId_ctr, pnNr_alerta + + Local lcTabel + lcTabel = This.Parent.Parent.RecordSource + + Select (lcTabel) + pnId= id + + lcSql = [update ctr_log_alerte set instiintat = 1,ID_UTIL_INST = ?gnIdUtil,dataora_inst = sysdate where id=?pnId;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + *!* Else + *!* AMESSAGEBOX('Nu se poate modifica starea unei alerte validate deja!') + *!* Endif + + ENDPROC + + PROCEDURE grid_alerte.cInstiintat.Check1.When + Local lcTabel + lcTabel = This.Parent.Parent.RecordSource + + Select (lcTabel) + If instiintat = 1 + Return .F. + Endif + + ENDPROC + + PROCEDURE grid_alerte.cValidat.Check1.LostFocus + thisform.grid_alerte.Refresh + ENDPROC + + PROCEDURE grid_alerte.cValidat.Check1.Valid + Private pnId_ctr, pnNr_alerta + Store 0 To pnId_ctr, pnNr_alerta + *!* If instiintat <> 1 + *!* Messagebox('Pentru a valida o alerta, aceasta trebuie sa fie instiintata',0+16,'Atentie') + *!* Replace Validat With 0 + *!* Return + *!* Endif + Local lcTabel + lcTabel = This.Parent.Parent.RecordSource + + Select (lcTabel) + pnId_ctr = id_ctr + pnNr_alerta = nr_alerta + + lcSql = [begin pack_crm.valideaza_alerta(?pnId_ctr, ?pnNr_alerta, ?gnIdUtil); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + thisform.grid_alerte.Refresh + *!* Else + *!* AMESSAGEBOX('Nu se poate modifica starea unei alerte validate deja!') + *!* Endif + + ENDPROC + + PROCEDURE grid_alerte.cValidat.Check1.When + Local lcTabel + lcTabel = This.Parent.Parent.RecordSource + + Select (lcTabel) + If Validat = 1 + Return .F. + ENDIF + If instiintat <> 1 + aMessagebox('Pentru a valida o alerta, aceasta trebuie sa fie instiintata!',48,'Atentie') + RETURN .F. + ENDIF + + + ENDPROC + + PROCEDURE Label5.Init + IF gnParametru_prog=1 + this.Visible= .T. + ELSE + this.Visible= .F. + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_atas_fact_curs AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValvaluta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtCurs" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdValuta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValuta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValvalutactva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtProc_tva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 146 + Name = "frm_atas_fact_curs" + Width = 344 + _shape1.Anchor = 11 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 324 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 281 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 60 + Lb_titlu_alb_b121.Caption = "Date suplimentare" + Lb_titlu_alb_b121.Left = 10 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 8 + Lb_titlu_alb_b121.Top = 6 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 313 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 6 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 180 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 6 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 9, ; + Left = 283, ; + Name = "But_renunt1", ; + TabIndex = 7, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'cmdValuta' AS commandbutton WITH ; + Caption = "", ; + FontName = "Arial Narrow", ; + Height = 25, ; + Left = 258, ; + Name = "cmdValuta", ; + Picture = ..\grafice\find.bmp, ; + TabIndex = 5, ; + Top = 114, ; + Width = 28 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Valoare valutã (fãrã TVA)", ; + FontCharSet = 238, ; + Height = 17, ; + Left = 10, ; + Name = "Label1", ; + TabIndex = 12, ; + Top = 91, ; + Width = 135 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label17' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Valuta", ; + Height = 17, ; + Left = 10, ; + Name = "Label17", ; + TabIndex = 15, ; + Top = 117, ; + Width = 36 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Curs", ; + Height = 17, ; + Left = 10, ; + Name = "Label2", ; + TabIndex = 13, ; + Top = 39, ; + Width = 29 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Valoare valutã (cu TVA)", ; + FontCharSet = 238, ; + Height = 17, ; + Left = 10, ; + Name = "Label3", ; + TabIndex = 11, ; + Top = 65, ; + Width = 127 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .F., ; + BackStyle = 0, ; + Caption = "Proc TVA", ; + FontName = "Arial Narrow", ; + Height = 35, ; + Left = 262, ; + Name = "Label4", ; + TabIndex = 9, ; + Top = 56, ; + Width = 20, ; + WordWrap = .T. + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "%", ; + Height = 17, ; + Left = 325, ; + Name = "Label5", ; + TabIndex = 10, ; + Top = 65, ; + Width = 13 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'txtCurs' AS textbox WITH ; + ControlSource = "pnFA_curs", ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(10,gnPCurs)), ; + Left = 155, ; + Name = "txtCurs", ; + TabIndex = 1, ; + Top = 36, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtProc_tva' AS textbox WITH ; + ControlSource = "pnFA_procTva", ; + Format = "rk", ; + Height = 23, ; + InputMask = "99", ; + Left = 286, ; + Name = "txtProc_tva", ; + TabIndex = 3, ; + Top = 62, ; + Width = 39 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtValuta' AS textbox WITH ; + ControlSource = "pcFA_nume_val", ; + Height = 23, ; + Left = 155, ; + Name = "txtValuta", ; + ReadOnly = .T., ; + TabIndex = 14, ; + Top = 114, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtValvaluta' AS textbox WITH ; + ControlSource = "pnFA_valvaluta", ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(10,gnPc)), ; + Left = 155, ; + Name = "txtValvaluta", ; + TabIndex = 4, ; + Top = 88, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtValvalutactva' AS textbox WITH ; + ControlSource = "pnFA_valvalutacTVA", ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(10,gnPc)), ; + Left = 155, ; + Name = "txtValvalutactva", ; + TabIndex = 2, ; + Top = 62, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE cmdValuta.Click + locauta = caut_valuta() + If buton=2 + Return + Endif + + pnFA_id_valuta = locauta.id_valuta + pcFA_nume_val = locauta.nume_val + *!* modificare v 2.0.46 + With Thisform.txtVALVALUTA + .InputMask = get_mask(10,Iif(locauta.moneda_nationala=1,gnPc,gnPVal)) + .Refresh() + Endwith + With Thisform.txtValvalutactva + .InputMask = get_mask(10,Iif(locauta.moneda_nationala=1,gnPc,gnPVal)) + .Refresh() + Endwith + *!* modificare v 2.0.46 ^ + Thisform.txtValuta.Refresh + + ENDPROC + + PROCEDURE txtProc_tva.LostFocus + pnFa_valvaluta = pnFa_valvalutactva / (1 + pnFA_procTva/100) + thisform.txtValvaluta.Refresh + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_atas_fact_iregpart AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_Fact_iregPart" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_Fact_iregPart.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nr_fact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_data_fact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" /> + + * + cgridsortlist = grid_Fact_iregPart + DoCreate = .T. + Height = 480 + Name = "frm_atas_fact_iregpart" + Width = 757 + _SHAPE1.Anchor = 11 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 765 + _SHAPE2.Anchor = 9 + _SHAPE2.Height = 29 + _SHAPE2.Left = 695 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 61 + LB_TITLU_ALB_B121.Caption = "Facturi partener" + LB_TITLU_ALB_B121.Left = 6 + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 727 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 168 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 9 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 9, ; + Left = 696, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_data_fact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = dataact, ; + Caption = "Data fact.", ; + FontName = "Arial Narrow", ; + Left = 63, ; + Name = "Ck_data_fact", ; + TabIndex = 1, ; + tip = D, ; + Top = 36, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nr_fact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = nract, ; + Caption = "Nr. fact.", ; + FontName = "Arial Narrow", ; + Left = 6, ; + mask = (replicate('9',12)), ; + Name = "Ck_nr_fact", ; + TabIndex = 4, ; + Top = 36, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 9, ; + Comment = "*:OnResize=LT", ; + Left = 432, ; + Name = "Cmd_cauta1", ; + TabIndex = 34, ; + Top = 33, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 9, ; + Comment = "*:OnResize=LT", ; + Left = 522, ; + Name = "Cmd_reset1", ; + TabIndex = 45, ; + Top = 33, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Command1' AS commandbutton WITH ; + AutoSize = .T., ; + Caption = "Ataºeazã factura la contract", ; + FontCharSet = 238, ; + Height = 27, ; + Left = 357, ; + Name = "Command1", ; + Top = 444, ; + Width = 167 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Command2' AS commandbutton WITH ; + AutoSize = .T., ; + Caption = "Detaºeazã factura de pe contract", ; + FontCharSet = 238, ; + Height = 27, ; + Left = 545, ; + Name = "Command2", ; + Top = 444, ; + Width = 197 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'grid_Fact_iregPart' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 8, ; + DeleteMark = .F., ; + HeaderHeight = 38, ; + Height = 363, ; + HighlightStyle = 2, ; + Left = 6, ; + Name = "grid_Fact_iregPart", ; + Panel = 1, ; + RecordSource = "cFact_neatas", ; + Top = 68, ; + Width = 743, ; + Column1.ControlSource = "fdoc", ; + Column1.Name = "Column1", ; + Column2.ControlSource = "nract", ; + Column2.Name = "Column2", ; + Column3.ControlSource = "ttod(dataact)", ; + Column3.Name = "Column3", ; + Column4.ControlSource = "suma", ; + Column4.Format = "rk", ; + Column4.InputMask = (get_mask(14,gnPc)), ; + Column4.Name = "Column4", ; + Column4.Width = 113, ; + Column5.ControlSource = "explicatia", ; + Column5.Name = "Column5", ; + Column5.Width = 122, ; + Column6.ControlSource = "id_fact", ; + Column6.Name = "Column6", ; + Column7.ControlSource = "cod", ; + Column7.Name = "Column7", ; + Column8.ControlSource = "contract", ; + Column8.Name = "Column8", ; + Column8.Width = 94 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_Fact_iregPart.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_Fact_iregPart.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_Fact_iregPart.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_Fact_iregPart.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_Fact_iregPart.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_Fact_iregPart.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_Fact_iregPart.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma lei cu TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_Fact_iregPart.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_Fact_iregPart.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_Fact_iregPart.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_Fact_iregPart.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "ID fact", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_Fact_iregPart.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_Fact_iregPart.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_Fact_iregPart.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_Fact_iregPart.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Contract", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_Fact_iregPart.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru = pcFiltru + IF EMPTY(lcFiltru) + lcFiltru = poFactGaran.ca_baza1.cfiltru + ENDIF + + save_grid_tag(thisform.grid_Fact_iregPart) + + poFactGaran.ca_baza1.cfiltru = lcFiltru + poFactGaran.ca_baza1.afisare() + restore_grid_tag(thisform.grid_Fact_iregPart) + IF RECCOUNT('cFact_neatas')>0 + thisform.grid_Fact_iregPart.SetFocus() + ENDIF + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru = "" + + If This.ck_nr_fact.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nr_fact.filtru + Endif + If This.ck_data_fact.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_data_fact.filtru + Endif + + lcFiltru = [ and id_part = ]+ Alltrim(Str(goContract.id_part))+; + [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] + lcFiltru + + lcFiltru = Substr(lcFiltru,6) + + Thisform.actualizeaza_grid1(lcFiltru) + Thisform.grid_Fact_iregPart.SetFocus() + + ENDPROC + + PROCEDURE do_reset + With This + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + ENDWITH + ENDPROC + + PROCEDURE Command1.Click + LOCAL lnId_fact, lnCod + STORE 0 TO lnId_fact, lnCod + SELECT cFact_neatas + lnId_fact = id_fact + lnCod = cod + + lcSql=[update act set id_ctr=]+ALLTRIM(STR(goContract.id_ctr))+; + [where id_fact=]+Alltrim(Str(lnId_fact))+[ and cod = ]+ALLTRIM(STR(lnCod)) + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + ENDIF + + lcSql=[update ireg_parteneri set id_ctr=]+ALLTRIM(STR(goContract.id_ctr))+; + [where id_fact=]+Alltrim(Str(lnId_fact))+[ and cod = ]+ALLTRIM(STR(lnCod)) + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + ENDIF + + thisform.do_cauta() + + + + ENDPROC + + PROCEDURE Command2.Click + LOCAL lnId_fact, lnCod + STORE 0 TO lnId_fact, lnCod + SELECT cFact_neatas + lnId_fact = id_fact + lnCod = cod + + lcSql=[update act set id_ctr = NULL ]+; + [where id_fact=]+Alltrim(Str(lnId_fact))+[ and cod = ]+ALLTRIM(STR(lnCod)) + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + ENDIF + + lcSql=[update ireg_parteneri set id_ctr = NULL ]+; + [where id_fact=]+Alltrim(Str(lnId_fact))+[ and cod = ]+ALLTRIM(STR(lnCod)) + lnSucces=goExecutor.oExecute(lcSql) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + ENDIF + + thisform.do_cauta() + + + + ENDPROC + + PROCEDURE grid_Fact_iregPart.Init + this.SetAll("DynamicBackColor","IIF(atasata=1, RGB(206,255,255), RGB(255,255,255))", "Column") + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_atasare_facturi AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_fact_atas" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_fact_atas.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cNr_rata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cData_rata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cValrata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cDen_rata.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_scadentar.cNume_val.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtSumaRate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtSumaFacturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="optFactAtas" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_part_nr_data1" UniqueID="" Timestamp="" /> + + * + *m: afisactual + *p: nsumafact + *p: nsumarate + * + + * + BorderStyle = 1 + cgridsortlist = grid_scadentar;grid_fact_atas + DoCreate = .T. + Height = 514 + Name = "frm_atasare_facturi" + nsumafact = 0 + nsumarate = 0 + Width = 795 + _SHAPE1.Anchor = 11 + _SHAPE1.Height = 29 + _SHAPE1.Left = 0 + _SHAPE1.Name = "_SHAPE1" + _SHAPE1.Top = 0 + _SHAPE1.Width = 792 + _SHAPE2.Anchor = 9 + _SHAPE2.Height = 29 + _SHAPE2.Left = 727 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 70 + LB_TITLU_ALB_B121.Caption = "Facturi asociate la scadentar" + LB_TITLU_ALB_B121.Left = 12 + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.Top = 6 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 763 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 204 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 732, ; + Name = "But_listare1", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 9, ; + Left = 746, ; + Name = "But_sterge1", ; + Top = 118, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Anchor = 3, ; + AutoSize = .T., ; + Caption = "Ataºare facturi", ; + FontCharSet = 238, ; + Height = 27, ; + Left = 258, ; + Name = "Command1", ; + Top = 118, ; + Width = 84, ; + WordWrap = .T. + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Ct_part_nr_data1' AS ct_part_nr_data WITH ; + BorderColor = 255,255,255, ; + Height = 70, ; + Left = 3, ; + Name = "Ct_part_nr_data1", ; + Top = 36, ; + Width = 600, ; + CMDDENUMIRE.Name = "CMDDENUMIRE", ; + CMDDENUMIRE.Visible = .F., ; + CMDDENUMIRE.ZOrderSet = 2, ; + LABEL3.Left = 16, ; + LABEL3.Name = "LABEL3", ; + LABEL3.Top = 13, ; + LABEL3.ZOrderSet = 3, ; + TXTCLIENT.Left = 87, ; + TXTCLIENT.Name = "TXTCLIENT", ; + TXTCLIENT.Top = 10, ; + TXTCLIENT.ZOrderSet = 4, ; + LABEL4.Left = 16, ; + LABEL4.Name = "LABEL4", ; + LABEL4.Top = 41, ; + LABEL4.ZOrderSet = 5, ; + TXTNUMAR.Left = 87, ; + TXTNUMAR.Name = "TXTNUMAR", ; + TXTNUMAR.Top = 38, ; + TXTNUMAR.ZOrderSet = 6, ; + LABEL9.Left = 209, ; + LABEL9.Name = "LABEL9", ; + LABEL9.Top = 40, ; + LABEL9.ZOrderSet = 7, ; + TXTDATA_CTR.Left = 288, ; + TXTDATA_CTR.Name = "TXTDATA_CTR", ; + TXTDATA_CTR.Top = 37, ; + TXTDATA_CTR.ZOrderSet = 8, ; + COMMAND2.Name = "COMMAND2", ; + COMMAND2.Visible = .F., ; + COMMAND2.ZOrderSet = 0, ; + lb_actAd.Name = "lb_actAd" + *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> + + ADD OBJECT 'grid_fact_atas' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 10, ; + DeleteMark = .F., ; + GridLineColor = 192,192,192, ; + HeaderHeight = 38, ; + Height = 323, ; + Left = 363, ; + Name = "grid_fact_atas", ; + Panel = 1, ; + RecordSource = "cFactAtas", ; + Top = 154, ; + Width = 423, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "id_fact", ; + Column1.Name = "Column1", ; + Column1.Width = 50, ; + Column2.ColumnOrder = 2, ; + Column2.ControlSource = "valvaluta", ; + Column2.Format = "rk", ; + Column2.InputMask = (get_mask(14,MAX(gnPC,gnPVal))), ; + Column2.Name = "Column2", ; + Column2.Width = 81, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "curs", ; + Column3.Format = "rk", ; + Column3.InputMask = (get_mask(10,gnPCurs)), ; + Column3.Name = "Column3", ; + Column3.Width = 48, ; + Column4.ColumnOrder = 6, ; + Column4.ControlSource = "nume_val", ; + Column4.Name = "Column4", ; + Column4.Width = 55, ; + Column5.ColumnOrder = 8, ; + Column5.ControlSource = "nract", ; + Column5.Name = "Column5", ; + Column5.Width = 56, ; + Column6.ColumnOrder = 9, ; + Column6.ControlSource = "ttod(dataact)", ; + Column6.Name = "Column6", ; + Column6.Width = 41, ; + Column7.ColumnOrder = 7, ; + Column7.ControlSource = "fdoc", ; + Column7.Name = "Column7", ; + Column7.Width = 53, ; + Column8.ColumnOrder = 10, ; + Column8.ControlSource = "explicatia", ; + Column8.Name = "Column8", ; + Column8.Width = 111, ; + Column9.ColumnOrder = 3, ; + Column9.ControlSource = "valvalutactva", ; + Column9.InputMask = (get_mask(20,MAX(gnPC,gnPVal))), ; + Column9.Name = "Column9", ; + Column9.Width = 84, ; + Column10.ColumnOrder = 4, ; + Column10.ControlSource = "proctva", ; + Column10.Name = "Column10", ; + Column10.Width = 47 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_fact_atas.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "ID fact.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Proc TVA (%)", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare valuta (fara TVA)", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr fact", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data fact", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel doc", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_fact_atas.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare valuta (cu TVA)", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_fact_atas.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar' AS _grdrow WITH ; + Anchor = 7, ; + ColumnCount = 5, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + GridLineColor = 192,192,192, ; + HeaderHeight = 38, ; + Height = 323, ; + HighlightStyle = 2, ; + Left = 3, ; + Name = "grid_scadentar", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordMark = .F., ; + RecordSource = "cCtrScadentar", ; + RowHeight = 18, ; + TabIndex = 1, ; + Top = 154, ; + Width = 351, ; + Column1.ColumnOrder = 1, ; + Column1.ControlSource = "nr_rata", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cNr_rata", ; + Column1.ReadOnly = .T., ; + Column1.Width = 29, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "data_rata", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cData_rata", ; + Column2.ReadOnly = .T., ; + Column2.Width = 55, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "valrata", ; + Column3.FontName = "Arial Narrow", ; + Column3.Format = "rk", ; + Column3.InputMask = (get_mask(20,MAX(gnPC,gnPVal))), ; + Column3.Name = "cValrata", ; + Column3.ReadOnly = .T., ; + Column3.Width = 97, ; + Column4.ColumnOrder = 2, ; + Column4.ControlSource = "den_rata", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "cDen_rata", ; + Column4.ReadOnly = .T., ; + Column4.Width = 99, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "nume_val", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "cNume_val", ; + Column5.ReadOnly = .T., ; + Column5.Width = 45 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_scadentar.cData_rata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data facturarii", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cData_rata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cDen_rata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Denumire rata", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cDen_rata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cNr_rata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. rata", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cNr_rata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cNume_val.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cNume_val.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_scadentar.cValrata.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare rata valuta (fara TVA)", ; + FontName = "Arial Narrow", ; + Name = "Header1", ; + WordWrap = .T. + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_scadentar.cValrata.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + Anchor = 6, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total valoare rate", ; + Height = 17, ; + Left = 96, ; + Name = "Label1", ; + Top = 485, ; + Width = 96 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total valori facturi", ; + Height = 17, ; + Left = 527, ; + Name = "Label2", ; + Top = 482, ; + Width = 97 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'optFactAtas' AS optiongroup WITH ; + AutoSize = .F., ; + BackStyle = 0, ; + ButtonCount = 2, ; + Height = 37, ; + Left = 444, ; + Name = "optFactAtas", ; + Top = 115, ; + Value = 1, ; + Width = 161, ; + Option1.AutoSize = .T., ; + Option1.BackStyle = 0, ; + Option1.Caption = "Facturile ataºate la ratã", ; + Option1.FontCharSet = 238, ; + Option1.FontName = "Arial Narrow", ; + Option1.Height = 18, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 2, ; + Option1.Value = 1, ; + Option1.Width = 113, ; + Option2.AutoSize = .T., ; + Option2.BackStyle = 0, ; + Option2.Caption = "Toate facturile ataºate la contract", ; + Option2.FontCharSet = 238, ; + Option2.FontName = "Arial Narrow", ; + Option2.Height = 18, ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 16, ; + Option2.Width = 151 + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'txtSumaFacturi' AS textbox WITH ; + Anchor = 12, ; + ControlSource = "thisform.nSumaFact", ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(14,gnPc)), ; + Left = 633, ; + Name = "txtSumaFacturi", ; + Top = 482, ; + Width = 153 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtSumaRate' AS textbox WITH ; + Anchor = 6, ; + ControlSource = "thisform.nSumaRate", ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(14,gnPc)), ; + Left = 201, ; + Name = "txtSumaRate", ; + Top = 482, ; + Width = 153 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid2 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru = pcFiltru + IF EMPTY(lcFiltru) + lcFiltru = poFact_atas.ca_baza1.cfiltru + ENDIF + + save_grid_tag(thisform.grid_fact_atas) + + poFact_atas.ca_baza1.cfiltru = lcFiltru + poFact_atas.ca_baza1.afisare() + restore_grid_tag(thisform.grid_fact_atas) + IF RECCOUNT('cFactAtas')>0 + thisform.grid_fact_atas.SetFocus() + ENDIF + ENDPROC + + PROCEDURE afisactual + LOCAL lcTabelFact + + lcTabelFact = thisform.grid_fact_atas.RecordSource + + SELECT (lcTabelFact) + CALCULATE SUM(ROUND(NVL(valvaluta,0),gnPC)) TO thisform.nSumafact + + thisform.txtSumaFacturi.Refresh + ENDPROC + + PROCEDURE inainte_de_do_listare + lcSel = [{call pack_crm.situatie_rate(] + Alltrim(Str(goContract.id_ctr)) + [)}] + + lcCursor = 'cSitRate' + If goExecutor.oExecuta(lcSel, lcCursor) + + Private pcPartener, pcNrData, pcValuta + pcPartener = Nvl(Alltrim(goContract.denumire),'') + pcNrData = Nvl(Alltrim(goContract.numar),'')+' / ' + Nvl(Dtoc(goContract.Data),'') + pcValuta = Nvl(Alltrim(goContract.nume_val),'') + + pcTitlu = 'Situaþia ratelor' + + Thisform.AlwaysOnTop = .F. + + *** + Select * From (lcCursor) Into Cursor cList Readwrite + Use In (lcCursor) + + Select id_rata, Cnt(id_rata) As Cnt ; + FROM cList ; + HAVING Cnt > 1 ; + GROUP By 1 Order By 2 ; + INTO Cursor crsDuplicate + + Select crsDuplicate + Scan + lnId_rata = id_rata + lnCount = Cnt - 1 + lnGasit = 0 + Select cList + Locate For id_rata = lnId_rata + Do While Found( ) + lnGasit = lnGasit + 1 + If lnGasit > 1 + Replace nr_rata With .Null., den_rata With .Null., data_rata With .Null., valrata With .Null., sumvalrate With .Null., valfact With .Null. + Endif + Continue + Enddo + Endscan + *** + + If Used('crsDuplicate') + Use In crsDuplicate + Endif + + goExport.export2frx([cList],[rRate_facturi_extins]) + + If Used('cList') + Use In cList + Endif + + Thisform.AlwaysOnTop = .T. + Endif + + ENDPROC + + PROCEDURE inainte_de_do_sterge + LOCAL lcFact_atas, lnId_rata, lnId_fact, lcSql, lnSucces + + lcFact_atas = THISFORM.grID_FACT_ATAS.RECORDSOURCE + + SELECT (lcFact_atas) + lnId_rata = id_rata + lnId_fact = id_fact + + lcSql = [begin pack_crm.sterge_rata_fact(] + ALLTRIM(STR(lnId_rata)) + [,] ; + + ALLTRIM(STR(lnId_fact)) + [,] + ALLTRIM(STR(gnIdUtil)) + [); end;] + lnSucces = goExecutor.oExecute(lcSql) + + IF lnSucces < 0 + aMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + RETURN + ENDIF + + THISFORM.actualizeaza_grid2() + + ENDPROC + + PROCEDURE Init + DODEFAULT() + + LOCAL lcTabelRate, lcTabelFact + lcTabelRate = thisform.grid_scadentar.RecordSource + lcTabelFact = thisform.grid_fact_atas.RecordSource + + + SELECT (lcTabelRate) + CALCULATE SUM(ROUND(NVL(valrata,0),gnPC)) TO thisform.nSumarate + + SELECT (lcTabelFact) + CALCULATE SUM(ROUND(NVL(valvaluta,0),gnPC)) TO thisform.nSumafact + + thisform.txtSumaRate.Refresh + thisform.txtSumaFacturi.Refresh + + + ENDPROC + + PROCEDURE Release + IF USED('cRate') + USE IN cRate + ENDIF + ENDPROC + + PROCEDURE Command1.Click + Local lcSel, lcCursor, lnSucces, lcScadentar, lnId_fact, lnId_rata, lcSql, lnSucces + + *!* lcSel = [{call pack_crm.facturi_neatasate(] + ALLTRIM(STR(gnParametru_prog))+ [,] + ALLTRIM(STR(goContract.id_part)) + [,]+ALLTRIM(STR(goContract.id_ctr))+ [)}] + *!* lcCursor = 'cFact_neatas' + *!* lnSucces = goExecutor.oExecute(lcSel, lcCursor) + *!* IF lnSucces < 0 + *!* amessage(goExecutor.cEroare,0+16,"Eroare") + *!* RETURN + *!* ENDIF + + Private poFactGaran + Store '' To poFactGaran + + Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal + lcOrder = [dataact desc] + lcgroup = [] + lcFiltru = [ 1=1 ] + + Do Case + Case gnParametru_prog=1 + lcSchema = [] + lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, debit as suma, id_fact, cod, explicatia, ]+; + [(case when id_fact in (select id_fact from vctr_rate_facturi) then 1 else 0 end) as atasata ]+; + [ from vireg_emise_in_perioada ] + lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+; + [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] + Case gnParametru_prog=2 + lcSchema = [] + lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, credit as suma, id_fact, cod, explicatia, ]+; + [(case when id_fact in (select id_fact from vctr_rate_facturi) then 1 else 0 end) as atasata ]+; + [ from vireg_emise_in_perioada ] + lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+; + [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] + + Otherwise + lcFiltruOriginal = [] + Endcase + + llAfiseaza = .F. + llModParam = .T. + + gencursor('poFactGaran','cFact_neatas', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) + poFactGaran.ca_baza1.afisare() + + ***---------------------------- + + lcScadentar = Thisform.grid_scadentar.RecordSource + + Select cFact_neatas + loip = Createobject('frm_atas_fact_iregpart') + loip.lb_titlu_alb_b121.Caption = 'Facturi fara contract sau corespunzatoare contractului '+Alltrim(goContract.numar) + ' / ' + Dtoc(goContract.Data) + loip.Show(1) + + If buton = 2 + Return + Endif + + Private pnFA_valvaluta, pnFA_valvalutacTVA, pnFA_procTVA, pnFA_valctva, pnFA_curs, pnFA_id_valuta, pcFA_nume_val, pnValRata + Store 0 To pnFA_valvaluta, pnFA_valvalutacTVA, pnFA_procTVA, pnFA_curs, pnFA_id_valuta, pnValRata + Store '' To pcFA_nume_val + + pnFA_valctva = cFact_neatas.suma + + + Select (lcScadentar) + lnId_rata = id_rata + pnFA_id_valuta = id_valuta + pcFA_nume_val = Upper(Alltrim(nume_val)) + pnValRata = valrata && ca sa aflu cursul + + pnFA_valvaluta = pnValRata + pnFA_procTVA = goContract.proc_tva + pnFA_valvalutacTVA = Round(pnFA_valvaluta * (1+pnFA_procTVA/100),gnPC) + + *IF pnFA_valctva <> 0 + If pnFA_valvalutacTVA <> 0 + pnFA_curs = Round(pnFA_valctva/pnFA_valvalutacTVA,gnPCurs) + Endif + + + loafc = Createobject('frm_atas_fact_curs') + loafc.Show(1) + + If buton = 2 + Return + Endif + + lnId_fact = cFact_neatas.id_fact + + If !Empty(lnId_fact) + + lcSql = [begin pack_crm.adauga_rata_fact(] + Alltrim(Str(lnId_rata)) + [,] + Alltrim(Str(lnId_fact)) + [,] ; + + Alltrim(Str(pnFA_valvaluta,14,gnPC)) + [,] + Alltrim(Str(pnFA_valvalutacTVA,14,gnPC)) + [,] + Alltrim(Str(pnFA_procTVA)) + [,] ; + + Alltrim(Str(pnFA_curs,10,gnPCurs)) + [,] + Alltrim(Str(pnFA_id_valuta)) + [,] + Alltrim(Str(gnIdUtil)) + [); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX('pack_crm.cauta_ctr_art'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + Thisform.actualizeaza_grid2() + + *!* lcId_ctr = ALLTRIM(STR(goContract.id_ctr)) + *!* lcId_fact = ALLTRIM(STR(lnId_fact)) + *!* lcSql = [update act set id_ctr=] + lcId_ctr + [ where id_fact=]+lcId_fact + [ and id_ctr is null and sters=0] + *!* lnSucces = goExecutor.oExecute(lcSql) + + *!* IF lnSucces < 0 + *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + *!* RETURN + *!* ENDIF + + Endif + + + + ENDPROC + + PROCEDURE grid_fact_atas.AfterRowColChange + LPARAMETERS nColIndex + + SELECT cFactAtas + lnId_fact = id_fact + + + + lcTabelScadentar = thisform.grid_scadentar.RecordSource + UPDATE (lcTabelScadentar) SET lid_fact = 0 + IF USED('cRate') + USE IN cRate + ENDIF + + SELECT id_rata FROM cFactAtas WHERE id_fact = lnId_fact INTO CURSOR cRate + + UPDATE (lcTabelScadentar) SET lid_fact = 1 WHERE id_rata in (select id_rata from cRate) + + thisform.grid_scadentar.SetAll('DynamicBackColor','IIF(cCtrScadentar.Lid_fact=1, RGB(217,217,255), RGB(255,255,255))','Column') + + + + + + + + ENDPROC + + PROCEDURE grid_scadentar.AfterRowColChange + LPARAMETERS nColIndex + + LOCAL lcTabelFactAtas + lcTabelFactAtas = thisform.grid_fact_atas.RecordSource + + IF thisform.optFactAtas.Value = 1 + SELECT (lcTabelFactAtas) + SET FILTER TO id_rata = cCtrScadentar.id_rata + ELSE + SELECT (lcTabelFactAtas) + SET FILTER TO + ENDIF + + thisform.grID_FACT_ATAS.SetAll("DynamicBackColor","IIF(id_rata = cCtrScadentar.id_rata, RGB(206,255,255), RGB(255,255,255))", "Column") + + thisform.afisactual + thisform.grid_fact_atas.Refresh + thisform.Refresh + + + ENDPROC + + PROCEDURE optFactAtas.Valid + thisform.grid_scadentar.AfterRowColChange + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_contracte_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_pageframe1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_date_generale1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_date_generale1.ck_suspendat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_fact1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_part_nr_data_21" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_obiectul1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page1.Ct_dg_date_generale_frz1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page2.Ct_dg_tf1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page3.Ct_atasamente1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pageframe1.Page4.Ct_dg_tl1" UniqueID="" Timestamp="" /> + + * + *m: afisactual_obiectul + *m: do_adauga_garantie + *m: do_adauga_obiectul + *m: do_adauga_rate + *m: do_ataseaza_garantie + *m: do_download + *m: do_open + *m: do_upload + *m: inainte_de_do_listare_rate + *m: inainte_de_do_modifica_garantie + *m: inainte_de_do_sterge_atasament + *m: inainte_de_do_sterge_garantie + *m: inainte_de_do_sterge_obiectul + *m: inainte_de_do_sterge_rate + *p: clistaidarticole + *p: cxmlarticole + *p: llnou + *p: ncoef_discount + *p: ndiscountmediu + *p: nsumaarticole + *p: nvalcdiscount + *p: nvaldiscount + * + + * + BorderStyle = 3 + clistaidarticole = + cxmlarticole = + DoCreate = .T. + Height = 546 + llnou = .F. + Name = "frm_contracte_nou" + ncoef_discount = 0 + ndiscountmediu = 0 + nsumaarticole = 0 + nvalcdiscount = 0 + nvaldiscount = 0 + Width = 808 + _memberdata = + + + _shape1.Anchor = 11 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 876 + _shape2.Anchor = 12 + _shape2.Left = 737 + _shape2.Name = "_shape2" + _shape2.Top = 0 + Lb_titlu_alb_b121.Caption = "Contract" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 4 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 779 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 2 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 204 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 6 + But_renunt1.Anchor = 9 + But_renunt1.Left = 750 + But_renunt1.Name = "But_renunt1" + But_renunt1.TabIndex = 3 + But_renunt1.Top = 1 + * + + ADD OBJECT '_pageframe1' AS _pageframe WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 560, ; + Left = 0, ; + Name = "_pageframe1", ; + PageCount = 4, ; + TabIndex = 1, ; + Top = 28, ; + Width = 810, ; + Page1.BackColor = 255,255,255, ; + Page1.Caption = "Date generale", ; + Page1.FontBold = .T., ; + Page1.FontName = "Arial", ; + Page1.Name = "Page1", ; + Page1.PageOrder = 1, ; + Page2.BackColor = 255,255,255, ; + Page2.Caption = "Rate", ; + Page2.FontBold = .T., ; + Page2.FontName = "Arial", ; + Page2.Name = "Page2", ; + Page2.PageOrder = 2, ; + Page3.BackColor = 255,255,255, ; + Page3.Caption = "Doc. ataºate", ; + Page3.FontBold = .T., ; + Page3.FontCharSet = 238, ; + Page3.FontName = "Arial", ; + Page3.Name = "Page3", ; + Page3.PageOrder = 3, ; + Page4.BackColor = 255,255,255, ; + Page4.Caption = "Garanþii", ; + Page4.FontBold = .T., ; + Page4.FontCharSet = 238, ; + Page4.FontName = "Arial", ; + Page4.Name = "Page4", ; + Page4.PageOrder = 4 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" /> + + ADD OBJECT '_pageframe1.Page1.Ct_dg_date_generale1' AS ct_dg_date_generale WITH ; + Anchor = 3, ; + Left = 5, ; + Name = "Ct_dg_date_generale1", ; + TabIndex = 2, ; + Top = 49, ; + Shape1.Name = "Shape1", ; + Shape3.Name = "Shape3", ; + Shape7.Name = "Shape7", ; + txtDescriere.Name = "txtDescriere", ; + Shape5.Name = "Shape5", ; + txtMotiv_incetat.Name = "txtMotiv_incetat", ; + Label6.Name = "Label6", ; + txtData_intern.Name = "txtData_intern", ; + ck_incetat.Alignment = 0, ; + ck_incetat.Name = "ck_incetat", ; + Label10.Name = "Label10", ; + txtDurata.Name = "txtDurata", ; + Label4.Name = "Label4", ; + Label17.Name = "Label17", ; + Label2.Name = "Label2", ; + txtData_incetat.Name = "txtData_incetat", ; + txtNumar_intern.Name = "txtNumar_intern", ; + Label12.Name = "Label12", ; + Label21.Name = "Label21", ; + ck_inactiv.Alignment = 0, ; + ck_inactiv.Name = "ck_inactiv", ; + ck_semnat.Alignment = 0, ; + ck_semnat.Name = "ck_semnat", ; + Label1.Name = "Label1", ; + cbo_valute.ControlSource = "goContract.nume_val", ; + cbo_valute.Name = "cbo_valute", ; + txtData_inceput.Name = "txtData_inceput", ; + Label5.Name = "Label5", ; + txtData_sfarsit.Name = "txtData_sfarsit", ; + cbo_sectii.Name = "cbo_sectii", ; + cmdResponsabil.Name = "cmdResponsabil", ; + Label14.Name = "Label14", ; + txtResponsabil.Name = "txtResponsabil", ; + Label9.Name = "Label9", ; + Label20.Name = "Label20", ; + cbo_tip_ctr.Name = "cbo_tip_ctr" + *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> + + ADD OBJECT '_pageframe1.Page1.Ct_dg_date_generale1.ck_suspendat' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Suspendat", ; + ControlSource = "goContract.suspendat", ; + Left = 179, ; + Name = "ck_suspendat", ; + Top = 202 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_pageframe1.Page1.Ct_dg_date_generale_frz1' AS ct_dg_date_generale_frz WITH ; + Anchor = 0, ; + Left = 437, ; + Name = "Ct_dg_date_generale_frz1", ; + TabIndex = 4, ; + Top = 152, ; + Shape1.Name = "Shape1", ; + Label7.Name = "Label7", ; + txtOfertanti.Name = "txtOfertanti", ; + Label3.Name = "Label3", ; + cbo_selectii.Name = "cbo_selectii" + *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> + + ADD OBJECT '_pageframe1.Page1.Ct_dg_fact1' AS ct_dg_fact WITH ; + Anchor = 0, ; + Left = 437, ; + Name = "Ct_dg_fact1", ; + TabIndex = 3, ; + Top = 49, ; + _shape1.Name = "_shape1", ; + ck_text_standard.Alignment = 0, ; + ck_text_standard.Name = "ck_text_standard", ; + cboNote.Name = "cboNote", ; + lbNota.Name = "lbNota", ; + cbo_opt_facturare.Name = "cbo_opt_facturare", ; + Label2.Name = "Label2", ; + Label1.Name = "Label1" + *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> + + ADD OBJECT '_pageframe1.Page1.Ct_dg_obiectul1' AS ct_dg_obiectul WITH ; + Anchor = 14, ; + Left = 5, ; + Name = "Ct_dg_obiectul1", ; + TabIndex = 5, ; + Top = 278, ; + _shape3.Name = "_shape3", ; + Shape5.Name = "Shape5", ; + grid_articole.cCant.Header1.Name = "Header1", ; + grid_articole.cCant.Name = "cCant", ; + grid_articole.cCant.Text1.Name = "Text1", ; + grid_articole.cCoef_Discount.Header1.Name = "Header1", ; + grid_articole.cCoef_Discount.Name = "cCoef_Discount", ; + grid_articole.cCoef_Discount.Text1.Name = "Text1", ; + grid_articole.cNume_art.Header1.Name = "Header1", ; + grid_articole.cNume_art.Name = "cNume_art", ; + grid_articole.cNume_art.Text1.Name = "Text1", ; + grid_articole.cNume_val.Header1.Name = "Header1", ; + grid_articole.cNume_val.Name = "cNume_val", ; + grid_articole.cNume_val.Text1.Name = "Text1", ; + grid_articole.Column1.Header1.Name = "Header1", ; + grid_articole.Column1.Name = "Column1", ; + grid_articole.Column1.Text1.Name = "Text1", ; + grid_articole.COLUMN9.Header1.Name = "Header1", ; + grid_articole.COLUMN9.Name = "COLUMN9", ; + grid_articole.COLUMN9.Text1.Name = "Text1", ; + grid_articole.cPret_cu_tva.Check1.Alignment = 0, ; + grid_articole.cPret_cu_tva.Check1.Name = "Check1", ; + grid_articole.cPret_cu_tva.Header1.Name = "Header1", ; + grid_articole.cPret_cu_tva.Name = "cPret_cu_tva", ; + grid_articole.cPret_unitar.Header1.Name = "Header1", ; + grid_articole.cPret_unitar.Name = "cPret_unitar", ; + grid_articole.cPret_unitar.Text1.Name = "Text1", ; + grid_articole.cUM.Header1.Name = "Header1", ; + grid_articole.cUM.Name = "cUM", ; + grid_articole.cUM.Text1.Name = "Text1", ; + grid_articole.cValcDiscount.Header1.Name = "Header1", ; + grid_articole.cValcDiscount.Name = "cValcDiscount", ; + grid_articole.cValcDiscount.Text1.Name = "Text1", ; + grid_articole.cValoare.Header1.Name = "Header1", ; + grid_articole.cValoare.Name = "cValoare", ; + grid_articole.cValoare.Text1.Name = "Text1", ; + grid_articole.cVal_discount.Header1.Name = "Header1", ; + grid_articole.cVal_discount.Name = "cVal_discount", ; + grid_articole.cVal_discount.Text1.Name = "Text1", ; + grid_articole.Name = "grid_articole", ; + _grdfooter1.Height = 35, ; + _grdfooter1.Left = 0, ; + _grdfooter1.Name = "_grdfooter1", ; + _grdfooter1.Top = 108, ; + _grdfooter1.Width = 794, ; + txtDiscount.Name = "txtDiscount", ; + txtValcdiscount.Name = "txtValcdiscount", ; + txtValDiscount.Name = "txtValDiscount", ; + _label1.Name = "_label1", ; + txtValctva.Name = "txtValctva", ; + Label9.Name = "Label9", ; + Label1.Name = "Label1", ; + Label10.Name = "Label10", ; + But_nou1.Name = "But_nou1", ; + But_sterge1.Name = "But_sterge1", ; + Label3.Name = "Label3", ; + Label5.Name = "Label5", ; + Label15.Name = "Label15", ; + txtProc_tva.Name = "txtProc_tva", ; + Label16.Name = "Label16", ; + Label4.Name = "Label4", ; + Label6.Name = "Label6", ; + Label7.Name = "Label7", ; + txtCoef_discount.Name = "txtCoef_discount", ; + txtValftva.Name = "txtValftva", ; + txtValDiscountTotal.Name = "txtValDiscountTotal", ; + Label8.Name = "Label8", ; + ck_pret_cu_tva.Alignment = 0, ; + ck_pret_cu_tva.Name = "ck_pret_cu_tva" + *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> + + ADD OBJECT '_pageframe1.Page1.Ct_part_nr_data_21' AS ct_part_nr_data_2 WITH ; + Anchor = 0, ; + Left = 5, ; + Name = "Ct_part_nr_data_21", ; + TabIndex = 1, ; + Top = 7, ; + _shape1.Name = "_shape1", ; + cmdDenumire.Name = "cmdDenumire", ; + Label3.Name = "Label3", ; + txtClient.Name = "txtClient", ; + Label4.Name = "Label4", ; + txtNumar.Name = "txtNumar", ; + Label9.Name = "Label9", ; + txtData_ctr.Name = "txtData_ctr", ; + lb_actAd.Name = "lb_actAd" + *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> + + ADD OBJECT '_pageframe1.Page2.Ct_dg_tf1' AS ct_dg_tf WITH ; + Anchor = 15, ; + Left = 5, ; + Name = "Ct_dg_tf1", ; + Top = 7, ; + _shape1.Name = "_shape1", ; + _shape3.Name = "_shape3", ; + _label1.Name = "_label1", ; + grid_scadentar.cData_rata.Header1.Name = "Header1", ; + grid_scadentar.cData_rata.Name = "cData_rata", ; + grid_scadentar.cData_rata.Text1.Name = "Text1", ; + grid_scadentar.cData_scadenta.Header1.Name = "Header1", ; + grid_scadentar.cData_scadenta.Name = "cData_scadenta", ; + grid_scadentar.cData_scadenta.Text1.Name = "Text1", ; + grid_scadentar.cDen_rata.Header1.Name = "Header1", ; + grid_scadentar.cDen_rata.Name = "cDen_rata", ; + grid_scadentar.cDen_rata.Text1.Name = "Text1", ; + grid_scadentar.cNr_rata.Header1.Name = "Header1", ; + grid_scadentar.cNr_rata.Name = "cNr_rata", ; + grid_scadentar.cNr_rata.Text1.Name = "Text1", ; + grid_scadentar.cNume_val.Header1.Name = "Header1", ; + grid_scadentar.cNume_val.Name = "cNume_val", ; + grid_scadentar.cNume_val.Text1.Name = "Text1", ; + grid_scadentar.cPret_cu_tva.Check1.Alignment = 0, ; + grid_scadentar.cPret_cu_tva.Check1.Name = "Check1", ; + grid_scadentar.cPret_cu_tva.Header1.Name = "Header1", ; + grid_scadentar.cPret_cu_tva.Name = "cPret_cu_tva", ; + grid_scadentar.cProcent.Header1.Name = "Header1", ; + grid_scadentar.cProcent.Name = "cProcent", ; + grid_scadentar.cProcent.Text1.Name = "Text1", ; + grid_scadentar.cProc_tva.Header1.Name = "Header1", ; + grid_scadentar.cProc_tva.Name = "cProc_tva", ; + grid_scadentar.cProc_tva.Text1.Name = "Text1", ; + grid_scadentar.cRest.ControlSource = "valrataftva - valvaluta", ; + grid_scadentar.cRest.Header1.Name = "Header1", ; + grid_scadentar.cRest.Name = "cRest", ; + grid_scadentar.cRest.Text1.Name = "Text1", ; + grid_scadentar.cValrata.Header1.Name = "Header1", ; + grid_scadentar.cValrata.Name = "cValrata", ; + grid_scadentar.cValrata.Text1.Name = "Text1", ; + grid_scadentar.cValratactva.Header1.Name = "Header1", ; + grid_scadentar.cValratactva.Name = "cValratactva", ; + grid_scadentar.cValratactva.Text1.Name = "Text1", ; + grid_scadentar.cValrataftva.Header1.Name = "Header1", ; + grid_scadentar.cValrataftva.Name = "cValrataftva", ; + grid_scadentar.cValrataftva.Text1.Name = "Text1", ; + grid_scadentar.cValvaluta.Header1.Name = "Header1", ; + grid_scadentar.cValvaluta.Name = "cValvaluta", ; + grid_scadentar.cValvaluta.Text1.Name = "Text1", ; + grid_scadentar.HeaderHeight = 37, ; + grid_scadentar.Name = "grid_scadentar", ; + But_nou1.Name = "But_nou1", ; + But_sterge1.Name = "But_sterge1", ; + Label6.Name = "Label6", ; + txtScadenta_incasare.Name = "txtScadenta_incasare", ; + Label13.Name = "Label13", ; + txtCoef_penalitati.Name = "txtCoef_penalitati", ; + cmdMultiplicaRate.Name = "cmdMultiplicaRate", ; + cmdAplicaScadenta.Name = "cmdAplicaScadenta", ; + Label4.Name = "Label4", ; + _grdfooter1.Name = "_grdfooter1", ; + But_listare1.Name = "But_listare1", ; + ck_pret_cu_tva.Alignment = 0, ; + ck_pret_cu_tva.Name = "ck_pret_cu_tva", ; + ck_afisare_scadenta.Alignment = 0, ; + ck_afisare_scadenta.Name = "ck_afisare_scadenta" + *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> + + ADD OBJECT '_pageframe1.Page3.Ct_atasamente1' AS ct_atasamente WITH ; + Anchor = 15, ; + Left = 5, ; + Name = "Ct_atasamente1", ; + Top = 7, ; + _shape1.Name = "_shape1", ; + grid_linkuri.Column1.Header1.Name = "Header1", ; + grid_linkuri.Column1.Name = "Column1", ; + grid_linkuri.Column1.Text1.Name = "Text1", ; + grid_linkuri.Column2.Header1.Name = "Header1", ; + grid_linkuri.Column2.Name = "Column2", ; + grid_linkuri.Column2.Text1.Name = "Text1", ; + grid_linkuri.Column3.Header1.Name = "Header1", ; + grid_linkuri.Column3.Name = "Column3", ; + grid_linkuri.Column3.Text1.Name = "Text1", ; + grid_linkuri.Column4.Header1.Name = "Header1", ; + grid_linkuri.Column4.Name = "Column4", ; + grid_linkuri.Column4.Text1.Name = "Text1", ; + grid_linkuri.Column5.Header1.Name = "Header1", ; + grid_linkuri.Column5.Name = "Column5", ; + grid_linkuri.Column5.Text1.Name = "Text1", ; + grid_linkuri.Name = "grid_linkuri", ; + But_sterge1.Name = "But_sterge1", ; + But_edit1.Name = "But_edit1", ; + But_attach1.Name = "But_attach1", ; + But_attach2.Name = "But_attach2", ; + Label1.Name = "Label1" + *< END OBJECT: ClassLib="..\comun\clase\ferestre_atasamente.vcx" BaseClass="container" /> + + ADD OBJECT '_pageframe1.Page4.Ct_dg_tl1' AS ct_dg_tl WITH ; + Anchor = 15, ; + Left = 5, ; + Name = "Ct_dg_tl1", ; + Top = 7, ; + _shape3.Name = "_shape3", ; + _shape1.Name = "_shape1", ; + _label1.Name = "_label1", ; + Label1.Name = "Label1", ; + txtGrnt_pv_nr.Name = "txtGrnt_pv_nr", ; + Label4.Name = "Label4", ; + txtGrnt_proc_ret.Name = "txtGrnt_proc_ret", ; + Label2.Name = "Label2", ; + txtGrnt_val_ret.Name = "txtGrnt_val_ret", ; + Label3.Name = "Label3", ; + txtGrnt_alerta1.Name = "txtGrnt_alerta1", ; + Label5.Name = "Label5", ; + Label6.Name = "Label6", ; + txtGrnt_proc_alerta1.Name = "txtGrnt_proc_alerta1", ; + txtGrnt_pv_data.Name = "txtGrnt_pv_data", ; + Label7.Name = "Label7", ; + Label8.Name = "Label8", ; + Label9.Name = "Label9", ; + grid_Fact_garant.cDataact.Header1.Name = "Header1", ; + grid_Fact_garant.cDataact.Name = "cDataact", ; + grid_Fact_garant.cDataact.Text1.Name = "Text1", ; + grid_Fact_garant.cGarantie.Header1.Name = "Header1", ; + grid_Fact_garant.cGarantie.Name = "cGarantie", ; + grid_Fact_garant.cGarantie.Text1.Name = "Text1", ; + grid_Fact_garant.cNract.Header1.Name = "Header1", ; + grid_Fact_garant.cNract.Name = "cNract", ; + grid_Fact_garant.cNract.Text1.Name = "Text1", ; + grid_Fact_garant.cValftva.Header1.Name = "Header1", ; + grid_Fact_garant.cValftva.Name = "cValftva", ; + grid_Fact_garant.cValftva.Text1.Name = "Text1", ; + grid_Fact_garant.Name = "grid_Fact_garant", ; + Label10.Name = "Label10", ; + _grdfooter1.Height = 35, ; + _grdfooter1.Name = "_grdfooter1", ; + Label12.Name = "Label12", ; + txtGrnt_perioada.Name = "txtGrnt_perioada", ; + Label13.Name = "Label13", ; + But_nou1.Name = "But_nou1", ; + BUT_MODIFICA1.Name = "BUT_MODIFICA1", ; + But_sterge1.Name = "But_sterge1", ; + But_attach1.Name = "But_attach1" + *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> + + PROCEDURE afisactual_obiectul + Parameters tlDiscount_salvat + + Local lcTabelArticole, lnPret_cu_tva, lnZecimalePret, lnZecimaleSuma + lcTabelArticole = Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.RecordSource + Store 0 To lnPret_cu_tva + + lnPret_cu_tva = This._pageframe1.page1.ct_dg_obiectul1.ck_pret_cu_tva.Value + + *!* modificare v 2.0.46 : am adaugat ROUND + lnZecimalePret = iif(goContract.moneda_nationala=1,gnPPretV,gnPVal) + lnZecimaleSuma = iif(goContract.moneda_nationala=1,gnPC,gnPVal) + Select (lcTabelArticole) + *CALCULATE SUM(NVL(cant,0)*NVL(pret_unitar,0)) TO THISFORM.nSumaArticole + Calculate Sum(round(Nvl(cant,0)* Iif(lnPret_cu_tva=1,round(Nvl(pret_unitar,0)/(1+goContract.proc_tva/100),lnZecimalePret),Nvl(pret_unitar,0)),lnZecimaleSuma))To Thisform.nSumaArticole + + Calculate Sum(round(Nvl(cant,0)*round(Nvl(pret_unitar,0)*Nvl(coef_discount,0)/100,lnZecimalePret),lnZecimaleSuma)) To Thisform.nValDiscount + Calculate Avg(Nvl(coef_discount,0)) To Thisform.nDiscountMediu + Calculate Sum(round(Nvl(cant,0)*Nvl(pret_unitar,0),lnZecimaleSuma) - round(Nvl(val_discount,0),lnZecimaleSuma)) To Thisform.nValcdiscount + + Thisform.nDiscountMediu = round(Thisform.nDiscountMediu,lnZecimaleSuma) + *!* Thisform.nSumaArticole = Round(Thisform.nSumaArticole, gnPC) + *!* Thisform.nValDiscount = Round(Thisform.nValDiscount, gnPC) + *!* Thisform.nDiscountMediu = Round(Thisform.nDiscountMediu, gnPC) + *!* Thisform.nValcdiscount = Round(Thisform.nValcdiscount, gnPC) + *!* modificare v 2.0.46 ^ + + *thisform._pageframe1.page1.ct_dg_obiectul1.txtSumaArticole.Refresh + Thisform._pageframe1.page1.ct_dg_obiectul1.txtDiscount.Refresh + Thisform._pageframe1.page1.ct_dg_obiectul1.txtValcdiscount.Refresh + Thisform._pageframe1.page1.ct_dg_obiectul1.txtValcdiscount.Refresh + + + *** + If tlDiscount_salvat && cand arat obiectul si valoarea contractului, pe show, sa iau datele salvate + If Thisform.nSumaArticole <> 0 + Thisform.nCoef_discount = Round(Nvl(goContract.val_discount,0) / Thisform.nSumaArticole * 100, 2) + Endif + Else && cand calculez, trebuie sa arat cat imi da + Thisform.nCoef_discount = Thisform.nDiscountMediu + goContract.val_discount = Thisform.nValDiscount + Thisform._pageframe1.page1.ct_dg_obiectul1.txtValDiscountTotal.Refresh + Endif + + + *goContract.valftva = THISFORM.nValcdiscount - NVL(goContract.val_discount,0) + If lnPret_cu_tva=1 + goContract.valctva = Thisform.nValcdiscount + goContract.valftva = round(goContract.valctva / (1+goContract.proc_tva/100),lnZecimaleSuma) + Else + goContract.valftva = Thisform.nSumaArticole - Nvl(goContract.val_discount,0) && Thisform.nValcdiscount + goContract.valctva = round(goContract.valftva * (1+goContract.proc_tva/100),lnZecimaleSuma) + Endif + + Thisform._pageframe1.page1.ct_dg_obiectul1.txtCoef_discount.Refresh + Thisform._pageframe1.page1.ct_dg_obiectul1.txtValDiscount.Refresh + Thisform._pageframe1.page1.ct_dg_obiectul1.txtValcdiscount.Refresh + + Thisform._pageframe1.page1.ct_dg_obiectul1.txtValftva.Refresh + Thisform._pageframe1.page1.ct_dg_obiectul1.txtValctva.Refresh + + Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.Refresh + + + ENDPROC + + PROCEDURE do_adauga_garantie + Private poFactGaran + Store '' To poFactGaran + + Local lnId_fact, lnNrAct, ldDataAct, lnCod, lnId_fact + Store 0 To lnId_fact, lnNrAct, ldDataAct, lnCod, lnId_fact + + Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal + lcOrder = [ dataact desc] + lcgroup = [] + lcFiltru = [ 1=1 ] + + Do Case + Case gnParametru_prog=1 + lcSchema = [id_fact N(20), nract n(14), dataact d, cod n(20), valctva n(20,]+alltrim(str(gnPc))+[)] + lcSelect = [select id_fact, nract, dataact, cod, debit as valctva from ireg_parteneri ] + lcFiltruOriginal = [ extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+; + [ and id_part = ] + Alltrim(Str(goContract.id_part))+; + [ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+; + [ and cont = '4111' ] + Case gnParametru_prog=2 + lcSchema = [id_fact N(20), nract n(14), dataact d, cod n(20), valctva n(20,]+alltrim(str(gnPc))+[)] + lcSelect = [select id_fact, nract, dataact, cod, credit as valctva from ireg_parteneri ] + lcFiltruOriginal = [ extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+; + [ and id_part = ] + Alltrim(Str(goContract.id_part))+; + [ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+; + [ and (cont = '401' or cont='404') ] + Otherwise + lcFiltruOriginal = [] + Endcase + + llAfiseaza = .F. + llModParam = .T. + + gencursor('poFactGaran','cFactGaran', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) + poFactGaran.ca_baza1.afisare() + + Select cFactGaran + lofc = Createobject('frm_facturi_ctr') + lofc.Show(1) + + If buton = 2 + Return + Endif + + ***-------------------- + Private pnFactValftva, pnGarantieRetinuta + Store 0 To pnFactValftva, pnGarantieRetinuta + + Select cFactGaran + lnId_fact = id_fact + lnNrAct = nract + ldDataAct = dataact + lnId_fact = id_fact + lnCod = cod + + Do Case + Case gnParametru_prog=2 + If Year(ldDataAct)>=2007 + lcSql = [select totctva -(ro19bct+ro19bvt+ro19bft+ro09bct+ro09bvt+ro09bft+fo19bct+fo19bvt+fo19bft+fo09bct+fo09bvt+fo09bft+cebct+cebvt+cebft+ti19bct+ti19bvt+ti19bft+ti09bvt+ti09bft) as valftva ] +; + [ from jc2007 ]+; + [ where cod = ]+Alltrim(Str(lnCod)) + Else + lcSql = [select totctva -(tvai+tvam) as valftva ] +; + [ from cump ]+; + [ where cod = ]+Alltrim(Str(lnCod)) + Endif + lcCursor = [cJC_fact] + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + Select cJC_fact + pnFactValftva = valftva + + + If Used('cJC_fact') + Use In cJC_fact + Endif + Endcase + + pnGarantieRetinuta = Round(pnFactValftva * goContract.grnt_proc_ret / 100,gnPC) + + lofg = Createobject('frm_fact_garant') + lofg.Show(1) + + If buton = 2 + Return + Endif + + Insert Into cCtrFactGarant (id_fact, nract, dataact, valftva, garantie) ; + Values (lnId_fact, lnNrAct, ldDataAct, pnFactValftva, pnGarantieRetinuta) + + Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.Refresh + Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.SetFocus + + Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.calctotal() + Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.Refresh + + *!* lcSql = [begin pack_crm.adauga_factura_garantie(]+Alltrim(Str(goContract.id_ctr))+[,] + Alltrim(Str(lnId_fact))+[,]+; + *!* ALLTRIM(Str(pnFactValftva,20,gnPA))+[,]+Alltrim(Str(pnGarantieRetinuta,20,gnPA))+[); end;] + *!* lnSucces = goExecutor.oExecute(lcSql) + + *!* If lnSucces < 0 + *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + *!* Return + *!* Endif + + *!* Thisform.actualizeaza_grid1() + *!* Thisform.grid_Fact_garant.Refresh + + + + + + ENDPROC + + PROCEDURE do_adauga_obiectul + Local lcCtrArt, lnPret_cu_tva + lcCtrArt = Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.RecordSource + lnPret_cu_tva = This._pageframe1.page1.ct_dg_obiectul1.ck_pret_cu_tva.Value + + IF EMPTY(NVL(goContract.id_valuta,0)) AND !INLIST(UPPER(ALLTRIM(NVL(goContract.nume_val,''))), 'LEI', 'RON') + AMESSAGEBOX('Nu ati ales valuta contractului',0+48,'Atentie!') + Return + Endif + + Do Case + Case gnParametru_prog = 1 && clienti + *!* modificare v 2.0.48 : gnIdSucursala + lcSel = [{call pack_crm.get_politici_grup(] + Alltrim(Str(gnIdUtil)) + [,] + Alltrim(Str(goContract.id_valuta)) + [,?gnIdSucursala)}] + + lcCursor = 'crsPoliticiGrup1' + lnSucces = goExecutor.oExecute(lcSel, lcCursor) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + *!* modificare v 2.0.48 : am adaugat moneda_nationala + Select id_politica, nume_lista_preturi, Ttod(datai) As datai, Ttod(DataS) As DataS, ; + nume_val, id_valuta, moneda_nationala ; + FROM crsPoliticiGrup1 ; + INTO Cursor crsPoliticiGrup + + If Used('crsPoliticiGrup1') + Use In crsPoliticiGrup1 + Endif + + fpp = Createobject("frm_politica_preturi") + fpp.Show(1) + + If Used('crsPoliticiGrup') + Use In crsPoliticiGrup + Endif + + If Used("cPol_pret_art") + *!* modificare 08.05.2007 ( PRETFTVA in loc de PRET ) + Select *, PRETFTVA As pret_unitar, 1 As cant, Pret As valoare, ; + 0 As coef_discount, 0 As val_discount, ; + lnPret_cu_tva as pret_cu_tva ; + FROM cPol_pret_art With (Buffering = .T.) ; + WHERE ales = 1 ; + INTO Cursor cAles + + Select * From cAles ; + Where id_pol_art In (Select id_pol_art From (lcCtrArt)) ; + Into Cursor cExista + If _Tally > 0 + Select cExista + Scan + lcArticole = Alltrim(nume_articol)+', ' + Endscan + lcArticole = Substr(lcArticole,1,Len(lcArticole)-2) + If Reccount('cExista')=1 + AMESSAGEBOX('Articolul '+lcArticole+ ' exista in obiectul contractului. Stergeti si adaugati cu alte valori!',0+48,'Atentie') + Else + AMESSAGEBOX('Articolele '+lcArticole+ ' exista in obiectul contractului. Stergeti si adaugati cu alte valori!',0+48,'Atentie') + Endif + Endif + + Select * From cAles Where id_pol_art Not In (Select id_pol_art From cExista) ; + INTO Cursor cAles2 + + If Used('cExista') + Use In cExista + Endif + + Select (lcCtrArt) + Append From Dbf('cAles2') + + Select (lcCtrArt) + Replace valoare With cant * pret_unitar + + If Used('cAles') + Use In cAles + Endif + + If Used('cAles2') + Use In cAles2 + Endif + + If Used('cPol_pret_art') + Use In cPol_pret_art + Endif + Endif + Case gnParametru_prog = 2 && firnizori + Local lcArticole, lcXMLArticole + + lcXMLArticole = caut_articol(0, .F., .T., .T.) + + This.cXMLArticole = lcXMLArticole + If !Empty(lcXMLArticole) + + Xmltocursor(lcXMLArticole, "crsArticole") + lcArticole = cursor2lista("crsArticole", "denumire", ",") + This.cListaIdArticole = cursor2lista("crsArticole","id_articol",",") + + Select crsArticole.*, denumire As nume_articol ; + From crsArticole ; + Into Cursor crsArticole2 + Select c.*, 00000 As id_valuta, Space(4) As nume_val,; + 0 as cant, ; + lnPret_cu_tva as pret_cu_tva ; + FROM crsArticole2 c ; + Into Cursor crsArticole3 READWRITE + Select crsArticole3 + Replace All id_valuta With goContract.id_valuta, ; + nume_val With goContract.nume_val, ; + cant WITH 1 + + Select (lcCtrArt) + Append From Dbf('crsArticole3') + + Use In crsArticole + Use In crsArticole2 + Use In crsArticole3 + Endif + Endcase + + Thisform.afisactual_obiectul() + Thisform._pageframe1.page1.ct_dg_obiectul1._grdfooter1.calctotal + Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.SetFocus() + + + + + ENDPROC + + PROCEDURE do_adauga_rate + Local lcScadentar, lnNr_rata, lnPret_cu_tva + lcScadentar = Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.RecordSource + lnPret_cu_tva = this._pageframe1.page2.ct_dg_tf1.ck_pret_cu_tva.Value + + IF EMPTY(NVL(goContract.id_valuta,0)) AND !INLIST(UPPER(ALLTRIM(NVL(goContract.nume_val,''))), 'LEI', 'RON') + AMESSAGEBOX('Nu ati ales valuta contractului',0+48,'Atentie!') + Return + Endif + + Select (lcScadentar) + Calculate Max(Nvl(nr_rata,0)) To lnNr_rata + lnNr_rata = lnNr_rata + 1 + + Select (lcScadentar) + Append Blank + + Select (lcScadentar) + Replace id_valuta With goContract.id_valuta, ; + nume_val With goContract.nume_val, ; + nr_rata With lnNr_rata, ; + pret_cu_tva WITH lnPret_cu_tva, ; + proc_tva with goContract.proc_tva + + Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.Refresh + Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.SetFocus + + ENDPROC + + PROCEDURE do_ataseaza_garantie + Private poFactGaran + Store '' To poFactGaran + + Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, llModParam, lcgroup, lcFiltruOriginal + lcOrder = [dataact desc] + lcgroup = [] + lcFiltru = [ 1=1 ] + + Do Case + Case gnParametru_prog=1 + lcSchema = [] + lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, debit as suma, id_fact, cod, explicatia, 0 as atasata ]+; + [ from vireg_emise_in_perioada ] + lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+; + [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] + Case gnParametru_prog=2 + lcSchema = [] + lcSelect = [select distinct id_ctr, contract, fdoc, nract, dataact, dataireg, credit as suma, id_fact, cod, explicatia, 0 as atasata ]+; + [ from vireg_emise_in_perioada ] + lcFiltruOriginal = [ id_part = ]+ Alltrim(Str(goContract.id_part))+; + [ and (id_ctr is null or id_ctr = ]+ Alltrim(Str(goContract.id_ctr))+ [ or id_ctr = 0)] + Otherwise + lcFiltruOriginal = [] + Endcase + + llAfiseaza = .F. + llModParam = .T. + + gencursor('poFactGaran','cFact_neatas', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) + poFactGaran.ca_baza1.afisare() + + Select cFact_neatas + lofc = Createobject('frm_atas_fact_iregpart') + lofc.Show(1) + + Release poFactGaran + + ENDPROC + + PROCEDURE do_download + Lparameters tcFisSalvat + + Private poLink + Store '' To poLink + Local lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, lcgroup, lcFiltruOriginal + Local lcTabel, lcFisSalvat, lnIdAtas, lcFisier + + lcTabel = thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource + Select (lcTabel) + If Reccount() >0 + If Pcount() = 0 Or Type('tcFisSalvat') <> 'C' + lcDir = Getdir('c:\',"Director","Directorul unde doriti sa salvati fisierul",64) + If Empty(lcDir) + Return + Endif + If !Empty(nume_fisier) + lcFisSalvat = Addbs(lcDir)+Alltrim(nume_fisier) + Endif + Else + lcFisSalvat = tcFisSalvat + Endif + If !Empty(lcFisSalvat) + + lnIdAtas = id_atas + lcSchema = [fisier w ] + lcSelect = [select fisier from atas_atasamente where id_atas = ] + Alltrim(Str(lnIdAtas)) + lcOrder = [] + lcgroup = [] + lcFiltru = [] + lcFiltruOriginal = [] + llModParam = .T. + llAfiseaza = .F. + + gencursor('poLink','cRegFisierTemp', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) + poLink.ca_baza1.afisare() + If Used('cRegFisierTemp') + lcFisier = fisier + Use In (Select('cRegFisierTemp')) + + Strtofile(lcFisier, lcFisSalvat) + open_default_app(lcFisSalvat) + + Endif + Endif + Endif + + ENDPROC + + PROCEDURE do_open + Local lcTabel, lcFisSalvat + + lcTabel = thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource + Select (lcTabel) + If Reccount() >0 + IF !EMPTY(NVL(nume_fisier,'')) + lcFisSalvat = Addbs(gcTempPath)+ALLTRIM(nume_fisier) + thisform.do_download(lcFisSalvat) + ENDIF + Endif + + ENDPROC + + PROCEDURE do_upload + Local lcTabelLinkuri + lcTabelLinkuri = Thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource + + ***--- + Private pnId_entitate, pnTip_entitate, pcLink, pcDescriere, pcFis_name, pcFisier, pnId_atas + Store 0 To pnId_entitate, pnTip_entitate, pnId_atas + Store "" To pcDescriere, pcFis_name, pcFisier, pcLink + * pcLink - private - folosit in frm_atas_nou + + Local llReturn,lcSql,lnSucces + llReturn = .T. + + Select (lcTabelLinkuri) + Scatter Name poLink Blank Memo + + AddProperty(poLink,'id_proiect',0) + AddProperty(poLink,'proiect','') + AddProperty(poLink,'id_ctr',0) + AddProperty(poLink,'contract','') + + lodn = Createobject("frm_atas_nou") + lodn.Show(1) + If gnButon = 2 + Return + Endif + + pnId_entitate = goContract.id_ctr + pnTip_entitate = 2 + + pcDescriere = Upper(Alltrim(poLink.descriere)) + pcFis_name = Upper(Alltrim(poLink.nume_fisier)) + If Empty(pcLink) + Return + Endif + pcFisier = Filetostr(pcLink) + + Select (lcTabelLinkuri) + Append Blank + Gather Name poLink Memo + Replace fisier With pcFisier, id_atas With pnId_atas, nume_fisier With pcFis_name, descriere With pcDescriere, dataora With Datetime(), utilizator With gcUserNameApp + Replace are_link With 1 In cContracte + + ***--- + + Thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.Refresh + + ENDPROC + + PROCEDURE inainte_de_do_listare_rate + Private pcPartener, pcNrData, pcValuta, cTitlu, pcDataOra + pcPartener = Nvl(Alltrim(goContract.denumire),'') + pcNrData = Nvl(Alltrim(goContract.numar),'')+' / ' + Nvl(Dtoc(goContract.Data),'') + pcValuta = Nvl(Alltrim(goContract.nume_val),'') + + pcDataOra = get_ora(2) + + + lcmenu = "Rate - Valoare facturata;Rate - Facturi aferente;Rate - facturi aferente (extins)" + lnx = xmenu(lcmenu) + + Thisform.AlwaysOnTop = .F. + + Do Case + Case lnx = 1 + pcTitlu = 'RATE' + Local lcScadentar, lnNr_rata + goExport.export2frx(Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.RecordSource,[rrate]) + Case lnx = 2 Or lnx = 3 + lcSel = [{call pack_crm.situatie_rate(] + Alltrim(Str(goContract.id_ctr)) + [)}] + + lcCursor = 'cSitRate' + If goExecutor.oExecuta(lcSel, lcCursor) + *** + Select * From cSitRate Into Cursor cList Readwrite + If Used('cSitRate') + Use In cSitRate + Endif + + Select id_rata, Cnt(id_rata) As Cnt ; + FROM cList ; + HAVING Cnt > 1 ; + GROUP By 1 Order By 2 ; + INTO Cursor crsDuplicate + + Select crsDuplicate + Scan + lnId_rata = id_rata + lnCount = Cnt - 1 + lnGasit = 0 + Select cList + Locate For id_rata = lnId_rata + Do While Found( ) + lnGasit = lnGasit + 1 + If lnGasit > 1 + Replace nr_rata With .Null., den_rata With .Null., data_rata With .Null., valrata With .Null., sumvalrate With .Null., valfact With .Null. + Endif + Continue + Enddo + Endscan + *** + + If Used('crsDuplicate') + Use In crsDuplicate + Endif + + If lnx = 2 + pcTitlu = 'RATE - FACTURI AFERENTE' + goExport.export2frx([cList],[rRate_facturi]) + Else + pcTitlu = 'RATE - FACTURI AFERENTE (EXTINS)' + goExport.export2frx([cList],[rRate_facturi_extins]) + Endif + + If Used('cList') + Use In cList + Endif + Endif + Endcase + + Thisform.AlwaysOnTop = .T. + + + + ENDPROC + + PROCEDURE inainte_de_do_modifica_garantie + Private pnFactValftva, pnGarantieRetinuta + Store 0 To pnFactValftva, pnGarantieRetinuta + + Local lnId_ctr_fact_garan + Store 0 To lnId_ctr_fact_garan + + lcTabelgarantii = Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.RecordSource + Select (lcTabelgarantii) + Select Cnt(*) As nr_inreg From (lcTabelgarantii) ; + INTO Cursor cInreg + Select cInreg + lnInreg = nr_inreg + If lnInreg > 0 + + Select (lcTabelgarantii) + lnId_ctr_fact_garan = id_ctr_fact_garan + pnFactValftva = valftva + pnGarantieRetinuta = garantie + + lofg = Createobject('frm_fact_garant') + lofg.Show(1) + + If buton = 2 + Return + Endif + + Select (lcTabelgarantii) + Replace valftva With pnFactValftva, garantie With pnGarantieRetinuta + Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.Refresh + + Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.calctotal() + Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.Refresh + Endif + + *!* lcSql = [begin pack_crm.modifica_factura_garantie(]+ALLTRIM(STR(lnId_ctr_fact_garan))+[,]+; + *!* ALLTRIM(Str(pnFactValftva,20,gnPA))+[,]+Alltrim(Str(pnGarantieRetinuta,20,gnPA))+[); end;] + *!* lnSucces = goExecutor.oExecute(lcSql) + + *!* If lnSucces < 0 + *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + *!* Return + *!* ENDIF + + *!* thisform.actualizeaza_grid1() + *!* thisform.grid_Fact_garant.Refresh + + ENDPROC + + PROCEDURE inainte_de_do_renunt + Local llNou + llNou = Thisform.llNou + + If llNou + * sterge contract + poGeneratorNumere.dezaloca_numar(13) + *- + + lcId = Alltrim(Str(goContract.id_ctr)) + lcId_util = Alltrim(Str(gnIdUtil)) + + lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.oprelucrareEroare(),0+16,"Eroare") + Return .F. + Endif + + Select cContracte + Locate For id_ctr = goContract.id_ctr + If Found() + Delete + ENDIF + Select cContracte + GO BOTTOM + + Endif + + Return .T. + + ENDPROC + + PROCEDURE inainte_de_do_sterge_atasament + Local lcTabelLinkuri, lnRaspuns, lnInreg + lcTabelLinkuri = thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource + Store 0 To lnRaspuns, lnInreg + + Select Cnt(*) As nr_inreg From (lcTabelLinkuri) ; + INTO Cursor cInreg + Select cInreg + lnInreg = nr_inreg + If lnInreg > 0 + lnRaspuns = amessagebox('Doriti sa stergeti documentul?',4+32,"Confirmare stergere document") + If lnRaspuns = 7 && 7 = No ; 6 = Yes + Return + Endif + + Select (lcTabelLinkuri) + Delete + + thisform._pageframe1.page3.ct_atasamente1.SetFocus() + Endif + + ENDPROC + + PROCEDURE inainte_de_do_sterge_garantie + Local lcTabelgarantii, lnInreg, lnRaspuns + + lcTabelgarantii = Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.RecordSource + Select (lcTabelgarantii) + + Select Cnt(*) As nr_inreg From (lcTabelgarantii) ; + INTO Cursor cInreg + Select cInreg + lnInreg = nr_inreg + If lnInreg > 0 + lnRaspuns = AMESSAGEBOX('Doriti sa stergeti inregistrarea?',4+32,"Confirmare stergere inregistrare") + If lnRaspuns = 7 && 7 = No ; 6 = Yes + Return + Endif + + Select (lcTabelgarantii) + Delete + + Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.Refresh + Thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.SetFocus + + Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.calctotal() + Thisform._pageframe1.page4.ct_dg_tl1._grdfooter1.Refresh + Endif + + *!* lnId_ctr_fact_garan = id_ctr_fact_garan + + *!* lcSql = [begin pack_crm.sterge_factura_garantie(]+Alltrim(Str(lnId_ctr_fact_garan))+[); end;] + *!* lnSucces = goExecutor.oExecute(lcSql) + + *!* If lnSucces < 0 + *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + *!* Return + *!* ENDIF + + *!* thisform.actualizeaza_grid1() + *!* thisform.grid_Fact_garant.Refresh + + ENDPROC + + PROCEDURE inainte_de_do_sterge_obiectul + Private pcId_ctr, pcId_pol_art + Store '' To pcId_ctr, pcId_pol_art + + Local lcTabelCtrArt, lnRaspuns, lnInreg + Store 0 To lnRaspuns, lnInreg + + lcTabelCtrArt = Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.RecordSource + + Select Cnt(*) As nr_inreg From (lcTabelCtrArt) ; + INTO Cursor cInreg + Select cInreg + lnInreg = nr_inreg + If lnInreg > 0 + lnRaspuns = amessagebox('Doriti sa stergeti?',4+32,"Confirmare stergere") + If lnRaspuns = 7 && 7 = No ; 6 = Yes + Return + Endif + + pcId_ctr = Alltrim(Str(goContract.id_ctr)) + Select (lcTabelCtrArt) + + Do Case + Case gnParametru_prog = 1 + pcId_pol_art = Alltrim(Str(id_pol_art)) + Case gnParametru_prog = 2 + pcId_pol_art = Alltrim(Str(id_articol)) + Endcase + + Select (lcTabelCtrArt) + DELETE + + thisform.afisactual_obiectul() + Thisform._pageframe1.page1.ct_dg_obiectul1._grdfooter1.calctotal + Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.Refresh + Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.SetFocus + Endif + + + ENDPROC + + PROCEDURE inainte_de_do_sterge_rate + Local lcScadentar + lcScadentar = Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.RecordSource + + Select Cnt(*) As nr_inreg From (lcScadentar) ; + INTO Cursor cInreg + Select cInreg + lnInreg = nr_inreg + If lnInreg > 0 + lnRaspuns = amessagebox('Doriti sa stergeti rata?',4+32,"Confirmare stergere rata") + If lnRaspuns = 7 && 7 = No ; 6 = Yes + Return + Endif + Select (lcScadentar) + Delete + Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.Refresh + Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.SetFocus + thisform._pageframe1.paGE2.ct_dg_tf1._grdfooter1.calctotal() + Endif + + ENDPROC + + PROCEDURE inainte_de_do_termin + Private pcParametru_prog, pcId_ctr, pcId_pol_art, pcId_articol, pcCant, pcPret_unitar, pcCoef_discount, pcVal_discount, pcId_valuta + Store '' To pcId_ctr, pcId_pol_art, pcId_articol, pcCant, pcPret_unitar, pcCoef_discount, pcVal_discount, pcId_valuta + + Local llNou, lnRaspuns, lcTabelCtrArt, lcTabelScadentar, lcTabelAtasamente, lcTabelGarantii, lnInreg + llNou = Thisform.llNou + + lcTabelCtrArt = Thisform._pageframe1.page1.ct_dg_obiectul1.grid_articole.RecordSource + lcTabelScadentar = Thisform._pageframe1.page2.ct_dg_tf1.grid_scadentar.RecordSource + lcTabelAtasamente = Thisform._pageframe1.page3.ct_atasamente1.grid_linkuri.RecordSource + lcTabelGarantii = thisform._pageframe1.page4.ct_dg_tl1.grid_Fact_garant.RecordSource + lnInreg = 0 + + lnRaspuns = AMESSAGEBOX('Doriti sa salvati modificarile facute?',4+32,'Confirmare salvare') + + If lnRaspuns = 7 && NU + If llNou + * sterge contract + poGeneratorNumere.dezaloca_numar(13) + *- + + lcId = Alltrim(Str(goContract.id_ctr)) + lcId_util = Alltrim(Str(gnIdUtil)) + + lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.oprelucrareEroare(),0+16,"Eroare") + Return .F. + Endif + + Select cContracte + Locate For id_ctr = goContract.id_ctr + If Found() + Delete + Endif + Select cContracte + Go Bottom + Endif + + Return .T. + Else && DA + *poGeneratorNumere.reset(13) + + pcId_ctr = Alltrim(Str(goContract.id_ctr)) + pcParametru_prog = Alltrim(Str(gnParametru_prog)) + If Empty(Nvl(goContract.id_part,0)) + AMESSAGEBOX('Nu ati ales partenerul!',48,"Atentie") + Return .F. + Endif + + If Empty(Nvl(goContract.numar,0)) + AMESSAGEBOX('Nu ati completat numarul contractului!',48,"Atentie") + Thisform._pageframe1.page1.ct_part_nr_data_21.txtNUMAR.SetFocus + Return .F. + Endif + + If Empty(Nvl(goContract.Data,{})) + AMESSAGEBOX('Nu ati completat data contractului!',48,"Atentie") + Thisform._pageframe1.page1.ct_part_nr_data_21.txtDATA_CTR.SetFocus + Return .F. + ENDIF + + IF EMPTY(NVL(goContract.opt_facturare,0)) + AMESSAGEBOX('Nu ati ales ce se factureaza!',48,"Atentie") + ENDIF + + If (goContract.opt_facturare = 1 Or goContract.opt_facturare = 2) And Empty(Nvl(goContract.id_nota,0)) + AMESSAGEBOX('Alegeti nota contabila !',,48,"Atentie") + Return .F. + Endif + + Do Case + Case goContract.opt_facturare = 1 + Select (lcTabelScadentar) + Calculate Cnt() For !Deleted() To lnInreg + If lnInreg = 0 + AMESSAGEBOX('Adaugati rate!',0+48,'Atentie') + Return .F. + Endif + Case goContract.opt_facturare = 2 + Select (lcTabelCtrArt) && modificare v 2.1.11 + Calculate Cnt() For !Deleted() To lnInreg + If lnInreg = 0 + AMESSAGEBOX('Adaugati obiectul contractului!',0+48,'Atentie') + Return .F. + Endif + Select (lcTabelScadentar) && modificare v 2.1.11 + Calculate Cnt() For !Deleted() To lnInreg + If lnInreg = 0 + AMESSAGEBOX('Adaugati rate!',0+48,'Atentie') + Return .F. + Endif + Endcase + + Select (lcTabelScadentar) + Locate For Empty(data_rata) + If Found() + AMESSAGEBOX('Completati data ratelor!',0+48,'Atentie') + Return .F. + Endif + + Select (lcTabelScadentar) + Locate For Empty(valrata) + If Found() + AMESSAGEBOX('Completati valoarea ratelor!',0+48,'Atentie') + Return .F. + Endif + + If pnGNnumar<>0 And Upper(Alltrim(Str(pnGNnumar))) <> Upper(Alltrim(goContract.numar)) + poGeneratorNumere.dezaloca_numar(13) + Endif + + lnSucces = SQLSetprop(gnhandle,"Transactions",2) + If lnSucces < 0 + AMESSAGEBOX("Programul nu a reusit sa treaca pe tranzactie manuala! Reintrati in program si incercati din nou!",48,"Atentie") + ELSE + lnSucces = modifica_ctr_dg(goContract) && In oproceduri_roacontracte.prg + If lnSucces > 0 + lnSucces = salveaza_obiectul(lcTabelCtrArt) + If lnSucces > 0 + lnSucces = salveaza_rate(lcTabelScadentar) + If lnSucces > 0 + lnSucces = salveaza_atasamente(lcTabelAtasamente) + IF lnSucces > 0 + lnSucces = salveaza_garantii(lcTabelGarantii) + ENDIF + Endif + Endif + Endif + Endif + + If lnSucces < 0 + lcSql = "ROLLBACK" + Else + lcSql = "COMMIT" + Endif + lnSucces2 = goExecutor.oExecute(lcSql) + + If lnSucces2 < 0 + AMESSAGEBOX(lcSql + Chr(13) + goExecutor.cEroare,0+16,"Eroare") + Endif + + lnSucces2 = SQLSetprop(gnhandle,"Transactions",1) + If lnSucces2 < 0 + AMESSAGEBOX('Programul nu a reusit sa treaca pe tranzactie automata. Iesiti din program si intrati din nou!',0+48,'Atentie!') + Else + If lcSql = "COMMIT" + && sa nu mai faca de fiecare data do_cauta (sa aduca toate contactele de pe server) + Select cContracte + Locate For id_ctr = goContract.id_ctr + If Found() + Gather Name goContract Memo + ENDIF + ELSE + Return .F. + Endif + + Endif + Endif + + Return .T. + + + + + + + + + + + + + ENDPROC + + PROCEDURE Init + PARAMETERS tlNou + DODEFAULT() + + thisform.llnou = tlNou + *!* modificare v 2.0.46 + if goContract.moneda_nationala = 1 + This._pageframe1.page1.ct_dg_obiectul1.actualizeaza_zecimale(gnPPretV,gnPc) + This._pageframe1.page2.ct_dg_tf1.actualizeaza_zecimale(gnPPretV,gnPc) + else + This._pageframe1.page1.ct_dg_obiectul1.actualizeaza_zecimale(gnPVal,gnPVal) + This._pageframe1.page2.ct_dg_tf1.actualizeaza_zecimale(gnPVal,gnPVal) + endif + *!* modificare v 2.0.46 ^ + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + LOCAL lnPret_cu_tva + STORE 0 TO lnPret_cu_tva + + If gnParametru_prog = 1 + This._pageframe1.page1.ct_dg_date_generale_frz1.Visible = .F. + Endif + + + Select Max(pret_cu_tva) as nPret_cu_tva ; + FROM cCtrArt ; + INTO Cursor cPret_cu_tva + Select cPret_cu_tva + lnPret_cu_tva = NVL(nPret_cu_tva,0) + If Used('cPret_cu_tva') + Use In cPret_cu_tva + ENDIF + this._pageframe1.page1.ct_dg_obiectul1.ck_pret_cu_tva.Value = lnPret_cu_tva + + Local llDiscountSalvat + llDiscountSalvat = .T. + + If Alltrim(gocontract.tip_istoric) = 'A' + This._pageframe1.page1.ct_part_nr_data_21.lb_actAd.Visible = .T. + This._pageframe1.page1.ct_part_nr_data_21.laBEL4.Top = 4 + This._pageframe1.page1.ct_part_nr_data_21.lb_actAd.Caption = Alltrim(gocontract.numar_aa) + Else + This._pageframe1.page1.ct_part_nr_data_21.lb_actAd.Visible = .F. + Endif + + Thisform.afisactual_obiectul(llDiscountSalvat) + + WITH this._pageframe1.page1.ct_dg_obiectul1 + *!* ._grdfooter1.attachtogrid(._grdfooter1.osourcegrid) + *!* ._grdfooter1.calctotal() + .grid_articole.HeaderHeight = 38 + ENDWITH + + WITH thisform._pageframe1.paGE2.ct_dg_tf1 + *!* ._grdfooter1.attachtogrid(._grdfooter1.osourcegrid) + *!* ._grdfooter1.calctotal() + .grid_scadentar.HeaderHeight = 38 + ENDWITH + + this.Height = INT(_Screen.Height * 0.7) + this.Width = INT(_screen.Width * 0.7) + this.AutoCenter = .T. + ENDPROC + + PROCEDURE _pageframe1.Page1.Ct_dg_date_generale1.cbo_valute.Valid + DoDefault() + *!* modificare v 2.0.46 + If goContract.moneda_nationala = 1 + Thisform._pageframe1.page1.ct_dg_obiectul1.actualizeaza_zecimale(gnPPretV,gnPc) + Thisform._pageframe1.page2.ct_dg_tf1.actualizeaza_zecimale(gnPPretV,gnPc) + Else + Thisform._pageframe1.page1.ct_dg_obiectul1.actualizeaza_zecimale(gnPVal,gnPVal) + Thisform._pageframe1.page2.ct_dg_tf1.actualizeaza_zecimale(gnPVal,gnPVal) + Endif + *!* modificare v 2.0.46 ^ + ENDPROC + + PROCEDURE _pageframe1.Page1.Ct_dg_obiectul1.txtProc_tva.Valid + DoDefault() + + Local llPastreazaPretcuTVA, lnProcTVAVechi, lnProcTvaNou + Local lnTVANou, lnTVAVechi, lnValRataCTva, lnValRataFTva, lnZecimalePret + SET STEP ON + lnZecimalePret = This.Parent.nzecimalepret + + lnProcTvaNou = goContract.proc_tva + lnProcTVAVechi = This.Parent.nOldProcTVA + If m.lnProcTvaNou <> m.lnProcTVAVechi + If AMESSAGEBOX('Doriti sa actualizati procentul de TVA si valorile pe ratele nefacturate de la ' + ; + ALLTRIM(Transform(m.lnProcTVAVechi)) + ' la ' + Alltrim(Transform(m.lnProcTvaNou)) + '?',4+32, 'Actualizare TVA') = 6 + + llPastreazaPretcuTVA = (AMESSAGEBOX('Se pastreaza pretul cu TVA pentru ratele cu TVA inclus?',4+32, 'Actualizare TVA') = 6) + + + Select cCtrScadentar + Scan For valrataftva - valvaluta <> 0 AND proc_tva = m.lnProcTVAVechi + If goContract.valftva <> 0 And goContract.valftva*0 = 0 && <> ************* + Replace procent With valrata/goContract.valftva * 100 + Else + Replace procent With 0 + Endif + + REPLACE proc_tva WITH m.lnProcTVANou + IF NVL(pret_cu_tva,0) = 1 + IF m.llPastreazaPretCuTVA + * se pastreaza pretul cu TVA. recalculez pretul fara TVA + lnValRatacTva = valratactva + lnTVANou = ROUND(lnValRatacTva * lnProcTVANou / 100, m.lnZecimalePret) + lnValRatafTva = m.lnValRatacTva - m.lnTvaNou + REPLACE valrataftva WITH m.lnValRatafTva + ELSE + * se pastreaza pretul fara TVA. recalculez pretul cu TVA + lnValRataFTva = valrataftva + lnTVANou = ROUND(lnValRataFTva * m.lnProcTVANou / 100, m.lnZecimalePret) + lnValRataCTva = m.lnValRataFTva + m.lnTVANou + REPLACE valrata WITH m.lnValRataCTva, valratactva WITH m.lnValRataCTva + ENDIF + ELSE + * pret fara tva. recalculez pretul cu TVA + lnValRataFTva = valrataftva + lnTVANou = ROUND(lnValRataFTva * m.lnProcTVANou / 100, m.lnZecimalePret) + lnValRataCTva = m.lnValRataFTva + m.lnTVANou + REPLACE valratactva WITH m.lnValRataCTva + ENDIF + + + This.Parent._grdfooter1.calctotal() + Endscan + + Endif + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_fact_garant AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtFactValftva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtGarantieRetinuta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 111 + Name = "frm_fact_garant" + Width = 406 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 419 + _shape2.Height = 29 + _shape2.Left = 342 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 64 + Lb_titlu_alb_b121.Caption = "Facturi - Garanþii" + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 5 + BUT_TERMIN1.Left = 375 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 252 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 12 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 344, ; + Name = "But_renunt1", ; + TabIndex = 4, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Valoare facturã", ; + FontCharSet = 238, ; + Height = 17, ; + Left = 6, ; + Name = "Label1", ; + TabIndex = 6, ; + Top = 48, ; + Width = 84 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "(fara TVA)", ; + Height = 17, ; + Left = 6, ; + Name = "Label2", ; + TabIndex = 7, ; + Top = 61, ; + Width = 55 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Procent reþinut", ; + FontCharSet = 238, ; + Height = 17, ; + Left = 241, ; + Name = "Label3", ; + TabIndex = 8, ; + Top = 54, ; + Width = 81 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "%", ; + Height = 17, ; + Left = 385, ; + Name = "Label4", ; + TabIndex = 10, ; + Top = 54, ; + Width = 13 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Garanþie reþinutã", ; + FontCharSet = 238, ; + Height = 17, ; + Left = 6, ; + Name = "Label5", ; + TabIndex = 11, ; + Top = 84, ; + Width = 93 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + ControlSource = "goContract.grnt_proc_ret", ; + Format = "rk", ; + Height = 23, ; + InputMask = "999", ; + Left = 335, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabIndex = 9, ; + Top = 51, ; + Width = 48 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtFactValftva' AS textbox WITH ; + ControlSource = "pnFactValftva", ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(14,gnPC)), ; + Left = 103, ; + Name = "txtFactValftva", ; + TabIndex = 1, ; + Top = 51, ; + Width = 120 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtGarantieRetinuta' AS textbox WITH ; + ControlSource = "pnGarantieRetinuta", ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(14,gnPC)), ; + Left = 103, ; + Name = "txtGarantieRetinuta", ; + TabIndex = 2, ; + Top = 81, ; + Width = 120 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE txtFactValftva.LostFocus + pnGarantieRetinuta = ROUND(pnFactValftva * goContract.grnt_proc_ret / 100,gnPc) + thisform.txtGarantieRetinuta.Refresh + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_facturat_incasat AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox2" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 70 + Name = "frm_facturat_incasat" + Width = 375 + _shape1.Name = "_shape1" + _SHAPE2.Name = "_SHAPE2" + LB_TITLU_ALB_B121.Caption = "Facturat-încasat" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Name = "Gridsort1" + BUT_RENUNT1.Name = "BUT_RENUNT1" + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Sold <> 0", ; + ControlSource = "pnFacturatIncasat", ; + FontBold = .T., ; + FontName = "Arial Narrow", ; + Left = 35, ; + Name = "_checkbox1", ; + Top = 41 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_checkbox2' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Grupare pe responsabil", ; + ControlSource = "pnGrupResponsabil", ; + FontName = "Arial Narrow", ; + Left = 228, ; + Name = "_checkbox2", ; + Top = 41 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + +ENDDEFINE + +DEFINE CLASS frm_facturi_ctr AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_facturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nr_fact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_data_fact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 474 + Name = "frm_facturi_ctr" + Width = 362 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 299 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 62 + Lb_titlu_alb_b121.Caption = "Facturi" + Lb_titlu_alb_b121.Left = 9 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.Top = 6 + BUT_TERMIN1.Left = 331 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 252 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 3 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 300, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_data_fact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = dataact, ; + Caption = "Data fact.", ; + FontName = "Arial Narrow", ; + Left = 65, ; + Name = "Ck_data_fact", ; + TabIndex = 1, ; + tip = D, ; + Top = 43, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nr_fact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = nract, ; + Caption = "Nr. fact.", ; + FontName = "Arial Narrow", ; + Left = 9, ; + mask = (replicate('9',12)), ; + Name = "Ck_nr_fact", ; + TabIndex = 4, ; + Top = 43, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 9, ; + Comment = "*:OnResize=LT", ; + Left = 175, ; + Name = "Cmd_cauta1", ; + TabIndex = 34, ; + Top = 39, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 9, ; + Comment = "*:OnResize=LT", ; + Left = 265, ; + Name = "Cmd_reset1", ; + TabIndex = 45, ; + Top = 39, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_facturi' AS _grdbase WITH ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 385, ; + Left = 9, ; + Name = "grid_facturi", ; + Panel = 1, ; + RecordSource = "cFactGaran", ; + Top = 74, ; + Width = 340, ; + Column1.ControlSource = "nract", ; + Column1.Name = "Column1", ; + Column2.ControlSource = "dataact", ; + Column2.Name = "Column2", ; + Column3.ControlSource = "valctva", ; + Column3.Format = "rk", ; + Column3.InputMask = (get_mask(20,gnPC)), ; + Column3.Name = "Column3", ; + Column3.Width = 156 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_facturi.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. fact. ", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data fact.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare cu TVA", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru = pcFiltru + IF EMPTY(lcFiltru) + lcFiltru = poFactGaran.ca_baza1.cfiltru + ENDIF + + save_grid_tag(thisform.grid_Facturi) + + poFactGaran.ca_baza1.cfiltru = lcFiltru + poFactGaran.ca_baza1.afisare() + restore_grid_tag(thisform.grid_Facturi) + IF RECCOUNT('cFactGaran')>0 + thisform.grid_Facturi.SetFocus() + ENDIF + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru = "" + + If This.ck_nr_fact.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nr_fact.filtru + Endif + If This.ck_data_fact.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_data_fact.filtru + Endif + + Do Case + Case gnParametru_prog=1 + lcFiltru = [ and extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+; + [ and id_part = ] + Alltrim(Str(goContract.id_part))+; + [ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+; + [ and cont = '4111' ]+ lcFiltru + Case gnParametru_prog=2 + lcFiltru = [ and extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna ]+; + [ and id_part = ] + Alltrim(Str(goContract.id_part))+; + [ and id_ctr = ] + Alltrim(Str(goContract.id_ctr))+; + [ and (cont = '401' or cont='404') ]+ lcFiltru + Otherwise + lcFiltru = [] + Endcase + + lcFiltru = Substr(lcFiltru,6) + + Thisform.actualizeaza_grid1(lcFiltru) + Thisform.grid_facturi.SetFocus() + + ENDPROC + + PROCEDURE do_reset + With This + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + ENDWITH + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_incasari AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_incasari" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_incasari.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + cgridsortlist = grid_incasari + DoCreate = .T. + Height = 548 + Name = "frm_incasari" + Width = 690 + _shape1.Anchor = 11 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 691 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 629 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 62 + Lb_titlu_alb_b121.Caption = "Încasãri" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 660 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 468 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 6 + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 630, ; + Name = "But_listare1", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_incasari' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 7, ; + DeleteMark = .F., ; + GridLineColor = 196,196,196, ; + Height = 500, ; + Left = 9, ; + Name = "grid_incasari", ; + Panel = 1, ; + RecordSource = "cIncasari", ; + Top = 38, ; + Width = 671, ; + Column1.BackColor = 255,255,255, ; + Column1.ControlSource = "nract", ; + Column1.Name = "Column1", ; + Column1.Width = 79, ; + Column2.BackColor = 255,255,255, ; + Column2.ControlSource = "ttod(dataact)", ; + Column2.Name = "Column2", ; + Column3.BackColor = 255,255,255, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "fel", ; + Column3.Name = "Column3", ; + Column3.Width = 84, ; + Column4.BackColor = 255,255,255, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "suma", ; + Column4.Format = "rk", ; + Column4.InputMask = (get_mask(20,gnPC)), ; + Column4.Name = "Column4", ; + Column4.Width = 110, ; + Column5.BackColor = 255,255,255, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "pereche", ; + Column5.Format = "rk", ; + Column5.InputMask = "99999999999999", ; + Column5.Name = "Column5", ; + Column5.Width = 93, ; + Column6.BackColor = 255,255,255, ; + Column6.ColumnOrder = 7, ; + Column6.ControlSource = "contract", ; + Column6.Name = "Column6", ; + Column6.Width = 86, ; + Column7.BackColor = 255,255,255, ; + Column7.ColumnOrder = 3, ; + Column7.ControlSource = "fdoc", ; + Column7.Name = "Column7", ; + Column7.Width = 97 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_incasari.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. Doc.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_incasari.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_incasari.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data Act", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_incasari.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_incasari.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel incasare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_incasari.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_incasari.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Suma", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_incasari.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_incasari.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Doc. incasat", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_incasari.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_incasari.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Contract", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_incasari.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_incasari.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel document", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_incasari.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE inainte_de_do_listare + Private pcTitlu + Do Case + Case gnParametru_prog = 1 + pcTitlu = 'Încasãri de la clientul ' + Alltrim(Upper(goContract.denumire)) + Case gnParametru_prog = 2 + pcTitlu = 'Plãþi cãtre furnizorul ' + Alltrim(Upper(goContract.denumire)) + Endcase + Thisform.AlwaysOnTop = .F. + goExport.export2frx(Thisform.grid_incasari.RecordSource,[rIncasari]) + Thisform.AlwaysOnTop = .T. + + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_ireg_parteneri AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cfdoc.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cfdoc.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cDataAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cDataAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cDataScad.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cDataScad.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cDataireg.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cDataireg.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cNrAct.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cNrAct.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cTotDeb.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cTotDeb.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cTotCred.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cTotCred.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSoldFinal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSoldFinal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cTotDebVal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cTotDebVal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cTotCredVal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cTotCredVal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSoldVal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSoldVal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cAcont.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cAcont.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cExplicatia.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cExplicatia.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cNrord.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cNrord.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cnresp.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cnresp.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cDebit.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cDebit.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cCredit.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cCredit.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cValDebit.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cValDebit.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cValCredit.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cValCredit.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cNume_val.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cNume_val.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cCurs.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cCurs.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cPrecDeb.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cPrecDeb.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cPrecCred.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cPrecCred.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cExplicatia4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cExplicatia4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cExplicatia5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cExplicatia5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cVenChelt.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cVenChelt.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cCod.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cCod.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cId_fact.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cId_fact.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cId_set.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cId_set.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cId_part.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cId_part.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column32.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column32.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cPrecValDeb.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cPrecValDeb.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cPrecValCred.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cPrecValCred.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column35.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.Column35.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSerie_act.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSerie_act.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cProcentTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cProcentTVA.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cExplicatieTVA.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cExplicatieTVA.combo1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSucursala.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid1.cSucursala.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_nom_valute1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cmdIncasPl" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_scadente" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + + * + *m: actualizeaza_totaluri + *m: butapend + *m: butdrept + *m: corderby_assign + *m: filtre + *m: incaspl + *m: initializare + *m: ist_deb_cred + *m: notacontab + *m: plati + *m: salariati + *p: casc + *p: ccont + *p: cnewvalue + *p: coldvalue + *p: cont + *p: corderby + *p: cseparator + *p: fisier + *p: lactiv + *p: leroare + *p: lmodificare_totaluri + *p: lmodificata + *p: lvaluta + *p: ncreditval + *p: ndebitval + *p: nmodificata + *p: ntotcredit + *p: ntotdebit + *p: ntotsold + *p: ntotsoldval + * + + * + BorderStyle = 1 + casc = ASC + cbuton2 = but_listare1;but_listare2;but_listare3 + ccont = + cgridsortlist = grid1 + cnewvalue = + coldvalue = + cont = 0 + corderby = dataact + cseparator = . + DoCreate = .T. + filtru_pretty_ro = + fisier = '' + Height = 528 + lactiv = .F. + leroare = .F. + lmodificare_totaluri = .F. + lmodificata = .F. + lvaluta = .F. + Name = "frm_ireg_parteneri" + ncreditval = 0 + ndebitval = 0 + nmodificata = 0 + ntotcredit = 0 + ntotdebit = 0 + ntotsold = 0 + ntotsoldval = 0 + Width = 793 + _memberdata = + + + _shape1.Anchor = 11 + _shape1.Name = "_shape1" + _shape1.Width = 792 + _shape1.ZOrderSet = 3 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 642 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 151 + _shape2.ZOrderSet = 4 + Lb_titlu_alb_b121.Caption = "REGISTRUL" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 30 + Lb_titlu_alb_b121.ZOrderSet = 5 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 762 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 29 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 6 + Gridsort1.Left = 378 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 49 + * + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 733, ; + Name = "But_excel1", ; + TabIndex = 28, ; + Top = 1, ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 703, ; + Name = "But_listare1", ; + TabIndex = 25, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ; + Anchor = 9, ; + Left = 642, ; + Name = "But_reset_criterii1", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ; + Anchor = 9, ; + caction = , ; + Height = 27, ; + Left = 672, ; + Name = "But_start_criterii1", ; + Picture = ..\comun\grafice\find_sus.bmp, ; + Style = 0, ; + Top = 1, ; + Width = 31 + *< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_nom_valute1' AS cb_nom_valute WITH ; + Anchor = 8, ; + Left = 378, ; + Name = "Cb_nom_valute1", ; + TabIndex = 35, ; + Top = 93, ; + ZOrderSet = 43 + *< END OBJECT: ClassLib="..\comun\clase\oparteneri.vcx" BaseClass="combobox" /> + + ADD OBJECT 'Ck_scadente' AS ck_filtru_text WITH ; + Alignment = 0, ; + Anchor = 3, ; + AutoSize = .T., ; + camp_nume = , ; + Caption = "Scadente", ; + FontName = "Arial Narrow", ; + Left = 12, ; + Name = "Ck_scadente", ; + TabIndex = 9, ; + ToolTipText = "Numele responsabilului", ; + Top = 34, ; + ZOrderSet = 24 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'cmdIncasPl' AS commandbutton WITH ; + AutoSize = .T., ; + Caption = "Plati / Incasari", ; + Height = 27, ; + Left = 446, ; + Name = "cmdIncasPl", ; + TabIndex = 49, ; + Top = 2, ; + Visible = .F., ; + Width = 95, ; + ZOrderSet = 46 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Command1' AS commandbutton WITH ; + Caption = "Note contabile", ; + Height = 27, ; + Left = 308, ; + Name = "Command1", ; + TabIndex = 48, ; + Top = 2, ; + Visible = .F., ; + Width = 84, ; + ZOrderSet = 45 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Command2' AS commandbutton WITH ; + Caption = "\ + + ADD OBJECT 'Command3' AS commandbutton WITH ; + AutoSize = .T., ; + Caption = "Istoric", ; + Height = 27, ; + Left = 394, ; + Name = "Command3", ; + TabIndex = 52, ; + Top = 2, ; + Visible = .F., ; + Width = 51, ; + ZOrderSet = 49 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'grid1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 39, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 377, ; + Left = 3, ; + Name = "grid1", ; + Panel = 1, ; + ReadOnly = .T., ; + TabIndex = 22, ; + Top = 132, ; + Width = 786, ; + ZOrderSet = 7, ; + Column1.ColumnOrder = 3, ; + Column1.ControlSource = "fdoc", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cfdoc", ; + Column1.ReadOnly = .T., ; + Column1.Visible = .T., ; + Column1.Width = 70, ; + Column2.ColumnOrder = 4, ; + Column2.ControlSource = "dataAct", ; + Column2.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cDataAct", ; + Column2.ReadOnly = .T., ; + Column2.Visible = .T., ; + Column2.Width = 50, ; + Column3.ColumnOrder = 5, ; + Column3.ControlSource = "dataScad", ; + Column3.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cDataScad", ; + Column3.ReadOnly = .T., ; + Column3.Visible = .T., ; + Column3.Width = 58, ; + Column4.ColumnOrder = 6, ; + Column4.ControlSource = "dataIreg", ; + Column4.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "cDataireg", ; + Column4.ReadOnly = .T., ; + Column4.Visible = .T., ; + Column4.Width = 51, ; + Column5.ColumnOrder = 8, ; + Column5.ControlSource = "nrAct", ; + Column5.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "cNrAct", ; + Column5.ReadOnly = .T., ; + Column5.Visible = .T., ; + Column5.Width = 64, ; + Column6.ColumnOrder = 9, ; + Column6.ControlSource = "nume", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "cNume", ; + Column6.ReadOnly = .T., ; + Column6.Visible = .T., ; + Column6.Width = 160, ; + Column7.ColumnOrder = 10, ; + Column7.ControlSource = "debit+precdeb", ; + Column7.FontName = "Arial Narrow", ; + Column7.InputMask = (get_mask(12,gnPC)), ; + Column7.Name = "cTotDeb", ; + Column7.ReadOnly = .T., ; + Column7.Visible = .T., ; + Column7.Width = 73, ; + Column8.ColumnOrder = 11, ; + Column8.ControlSource = "credit+preccred", ; + Column8.FontName = "Arial Narrow", ; + Column8.InputMask = (get_mask(12,gnPC)), ; + Column8.Name = "cTotCred", ; + Column8.ReadOnly = .T., ; + Column8.Visible = .T., ; + Column8.Width = 72, ; + Column9.ColumnOrder = 13, ; + Column9.ControlSource = "(precdeb+debit)-(preccred+credit)", ; + Column9.DynamicBackColor = "RGB(187,235,255)", ; + Column9.FontName = "Arial Narrow", ; + Column9.InputMask = (get_mask(12,gnPC)), ; + Column9.Name = "cSoldFinal", ; + Column9.ReadOnly = .T., ; + Column9.Visible = .T., ; + Column9.Width = 77, ; + Column10.ColumnOrder = 12, ; + Column10.ControlSource = "valdebit+precValDeb", ; + Column10.FontName = "Arial Narrow", ; + Column10.InputMask = (get_mask(12,gnPval)), ; + Column10.Name = "cTotDebVal", ; + Column10.ReadOnly = .T., ; + Column10.Visible = .T., ; + Column10.Width = 87, ; + Column11.ColumnOrder = 14, ; + Column11.ControlSource = "valcredit+precValCred", ; + Column11.FontName = "Arial Narrow", ; + Column11.InputMask = (get_mask(12,gnPval)), ; + Column11.Name = "cTotCredVal", ; + Column11.ReadOnly = .T., ; + Column11.Visible = .T., ; + Column11.Width = 75, ; + Column12.ColumnOrder = 15, ; + Column12.ControlSource = "(precValDeb+valDebit)-(precValCred+valCredit)", ; + Column12.DynamicBackColor = "RGB(187,235,255)", ; + Column12.FontName = "Arial Narrow", ; + Column12.InputMask = (get_mask(12,gnPval)), ; + Column12.Name = "cSoldVal", ; + Column12.ReadOnly = .T., ; + Column12.Visible = .T., ; + Column13.ColumnOrder = 2, ; + Column13.ControlSource = "acont", ; + Column13.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column13.FontName = "Arial Narrow", ; + Column13.Name = "cAcont", ; + Column13.ReadOnly = .T., ; + Column13.Visible = .T., ; + Column13.Width = 32, ; + Column14.ColumnOrder = 16, ; + Column14.ControlSource = "explicatia", ; + Column14.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column14.FontName = "Arial Narrow", ; + Column14.Name = "cExplicatia", ; + Column14.ReadOnly = .T., ; + Column14.Visible = .T., ; + Column14.Width = 100, ; + Column15.ColumnOrder = 17, ; + Column15.ControlSource = "nrord", ; + Column15.FontName = "Arial Narrow", ; + Column15.Name = "cNrord", ; + Column15.ReadOnly = .T., ; + Column15.Visible = .T., ; + Column15.Width = 78, ; + Column16.ColumnOrder = 19, ; + Column16.ControlSource = "nresp", ; + Column16.FontName = "Arial Narrow", ; + Column16.Name = "cnresp", ; + Column16.ReadOnly = .T., ; + Column16.Visible = .T., ; + Column16.Width = 139, ; + Column17.ColumnOrder = 20, ; + Column17.ControlSource = "debit", ; + Column17.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column17.FontName = "Arial Narrow", ; + Column17.InputMask = (get_mask(12,gnPC)), ; + Column17.Name = "cDebit", ; + Column17.ReadOnly = .T., ; + Column17.Visible = .T., ; + Column18.ColumnOrder = 21, ; + Column18.ControlSource = "credit", ; + Column18.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column18.FontName = "Arial Narrow", ; + Column18.InputMask = (get_mask(12,gnPC)), ; + Column18.Name = "cCredit", ; + Column18.ReadOnly = .T., ; + Column18.Visible = .T., ; + Column19.ColumnOrder = 22, ; + Column19.ControlSource = "valDebit", ; + Column19.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column19.FontName = "Arial Narrow", ; + Column19.InputMask = (get_mask(12,gnPval)), ; + Column19.Name = "cValDebit", ; + Column19.ReadOnly = .T., ; + Column19.Visible = .T., ; + Column20.ColumnOrder = 23, ; + Column20.ControlSource = "valcredit", ; + Column20.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column20.FontName = "Arial Narrow", ; + Column20.InputMask = (get_mask(12,gnPval)), ; + Column20.Name = "cValCredit", ; + Column20.ReadOnly = .T., ; + Column20.Visible = .T., ; + Column21.ColumnOrder = 24, ; + Column21.ControlSource = "nume_val", ; + Column21.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column21.FontName = "Arial Narrow", ; + Column21.Name = "cNume_val", ; + Column21.ReadOnly = .T., ; + Column21.Visible = .T., ; + Column21.Width = 35, ; + Column22.ColumnOrder = 25, ; + Column22.ControlSource = "curs", ; + Column22.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column22.FontName = "Arial Narrow", ; + Column22.InputMask = (get_mask(12,gnPCurs2)), ; + Column22.Name = "cCurs", ; + Column22.ReadOnly = .T., ; + Column22.Visible = .T., ; + Column22.Width = 68, ; + Column23.ColumnOrder = 26, ; + Column23.ControlSource = "precDeb", ; + Column23.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column23.FontName = "Arial Narrow", ; + Column23.InputMask = (get_mask(12,gnPC)), ; + Column23.Name = "cPrecDeb", ; + Column23.ReadOnly = .T., ; + Column23.Visible = .T., ; + Column24.ColumnOrder = 27, ; + Column24.ControlSource = "precCred", ; + Column24.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column24.FontName = "Arial Narrow", ; + Column24.InputMask = (get_mask(12,gnPC)), ; + Column24.Name = "cPrecCred", ; + Column24.ReadOnly = .T., ; + Column24.Visible = .T., ; + Column25.ColumnOrder = 30, ; + Column25.ControlSource = "explicatia4", ; + Column25.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column25.FontName = "Arial Narrow", ; + Column25.Name = "cExplicatia4", ; + Column25.ReadOnly = .T., ; + Column25.Visible = .T., ; + Column26.ColumnOrder = 31, ; + Column26.ControlSource = "explicatia5", ; + Column26.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column26.FontName = "Arial Narrow", ; + Column26.Name = "cExplicatia5", ; + Column26.ReadOnly = .T., ; + Column26.Visible = .T., ; + Column27.ColumnOrder = 32, ; + Column27.ControlSource = "venChelt", ; + Column27.FontName = "Arial Narrow", ; + Column27.Name = "cVenChelt", ; + Column27.ReadOnly = .T., ; + Column27.Visible = .T., ; + Column27.Width = 61, ; + Column28.ColumnOrder = 33, ; + Column28.ControlSource = "cod", ; + Column28.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column28.FontName = "Arial Narrow", ; + Column28.Name = "cCod", ; + Column28.ReadOnly = .T., ; + Column28.Visible = .T., ; + Column28.Width = 51, ; + Column29.ColumnOrder = 34, ; + Column29.ControlSource = "id_fact", ; + Column29.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column29.FontName = "Arial Narrow", ; + Column29.Name = "cId_fact", ; + Column29.ReadOnly = .T., ; + Column29.Visible = .T., ; + Column29.Width = 53, ; + Column30.ColumnOrder = 35, ; + Column30.ControlSource = "id_set", ; + Column30.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column30.FontName = "Arial Narrow", ; + Column30.Name = "cId_set", ; + Column30.ReadOnly = .T., ; + Column30.Visible = .T., ; + Column30.Width = 50, ; + Column31.ColumnOrder = 36, ; + Column31.ControlSource = "id_part", ; + Column31.FontName = "Arial Narrow", ; + Column31.Name = "cId_part", ; + Column31.ReadOnly = .T., ; + Column31.Visible = .T., ; + Column31.Width = 71, ; + Column32.ColumnOrder = 1, ; + Column32.ControlSource = "cont", ; + Column32.FontName = "Arial Narrow", ; + Column32.Name = "Column32", ; + Column32.ReadOnly = .T., ; + Column32.Width = 29, ; + Column33.ColumnOrder = 28, ; + Column33.ControlSource = "precvaldeb", ; + Column33.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column33.FontName = "Arial Narrow", ; + Column33.InputMask = (get_mask(12,gnPval)), ; + Column33.Name = "cPrecValDeb", ; + Column33.ReadOnly = .T., ; + Column33.Width = 80, ; + Column34.ColumnOrder = 29, ; + Column34.ControlSource = "precvalcred", ; + Column34.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column34.FontName = "Arial Narrow", ; + Column34.InputMask = (get_mask(12,gnPval)), ; + Column34.Name = "cPrecValCred", ; + Column34.ReadOnly = .T., ; + Column34.Width = 84, ; + Column35.ColumnOrder = 18, ; + Column35.ControlSource = "contract", ; + Column35.FontName = "Arial Narrow", ; + Column35.Name = "Column35", ; + Column35.ReadOnly = .T., ; + Column36.ColumnOrder = 7, ; + Column36.ControlSource = "serie_act", ; + Column36.FontName = "Arial Narrow", ; + Column36.Name = "cSerie_act", ; + Column36.ReadOnly = .T., ; + Column36.Width = 53, ; + Column37.ControlSource = "proc_tva", ; + Column37.FontName = "Arial Narrow", ; + Column37.Name = "cProcentTVA", ; + Column37.ReadOnly = .T., ; + Column38.ControlSource = "explicatie_TVA", ; + Column38.DynamicBackColor = "IIF(THIS.READONLY,RGB(255,255,255),RGB(252,255,183))", ; + Column38.FontName = "Arial Narrow", ; + Column38.Name = "cExplicatieTVA", ; + Column38.ReadOnly = .T., ; + Column38.Sparse = .T., ; + Column38.Width = 148, ; + Column39.ControlSource = "sucursala", ; + Column39.FontName = "Arial Narrow", ; + Column39.Name = "cSucursala", ; + Column39.ReadOnly = .T., ; + Column39.Width = 151 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid1.cAcont.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Analitic", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cAcont.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cCod.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cCod.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cCredit.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cCredit.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cCurs.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs de schimb", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cCurs.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cDataAct.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 212,208,200, ; + Caption = "Data Act", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,255, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cDataAct.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cDataireg.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data inreg", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cDataireg.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cDataScad.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadenta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cDataScad.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cDebit.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cDebit.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cExplicatia.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cExplicatia.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cExplicatia4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia 4", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cExplicatia4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cExplicatia5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatia 5", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cExplicatia5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cExplicatieTVA.combo1' AS combobox WITH ; + BoundColumn = 1, ; + BoundTo = .T., ; + FontName = "Arial Narrow", ; + Height = 24, ; + Left = 30, ; + Name = "combo1", ; + ReadOnly = .T., ; + RowSource = "jtva_temp.denumire", ; + RowSourceType = 6, ; + SpecialEffect = 1, ; + Top = 23, ; + Width = 100 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'grid1.cExplicatieTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Explicatie TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cfdoc.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Fel Doc", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cfdoc.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cId_fact.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id fact", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cId_fact.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cId_part.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id Partener", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cId_part.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cId_set.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id set", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cId_set.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cNrAct.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 212,208,200, ; + Caption = "Nr. Doc.", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,255, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cNrAct.Text1' AS textbox WITH ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cnresp.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Responsabil", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cnresp.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cNrord.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Lucrare/Comanda", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cNrord.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cNume.Header1' AS header WITH ; + Alignment = 2, ; + BackColor = 192,192,192, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,255, ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cNume.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cNume_val.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cNume_val.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.Column32.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column32.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.Column35.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Contract", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.Column35.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cPrecCred.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Prec. Credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cPrecCred.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cPrecDeb.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Prec. Debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cPrecDeb.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cPrecValCred.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Prec. Valuta Credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cPrecValCred.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cPrecValDeb.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Prec. Valuta Debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cPrecValDeb.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cProcentTVA.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cProcentTVA.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ControlSource = "proc_tva", ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cSerie_act.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Serie Doc.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cSerie_act.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cSoldFinal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold final", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cSoldFinal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cSoldVal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sold valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cSoldVal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cSucursala.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Sucursala", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cSucursala.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cTotCred.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total Credit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cTotCred.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cTotCredVal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total Credit Valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cTotCredVal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cTotDeb.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total Debit", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cTotDeb.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cTotDebVal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Total Debit Valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cTotDebVal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cValCredit.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Credit Valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cValCredit.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cValDebit.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Debit Valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cValDebit.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid1.cVenChelt.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Venituri/Chelt.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid1.cVenChelt.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T., ; + SelectedBackColor = 0,64,128, ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label2' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = (thisform.grid1.cTotDeb.header1.caption), ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 516, ; + Name = "Label2", ; + TabIndex = 42, ; + Top = 40, ; + Width = 45, ; + ZOrderSet = 38 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "TOTAL", ; + FontBold = .T., ; + FontName = "Times New Roman", ; + FontSize = 12, ; + Height = 22, ; + Left = 381, ; + Name = "Label3", ; + TabIndex = 34, ; + Top = 40, ; + Width = 55, ; + ZOrderSet = 31 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = (thisform.grid1.cTotCred.header1.caption), ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 623, ; + Name = "Label4", ; + TabIndex = 43, ; + Top = 40, ; + Width = 49, ; + ZOrderSet = 39 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Sold", ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 762, ; + Name = "Label5", ; + TabIndex = 44, ; + Top = 40, ; + Width = 21, ; + ZOrderSet = 40 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + Anchor = 9, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = (thisform.grid1.cTotDebVal.header1.caption), ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 478, ; + Name = "Label6", ; + TabIndex = 31, ; + Top = 76, ; + Width = 2, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label8' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = (thisform.grid1.cTotCredVal.header1.caption), ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 594, ; + Name = "Label8", ; + TabIndex = 46, ; + Top = 77, ; + Width = 78, ; + ZOrderSet = 42 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + Anchor = 8, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Sold Valuta", ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 733, ; + Name = "Label9", ; + TabIndex = 45, ; + Top = 77, ; + Width = 50, ; + ZOrderSet = 41 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ; + Anchor = 8, ; + Caption = "Valuta", ; + FontName = "Arial Narrow", ; + Left = 378, ; + Name = "Lb_simplu1", ; + TabIndex = 33, ; + Top = 76, ; + ZOrderSet = 30 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ; + Anchor = 10, ; + Caption = ' Pentru a vizualiza documentele salvate in baza de date, trebuie sa faceti click dreapta pe coloana "Nr.Doc." ( doar inregistrarile colorate au atasamente ).', ; + Height = 47, ; + Left = 13, ; + Name = "Lb_simplu2", ; + Top = 58, ; + Width = 320, ; + WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'oMenuShortcut' AS menulib WITH ; + Left = 191, ; + Name = "oMenuShortcut", ; + TabIndex = 47, ; + Top = 10, ; + ZOrderSet = 44 + *< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + Anchor = 8, ; + BackStyle = 0, ; + Height = 88, ; + Left = 376, ; + Name = "Shape2", ; + SpecialEffect = 0, ; + Top = 36, ; + Width = 411, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + Alignment = 1, ; + Anchor = 8, ; + ControlSource = "Thisform.ntotdebit", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = (get_mask(12,gnPC)), ; + Left = 453, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabIndex = 36, ; + Top = 55, ; + Width = 108, ; + ZOrderSet = 32 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + Alignment = 1, ; + Anchor = 8, ; + ControlSource = "Thisform.ntotcredit", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = (get_mask(12,gnPC)), ; + Left = 564, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabIndex = 37, ; + Top = 55, ; + Width = 108, ; + ZOrderSet = 33 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS textbox WITH ; + Alignment = 1, ; + Anchor = 8, ; + ControlSource = "Thisform.ntotSold", ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = (get_mask(12,gnPC)), ; + Left = 675, ; + Name = "Text3", ; + ReadOnly = .T., ; + TabIndex = 38, ; + Top = 55, ; + Width = 108, ; + ZOrderSet = 34 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS textbox WITH ; + Alignment = 1, ; + Anchor = 8, ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = (get_mask(12,gnPval)), ; + Left = 453, ; + Name = "Text4", ; + ReadOnly = .T., ; + TabIndex = 39, ; + Top = 94, ; + Width = 108, ; + ZOrderSet = 35 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS textbox WITH ; + Alignment = 1, ; + Anchor = 8, ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = (get_mask(12,gnPval)), ; + Left = 564, ; + Name = "Text5", ; + ReadOnly = .T., ; + TabIndex = 40, ; + Top = 94, ; + Width = 108, ; + ZOrderSet = 36 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS textbox WITH ; + Alignment = 1, ; + Anchor = 8, ; + FontName = "Arial Narrow", ; + Format = "r", ; + Height = 23, ; + InputMask = (get_mask(12,gnPval)), ; + Left = 675, ; + Name = "Text6", ; + ReadOnly = .T., ; + TabIndex = 41, ; + Top = 94, ; + Width = 108, ; + ZOrderSet = 37 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Activate + Thisform.WindowState=2 + + tw1=Thisform.Width + tl1=Thisform.Height + + tw2=Thisform.Width + tl2=Thisform.Height + + gw1=Thisform.grid1.Width + gl1=Thisform.grid1.Height + + Thisform.grid1.Width = Round(gw1*tw2/tw1,0) + Thisform.grid1.Height = Round(gl1*tl2/tl1,0) + + lnlung1 = Thisform._shape1.Width + Thisform._shape1.Width = Round(lnlung1*tw2/tw1,0) + lndif = Thisform._shape1.Width-lnlung1 + Thisform._shape2.Left = Thisform._shape2.Left+lndif + ** + + Thisform.Paint + Thisform.Refresh + + Set Safety Off + Select actcv + ENDPROC + + PROCEDURE actualizeaza_grid1 + Lparameters tcFiltru + Local lcFiltru,llCautareNoua + + If Empty(tcFiltru) + lcFiltru = poireg_parteneri.ca_baza1.cfiltru + llCautareNoua=.F. + Else + lcFiltru = tcFiltru + llCautareNoua=.T. + Endif + + + lcOrder= This.corderby + " " + This.Casc + + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + save_grid_tag(Thisform.grid1) + + *!* IF USED("actcv") + *!* USE IN actcv + *!* ENDIF + + poireg_parteneri.ca_baza1.cfiltru = lcFiltru + poireg_parteneri.ca_baza1.corder = lcOrder + poireg_parteneri.ca_baza1.afisare() + + *!* STRTOFILE(poireg_parteneri.ca_baza1.selectcmd,"c:\sele.txt") + + *!* USE DBF("v_ireg_parteneri") IN 0 AGAIN ALIAS actcv + + restore_grid_tag(Thisform.grid1) + Thisform.MousePointer= 0 + Thisform.LockScreen=.F. + + *!* If !Thisform.eactan + *!* Do nrord With "ACTJUR" + *!* *!* else + *!* *!* thisform.clb_tx_simplu1.visible=iif(thisform.ck_total.value=0,.F.,.T.) + *!* Endif + + *!* If Thisform.ck_perioada.Value=1 + *!* With Thisform.ck_perioada + *!* If .cvaloare1=Thisform.ck_perioada.cvaloare2 + *!* Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+; + *!* " "+.cvaloare1 + *!* Else + *!* Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+; + *!* " "+.cvaloare1+" - "+.cvaloare2 + *!* Endif + *!* Endwith + *!* Else + *!* Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+; + *!* " "+Padl(Alltrim(Str(gnluna)),2,"0")+"/"+Alltrim(Str(gnAn)) + *!* Endif + &&===========actualizeaza_totaluri + *!* Select actcv + *!* Sum (debit+precdeb) To Thisform.ntotdebit + *!* SUM (credit+preccred) TO thisform.ntotcredit + + *!* Sum (valdebit+precvaldeb) To Thisform.ndebitval + *!* SUM (valcredit+precvalcred) TO thisform.ncreditval + *!* IF tlActiv + *!* SUM ((precdeb + debit) - ( preccred + credit)) TO thisform.ntotsold + *!* SUM ((precvaldeb + valdebit) - ( precvalcred + valcredit)) TO thisform.ntotsoldval + *!* ELSE + *!* SUM ((preccred + credit) - (precdeb + debit)) TO thisform.ntotsold + *!* SUM (( precvalcred + valcredit) - (precvaldeb + valdebit)) TO thisform.ntotsoldval + *!* ENDIF + &&==================== + Thisform.cb_nom_valute1.initializare(llCautareNoua) + Thisform.actualizeaza_totaluri() + + Select actcv + *!* If Thisform.clb_tx_simplu1.Visible=.T. + *!* Sum suma To Thisform.nsuma + *!* Endif + *!* If Thisform.ck_sters.Visible=.T. + + *!* Endif + thisform.griD1.SetFocus + *!* Thisform.clb_tx_simplu1.text_simplu1.Refresh + + ENDPROC + + PROCEDURE actualizeaza_totaluri + LOCAL lcValuta,lcPoz + lcValuta=ALLTRIM(THISFORM.cb_nom_valute1.VALUE) + + SELECT actcv + lnPoz=IIF(RECCOUNT('actcv')>0,RECNO(),0) + + *!* SELECT * FROM actcv INTO TABLE c:\actcv_.DBF + SUM (debit+precdeb),(credit+preccred) TO THISFORM.ntotdebit,THISFORM.ntotcredit + IF TYPE('actcv.precvalcred')<>'U' AND TYPE('actcv.precvaldeb')<>'U' + SUM (valdebit+precvaldeb),(valcredit+precvalcred) TO THISFORM.ndebitval,THISFORM.ncreditval FOR nume_val=lcValuta + ENDIF + + IF THISFORM.lactiv + SUM ((precdeb + debit) - ( preccred + credit)) TO THISFORM.ntotsold + IF TYPE('actcv.precvalcred')<>'U' AND TYPE('actcv.precvaldeb')<>'U' + SUM ((precvaldeb + valdebit) - ( precvalcred + valcredit)) TO THISFORM.ntotsoldval FOR nume_val=lcValuta + ENDIF + ELSE + SUM ((preccred + credit) - (precdeb + debit)) TO THISFORM.ntotsold + IF TYPE('actcv.precvalcred')<>'U' AND TYPE('actcv.precvaldeb')<>'U' + SUM ((precvalcred + valcredit) - (precvaldeb + valdebit)) TO THISFORM.ntotsoldval FOR nume_val=lcValuta + ENDIF + ENDIF + + THISFORM.text1.REFRESH + THISFORM.text2.REFRESH + THISFORM.text3.REFRESH + THISFORM.text4.REFRESH + THISFORM.text5.REFRESH + THISFORM.text6.REFRESH + + IF RECCOUNT('actcv')>0 + SELECT actcv + GO lnPoz + ENDIF + + ENDPROC + + PROCEDURE butapend + If glLunaInchisa + RETURN + Endif + Local lcTitlu,lbMenu[4] + lcTitlu=Thisform.lb_titlu_alb_b121.Caption + + lbMenu="" + If Thisform.grid1.ReadOnly + *!* lbMenu[1]="\Alegeti partenerul ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont)) + IF !EMPTY(locauta.nume) + lnid_part=locauta.id_part + lcnume=ALLTRIM(locauta.nume) + ELSE + RETURN + ENDIF + + lcacont = [] + IF USED('crsacont') + USE IN crsacont + ENDIF + *!* lcSql=[select count(*) as aconturi from vplcont_analitic ]+; + *!* [where cont=']+ALLTRIM(THISFORM.CONT)+[' and an=]+ALLTRIM(STR(gnAn)) + lcSql=[select count(*) as aconturi from vplcont_analitic ]+; + [where cont=']+lcCont+[' and an=]+ALLTRIM(STR(gnAn)) + lnSucces = goExecutor.oExecute(lcSql,"crsacont") + IF lnSucces < 0 + lcTextEroare = goExecutor.cEroare + aMESSAGEBOX(lcTextEroare,0+48,"Eroare") + ENDIF + IF lnSucces > 0 AND crsacont.aconturi>0 + STORE "" TO locauta + *!* pcselect = ['select acont,explicatie FROM vplcont_analitic '+]+; + *!* ["where cont=']+ALLTRIM(THISFORM.CONT)+[' and an=]+ALLTRIM(STR(gnAn))+["] + pcselect = ['select acont,explicatie FROM vplcont_analitic '+]+; + ["where cont=']+lcCont+[' and an=]+ALLTRIM(STR(gnAn))+["] + pcfiltru = [1=2] + pcschema = [''] + pcorder = [acont] + pccoloane = [acont] + pcTitlu = [Alegeti contul analitic] + pcTitluColoane = [Acont,Explicatie] + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane) + IF !EMPTY(locauta.acont) + lcacont=ALLTRIM(locauta.acont) + ELSE + IF gnButon=2 + RETURN + ELSE + lcacont="" + ENDIF + ENDIF + ENDIF + IF USED('crsacont') + USE IN crsacont + ENDIF + IF lnSucces > 0 + loValuta = caut_valuta() + lnIdValuta = IIF(!EMPTY(loValuta.id_valuta), loValuta.id_valuta, 0) + lcNumeValuta = IIF(!EMPTY(loValuta.nume_val), loValuta.nume_val, "") + *!* 17.10.2006 + *!* marius.mutu + IF EMPTY(loValuta.nume_val) OR EMPTY(loValuta.id_valuta) + loCauta = GetMonedaNationala() + lnIdValuta = loCauta.id_valuta + lcNumeValuta = ALLTRIM(locauta.nume_val) + ENDIF + ENDIF + IF lnSucces > 0 + loFdoc = caut_fdoc() + lnIdFdoc = IIF(!EMPTY(loFdoc.id_fdoc), loFdoc.id_fdoc, 0) + lcfdoc = IIF(!EMPTY(loFdoc.fel_document), loFdoc.fel_document, "") + ENDIF + IF lnSucces > 0 + loResp = caut_responsabil() + lnIdResp = IIF(!EMPTY(loResp.id_responsabil), loResp.id_responsabil, 0) + lcResp = IIF(!EMPTY(loResp.nume), loResp.nume, "") + ENDIF + + SELECT actcv + + APPEND BLANK + REPLACE CONT WITH lcCont && ALLTRIM(THISFORM.CONT) + REPLACE acont WITH lcacont + REPLACE id_ireg_part WITH 0 + REPLACE id_part WITH lnid_part + REPLACE nume WITH lcnume + REPLACE id_fdoc WITH 0 + REPLACE fdoc WITH lcfdoc + REPLACE id_fdoc WITH lnIdFdoc + REPLACE id_valuta WITH lnIdValuta + REPLACE id_responsabil WITH lnIdResp + REPLACE nresp WITH lcResp + REPLACE nume_val WITH lcNumeValuta + REPLACE id_responsabil WITH 0 + REPLACE id_lucrare WITH 0 + REPLACE id_fact WITH 0 + REPLACE id_act WITH 0 + REPLACE id_set WITH 0 + REPLACE id_venchelt WITH 0 + REPLACE cod WITH 0 + REPLACE id_sucursala WITH lnIdSucursala, sucursala WITH lcSucursala + + THISFORM.lmodificata=.T. + THISFORM.lvaluta=.F. + THISFORM.grid1.cfdoc.SETFOCUS() + *!* Else + *!* Thisform.grid1.SetFocus() + *!* Endif + + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru = "" + + *!* If m.nivel>1 + *!* lcFiltru = lcFiltru + [ AND ID_UTIL=]+ALLTRIM(STR(gnidutil))+[ ] + *!* ENDIF + + * nrdoc + *!* If Thisform.ck_nrdoc.Value=1 + *!* lcFiltru = lcFiltru + Thisform.ck_nrdoc.filtru + *!* Endif + *!* * responsabil + *!* If Thisform.ck_responsabil.Value=1 + *!* lcFiltru = lcFiltru + Thisform.ck_responsabil.filtru + *!* Endif + *!* * dataDoc + *!* If This.ck_dataDoc.Value = 1 + *!* lcFiltru = lcFiltru + Thisform.ck_dataDoc.filtru + *!* Endif + + *!* * datascad + *!* If This.ck_datascad.Value = 1 + *!* lcFiltru = lcFiltru + Thisform.ck_datascad.filtru + *!* Endif + + *!* * analitic + *!* If This.ck_analitic.Value = 1 + *!* lcFiltru = lcFiltru + Thisform.ck_analitic.filtru + *!* Endif + + *!* * cont + *!* If This.ck_cont.Value = 1 + *!* lcFiltru = lcFiltru + Thisform.ck_cont.filtru + *!* Endif + + *!* * firma + *!* If This.ck_firma.Value = 1 + *!* lcFiltru = lcFiltru + Thisform.ck_firma.filtru + *!* Endif + + *!* * venit_cheltuiala + *!* If This.ck_venchelt.Value = 1 + *!* lcFiltru = lcFiltru + Thisform.ck_venchelt.filtru + *!* ENDIF + + *!* * lucrare/comanda + *!* If This.ck_lucrare.Value = 1 + *!* lcFiltru = lcFiltru + Thisform.ck_lucrare.filtru + *!* ENDIF + + *!* * contract + *!* If This.ck_contract.Value = 1 + *!* lcFiltru = lcFiltru + Thisform.ck_contract.filtru + *!* Endif + + *!* * debit + *!* If Thisform.ck_debit.Value=1 + *!* lcFiltru = lcFiltru + Thisform.ck_debit.filtru + *!* Endif + + *!* * credit + *!* If Thisform.ck_credit.Value=1 + *!* lcFiltru = lcFiltru + Thisform.ck_credit.filtru + *!* Endif + + *!* * sold + *!* If This.ck_sold.Value = 1 + *!* lcFiltru = lcFiltru + Thisform.ck_sold.filtru + *!* Endif + + *!* * valuta + *!* If This.ck_valuta.Value = 1 + *!* lcFiltru = lcFiltru + Thisform.ck_valuta.filtru + *!* Endif + + *!* * explicatia + *!* If This.ck_explicatia.Value = 1 + *!* lcFiltru = lcFiltru + This.ck_explicatia.filtru + *!* ENDIF + + *!* * fel document + *!* If This.Ck_fel_doc.Value = 1 + *!* lcFiltru = lcFiltru + This.Ck_fel_doc.filtru + *!* ENDIF + + *!* *scadente + If This.Ck_scadente.Value = 1 + lcFiltru = lcFiltru + This.Ck_scadente.filtru + ENDIF + + *!* *explicatia4 + *!* IF this.ck_explicatia4.Value=1 + *!* lcFiltru = lcFiltru + this.ck_explicatia4.filtru + *!* ENDIF + + *ACHITATE + *!* If This.check3.Value = 1 + *!* If thisform.lActiv + *!* lcFiltru = lcFiltru + "and (i.precdeb + i.debit) - (i.preccred + i.credit) = 0" + *!* Else + *!* lcFiltru = lcFiltru + "and (i.preccred + i.credit) - (i.precdeb + i.debit) = 0" + *!* Endif + *!* Endif + + *!* *NEACHITATE + *!* If This.check4.Value = 1 + *!* If thisform.lActiv + *!* lcFiltru = lcFiltru + " and (i.precdeb + i.debit) - ( i.preccred + i.credit) <> 0" + *!* Else + *!* lcFiltru = lcFiltru + "and (i.preccred + i.credit) - (i.precdeb + i.debit) <> 0" + *!* Endif + *!* Endif + + *!* If This.check7.Value = 1 + *!* lcFiltru = lcFiltru + " and extract (year from i.datascad) =" + Alltrim(Str(gnAn)) + "and extract (month from i.datascad) = " + Alltrim(Str(gnLuna)) + *!* Endif + IF PEMSTATUS(thisform,"filtru_pretty",5) + else + thisform.AddProperty("filtru_pretty","") + endif + IF LEN(thisform.filtru_pretty)>0 + filtrutext=thisform.filtru_pretty + IF AT("AND",filtrutext)=1 + filtrutext=RIGHT(filtrutext,LEN(filtrutext)-4) + ENDIF + + lcFiltru=lcFiltru+" and ("+ALLTRIM(filtrutext)+")" + ENDIF + + If !Empty(lcFiltru) + lcFiltru = [i.cont in ('] + Alltrim(STRTRAN(Thisform.cont, [,], [','])) + [') ] + lcFiltru + Else + lcFiltru = [i.cont in ('] + Alltrim(STRTRAN(Thisform.cont, [,], [','])) + [') ] + Endif + + + + + + IF (this.filtru_pretty#"none") + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + + If Reccount('actcv')=0 + aMessagebox("Cautarea nu a intors rezultate!",64,"Info cautare") + ENDIF + ENDIF + thisform.but_start_criterii1.SetFocus + + ENDPROC + + PROCEDURE do_excel + Local lcAlias, lcFiltru, lcColumnList, lcHeaderList, lcSelect, lcOutput, lcFrom, lcWhere, lcOrder + lcAlias = this.grid1.RecordSource + lcFiltru = FILTER(lcAlias) + IF EMPTY(lcFiltru) + lcFiltru = '.T.' + ENDIF + + exista_excel=.T. + lcColumnList = '' + lcHeaderList = '' + lcSelect = '' + llSelect = .T. + lcType = 'CURSOR' + lcFrom = lcAlias + lcWhere = lcFiltru + lcOrder = 'nume' + lcOutput = 'crsIregPart' + + get_schema_grid(this.grid1,@lcColumnList, @lcHeaderList, @lcSelect, llSelect, lcType, lcFrom, lcWhere, lcOrder, lcOutput) + &lcSelect + IF USED(lcOutput) + DO export_xls WITH lcOutput IN oproceduri_comune.prg + USE IN (lcOutput) + ENDIF + ENDPROC + + PROCEDURE do_listare + Local lcRaport, x + Private pcTitlu, t1, t2, t3, t4 + Store "" To pcTitlu + lcRaport = "" + lcTitlu = "" + t1 = Thisform.grid1.cTotDeb.header1.Caption + t2 = Thisform.grid1.cTotCred.header1.Caption + + t3 = Thisform.grid1.cTotDebVal.header1.Caption + t4 = Thisform.grid1.cTotCredVal.header1.Caption + + *!* MESSAGEBOX('EACTIV = ' + TRANSFORM(EACTIV) + CHR(13) + t1 + " " + t2 + CHR(13) + t3 + " " + t4 + CHR(13) + iif(eActiv,t1,t2) + " " + iif(eActiv,t3,t4)) + x = xmenu("Lista facturi pe parteneri - lei;Lista facturi simpla;Lista facturi pe parteneri - lei,valuta;Lista facturi pe parteneri - valuta;Lista solduri facturi pe parteneri;Centralizator facturi emise in luna") + Private pcSubtitlu + If This.filtru_traducere()#"" + lctext=" si "+This.filtru_traducere() + Else + lctext="" + Endif + + pcSubtitlu = this.filtru_pretty_ro + lctext + + Do Case + Case x = 1 + + t1 = Thisform.grid1.cTotDeb.header1.Caption + t2 = Thisform.grid1.cCredit.header1.Caption + t3 = Thisform.grid1.cPrecCred.header1.Caption + t4 = Thisform.grid1.cTotCred.header1.Caption + lcTitlu = "pe parteneri" && Lista facturi pe parteneri - lei + lcRaport = "ireg_parteneri_rpt2lei" + Select * ; + FROM actcv With (Buffering = .T.) ; + ORDER By nume,dataact,nract ; + INTO Cursor curent_cursor NOFILTER + + + Case x = 2 + lcTitlu = "" && Lista facturi simpla + lcRaport = "ireg_parteneri_rpt1" + Select * ; + FROM actcv With (Buffering = .T.) ; + ORDER By dataact,nract ; + INTO Cursor curent_cursor NOFILTER + + Case x = 3 + lcTitlu = "pe parteneri" && Lista facturi pe parteneri - lei,valuta + lcRaport = "ireg_parteneri_rpt2" + Select * ; + FROM actcv With (Buffering = .T.) ; + ORDER By nume,dataact,nract ; + INTO Cursor curent_cursor NOFILTER + + Case x = 4 + lcTitlu = "pe parteneri - valuta" && Lista facturi pe parteneri - valuta + lcRaport = "ireg_parteneri_rpt3" + Select * ; + FROM actcv With (Buffering = .T.) ; + WHERE precvaldeb <> 0 Or precvalcred <> 0 Or valdebit <> 0 Or valcredit <> 0 ; + ORDER By nume,dataact,nract ; + INTO Cursor curent_cursor NOFILTER + + Case x = 5 + lcTitlu = "solduri pe parteneri" && Lista solduri facturi pe parteneri + lcRaport = "ireg_parteneri_rpt5" + Select nume, nume_val, Sum(precdeb) As precdeb, Sum(preccred) As preccred, Sum(precvaldeb) As precvaldeb, Sum(precvalcred) As precvalcred, ; + SUM(debit) As debit, Sum(credit) As credit, Sum(valdebit) As valdebit, Sum(valcredit) As valcredit ; + FROM actcv With (Buffering = .T.) ; + GROUP By nume, nume_val ; + ORDER By nume, nume_val ; + INTO Cursor curent_cursor NOFILTER + + Case x = 6 + lcTitlu = "centralizator" && Centralizator facturi emise in luna + lcRaport = "ireg_parteneri_rpt6" + Select nract, dataact, serie_act, nume, nume_val, Sum(precdeb) As precdeb, Sum(preccred) As preccred, Sum(precvaldeb) As precvaldeb, Sum(precvalcred) As precvalcred, ; + SUM(debit) As debit, Sum(credit) As credit, Sum(valdebit) As valdebit, Sum(valcredit) As valcredit ; + FROM actcv With (Buffering = .T.) ; + WHERE Year(DATAIREG) * 12 + Month(DATAIREG) = gnAn * 12 + gnLuna ; + GROUP By serie_act, nract, dataact, nume, nume_val ; + ORDER By dataact, nume, serie_act, nract, nume_val ; + INTO Cursor curent_cursor NOFILTER + + otherwise + RETURN + Endcase + + *!* If Empty(lcRaport) Or !Used('curent_cursor') + *!* Return + *!* Endif + + *!* If Reccount('curent_cursor') = 0 + *!* AMESSAGEBOX('Raportul nu contine rezultate',0+48,"Raport") + *!* Else + + pcTitlu = Thisform.lb_titlu_alb_b121.Caption + " " + lcTitlu + *!* titlu = ceretitlu_rap('Titlul Raportului', lcTitlu) + + *!* pcDataOra = get_ora(2) + + *!* Thisform.AlwaysOnTop=.F. + *!* Select curent_cursor + *!* Report Format &lcRaport To Printer Prompt Preview + *!* Thisform.AlwaysOnTop=.T. + *!* Endif + thisform.AlwaysOnTop = .F. + goExport.export2frx([curent_cursor],lcRaport,.T.) + thisform.AlwaysOnTop = .T. + If Used('curent_cursor') + Use In curent_cursor + Endif + RELEASE pcTitlu + + ENDPROC + + PROCEDURE do_modifica + Parameters tlIesire + *!* in contracte nu trebuie modificat + Return + + LOCAL llInsert, lcIdSucursala + lcIdSucursala = '' + llInsert = .F. + + Local lcFunctie,lcSql,lcMesaj,lcActiune,lcTitlu,llIesire + PRIVATE loRec + llIesire=tlIesire + If Empty(llIesire) + llIesire=.F. + Endif + Select actcv + Scatter Name loRec + nrlin=Recno() + lnid_part=loRec.id_part + + If loRec.id_ireg_part=0 + llInsert = .T. + lcMesaj=[Doriti sa adaugati aceasta inregistrare?] + lcActiune=[adaugata] + lcTitlu=[Adaugare] + ELSE + lcMesaj=[Doriti sa modificati aceasta inregistrare?] + lcActiune=[modificata] + lcTitlu=[Modificare] + Endif + + Thisform.grid1.SetAll("DynamicFontBold","IIF(RECNO()=nrlin,.T.,.F.)","Column") + Thisform.grid1.Refresh() + + If aMessagebox(lcMesaj,4+32+256,lcTitlu)==6 + Thisform.grid1.SetAll("DynamicFontBold",".F.","Column") + Thisform.grid1.Refresh() + + If Empty(loRec.dataact) And !Isnull(loRec.fdoc) + aMessagebox("Nu ati introdus data documentului!",0+48,"Atentie") + Thisform.leroare=.T. + Thisform.grid1.cDataAct.SetFocus() + Return + Endif + + *!* If Empty(loRec.datascad) And !Isnull(loRec.fdoc) + *!* Messagebox("Nu ati introdus data scadenta!",0+48,"Atentie") + *!* Thisform.leroare=.T. + *!* Thisform.grid1.column2.SetFocus() + *!* Return + *!* Endif + + If Empty(loRec.nract) And !Isnull(loRec.fdoc) + aMessagebox("Nu ati introdus numarul documentului!",0+48,"Atentie") + Thisform.leroare=.T. + Thisform.grid1.cNrAct.SetFocus() + Return + Endif + + If !Thisform.grid1.cNresp.Visible + AddProperty(loRec,'id_responsabil',Null) + Endif + + If loRec.id_valuta=0 And (loRec.valcredit>0 Or loRec.valdebit>0) + aMessagebox("Nu ati introdus numele valutei!",0+48,"Atentie") + Thisform.lvaluta=.T. + Thisform.leroare=.T. + Thisform.grid1.cNume_val.SetFocus() + Return + Endif + + If loRec.id_valuta>0 And loRec.Curs=0 + aMessagebox("Nu ati introdus cursul de schimb!",0+48,"Atentie") + Thisform.leroare=.T. + Thisform.grid1.cCurs.SetFocus() + Return + ENDIF + + + lnidjtva=VAL(TRANSFORM(loRec.id_jtva_coloana)) + lnproctva=lorec.proc_tva + lcIdSucursala = IIF(NVL(loRec.id_sucursala,0) = 0, 'NULL', ALLTRIM(STR(lorec.id_sucursala))) + + lcSql1=[begin pack_inregistrari.iregpartinsproc(]+NVL(Alltrim(Str(loRec.id_ireg_part)),'0')+[,]+Alltrim(Str(gnAn))+[,]+Alltrim(Str(gnLuna))+[,]+; + ALLTRIM(Str(loRec.id_part))+[,']+Alltrim(loRec.Cont)+[',']+Nvl(Alltrim(loRec.acont),'')+[',]+; + ALLTRIM(Str(loRec.Debit,21,4))+[,]+Alltrim(Str(loRec.credit,21,4))+[,]+Alltrim(Str(loRec.valdebit,21,4))+[,] + lcSql2=Alltrim(Str(loRec.valcredit,21,4))+[,]+Alltrim(Str(loRec.Curs,15,gnPCurs2))+[,]+Nvl(Alltrim(Str(loRec.id_fdoc)),'0')+[,]+; + [to_date(']+Nvl(Alltrim(Dtos(loRec.dataact)),'')+[','YYYY-MM-DD'),to_date(']+Nvl(Alltrim(Dtos(loRec.dataireg)),'')+[',]+; + ['YYYY-MM-DD'),to_date(']+Nvl(Alltrim(Dtos(loRec.datascad)),'')+[','YYYY-MM-DD'),]+Nvl(Alltrim(Str(loRec.nract)),'')+[,]+; + [']+NVL(ALLTRIM(loRec.serie_act),[])+[',] + lcSql3=Nvl(Alltrim(Str(loRec.id_responsabil)),'0')+[,]+Alltrim(Str(loRec.precdeb,21,4))+[,]+Alltrim(Str(loRec.preccred,21,4))+[,]+; + ALLTRIM(Str(loRec.precvaldeb,21,4))+[,]+ALLTRIM(Str(loRec.precvalcred,21,4))+[,]+NVL(Alltrim(Str(loRec.cod)),'0')+[,']+Nvl(Alltrim(loRec.explicatia),'')+[',] + lcSql4=Nvl(Alltrim(Str(loRec.id_act)),'0')+[,]+NVL(Alltrim(Str(loRec.id_lucrare)),'0')+[,]+Alltrim(Str(loRec.id_valuta))+[,]+; + NVL(ALLTRIM(Str(loRec.id_fact)),'0')+[,]+NVL(Alltrim(Str(loRec.id_set)),'0')+[,']+Nvl(Alltrim(loRec.explicatia4),'')+[',']+; + NVL(Alltrim(loRec.explicatia5),'')+[',]+Nvl(Alltrim(Str(loRec.id_venchelt)),'0')+[,] + ALLTRIM(STR(lnidjtva))+[,]+ALLTRIM(STR(lorec.proc_tva,7,2))+[,] + lcIdSucursala + [); end;] + + lnSucces = goExecutor.oExecute(lcSql1+lcSql2+lcSql3+lcSql4) + If lnSucces < 0 + lcTextEroare = goExecutor.cEroare + aMessagebox(lcTextEroare,0+48,"Eroare") + Else + aMessagebox("Inregistrarea a fost "+lcActiune+"!",0+64,lcTitlu) + ENDIF + + Select actcv + Locate For id_part=loRec.id_part And acont=loRec.acont And id_fdoc=loRec.id_fdoc And id_valuta=loRec.id_valuta + pnRec=Recno() + *!* IF llInsert + *!* REPLACE id_ireg_part WITH loRec.id_ireg_part, id_fact WITH loRec.id_fact + *!* ENDIF + Else + Thisform.grid1.SetAll("DynamicFontBold",".F.","Column") + Thisform.grid1.Refresh() + Endif + + If !llIesire + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + *Thisform.actualizeaza_grid1() + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + Endif + Thisform.lmodificata=.F. + Thisform.lvaluta=.F. + Thisform.leroare=.F. + ENDPROC + + PROCEDURE do_reface + *!* in contracte nu trebuie modificat + Return + + LOCAL lcCont,x + lcConturi = Alltrim(Thisform.ccont) + lcSursa = [IREG_PARTENERI] + lnLuna = gnLuna + lnAn = gnAn + + IF glLunaInchisa + AMESSAGEBOX('Luna este blocata. Nu se pot da refaceri.',0+48,'Refacere') + RETURN + ENDIF + x= xmenu('Refacere \ 0 + lcCont = GETWORDNUM(lcConturi, i, [,]) + lnSucces = refacere(lcSursa,lcLunar,lcCont,lnLuna,lnAn) && IN orefaceri.prg + ENDIF + ENDFOR + IF lnSucces > 0 + Thisform.actualizeaza_grid1() + + do inainte WITH "IREG_PARTENERI",lcCont in oinainte_de.prg + + this.LockScreen = .f. + this.griD1.SetFocus + aMESSAGEBOX('Refacerea s-a terminat!',0+64,"Info refacere") + ENDIF + + ENDPROC + + PROCEDURE do_renunt + gnButon = 2 + pnButon = 2 + Buton = 2 + pnIesire = 2 + If This.lmodificata + This.do_modifica(.T.) + Endif + If !This.leroare + This.Release + Endif + + ENDPROC + + PROCEDURE do_reset + With Thisform + For i=1 To .Objects.Count + If Upper(.Objects(i).BaseClass)='CHECKBOX' + .Objects(i).Value=0 + Endif + Endfor + ENDWITH + + + IF NOT PEMSTATUS(thisform,"filtru_pretty",5) + thisform.AddProperty("filtru_pretty") + ENDIF + + IF NOT PEMSTATUS(thisform,"filtru_pretty_ro",5) + thisform.AddProperty("filtru_pretty_ro") + ENDIF + + thisform.filtru_pretty="" + thisform.filtru_pretty_ro="" + thisform.but_start_criterii1.ToolTipText=thisform.filtru_pretty_ro + Thisform.but_start_criterii1.SetFocus + Thisform.Refresh + thisform.but_start_criterii1.pornit="nu" + thisform.do_cauta() + + + + ENDPROC + + PROCEDURE do_sterge + *!* in contracte nu trebuie modificat + Return + + Select actcv + Scatter Name loRec + nrlin=Recno() + + Thisform.grid1.SetAll("DynamicFontBold","IIF(RECNO()=nrlin,.T.,.F.)","Column") + Thisform.grid1.Refresh() + + IF loRec.id_ireg_part = 0 OR ISNULL(loRec.id_ireg_part) + aMESSAGEBOX("Aceasta inregistrare nu este salvata pe server. Repetati cautarea!",0+48,'Stergere') + RETURN + ENDIF + + If aMessagebox("Doriti sa stergeti aceasta inregistrare?",4+32+256,"Confirmare stergere")==6 + Thisform.grid1.SetAll("DynamicFontBold",".F.","Column") + Thisform.grid1.Refresh() + + lcSql=[begin PACK_INREGISTRARI.iregpartdelproc(] + Alltrim(Str(loRec.id_ireg_part))+[); end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + lcTextEroare = goExecutor.cEroare + aMessagebox(lcTextEroare,0+48,"Eroare") + Else + aMessagebox("Inregistrarea a fost stearsa!",0+64,"Info stergere") + Endif + + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + Thisform.actualizeaza_grid1() + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + + Select actcv + If Reccount()>0 + nrlin=Max(nrlin-1,1) + Go nrlin + Endif + Thisform.grid1.SetFocus() + Else + Thisform.grid1.SetAll("DynamicFontBold",".F.","Column") + Thisform.grid1.Refresh() + Endif + + ENDPROC + + PROCEDURE do_termin + gnButon = 1 + pnButon = 1 + Buton = 1 + pnIesire = 1 + IF THIS.lmodificata + THIS.do_modifica(.T.) + ENDIF + IF !THIS.leroare + THIS.RELEASE + ENDIF + THIS.BUT_STArt_criterii1.RESETstatus() + DODEFAULT() + + ENDPROC + + PROCEDURE filtre + STORE ".T." TO tfirma,TER,Tachitat,Tneachitat + sele actcv + + if Bfirma==.t. then + Tfirma="UPPER(LEFT(ACTCV.nume,LEN(M.nume)))==M.nume" + endif + + if Bachitat==.t. then + Tachitat='ACTCV.totctva=ACTCV.achitat and totctva#0' + endif + + if Bneachitat==.t. then + Tneachitat='ACTCV.totctva#ACTCV.achitat' + endif + ENDPROC + + PROCEDURE incaspl + Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact + Local lnTotsum,pcTitlu + Store "" To poact,pctitlu + Store .F. To llAfisare + Store 0 To pnlunanan,lnTotsum + + pnlunanan = gnAn*12+gnLuna + *Thisform.blocbuton1.terminat1.Enabled = .F. + Thisform.AlwaysOnTop = .F. + + *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema = [''] + pcselect = ['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+; + ['from ]+gcS+[.vact where 2=2'] + + Select actcv + Do Case + Case Thisform.lActiv && activ + pcfiltru = [id_partC=]+Alltrim(STR(id_part))+[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [ and id_factc = ] + ALLTRIM(STR(id_fact))+[ and scc=']+Alltrim(Thisform.Cont)+[']+[ and NVL(ascc,'xxx')=']+NVL(ALLTRIM(acont),'xxx')+['] + pcTitlu = "INCASARI LA FACTURA NR. "+Alltrim(Str(nract)) + pnachitat = credit+preccred + Otherwise && pasiv + pcfiltru = [id_partD=]+Alltrim(STR(id_part))+[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+; + [ and id_factd = ] + ALLTRIM(STR(id_fact))+[ and scd=']+Alltrim(Thisform.Cont)+[']+[ and NVL(ascd,'xxx')=']+NVL(ALLTRIM(acont),'xxx')+['] + pcTitlu = "PLATI LA FACTURA NR. "+Alltrim(Str(nract)) + pnachitat = debit + precdeb + Endcase + + pcorder = [dataact,nract] + gencursor("poact","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + + GO top + ORC = Createobj("AFincpl") + ORC.lb_titlu_alb_b121.Caption = pcTitlu + ORC.ali = "acn2" + ORC.grid1.column6.Visible = .T. + ORC.Show(1) + + pcTitlu = "" + Thisform.AlwaysOnTop = .T. + *Thisform.blocbuton1.terminat1.Enabled = .T. + If Used('acn2') + Use In acn2 + Endif + Release ORC,poact + ****************************************************** + + ENDPROC + + PROCEDURE Init + DoDefault() + *!* modificare v 2.0.11 + Thisform.grid1.cNrAct.DynamicBackColor = [Iif(nr<>0,Rgb(173,248,183),Rgb(255,255,255))] + Thisform.grid1.cNrAct.SetAll("BackColor",[Iif(nr<>0,Rgb(173,248,183),Rgb(255,255,255))],"Text") + *!* modificare v 2.0.11 ^ + ENDPROC + + PROCEDURE initializare + THISFORM.but_start_criterii1.ENABLED = !THISFORM.but_start_criterii1.ENABLED + THISFORM.but_reset_criterii1.ENABLED = !THISFORM.but_reset_criterii1.ENABLED + THISFORM.cmDINCASPL.ENABLED = !THISFORM.cmDINCASPL.ENABLED + THISFORM.comMAND1.ENABLED = !THISFORM.comMAND1.ENABLED + THISFORM.commAND2.ENABLED = !THISFORM.commAND2.ENABLED + THISFORM.commAND3.ENABLED = !THISFORM.commAND3.ENABLED + WITH THISFORM.grid1 + .READONLY = !.READONLY + .cExplicatieTVA.Combo1.readonly=!.READONLY + .cTotDeb.READONLY = .T. + .cTotCred.READONLY = .T. + .cSoldFinal.READONLY = .T. + .cTotDebVal.READONLY = .T. + .cTotCredVal.READONLY = .T. + .cSoldVal.READONLY = .T. + .cFDoc.READONLY = .T. + .cNume.READONLY = .T. + .cNume_val.READONLY = .T. + .cNresp.READONLY = .T. + .cNrord.READONLY = .T. + .cProcentTVA.readonly= .T. + ENDWITH + SELECT actcv + THISFORM.grid1.REFRESH + THISFORM.grid1.SETFOCUS() + + + + ENDPROC + + PROCEDURE ist_deb_cred + Private pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume + PRIVATE nl,an,pcluna,pcanul + Store 0 To pnlunanan + Store .F. To llAfisare + Store "" To poacn1,poacn2 + pcdatacrt=Alltrim(Str(gnAn))+Padl(Alltrim(Str(gnLuna)),2,'0')+[01] && prima zi a lunii + + *Thisform.blocbuton1.terminat1.Enabled=.F. + Thisform.AlwaysOnTop= .F. + + pcanul='00' + pcluna='00' + Select calendar + OSE=Crea('SELELUNA') + OSE.Show(1) + pnlunanan=gnAn*12+gnLuna + pnlunaanales=Val(pcanul)*12+Val(pcluna) + Select actcv + pcnume=nume + pnid_part=id_part + *!* pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+; + *!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+; + *!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+; + *!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+; + *!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+; + *!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+; + *!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+; + *!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)'] + pcschema=[''] + pcselect=['select * from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + pcfiltru=[scd=']+ALLTRIM(thisform.cont)+[' and id_partD=]+ALLTRIM(STR(pnid_part))+[ ]+; + [and extract(year from dataact)*12+extract(month from dataact) ]+; + [between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan)) + gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + + pcfiltru=[scc=']+ALLTRIM(thisform.cont)+[' and id_partC=]+ALLTRIM(STR(pnid_part))+[ ]+; + [and extract(year from dataact)*12+extract(month from dataact) ]+; + [between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan)) + gencursor("poacn2","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare) + + poacn1.ca_baza1.afisare() + poacn2.ca_baza1.afisare() + + ORC=Createobj("frm_debsicred") + orc.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - ISTORIC DEBIT CREDIT " + ORC.Show(1) + + If Used('acn1') + Use In acn1 + Endif + If Used('acn2') + Use In acn2 + Endif + + *Thisform.blocbuton1.terminat1.Enabled=.T. + Thisform.AlwaysOnTop= .T. + RELEASE orc,poacn1,poacn2 + + ENDPROC + + PROCEDURE KeyPress + LPARAMETERS nKeyCode, nShiftAltCtrl + LOCAL lbviz + lbviz=THIS.bvizualizare + DO CASE + CASE (nKeyCode=13 AND nShiftAltCtrl=2) OR (nKeyCode=4 AND nShiftAltCtrl=2) + If glLunaInchisa OR this.grID1.ReadOnly + RETURN + Endif + NODEFAULT + OTHERWISE + DODEFAULT(nKeyCode, nShiftAltCtrl) + ENDCASE + + ENDPROC + + PROCEDURE notacontab + If Reccount('actcv')>0 + Private pcselect,pcfiltru,pcschema,pcorder,poact + Local lcTip,llTest + Store .F. To llTest + Store "" To poact + *Thisform.blocbuton1.terminat1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + *!* lunanan=gnLuna+gnAn*12 + Select actcv + + SCATTER NAME oireg + IF EMPTY(oireg.id_fact) + pcfiltru = [dataact=to_date(']+Dtos(oireg.dataact)+[','YYYY-MM-DD') and nract=]+ALLTRIM(STR(oireg.nract))+; + [ and ((id_partd=]+ALLTRIM(STR(oireg.id_part))+[ and ascd=']+NVL(ALLTRIM(oireg.acont),'')+; + [') or (id_partc=]+ALLTRIM(STR(oireg.id_part))+[ and ascc=']+NVL(ALLTRIM(oireg.acont),'')+['))] + ELSE + pcfiltru = [id_fact=]+ALLTRIM(STR(oireg.id_fact)) + ENDIF + pcschema=['DATAIREG D,DATAACT D,SERIE_ACT C(10),NRACT N(14),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+; + ['SUMA N(19,2),SCD C(4),ASCD C(4),SCC C(4), ASCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)'] + pcselect=['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,luna,an,cod '+]+; + ['from ]+gcS+[.vact where 2=2'] + pcorder=[dataact,serie_act,nract] + llAfisare=.F. + gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare) + poact.ca_baza1.afisare() + Go Top + ORC=CREATEOBJECT("frm_debcred") + orc.lb_titlu_alb_b121.caption="NOTA CONTABILA" + orc.lb_titlu1.caption=" "+UPPER(ALLTRIM(oireg.nume))+" " + ORC.Show(1) + Release poact,ORC + *Thisform.blocbuton1.terminat1.Enabled=.T. + Thisform.AlwaysOnTop=.T. + Else + aMessagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nrdoc.SetFocus() + Endif + RELEASE oireg + + + ENDPROC + + PROCEDURE plati + THISFORM.CMDTERMIN1.ENABLED=.F. + SCATTER FIELDS EXCEPT nl,an memv + SELE ACT + * DO NRORD WITH "ACT" + Set filter to nume=m.nume and pereche=m.nract + DO NRORD WITH "ACT" + go top + ORC=CREATEOBJ("AFDEBCRED") + ORC.LABELTITLU.CAPTION="Plati" + ORC.SHOW(1) + + THISFORM.CMDTERMIN1.ENABLED=.T. + + + ENDPROC + + PROCEDURE salariati + + + If Reccount('actcv')>0 + Private pcselect,pcfiltru,pcschema,pcorder,postat + Local lcTip,llTest + Store .F. To llTest + Store "" To postat + *Thisform.blocbuton1.terminat1.Enabled=.F. + Thisform.AlwaysOnTop=.F. + *!* lunanan=gnLuna+gnAn*12 + Select actcv + PRIVATE oireg + SCATTER NAME oireg + + IF oireg.id_part = gnID_PARTDRNERIDLIC &&lichidare + pcschema= ['id_stat i,an n(4),luna n(2),NUME C(50),PRENUME C(50),SECTIE C(30),FORMATIE C(64),MARCA n(10),lichidare n(16), bifa n(1),SUMALICNERID n(16)'] + + pcselect=[select a.id_stat,a.an,a.luna,a.nume,a.prenume,a.sectie,a.formatia,a.marca,a.lichidare,ROUND(a.ACHITLICNERID,0) as bifa,a.SUMALICNERID from sal_vstattot a where 1=2] + pcfiltru = [ id_fact_lic = ] +ALLTRIM(STR(oireg.id_fact)) + ELSE &&avans + pcschema= ['id_stat i,an n(4),luna n(2),NUME C(50),PRENUME C(50),SECTIE C(30),FORMATIE C(64),MARCA n(10),lichidare n(16), bifa n(1),SUMALICNERID n(16)'] + + pcselect=[select a.id_stat,a.an,a.luna,a.nume,a.prenume,a.sectie,a.formatia,a.marca,a.avans as lichidare,ROUND(a.ACHITAVNERID,0) as bifa,a.SUMAAVNERID as SUMALICNERID from sal_vstattot a where 1=2] + pcfiltru = [ id_fact_av = ] +ALLTRIM(STR(oireg.id_fact)) + ENDIF + + + + pcorder=[a.sectie,a.nume,A.PRENUME] + llAfiseaza=.F. + gencursor('postat','crsState',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza) + postat.ca_baza1.afisare() + + Select crsState + ofrmSelect = CREATEOBJECT('frm_alege_neridicati') + IF oireg.id_part = gnID_PARTDRNERIDLIC &&lichidare + ofrmSelect.noptiune = 1&& pentru lichidare neridicata + ELSE + ofrmSelect.noptiune = 4&& pentru avans neridicat + ENDIF + ofrmSelect.show(1) + + RELEASE oireg + USE IN crsState + RELEASE ofrmSelect + Thisform.AlwaysOnTop=.T. + + Else + aMessagebox("Nu aveti date in cautare!",48,"Atentie") + Thisform.ck_nrdoc.SetFocus() + Endif + RELEASE oireg + + ENDPROC + + PROCEDURE But_excel1.Click + DODEFAULT() + *!* Local i,xlsheet,XLApp,tmpsheet + *!* exista_excel=.T. + *!* p1='' + *!* p2='' + *!* With Thisform.grid1 + *!* For nCol=1 To .ColumnCount + *!* nColumn=.Columns(nCol).ColumnOrder + *!* p1=p1+.Columns(nCol).ControlSource+',' + *!* For lnobjcol=1 To .Columns(nCol).Objects.Count + *!* If Upper(.Columns(nCol).Objects(lnobjcol).BaseClass)='HEADER' + *!* p2=p2+Strtran(.Columns(nCol).Objects(lnobjcol).Caption,Chr(32),'_')+',' + *!* Exit + *!* Endif + *!* Endfor + *!* Endfor + *!* p1=Substr(p1,1,Len(p1)-1) + *!* p2=Substr(p2,1,Len(p2)-1) + *!* Endwith + *!* On Error Do exportare With Thisform.grid1.RecordSource,p1,p2 + *!* tmpsheet = Getobject('','excel.sheet') + *!* On Error + + *!* If exista_excel + *!* Wait Window "Se transmit datele catre Excel..." Nowait + + *!* XLApp = tmpsheet.Application + + *!* XLApp.workbooks.Close() + *!* XLApp.workbooks.Add() + *!* poExcel = XLApp.ActiveSheet + + *!* Go Top + *!* poExcel.Cells(1,1).Font.Size=16 + *!* poExcel.Cells(1,1).Font.Bold=.T. + *!* poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn)) + *!* nRows = 3 + *!* With Thisform.grid1 + *!* For nCol = 1 To .ColumnCount + *!* nColumn = .Columns(nCol).ColumnOrder + *!* poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5 + *!* For lnobjcol=1 To .Columns(nCol).Objects.Count + *!* If Upper(.Columns(nCol).Objects(lnobjcol).BaseClass)='HEADER' + *!* poExcel.Cells(nRows,nColumn) = .Columns(nCol).Objects(lnobjcol).Caption + *!* Exit + *!* Endif + *!* Endfor + *!* poExcel.Cells(nRows,nColumn).Font.Bold = .T. + *!* poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16 + *!* Endfor + *!* Scan + *!* nRows = nRows + 1 + *!* For nCol = 1 To .ColumnCount + *!* nColumn = .Columns(nCol).ColumnOrder + *!* If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0 + *!* poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA') + *!* Else + *!* poExcel.Cells(nRows,nColumn) = Iif(Empty(Eval(.Columns(nCol).ControlSource)),'',Eval(.Columns(nCol).ControlSource)) + *!* Endif + *!* Endfor + *!* Endscan + *!* Endwith + + *!* XLApp.Visible = .T. + *!* Endif + ENDPROC + + PROCEDURE But_start_criterii1.loadcriterii + Parameters tacriterii + External Array tacriterii + #Define crlf Chr(13)+Chr(10) + lcStringCriterii = "Nr Document\i.nract\N\none\" + crlf + ; + "Serie Document\i.serie_act\T\none\" + crlf + ; + "Data document\i.dataact\D\none\" + crlf + ; + "Data scadenta\i.datascad\D\none\"+ crlf + ; + "Fel Document\i.fdoc\T\id_fdoc\nom_feldoc" + crlf + ; + "Lucrare\i.nrord\T\id_lucrare\nom_lucrare"+ crlf + ; + "Nume firma\i.nume\T\ID_PART\nom_parteneri"+ crlf + ; + "Contract\i.contract\T\none\"+ crlf + ; + "Debit\i.Debit\N|get_mask(12,gnPc)\none\"+ crlf + ; + "Credit\i.credit\N|get_mask(12,gnPc)\none\"+ crlf + If plactiv + lcStringCriterii = lcStringCriterii + "Sold\precdeb+debit-credit-preccred\N|get_mask(12,gnPc)\none\"+ crlf + Else + lcStringCriterii = lcStringCriterii + "Sold\credit+preccred-precdeb-debit\N|get_mask(12,gnPc)\none\"+ crlf + Endif + lcStringCriterii = lcStringCriterii + ; + "Cont\i.cont\T\none\"+ crlf + ; + "Analitic\i.acont\T\none\"+ crlf + ; + "Valuta\i.nume_val\T\id_valuta\nom_valuta"+ crlf + ; + "Explicatia\i.explicatia\T\none\" + crlf + ; + "Venit/Cheltuieli\i.venChelt\T\ID_VENCHELT\nom_venchel" + crlf + ; + "Explicatia 4\i.explicatia4\T\none\" + crlf + ; + "Cont creditor\i.nresp\T\none\" + crlf + ; + "Achitate\nofield\E\" + If Thisform.lActiv + lcStringCriterii = lcStringCriterii + "(i.precdeb + i.debit) - (i.preccred + i.credit) = 0" + Else + lcStringCriterii = lcStringCriterii + "(i.preccred + i.credit) - (i.precdeb + i.debit) = 0" + Endif + lcStringCriterii = lcStringCriterii + "\" + crlf + ; + "Neachitate\nofield\E\" + If Thisform.lActiv + lcStringCriterii = lcStringCriterii + "(i.precdeb + i.debit) - ( i.preccred + i.credit) <> 0" + Else + lcStringCriterii = lcStringCriterii + "(i.preccred + i.credit) - (i.precdeb + i.debit) <> 0" + Endif + && aleg sucursale doar daca sunt pe mama + If glEMama + lcStringCriterii = lcStringCriterii + "\" + crlf + "Sucursala\sucursala\T\ID_SUCURSALA\nom_sucursala" + Endif + DoDefault() + + ENDPROC + + PROCEDURE Cb_nom_valute1.Init + thisform.label6.Caption='Total Debit Valuta' + thisform.label8.caption='Total Credit Valuta' + thisform.label9.Caption='Sold Valuta' + this.Enabled=.F. + ENDPROC + + PROCEDURE Cb_nom_valute1.initializare + Lparameters tlCautareNoua + Local lcValuta,lnmaxinreg + If Used('crsnumeval') + Use In crsnumeval + Endif + Select Distinct nume_val,Count(*) As nrinreg From actcv Where id_valuta>0 Group By nume_val Order By nume_val Into Cursor crsnumeval + lnValute = _tally + + If tlCautareNoua + Select crsnumeval + Calculate Max(nrinreg) To lnmaxinreg + Locate For nrinreg=lnmaxinreg + lcValuta=IIF(lnValute = 0,'Valuta',NUME_VAL) + Else + lcValuta=IIF(lnValute = 0,'Valuta',THIS.Value) + Endif + + IF EMPTY(lcValuta) OR ISNULL(lcValuta) + lcValuta = 'Valuta' + ENDIF + + This.RowSourceType= 2 + This.RowSource="crsnumeval" + This.Value=lcValuta + This.BoundTo=.T. + If Reccount('crsnumeval')>1 + This.Enabled=.T. + Endif + Thisform.label6.Caption='Total Debit '+lcValuta + Thisform.label8.Caption='Total Credit '+lcValuta + Thisform.label9.Caption='Sold '+lcValuta + ENDPROC + + PROCEDURE Cb_nom_valute1.InteractiveChange + lcValuta=Iif(Empty(This.Value),'Valuta',Alltrim(This.Value)) + Thisform.label6.Caption='Total Debit '+lcValuta + Thisform.label8.Caption='Total Credit '+lcValuta + Thisform.label9.Caption='Sold '+lcValuta + Thisform.actualizeaza_totaluri() + ENDPROC + + PROCEDURE Ck_scadente.InteractiveChange + lccondScad = [1=1] + If This.Value = 1 + Private pddataref,pddatascad_max,pnnrluni + Store 0 To pnnrluni + pddataref = Date() + pddatascad_max = pddataref + + ofrmscad = Createobject('frm_facturi_scadente') + ofrmscad.txt_dataref.ControlSource = [pddataref] + ofrmscad.txt_datamax.ControlSource = [pddatascad_max] + ofrmscad.Show(1) + + If gnButon = 1 + lccondScad = [(i.datascad < to_date('] + Dtos(pddatascad_max) + [','yyyymmdd'))] + This.Tag=" si data scadenta mai mica decat "+Transform(pddatascad_max) + Endif + Endif + If This.Value=0 + This.filtru ="" + This.cTraducere="" + this.Tag="" + Else + This.filtru = [ and ] + lccondScad + This.cTraducere=This.Tag + Endif + thisform.do_cauta() + Thisform.but_start_criterii1.refreshstatus + + + + ENDPROC + + PROCEDURE cmdIncasPl.Click + thisform.incaspl + ENDPROC + + PROCEDURE Command1.Click + thisform.notacontab + ENDPROC + + PROCEDURE Command2.Click + SCAT fiel except nl,an MEMV + thisform.istoric + ENDPROC + + PROCEDURE Command3.Click + thisform.ist_deb_cred + ENDPROC + + PROCEDURE grid1.AfterRowColChange + Lparameters nColIndex + If Thisform.leroare + Nodefault + Return + Endif + Local lnluna + Select actcv + lnluna=luna + If Thisform.lmodificata + *!* Thisform.lmodificare_totaluri=.T. + Thisform.actualizeaza_totaluri() + *!* If lnluna=0 + *!* Thisform.lmodificare_totaluri=.F. + *!* Endif + Thisform.grid1.Refresh + Endif + ENDPROC + + PROCEDURE grid1.BeforeRowColChange + Lparameters nColIndex + *!* If !Thisform.lmodificare_totaluri + Local lnCol + Private pnRec,pnCol + If Thisform.grid1.ReadOnly=.F. And Thisform.coldvalue!=Thisform.cnewvalue + Thisform.lmodificata=.T. + Endif + If (This.RowColChange= 1 Or This.RowColChange= 3) And Thisform.lmodificata + For i=1 To This.ColumnCount + If This.Columns(i).ColumnOrder=nColIndex + lcColoana="thisform.grid1."+This.Columns(i).Name + Exit + Endif + Endfor + oColoana=&lcColoana + If Thisform.coldvalue!=Thisform.cnewvalue And !oColoana.ReadOnly + If PEMSTATUS(oColoana,"text1",5) + lValue=oColoana.text1.Value + lcNumeColoana=Substr(oColoana.ControlSource,At('.',oColoana.ControlSource)+1) + If Type('oColoana.text1.value')='D' And !oColoana.text1.Valid() + Nodefault + Return + Endif + Select actcv + Replace (lcNumeColoana) With lValue + Endif + Endif + + Thisform.coldvalue="" + Thisform.cnewvalue="" + pnRec=Recno() + Thisform.do_modifica() + If Thisform.leroare + Nodefault + Return + Endif + *!* Thisform.lmodificare_totaluri=.F. + DoDefault() + Endif + *!* Else + *!* *!* Nodefault + *!* Thisform.lmodificare_totaluri=.F. + *!* Endif + + ENDPROC + + PROCEDURE grid1.cAcont.Text1.GotFocus + If This.ReadOnly = .F. + Thisform.coldvalue = Alltrim(This.Value) + Thisform.cnewvalue = Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cAcont.Text1.InteractiveChange + If This.ReadOnly = .F. + Thisform.cnewvalue = Alltrim(This.Value) + Endif + ENDPROC + + PROCEDURE grid1.cCod.Text1.GotFocus + If !This.ReadOnly + Thisform.coldvalue=Alltrim(Str(This.Value)) + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cCod.Text1.InteractiveChange + If !This.ReadOnly + Thisform.cnewvalue=Alltrim(Str(This.Value)) + Endif + + ENDPROC + + PROCEDURE grid1.cCredit.Text1.GotFocus + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cCredit.Text1.InteractiveChange + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Endif + ENDPROC + + PROCEDURE grid1.cCurs.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE grid1.cCurs.Text1.GotFocus + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cCurs.Text1.InteractiveChange + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Endif + ENDPROC + + PROCEDURE grid1.cCurs.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE grid1.cDataAct.Header1.DblClick + thisform.corderby = "dataact" + ENDPROC + + PROCEDURE grid1.cDataAct.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE grid1.cDataAct.Text1.GotFocus + If This.ReadOnly=.F. + Thisform.coldvalue=Alltrim(Dtoc(This.Value)) + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cDataAct.Text1.InteractiveChange + If This.ReadOnly=.F. + Thisform.cnewvalue=Dtoc(This.Value) + Endif + + ENDPROC + + PROCEDURE grid1.cDataAct.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE grid1.cDataAct.Text1.Valid + If This.ReadOnly=.F. And !Isnull(fdoc) + If (Empty(This.Value) Or Isnull(This.Value)) + aMessagebox("Introduceti data documentului!",0+48,"Atentie") + Return .F. + Else + If (Month(This.Value)+Year(This.Value)*12>gnLuna+gnAn*12) + aMessagebox("Data documentului trebuie sa fie anterioara sau din luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn))+"!",0+48,"Atentie") + Thisform.lmodificata=.F. + Return .F. + Endif + Endif + Endif + Return .T. + + ENDPROC + + PROCEDURE grid1.cDataireg.Text1.GotFocus + If This.ReadOnly=.F. + Thisform.coldvalue=NVL(Alltrim(Dtoc(This.Value)),'*') + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cDataireg.Text1.InteractiveChange + If This.ReadOnly=.F. + Thisform.cnewvalue=NVL(Dtoc(This.Value),'*') + Endif + ENDPROC + + PROCEDURE grid1.cDataireg.Text1.Valid + If This.ReadOnly=.F. And !Isnull(fdoc) + If (Empty(This.Value) Or Isnull(This.Value)) + aMessagebox("Introduceti data inregistrarii!",0+48,"Atentie") + Return .F. + Else + Do Case + Case This.ValuegnLuna+gnAn*12) + aMessagebox("Data inregistrarii trebuie sa fie din luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn))+"!",0+48,"Atentie") + Thisform.lmodificata=.F. + Return .F. + Endcase + Endif + Endif + Return .T. + ENDPROC + + PROCEDURE grid1.cDataScad.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE grid1.cDataScad.Text1.GotFocus + If This.ReadOnly=.F. + Thisform.coldvalue=Alltrim(Dtoc(This.Value)) + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cDataScad.Text1.InteractiveChange + If This.ReadOnly=.F. + Thisform.cnewvalue=Dtoc(This.Value) + Endif + ENDPROC + + PROCEDURE grid1.cDataScad.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE grid1.cDataScad.Text1.Valid + *!* (Empty(This.Value) And !Empty(dataact)) Or (Isnull(This.Value) And !Isnull(dataact)) + *!* Messagebox("Introduceti data scadenta!",0+48,"Atentie") + *!* Return .F. + *!* Else + If This.ReadOnly=.F. And !Isnull(fdoc) + If !Empty(This.Value) And !Empty(dataact) And This.Value0,Len(lcMask)-lnNrZec,0))) + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cDebit.Text1.InteractiveChange + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Endif + ENDPROC + + PROCEDURE grid1.cExplicatia.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE grid1.cExplicatia.Text1.GotFocus + If !This.ReadOnly + Thisform.coldvalue=Nvl(Alltrim(This.Value),'*') + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cExplicatia.Text1.InteractiveChange + If This.ReadOnly=.F. + Thisform.cnewvalue=NVL(Alltrim(This.Value),'*') + Endif + ENDPROC + + PROCEDURE grid1.cExplicatia.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE grid1.cExplicatia4.Text1.GotFocus + If !This.ReadOnly + Thisform.coldvalue=NVL(Alltrim(This.Value),'*') + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cExplicatia4.Text1.InteractiveChange + If !This.ReadOnly + Thisform.cnewvalue=NVL(Alltrim(This.Value),'*') + Endif + ENDPROC + + PROCEDURE grid1.cExplicatia5.Text1.GotFocus + If !This.ReadOnly + Thisform.coldvalue=NVL(Alltrim(This.Value),'*') + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cExplicatia5.Text1.InteractiveChange + If !This.ReadOnly + Thisform.cnewvalue=NVL(Alltrim(This.Value),'*') + Endif + ENDPROC + + PROCEDURE grid1.cExplicatieTVA.combo1.GotFocus + If !This.ReadOnly + Thisform.coldvalue=ALLTRIM(STR(actcv.id_jtva_coloana)) + Thisform.cnewvalue=Thisform.coldvalue + ENDIF + + ENDPROC + + PROCEDURE grid1.cExplicatieTVA.combo1.InteractiveChange + If !This.ReadOnly + Thisform.cnewvalue=ALLTRIM(STR(actcv.id_jtva_coloana)) + Endif + + ENDPROC + + PROCEDURE grid1.cExplicatieTVA.combo1.Valid + replace actcv.id_jtva_coloana WITH jtva_temp.id_jtva_coloana + replace actcv.proc_tva WITH ROUND((jtva_temp.cota_tva+100)/100,2) + + ENDPROC + + PROCEDURE grid1.cfdoc.Text1.DblClick + If !Thisform.grid1.ReadOnly + Nodefault + Local locauta,lcOldValue,lcNewValue + lcOldValue=Nvl(Alltrim(fdoc),'') + Select actcv + Store "" To locauta + pcselect = ['select p.fel_document,p.id_fdoc FROM ] + Alltrim(gcS) + [.vnom_fdoc p where 2=2'] + pcfiltru = [1=2] + pcschema = [''] + pcorder = [fel_document] + pccoloane = [fel_document] + pcTitlu = [Alegeti felul documentului] + pcTitluColoane = [Fel document] + lnRec=Recno() + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane) + If !Empty(locauta.fel_document) + Select actcv + Go lnRec + Replace id_fdoc With locauta.id_fdoc + Replace fdoc With Alltrim(locauta.fel_document) + lcNewValue=Nvl(Alltrim(fdoc),'') + Else + lcNewValue=lcOldValue + Endif + This.SetFocus() + Thisform.coldvalue=lcOldValue + Thisform.cnewvalue=lcNewValue + Release locauta + For i=1 To Thisform.grid1.ColumnCount + If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1 + Exit + Endif + Endfor + Thisform.grid1.Columns(i).SetFocus() + Else + DoDefault() + Endif + + ENDPROC + + PROCEDURE grid1.cfdoc.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE grid1.cId_fact.Text1.GotFocus + If !This.ReadOnly + Thisform.coldvalue=Alltrim(Str(This.Value)) + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cId_fact.Text1.InteractiveChange + If !This.ReadOnly + Thisform.cnewvalue=Alltrim(Str(This.Value)) + Endif + + ENDPROC + + PROCEDURE grid1.cId_set.Text1.GotFocus + If !This.ReadOnly + Thisform.coldvalue=Alltrim(Str(This.Value)) + Thisform.cnewvalue=Thisform.coldvalue + Endif + + ENDPROC + + PROCEDURE grid1.cId_set.Text1.InteractiveChange + If !This.ReadOnly + Thisform.cnewvalue=Alltrim(Str(This.Value)) + Endif + ENDPROC + + PROCEDURE grid1.cNrAct.Header1.DblClick + thisform.corderby = "nract" + ENDPROC + + PROCEDURE grid1.cNrAct.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE grid1.cNrAct.Text1.GotFocus + *!* modificare v 2.0.11 + If nr<> 0 + This.BackColor = Rgb(173,248,183) + EndIf + *!* modificare v 2.0.11 ^ + If This.ReadOnly=.F. + Thisform.coldvalue=Alltrim(Str(This.Value)) + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cNrAct.Text1.InteractiveChange + If This.ReadOnly=.F. + Thisform.cnewvalue=Alltrim(Str(This.Value)) + Endif + ENDPROC + + PROCEDURE grid1.cNrAct.Text1.LostFocus + *!* modificare v 2.0.11 + If nr<> 0 + This.BackColor = Rgb(255,255,255) + EndIf + *!* modificare v 2.0.11 ^ + ENDPROC + + PROCEDURE grid1.cNrAct.Text1.RightClick + Select (Thisform.grID1.RecordSource) + If nr<> 0 + arata_meniu_at_vanz(cod,serie_act,nract,Thisform.grID1.RecordSource+[.]+Substr(This.Parent.ControlSource,At([.],This.Parent.ControlSource,1)+1)) + Else + Do editscurt.mpr + Endif + + ENDPROC + + PROCEDURE grid1.cnresp.Text1.DblClick + If !Thisform.grid1.ReadOnly + Local locauta,lcCol,lcOldValue,lcNewValue + Select actcv + lcOldValue=Nvl(Alltrim(nresp),'') + Store "" To locauta + pcselect = ['select p.nume, p.functie, p.id_responsabil FROM ] + gcs + [.vnom_responsabili p '+]+; + ['where 2=2'] + pcfiltru = [1=2] + pcschema = [''] + pcorder = [p.nume] + pccoloane = [nume,functie] + pcTitlu = [Alegeti numele] + pcTitluColoane = [Responsabil,Functie] + lnRec=Recno() + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"") + If !Empty(locauta.nume) + Select actcv + Go lnRec + Replace id_responsabil With locauta.id_responsabil + Replace nresp With Alltrim(locauta.nume) + lcNewValue=Nvl(Alltrim(nresp),'') + Else + lcNewValue=lcOldValue + Endif + This.SetFocus() + Thisform.coldvalue=lcOldValue + Thisform.cnewvalue=lcNewValue + Release locauta + For i=1 To Thisform.grid1.ColumnCount + If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1 + Exit + Endif + Endfor + Thisform.grid1.Columns(i).SetFocus() + Else + DoDefault() + Endif + + ENDPROC + + PROCEDURE grid1.cNrord.Text1.DblClick + If !Thisform.grid1.ReadOnly + Local locauta,lcOldValue,lcNewValue + Select actcv + lcOldValue=Nvl(Alltrim(nrord),'') + Store "" To locauta + pcselect = ['select p.nrord,p.id_lucrare FROM ] + gcs + [.vnom_lucrari p where 2=2'] + pcfiltru = [1=2] + pcschema = [''] + pcorder = [nrord] + pccoloane = [nrord] + pcTitlu = [Alegeti lucrarea/contractul] + pcTitluColoane = [Lucrare/Contract] + lnRec=Recno() + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"") + If !Empty(locauta.nrord) + Select actcv + Go lnRec + Replace id_lucrare With locauta.id_lucrare + Replace nrord With locauta.nrord + lcNewValue=Nvl(Alltrim(nrord),'') + Else + lcNewValue=lcOldValue + Endif + This.SetFocus() + Thisform.coldvalue=lcOldValue + Thisform.cnewvalue=lcNewValue + For i=1 To Thisform.grid1.ColumnCount + If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1 + Exit + Endif + Endfor + Thisform.grid1.Columns(i).SetFocus() + Else + DoDefault() + Endif + + ENDPROC + + PROCEDURE grid1.cNume.Header1.DblClick + thisform.corderby = "nume" + ENDPROC + + PROCEDURE grid1.cNume.Text1.DblClick + LOCAL lcCont + + IF !THISFORM.grid1.READONLY + NODEFAULT + LOCAL locauta,lcOldValue,lcNewValue + lcOldValue=NVL(ALLTRIM(nume),'') + SELECT actcv + STORE "" TO locauta + lnRec = RECNO() + + lcCont = ALLTRIM(actcv.CONT) + locauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + lcCont + [??lAdaugCorespondente=>1??cCont=>] + lcCont)) + + IF !EMPTY(locauta.nume) + SELECT actcv + GO lnRec + REPLACE id_part WITH locauta.id_part + REPLACE nume WITH ALLTRIM(locauta.nume) + lcNewValue=NVL(ALLTRIM(nume),'') + ELSE + lcNewValue=lcOldValue + ENDIF + THIS.SETFOCUS() + THISFORM.coldvalue=lcOldValue + THISFORM.cnewvalue=lcNewValue + RELEASE locauta + FOR i=1 TO THISFORM.grid1.COLUMNCOUNT + IF THISFORM.grid1.COLUMNS(i).COLUMNORDER=THIS.PARENT.COLUMNORDER+1 + EXIT + ENDIF + ENDFOR + THISFORM.grid1.COLUMNS(i).SETFOCUS() + ELSE + DODEFAULT() + ENDIF + + ENDPROC + + PROCEDURE grid1.cNume.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE grid1.cNume_val.Text1.DblClick + If !Thisform.grid1.ReadOnly + Local locauta,lcOldValue,lcNewValue + Select actcv + lcOldValue=Nvl(Alltrim(nume_val),'') + Store "" To locauta + pcselect = ['select p.nume_val,p.id_valuta FROM ] + gcs + [.vnom_valute p where 2=2'] + pcfiltru = [1=2] + pcschema = [''] + pcorder = [nume_val] + pccoloane = [nume_val] + pcTitlu = [Alegeti valuta] + pcTitluColoane = [Valuta] + lnRec=Recno() + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"") + If !Empty(locauta.nume_val) + Select actcv + Go lnRec + Replace id_valuta With locauta.id_valuta + Replace nume_val With locauta.nume_val + lcNewValue=Nvl(Alltrim(nume_val),'') + Thisform.lvaluta=.F. + thisform.actualizeaza_totaluri() + Else + lcNewValue=lcOldValue + Endif + This.SetFocus() + Thisform.coldvalue=lcOldValue + Thisform.cnewvalue=lcNewValue + Release locauta + For i=1 To Thisform.grid1.ColumnCount + If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1 + Exit + Endif + Endfor + Thisform.grid1.Columns(i).SetFocus() + Else + DoDefault() + Endif + ENDPROC + + PROCEDURE grid1.cNume_val.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE grid1.cPrecCred.Text1.GotFocus + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cPrecCred.Text1.InteractiveChange + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Endif + ENDPROC + + PROCEDURE grid1.cPrecDeb.Text1.GotFocus + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cPrecDeb.Text1.InteractiveChange + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Endif + ENDPROC + + PROCEDURE grid1.cSoldFinal.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE grid1.cSoldFinal.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE grid1.cTotDeb.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE grid1.cTotDeb.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE grid1.cTotDebVal.Text1.DblClick + thisform.butdrept + ENDPROC + + PROCEDURE grid1.cTotDebVal.Text1.RightClick + do editscurt.mpr + ENDPROC + + PROCEDURE grid1.cValCredit.Text1.GotFocus + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cValCredit.Text1.InteractiveChange + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Endif + ENDPROC + + PROCEDURE grid1.cValCredit.Text1.Valid + IF this.Value>0 + thisform.lvaluta=.T. + ENDIF + ENDPROC + + PROCEDURE grid1.cValDebit.Text1.GotFocus + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.coldvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Thisform.cnewvalue=Thisform.coldvalue + Endif + ENDPROC + + PROCEDURE grid1.cValDebit.Text1.InteractiveChange + If This.ReadOnly=.F. + lcMask=Strtran(This.Parent.InputMask,' ','') + lnNrZec=At(Thisform.cseparator,lcMask,1) + Thisform.cnewvalue=Alltrim(Str(This.Value,Len(lcMask),Iif(lnNrZec>0,Len(lcMask)-lnNrZec,0))) + Endif + ENDPROC + + PROCEDURE grid1.cValDebit.Text1.Valid + IF this.Value>0 + thisform.lvaluta=.T. + ENDIF + ENDPROC + + PROCEDURE grid1.cVenChelt.Text1.DblClick + If !Thisform.grid1.ReadOnly + Local locauta,lcOldValue,lcNewValue + Select actcv + lcOldValue=Nvl(Alltrim(venchelt),'') + Store "" To locauta + pcselect = ["select v.explicatie,(case v.tip_venchelt when 1 then 'C' else 'V' end) as tip,v.id_venchelt FROM "+] +; + ["]+ Alltrim(gcs) + [.vnom_venchel v where 2=2"] + pcfiltru = [1=2] + pcschema = [''] + pcorder = [explicatie] + pccoloane = [explicatie,tip] + pcTitlu = [Alegeti venitul\cheltuiala] + pcTitluColoane = [Explicatie,Tip] + lnRec=Recno() + locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"") + If !Empty(locauta.explicatie) + Select actcv + Go lnRec + Replace id_venchelt With locauta.id_venchelt + Replace venchelt With locauta.explicatie + lcNewValue=Nvl(Alltrim(venchelt),'') + Else + lcNewValue=lcOldValue + Endif + This.SetFocus() + Thisform.coldvalue=lcOldValue + Thisform.cnewvalue=lcNewValue + Release locauta + For i=1 To Thisform.grid1.ColumnCount + If Thisform.grid1.Columns(i).ColumnOrder=This.Parent.ColumnOrder+1 + Exit + Endif + Endfor + Thisform.grid1.Columns(i).SetFocus() + Else + DoDefault() + Endif + ENDPROC + + PROCEDURE grid1.Init + *!* this.SetAll("DynamicForeColor", "IIF(abs(totctva-achitat)<1000,RGB(0,0,0),iif(totctva (preccred+credit)),RGB(255,0,0),RGB(0,0,255)))", "Column") + *!* Endif + ENDPROC + + PROCEDURE Text1.Refresh + THIS.FORECOLOR=IIF(thisform.ntotdebit >=0, RGB(0,0,0), RGB(255,0,0)) + this.Value = thisform.ntotdebit + ENDPROC + + PROCEDURE Text2.Refresh + THIS.FORECOLOR=IIF(thisform.ntotcredit >=0, RGB(0,0,0), RGB(255,0,0)) + this.Value = thisform.ntotcredit + ENDPROC + + PROCEDURE Text3.Refresh + THIS.FORECOLOR=IIF(thisform.ntotsold >=0, RGB(0,0,0), RGB(255,0,0)) + this.Value = thisform.ntotsold + ENDPROC + + PROCEDURE Text4.Refresh + THIS.FORECOLOR=IIF(thisform.ndebitval >=0, RGB(0,0,0), RGB(255,0,0)) + this.Value = thisform.ndebitval + ENDPROC + + PROCEDURE Text5.Refresh + THIS.FORECOLOR=IIF(thisform.ncreditval >=0, RGB(0,0,0), RGB(255,0,0)) + this.Value = thisform.ncreditval + ENDPROC + + PROCEDURE Text6.Refresh + THIS.FORECOLOR=IIF(thisform.ntotsoldval >=0, RGB(0,0,0), RGB(255,0,0)) + this.Value = thisform.ntotsoldval + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_ireg_parteneri_old AS frm_ireg_parteneri OF "..\comun\clase\oparteneri.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="GRID1.Column36.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="GRID1.Column36.Text1" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Name = "frm_ireg_parteneri" + Label6.Name = "Label6" + SHAPE2.Name = "SHAPE2" + Shape1.Name = "Shape1" + _shape1.Name = "_shape1" + Gridsort1.Name = "Gridsort1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + GRID1.cAcont.Header1.Name = "Header1" + GRID1.cAcont.Name = "cAcont" + GRID1.cAcont.Text1.Name = "Text1" + GRID1.CCOD.ColumnOrder = 33 + GRID1.CCOD.Header1.Name = "Header1" + GRID1.CCOD.Name = "CCOD" + GRID1.CCOD.Text1.Name = "Text1" + GRID1.cCredit.ColumnOrder = 21 + GRID1.cCredit.Header1.Name = "Header1" + GRID1.cCredit.Name = "cCredit" + GRID1.cCredit.Text1.Name = "Text1" + GRID1.cCurs.ColumnOrder = 25 + GRID1.cCurs.Header1.Name = "Header1" + GRID1.cCurs.Name = "cCurs" + GRID1.cCurs.Text1.Name = "Text1" + GRID1.cDataAct.Header1.Name = "Header1" + GRID1.cDataAct.Name = "cDataAct" + GRID1.cDataAct.Text1.Name = "Text1" + GRID1.cDataireg.Header1.Name = "Header1" + GRID1.cDataireg.Name = "cDataireg" + GRID1.cDataireg.Text1.Name = "Text1" + GRID1.cDataScad.Header1.Name = "Header1" + GRID1.cDataScad.Name = "cDataScad" + GRID1.cDataScad.Text1.Name = "Text1" + GRID1.cDebit.ColumnOrder = 20 + GRID1.cDebit.Header1.Name = "Header1" + GRID1.cDebit.Name = "cDebit" + GRID1.cDebit.Text1.Name = "Text1" + GRID1.cExplicatia.ColumnOrder = 17 + GRID1.cExplicatia.Header1.Name = "Header1" + GRID1.cExplicatia.Name = "cExplicatia" + GRID1.cExplicatia.Text1.Name = "Text1" + GRID1.cExplicatia4.ColumnOrder = 30 + GRID1.cExplicatia4.Header1.Name = "Header1" + GRID1.cExplicatia4.Name = "cExplicatia4" + GRID1.cExplicatia4.Text1.Name = "Text1" + GRID1.cExplicatia5.ColumnOrder = 31 + GRID1.cExplicatia5.Header1.Name = "Header1" + GRID1.cExplicatia5.Name = "cExplicatia5" + GRID1.cExplicatia5.Text1.Name = "Text1" + GRID1.cfdoc.Header1.Name = "Header1" + GRID1.cfdoc.Name = "cfdoc" + GRID1.cfdoc.Text1.Name = "Text1" + GRID1.cId_fact.ColumnOrder = 34 + GRID1.cId_fact.Header1.Name = "Header1" + GRID1.cId_fact.Name = "cId_fact" + GRID1.cId_fact.Text1.Name = "Text1" + GRID1.cId_part.ColumnOrder = 36 + GRID1.cId_part.Header1.Name = "Header1" + GRID1.cId_part.Name = "cId_part" + GRID1.cId_part.Text1.Name = "Text1" + GRID1.cId_set.ColumnOrder = 35 + GRID1.cId_set.Header1.Name = "Header1" + GRID1.cId_set.Name = "cId_set" + GRID1.cId_set.Text1.Name = "Text1" + GRID1.cNrAct.Header1.Name = "Header1" + GRID1.cNrAct.Name = "cNrAct" + GRID1.cNrAct.Text1.Name = "Text1" + GRID1.cnresp.ColumnOrder = 19 + GRID1.cnresp.Header1.Name = "Header1" + GRID1.cnresp.Name = "cnresp" + GRID1.cnresp.Text1.Name = "Text1" + GRID1.cNrord.ColumnOrder = 18 + GRID1.cNrord.Header1.Name = "Header1" + GRID1.cNrord.Name = "cNrord" + GRID1.cNrord.Text1.Name = "Text1" + GRID1.CNUME.Header1.Name = "Header1" + GRID1.CNUME.Name = "CNUME" + GRID1.CNUME.Text1.Name = "Text1" + GRID1.cNume_val.ColumnOrder = 24 + GRID1.cNume_val.Header1.Name = "Header1" + GRID1.cNume_val.Name = "cNume_val" + GRID1.cNume_val.Text1.Name = "Text1" + GRID1.COLUMN32.Header1.Name = "Header1" + GRID1.COLUMN32.Name = "COLUMN32" + GRID1.COLUMN32.Text1.Name = "Text1" + GRID1.COLUMN35.ColumnOrder = 9 + GRID1.COLUMN35.Header1.Name = "Header1" + GRID1.COLUMN35.Name = "COLUMN35" + GRID1.COLUMN35.Text1.Name = "Text1" + GRID1.COLUMN35.Width = 101 + GRID1.Column36.ColumnOrder = 10 + GRID1.Column36.ControlSource = "rate_acoperite" + GRID1.Column36.Name = "Column36" + GRID1.Column36.Width = 98 + GRID1.ColumnCount = 36 + GRID1.cPrecCred.ColumnOrder = 27 + GRID1.cPrecCred.Header1.Name = "Header1" + GRID1.cPrecCred.Name = "cPrecCred" + GRID1.cPrecCred.Text1.Name = "Text1" + GRID1.cPrecDeb.ColumnOrder = 26 + GRID1.cPrecDeb.Header1.Name = "Header1" + GRID1.cPrecDeb.Name = "cPrecDeb" + GRID1.cPrecDeb.Text1.Name = "Text1" + GRID1.cPrecValCred.ColumnOrder = 29 + GRID1.cPrecValCred.Header1.Name = "Header1" + GRID1.cPrecValCred.Name = "cPrecValCred" + GRID1.cPrecValCred.Text1.Name = "Text1" + GRID1.cPrecValDeb.ColumnOrder = 28 + GRID1.cPrecValDeb.Header1.Name = "Header1" + GRID1.cPrecValDeb.Name = "cPrecValDeb" + GRID1.cPrecValDeb.Text1.Name = "Text1" + GRID1.cSoldFinal.ColumnOrder = 13 + GRID1.cSoldFinal.Header1.Name = "Header1" + GRID1.cSoldFinal.Name = "cSoldFinal" + GRID1.cSoldFinal.Text1.Name = "Text1" + GRID1.cSoldVal.ColumnOrder = 16 + GRID1.cSoldVal.Header1.Name = "Header1" + GRID1.cSoldVal.Name = "cSoldVal" + GRID1.cSoldVal.Text1.Name = "Text1" + GRID1.cTotCred.ColumnOrder = 12 + GRID1.cTotCred.Header1.Name = "Header1" + GRID1.cTotCred.Name = "cTotCred" + GRID1.cTotCred.Text1.Name = "Text1" + GRID1.cTotCredVal.ColumnOrder = 15 + GRID1.cTotCredVal.Header1.Name = "Header1" + GRID1.cTotCredVal.Name = "cTotCredVal" + GRID1.cTotCredVal.Text1.Name = "Text1" + GRID1.cTotDeb.ColumnOrder = 11 + GRID1.cTotDeb.Header1.Name = "Header1" + GRID1.cTotDeb.Name = "cTotDeb" + GRID1.cTotDeb.Text1.Name = "Text1" + GRID1.CTOTDEBVAL.ColumnOrder = 14 + GRID1.CTOTDEBVAL.Header1.Name = "Header1" + GRID1.CTOTDEBVAL.Name = "CTOTDEBVAL" + GRID1.CTOTDEBVAL.Text1.Name = "Text1" + GRID1.cValCredit.ColumnOrder = 23 + GRID1.cValCredit.Header1.Name = "Header1" + GRID1.cValCredit.Name = "cValCredit" + GRID1.cValCredit.Text1.Name = "Text1" + GRID1.cValDebit.ColumnOrder = 22 + GRID1.cValDebit.Header1.Name = "Header1" + GRID1.cValDebit.Name = "cValDebit" + GRID1.cValDebit.Text1.Name = "Text1" + GRID1.cVenChelt.ColumnOrder = 32 + GRID1.cVenChelt.Header1.Name = "Header1" + GRID1.cVenChelt.Name = "cVenChelt" + GRID1.cVenChelt.Text1.Name = "Text1" + GRID1.Name = "GRID1" + GRID1.Panel = 1 + But_reface1.lvizibil = .F. + But_reface1.Name = "But_reface1" + But_modifica1.lvizibil = .F. + But_modifica1.Name = "But_modifica1" + But_listare3.Name = "But_listare3" + But_excel1.Name = "But_excel1" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Ck_firma.Alignment = 0 + Ck_firma.Name = "Ck_firma" + Ck_fel_doc.Alignment = 0 + Ck_fel_doc.Name = "Ck_fel_doc" + Ck_cont.Alignment = 0 + Ck_cont.Name = "Ck_cont" + Ck_analitic.Alignment = 0 + Ck_analitic.Name = "Ck_analitic" + Ck_datascad.Alignment = 0 + Ck_datascad.Name = "Ck_datascad" + Ck_datadoc.Alignment = 0 + Ck_datadoc.Name = "Ck_datadoc" + Ck_nrdoc.Alignment = 0 + Ck_nrdoc.Name = "Ck_nrdoc" + ck_debit.Alignment = 0 + ck_debit.Name = "ck_debit" + ck_credit.Alignment = 0 + ck_credit.Name = "ck_credit" + ck_sold.Alignment = 0 + ck_sold.Name = "ck_sold" + Ck_explicatia4.Alignment = 0 + Ck_explicatia4.Name = "Ck_explicatia4" + Ck_lucrare.Alignment = 0 + Ck_lucrare.Name = "Ck_lucrare" + Ck_valuta.Alignment = 0 + Ck_valuta.Name = "Ck_valuta" + Ck_explicatia.Alignment = 0 + Ck_explicatia.Name = "Ck_explicatia" + Ck_responsabil.Alignment = 0 + Ck_responsabil.Name = "Ck_responsabil" + Check3.Alignment = 0 + Check3.Name = "Check3" + Check4.Alignment = 0 + Check4.Name = "Check4" + CMD_CAUTA1.Name = "CMD_CAUTA1" + CMD_RESET1.Name = "CMD_RESET1" + LB_SIMPLU1.Name = "LB_SIMPLU1" + Label3.Name = "Label3" + Text1.Name = "Text1" + Text2.Name = "Text2" + Text3.Name = "Text3" + Text4.Name = "Text4" + Text5.Name = "Text5" + Text6.Name = "Text6" + Label2.Name = "Label2" + Label4.Name = "Label4" + Label5.Name = "Label5" + Label9.Name = "Label9" + Label8.Name = "Label8" + Cb_nom_valute1.Name = "Cb_nom_valute1" + oMenuShortcut.Name = "oMenuShortcut" + Command1.Name = "Command1" + cmdIncasPl.Name = "cmdIncasPl" + Command2.Name = "Command2" + Ck_venchelt.Alignment = 0 + Ck_venchelt.Name = "Ck_venchelt" + Command3.Name = "Command3" + Ck_scadente.Alignment = 0 + Ck_scadente.Name = "Ck_scadente" + Ck_contract.Alignment = 0 + Ck_contract.Name = "Ck_contract" + But_listare1.Name = "But_listare1" + But_listare2.Name = "But_listare2" + * + + ADD OBJECT 'GRID1.Column36.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Rate acoperite", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'GRID1.Column36.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE do_cauta + && am suprascris metoda do_cauta ca sa scot din lcfiltru conditia de an, luna + + LOCAL lcFiltru + lcFiltru = "" + + *!* If m.nivel>1 + *!* lcFiltru = lcFiltru + [ AND ID_UTIL=]+ALLTRIM(STR(gnidutil))+[ ] + *!* ENDIF + + * nrdoc + IF THISFORM.ck_nrdoc.VALUE=1 + lcFiltru = lcFiltru + THISFORM.ck_nrdoc.filtru + ENDIF + * responsabil + IF THISFORM.ck_responsabil.VALUE=1 + lcFiltru = lcFiltru + THISFORM.ck_responsabil.filtru + ENDIF + * dataDoc + IF THIS.ck_dataDoc.VALUE = 1 + lcFiltru = lcFiltru + THISFORM.ck_dataDoc.filtru + ENDIF + + * datascad + IF THIS.ck_datascad.VALUE = 1 + lcFiltru = lcFiltru + THISFORM.ck_datascad.filtru + ENDIF + + * analitic + IF THIS.ck_analitic.VALUE = 1 + lcFiltru = lcFiltru + THISFORM.ck_analitic.filtru + ENDIF + + * cont + IF THIS.ck_cont.VALUE = 1 + lcFiltru = lcFiltru + THISFORM.ck_cont.filtru + ENDIF + + * firma + IF THIS.ck_firma.VALUE = 1 + lcFiltru = lcFiltru + THISFORM.ck_firma.filtru + ENDIF + + * venit_cheltuiala + IF THIS.ck_venchelt.VALUE = 1 + lcFiltru = lcFiltru + THISFORM.ck_venchelt.filtru + ENDIF + + * lucrare/comanda + IF THIS.ck_lucrare.VALUE = 1 + lcFiltru = lcFiltru + THISFORM.ck_lucrare.filtru + ENDIF + + * contract + IF THIS.ck_contract.VALUE = 1 + lcFiltru = lcFiltru + THISFORM.ck_contract.filtru + ENDIF + + * debit + IF THISFORM.ck_debit.VALUE=1 + lcFiltru = lcFiltru + THISFORM.ck_debit.filtru + ENDIF + + * credit + IF THISFORM.ck_credit.VALUE=1 + lcFiltru = lcFiltru + THISFORM.ck_credit.filtru + ENDIF + + * sold + IF THIS.ck_sold.VALUE = 1 + lcFiltru = lcFiltru + THISFORM.ck_sold.filtru + ENDIF + + * valuta + IF THIS.ck_valuta.VALUE = 1 + lcFiltru = lcFiltru + THISFORM.ck_valuta.filtru + ENDIF + + * explicatia + IF THIS.ck_explicatia.VALUE = 1 + lcFiltru = lcFiltru + THIS.ck_explicatia.filtru + ENDIF + + * fel document + IF THIS.Ck_fel_doc.VALUE = 1 + lcFiltru = lcFiltru + THIS.Ck_fel_doc.filtru + ENDIF + + *scadente + IF THIS.Ck_scadente.VALUE = 1 + lcFiltru = lcFiltru + THIS.Ck_scadente.filtru + ENDIF + + *explicatia4 + IF THIS.ck_explicatia4.VALUE=1 + lcFiltru = lcFiltru + THIS.ck_explicatia4.filtru + ENDIF + + *ACHITATE + IF THIS.check3.VALUE = 1 + IF THISFORM.lActiv + lcFiltru = lcFiltru + "and (i.precdeb + i.debit) - (i.preccred + i.credit) = 0" + ELSE + lcFiltru = lcFiltru + "and (i.preccred + i.credit) - (i.precdeb + i.debit) = 0" + ENDIF + ENDIF + + *NEACHITATE + IF THIS.check4.VALUE = 1 + IF THISFORM.lActiv + lcFiltru = lcFiltru + " and (i.precdeb + i.debit) - ( i.preccred + i.credit) <> 0" + ELSE + lcFiltru = lcFiltru + "and (i.preccred + i.credit) - (i.precdeb + i.debit) <> 0" + ENDIF + ENDIF + + *!* If This.check7.Value = 1 + *!* lcFiltru = lcFiltru + " and extract (year from i.datascad) =" + Alltrim(Str(gnAn)) + "and extract (month from i.datascad) = " + Alltrim(Str(gnLuna)) + *!* Endif + + *!* If !Empty(lcFiltru) + *!* lcFiltru = [i.cont in ('] + Alltrim(STRTRAN(Thisform.cont, [,], [','])) + [') and i.luna = ] + Alltrim(Str(gnLuna)) + [ and i.an = ] + Alltrim(Str(gnAn)) + lcFiltru + *!* Else + *!* lcFiltru = [i.cont in ('] + Alltrim(STRTRAN(Thisform.cont, [,], [','])) + [') and i.luna = ] + Alltrim(Str(gnLuna)) + [ and i.an = ] + Alltrim(Str(gnAn)) + *!* Endif + + IF !EMPTY(lcFiltru) + lcFiltru = [i.cont in ('] + ALLTRIM(STRTRAN(THISFORM.CONT, [,], [','])) + [') ] + lcFiltru + ELSE + lcFiltru = [i.cont in ('] + ALLTRIM(STRTRAN(THISFORM.CONT, [,], [','])) + [') ] + ENDIF + + + THISFORM.MOUSEPOINTER= 11 + THISFORM.LOCKSCREEN=.T. + THISFORM.actualizeaza_grid1(lcFiltru) + THISFORM.LOCKSCREEN=.F. + THISFORM.MOUSEPOINTER= 0 + + IF RECCOUNT('actcv')=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+48,"Info cautare") + THISFORM.ck_nrdoc.SETFOCUS() + ELSE + THISFORM.grid1.SETFOCUS() + ENDIF + + ENDPROC + + PROCEDURE Init + DODEFAULT() + this.but_modifica1.Visible = .F. + this.but_reface1.Visible = .F. + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_multiplica_rate AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtNrRate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtFrecventa" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDataI" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValRata" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtNume_val" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDen_rata" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 292 + Name = "frm_multiplica_rate" + Width = 419 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 696 + _shape2.Height = 29 + _shape2.Left = 355 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 64 + Lb_titlu_alb_b121.Caption = "Adãugare rate" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 9 + BUT_TERMIN1.Left = 388 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 7 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 113 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 357, ; + Name = "But_renunt1", ; + TabIndex = 8, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Command2' AS commandbutton WITH ; + Caption = "", ; + FontName = "Arial Narrow", ; + Height = 25, ; + Left = 225, ; + Name = "Command2", ; + Picture = ..\grafice\find.bmp, ; + TabIndex = 6, ; + Top = 173, ; + Width = 28 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'Label1' AS label WITH ; + BackStyle = 0, ; + Caption = "Nr rate", ; + Height = 17, ; + Left = 12, ; + Name = "Label1", ; + TabIndex = 10, ; + Top = 47, ; + Width = 40 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Frecvenþa", ; + FontCharSet = 238, ; + Height = 17, ; + Left = 12, ; + Name = "Label2", ; + TabIndex = 11, ; + Top = 72, ; + Width = 55 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Data de început", ; + FontCharSet = 238, ; + Height = 17, ; + Left = 12, ; + Name = "Label3", ; + TabIndex = 12, ; + Top = 98, ; + Width = 88 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Valoare ratã", ; + FontCharSet = 238, ; + Height = 17, ; + Left = 12, ; + Name = "Label4", ; + TabIndex = 14, ; + Top = 124, ; + Width = 68 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Valuta", ; + Height = 17, ; + Left = 12, ; + Name = "Label5", ; + TabIndex = 15, ; + Top = 177, ; + Width = 36 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Denumire ratã", ; + FontCharSet = 238, ; + Height = 17, ; + Left = 12, ; + Name = "Label6", ; + TabIndex = 13, ; + Top = 150, ; + Width = 81 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Pentru luna", ; + Height = 17, ; + Left = 12, ; + Name = "Label7", ; + TabIndex = 16, ; + Top = 202, ; + Width = 65 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Optiongroup1' AS optiongroup WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + ButtonCount = 4, ; + ControlSource = "pnPtLuna", ; + Height = 84, ; + Left = 120, ; + Name = "Optiongroup1", ; + TabIndex = 18, ; + Top = 202, ; + Value = 1, ; + Width = 168, ; + Option1.AutoSize = .T., ; + Option1.BackStyle = 0, ; + Option1.Caption = "", ; + Option1.Height = 17, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option1.Value = 1, ; + Option1.Width = 98, ; + Option2.AutoSize = .T., ; + Option2.BackStyle = 0, ; + Option2.Caption = "luna în care se factureazã", ; + Option2.FontCharSet = 238, ; + Option2.Height = 17, ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 24, ; + Option2.Width = 158, ; + Option3.AutoSize = .T., ; + Option3.BackStyle = 0, ; + Option3.Caption = "luna precedentã", ; + Option3.FontCharSet = 238, ; + Option3.Height = 17, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 43, ; + Option3.Width = 107, ; + Option4.AutoSize = .T., ; + Option4.BackStyle = 0, ; + Option4.Caption = "luna urmãtoare", ; + Option4.FontCharSet = 238, ; + Option4.Height = 17, ; + Option4.Left = 5, ; + Option4.Name = "Option4", ; + Option4.Top = 62, ; + Option4.Width = 102 + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'txtDataI' AS textbox WITH ; + ControlSource = "pdDataI", ; + Format = "k", ; + Height = 23, ; + Left = 120, ; + Name = "txtDataI", ; + TabIndex = 3, ; + Top = 95, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtDen_rata' AS textbox WITH ; + ControlSource = "pcDen_rata", ; + Format = "k", ; + Height = 23, ; + Left = 120, ; + Name = "txtDen_rata", ; + TabIndex = 5, ; + Top = 147, ; + Width = 288 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtFrecventa' AS textbox WITH ; + ControlSource = "pnFrecventa", ; + Height = 23, ; + Left = 120, ; + Name = "txtFrecventa", ; + ReadOnly = .T., ; + TabIndex = 2, ; + Top = 69, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtNrRate' AS textbox WITH ; + ControlSource = "pnNrRate", ; + Format = "rk", ; + Height = 23, ; + Left = 120, ; + Name = "txtNrRate", ; + TabIndex = 1, ; + Top = 44, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtNume_val' AS textbox WITH ; + ControlSource = "pcNume_val", ; + Format = "k", ; + Height = 23, ; + Left = 120, ; + Name = "txtNume_val", ; + ReadOnly = .T., ; + TabIndex = 17, ; + Top = 174, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtValRata' AS textbox WITH ; + ControlSource = "pnValRata", ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(14,gnPc)), ; + Left = 120, ; + Name = "txtValRata", ; + TabIndex = 4, ; + Top = 121, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE inainte_de_do_termin + IF EMPTY(pdDataI) OR ISNULL(pdDataI) + AMESSAGEBOX('Nu ati completat data de inceput',0+48,'Atentie') + thisform.txtDataI.SetFocus() + RETURN .F. + ENDIF + ENDPROC + + PROCEDURE Command2.Click + locauta = caut_valuta() + If buton=2 + Return + Endif + + pnid_valuta = locauta.id_valuta + pcnume_val = locauta.nume_val + Thisform.txtNume_val.Refresh + *!* modificare v 2.0.46 + With Thisform.txtValRata + .InputMask =get_mask(14,Iif(locauta.moneda_nationala = 1,gnPc,gnPVal)) + .Refresh() + Endwith + Thisform.txtValRata.Refresh() + *!* modificare v 2.0.46 ^ + + ENDPROC + + PROCEDURE Optiongroup1.Valid + pnPtLuna = this.Value + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_politica_preturi AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grd_articole" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_articole.cArticol.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_articole.cArticol.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_articole.cUM.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_articole.cUM.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_articole.cPret.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_articole.cPret.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_articole.cValuta.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_articole.cValuta.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_articole.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_articole.Column5.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" /> + + * + *m: do_alege_politica_pret + *p: cpolitica_pret + *p: nid_politica_pret + * + + * + BorderStyle = 1 + cpolitica_pret = + DoCreate = .T. + Height = 541 + Name = "frm_politica_preturi" + nid_politica_pret = 0 + Width = 473 + _shape1.Anchor = 11 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 480 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 413 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 59 + Lb_titlu_alb_b121.Caption = "Politici de preþuri" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 443 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 264 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 7 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 9, ; + Left = 413, ; + Name = "But_renunt1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Combo1' AS combobox WITH ; + ColumnCount = 3, ; + ColumnLines = .F., ; + ColumnWidths = "200,65,65", ; + Height = 24, ; + Left = 116, ; + Name = "Combo1", ; + RowSource = "crsPoliticiGrup.nume_lista_preturi,nume_val,datai,datas,id_politica", ; + RowSourceType = 2, ; + Top = 40, ; + Width = 292 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'grd_articole' AS _grdrow WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 458, ; + Left = 13, ; + Name = "grd_articole", ; + Panel = 1, ; + RecordSource = "cPol_pret_art", ; + TabIndex = 10, ; + Top = 70, ; + Width = 446, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "nume_articol", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cArticol", ; + Column1.Width = 225, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "um", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cUM", ; + Column2.Width = 39, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "pretftva", ; + Column3.FontName = "Arial Narrow", ; + Column3.InputMask = (get_mask(14,gnPPretV)), ; + Column3.Name = "cPret", ; + Column3.Width = 72, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "nume_val", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "cValuta", ; + Column4.Width = 38, ; + Column5.ColumnOrder = 1, ; + Column5.ControlSource = "ales", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.Sparse = .F., ; + Column5.Width = 36 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grd_articole.cArticol.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Articol", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_articole.cArticol.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_articole.Column5.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Height = 17, ; + Left = 13, ; + Name = "Check1", ; + Top = 19, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'grd_articole.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ales", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_articole.cPret.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pret", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_articole.cPret.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_articole.cUM.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "UM", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_articole.cUM.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_articole.cValuta.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_articole.cValuta.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Politica de preþuri", ; + FontCharSet = 238, ; + Height = 17, ; + Left = 10, ; + Name = "Label1", ; + Top = 43, ; + Width = 97 + *< END OBJECT: BaseClass="label" /> + + PROCEDURE Combo1.InteractiveChange + Thisform.grd_articole.salveaza_grid() + + If Used('cPol_pret_art') + Use In cPol_pret_art + Endif + + Private poPol_pret_art + Store '' To poPol_pret_art + + lcSchema1 = [] + lcSelect1 = [select ppa.*, 0 as ales from vcrm_politici_pret_art ppa] + lcOrder1 = [] + lcgroup = [] + lcFiltru1 = [2=2] + lcFiltruOriginal = [ppa.id_pol=]+Alltrim(Str(crsPoliticiGrup.id_politica)) + llModParam = .T. + llAfiseaza = .F. + + gencursor('poPol_pret_art','cPol_pret_art', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) + poPol_pret_art.ca_baza1.afisare() + + Release poPol_pret_art + *!* modificare v 2.0.46 + This.Parent.grd_articole.cPret.InputMask = get_mask(14,Iif(crsPoliticiGrup.moneda_nationala=1,gnPPretV,gnPVal)) + *!* modificare v 2.0.46 ^ + Thisform.grd_articole.incarca_grid() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_ratedefacturat AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_txDatai" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_txDataf" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtPartener" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="img_cautare" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtDenumire_tip" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lbPerioada" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_facturate" UniqueID="" Timestamp="" /> + + * + *m: do_alege_partener + *m: do_alege_tip_ctr + *p: dataf + *p: datai + *p: nid_part + *p: nid_tip_ctr + * + + * + BorderStyle = 1 + dataf = {} + datai = {} + DoCreate = .T. + Height = 183 + Name = "frm_ratedefacturat" + nid_part = 0 + nid_tip_ctr = 0 + Width = 313 + _shape1.Height = 29 + _shape1.Left = -2 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 559 + _shape2.Height = 29 + _shape2.Left = 221 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 93 + Lb_titlu_alb_b121.Caption = "Rate de facturat" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 9 + BUT_TERMIN1.Left = 283 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 7 + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 130 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 2 + * + + ADD OBJECT '_image1' AS _image WITH ; + Anchor = 9, ; + Height = 20, ; + Left = 271, ; + Name = "_image1", ; + Picture = ..\..\roaproductie\comun\grafice\alege.bmp, ; + Stretch = 1, ; + Top = 127, ; + Width = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" /> + + ADD OBJECT '_txDataf' AS _textbox WITH ; + ControlSource = "thisform.dataf", ; + DisabledForeColor = 0,0,0, ; + FontName = "Arial Narrow", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Format = "k", ; + Height = 22, ; + Left = 116, ; + Name = "_txDataf", ; + TabIndex = 2, ; + Top = 58, ; + Width = 72, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\..\roagest\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT '_txDatai' AS _textbox WITH ; + ControlSource = "thisform.datai", ; + DisabledForeColor = 0,0,0, ; + FontName = "Arial Narrow", ; + FontSize = 10, ; + ForeColor = 0,0,0, ; + Format = "k", ; + Height = 22, ; + Left = 32, ; + Name = "_txDatai", ; + TabIndex = 1, ; + Top = 58, ; + Width = 72, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\..\roagest\comun\clase\_baza.vcx" BaseClass="textbox" /> + + ADD OBJECT 'But_excel1' AS but_excel WITH ; + Anchor = 9, ; + Left = 222, ; + Name = "But_excel1", ; + TabIndex = 8, ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 253, ; + Name = "But_listare1", ; + TabIndex = 6, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'ck_facturate' AS checkbox WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Inclusiv ratele facturate", ; + Height = 17, ; + Left = 17, ; + Name = "ck_facturate", ; + TabIndex = 5, ; + Top = 161, ; + Width = 143 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'img_cautare' AS _image WITH ; + Anchor = 9, ; + Height = 20, ; + Left = 271, ; + Name = "img_cautare", ; + Picture = ..\..\roaproductie\comun\grafice\alege.bmp, ; + Stretch = 1, ; + Top = 100, ; + Width = 20 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Partener", ; + Height = 17, ; + Left = 17, ; + Name = "Label1", ; + TabIndex = 11, ; + Top = 102, ; + Width = 49 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Tip contract", ; + Height = 17, ; + Left = 17, ; + Name = "Label2", ; + TabIndex = 12, ; + Top = 129, ; + Width = 65 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lbPerioada' AS label WITH ; + Alignment = 2, ; + BackColor = 255,255,255, ; + Caption = "Perioada", ; + Comment = "*:OnResize=LT", ; + FontName = "Arial Narrow", ; + FontSize = 10, ; + Height = 17, ; + Left = 25, ; + Name = "lbPerioada", ; + TabIndex = 10, ; + Top = 38, ; + Width = 63, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape3' AS shape WITH ; + BackStyle = 0, ; + Height = 39, ; + Left = 17, ; + Name = "Shape3", ; + Top = 48, ; + Width = 278, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'txtDenumire_tip' AS textbox WITH ; + Anchor = 11, ; + Format = "k", ; + Height = 23, ; + Left = 98, ; + Name = "txtDenumire_tip", ; + TabIndex = 4, ; + Top = 126, ; + Value = , ; + Width = 168 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtPartener' AS textbox WITH ; + Anchor = 11, ; + Format = "k", ; + Height = 23, ; + Left = 98, ; + Name = "txtPartener", ; + TabIndex = 3, ; + Top = 99, ; + Value = , ; + Width = 168 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE do_alege_partener + LOCAL lcIdTipPart, lcTitlu + STORE '' TO lcIdTipPart, lcTitlu + + DO CASE + CASE gnParametru_prog = 1 && contracte clienti + lcIdTipPart = [-1] + lcTitlu = 'Clienti' + CASE gnParametru_prog = 2 && contracte furnizori + lcIdTipPart = [-2] + lcTitlu = 'Furnizori' + ENDCASE + + loCauta = caut_partener(lcIdTipPart, lcTitlu) + *!* IF buton = 2 + *!* RETURN + *!* ENDIF + + IF EMPTY(loCauta.id_part) + THISFORM.nid_part = 0 + THISFORM.txtPartener.VALUE = '' + ELSE + THISFORM.nid_part = loCauta.id_part + THISFORM.txtPartener.VALUE = loCauta.denumire + ENDIF + + THISFORM.txtPartener.REFRESH + + + ENDPROC + + PROCEDURE do_alege_tip_ctr + LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc + lcselect = [select id_tip_ctr, denumire_tip FROM vtipuri_contracte] + lcfiltru = [1=2] + lcschema = [] + lcorder = [denumire_tip] + lccoloane = [denumire_tip] + lcTitlu = [Alegeti tipul de contract] + lcTitluColoane = [Tip contract] + DO CASE + CASE gnParametru_prog=1 + lcFiltruOriginal = [substr(tata,2,6)='CLIENT'] + CASE gnParametru_prog=2 + lcFiltruOriginal = [substr(tata,2,6)='FURNIZ'] + OTHERWISE + lcFiltruOriginal = [] + ENDCASE + lcNumeProc = "" + locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal) + + *!* IF buton=2 + *!* RETURN + *!* ENDIF + + IF EMPTY(loCauta.id_tip_ctr) + THISFORM.nid_tip_ctr = 0 + thisform.txtDenumire_tip.Value = '' + ELSE + THISFORM.nid_tip_ctr = loCauta.id_tip_ctr + THISFORM.txtDenumire_tip.Value = loCauta.denumire + ENDIF + + THISFORM.txtDenumire_tip.REFRESH + + + ENDPROC + + PROCEDURE inainte_de_do_listare + PRIVATE pcDataOra, pcTitlu, pcPerioada, pcDenumire, pcDenumire_tip, pcInclusivFacturate + pcDataOra = get_ora(2) + pcTitlu = 'Rate de facturat' + + LOCAL ldDataI, ldDataF, lcId_part, lcId_tip_ctr + + IF EMPTY(THISFORM.datai) + AMESSAGEBOX('Completati data de inceput',0+48,'Atentie!') + THISFORM._txDatai.SETFOCUS() + RETURN + ELSE + ldDataI = THISFORM.datai + ENDIF + + IF EMPTY(THISFORM.dataf) + AMESSAGEBOX('Completati data de sfarsit',0+48,'Atentie!') + THISFORM._txDataf.SETFOCUS() + RETURN + ELSE + ldDataF = THISFORM.dataf + ENDIF + + pcPerioada = DTOC(ldDataI)+ ' - ' +DTOC(ldDataF) + pcDenumire = NVL(THISFORM.txtPartener.VALUE,'') + pcDenumire_tip = NVL(THISFORM.txtDenumire_tip.VALUE,'') + + pcFacturate = ALLTRIM(STR(THISFORM.ck_facturate.VALUE)) && 1 + IF THISFORM.ck_facturate.VALUE = 0 + pcInclusivFacturate = '' + ELSE + pcInclusivFacturate = '' + ENDIF + + + lcId_part = IIF(EMPTY(THISFORM.nId_part),[NULL],ALLTRIM(STR(THISFORM.nId_part))) + lcId_tip_ctr = IIF(EMPTY(THISFORM.nId_tip_ctr),[NULL],ALLTRIM(STR(THISFORM.nId_tip_ctr))) + + lcSel = [{call pack_crm.rateDeFacturat(to_date(']+DTOS(ldDataI)+ [','YYYYMMDD'), to_date('] + DTOS(ldDataF)+[','YYYYMMDD'),]+; + lcId_part + [,] + lcId_tip_ctr + [,] + pcFacturate + [)}] + + lcCursor = 'cRateDeFacturat' + lnSucces = goExecutor.oExecute(lcSel, lcCursor) + IF lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + RETURN + ENDIF + + THISFORM.ALWAYSONTOP = .F. + + DO CASE + CASE gnParametru_prog = 1 + SELECT rf.* ; + FROM cRateDeFacturat rf ; + LEFT JOIN cContracte c ON c.id_ctr = rf.id_ctr ; + WHERE UPPER(SUBSTR(c.tata,2,6)) = 'CLIENT' ; + ORDER BY rf.data_rata, rf.denumire, rf.den_rata ; + INTO CURSOR cRateDeFacturat2 + CASE gnParametru_prog = 2 + SELECT rf.* ; + FROM cRateDeFacturat rf ; + LEFT JOIN cContracte c ON c.id_ctr = rf.id_ctr ; + ORDER BY rf.data_rata, rf.denumire, rf.den_rata ; + WHERE UPPER(SUBSTR(c.tata,2,6)) = 'FURNIZ' INTO CURSOR cRateDeFacturat2 + ENDCASE + + *!* modificare v 2.0.34 + goExport.export2frx([cRateDeFacturat2],[ratedefacturat]) + *!* SELECT cRateDeFacturat2 + *!* REPORT FORM ratedefacturat TO PRINTER PROMPT PREVIEW + *!* modificare v 2.0.34 ^ + + THISFORM.ALWAYSONTOP = .T. + + IF USED('cRateDeFacturat') + USE IN cRateDeFacturat + ENDIF + + IF USED('cRateDeFacturat2') + USE IN cRateDeFacturat2 + ENDIF + ENDPROC + + PROCEDURE Init + DODEFAULT() + + lcData1 = '01/'+ALLTRIM(STR(gnLuna))+'/'+ALLTRIM(STR(gnAn)) + thisform.datai = CTOD(lcData1) + thisform.dataf = ULTIMAZI(STR(gnAn), STR(gnLuna)) + ENDPROC + + PROCEDURE img_cautare.Click + thisform.do_alege_partener() + ENDPROC + + PROCEDURE Label1.Init + IIF(gnParametru_prog = 1,this.Caption="Client",IIF(gnParametru_prog = 2,this.Caption="Furnizor",'')) + ENDPROC + + PROCEDURE txtDenumire_tip.GotFocus + thisform.do_alege_tip_ctr() + ENDPROC + + PROCEDURE txtPartener.GotFocus + thisform.do_alege_partener() + ENDPROC + + PROCEDURE _image1.Click + thisform.do_alege_tip_ctr() + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_restdefacturat AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Ck_data_ctr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="optIncetat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nr_ctr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="ck_group_respons" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="optInactiv" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_restDeFacturat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_responsabil" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_valuta" UniqueID="" Timestamp="" /> + + * + DoCreate = .T. + Height = 138 + Name = "frm_restdefacturat" + Width = 421 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 444 + _shape2.Height = 29 + _shape2.Left = 360 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 62 + Lb_titlu_alb_b121.Caption = "Rest de facturat" + Lb_titlu_alb_b121.Left = 6 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 391 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + Gridsort1.Left = 144 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 8 + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 360, ; + Name = "But_listare1", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_data_ctr' AS ck_filtru_numar WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = c.data, ; + Caption = "Data ctr.", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_data_ctr", ; + TabIndex = 3, ; + tip = D, ; + Top = 93, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'ck_group_respons' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Grupare pe responsabili", ; + FontName = "Arial Narrow", ; + Left = 294, ; + Name = "ck_group_respons", ; + Top = 115 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nr_ctr' AS ck_filtru_text WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = c.numar_aa, ; + Caption = "Nr. ctr.", ; + Comment = "*:OnResize=LT", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_nr_ctr", ; + TabIndex = 2, ; + Top = 75, ; + ZOrderSet = 15 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = c.denumire, ; + Caption = "Partener", ; + Comment = "*:OnResize=LT", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_nume", ; + TabIndex = 1, ; + Top = 57, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_responsabil' AS ck_filtru_text WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = c.responsabil, ; + Caption = "Responsabil", ; + Comment = "*:OnResize=LT", ; + FontName = "Arial Narrow", ; + Left = 80, ; + Name = "Ck_responsabil", ; + TabIndex = 1, ; + Top = 57, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_restDeFacturat' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Rest de facturat <> 0", ; + FontBold = .T., ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_restDeFacturat", ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_valuta' AS ck_filtru_text WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = c.nume_val, ; + Caption = "Valuta", ; + Comment = "*:OnResize=LT", ; + FontName = "Arial Narrow", ; + Left = 80, ; + Name = "Ck_valuta", ; + TabIndex = 1, ; + Top = 75, ; + ZOrderSet = 14 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'optInactiv' AS optiongroup WITH ; + Anchor = 3, ; + BackStyle = 0, ; + ButtonCount = 3, ; + Height = 49, ; + Left = 304, ; + Name = "optInactiv", ; + TabIndex = 12, ; + Top = 59, ; + Value = 1, ; + Width = 111, ; + ZOrderSet = 11, ; + Option1.BackStyle = 0, ; + Option1.Caption = "Contractele active", ; + Option1.FontName = "Arial Narrow", ; + Option1.Height = 18, ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 1, ; + Option1.Value = 1, ; + Option1.Width = 126, ; + Option2.BackStyle = 0, ; + Option2.Caption = "Contractele inactive", ; + Option2.FontName = "Arial Narrow", ; + Option2.Height = 18, ; + Option2.Left = 5, ; + Option2.Name = "Option2", ; + Option2.Top = 15, ; + Option2.Width = 99, ; + Option3.BackStyle = 0, ; + Option3.Caption = "Toate contractele", ; + Option3.FontName = "Arial Narrow", ; + Option3.Height = 18, ; + Option3.Left = 5, ; + Option3.Name = "Option3", ; + Option3.Top = 29, ; + Option3.Width = 100 + *< END OBJECT: BaseClass="optiongroup" /> + + ADD OBJECT 'optIncetat' AS optiongroup WITH ; + Anchor = 3, ; + BackStyle = 0, ; + ButtonCount = 3, ; + Height = 49, ; + Left = 162, ; + Name = "optIncetat", ; + TabIndex = 11, ; + Top = 59, ; + Value = 1, ; + Width = 134, ; + ZOrderSet = 5, ; + Option1.BackStyle = 0, ; + Option1.Caption = "Contractele în desfãºurare", ; + Option1.FontCharSet = 238, ; + Option1.FontName = "Arial Narrow", ; + Option1.Height = 18, ; + Option1.Left = 4, ; + Option1.Name = "Option1", ; + Option1.Top = 1, ; + Option1.Value = 1, ; + Option1.Width = 126, ; + Option2.BackStyle = 0, ; + Option2.Caption = "Contractele încetate", ; + Option2.FontCharSet = 238, ; + Option2.FontName = "Arial Narrow", ; + Option2.Height = 18, ; + Option2.Left = 4, ; + Option2.Name = "Option2", ; + Option2.Top = 15, ; + Option2.Width = 99, ; + Option3.BackStyle = 0, ; + Option3.Caption = "Toate contractele", ; + Option3.FontName = "Arial Narrow", ; + Option3.Height = 18, ; + Option3.Left = 4, ; + Option3.Name = "Option3", ; + Option3.Top = 29, ; + Option3.Width = 87 + *< END OBJECT: BaseClass="optiongroup" /> + + PROCEDURE inainte_de_do_listare + Private pcFiltru, pnGroupResponsabil + Store '' To pcFiltru + Store 0 To pnGroupResponsabil + + Local lcCondSucursala + Store '' To lcCondSucursala + + If This.ck_nume.Value = 1 + pcFiltru = pcFiltru + This.ck_nume.filtru + Endif + + If This.ck_nr_ctr.Value = 1 + pcFiltru = pcFiltru + This.ck_nr_ctr.filtru + Endif + + If This.ck_data_ctr.Value = 1 + pcFiltru = pcFiltru + This.ck_data_ctr.filtru + Endif + + If This.ck_responsabil.Value = 1 + pcFiltru = pcFiltru + This.ck_responsabil.filtru + Endif + + If This.ck_valuta.Value = 1 + pcFiltru = pcFiltru + This.ck_valuta.filtru + Endif + + If This.ck_restDeFacturat.Value=1 + pcFiltru = pcFiltru + [ and round(sel2.valrata, 2) - round(sel2.valfact, 2) <> 0 ] + Endif + + Do Case + Case This.optIncetat.Value = 1 + pcFiltru = pcFiltru + [ and c.incetat = 0] + Case This.optIncetat.Value = 2 + pcFiltru = pcFiltru + [ and c.incetat = 1] + Case This.optIncetat.Value = 3 + pcFiltru = pcFiltru + [ and (c.incetat = 0 or c.incetat = 1)] + Endcase + + Do Case + Case This.optInactiv.Value = 1 && active + pcFiltru = pcFiltru + [ and c.inactiv = 0] + Case This.optInactiv.Value = 2 && inactive + pcFiltru = pcFiltru + [ and c.inactiv = 1] + Case This.optInactiv.Value = 3 && toate + pcFiltru = pcFiltru + [ and (c.inactiv = 0 or c.inactiv = 1)] + Endcase + + lcCondSucursala = Iif(!Isnull(gnIdSucursala), ' AND id_sucursala = ' + Alltrim(Str(gnIdSucursala)), '') + + If gnParametru_prog=1 + pcFiltru = pcFiltru + [ and substr(c.tata,2,6)='CLIENT'] + lcCondSucursala + Else + pcFiltru = pcFiltru + [ and substr(c.tata,2,6)='FURNIZ'] + lcCondSucursala + Endif + + + If !Empty(pcFiltru) + pcFiltru = Substr(pcFiltru,6) + Else + pcFiltru = [1=1] + Endif + + If Thisform.ck_group_respons.Value = 1 + pnGroupResponsabil = 1 + pcGroup1 = 'crsrestdefacturat.id_responsabil' + Else + pnGroupResponsabil = 0 + pcGroup1 = '1=1' + Endif + + *--- + + lcSel = [{call pack_crm.restdefacturat(?pcFiltru, ?pnGroupResponsabil)}] + lcCursor = 'crsRestDeFacturat' + If goExecutor.oExecuta(lcSel, lcCursor) + Thisform.AlwaysOnTop = .F. + goExport.export2frx(lcCursor,[rCtrRestDeFact]) + Thisform.AlwaysOnTop = .T. + Use In (lcCursor) + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_restdefacturat_mic AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="ck_group_respons" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_restDeFacturat" UniqueID="" Timestamp="" /> + + * + BorderStyle = 1 + DoCreate = .T. + Height = 69 + Name = "frm_restdefacturat_mic" + Width = 375 + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Caption = "Rest de facturat" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Left = 156 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 7 + BUT_RENUNT1.Name = "BUT_RENUNT1" + * + + ADD OBJECT 'ck_group_respons' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Grupare pe responsabili", ; + ControlSource = "pnGroupResponsabil", ; + FontName = "Arial Narrow", ; + Left = 240, ; + Name = "ck_group_respons", ; + Top = 39 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_restDeFacturat' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Rest de facturat <> 0", ; + ControlSource = "pnRestDeFacturat", ; + FontBold = .T., ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_restDeFacturat", ; + Top = 41 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + +ENDDEFINE + +DEFINE CLASS frm_selectie_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_categ_ctr" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_selectie1" UniqueID="" Timestamp="" /> + + * + *p: cnumevechi + *p: nid + *p: nnivelmodificare && - 1 daca utilizatorul are voie sa modifice toate datele ; 0 daca are voie sa modifice doar nr. de telefon + *p: orec + * + + * + BorderStyle = 1 + cnumevechi = + DoCreate = .T. + Height = 83 + Name = "frm_selectie_nou" + nnivelmodificare = -1 + Width = 358 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 744 + _shape2.Height = 29 + _shape2.Left = 291 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 69 + Lb_titlu_alb_b121.Caption = "PROCEDURà SELECÞIE" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 5 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 328 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 3 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.Width = 30 + Gridsort1.Left = 240 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 5 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Height = 27, ; + Left = 296, ; + Name = "But_renunt1", ; + TabIndex = 4, ; + Top = 0, ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_categ_ctr' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 15, ; + Name = "Clb_categ_ctr", ; + TabIndex = 1, ; + Top = 40, ; + Width = 328, ; + Text_simplu1.ControlSource = "porec.selectie", ; + Text_simplu1.Left = 136, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Lb_simplu1.Caption = "Procedurã selecþie", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_selectie1' AS cus_odata_selectie WITH ; + Left = 210, ; + Name = "Cus_odata_selectie1", ; + Top = 1 + *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + Local PLRETURN + lccontrol = Upper(This.ActiveControl.BaseClass ) + If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval = This.ActiveControl.ControlSource + &lcval = Thisform.ActiveControl.Value + ENDIF + + Do Case + Case Empty(porec.selectie) + amessagebox('Nu ati completat denumirea procedurii de selectie!',0+48,"Atentie") + this.clb_selectie.text_simplu1.SetFocus() + PLRETURN = .F. + + OTHERWISE + PLRETURN = This.cus_odata_selectie1.salvare(This.OREC, This.NID) + + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + THIS.orec = toRec + THIS.nid = tnId + THIS.cus_odata_selectie1.cactiune = tcActiune + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_selectii AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_selectie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_selectii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_selectii.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_selectii.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_selectii.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_selectii.Column2.Text1" UniqueID="" Timestamp="" /> + + * + *m: do_adauga2 + *m: do_modifica2 + *m: do_sterge2 + * + + * + BorderStyle = 1 + cgridsortlist = grd_selectii + DoCreate = .T. + Height = 466 + Name = "frm_selectii" + Width = 711 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 744 + _shape1.ZOrderSet = 2 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 577 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 136 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "PROCEDURI SELECÞIE" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 11 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 680 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 6 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 5 + Gridsort1.Left = 240 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 12 + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Anchor = 8, ; + Left = 615, ; + Name = "But_modifica1", ; + TabIndex = 8, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 8, ; + Left = 581, ; + Name = "But_nou1", ; + TabIndex = 7, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Left = 648, ; + Name = "But_sterge1", ; + TabIndex = 9, ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'clb_selectie' AS clb_tx_simplu WITH ; + Anchor = 0, ; + Left = 9, ; + Name = "clb_selectie", ; + TabIndex = 1, ; + Top = 37, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Denumire", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 0, ; + Left = 330, ; + Name = "Cmd_cauta1", ; + TabIndex = 4, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 0, ; + Left = 418, ; + Name = "Cmd_reset1", ; + TabIndex = 10, ; + Top = 36 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grd_selectii' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 2, ; + DeleteMark = .F., ; + Height = 383, ; + Left = 9, ; + Name = "grd_selectii", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordMark = .F., ; + RecordSource = "cSelectii", ; + Top = 73, ; + Width = 687, ; + Column1.ControlSource = "", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 69, ; + Column2.ControlSource = "", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 198 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grd_selectii.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id selectie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_selectii.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_selectii.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procedura selectie", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_selectii.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + Lparameters lcFiltru + If Empty(lcFiltru) + lcFiltru = poSelectii.ca_baza1.cfiltru + Endif + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + save_grid_tag(Thisform.grd_selectii) + poSelectii.ca_baza1.cfiltru = lcFiltru + poSelectii.ca_baza1.afisare() + restore_grid_tag(Thisform.grd_selectii) + Thisform.LockScreen = .F. + Thisform.MousePointer = 0 + + ENDPROC + + PROCEDURE do_adauga + Private pniesire + pniesire=0 + Select cSelectii + Scatter Name loRec Blank + + Do Adauga_Modifica_Inregistrare With "selectie",loRec,,"INSERT" + If pniesire=1 + This.actualizeaza_grid1() + Select cSelectii + Locate For selectie = loRec.selectie + Thisform.grd_selectii.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_adauga2 + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + Store '' To lcFiltru + lcFiltru=[2=2] + lcSelectie = Strtran(Upper(Alltrim(This.clB_SELECTIE.text_simplu1.Value)),['],['']) + + If !Empty(lcSelectie) + lcFiltru = lcFiltru + [ and selectie like '] + lcSelectie + [%'] + Endif + + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('cSelectii')>0 + Select cSelectii + Go Top + Thisform.grd_selectii.SetFocus() + Else + aMessagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.clB_SELECTIE.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_modifica + If Reccount('cSelectii')>0 + Private pniesire + pniesire = 0 + Select cSelectii + Scatter Name loRec + + Do Adauga_Modifica_Inregistrare With "selectie",loRec,loRec.id_selectie,"UPDATE" + If pniesire = 1 + This.actualizeaza_grid1() + Endif + Endif + ENDPROC + + PROCEDURE do_modifica2 + ENDPROC + + PROCEDURE do_reset + thisform.clb_selectie.TEXT_SIMPLU1.Value = '' + Thisform.Refresh + Thisform.clb_selectie.TEXT_SIMPLU1.SetFocus() + + ENDPROC + + PROCEDURE do_sterge + If Reccount('cSelectii')>0 + Select cSelectii + Scatter Name loRec + Do STERGE_INREGISTRARE With "selectie",loRec.id_selectie + This.actualizeaza_grid1() + Endif + + ENDPROC + + PROCEDURE do_sterge2 + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_viz_facturi_ AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column7.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column7.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column8.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column8.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column9.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column9.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column10.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column10.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column11.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column11.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column12.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column12.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column13.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column13.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column14.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column14.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column15.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_facturi.Column15.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_nr_fact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_data_fact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listfactura1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValftva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValtva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValctva" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_perioada" UniqueID="" Timestamp="" /> + + * + *m: afisactual + *m: do_listfact + *p: lproforme + *p: nvalctva + *p: nvalftva + *p: nvaltva + * + + * + cgridsortlist = grid_facturi + DoCreate = .T. + Height = 554 + lproforme = .F. + Name = "frm_viz_facturi_" + nvalctva = 0 + nvalftva = 0 + nvaltva = 0 + Width = 771 + _shape1.Anchor = 11 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 780 + _shape1.ZOrderSet = 1 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 650 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + _shape2.ZOrderSet = 2 + Lb_titlu_alb_b121.Caption = "Facturi" + Lb_titlu_alb_b121.Left = 9 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.Top = 6 + Lb_titlu_alb_b121.ZOrderSet = 3 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 740 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.ZOrderSet = 4 + Gridsort1.Left = 120 + Gridsort1.Name = "Gridsort1" + Gridsort1.Top = 4 + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Anchor = 9, ; + Left = 651, ; + Name = "But_listare1", ; + ToolTipText = "Listare selectie (CTRL+P)", ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_listfactura1' AS but_listfactura WITH ; + Anchor = 9, ; + Left = 681, ; + Name = "But_listfactura1", ; + ToolTipText = "Listare factura", ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 9, ; + Left = 711, ; + Name = "But_sterge1", ; + Top = 1, ; + Visible = .T., ; + ZOrderSet = 11 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_data_fact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = data_fact, ; + Caption = "Data fact.", ; + FontName = "Arial Narrow", ; + Left = 119, ; + Name = "Ck_data_fact", ; + TabIndex = 1, ; + tip = D, ; + Top = 38, ; + ZOrderSet = 8 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nr_fact' AS ck_filtru_numar WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = nr_fact, ; + Caption = "Nr. fact.", ; + FontName = "Arial Narrow", ; + Left = 60, ; + mask = (replicate('9',12)), ; + Name = "Ck_nr_fact", ; + TabIndex = 4, ; + Top = 38, ; + ZOrderSet = 7 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = nume, ; + Caption = "Client", ; + Comment = "*:OnResize=LT", ; + FontName = "Arial Narrow", ; + Left = 9, ; + Name = "Ck_nume", ; + TabIndex = 5, ; + Top = 38, ; + ZOrderSet = 6 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_perioada' AS ck_filtru_luna WITH ; + Alignment = 0, ; + Anchor = 33, ; + camp_nume = luna+an*12, ; + Caption = "Perioada", ; + FontName = "Arial Narrow", ; + Left = 392, ; + luna = , ; + Name = "Ck_perioada", ; + TabIndex = 30, ; + Top = 38 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 9, ; + Comment = "*:OnResize=LT", ; + Left = 504, ; + Name = "Cmd_cauta1", ; + TabIndex = 34, ; + Top = 34, ; + ZOrderSet = 9 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 9, ; + Comment = "*:OnResize=LT", ; + Left = 600, ; + Name = "Cmd_reset1", ; + TabIndex = 45, ; + Top = 34, ; + ZOrderSet = 10 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_facturi' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 15, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 431, ; + Left = 9, ; + Name = "grid_facturi", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "tFacturi", ; + Top = 68, ; + Width = 744, ; + ZOrderSet = 5, ; + Column1.ControlSource = "recno()", ; + Column1.FontName = "Arial Narrow", ; + Column1.Format = "rk", ; + Column1.InputMask = "999999999999999", ; + Column1.Name = "Column1", ; + Column1.Width = 44, ; + Column2.ControlSource = "nr_fact", ; + Column2.FontName = "Arial Narrow", ; + Column2.Format = "rk", ; + Column2.InputMask = "9999999999", ; + Column2.Name = "Column2", ; + Column2.Width = 54, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "nr_ctr", ; + Column3.FontName = "Arial Narrow", ; + Column3.Format = "rk", ; + Column3.InputMask = "999999", ; + Column3.Name = "Column3", ; + Column3.Width = 71, ; + Column4.ColumnOrder = 3, ; + Column4.ControlSource = "nume", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.Width = 100, ; + Column5.ControlSource = "data_fact", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.Width = 72, ; + Column6.ControlSource = "data_scad", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column6.Width = 69, ; + Column7.ControlSource = "valftva", ; + Column7.FontName = "Arial Narrow", ; + Column7.Format = "rk", ; + Column7.InputMask = (get_mask(15,gnPA)), ; + Column7.Name = "Column7", ; + Column7.Width = 100, ; + Column8.ControlSource = "valtva", ; + Column8.FontName = "Arial Narrow", ; + Column8.Format = "rk", ; + Column8.InputMask = (get_mask(15,gnPA)), ; + Column8.Name = "Column8", ; + Column8.Width = 89, ; + Column9.ControlSource = "valctva", ; + Column9.FontName = "Arial Narrow", ; + Column9.Format = "rk", ; + Column9.InputMask = (get_mask(15,gnPA)), ; + Column9.Name = "Column9", ; + Column10.ControlSource = "nume_val", ; + Column10.FontName = "Arial Narrow", ; + Column10.Name = "Column10", ; + Column10.Width = 62, ; + Column11.ControlSource = "curs", ; + Column11.FontName = "Arial Narrow", ; + Column11.Format = "rk", ; + Column11.InputMask = (get_mask(8,gnPCurs)), ; + Column11.Name = "Column11", ; + Column11.Width = 43, ; + Column12.ControlSource = "valval", ; + Column12.FontName = "Arial Narrow", ; + Column12.Format = "rk", ; + Column12.InputMask = (get_mask(15,gnPA)), ; + Column12.Name = "Column12", ; + Column12.Width = 121, ; + Column13.ControlSource = "tvaval", ; + Column13.FontName = "Arial Narrow", ; + Column13.Format = "rk", ; + Column13.InputMask = (get_mask(15,gnPA)), ; + Column13.Name = "Column13", ; + Column13.Width = 99, ; + Column14.ControlSource = "totval", ; + Column14.FontName = "Arial Narrow", ; + Column14.Format = "rk", ; + Column14.InputMask = (get_mask(15,gnPA)), ; + Column14.Name = "Column14", ; + Column14.Width = 103, ; + Column15.ControlSource = "cod", ; + Column15.FontName = "Arial Narrow", ; + Column15.Name = "Column15", ; + Column15.Width = 59 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_facturi.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. crt.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column10.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column10.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column11.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column11.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column12.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare valuta fara TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column12.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column13.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare valuta TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column13.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column14.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare valuta totala", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column14.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column15.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column15.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. factura", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. contract", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data facturii", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data scadentei", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column7.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare lei fara TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column7.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column8.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare lei TVA", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column8.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_facturi.Column9.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare lei totala", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_facturi.Column9.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Label1' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Valoare lei fãrã TVA", ; + FontCharSet = 238, ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 439, ; + Name = "Label1", ; + Top = 504, ; + Width = 86, ; + ZOrderSet = 13 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Valoare lei TVA", ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 568, ; + Name = "Label2", ; + Top = 504, ; + Width = 68, ; + ZOrderSet = 14 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Valoare lei cu TVA", ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 663, ; + Name = "Label3", ; + Top = 504, ; + Width = 84, ; + ZOrderSet = 15 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + Anchor = 12, ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Total sume", ; + FontBold = .T., ; + FontName = "Arial Narrow", ; + Height = 18, ; + Left = 358, ; + Name = "Label4", ; + Top = 522, ; + Width = 54, ; + ZOrderSet = 19 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + Anchor = 12, ; + BackStyle = 0, ; + Height = 43, ; + Left = 354, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Style = 0, ; + Top = 504, ; + Width = 399, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'txtValctva' AS textbox WITH ; + Anchor = 12, ; + ControlSource = "thisform.nValctva", ; + FontName = "Arial Narrow", ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(15,gnPA)), ; + Left = 639, ; + Name = "txtValctva", ; + Top = 520, ; + Width = 108, ; + ZOrderSet = 18 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtValftva' AS textbox WITH ; + Anchor = 12, ; + ControlSource = "thisform.nValftva", ; + FontName = "Arial Narrow", ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(15,gnPA)), ; + Left = 417, ; + Name = "txtValftva", ; + Top = 520, ; + Width = 108, ; + ZOrderSet = 16 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtValtva' AS textbox WITH ; + Anchor = 12, ; + ControlSource = "thisform.nValtva", ; + FontName = "Arial Narrow", ; + Format = "rk", ; + Height = 23, ; + InputMask = (get_mask(15,gnPA)), ; + Left = 528, ; + Name = "txtValtva", ; + Top = 520, ; + Width = 108, ; + ZOrderSet = 17 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Activate + THISFORM.WindowState = 2 + ENDPROC + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru = pcFiltru + IF EMPTY(lcFiltru) + lcFiltru = pofacturi.ca_baza1.cfiltru + ENDIF + + *lcOrder = This.corderby + " " + This.Casc + + save_grid_tag(thisform.grid_facturi) + pofacturi.ca_baza1.cfiltru = lcFiltru + *pofacturi.ca_baza1.corder = lcOrder + pofacturi.ca_baza1.afisare() + restore_grid_tag(thisform.grid_facturi) + + If Thisform.ck_perioada.Value=1 + With Thisform.ck_perioada + If .cvaloare1=Thisform.ck_perioada.cvaloare2 + Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+; + " "+.cvaloare1 + Else + Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+; + " "+.cvaloare1+" - "+.cvaloare2 + Endif + Endwith + Else + Thisform.lb_titlu_alb_b121.Caption=Substr(Thisform.lb_titlu_alb_b121.Caption,1,At("*",Thisform.lb_titlu_alb_b121.Caption,1))+; + " "+Padl(Alltrim(Str(gnluna)),2,"0")+"/"+Alltrim(Str(gnAn)) + ENDIF + + IF RECCOUNT('tFacturi')>0 + thisform.grid_facturi.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE afisactual + LOCAL lcTabel + lcTabel = thisform.grid_facturi.RecordSource + SELECT (lcTabel) + CALCULATE SUM(NVL(valftva,0)), SUM(NVL(valtva,0)), SUM(NVL(valctva,0)) TO thisform.nValftva, thisform.nValtva, thisform.nValctva + + thisform.txtValftva.Refresh + thisform.txtValtva.Refresh + thisform.txtValctva.Refresh + ENDPROC + + PROCEDURE do_cauta + LOCAL lcFiltru + lcFiltru = "" + + If This.ck_nume.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nume.filtru + ENDIF + IF this.ck_nr_fact.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_nr_fact.filtru + ENDIF + IF this.ck_data_fact.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_data_fact.filtru + ENDIF + + * perioada + If thisform.ck_perioada.Value=1 + lcFiltru = lcFiltru + thisform.ck_perioada.filtru + ELSE + lcFiltru = lcFiltru + [ AND LUNA=]+ALLTRIM(STR(gnluna))+[ AND AN=]+ALLTRIM(STR(gnan)) + ENDIF + + lcFiltru = SUBSTR(lcFiltru,6) + *!* If llIstoric + *!* this.lb_titlu_alb_b121.Caption = "Istoric facturi" + *!* Else + *!* this.lb_titlu_alb_b121.Caption = "Facturi" + *!* Endif + + Thisform.actualizeaza_grid1(lcFiltru) + thisform.afisactual + Thisform.grid_facturi.SetFocus() + + ENDPROC + + PROCEDURE do_listfact + *!* Thisform.AlwaysOnTop=.F. + + *!* Local lcTabel, lnid_Fact + *!* lcTabel = Thisform.grid_facturi.RecordSource + *!* Select (lcTabel) + *!* If This.lProforme + *!* If !Eof() + *!* lnid_proforma = id_proforma + *!* Do listfactura With lnid_proforma, This.lProforme In oproceduri_roacontracte.prg + *!* Endif + *!* Else + *!* If !Eof() + *!* lnid_Fact = id_fact + *!* Do listfactura With lnid_Fact In oproceduri_roacontracte.prg + *!* Endif + *!* Endif + + *!* Thisform.AlwaysOnTop=.T. + + ENDPROC + + PROCEDURE do_reset + thisform.ck_nume.Value = 0 + thisform.ck_nr_fact.Value = 0 + thisform.ck_data_fact.Value = 0 + WITH thisform.ck_perioada + .filtru=[ AND LUNA=]+ALLTRIM(STR(gnluna))+[ AND AN=]+ALLTRIM(STR(gnan)) + .luna=PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn)) + .cvaloare1=.luna + .cvaloare2=.luna + .value = 1 + ENDWITH + + thisform.Refresh() + + + ENDPROC + + PROCEDURE inainte_de_do_listare + thisform.AlwaysOnTop = .F. + PRIVATE pcDataOra, pcTitlu + pcDataOra = get_ora(2) + pcTitlu = "Facturi" + + LOCAL lcTabel + lcTabel = thisform.grid_facturi.RecordSource + + SELECT (lcTabel) + REPORT FORM rFacturi TO PRINTER PROMPT PREVIEW + thisform.AlwaysOnTop = .T. + ENDPROC + + PROCEDURE inainte_de_do_sterge + Local lcTabel + lcTabel = Thisform.grid_facturi.RecordSource + + Select (lcTabel) + If This.lProforme + lnRaspuns = amessage('Doriti sa stergeti proforma?',4+32,_Screen.Caption) + If lnRaspuns = 7 && 7 = No ; 6 = Yes + Return + ENDIF + + lnId_proforma = id_proforma + lcSel = [{call pack_crm.sterg_proforma(']+gcS+[',]+Alltrim(Str(lnId_proforma))+[,]+Alltrim(Str(gnIdUtil))+[)}] + lnSucces = goExecutor.oExecute(lcSel) + If lnSucces < 0 + Messagebox('Call pack_crm.sterg_proforma' + Chr(13) + goExecutor.cEroare,0+16,"Eroare") + Return + Endif + Else + lnId_fact = id_fact + lnAn = an + lnLuna = luna + + ***--------- + Private poActactan + Store '' To poActactan + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza + lcSchema1 = [''] + lcSelect1 = [select * from ] + gcS + [.act fe where 1=2] + lcOrder1 = [] + lcFiltru1 = [id_fact=]+Alltrim(Str(lnId_fact))+[ and an=]+Alltrim(Str(lnAn))+ [ and luna=]+Alltrim(Str(lnLuna)) + llAfiseaza = .F. + gencursor('poActactan','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) + poActactan.ca_baza1.afisare() + + Select * From cIntermediar Into Cursor actactan Readwrite + Release poActactan + ***--------- + + lnRaspuns = amessage('Doriti sa stergeti factura?',4+32,_Screen.Caption) + If lnRaspuns = 7 && 7 = No ; 6 = Yes + Return + Endif + + llRul = .F. + Select actactan + lnSucces = OSCRIE_IN_FISIERE(2,.F.,llRul) + + lcSel = [{call pack_crm.sterg_factura(']+gcS+[',]+Alltrim(Str(lnId_fact))+[,]+Alltrim(Str(gnIdUtil))+[)}] + lnSucces = goExecutor.oExecute(lcSel) + If lnSucces < 0 + Messagebox('Call pack_crm.sterg_factura' + Chr(13) + goExecutor.cEroare,0+16,"Eroare") + Return + Endif + Endif + + thisform.afisactual + Thisform.actualizeaza_grid1() + + ENDPROC + + PROCEDURE Init + PARAMETERS tlProforme + DODEFAULT() + + this.lProforme = tlProforme + + IF this.lProforme + this.lb_titlu_alb_b121.Caption = "PROFORME * "+PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn)) + else + this.lb_titlu_alb_b121.Caption = "FACTURI * "+PADL(ALLTRIM(STR(gnLuna)),2,'0')+"/"+ALLTRIM(STR(gnAn)) + ENDIF + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + With This.ck_perioada + .filtru=[ AND LUNA=]+Alltrim(Str(gnluna))+[ AND AN=]+Alltrim(Str(gnan)) + .luna=Padl(Alltrim(Str(gnluna)),2,'0')+"/"+Alltrim(Str(gnan)) + .cvaloare1=.luna + .cvaloare2=.luna + .Value = 1 + Endwith + + ENDPROC + +ENDDEFINE + +DEFINE CLASS text AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 91 + Name = "text" + Width = 372 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 342 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 31 + Lb_titlu_alb_b121.Caption = "" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'Image1' AS image WITH ; + Height = 32, ; + Left = 12, ; + Name = "Image1", ; + Picture = ..\grafice\exclam1.ico, ; + Top = 40, ; + Width = 32 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Label2' AS label WITH ; + Alignment = 2, ; + BackStyle = 0, ; + Caption = "Label2", ; + Height = 17, ; + Left = 60, ; + Name = "Label2", ; + Top = 40, ; + Width = 299 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Alignment = 2, ; + BackStyle = 0, ; + Caption = "Label3", ; + Height = 17, ; + Left = 60, ; + Name = "Label3", ; + Top = 65, ; + Width = 299 + *< END OBJECT: BaseClass="label" /> + +ENDDEFINE diff --git a/Clase/oOptiuni.vc2 b/Clase/oOptiuni.vc2 new file mode 100644 index 0000000..576093a --- /dev/null +++ b/Clase/oOptiuni.vc2 @@ -0,0 +1,1456 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ooptiuni.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS cus_odata_cote AS _cusodatabase OF "..\libs\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_cote" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + + ENDIF + + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.descriere)),['],['']),"") + lcLuna = ALLTRIM(STR(toRec.luna)) + lcAn = ALLTRIM(STR(toRec.an)) + lcProcent = ALLTRIM(STR(toRec.procent)) + lcproc = ALLTRIM(STR(toRec.proc_tva,5,2)) + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + lcS + [.cote_tva (descriere,procent,proc_tva,an,luna) VALUES ('] +; + lcnume + [',] + lcProcent + [,] + lcproc + [,] + lcan + [,] + lcluna + [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + lcS + [.cote_tva SET descriere = '] + lcnume + ; + [', procent = ] + lcprocent + [,proc_tva = ] + lcproc + [, an = ] + lcan + [, luna = ] + lcluna +; + [ where id_proc_tva = ] + lcId + + + Case lcActiune = "DELETE" + + lcSql = [delete from ] + lcS + [.cote_tva where id_proc_tva=] + lcId + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_exceptii AS _cusodatabase OF "..\libs\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_exceptii" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + + ENDIF + + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcCont = Nvl(STRTRAN(Alltrim(Upper(toRec.cont)),['],['']),"") + lcContC = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_c)),['],['']),"") + lcDebit = ALLTRIM(STR(toRec.debit)) + lcInvers = '1' + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + lcS + [.exceptii_ireg (cont,cont_c,debit,invers) VALUES ('] +; + lcCont + [','] + lcContC + [',] + lcDebit + [,] + lcInvers + [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + lcS + [.exceptii_ireg SET cont = '] + lccont + ; + [', cont_c = '] + lcContC + [',debit = ] + lcDebit + [, invers = ] + lcInvers +; + [ where id_exceptii = ] + lcId + + + Case lcActiune = "DELETE" + + lcSql = [delete from ] + lcS + [.exceptii_ireg where id_exceptii = ] + lcId + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_optiuni AS _cusodatabase OF "..\libs\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + *p: cschema + * + + * + cschema = + Name = "cus_odata_optiuni" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcs = this.cschema + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + IF INLIST(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + + ENDIF + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.varname)),['],['']),"") + lctip = Nvl(STRTRAN(Alltrim(Upper(toRec.vartype)),['],['']),"") + lcval = Nvl(STRTRAN(Alltrim(Upper(toRec.varvalue)),['],['']),"") + lcdesc = Nvl(STRTRAN(Alltrim(Upper(toRec.vardesc)),['],['']),"") + + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + lcS + [.optiuni (varname,vartype,varvalue,vardesc) VALUES ('] +; + lcnume + [','] + lctip + [','] + lcval + [','] + lcdesc + [')] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + lcS + [.optiuni SET varname = '] + lcnume + ; + [', vartype = '] + lctip + [',varvalue = '] + lcval + [', vardesc = '] + lcdesc + ; + [' where id_optiuni = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [delete from ] + lcS + [.optiuni where id_optiuni=] + lcId + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_cote_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_cote1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 165 + Name = "frm_cote_nou" + Width = 314 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 252 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 76 + Lb_titlu_alb_b121.Caption = "Cote tva" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 283 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 253, ; + Name = "But_renunt1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.ControlSource = "porec.descriere", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Descriere", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 72, ; + Text_simplu1.ControlSource = "porec.procent", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Procent", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 3, ; + Top = 100, ; + Text_simplu1.ControlSource = "porec.luna", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Luna", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 4, ; + Top = 128, ; + Text_simplu1.ControlSource = "porec.an", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "An", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_cote1' AS cus_odata_cote WITH ; + Left = 120, ; + Name = "Cus_odata_cote1", ; + Top = 26 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.descriere) + Messagebox('Nu ati completat descrierea cotei de tva!',0+48,"Atentie") + This.clb_tx_simplu1.SetFocus() + plreturn=.F. + + *!* Case Empty(porec.procent) + *!* Messagebox('Nu ati completat procentul de tva!',0+48,"Atentie") + *!* This.clb_tx_simplu2.SetFocus() + *!* plreturn=.F. + + Case Empty(porec.luna) + Messagebox('Nu ati completat luna!',0+48,"Atentie") + This.clb_tx_simplu3.SetFocus() + plreturn=.F. + + Case Empty(porec.an) + Messagebox('Nu ati completat anul!',0+48,"Atentie") + This.clb_tx_simplu6.SetFocus() + plreturn=.F. + + OTHERWISE + this.cus_odata_cote1.cschema=this.cschema + PLRETURN=This.cus_odata_cote1.salvare(This.OREC,This.NID) + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_cote1.cactiune = tcActiune + ENDPROC + + PROCEDURE Clb_tx_simplu2.Text_simplu1.Valid + + porec.proc_tva = (100+this.value)/100 + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_cote_tva AS _frmbase OF "..\libs\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_cot" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_cot.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_cot" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + + * + *p: cschema + * + + * + BorderStyle = 1 + cschema = CONTAFIN_ORACLE + DoCreate = .T. + Height = 351 + Name = "frm_cote_tva" + Width = 524 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 522 + _shape2.Height = 29 + _shape2.Left = 402 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 120 + Lb_titlu_alb_b121.Caption = "COTE TVA" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 494 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 434, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 403, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 463, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 299, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 52 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_cot' AS _grid WITH ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 264, ; + Left = 5, ; + Name = "grid_cot", ; + Panel = 1, ; + RecordSource = "v_cote_tva", ; + RowHeight = 23, ; + Top = 84, ; + Width = 513, ; + Column1.ControlSource = "descriere", ; + Column1.Name = "Column1", ; + Column1.Width = 305, ; + Column2.ControlSource = "procent", ; + Column2.Name = "Column2", ; + Column2.Width = 66, ; + Column3.ControlSource = "luna", ; + Column3.Name = "Column3", ; + Column3.Width = 43, ; + Column4.ControlSource = "an", ; + Column4.Name = "Column4", ; + Column4.Width = 64 + *< END OBJECT: ClassLib="..\libs\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_cot.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_cot.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Procent %", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_cot.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Luna", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column3.Text1' AS textbox WITH ; + Height = 23, ; + Left = 31, ; + Name = "Text1", ; + Top = 35, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_cot.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "An", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_cot.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_nom_cot' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "lb_nom_cot", ; + TabIndex = 1, ; + Top = 52, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nume", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pcot.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_cot) + pcot.ca_baza1.cfiltru=lcFiltru + pcot.ca_baza1.afisare() + restore_grid_tag(thisform.grid_cot) + IF RECCOUNT('v_cote_tva')>0 + thisform.grid_cot.SetFocus() + ELSE + thisform.lb_nom_cot.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_cote_tva + SCATTER NAME loRec BLANK + PRIVATE lcot,poRec + lcot='' + poRec = loRec + DO Adauga_Modifica_Inregistrare WITH "cote",loRec,,"INSERT",.t.,'lcot' + lcot.cschema = this.cschema + lcot.show(1) + RELEASE lcot,poRec + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_cot.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[descriere like ']+lcNume+[%' and an=]+pcAn + ELSE + lcFiltru = [an=]+pcAn + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_cote_tva + Scatter Name loRec + PRIVATE lcot,poRec + lcot = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "cote",loRec,loRec.Id_proc_tva,"UPDATE",.t.,'lcot' + lcot.cschema = this.cschema + lcot.show(1) + RELEASE lcot,poRec + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT v_cote_tva + SCATTER NAME lorec MEMO + PRIVATE lcot + lcot = '' + Do STERGE_INREGISTRARE With "cote",loRec.id_proc_tva,.t.,'lcot' + lcot.cschema = this.cschema + lcot.salvare(,loRec.id_proc_tva) + RELEASE lcot + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE Unload + IF USED('v_cote_tva') + USE IN v_cote_tva + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_exceptii_ireg AS _frmbase OF "..\libs\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_ex" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_ex.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_ex" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + + * + *p: cschema + * + + * + BorderStyle = 1 + cschema = CONTAFIN_ORACLE + DoCreate = .T. + Height = 351 + Name = "frm_exceptii_ireg" + Width = 463 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 466 + _shape2.Height = 29 + _shape2.Left = 346 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 120 + Lb_titlu_alb_b121.Caption = "EXCEPTII" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 433 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 373, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 342, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 402, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 299, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 52 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_ex' AS _grid WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 264, ; + Left = 4, ; + Name = "grid_ex", ; + Panel = 1, ; + RecordSource = "v_exceptii_ireg", ; + RowHeight = 23, ; + Top = 84, ; + Width = 456, ; + Column1.ControlSource = "cont", ; + Column1.Name = "Column1", ; + Column1.Width = 124, ; + Column2.ControlSource = "cont_c", ; + Column2.Name = "Column2", ; + Column2.Width = 119, ; + Column3.ControlSource = "iif(debit=0,'DEBIT','CREDIT')", ; + Column3.Name = "Column3", ; + Column3.Width = 179, ; + Column4.ControlSource = "invers", ; + Column4.Name = "Column4", ; + Column4.Visible = .F., ; + Column4.Width = 59, ; + Column5.ControlSource = "id_set", ; + Column5.Name = "Column5", ; + Column5.Visible = .F., ; + Column5.Width = 70 + *< END OBJECT: ClassLib="..\libs\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_ex.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont_corespondent", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Pozitie cont", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column3.Text1' AS textbox WITH ; + Height = 23, ; + Left = 31, ; + Name = "Text1", ; + Top = 35, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Invers", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_ex.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id_set", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_ex.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .F. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_nom_ex' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "lb_nom_ex", ; + TabIndex = 1, ; + Top = 52, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Cont", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=pex.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_ex) + pex.ca_baza1.cfiltru=lcFiltru + pex.ca_baza1.afisare() + restore_grid_tag(thisform.grid_ex) + IF RECCOUNT('v_exceptii_ireg')>0 + thisform.grid_ex.SetFocus() + ELSE + thisform.lb_nom_ex.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_exceptii_ireg + SCATTER NAME loRec BLANK + PRIVATE lex,poRec + + lex='' + poRec = loRec + DO Adauga_Modifica_Inregistrare WITH "exceptii",loRec,,"INSERT",.t.,'lex' + lex.cschema = this.cschema + lex.show(1) + RELEASE lex,poRec + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_ex.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[cont like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_exceptii_ireg + Scatter Name loRec + PRIVATE lex,poRec + lex = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "exceptii",loRec,loRec.Id_exceptii,"UPDATE",.t.,'lex' + lex.cschema = this.cschema + lex.show(1) + RELEASE lex,poRec + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT v_exceptii_ireg + SCATTER NAME lorec MEMO + PRIVATE lex + lex = '' + Do STERGE_INREGISTRARE With "exceptii",loRec.id_exceptii,.t.,'lex' + lex.cschema = this.cschema + lex.salvare(,loRec.id_exceptii) + RELEASE lex + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE Unload + IF USED('v_exceptii_ireg') + USE IN v_exceptii_ireg + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_exceptii_nou AS _frmbase OF "..\libs\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_exceptii1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 133 + Name = "frm_exceptii_nou" + Width = 314 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 252 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 76 + Lb_titlu_alb_b121.Caption = "Exceptii" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 6 + BUT_TERMIN1.Left = 283 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 253, ; + Name = "But_renunt1", ; + TabIndex = 5, ; + Top = 1 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Height = 29, ; + Left = 15, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 3, ; + Top = 102, ; + Width = 290, ; + _cbbase1.BoundTo = .T., ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "DEBIT,CREDIT", ; + _cbbase1.RowSourceType = 1, ; + _lbbase1.Caption = "Pozitie", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.ControlSource = "porec.cont", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Cont", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 72, ; + Text_simplu1.ControlSource = "porec.cont_c", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Corespondent", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_exceptii1' AS cus_odata_exceptii WITH ; + Left = 168, ; + Name = "Cus_odata_exceptii1", ; + Top = 33 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + porec.debit = IIF(this.cb_tx_simplu1._CBBASE1.Value="DEBIT",0,1) + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.cont) + Messagebox('Nu ati completat contul!',0+48,"Atentie") + This.clb_tx_simplu1.SetFocus() + plreturn=.F. + + Case Empty(porec.cont_c) + Messagebox('Nu ati completat contul corespondent!',0+48,"Atentie") + This.clb_tx_simplu2.SetFocus() + plreturn=.F. + + *!* Case Empty(porec.debit) + *!* Messagebox('Nu ati completat pozitia contului!',0+48,"Atentie") + *!* This.clb_tx_simplu3.SetFocus() + *!* plreturn=.F. + + OTHERWISE + + lcCont = ALLTRIM(porec.cont) + lcContC = ALLTRIM(porec.cont_c) + lcSql = [select * from ] + gcS + [.plcont where cont=]+lcCont + lcCursor = [cur_cont] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() &&Verific contu in plcont + + IF RECCOUNT('cur_cont')=0 + MESSAGEBOX('Contul '+lcCont+' nu este definit in planul de conturi!',0,'Eroare') + PLRETURN=.f. + USE IN cur_cont + RETURN PLRETURN + ENDIF + IF USED('cur_cont') + USE IN cur_cont + ENDIF + + lcSql = [select * from ] + gcS + [.plcont where cont=]+lcContC + lcCursor = [cur_cont_c] + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + goExecutor.oReset() &&Verific contul corespondent + IF RECCOUNT('cur_cont_c')=0 + MESSAGEBOX('Contul '+lcContC+' nu este definit in planul de conturi!',0,'Eroare') + PLRETURN=.f. + USE IN cur_cont_c + RETURN PLRETURN + ENDIF + IF USED('cur_cont_c') + USE IN cur_cont_c + ENDIF + this.cus_odata_exceptii1.cschema=this.cschema + PLRETURN=This.cus_odata_exceptii1.salvare(This.OREC,This.NID) + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + IF porec.debit=0 + this.cb_tx_simplu1._cBBASE1.DisplayValue='DEBIT' + ELSE + this.cb_tx_simplu1._cBBASE1.DisplayValue='CREDIT' + ENDIF + this.orec= toRec + this.nid = tnId + this.cus_odata_exceptii1.cactiune = tcActiune + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_optiuni AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_opt" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column3.Edit1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_opt.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_opt" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + + * + *p: cschema + * + + * + BorderStyle = 1 + cschema = CONTAFIN_ORACLE + DoCreate = .T. + Height = 351 + Name = "frm_optiuni" + Width = 524 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 522 + _shape2.Height = 29 + _shape2.Left = 402 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 120 + Lb_titlu_alb_b121.Caption = "OPTIUNI" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Left = 494 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 434, ; + Name = "But_modifica1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 403, ; + Name = "But_nou1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 463, ; + Name = "But_sterge1", ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 299, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 52 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_opt' AS _grid WITH ; + ColumnCount = 4, ; + DeleteMark = .F., ; + Height = 264, ; + Left = 5, ; + Name = "grid_opt", ; + Panel = 1, ; + RecordSource = "v_optiuni", ; + RowHeight = 23, ; + Top = 84, ; + Width = 513, ; + Column1.ControlSource = "varname", ; + Column1.Name = "Column1", ; + Column1.Width = 106, ; + Column2.ControlSource = "vartype", ; + Column2.Name = "Column2", ; + Column2.Width = 70, ; + Column3.ControlSource = "varvalue", ; + Column3.Name = "Column3", ; + Column3.Sparse = .F., ; + Column3.Width = 157, ; + Column4.ControlSource = "vardesc", ; + Column4.Name = "Column4", ; + Column4.Width = 145 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_opt.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_opt.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip data", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_opt.Column3.Edit1' AS editbox WITH ; + Height = 53, ; + Left = 94, ; + Name = "Edit1", ; + Top = 23, ; + Width = 100 + *< END OBJECT: BaseClass="editbox" /> + + ADD OBJECT 'grid_opt.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Valoare", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_opt.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'lb_nom_opt' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "lb_nom_opt", ; + TabIndex = 1, ; + Top = 52, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nume", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=popt.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.grid_opt) + popt.ca_baza1.cfiltru=lcFiltru + popt.ca_baza1.afisare() + restore_grid_tag(thisform.grid_opt) + IF RECCOUNT('v_optiuni')>0 + thisform.grid_opt.SetFocus() + ELSE + thisform.lb_nom_opt.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_optiuni + SCATTER NAME loRec MEMO BLANK + PRIVATE lopt,poRec + lopt='' + poRec = loRec + DO Adauga_Modifica_Inregistrare WITH "optiuni",loRec,,"INSERT",.t.,'lopt' + lopt.cschema = this.cschema + lopt.show(1) + RELEASE lopt,poRec + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_opt.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[varname like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_optiuni + Scatter Name loRec MEMO + PRIVATE lopt,poRec + lopt = '' + poRec = loRec + Do Adauga_Modifica_Inregistrare With "optiuni",loRec,loRec.Id_optiuni,"UPDATE",.t.,'lopt' + lopt.cschema = this.cschema + lopt.show(1) + RELEASE lopt,poRec + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_sterge + SELECT v_optiuni + SCATTER NAME lorec MEMO + PRIVATE lopt + lopt = '' + Do STERGE_INREGISTRARE With "optiuni",loRec.id_optiuni,.t.,'lopt' + lopt.cschema = this.cschema + lopt.salvare(,loRec.id_optiuni) + RELEASE lopt + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE Unload + IF USED('v_optiuni') + USE IN v_optiuni + ENDIF + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_optiuni_nou AS _frmbase OF "..\libs\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_optiuni1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + + * + *p: cschema + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 165 + Name = "frm_optiuni_nou" + Width = 314 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 252 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 76 + Lb_titlu_alb_b121.Caption = "Optiuni" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Left = 283 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 253, ; + Name = "But_renunt1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Left = 15, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 2, ; + Top = 72, ; + _cbbase1.ControlSource = "porec.vartype", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "CHARACTER,CURRENCY,NUMERIC,DATETIME,DATE,LOGICAL", ; + _cbbase1.RowSourceType = 1, ; + _lbbase1.Caption = "Tip data", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.ControlSource = "porec.varname", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nume", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 3, ; + Top = 100, ; + Text_simplu1.ControlSource = "porec.varvalue", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Valoare", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 15, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 4, ; + Top = 128, ; + Text_simplu1.ControlSource = "porec.vardesc", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Descriere", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_optiuni1' AS cus_odata_optiuni WITH ; + Left = 144, ; + Name = "Cus_odata_optiuni1", ; + Top = 24 + *< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.varname) + Messagebox('Nu ati completat denumirea variabilei!',0+48,"Atentie") + This.clb_tx_simplu1.SetFocus() + plreturn=.F. + + Case Empty(porec.vartype) + Messagebox('Nu ati completat tipul de data!',0+48,"Atentie") + This.CB_tx_simplu1.SetFocus() + plreturn=.F. + + Case Empty(porec.varvalue) + Messagebox('Nu ati completat valoarea variabilei!',0+48,"Atentie") + This.clb_tx_simplu5.SetFocus() + plreturn=.F. + + OTHERWISE + this.cus_odata_optiuni1.cschema=this.cschema + PLRETURN=This.cus_odata_optiuni1.salvare(This.OREC,This.NID) + ENDCASE + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_optiuni1.cactiune = tcActiune + ENDPROC + +ENDDEFINE diff --git a/Clase/ofundal.vc2 b/Clase/ofundal.vc2 new file mode 100644 index 0000000..da2861d --- /dev/null +++ b/Clase/ofundal.vc2 @@ -0,0 +1,47 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS pg_meniu AS _pageframe OF "..\..\comun\clase\_baza.vcx" + *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + ErasePage = .T. + Height = 173 + Name = "pg_meniu" + TabStyle = 1 + Page1.BackColor = 255,255,255 + Page1.Name = "Page1" + Page2.BackColor = 255,255,255 + Page2.Name = "Page2" + * + +ENDDEFINE + +DEFINE CLASS pict_liniuta AS _image OF "..\..\comun\clase\_baza.vcx" + *< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Height = 10 + Name = "pict_liniuta" + Picture = ..\grafice\f3.jpg + Stretch = 2 + Width = 120 + * + +ENDDEFINE + +DEFINE CLASS pict_meniu AS _image OF "..\..\comun\clase\_baza.vcx" + *< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Height = 362 + Name = "pict_meniu" + Picture = ..\grafice\f2.jpg + Stretch = 2 + Width = 133 + * + +ENDDEFINE diff --git a/Clase/ofundal_roaclienti.vc2 b/Clase/ofundal_roaclienti.vc2 new file mode 100644 index 0000000..02b7573 --- /dev/null +++ b/Clase/ofundal_roaclienti.vc2 @@ -0,0 +1,1073 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_roaclienti.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS pagefr AS pg_meniu OF "..\comun\clase\ofundal.vcx" + *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Page2.Ct_contracte1" UniqueID="" Timestamp="" /> + + * + ActivePage = 2 + ErasePage = .T. + Height = 578 + Name = "pagefr" + PageCount = 4 + Themes = .F. + Width = 800 + Page1.Caption = "Definire" + Page1.Name = "Page1" + Page1.PageOrder = 1 + Page2.Caption = "Lista contractelor" + Page2.Name = "Page2" + Page2.PageOrder = 2 + Page3.BackColor = 255,255,255 + Page3.Caption = "Facturi" + Page3.Name = "Page4" + Page3.PageOrder = 3 + Page4.BackColor = 255,255,255 + Page4.Caption = "Încasãri (Plãþi)" + Page4.FontCharSet = 238 + Page4.Name = "Page5" + Page4.PageOrder = 4 + * + + ADD OBJECT 'Page2.Ct_contracte1' AS ct_contracte WITH ; + Anchor = 15, ; + Left = 1, ; + Name = "Ct_contracte1", ; + Top = 0, ; + _shape1.Name = "_shape1", ; + Gridsort1.Name = "Gridsort1", ; + _ct_controller_keypress1.Name = "_ct_controller_keypress1", ; + grid_contracte.cAre_link.Command1.Name = "Command1", ; + grid_contracte.cAre_link.Command2.Name = "Command2", ; + grid_contracte.cAre_link.Header1.Name = "Header1", ; + grid_contracte.cAre_link.Name = "cAre_link", ; + grid_contracte.cAre_link.Text1.Name = "Text1", ; + grid_contracte.cData_ctr.Header1.Name = "Header1", ; + grid_contracte.cData_ctr.Name = "cData_ctr", ; + grid_contracte.cData_ctr.Text1.Name = "Text1", ; + grid_contracte.cDurata.Header1.Name = "Header1", ; + grid_contracte.cDurata.Name = "cDurata", ; + grid_contracte.cDurata.Text1.Name = "Text1", ; + grid_contracte.cInactiv.Check1.Alignment = 0, ; + grid_contracte.cInactiv.Check1.Name = "Check1", ; + grid_contracte.cInactiv.Header1.Name = "Header1", ; + grid_contracte.cInactiv.Name = "cInactiv", ; + grid_contracte.cIncetat.Check1.Alignment = 0, ; + grid_contracte.cIncetat.Check1.Name = "Check1", ; + grid_contracte.cIncetat.Header1.Name = "Header1", ; + grid_contracte.cIncetat.Name = "cIncetat", ; + grid_contracte.cNr_ctr.Header1.Name = "Header1", ; + grid_contracte.cNr_ctr.Name = "cNr_ctr", ; + grid_contracte.cNr_ctr.Text1.Name = "Text1", ; + grid_contracte.cNume.Header1.Name = "Header1", ; + grid_contracte.cNume.Name = "cNume", ; + grid_contracte.cNume.Text1.Name = "Text1", ; + grid_contracte.cNume_val.Header1.Name = "Header1", ; + grid_contracte.cNume_val.Name = "cNume_val", ; + grid_contracte.cNume_val.Text1.Name = "Text1", ; + grid_contracte.COLUMN12.Header1.Name = "Header1", ; + grid_contracte.COLUMN12.Name = "COLUMN12", ; + grid_contracte.COLUMN12.Text1.Name = "Text1", ; + grid_contracte.COLUMN13.Header1.Name = "Header1", ; + grid_contracte.COLUMN13.Name = "COLUMN13", ; + grid_contracte.COLUMN13.Text1.Name = "Text1", ; + grid_contracte.COLUMN14.Header1.Name = "Header1", ; + grid_contracte.COLUMN14.Name = "COLUMN14", ; + grid_contracte.COLUMN14.Text1.Name = "Text1", ; + grid_contracte.COLUMN15.Header1.Name = "Header1", ; + grid_contracte.COLUMN15.Name = "COLUMN15", ; + grid_contracte.COLUMN15.Text1.Name = "Text1", ; + grid_contracte.COLUMN16.Header1.Name = "Header1", ; + grid_contracte.COLUMN16.Name = "COLUMN16", ; + grid_contracte.COLUMN16.Text1.Name = "Text1", ; + grid_contracte.COLUMN17.Header1.Name = "Header1", ; + grid_contracte.COLUMN17.Name = "COLUMN17", ; + grid_contracte.COLUMN17.Text1.Name = "Text1", ; + grid_contracte.COLUMN18.Header1.Name = "Header1", ; + grid_contracte.COLUMN18.Name = "COLUMN18", ; + grid_contracte.COLUMN18.Text1.Name = "Text1", ; + grid_contracte.COLUMN20.Header1.Name = "Header1", ; + grid_contracte.COLUMN20.Name = "COLUMN20", ; + grid_contracte.COLUMN20.Text1.Name = "Text1", ; + grid_contracte.COLUMN22.Header1.Name = "Header1", ; + grid_contracte.COLUMN22.Name = "COLUMN22", ; + grid_contracte.COLUMN22.Text1.Name = "Text1", ; + grid_contracte.COLUMN23.Header1.Name = "Header1", ; + grid_contracte.COLUMN23.Name = "COLUMN23", ; + grid_contracte.COLUMN23.Text1.Name = "Text1", ; + grid_contracte.COLUMN24.Check1.Alignment = 0, ; + grid_contracte.COLUMN24.Check1.Name = "Check1", ; + grid_contracte.COLUMN24.Header1.Name = "Header1", ; + grid_contracte.COLUMN24.Name = "COLUMN24", ; + grid_contracte.COLUMN24.Text1.Name = "Text1", ; + grid_contracte.cSemnat.Check1.Alignment = 0, ; + grid_contracte.cSemnat.Check1.Name = "Check1", ; + grid_contracte.cSemnat.Header1.Name = "Header1", ; + grid_contracte.cSemnat.Name = "cSemnat", ; + grid_contracte.cSucursala.Header1.Name = "Header1", ; + grid_contracte.cSucursala.Name = "cSucursala", ; + grid_contracte.cSucursala.Text1.Name = "Text1", ; + grid_contracte.cTipc.Header1.Name = "Header1", ; + grid_contracte.cTipc.Name = "cTipc", ; + grid_contracte.cTipc.Text1.Name = "Text1", ; + grid_contracte.cValctva.Header1.Name = "Header1", ; + grid_contracte.cValctva.Name = "cValctva", ; + grid_contracte.cValctva.Text1.Name = "Text1", ; + grid_contracte.cValvaluta.Header1.Name = "Header1", ; + grid_contracte.cValvaluta.Name = "cValvaluta", ; + grid_contracte.cValvaluta.Text1.Name = "Text1", ; + grid_contracte.Name = "grid_contracte", ; + _lbbase1.Name = "_lbbase1", ; + But_nou_gri1.Name = "But_nou_gri1", ; + BUT_MODIFICA1.Name = "BUT_MODIFICA1", ; + But_nou1.Name = "But_nou1", ; + But_sterge1.Name = "But_sterge1", ; + but_factura.Name = "but_factura", ; + Clb_tx_simplu1.LB_SIMPLU1.Name = "LB_SIMPLU1", ; + Clb_tx_simplu1.Name = "Clb_tx_simplu1", ; + Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ; + But_listare1.Name = "But_listare1", ; + But_start_criterii1.Name = "But_start_criterii1", ; + But_excel1.Name = "But_excel1", ; + But_reset_criterii1.Name = "But_reset_criterii1" + *< END OBJECT: ClassLib="ferestre_contracte.vcx" BaseClass="container" /> + +ENDDEFINE + +DEFINE CLASS princ AS ffergen OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page1.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page2.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page4.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page4.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page5.shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page5.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page5.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page5.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Pagefr1.Page5.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" /> + + * + *m: esteuncontract + *p: cgridsortlist + *p: llnou + * + + * + AlwaysOnTop = .F. + BackColor = 255,255,255 + BorderStyle = 1 + Caption = "" + cgridsortlist = grid_contracte + Closable = .F. + ControlBox = .F. + DoCreate = .T. + Height = 584 + KeyPreview = .T. + Left = 0 + llnou = .F. + MaxButton = .F. + MinButton = .F. + Movable = .F. + Name = "princ" + ShowTips = .T. + Top = 0 + Width = 793 + WindowState = 2 + * + + ADD OBJECT 'Image1' AS image WITH ; + Anchor = 12, ; + Height = 220, ; + Left = 226, ; + Name = "Image1", ; + Picture = ..\grafice\roaclienti.bmp, ; + Top = 235, ; + Width = 556, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Image2' AS image WITH ; + BackStyle = 1, ; + Height = 63, ; + Left = 0, ; + Name = "Image2", ; + Picture = ..\grafice\f1.jpg, ; + Stretch = 2, ; + Top = 0, ; + Width = 804, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Imagine01' AS imagine WITH ; + ccod = A01, ; + Height = 55, ; + Left = 6, ; + Name = "Imagine01", ; + nid_img = 1, ; + ntip = 4, ; + ToolTipText = "iif(gnParametru_prog = 1,'Vizualizare clienti','Vizualizare furnizori')", ; + Top = 0, ; + Width = 42 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ; + Anchor = 8, ; + Caption = "Operator:", ; + FontItalic = .T., ; + ForeColor = 255,255,255, ; + Left = 580, ; + Name = "lb_utilizator", ; + Top = 8, ; + ZOrderSet = 4 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ; + Anchor = 8, ; + Caption = "nume_utilizator", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 255,255,255, ; + Left = 634, ; + Name = "lb_utilizator1", ; + Top = 8, ; + Visible = .F., ; + ZOrderSet = 5 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Pagefr1' AS pagefr WITH ; + ErasePage = .T., ; + Height = 475, ; + Left = -1, ; + Name = "Pagefr1", ; + Top = 59, ; + Width = 804, ; + Page1.Name = "Page1", ; + Page1.PageOrder = 1, ; + Page2.Ct_contracte1.But_excel1.Name = "But_excel1", ; + Page2.Ct_contracte1.but_factura.Name = "but_factura", ; + Page2.Ct_contracte1.But_listare1.Name = "But_listare1", ; + Page2.Ct_contracte1.BUT_MODIFICA1.Name = "BUT_MODIFICA1", ; + Page2.Ct_contracte1.But_nou1.Name = "But_nou1", ; + Page2.Ct_contracte1.But_nou_gri1.Name = "But_nou_gri1", ; + Page2.Ct_contracte1.But_reset_criterii1.Name = "But_reset_criterii1", ; + Page2.Ct_contracte1.But_start_criterii1.Name = "But_start_criterii1", ; + Page2.Ct_contracte1.But_sterge1.Name = "But_sterge1", ; + Page2.Ct_contracte1.Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1", ; + Page2.Ct_contracte1.Clb_tx_simplu1.Name = "Clb_tx_simplu1", ; + Page2.Ct_contracte1.Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ; + Page2.Ct_contracte1.Gridsort1.Name = "Gridsort1", ; + Page2.Ct_contracte1.grid_contracte.cAre_link.Command1.Name = "Command1", ; + Page2.Ct_contracte1.grid_contracte.cAre_link.Command2.Name = "Command2", ; + Page2.Ct_contracte1.grid_contracte.cAre_link.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cAre_link.Name = "cAre_link", ; + Page2.Ct_contracte1.grid_contracte.cAre_link.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.cData_ctr.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cData_ctr.Name = "cData_ctr", ; + Page2.Ct_contracte1.grid_contracte.cData_ctr.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.cDurata.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cDurata.Name = "cDurata", ; + Page2.Ct_contracte1.grid_contracte.cDurata.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.cInactiv.Check1.Alignment = 0, ; + Page2.Ct_contracte1.grid_contracte.cInactiv.Check1.Name = "Check1", ; + Page2.Ct_contracte1.grid_contracte.cInactiv.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cInactiv.Name = "cInactiv", ; + Page2.Ct_contracte1.grid_contracte.cIncetat.Check1.Alignment = 0, ; + Page2.Ct_contracte1.grid_contracte.cIncetat.Check1.Name = "Check1", ; + Page2.Ct_contracte1.grid_contracte.cIncetat.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cIncetat.Name = "cIncetat", ; + Page2.Ct_contracte1.grid_contracte.cNr_ctr.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cNr_ctr.Name = "cNr_ctr", ; + Page2.Ct_contracte1.grid_contracte.cNr_ctr.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.cNume.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cNume.Name = "cNume", ; + Page2.Ct_contracte1.grid_contracte.cNume.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.cNume_val.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cNume_val.Name = "cNume_val", ; + Page2.Ct_contracte1.grid_contracte.cNume_val.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.Column12.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.Column12.Name = "Column12", ; + Page2.Ct_contracte1.grid_contracte.Column12.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.Column13.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.Column13.Name = "Column13", ; + Page2.Ct_contracte1.grid_contracte.Column13.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.Column14.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.Column14.Name = "Column14", ; + Page2.Ct_contracte1.grid_contracte.Column14.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.Column15.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.Column15.Name = "Column15", ; + Page2.Ct_contracte1.grid_contracte.Column15.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.Column16.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.Column16.Name = "Column16", ; + Page2.Ct_contracte1.grid_contracte.Column16.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.Column17.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.Column17.Name = "Column17", ; + Page2.Ct_contracte1.grid_contracte.Column17.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.Column18.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.Column18.Name = "Column18", ; + Page2.Ct_contracte1.grid_contracte.Column18.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.Column20.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.Column20.Name = "Column20", ; + Page2.Ct_contracte1.grid_contracte.Column20.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.Column22.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.Column22.Name = "Column22", ; + Page2.Ct_contracte1.grid_contracte.Column22.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.Column23.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.Column23.Name = "Column23", ; + Page2.Ct_contracte1.grid_contracte.Column23.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.Column24.Check1.Alignment = 0, ; + Page2.Ct_contracte1.grid_contracte.Column24.Check1.Name = "Check1", ; + Page2.Ct_contracte1.grid_contracte.Column24.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.Column24.Name = "Column24", ; + Page2.Ct_contracte1.grid_contracte.Column24.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.cSemnat.Check1.Alignment = 0, ; + Page2.Ct_contracte1.grid_contracte.cSemnat.Check1.Name = "Check1", ; + Page2.Ct_contracte1.grid_contracte.cSemnat.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cSemnat.Name = "cSemnat", ; + Page2.Ct_contracte1.grid_contracte.cSucursala.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cSucursala.Name = "cSucursala", ; + Page2.Ct_contracte1.grid_contracte.cSucursala.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.cTipc.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cTipc.Name = "cTipc", ; + Page2.Ct_contracte1.grid_contracte.cTipc.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.cValctva.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cValctva.Name = "cValctva", ; + Page2.Ct_contracte1.grid_contracte.cValctva.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.cValvaluta.Header1.Name = "Header1", ; + Page2.Ct_contracte1.grid_contracte.cValvaluta.Name = "cValvaluta", ; + Page2.Ct_contracte1.grid_contracte.cValvaluta.Text1.Name = "Text1", ; + Page2.Ct_contracte1.grid_contracte.Name = "grid_contracte", ; + Page2.Ct_contracte1.Left = 1, ; + Page2.Ct_contracte1.Name = "Ct_contracte1", ; + Page2.Ct_contracte1.Top = 7, ; + Page2.Ct_contracte1._ct_controller_keypress1.Name = "_ct_controller_keypress1", ; + Page2.Ct_contracte1._lbbase1.Name = "_lbbase1", ; + Page2.Ct_contracte1._shape1.Name = "_shape1", ; + Page2.Name = "Page2", ; + Page2.PageOrder = 2, ; + Page4.Enabled = .T., ; + Page4.Name = "Page4", ; + Page4.PageOrder = 3, ; + Page5.Enabled = .T., ; + Page5.Name = "Page5", ; + Page5.PageOrder = 4 + *< END OBJECT: ClassLib="ofundal_roaclienti.vcx" BaseClass="pageframe" /> + + ADD OBJECT 'Pagefr1.Page1.Cw1' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 4, ; + Top = 21, ; + LABEL_ITEM1.Caption = "Parteneri", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page1.Cw2' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw2", ; + nid_cw = 6, ; + ntip = 4, ; + Top = 144, ; + LABEL_ITEM1.Caption = "Opþiuni server", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page1.Cw3' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw3", ; + nid_cw = 3, ; + ntip = 4, ; + Top = 70, ; + Label_item1.Caption = "Tipuri contracte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page1.Cw4' AS cw WITH ; + Left = 4, ; + Name = "Cw4", ; + nid_cw = 2, ; + ntip = 2, ; + TabIndex = 2, ; + Top = 45, ; + Label_item1.Caption = "Agenþi", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page1.Cw5' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw5", ; + nid_cw = 4, ; + ntip = 2, ; + Top = 95, ; + Label_item1.Caption = "Metode selecþie executant", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page1.Cw6' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw6", ; + nid_cw = 7, ; + ntip = 4, ; + Top = 168, ; + Label_item1.Caption = "Opþiuni locale", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page1.Cw7' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw7", ; + nid_cw = 5, ; + ntip = 2, ; + TabIndex = 7, ; + Top = 120, ; + LABEL_ITEM1.Caption = "Curs valutar", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page1.shape1' AS pict_meniu WITH ; + Height = 362, ; + Left = 0, ; + Name = "shape1", ; + Picture = ..\grafice\f2.jpg, ; + Top = 7 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.Page2.Gridextra1' AS gridextra WITH ; + gridexpression = thisform.PAGEFR1.Page2.ct_CONTRACTE1.grID_CONTRACTE, ; + Left = 119, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 115 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'Pagefr1.Page4.Cw1' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 4, ; + Top = 21, ; + LABEL_ITEM1.Caption = "Lista facturilor partenerului", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page4.Cw2' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 4, ; + Top = 45, ; + LABEL_ITEM1.Caption = "Facturi ataºate la scadenþar", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page4.Cw3' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw3", ; + nid_cw = 3, ; + ntip = 4, ; + Top = 69, ; + Label_item1.Caption = "Rate de facturat", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page4.Cw4' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw4", ; + nid_cw = 4, ; + ntip = 2, ; + TabIndex = 1, ; + Top = 105, ; + LABEL_ITEM1.Caption = "Listã facturi ºi avize", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page4.Cw5' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw5", ; + nid_cw = 5, ; + ntip = 2, ; + TabIndex = 1, ; + Top = 129, ; + Label_item1.Caption = "Listã proforme", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page4.shape1' AS pict_meniu WITH ; + Height = 362, ; + Left = 0, ; + Name = "shape1", ; + Picture = ..\grafice\f2.jpg, ; + Top = 7 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Pagefr1.Page5.Cw1' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 4, ; + Top = 21, ; + LABEL_ITEM1.Caption = "Lista încasãrilor", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page5.Cw2' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw2", ; + nid_cw = 3, ; + ntip = 4, ; + Top = 76, ; + LABEL_ITEM1.Caption = "Facturi - detalii încasare", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page5.Cw3' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw3", ; + nid_cw = 2, ; + ntip = 4, ; + Top = 48, ; + Label_item1.Caption = "Client - Contracte - Facturi", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page5.Cw4' AS cw WITH ; + Height = 20, ; + Left = 4, ; + Name = "Cw4", ; + nid_cw = 4, ; + ntip = 4, ; + Top = 104, ; + Label_item1.Caption = "Facturi încasate luna curentã", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Pagefr1.Page5.shape1' AS pict_meniu WITH ; + Height = 362, ; + Left = 0, ; + Name = "shape1", ; + Picture = ..\grafice\f2.jpg, ; + Top = 7 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + PROCEDURE do_cauta + + thisform.pagefr1.page2.ct_contracte1.do_cauta + + ENDPROC + + PROCEDURE do_reset + *!* Local llcautare + + *!* Thisform.pagefr1.page2.ct_contracte1.filtru_pretty = "" + *!* Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro = "" + *!* Thisform.pagefr1.page2.ct_contracte1.filtru_pretty_ro_full = "" + *!* If Type ("thisform.pagefr1.page2.ct_contracte1.but_start_criterii1") = 'O' + *!* Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.ToolTipText=Thisform.pagefr1.page2.ct_contracte1.filtru_pretty + *!* Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.SetFocus + *!* Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.pornit = "nu" + *!* Endif + *!* + *!* SET STEP ON + *!* lcfiltru = [Stare;nofiled;1;] + *!* *!* llcautare = This.Parent.but_start_criterii1.lcautare + *!* *!* This.Parent.but_start_criterii1.lcautare = .F. + *!* Thisform.pagefr1.page2.ct_contracte1.but_start_criterii1.loadfiltru(lcfiltru) + *!* *!* This.Parent.but_start_criterii1.lcautare = llcautare + + *!* *Thisform.pagefr1.page2.ct_contracte1.do_cauta(.T.) + *!* Thisform.pagefr1.page2.ct_contracte1.Refresh + + ENDPROC + + PROCEDURE esteuncontract + LOCAL llContract + llContract = .T. + IF EMPTY(NVL(goContract.id_ctr,0)) + AMESSAGEBOX('Selectati un contract!',0+48,'Contract') + llContract = .F. + ENDIF + RETURN llContract + ENDPROC + + PROCEDURE Init + DODEFAULT() + thisform.imagine01.Init() + + THIS.PAGEFR1.PAGE2.GRIdextra1.SETUP() + THIS.PAGEFR1.PAGE2.CT_CONTRACTE1.GRID_CONTRACTE.HeaderHeight = 32 && SE RESETEAZA LA GRIDEXTRA + ENDPROC + + PROCEDURE RightClick + *!* modificare v 2.0.39 + *!* save_grid_tag(This.pagefr1.page2.ct_contracte1.grid_contracte) + *!* lcsql = [SELECT * FROM vcontracte_toate WHERE 1=2] + *!* lcCursor = [cContracte] + *!* lnSucces = goExecutor.oExecute(lcsql, lcCursor) + *!* If lnSucces < 0 + *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + *!* Return + *!* ENDIF + *!* restore_grid_tag(This.pagefr1.page2.ct_contracte1.grid_contracte) + *!* ***------------------------------------------------- + *!* Do start_firma In ostartfirma.prg + *!* verifica_drepturi('oprinc','pagefr1') + *!* actualizeaza_drepturi_roacontracte() + DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg + *!* modificare v 2.0.39 ^ + ENDPROC + + PROCEDURE Show + Lparameters nStyle + + LOCAL lnPornire + + verifica_drepturi('oprinc','pagefr1') + actualizeaza_drepturi_roacontracte() + *!* modificare v 2.0.34 + IF gnParametru_prog = 2 + This.imaGE1.Picture = [roafurnizori.bmp] + ELSE + This.image1.Picture = [roaclienti.bmp] + endif + *!* modificare v 2.0.34 ^ + + Local w,h + w=_Screen.Width + h=_Screen.Height + + This.Width=w + This.Height=h + + This.image1.Left=w-This.image1.Width-25 + This.image1.Top=h-This.image1.Height-25 + *!* This.lb_utilizator.Top=h-This.lb_utilizator.Height + *!* This.lb_utilizator1.Top=h-This.lb_utilizator1.Height + This.image2.Width = w + 180 + + With This.pagefr1 + .Width=w + .Height=h + .page1.shape1.Height=h + .page4.shape1.Height=h + .page5.shape1.Height=h + ENDWITH + + SELECT cContracte + GO TOP + + this.pagefr1.paGE2.ct_contracte1.grID_CONTRACTE.SetFocus() + + Local lcfiltru, llcautare + IF !PEMSTATUS(this,'lPrimaData',5) + lcfiltru = [Stare;nofiled;1;] + llcautare = this.pagefr1.paGE2.ct_contracte1.but_start_criterii1.lcautare + this.pagefr1.paGE2.ct_contracte1.but_start_criterii1.lcautare = .f. + this.pagefr1.paGE2.ct_contracte1.but_start_criterii1.loadfiltru(lcfiltru) + this.pagefr1.paGE2.ct_contracte1.but_start_criterii1.lcautare = llcautare + this.AddProperty('lPrimaData',.T.) + ENDIF + + + + ENDPROC + + PROCEDURE Image1.RightClick + *!* modificare v 2.0.39 + *!* save_grid_tag(oprinc.pagefr1.page2.ct_contracte1.grid_contracte) + *!* lcsql = [SELECT * FROM vcontracte_toate WHERE 1=2] + *!* lcCursor = [cContracte] + *!* lnSucces = goExecutor.oExecute(lcsql, lcCursor) + *!* If lnSucces < 0 + *!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + *!* Return + *!* ENDIF + *!* restore_grid_tag(oprinc.pagefr1.page2.ct_contracte1.grid_contracte) + *!* ***------------------------------------------------- + *!* Do start_firma In ostartfirma.prg + *!* verifica_drepturi('oprinc','pagefr1') + *!* actualizeaza_drepturi_roacontracte() + DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg + *!* modificare v 2.0.39 ^ + + + + + ENDPROC + + PROCEDURE Imagine01.do_actiune + thisform.pagefr1.pAGE1.cw1.do_actiune + + + + + ENDPROC + + PROCEDURE Imagine01.Init + DODEFAULT() + this.picturedown = iif(gnParametru_prog = 1,'clie2.bmp','furn2.bmp') + this.pictureup = iif(gnParametru_prog = 1,'clie1.bmp','furn1.bmp') + this.ToolTipText = iif(gnParametru_prog = 1,'Vizualizare clienti','Vizualizare furnizori') + + ENDPROC + + PROCEDURE lb_utilizator.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE lb_utilizator1.RightClick + thisform.rightclick + ENDPROC + + PROCEDURE Pagefr1.Page1.Click + IF TYPE('podg_dg.but_termin1') <> 'U' + podg_dg.but_termin1.CLICK() + ENDIF + IF TYPE('podg_ob.but_termin1') <> 'U' + podg_ob.but_termin1.CLICK() + ENDIF + IF TYPE('podg_tf.but_termin1') <> 'U' + podg_tf.but_termin1.CLICK() + ENDIF + IF TYPE('podg_tl.but_termin1') <> 'U' + podg_tl.but_termin1.CLICK() + ENDIF + IF TYPE('podg_obs.but_termin1') <> 'U' + podg_obs.but_termin1.CLICK() + ENDIF + IF TYPE('podg_link.but_termin1') <> 'U' + podg_link.but_termin1.CLICK() + ENDIF + IF TYPE('podg_fact.but_termin1') <> 'U' + podg_fact.but_termin1.CLICK() + ENDIF + ENDPROC + + PROCEDURE Pagefr1.Page1.Cw1.do_actiune + * DO viz_clienti IN onom_clienti.prg + *!* modificare v 2.0.35 + *!* DO viz_parteneri IN onomenclatoare.prg + If gnParametru_prog = 1 + Do vizualizare_clienti In onomenclatoare.prg + Else + Do vizualizare_furnizori In onomenclatoare.prg + Endif + *!* modificare v 2.0.35 ^ + ENDPROC + + PROCEDURE Pagefr1.Page1.Cw1.LABEL_ITEM1.Init + this.Caption = iif(gnParametru_prog=1,'Clienþi',iif(gnParametru_prog=2,'Furnizori','Parteneri')) + ENDPROC + + PROCEDURE Pagefr1.Page1.Cw2.do_actiune + Do vizualizare_optiuni_facturare In oproceduri_facturare.prg With 1 + ENDPROC + + PROCEDURE Pagefr1.Page1.Cw3.do_actiune + DO viz_tipuri_ctr IN onomenclatoare.prg + ENDPROC + + PROCEDURE Pagefr1.Page1.Cw4.do_actiune + Do vizualizare_agenti In onomenclatoare.prg + ENDPROC + + PROCEDURE Pagefr1.Page1.Cw5.do_actiune + DO viz_selectii IN oproceduri_roacontracte.prg + ENDPROC + + PROCEDURE Pagefr1.Page1.Cw6.do_actiune + Do vizualizare_optiuni_facturare In oproceduri_facturare.prg With 2 + ENDPROC + + PROCEDURE Pagefr1.Page1.Cw7.do_actiune + DO vizualizeaza_curs IN oproceduri_curs.prg + ENDPROC + + PROCEDURE Pagefr1.Page1.RightClick + *!* modificare v 2.0.39 + *!* DO start_firma IN ostartfirma.prg + *!* verifica_drepturi('oprinc','pagefr1') + *!* actualizeaza_drepturi_roacontracte() + DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg + *!* modificare v 2.0.39 ^ + ENDPROC + + PROCEDURE Pagefr1.Page2.Activate + thisform.image1.Visible = .F. + + If Type('poGeneratorNumere') = 'U' + Private poGeneratorNumere + poGeneratorNumere = Createobject('oGeneratorNumere') + ENDIF + *!* thisform.lb_nivel.Visible = .F. + *!* thisform.lb_nivel1.Visible = .F. + *!* thisform.lb_utilizator.Visible = .F. + *!* thisform.lb_utilizator1.Visible = .F. + + + + + + ENDPROC + + PROCEDURE Pagefr1.Page2.Click + + * this.ct_contracte1.do_cauta() + this.ct_contracte1.grid_contracte.Refresh + + + + + + + ENDPROC + + PROCEDURE Pagefr1.Page2.Deactivate + thisform.image1.Visible = .T. + *!* thisform.lb_nivel.Visible = .T. + *!* thisform.lb_nivel1.Visible = .T. + *!* thisform.lb_utilizator.Visible = .T. + *!* thisform.lb_utilizator1.Visible = .T. + + *!* 27.01.2008 + *!* IF EMPTY(goContract.id_ctr) + *!* *!* AMESSAGEBOX('Nu este selectat nici un contract!',0+48,_SCREEN.CAPTION) + *!* this.Parent.paGE4.Enabled = .F. + *!* this.Parent.paGE5.Enabled = .F. + *!* *!* _screen.LockScreen= .T. + *!* ELSE + *!* this.Parent.paGE4.Enabled = .T. + *!* this.Parent.paGE5.Enabled = .T. + *!* ENDIF + *!* 27.01.2008 ^ + + ENDPROC + + PROCEDURE Pagefr1.Page4.Click + IF TYPE('podg_dg.but_termin1') <> 'U' + podg_dg.but_termin1.CLICK() + ENDIF + IF TYPE('podg_ob.but_termin1') <> 'U' + podg_ob.but_termin1.CLICK() + ENDIF + IF TYPE('podg_tf.but_termin1') <> 'U' + podg_tf.but_termin1.CLICK() + ENDIF + IF TYPE('podg_tl.but_termin1') <> 'U' + podg_tl.but_termin1.CLICK() + ENDIF + IF TYPE('podg_obs.but_termin1') <> 'U' + podg_obs.but_termin1.CLICK() + ENDIF + IF TYPE('podg_link.but_termin1') <> 'U' + podg_link.but_termin1.CLICK() + ENDIF + IF TYPE('podg_fact.but_termin1') <> 'U' + podg_fact.but_termin1.CLICK() + ENDIF + IF TYPE('podg_garantii.but_termin1') <> 'U' + podg_garantii.but_termin1.CLICK() + ENDIF + ENDPROC + + PROCEDURE Pagefr1.Page4.Cw1.do_actiune + IF !thisform.esteuncontract() + RETURN + ENDIF + DO CASE + CASE gnParametru_prog = 1 + DO lans_ireg_parteneri WITH .F., gcCont411, .T. + CASE gnParametru_prog = 2 + DO lans_ireg_parteneri WITH .F.,'401', .F. + ENDCASE + * DO viz_facturi IN oproceduri_roacontracte.prg + + ENDPROC + + PROCEDURE Pagefr1.Page4.Cw1.LABEL_ITEM1.Init + this.Caption = iif(gnParametru_prog=1,'Lista facturilor clientului',iif(gnParametru_prog=2,'Lista facturilor furnizorului','Lista facturilor partenerului')) + + ENDPROC + + PROCEDURE Pagefr1.Page4.Cw2.do_actiune + IF !thisform.esteuncontract() + RETURN + ENDIF + DO facturi_atasate IN oproceduri_roacontracte.prg + ENDPROC + + PROCEDURE Pagefr1.Page4.Cw3.do_actiune + IF !thisform.esteuncontract() + RETURN + ENDIF + DO rateDeFacturat IN oproceduri_roacontracte.prg + ENDPROC + + PROCEDURE Pagefr1.Page4.Cw4.do_actiune + Do vizualizare_facturi In oproceduri_facturare.prg + ENDPROC + + PROCEDURE Pagefr1.Page4.Cw5.do_actiune + Do vizualizare_proforme In oproceduri_facturare.prg + ENDPROC + + PROCEDURE Pagefr1.Page4.RightClick + *!* modificare v 2.0.39 + *!* DO start_firma IN ostartfirma.prg + *!* verifica_drepturi('oprinc','pagefr1') + *!* actualizeaza_drepturi_roacontracte() + DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg + *!* modificare v 2.0.39 ^ + ENDPROC + + PROCEDURE Pagefr1.Page5.Click + IF TYPE('podg_dg.but_termin1') <> 'U' + podg_dg.but_termin1.CLICK() + ENDIF + IF TYPE('podg_ob.but_termin1') <> 'U' + podg_ob.but_termin1.CLICK() + ENDIF + IF TYPE('podg_tf.but_termin1') <> 'U' + podg_tf.but_termin1.CLICK() + ENDIF + IF TYPE('podg_tl.but_termin1') <> 'U' + podg_tl.but_termin1.CLICK() + ENDIF + IF TYPE('podg_obs.but_termin1') <> 'U' + podg_obs.but_termin1.CLICK() + ENDIF + IF TYPE('podg_link.but_termin1') <> 'U' + podg_link.but_termin1.CLICK() + ENDIF + IF TYPE('podg_fact.but_termin1') <> 'U' + podg_fact.but_termin1.CLICK() + ENDIF + IF TYPE('podg_garantii.but_termin1') <> 'U' + podg_garantii.but_termin1.CLICK() + ENDIF + ENDPROC + + PROCEDURE Pagefr1.Page5.Cw1.do_actiune + IF !thisform.esteuncontract() + RETURN + ENDIF + DO viz_incasari IN oproceduri_roacontracte.prg + ENDPROC + + PROCEDURE Pagefr1.Page5.Cw1.LABEL_ITEM1.Init + this.Caption = iif(gnParametru_prog=1,'Lista încasãrilor',iif(gnParametru_prog=2,'Lista plãþilor','Lista încasãrilor/plãþilor')) + + ENDPROC + + PROCEDURE Pagefr1.Page5.Cw2.do_actiune + IF !thisform.esteuncontract() + RETURN + ENDIF + DO CASE + CASE gnParametru_prog = 1 + DO viz_frm_facturi WITH 2, gcCont411, goContract.id_part, goContract.denumire IN orap_terti_comun.prg + CASE gnParametru_prog = 2 + DO viz_frm_facturi WITH 2,[401], goContract.id_part, goContract.denumire IN orap_terti_comun.prg + ENDCASE + + ENDPROC + + PROCEDURE Pagefr1.Page5.Cw2.LABEL_ITEM1.Init + this.Caption = iif(gnParametru_prog=1,'Facturi - detalii încasare',iif(gnParametru_prog=2,'Facturi - detalii plãþi','Facturi - detalii încasare/plãþi')) + + ENDPROC + + PROCEDURE Pagefr1.Page5.Cw3.do_actiune + IF !thisform.esteuncontract() + RETURN + ENDIF + + LOCAL llActiv + + DO CASE + CASE gnParametru_prog = 1 + llActiv = .T. + DO rap_fact_grup_ctr WITH gcCont411, llActiv IN oproceduri_roacontracte.prg + CASE gnParametru_prog = 2 + llActiv = .F. + DO rap_fact_grup_ctr WITH '401', llActiv IN oproceduri_roacontracte.prg + ENDCASE + + + ENDPROC + + PROCEDURE Pagefr1.Page5.Cw3.Label_item1.Init + this.Caption = iif(gnParametru_prog=1,'Client-Contracte-Facturi',iif(gnParametru_prog=2,'Furnizor-Contracte-Facturi','Partener-Contracte-Facturi')) + + ENDPROC + + PROCEDURE Pagefr1.Page5.Cw4.do_actiune + IF !thisform.esteuncontract() + RETURN + ENDIF + DO CASE + CASE gnParametru_prog = 1 + DO rapIncasari.mpr + CASE gnParametru_prog = 2 + *DO viz_frm_facturi WITH 2,[401], goContract.id_part, goContract.denumire IN orap_terti_comun.prg + ENDCASE + + ENDPROC + + PROCEDURE Pagefr1.Page5.Cw4.Label_item1.Init + IF gnParametru_prog = 1 + this.Caption = 'Facturi încasate în luna curentã' + ELSE + this.Visible = .F. + ENDIF + + ENDPROC + + PROCEDURE Pagefr1.Page5.RightClick + *!* modificare v 2.0.39 + *!* DO start_firma IN ostartfirma.prg + *!* verifica_drepturi('oprinc','pagefr1') + *!* actualizeaza_drepturi_roacontracte() + DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg + *!* modificare v 2.0.39 ^ + ENDPROC + +ENDDEFINE diff --git a/Clase/onom_clienti.vc2 b/Clase/onom_clienti.vc2 new file mode 100644 index 0000000..8b3e06f --- /dev/null +++ b/Clase/onom_clienti.vc2 @@ -0,0 +1,3347 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="onom_clienti.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS cus_odata_agenti AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_agenti" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcId_util = Alltrim(Str(gnIdUtil)) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcNume = Strtran(Alltrim(toRec.nume_agent),['],['']) + *!* lcPrenume = Strtran(Alltrim(toRec.prenume),['],['']) + lcTelefon1 = Alltrim(NVL(toRec.telefon1,[])) + lcTelefon2 = Alltrim(NVL(toRec.telefon2,[])) + lcIdZona = Alltrim(Str(toRec.id_zona)) + lcFunctia = Alltrim(NVL(porec.functie,[])) + Endif + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin pack_crm.adauga_agent(']+Alltrim(gcS)+[',']+lcNume+[',]+lcIdZona+[,]+; + [']+lcFunctia+[',']+lcTelefon1+[',']+lcTelefon2+[',]+lcId_util+[); end;] + + Case lcActiune = "UPDATE" + lcSql = [begin pack_crm.modifica_agent(']+Alltrim(gcS)+[',]+lcId+[,']+lcNume+[',]+; + lcIdZona+[,']+lcFunctia+[',']+lcTelefon1+[',']+lcTelefon2+[',]+lcId_util+[); end;] + + Case lcActiune = "DELETE" + lcSql = [begin pack_crm.sterge_agent(']+Alltrim(gcS)+[',]+lcId+[,]+lcId_util+[); end;] + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_clienti AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_clienti" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + lcnom = gcS + ".nom_parteneri" + lcamp = "id_part" + lclook = gcS + ".dev_masiniclienti" + lclookid = "id_partener" + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcNume = Nvl(Strtran(Alltrim(Upper(toRec.nume)),['],['']),"") + lcCod_fiscal = Nvl(Strtran(Alltrim(Upper(toRec.cod_fiscal)),['],['']),"") + lctelefon = Nvl(Strtran(Alltrim(Upper(toRec.telefon)),['],['']),"") + lcadresa = Nvl(Strtran(Alltrim(Upper(toRec.adresa)),['],['']),"") + lcbanca = Nvl(Strtran(Alltrim(Upper(toRec.banca)),['],['']),"") + lccont_banca = Nvl(Strtran(Alltrim(Upper(toRec.cont_banca)),['],['']),"") + lcreg_comert = Nvl(Strtran(Alltrim(Upper(toRec.reg_comert)),['],['']),"") + *!* lcJudet = Nvl(STRTRAN(Alltrim(Upper(toRec.judet)),['],['']),"") + *!* lcLocalitate = Nvl(STRTRAN(Alltrim(Upper(toRec.localitate)),['],['']),"") + lcIdLoc = Nvl(Alltrim(Str(toRec.id_loc)),0) + Endif + + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin devpartinsproc('] + gcS + [','] + lcNume + [','] + lcCod_fiscal + [','] + lctelefon +[',']+ lcadresa + [','] +lcbanca + ; + [',']+ lccont_banca + [','] + lcreg_comert + [',] + lcIdLoc + [); end;] + + *!* lcSql = [INSERT INTO ] + gcS + [.nom_parteneri (nume,cod_fiscal,telefon,adresa,banca,cont_banca,reg_comert,id_loc) ] + ; + *!* [VALUES ('] + lcnume + [','] + lccod_fiscal + [','] + lctelefon +[',']+ lcAdresa + [','] +lcbanca + ; + *!* [',']+ lcCont_banca + [',']+ lcReg_comert+[',] + lcIdLoc + [)] + Case lcActiune = "UPDATE" + If pnNivelModificare=-1 + lcSql = [UPDATE ] + gcS + [.nom_parteneri SET nume = '] + lcNume; + +[',cod_fiscal = '] + lcCod_fiscal + [',telefon = '] + lctelefon +; + [',adresa = '] + lcadresa + [',banca = '] + lcbanca + [',cont_banca = '] + lccont_banca + [',reg_comert = ']+lcreg_comert+; + [',id_loc = ] + lcIdLoc + [ where id_part = ] + lcId + ELSE + lcSql = [UPDATE ] + gcS + [.nom_parteneri SET telefon = '] + lctelefon + [' ]+; + [ where id_part = ] + lcId + Endif + Case lcActiune = "DELETE" + + *!* lcSql = [update nom_sectii set sters=1,id_util=]+ALLTRIM(STR(gcidutil))+[,id_modif=seq_modif_nomen.nextval where id_banca=]+lcid + lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcId + [,'] + lclook + [','] + lclookid + ['); end;] + Endcase + This.csql = lcSql + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_curs AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_curs" + * + + PROCEDURE make_sql + Lparameters toRec, tnId + + lcActiune = Alltrim(This.cActiune) + lcId_util = Alltrim(Str(gnIdUtil)) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId_curs = Alltrim(Str(tnId)) + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcId_curs = Nvl(Alltrim(Str(toRec.id_curs)),"") + lcCurs = Nvl(Alltrim(Str(toRec.curs,10,4)),"") + lcData = DTOS(toRec.data) + lcData2 = DTOS(toRec.data2) + lcId_valuta = Nvl(Alltrim(Str(toRec.id_valuta)),"") + Endif + + Do Case + Case lcActiune = "INSERT" + lcSql = [begin pack_crm.adauga_curs(']+Alltrim(gcS)+[',]+lcCurs+; + [, TO_DATE(]+IIF(!EMPTY(lcData),[']+lcData+['],[NULL])+[,'YYYY-MM-DD')]+; + [, TO_DATE(]+IIF(!EMPTY(lcData2),[']+lcData2+['],[NULL])+[,'YYYY-MM-DD'),]+; + lcId_valuta+[); end;] + Case lcActiune = "UPDATE" + lcSql = [begin pack_crm.modifica_curs(']+Alltrim(gcS)+[',]+lcId_curs+[,]+; + lcCurs+; + [, TO_DATE(]+IIF(!EMPTY(lcData),[']+lcData+['],[NULL])+[,'YYYY-MM-DD')]+; + [, TO_DATE(]+IIF(!EMPTY(lcData2),[']+lcData2+['],[NULL])+[,'YYYY-MM-DD'),]+; + lcId_valuta+[); end;] + + Case lcActiune = "DELETE" + lcSql = [begin pack_crm.sterge_curs(']+Alltrim(gcS)+[',]+lcId_curs+[); end;] + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_delegati AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Name = "cus_odata_delegati" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + lcId_util = Alltrim(Str(gnIdUtil)) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + lcnom = gcS + ".nom_responsabili" + *lcamp = "id_nom_delegati" + *!* lclook = gcS + ".dev_oper_mecanici" + *!* lclookid = "dev_oper_mecanici.id_mecanic" + Endif + If Inlist(lcActiune, "UPDATE",'INSERT') + + lcIdclient = Nvl(Alltrim(Str(toRec.id_part)),"") + lcNume = Nvl(Alltrim(toRec.nume),"") + lcBI_seria = Nvl(Left(Alltrim(toRec.bi_seria),2),"") + lcBI_numar = Nvl(Alltrim(Str(toRec.bi_numar)),"NULL") + lcEliberatde = Nvl(Alltrim(toRec.eliberatde),"") + lcinactiv = Nvl(Alltrim(Str(toRec.inactiv)),"") + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [begin pack_crm.adauga_delegat(']+Alltrim(gcS)+[',]+lcIdclient+[,']+lcNume+[',']+; + lcBI_seria + [',] + lcBI_numar + [,'] + lcEliberatde + [',] + lcId_util +[); end;] + + Case lcActiune = "UPDATE" + + lcSql = [begin pack_crm.modifica_delegat(']+Alltrim(gcS)+[',]+lcId+[,]+lcIdclient+[,']+; + lcNume+[',']+lcBI_seria +[',]+lcBI_numar+[,']+lcEliberatde +[',]+ lcId_util +[); end;] + + Case lcActiune = "DELETE" + + lcSql = [begin pack_crm.sterge_delegat(']+Alltrim(gcS)+[',]+lcId+[,]+lcId_util+[); end;] + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS cus_odata_responsabili AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx" + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + #INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h" + * + Name = "cus_odata_responsabili" + * + + PROCEDURE make_sql + Lparameters toRec,tnId + + lcActiune = Alltrim(This.cActiune) + + If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N" + Return .F. + Endif + + If Inlist(lcActiune, "UPDATE",'DELETE') + lcId = Alltrim(Str(tnId)) + lcnom = gcS + ".nom_responsabili" + lcamp = "nom_responsabili.id_responsabil" + lclook = gcS + ".act" + lclookid = "act.id_responsabil" + Endif + + If Inlist(lcActiune, "UPDATE",'INSERT') + lcnume = NVL(UPPER(ALLTRIM(toRec.nume)),"") + lcfunct = NVL(UPPER(ALLTRIM(toRec.functie)),"") + lcales = NVL(ALLTRIM(STR(toRec.ales)),"") + lcinactiv = NVL(ALLTRIM(STR(toRec.inactiv)),"") + + Endif + + + Do Case + Case lcActiune = "INSERT" + + lcSql = [INSERT INTO ] + gcS + [.nom_responsabili (nume,functie,ales,inactiv) VALUES ('] + lcnume + ; + [','] + lcfunct + [',] + lcales + [,] + lcinactiv + [)] + + Case lcActiune = "UPDATE" + + lcSql = [UPDATE ] + gcS + [.nom_responsabili SET nume = '] + lcnume + ; + [',functie = '] + lcfunct + [',ales = ] + lcales + [,inactiv = ] + lcinactiv +; + [ where id_responsabil = ] + lcId + + Case lcActiune = "DELETE" + + lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;] + + Endcase + + This.csql = lcSql + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_agenti AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_agenti" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_agenti.cZona.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_agenti.cZona.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_agenti.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_agenti.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_agenti.cTelefon1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_agenti.cTelefon1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_agenti.cFunctia.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_agenti.cFunctia.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_agenti.cTelefon2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_agenti.cTelefon2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_functie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_zona" UniqueID="" Timestamp="" /> + + * + *m: do_adauga2 + *m: do_modifica2 + *m: do_sterge2 + * + + * + DoCreate = .T. + Height = 466 + lactiv3 = .T. + Name = "frm_agenti" + Width = 744 + WindowState = 2 + _shape1.Anchor = 10 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 744 + _shape1.ZOrderSet = 2 + _shape2.Anchor = 8 + _shape2.Height = 29 + _shape2.Left = 601 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 143 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "AGENTI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 11 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Anchor = 8 + BUT_TERMIN1.Left = 708 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 6 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 5 + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Anchor = 8, ; + Left = 643, ; + Name = "But_modifica1", ; + TabIndex = 8, ; + Top = 0 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 8, ; + Left = 609, ; + Name = "But_nou1", ; + TabIndex = 7, ; + Top = 0 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 8, ; + Left = 676, ; + Name = "But_sterge1", ; + TabIndex = 9, ; + Top = 0 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_functie' AS clb_tx_simplu WITH ; + Anchor = 0, ; + Left = 319, ; + Name = "Clb_functie", ; + TabIndex = 2, ; + Top = 37, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Functie", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'clb_nume' AS clb_tx_simplu WITH ; + Anchor = 0, ; + Left = 30, ; + Name = "clb_nume", ; + TabIndex = 1, ; + Top = 37, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nume", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_zona' AS clb_tx_simplu WITH ; + Anchor = 0, ; + Left = 30, ; + Name = "Clb_zona", ; + TabIndex = 3, ; + Top = 65, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Zona", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 0, ; + Left = 636, ; + Name = "Cmd_cauta1", ; + TabIndex = 4, ; + Top = 36 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 0, ; + Left = 636, ; + Name = "Cmd_reset1", ; + TabIndex = 10, ; + Top = 65 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grd_agenti' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 5, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 336, ; + Left = 15, ; + Name = "grd_agenti", ; + Panel = 1, ; + RecordSource = "crsagenti", ; + TabIndex = 5, ; + Top = 108, ; + Width = 705, ; + ZOrderSet = 6, ; + Column1.ColumnOrder = 3, ; + Column1.ControlSource = "zona", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cZona", ; + Column1.Width = 172, ; + Column2.ColumnOrder = 1, ; + Column2.ControlSource = "nume_agent", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cNume", ; + Column2.Width = 205, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "telefon1", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cTelefon1", ; + Column3.Width = 116, ; + Column4.ColumnOrder = 2, ; + Column4.ControlSource = "functie", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "cFunctia", ; + Column4.Width = 127, ; + Column5.ColumnOrder = 5, ; + Column5.ControlSource = "telefon2", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "cTelefon2", ; + Column5.Width = 116 + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grd_agenti.cFunctia.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Functie", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_agenti.cFunctia.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_agenti.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_agenti.cNume.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_agenti.cTelefon1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon 1", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_agenti.cTelefon1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_agenti.cTelefon2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon 2", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_agenti.cTelefon2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_agenti.cZona.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Zona", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_agenti.cZona.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + Lparameters lcFiltru + If Empty(lcFiltru) + lcFiltru = poagenti.ca_baza1.cfiltru + Endif + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + save_grid_tag(Thisform.grd_agenti) + poagenti.ca_baza1.cfiltru=lcFiltru + poagenti.ca_baza1.afisare() + restore_grid_tag(Thisform.grd_agenti) + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + + ENDPROC + + PROCEDURE do_adauga + Private pniesire + pniesire=0 + Select crsagenti + Scatter Name loRec Blank + Do Adauga_Modifica_Inregistrare With "agenti",loRec,,"INSERT" + If pniesire=1 + This.actualizeaza_grid1() + Select crsagenti + Locate For nume_agent=loRec.nume_agent + Thisform.grd_agenti.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_adauga2 + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + Store '' To lcFiltru + lcFiltru=[2=2] + lcNume = Strtran(Upper(Alltrim(This.clb_nume.text_simplu1.Value)),['],['']) + lcFunctie = Strtran(Upper(Alltrim(This.clb_functie.text_simplu1.Value)),['],['']) + lcZona = Strtran(Upper(Alltrim(This.clb_zona.text_simplu1.Value)),['],['']) + If !Empty(lcNume) + lcFiltru=lcFiltru + [ and nume_agent like '] + lcNume + [%'] + Endif + If !Empty(lcFunctie) + lcFiltru=lcFiltru + [ and functie like '] + lcFunctie + [%'] + Endif + If !Empty(lcZona) + lcFiltru=lcFiltru + [ and zona like '] + lcZona + [%'] + Endif + + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('crsagenti')>0 + Select crsagenti + Go Top + Thisform.grd_agenti.SetFocus() + Else + Messagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.clb_nume.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_modifica + If Reccount('crsagenti')>0 + Private pniesire + pniesire=0 + Select crsagenti + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "agenti",loRec,loRec.id_responsabil,"UPDATE" + If pniesire=1 + This.actualizeaza_grid1() + Endif + Endif + ENDPROC + + PROCEDURE do_modifica2 + ENDPROC + + PROCEDURE do_reset + Thisform.clb_nume.text_simplu1.Value = '' + Thisform.clb_functie.text_simplu1.Value = '' + Thisform.clb_zona.text_simplu1.Value = '' + Thisform.Refresh + Thisform.clb_nume.text_simplu1.SetFocus() + + ENDPROC + + PROCEDURE do_sterge + If Reccount('crsagenti')>0 + Select crsagenti + Scatter Name loRec + Do STERGE_INREGISTRARE With "agenti",loRec.id_responsabil + This.actualizeaza_grid1() + Endif + + ENDPROC + + PROCEDURE do_sterge2 + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_agenti_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_nume" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_telefon2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_functie" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_agenti1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_agenti2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_zona" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="img_zona" UniqueID="" Timestamp="" /> + + * + *m: do_alege_zona + *p: cnumevechi + *p: nid + *p: nnivelmodificare && - 1 daca utilizatorul are voie sa modifice toate datele ; 0 daca are voie sa modifice doar nr. de telefon + *p: orec + * + + * + cnumevechi = + DoCreate = .T. + Height = 216 + Name = "frm_agenti_nou" + nnivelmodificare = -1 + Width = 372 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 372 + _shape2.Height = 29 + _shape2.Left = 304 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 69 + Lb_titlu_alb_b121.Caption = "AGENT" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 8 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 341 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 6 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Width = 30 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Height = 27, ; + Left = 309, ; + Name = "But_renunt1", ; + TabIndex = 7, ; + Top = 1, ; + Width = 30 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_functie' AS clb_tx_simplu WITH ; + Left = 24, ; + Name = "Clb_functie", ; + TabIndex = 2, ; + Top = 74, ; + Text_simplu1.ControlSource = "porec.functie", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Functie", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_nume' AS clb_tx_simplu WITH ; + Left = 24, ; + Name = "Clb_nume", ; + TabIndex = 1, ; + Top = 46, ; + Width = 290, ; + Text_simplu1.ControlSource = "porec.nume_agent", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nume:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon1' AS clb_tx_simplu WITH ; + Left = 24, ; + Name = "Clb_telefon1", ; + TabIndex = 3, ; + Top = 102, ; + Text_simplu1.ControlSource = "porec.telefon1", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Telefon 1", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_telefon2' AS clb_tx_simplu WITH ; + Left = 24, ; + Name = "Clb_telefon2", ; + TabIndex = 4, ; + Top = 130, ; + Text_simplu1.ControlSource = "porec.telefon2", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Telefon 2", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_zona' AS clb_tx_simplu WITH ; + Left = 24, ; + Name = "Clb_zona", ; + TabIndex = 5, ; + TabStop = .T., ; + ToolTipText = "Pentru modificare, faceti dublu-click!", ; + Top = 158, ; + Visible = .T., ; + Text_simplu1.ControlSource = "porec.zona", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.ReadOnly = .T., ; + Lb_simplu1.Caption = "Zona", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_agenti1' AS cus_odata_agenti WITH ; + Left = 192, ; + Name = "Cus_odata_agenti1", ; + Top = 240 + *< END OBJECT: ClassLib="onom_clienti.vcx" BaseClass="custom" /> + + ADD OBJECT 'Cus_odata_agenti2' AS cus_odata_agenti WITH ; + Left = 324, ; + Name = "Cus_odata_agenti2", ; + Top = 36 + *< END OBJECT: ClassLib="onom_clienti.vcx" BaseClass="custom" /> + + ADD OBJECT 'img_zona' AS _image WITH ; + Height = 24, ; + Left = 322, ; + Name = "img_zona", ; + Picture = ..\..\comun\grafice\alege.bmp, ; + Stretch = 2, ; + ToolTipText = "Alegeti agentul", ; + Top = 160, ; + Visible = .T., ; + Width = 24 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" /> + + PROCEDURE do_alege_zona + Local lnId,lcNume + lnId=poRec.id_zona + lcNume=poRec.zona + If cauta_zona(@lnId,@lcNume) + poRec.id_zona=lnId + poRec.zona=lcNume + Thisform.clb_zona.Refresh() + Endif + + ENDPROC + + PROCEDURE inainte_de_do_termin + Local PLRETURN + lccontrol = Upper(This.ActiveControl.BaseClass ) + If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.ActiveControl.ControlSource + &lcval=Thisform.ActiveControl.Value + Endif + + Do Case + Case Empty(porec.nume_agent) + Messagebox('Nu ati completat numele agentului!',0+48,"Atentie") + This.clb_nume.text_simplu1.SetFocus() + PLRETURN=.F. + *!* Case Empty(porec.prenume) + *!* Messagebox('Nu ati completat prenumele agentului!',0+48,"Atentie") + *!* This.clb_prenume.text_simplu1.SetFocus() + *!* PLRETURN=.F. + Case Empty(porec.id_zona) + Messagebox("Nu ati ales zona!",0+48,"Atentie") + This.clb_zona.text_simplu1.SetFocus() + PLRETURN=.F. + Otherwise + PLRETURN=This.cus_odata_agenti1.salvare(This.OREC,This.NID) + Endcase + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + *!* Local lnid_prospect + DoDefault() + This.orec= toRec + This.nid = tnId + This.cus_odata_agenti1.cactiune = tcActiune + If tcActiune = 'UPDATE' + *!* Select v_zone + *!* Locate For id_zona=toRec.id_zona + *!* If Found() + *!* Thisform.cb_zona._cbbase1.Value=zona + *!* Thisform.cb_zona._cbbase1.Refresh + *!* Endif + Thisform.nNivelModificare=0 + Endif + ENDPROC + + PROCEDURE Clb_zona.Text_simplu1.DblClick + Thisform.do_alege_zona() + ENDPROC + + PROCEDURE Clb_zona.Text_simplu1.KeyPress + Lparameters nKeyCode, nShiftAltCtrl + If Empty(poRec.id_zona) And Empty(poRec.zona) ; + AND Inlist(nKeyCode,9,13) And nShiftAltCtrl=0 + Thisform.do_alege_zona() + Else + DoDefault() + Endif + + ENDPROC + + PROCEDURE img_zona.Click + Thisform.do_alege_zona() + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_clienti AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cNume.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cNume.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cCod_fiscal.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cCod_fiscal.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cTelefon.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cTelefon.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cAdresa.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cAdresa.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cBanca.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cBanca.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cCont_banca.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cCont_banca.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cReg_comert.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cReg_comert.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cJudet.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cJudet.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cLocalitate.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grd_clienti.cLocalitate.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="clb_client" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + + * + *m: do_adauga2 + *m: do_modifica2 + *m: do_sterge2 + * + + * + DoCreate = .T. + Height = 466 + lactiv3 = .T. + Name = "frm_clienti" + Width = 670 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 672 + _shape1.ZOrderSet = 2 + _shape2.Height = 29 + _shape2.Left = 529 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 143 + _shape2.ZOrderSet = 3 + Lb_titlu_alb_b121.Caption = "CLIENTI" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 18 + Lb_titlu_alb_b121.ZOrderSet = 4 + BUT_TERMIN1.Left = 636 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 16 + BUT_TERMIN1.Top = 0 + BUT_TERMIN1.ZOrderSet = 5 + Gridsort1.Name = "Gridsort1" + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 571, ; + Name = "But_modifica1", ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 537, ; + Name = "But_nou1", ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 604, ; + Name = "But_sterge1", ; + Top = 0 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'clb_client' AS clb_tx_simplu WITH ; + Left = 77, ; + Name = "clb_client", ; + TabIndex = 1, ; + Top = 41, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Client", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 386, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 42 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Left = 474, ; + Name = "Cmd_reset1", ; + TabIndex = 17, ; + Top = 42 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grd_clienti' AS _grdrow WITH ; + ColumnCount = 9, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 366, ; + Left = 15, ; + Name = "grd_clienti", ; + Panel = 1, ; + RecordSource = "v_clie", ; + TabIndex = 3, ; + Top = 78, ; + Width = 636, ; + ZOrderSet = 6, ; + Column1.ControlSource = "nume", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "cNume", ; + Column1.Width = 172, ; + Column2.ControlSource = "cod_fiscal", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "cCod_fiscal", ; + Column2.Width = 91, ; + Column3.ControlSource = "telefon", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "cTelefon", ; + Column4.ControlSource = "adresa", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "cAdresa", ; + Column4.Width = 270, ; + Column5.ControlSource = "banca", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "cBanca", ; + Column5.Width = 114, ; + Column6.ControlSource = "cont_banca", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "cCont_banca", ; + Column6.Width = 52, ; + Column7.ControlSource = "reg_comert", ; + Column7.FontName = "Arial Narrow", ; + Column7.Name = "cReg_comert", ; + Column7.Width = 133, ; + Column8.ColumnOrder = 9, ; + Column8.ControlSource = "judet", ; + Column8.FontName = "Arial Narrow", ; + Column8.Name = "cJudet", ; + Column8.Visible = .T., ; + Column8.Width = 68, ; + Column9.ColumnOrder = 8, ; + Column9.ControlSource = "localitate", ; + Column9.FontName = "Arial Narrow", ; + Column9.Name = "cLocalitate", ; + Column9.Width = 127 + *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grd_clienti.cAdresa.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Adresa", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_clienti.cAdresa.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_clienti.cBanca.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Banca", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_clienti.cBanca.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_clienti.cCod_fiscal.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cod fiscal", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_clienti.cCod_fiscal.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_clienti.cCont_banca.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Cont", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_clienti.cCont_banca.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_clienti.cJudet.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Judet", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_clienti.cJudet.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + Visible = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_clienti.cLocalitate.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Localitate", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_clienti.cLocalitate.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_clienti.cNume.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume client", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_clienti.cNume.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_clienti.cReg_comert.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr.Reg.Com.", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_clienti.cReg_comert.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grd_clienti.cTelefon.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Telefon", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grd_clienti.cTelefon.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + Lparameters lcFiltru + + If Empty(lcFiltru) + lcFiltru = poclie.ca_baza1.cfiltru + Endif + Thisform.MousePointer= 11 + Thisform.LockScreen=.T. + save_grid_tag(Thisform.grd_clienti) + poclie.ca_baza1.cfiltru=lcFiltru + poclie.ca_baza1.afisare() + restore_grid_tag(Thisform.grd_clienti) + Thisform.LockScreen=.F. + Thisform.MousePointer= 0 + + ENDPROC + + PROCEDURE do_adauga + Private pniesire + pniesire=0 + Select v_clie + Scatter Name loRec Blank + Do Adauga_Modifica_Inregistrare With "clienti",loRec,,"INSERT",,"addclie" + If pniesire=1 + This.actualizeaza_grid1() + Select v_clie + Locate For nume=loRec.nume + Thisform.grd_clienti.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_adauga2 + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + Store '' To lcFiltru + lcFiltru = [a.id_tip_part=16 and b.inactiv=0] + lcNume = Strtran(Upper(Alltrim(This.clb_client.text_simplu1.Value)),['],['']) + If !Empty(lcNume) + lcFiltru=lcFiltru + [ and b.nume like '] + lcNume + [%'] + Endif + + Thisform.actualizeaza_grid1(lcFiltru) + + If Reccount('v_clie')>0 + Select v_clie + Go Top + Thisform.grd_clienti.SetFocus() + Else + Messagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.clb_client.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_modifica + If Reccount('v_clie')>0 + Private pniesire + pniesire=0 + Select v_clie + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "clienti",loRec,loRec.id_part,"UPDATE" + If pniesire=1 + This.actualizeaza_grid1() + Endif + Endif + ENDPROC + + PROCEDURE do_modifica2 + ENDPROC + + PROCEDURE do_reset + Thisform.clb_client.text_simplu1.Value = '' + Thisform.Refresh + ENDPROC + + PROCEDURE do_sterge + If Reccount('v_clie')>0 + Select v_clie + Scatter Name loRec + Do STERGE_INREGISTRARE With "clienti",loRec.id_part + This.actualizeaza_grid1() + Endif + + ENDPROC + + PROCEDURE do_sterge2 + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_clienti_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ed_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_localitate" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_judet" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_clienti1" UniqueID="" Timestamp="" /> + + * + *p: cnumevechi + *p: nid + *p: nnivelmodificare && - 1 daca utilizatorul are voie sa modifice toate datele ; 0 daca are voie sa modifice doar nr. de telefon + *p: orec + * + + * + cnumevechi = + DoCreate = .T. + Height = 338 + Name = "frm_clienti_nou" + nnivelmodificare = -1 + Width = 375 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 311 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 69 + Lb_titlu_alb_b121.Caption = "Client" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 11 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 345 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 9 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Width = 30 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Height = 27, ; + Left = 315, ; + Name = "But_renunt1", ; + TabIndex = 10, ; + Top = 1, ; + Width = 30 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_judet' AS cb_tx_simplu WITH ; + Left = 13, ; + Name = "Cb_judet", ; + TabIndex = 12, ; + Top = 206, ; + _CBBASE1.Enabled = .F., ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_judete.judet", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Judet", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cb_localitate' AS cb_tx_simplu WITH ; + Left = 13, ; + Name = "Cb_localitate", ; + TabIndex = 5, ; + Top = 178, ; + _CBBASE1.Name = "_CBBASE1", ; + _CBBASE1.RowSource = "v_localitati.localitate,id_loc", ; + _CBBASE1.RowSourceType = 6, ; + _LBBASE1.Caption = "Localitate", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 37, ; + Text_simplu1.ControlSource = "porec.nume", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Nume:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 65, ; + Text_simplu1.ControlSource = "porec.cod_fiscal", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Cod fiscal:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 3, ; + Top = 93, ; + Text_simplu1.ControlSource = "porec.telefon", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Telefon", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu5' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu5", ; + TabIndex = 6, ; + Top = 234, ; + Text_simplu1.ControlSource = "porec.banca", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Banca:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu6", ; + TabIndex = 7, ; + Top = 262, ; + Text_simplu1.ControlSource = "porec.cont_banca", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Cont banca:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu7' AS clb_tx_simplu WITH ; + Left = 13, ; + Name = "Clb_tx_simplu7", ; + TabIndex = 8, ; + Top = 290, ; + Text_simplu1.ControlSource = "porec.reg_comert", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Registru comert:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_clienti1' AS cus_odata_clienti WITH ; + Left = 334, ; + Name = "Cus_odata_clienti1", ; + Top = 56 + *< END OBJECT: ClassLib="onom_clienti.vcx" BaseClass="custom" /> + + ADD OBJECT 'Ed_tx_simplu1' AS ed_tx_simplu WITH ; + Left = 13, ; + Name = "Ed_tx_simplu1", ; + TabIndex = 4, ; + Top = 121, ; + _edbase1.ControlSource = "porec.adresa", ; + _edbase1.Format = "!K", ; + _edbase1.Height = 53, ; + _edbase1.Left = 71, ; + _edbase1.Name = "_edbase1", ; + _edbase1.Top = 2, ; + _edbase1.Width = 241, ; + _LBBASE1.Caption = "Adresa", ; + _LBBASE1.Name = "_LBBASE1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE Destroy + Use In v_judete + Use In v_localitati + ENDPROC + + PROCEDURE inainte_de_do_termin + Local PLRETURN + Private pnNivelModificare + pnNivelModificare=Thisform.nNivelModificare + lccontrol = Upper(This.ActiveControl.BaseClass ) + If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.ActiveControl.ControlSource + &lcval=Thisform.ActiveControl.Value + Endif + + If !Empty(Thisform.cb_localitate._CBBASE1.Value) + porec.id_loc=v_localitati.id_loc + Else + porec.id_loc=0 + Endif + + Do Case + Case Empty(porec.nume) + Messagebox('Nu ati completat numele clientului!',0+48,"Atentie") + This.clb_tx_simplu1.text_simplu1.SetFocus() + PLRETURN=.F. + + Otherwise + && tip_modificare + && 1 - nr. de telefon + && 2 - toate + *!* If (Type('poRec.tip_modificare')='U' Or (Type('poRec.tip_modificare')<>'U' And poRec.tip_modificare=1)) And Alltrim(Upper(This.cus_odata_clienti1.cactiune))="UPDATE" + && pnNivelModificare + && 0 - nr. de telefon + && -1 - toate + If pnNivelModificare=0 And Alltrim(Upper(This.cus_odata_clienti1.cactiune))="UPDATE" + PLRETURN=This.cus_odata_clienti1.salvare(This.OREC,This.NID) + Else + lcNumeClient=Strtran(" "+porec.nume," SA ","") + lcNumeClient=Strtran(lcNumeClient," SRL ","") + lcNumeClient=Strtran(lcNumeClient," SC ","") + pcexec=[select id_part,nume from ]+gcS+[.vnom_parteneri where nume like '%]+Strtran(Alltrim(lcNumeClient)," ","%")+[%']+; + IIF(porec.id_part>0,[ and id_part!=]+Alltrim(Str(porec.id_part)),[]) + Do While .T. + pnSucces = SQLExec(GNHANDLE,pcexec,'crsnumeclienti') + If pnSucces = 0 + * instructiunea in curs de executie + Else + Exit + Endif + Enddo + If Reccount('crsnumeclienti')>0 + Select crsnumeclienti + Locate For Alltrim(Upper(nume))=Alltrim(Upper(porec.nume)) + If Found() + Messagebox('Mai exista acest client inregistrat',0+48,"Atentie") + This.clb_tx_simplu1.text_simplu1.SetFocus() + Use In crsnumeclienti + PLRETURN=.F. + Else + If Alltrim(Upper(This.cus_odata_clienti1.cactiune))="INSERT" + lnTip=1 + lcNumeVechi="" + Else + lnTip=2 + lcNumeVechi=Thisform.cnumevechi + Endif + Private pnButon + pnButon=0 + ofrmverifclie=Createobject("frm_clienti_verif",porec.nume,lnTip,lcNumeVechi) + ofrmverifclie.Show(1) + If pnButon=1 + PLRETURN=This.cus_odata_clienti1.salvare(This.OREC,This.NID) + Else + This.clb_tx_simplu1.text_simplu1.SetFocus() + PLRETURN=.F. + Endif + Release ofrmverifclie + Endif + Else + PLRETURN=This.cus_odata_clienti1.salvare(This.OREC,This.NID) + Endif + Endif + Endcase + + Return PLRETURN + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + Local lnid_judet + DoDefault() + This.orec= toRec + This.nid = tnId + This.cus_odata_clienti1.cactiune = tcActiune + If tcActiune = 'UPDATE' + Thisform.cnumevechi=toRec.nume + Select v_localitati + Locate For id_loc=toRec.id_loc + If Found() + Thisform.cb_localitate._cbbase1.Value=localitate + Thisform.cb_localitate._cbbase1.Refresh + lnid_judet = id_judet + Select v_judete + Locate For id_judet = lnid_judet + If Found() + Thisform.cb_judet._cbbase1.Value=judet + Thisform.cb_judet._cbbase1.Refresh + Endif + Endif + && tip_modificare + && 1 - nr. de telefon + && 2 - toate + If TYPE('toRec.tip_modificare')='U' OR (TYPE('toRec.tip_modificare')<>'U' AND toRec.tip_modificare=1) + Thisform.nNivelModificare=0 + Thisform.clb_tx_simplu1.text_simplu1.Enabled=.F. + Thisform.clb_tx_simplu2.text_simplu1.Enabled=.F. + Thisform.cb_judet._cbbase1.Enabled=.F. + Thisform.cb_localitate._cbbase1.Enabled=.F. + Thisform.ed_tx_simplu1._edbase1.Enabled=.F. + Thisform.clb_tx_simplu5.text_simplu1.Enabled=.F. + Thisform.clb_tx_simplu6.text_simplu1.Enabled=.F. + Thisform.clb_tx_simplu7.text_simplu1.Enabled=.F. + Endif + Endif + ENDPROC + + PROCEDURE Load + If Used('v_judete') + Use In v_judete + Endif + lcSql=[select id_judet,judet from ] + gcS + [.vnom_judete] + lnSucces=goExecutor.oExecute(lcSql,'v_judete') + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + + If Used('v_localitati') + Use In v_localitati + Endif + lcSql=[select id_loc,localitate,id_judet from ] + gcS + [.vnom_localitati] + lnSucces=goExecutor.oExecute(lcSql,'v_localitati') + If lnSucces < 0 + Messagebox(goExecutor.cEroare,0+16,'Eroare') + Endif + ENDPROC + + PROCEDURE Cb_localitate._CBBASE1.InteractiveChange + Select v_localitati + lnid_judet = id_judet + Select v_judete + Set Filter To id_judet = lnid_judet + Go Top + Thisform.cb_judet._CBBASE1.Value=judet + Thisform.cb_judet._CBBASE1.Requery + Thisform.cb_judet._CBBASE1.Refresh + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="grid_curs" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_curs.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_curs.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_curs.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_curs.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_curs.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_curs.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_curs.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="grid_curs.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_data" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_numeval" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ck_data2" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 420 + Name = "frm_curs" + Width = 274 + _shape1.Anchor = 11 + _shape1.Height = 29 + _shape1.Left = -13 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 303 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 123 + _shape2.Name = "_shape2" + _shape2.Top = 1 + _shape2.Width = 151 + Lb_titlu_alb_b121.Anchor = 3 + Lb_titlu_alb_b121.Caption = "Curs valutar" + Lb_titlu_alb_b121.Left = 8 + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.Top = 6 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 243 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 2 + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Anchor = 9, ; + Left = 154, ; + Name = "But_modifica1", ; + Top = 2 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Anchor = 9, ; + Left = 124, ; + Name = "But_nou1", ; + Top = 2 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 9, ; + Left = 214, ; + Name = "But_renunt1", ; + Top = 2 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Anchor = 9, ; + Left = 184, ; + Name = "But_sterge1", ; + Top = 2 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ck_data' AS ck_filtru_numar WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = data, ; + Caption = "Data", ; + FontName = "Arial Narrow", ; + Left = 54, ; + Name = "Ck_data", ; + TabIndex = 1, ; + tip = D, ; + Top = 39, ; + ZOrderSet = 32 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_data2' AS ck_filtru_numar WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = data2, ; + Caption = "Data2", ; + FontName = "Arial Narrow", ; + Left = 99, ; + Name = "Ck_data2", ; + TabIndex = 1, ; + tip = D, ; + Top = 39, ; + ZOrderSet = 32 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Ck_numeval' AS ck_filtru_text WITH ; + Alignment = 0, ; + AutoSize = .T., ; + camp_nume = nume_val, ; + Caption = "Valuta", ; + Comment = "*:OnResize=LT", ; + FontName = "Arial Narrow", ; + Left = 6, ; + Name = "Ck_numeval", ; + TabIndex = 19, ; + Top = 39, ; + ZOrderSet = 12 + *< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Anchor = 9, ; + Comment = "*:OnResize=LT", ; + Height = 27, ; + Left = 166, ; + Name = "Cmd_cauta1", ; + TabIndex = 34, ; + Top = 35, ; + Width = 48, ; + ZOrderSet = 20 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ; + Anchor = 9, ; + Comment = "*:OnResize=LT", ; + Height = 27, ; + Left = 218, ; + Name = "Cmd_reset1", ; + TabIndex = 45, ; + Top = 35, ; + Width = 48, ; + ZOrderSet = 19 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'grid_curs' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 4, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 341, ; + Left = 8, ; + Name = "grid_curs", ; + Panel = 1, ; + RecordMark = .F., ; + RecordSource = "tCurs", ; + Top = 68, ; + Width = 258, ; + Column1.ControlSource = "nume_val", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.Width = 74, ; + Column2.ControlSource = "curs", ; + Column2.FontName = "Arial Narrow", ; + Column2.Format = "rk", ; + Column2.InputMask = (get_mask(10,gnPCurs)), ; + Column2.Name = "Column2", ; + Column2.Width = 58, ; + Column3.ControlSource = "data", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.Width = 49, ; + Column4.ControlSource = "data2", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.Width = 51 + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'grid_curs.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nume valuta", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_curs.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_curs.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Curs", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_curs.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_curs.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_curs.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'grid_curs.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Data2", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'grid_curs.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru = pcFiltru + IF EMPTY(lcFiltru) + lcFiltru = poCurs.ca_baza1.cfiltru + ENDIF + + *lcOrder = This.corderby + " " + This.Casc + + save_grid_tag(thisform.grid_curs) + poCurs.ca_baza1.cfiltru = lcFiltru + *poCurs.ca_baza1.corder = lcOrder + + poCurs.ca_baza1.afisare() + restore_grid_tag(thisform.grid_curs) + IF RECCOUNT('tCurs')>0 + thisform.grid_curs.SetFocus() + ENDIF + + + + ENDPROC + + PROCEDURE do_adauga + Select tCurs + Scatter Name loRec Blank + loRec.data = DATE() + Do Adauga_Modifica_Inregistrare With "curs",loRec,,"INSERT" + This.actualizeaza_grid1() + + ENDPROC + + PROCEDURE do_cauta + LOCAL lcFiltru + lcFiltru = "" + + * valuta + If thisform.ck_numeval.Value=1 + lcFiltru = lcFiltru + thisform.ck_numeval.filtru + ENDIF + + IF this.ck_data.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_data.filtru + ENDIF + + IF this.ck_data2.Value = 1 + lcFiltru = lcFiltru + Thisform.ck_data2.filtru + ENDIF + + If !Empty(lcFiltru) + lcFiltru = Substr(lcFiltru,6) + ELSE + lcFiltru = [2=2] + ENDIF + + Thisform.actualizeaza_grid1(lcFiltru) + Thisform.grid_curs.SetFocus() + + ENDPROC + + PROCEDURE do_reset + thisform.ck_numeval.Value = 0 + thisform.ck_data.Value = 0 + thisform.ck_data2.Value = 0 + thisform.Refresh() + ENDPROC + + PROCEDURE inainte_de_do_modifica + Select tCurs + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "curs",loRec,loRec.id_curs,"UPDATE" + thisform.actualizeaza_grid1() + ENDPROC + + PROCEDURE inainte_de_do_sterge + Select tCurs + Scatter Name lorec + Do STERGE_INREGISTRARE With "curs",lorec.id_curs + This.actualizeaza_grid1() + + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtCurs" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtData2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CUS_ODATA_CURS1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="txtValuta" UniqueID="" Timestamp="" /> + + * + *p: nid + *p: orec + * + + * + BorderStyle = 3 + DoCreate = .T. + Height = 143 + Name = "frm_curs_nou" + nid = + orec = + Width = 208 + _shape1.Anchor = 11 + _shape1.Name = "_shape1" + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 147 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 61 + Lb_titlu_alb_b121.Caption = "Curs valutar" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 178 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Anchor = 9, ; + Left = 149, ; + Name = "But_renunt1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Command2' AS commandbutton WITH ; + Caption = "", ; + FontName = "Arial Narrow", ; + Height = 25, ; + Left = 168, ; + Name = "Command2", ; + Picture = ..\grafice\find.bmp, ; + TabIndex = 1, ; + Top = 36, ; + Width = 28 + *< END OBJECT: BaseClass="commandbutton" /> + + ADD OBJECT 'CUS_ODATA_CURS1' AS cus_odata_curs WITH ; + Left = 102, ; + Name = "CUS_ODATA_CURS1", ; + Top = 8 + *< END OBJECT: ClassLib="onom_clienti.vcx" BaseClass="custom" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nume valuta", ; + Height = 17, ; + Left = 14, ; + Name = "Label1", ; + TabIndex = 8, ; + Top = 41, ; + Width = 71 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Curs", ; + Height = 17, ; + Left = 14, ; + Name = "Label2", ; + TabIndex = 9, ; + Top = 66, ; + Width = 29 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Data 1", ; + Height = 17, ; + Left = 14, ; + Name = "Label3", ; + TabIndex = 10, ; + Top = 91, ; + Width = 38 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Data 2", ; + Height = 17, ; + Left = 14, ; + Name = "Label4", ; + TabIndex = 11, ; + Top = 117, ; + Width = 38 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'txtCurs' AS textbox WITH ; + ControlSource = "porec.curs", ; + Height = 23, ; + Left = 91, ; + Name = "txtCurs", ; + TabIndex = 2, ; + Top = 63, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtData1' AS textbox WITH ; + ControlSource = "porec.data", ; + Height = 23, ; + Left = 91, ; + Name = "txtData1", ; + TabIndex = 3, ; + Top = 88, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtData2' AS textbox WITH ; + ControlSource = "porec.data2", ; + Height = 23, ; + Left = 91, ; + Name = "txtData2", ; + TabIndex = 4, ; + Top = 114, ; + Width = 100 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'txtValuta' AS textbox WITH ; + ControlSource = "porec.nume_val", ; + Height = 23, ; + Left = 91, ; + Name = "txtValuta", ; + TabIndex = 12, ; + Top = 36, ; + Width = 75 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE inainte_de_do_termin + Private pnIdCursNou + Local plreturn + Store 0 To pnIdCursNou + + lccontrol = Upper(This.ActiveControl.BaseClass ) + If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.ActiveControl.ControlSource + &lcval=Thisform.ActiveControl.Value + Endif + + Do Case + Case Empty(porec.id_valuta) + Messagebox('Nu ati introdus valuta!',0+48,"Atentie") + Thisform.cboValuta.SetFocus() + plreturn = .F. + Case Empty(porec.curs) + Messagebox('Nu ati introdus valoarea cursului!',0+48,"Atentie") + Thisform.txtCurs.SetFocus() + plreturn = .F. + Case Empty(porec.data) + Messagebox('Nu ati introdus data initiala a cursului!',0+48,"Atentie") + Thisform.txtData.SetFocus() + plreturn = .F. + Case Empty(porec.data2) + Messagebox('Nu ati introdus data finala a cursului!',0+48,"Atentie") + Thisform.txtData2.SetFocus() + plreturn = .F. + Otherwise + plreturn=Thisform.cus_odata_curs1.salvare(This.OREC,This.NID) + Endcase + + Return plreturn + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + DoDefault() + + This.orec = toRec + This.nid = tnId + This.cus_odata_curs1.cactiune = tcActiune + + ENDPROC + + PROCEDURE Command2.Click + LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc + lcselect = [select v.id_valuta, v.nume_val FROM ] + gcs + [.vnom_valute v where] + lcfiltru = [1=2] + lcschema = [] + lcorder = [v.nume_val] + lccoloane = [nume_val] + lcTitlu = [Alegeti valuta] + lcTitluColoane = [Nume] + lcFiltruOriginal = [v.inactiv = 0] + lcNumeProc = "" + locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal) + + IF buton=2 + RETURN + ENDIF + + porec.id_valuta = locauta.id_valuta + porec.nume_val = locauta.nume_val + thisform.txtValuta.Refresh + + + ENDPROC + + PROCEDURE txtData1.Valid + porec.data2 = porec.data + thisform.txtdata2.Refresh + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_delegati AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="gdelegati" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column3.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column4.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column5.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column6.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="gdelegati.Column6.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_delegat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + + * + *p: nidpartener && Pentru cautarile in functie de un partener. + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 382 + lactiv3 = .T. + lactiv4 = .T. + Name = "frm_delegati" + Width = 587 + _shape1.Height = 29 + _shape1.Left = -3 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 592 + _shape2.Height = 29 + _shape2.Left = 466 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 122 + Lb_titlu_alb_b121.Caption = "Delegati" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 8 + BUT_TERMIN1.Height = 27 + BUT_TERMIN1.Left = 557 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 7 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Width = 30 + * + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Height = 27, ; + Left = 498, ; + Name = "But_modifica1", ; + TabIndex = 5, ; + Top = 1, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Height = 27, ; + Left = 468, ; + Name = "But_nou1", ; + TabIndex = 4, ; + Top = 1, ; + Width = 30 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Height = 27, ; + Left = 527, ; + Name = "But_sterge1", ; + TabIndex = 6, ; + Top = 1, ; + Visible = .T., ; + Width = 30 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_delegat' AS clb_tx_simplu WITH ; + Left = 26, ; + Name = "Clb_delegat", ; + TabIndex = 1, ; + Top = 36, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + LB_SIMPLU1.Caption = "Delegat", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 326, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 37 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'gdelegati' AS _grdrow WITH ; + ColumnCount = 6, ; + DeleteMark = .F., ; + FontName = "Arial Narrow", ; + Height = 300, ; + Left = 12, ; + Name = "gdelegati", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "v_delegati", ; + TabIndex = 3, ; + Top = 72, ; + Width = 565, ; + Column1.ControlSource = "nume_part", ; + Column1.FontName = "Arial Narrow", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 168, ; + Column2.ControlSource = "nume", ; + Column2.FontName = "Arial Narrow", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 169, ; + Column3.ControlSource = "bi_seria", ; + Column3.FontName = "Arial Narrow", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 49, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "eliberatde", ; + Column4.FontName = "Arial Narrow", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Width = 77, ; + Column5.ColumnOrder = 6, ; + Column5.ControlSource = "inactiv", ; + Column5.FontName = "Arial Narrow", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Sparse = .F., ; + Column5.Width = 48, ; + Column6.ColumnOrder = 4, ; + Column6.ControlSource = "bi_numar", ; + Column6.FontName = "Arial Narrow", ; + Column6.Name = "Column6", ; + Column6.ReadOnly = .T., ; + Column6.Width = 66 + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT 'gdelegati.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Client", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gdelegati.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Delegat", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gdelegati.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "BI_seria", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gdelegati.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Eliberat de..", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.Column4.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'gdelegati.Column5.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + FontName = "Arial Narrow", ; + Height = 17, ; + Left = 16, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 71, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT 'gdelegati.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.Column6.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "BI_numar", ; + FontName = "Arial Narrow", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT 'gdelegati.Column6.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + FontName = "Arial Narrow", ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1" + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=podelegati.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform.gdelegati) + podelegati.ca_baza1.cfiltru=lcFiltru + podelegati.ca_baza1.afisare() + restore_grid_tag(thisform.gdelegati) + *!* IF RECCOUNT('v_delegati')>0 + thisform.gdelegati.SetFocus() + *!* ELSE + *!* thisform.lb_delegati.SetFocus() + *!* ENDIF + + ENDPROC + + PROCEDURE do_adauga + Private pniesire + pniesire=0 + Select v_delegati + Scatter Name loRec Blank + If !Empty(Thisform.nidpartener) + loRec.id_part = Thisform.nidpartener + Do update_clienti With Thisform.nidpartener In onom_clienti.prg + Else + Do update_clienti In onom_clienti.prg + Endif + Do Adauga_Modifica_Inregistrare With "delegati",loRec,,"INSERT",,"adddeleg" + If pniesire=1 + This.actualizeaza_grid1() + Endif + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcDelegat = Strtran(Upper(Alltrim(Thisform.clb_delegat.texT_SIMPLU1.Value)),['],['']) + If !Empty(Thisform.nidpartener) + lcFiltru = [id_part = ] + Alltrim(Str(Thisform.nidpartener)) + [ and ] + Endif + If !Empty(lcDelegat) + lcFiltru = lcFiltru + [nume like '] + lcDelegat + [%'] + Else + lcFiltru = lcFiltru + [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + If Reccount('v_delegati')=0 + Messagebox("Cautarea nu a intors rezultate!",0+64,"Info cautare") + Thisform.clb_delegat.SetFocus() + Endif + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Private pniesire + pniesire=0 + Do update_clienti In onom_clienti.prg + Select v_delegati + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "delegati", loRec, loRec.id_responsabil,"UPDATE",,"moddeleg" + If pniesire=1 + This.actualizeaza_grid1() + Endif + ENDPROC + + PROCEDURE do_sterge + SELECT v_delegati + SCATTER NAME lorec + Do STERGE_INREGISTRARE With "delegati",loRec.id_responsabil + + this.actualizeaza_grid1() + + ENDPROC + + PROCEDURE Init + Lparameters tnidpartener + DODEFAULT() + + If !Empty(tnidpartener) + Thisform.nidpartener=tnidpartener + Endif + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + lcControl = Upper(Alltrim(This.ActiveControl.Name)) + If nKeyCode = 13 And lcControl = 'GDELEGATI' && enter + Nodefault + Thisform.but_TERMIN1.SetFocus + Else + DoDefault(nKeyCode, nShiftAltCtrl) + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_delegati_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Cus_odata_delegati1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" /> + + * + *p: nid + *p: orec + * + + * + DoCreate = .T. + Height = 182 + Name = "frm_delegati_nou" + Width = 375 + _SHAPE1.Name = "_SHAPE1" + _SHAPE2.Height = 29 + _SHAPE2.Left = 312 + _SHAPE2.Name = "_SHAPE2" + _SHAPE2.Top = 0 + _SHAPE2.Width = 65 + LB_TITLU_ALB_B121.Caption = "Delegat" + LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121" + LB_TITLU_ALB_B121.TabIndex = 9 + BUT_TERMIN1.Left = 345 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 7 + BUT_TERMIN1.Top = 1 + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 44, ; + Name = "_checkbox1", ; + TabIndex = 6, ; + Top = 156 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 315, ; + Name = "But_renunt1", ; + TabIndex = 8, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ; + Left = 42, ; + Name = "Cb_tx_simplu1", ; + TabIndex = 1, ; + Top = 38, ; + _cbbase1.ColumnCount = 2, ; + _cbbase1.ControlSource = "porec.nume_part", ; + _cbbase1.Name = "_cbbase1", ; + _cbbase1.RowSource = "v_clienti.nume,cod_fiscal", ; + _cbbase1.RowSourceType = 2, ; + _lbbase1.Caption = "Client:", ; + _lbbase1.Name = "_lbbase1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 42, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 2, ; + Top = 66, ; + Text_simplu1.ControlSource = "porec.nume", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Delegat:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 42, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 3, ; + Top = 94, ; + Width = 146, ; + Text_simplu1.ControlSource = "porec.bi_seria", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 101, ; + Text_simplu1.MaxLength = 10, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 42, ; + Lb_simplu1.Caption = "BI serie:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ; + Left = 42, ; + Name = "Clb_tx_simplu3", ; + TabIndex = 5, ; + Top = 122, ; + Text_simplu1.ControlSource = "porec.eliberatde", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Eliberat de:", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ; + Height = 29, ; + Left = 187, ; + Name = "Clb_tx_simplu4", ; + TabIndex = 4, ; + Top = 94, ; + Width = 145, ; + TEXT_SIMPLU1.ControlSource = "porec.bi_numar", ; + TEXT_SIMPLU1.Format = "rk", ; + TEXT_SIMPLU1.Height = 23, ; + TEXT_SIMPLU1.InputMask = "999999", ; + TEXT_SIMPLU1.Left = 33, ; + TEXT_SIMPLU1.MaxLength = 10, ; + TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ; + TEXT_SIMPLU1.Top = 3, ; + TEXT_SIMPLU1.Width = 104, ; + LB_SIMPLU1.Caption = "nr.:", ; + LB_SIMPLU1.Name = "LB_SIMPLU1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_delegati1' AS cus_odata_delegati WITH ; + Left = 348, ; + Name = "Cus_odata_delegati1", ; + Top = 48 + *< END OBJECT: ClassLib="onom_clienti.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + Do Case + Case Empty(porec.nume) + Messagebox('Nu ati completat denumirea delegatului!',0+48,"Atentie") + *!* This.clb_tx_simplu2.Text_simplu1.SetFocus() + this.cb_tx_simplu1._CBBASE1.SetFocus() + + plreturn=.F. + + + + OTHERWISE + If Alltrim(Upper(This.cus_odata_delegati1.cactiune))="INSERT" &&Or (Alltrim(Upper(This.cus_odata_mecanici1.cactiune))="UPDATE") + IF USED('exista_del') + USE IN exista_del + ENDIF + pcexec=[select count(*) as inreg from ]+gcS+[.vnom_delegati ] + ; + [where (TRIM(nume)=']+Alltrim(porec.nume)+[') and ] + ; + [id_part=]+ALLTRIM(STR(porec.id_part)) + *!* [TRIM(nume)=']+ALLTRIM(porec.nume)+['] + Do While .T. + pnSucces = SQLEXEC(GNHANDLE,pcexec,'exista_del') + If pnSucces = 0 + * instructiunea in curs de executie + Else + Exit + Endif + Enddo + Select exista_del + lnInreg=exista_del.inreg + Use In exista_del + If lnInreg>0 + Messagebox('Mai exista acest delegat inregistrat!',0+48,"Atentie") + *!* This.clb_tx_simplu2.Text_simplu1.SetFocus() + this.cb_tx_simplu1._CBBASE1.SetFocus() + plreturn=.F. + ELSE + PLRETURN=This.cus_odata_delegati1.salvare(This.OREC,This.NID) + ENDIF + ELSE + *!* WAIT WINDOW "pe else" + PLRETURN=This.cus_odata_delegati1.salvare(This.OREC,This.NID) + ENDIF + + ENDCASE + + Return PLRETURN + + + + + ENDPROC + + PROCEDURE Init + Lparameters toRec, tnId, tcActiune + + DoDefault() + + This.orec= toRec + This.nid = tnId + This.cus_odata_delegati1.cactiune = tcActiune + Do Case + Case tcActiune='INSERT' And !Empty(toRec.id_part) + Select v_clienti + Locate For id_part = toRec.id_part + If Found() + porec.nume=nume + This.orec.nume=nume + toRec.nume=nume + Thisform.cb_tx_simplu1._cbbase1.Refresh + Thisform.cb_tx_simplu1._cbbase1.Enabled=.F. + Endif + Case tcActiune='UPDATE' + Thisform.cb_tx_simplu1._cbbase1.Enabled=.F. + Endcase + ENDPROC + + PROCEDURE Cb_tx_simplu1._cbbase1.LostFocus + porec.id_part = v_clienti.id_part + *!* POREC.MARCA = V_PERSONAL.MARCA + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_gnom_responsabili" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_gnom_responsabili.Column1.Responsabill" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_gnom_responsabili.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_gnom_responsabili.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_gnom_responsabili.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_gnom_responsabili.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_gnom_responsabili.Column3.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_gnom_responsabili.Column4.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_gnom_responsabili.Column4.Check1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_gnom_responsabili.Column5.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_gnom_responsabili.Column5.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nom_responsabili" UniqueID="" Timestamp="" /> + + * + *m: log + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 303 + lactiv3 = .T. + lactiv4 = .T. + Name = "frm_responsabili" + Width = 504 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 504 + _shape2.Height = 29 + _shape2.Left = 383 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 121 + Lb_titlu_alb_b121.Caption = "Responsabili" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 8 + BUT_TERMIN1.Left = 472 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 4 + BUT_TERMIN1.Top = 1 + BUT_TERMIN1.Visible = .T. + * + + ADD OBJECT '_gnom_responsabili' AS _grdrow WITH ; + ColumnCount = 5, ; + DeleteMark = .F., ; + Height = 191, ; + Left = 8, ; + Name = "_gnom_responsabili", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordSource = "v_responsabili", ; + TabIndex = 3, ; + Top = 101, ; + Width = 488, ; + Column1.ColumnOrder = 2, ; + Column1.ControlSource = "nume", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 210, ; + Column2.ColumnOrder = 3, ; + Column2.ControlSource = "functie", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 126, ; + Column3.ColumnOrder = 4, ; + Column3.ControlSource = "ales", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Sparse = .F., ; + Column3.Width = 46, ; + Column4.ColumnOrder = 5, ; + Column4.ControlSource = "inactiv", ; + Column4.Name = "Column4", ; + Column4.ReadOnly = .T., ; + Column4.Sparse = .F., ; + Column4.Width = 40, ; + Column5.ColumnOrder = 1, ; + Column5.ControlSource = "id_responsabil", ; + Column5.Name = "Column5", ; + Column5.ReadOnly = .T., ; + Column5.Width = 31 + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_gnom_responsabili.Column1.Responsabill' AS header WITH ; + Alignment = 2, ; + Caption = "Responsabil", ; + Name = "Responsabill" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_gnom_responsabili.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_gnom_responsabili.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Functia", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_gnom_responsabili.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_gnom_responsabili.Column3.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 9, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 30, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_gnom_responsabili.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Ales", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_gnom_responsabili.Column4.Check1' AS checkbox WITH ; + Alignment = 0, ; + Caption = "", ; + Centered = .T., ; + Height = 17, ; + Left = 22, ; + Name = "Check1", ; + ReadOnly = .T., ; + Top = 30, ; + Width = 60 + *< END OBJECT: BaseClass="checkbox" /> + + ADD OBJECT '_gnom_responsabili.Column4.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Inactiv", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_gnom_responsabili.Column5.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Id", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_gnom_responsabili.Column5.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'But_modifica1' AS but_modifica WITH ; + Left = 415, ; + Name = "But_modifica1", ; + TabIndex = 6, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_nou1' AS but_nou WITH ; + Left = 385, ; + Name = "But_nou1", ; + TabIndex = 7, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_sterge1' AS but_sterge WITH ; + Left = 443, ; + Name = "But_sterge1", ; + TabIndex = 5, ; + Top = 1, ; + Visible = .T. + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ; + Left = 309, ; + Name = "Cmd_cauta1", ; + TabIndex = 2, ; + Top = 44 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'lb_nom_responsabili' AS clb_tx_simplu WITH ; + Left = 8, ; + Name = "lb_nom_responsabili", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Responsabil", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + PROCEDURE actualizeaza_grid1 + LPARAMETERS pcFiltru + LOCAL lcFiltru + lcFiltru=pcFiltru + IF EMPTY(lcFiltru) + lcFiltru=poresponsabili.ca_baza1.cfiltru + ENDIF + save_grid_tag(thisform._gnom_responsabili) + poresponsabili.ca_baza1.cfiltru=lcFiltru + poresponsabili.ca_baza1.afisare() + restore_grid_tag(thisform._gnom_responsabili) + IF RECCOUNT('v_responsabili')>0 + thisform._gnom_responsabili.SetFocus() + ELSE + thisform.lb_nom_responsabili.SetFocus() + ENDIF + + ENDPROC + + PROCEDURE do_adauga + SELECT v_responsabili + SCATTER NAME loRec blank + DO Adauga_Modifica_Inregistrare WITH "responsabili",loRec,,"INSERT" + this.actualizeaza_grid1() + ENDPROC + + PROCEDURE do_cauta + Local lcFiltru + lcFiltru=[] + lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_responsabili.text_simplu1.value)),['],['']) + If !Empty(lcNume) + lcFiltru=[nume like ']+lcNume+[%'] + ELSE + lcFiltru = [2=2] + Endif + This.MousePointer= 11 + This.LockScreen=.T. + Thisform.actualizeaza_grid1(lcFiltru) + IF RECCOUNT()=0 + MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare") + ENDIF + This.LockScreen=.F. + This.MousePointer= 0 + ENDPROC + + PROCEDURE do_modifica + Select v_responsabili + Scatter Name loRec + Do Adauga_Modifica_Inregistrare With "responsabili",loRec,loRec.Id_responsabil,"UPDATE" + thisform.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE do_sterge + SELECT v_responsabili + SCATTER NAME lorec + Do STERGE_INREGISTRARE With "responsabili",loRec.id_responsabil + + this.actualizeaza_grid1() + + + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + lcActiveControl = UPPER(ALLTRIM(this.ActiveControl.name)) + + IF nKeyCode=13 AND lcActiveControl = '_GNOM_RESPONSABILI' + Nodefault + this.LB_nom_responsabili.SetFocus + ENDIF + + + DODEFAULT(nKeyCode, nShiftAltCtrl) + + + ENDPROC + + PROCEDURE log + LPARAMETERS tctabela,tnId + + lcId = ALLTRIM(STR(tnId)) + lctabela = UPPER(ALLTRIM(tctabela)) + PRIVATE polog,pcschema1,pcselect1 + STORE '' TO polog + pcschema1 = [''] + pcselect1=['select * from ] + gcS + [.vlog where '] + pcorder1=['dataora'] + pcfiltru1 = [tabel = '] + lctabela + [' and id_tabel = ] + lcId + gencursor('polog','v_log',pcselect1,pcfiltru1,pcschema1,pcorder1) + polog.ca_baza1.afisare() + ofrmlog=CREATEOBJECT('frm_log') + ofrmlog.show(1) + RELEASE polog + ENDPROC + + PROCEDURE Unload + IF USED('v_responsabili') + USE IN v_responsabili + ENDIF + ENDPROC + + PROCEDURE _gnom_responsabili.Column1.Text1.DblClick + thisform.log("NOM_RESPONSABILI",v_responsabili.id_responsabil) + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_responsabili_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cus_odata_responsabili1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_checkbox2" UniqueID="" Timestamp="" /> + + * + *p: nid + *p: orec + * + + * + BorderStyle = 1 + DoCreate = .T. + Height = 166 + Name = "frm_responsabili_nou" + Width = 375 + _shape1.Name = "_shape1" + _shape2.Height = 29 + _shape2.Left = 312 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 62 + Lb_titlu_alb_b121.Caption = "Responsabili" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 7 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 5 + * + + ADD OBJECT '_checkbox1' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Ales", ; + ControlSource = "porec.ales", ; + Height = 17, ; + Left = 33, ; + Name = "_checkbox1", ; + TabIndex = 3, ; + TabStop = .F., ; + Top = 120, ; + Width = 42 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT '_checkbox2' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Inactiv", ; + ControlSource = "porec.inactiv", ; + Left = 33, ; + Name = "_checkbox2", ; + TabIndex = 4, ; + TabStop = .F., ; + Top = 144 + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'But_renunt1' AS but_renunt WITH ; + Left = 312, ; + Name = "But_renunt1", ; + TabIndex = 6, ; + Top = 1 + *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ; + Left = 31, ; + Name = "Clb_tx_simplu1", ; + TabIndex = 1, ; + Top = 44, ; + Text_simplu1.ControlSource = "porec.nume", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.InputMask = "", ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Value = , ; + Lb_simplu1.Caption = "Responsabil", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ; + Left = 31, ; + Name = "Clb_tx_simplu2", ; + TabIndex = 2, ; + Top = 83, ; + Text_simplu1.ControlSource = "porec.functie", ; + Text_simplu1.Format = "!K", ; + Text_simplu1.Name = "Text_simplu1", ; + Lb_simplu1.Caption = "Functie", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Cus_odata_responsabili1' AS cus_odata_responsabili WITH ; + Left = 336, ; + Name = "Cus_odata_responsabili1", ; + Top = 48 + *< END OBJECT: ClassLib="onom_clienti.vcx" BaseClass="custom" /> + + PROCEDURE inainte_de_do_termin + LOCAL PLRETURN + + lccontrol = UPPER(this.ActiveControl.BaseClass ) + IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.Activecontrol.controlsource + &lcval=thisform.ActiveControl.value + ENDIF + + + + PLRETURN=This.cus_odata_responsabili1.salvare(This.OREC,This.NID) + Return PLRETURN + + ENDPROC + + PROCEDURE Init + LPARAMETERS toRec, tnId, tcActiune + + DODEFAULT() + + this.orec= toRec + this.nid = tnId + this.cus_odata_RESPONSABILI1.cactiune = tcActiune + ENDPROC + + PROCEDURE _checkbox1.DblClick + this.Value = ABS(this.Value - 1) + + ENDPROC + + PROCEDURE _checkbox2.DblClick + this.Value = ABS(this.Value - 1) + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_tipc AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 153 + Name = "frm_tipc" + Width = 787 + _shape1.Anchor = 11 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 788 + _shape2.Anchor = 9 + _shape2.Height = 29 + _shape2.Left = 756 + _shape2.Name = "_shape2" + _shape2.Top = -1 + _shape2.Width = 32 + Lb_titlu_alb_b121.Caption = "Tipuri contracte" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Anchor = 9 + BUT_TERMIN1.Left = 757 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.Top = 0 + * + + ADD OBJECT '_grdrow1' AS _grdrow WITH ; + Anchor = 15, ; + ColumnCount = 3, ; + DeleteMark = .F., ; + Height = 110, ; + Left = 5, ; + Name = "_grdrow1", ; + Panel = 1, ; + ReadOnly = .T., ; + RecordMark = .F., ; + RecordSource = "tTipc", ; + Top = 37, ; + Width = 775, ; + Column1.ControlSource = "recno()", ; + Column1.Name = "Column1", ; + Column1.ReadOnly = .T., ; + Column1.Width = 39, ; + Column2.ControlSource = "tipc", ; + Column2.Name = "Column2", ; + Column2.ReadOnly = .T., ; + Column2.Width = 148, ; + Column3.ControlSource = "explicatie", ; + Column3.Name = "Column3", ; + Column3.ReadOnly = .T., ; + Column3.Width = 563 + *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> + + ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Nr. crt.", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Tip contract", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ; + Alignment = 2, ; + Caption = "Descriere", ; + Name = "Header1" + *< END OBJECT: BaseClass="header" /> + + ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ; + BackColor = 255,255,255, ; + BorderStyle = 0, ; + ForeColor = 0,0,0, ; + Margin = 0, ; + Name = "Text1", ; + ReadOnly = .T. + *< END OBJECT: BaseClass="textbox" /> + +ENDDEFINE diff --git a/Clase/outlook2003bar.vc2 b/Clase/outlook2003bar.vc2 new file mode 100644 index 0000000..deda4f0 --- /dev/null +++ b/Clase/outlook2003bar.vc2 @@ -0,0 +1,1624 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="outlook2003bar.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS outlook2003bar AS container + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Panes" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="OverflowPanel" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="SplitBar" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="SplitBar.imgSplitter" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Panel" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Splitter" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Title" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Title.lblCaption" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Title.linBorder" UniqueID="" Timestamp="" /> + + * + *m: addbutton && Internal to the class. Add a new button. + *m: adjustpanelheight && Internal to the class. Adjust the panel height to show the buttons. + *m: adjustsplitterlimits && Internal to the class. Adjust splitter RangeMin and RangeMax limits. + *m: creategradientimage && Create a gradient image. + *m: rearrangebuttons && Internal to the class. Rearrange buttons to show in correctly order and position. + *m: selectedbutton_assign && Internal to the class. Occurs when SelectedButton property is changed. + *m: setcolorscheme && Set color scheme. + *m: showless && Internal to the class. Show less buttons in the panel. + *m: showmore && Internal to the class. Show more buttons in the panel. + *m: themenumber_assign && Internal to the class. Occurs when ThemeNumber property is changed. + *m: themessupport_access && Internal to the class. Occurs when ThemesSupport property is accessed. + *p: imgfocusednotselected && Internal to the class. Name and path of the image to show in the background when button receives the focus and is not selected. + *p: imgfocusedselected && Internal to the class. Name and path of the image to show in the background when button receives the focus and is selected. + *p: imgnotfocusednotselected && Internal to the class. Name and path of the image to show in the background when button does not have focus and is not selected. + *p: imgnotfocusedselected && Internal to the class. Name and path of the image to show in the background when button does not have focus and is selected. + *p: imgsplitbar && Internal to the class. Name and path of the image to show in the background of splitbar. + *p: imgtitle && Internal to the class. Name and path of the image to show in the background of title. + *p: maxshowedbuttons && Maximum number of buttons displayed in the panel. + *p: mnushowlesstext && The text that is displayed in the "Show less" shortcut menu item. + *p: mnushowmoretext && The text that is displayed in the "Show more" shortcut menu item. + *p: rgbborder && RGB color of control borders. + *p: rgbfocusednotselectedend && End RGB color (for gradient effect) of focused and not selected button. + *p: rgbfocusednotselectedstart && Start RGB color (for gradient effect) of focused and not selected button. + *p: rgbfocusedselectedend && End RGB color (for gradient effect) of focused and selected button. + *p: rgbfocusedselectedstart && Start RGB color (for gradient effect) of focused and selected button. + *p: rgbnotfocusednotselectedend && End RGB color (for gradient effect) of not focused and not selected button. + *p: rgbnotfocusednotselectedstart && Start RGB color (for gradient effect) of not focused and not selected button. + *p: rgbnotfocusedselectedend && End RGB color (for gradient effect) of not focused and selected button. + *p: rgbnotfocusedselectedstart && Start RGB color (for gradient effect) of not focused and selected button. + *p: rgbtitleend && End RGB color (for gradient effect) of title. + *p: rgbtitlestart && Start RGB color (for gradient effect) of title. + *p: selectedbutton && Internal to the class. The number of selected button. + *p: showedbuttons && Internal to the class. The number of showed buttons. + *p: themenumber && 0- Automatic, 1- Blue, 2- Silver, 3- Olive and 4- User defined. + *p: themessupport && Specifies if the OS support themes. + *p: version && Outlook2003Bar version. + * + + HIDDEN themessupport + PROTECTED version + * + Anchor = 15 + Height = 362 + imgfocusednotselected = + imgfocusedselected = + imgnotfocusednotselected = + imgnotfocusedselected = + imgsplitbar = + imgtitle = + maxshowedbuttons = 7 + mnushowlesstext = Show less + mnushowmoretext = Show more + Name = "outlook2003bar" + rgbborder = (Rgb(0,45,150)) + rgbfocusednotselectedend = (Rgb(247,192,91)) + rgbfocusednotselectedstart = (Rgb(255,255,220)) + rgbfocusedselectedend = (Rgb(255,255,220)) + rgbfocusedselectedstart = (Rgb(247,192,91)) + rgbnotfocusednotselectedend = (Rgb(126,165,224)) + rgbnotfocusednotselectedstart = (Rgb(203,225,252)) + rgbnotfocusedselectedend = (Rgb(238,149,21)) + rgbnotfocusedselectedstart = (Rgb(250,229,147)) + rgbtitleend = (Rgb(8,60,161)) + rgbtitlestart = (Rgb(85,131,211)) + selectedbutton = 0 + showedbuttons = 5 + themenumber = 0 + themessupport = (Null) + version = 1.0.0 + Width = 200 + * + + ADD OBJECT 'OverflowPanel' AS overflowpanel WITH ; + Anchor = 14, ; + Height = 32, ; + Left = 1, ; + Name = "OverflowPanel", ; + Top = 327, ; + Width = 198, ; + MENUBUTTON.imgPicture.Height = 16, ; + MENUBUTTON.imgPicture.Name = "imgPicture", ; + MENUBUTTON.imgPicture.Visible = .F., ; + MENUBUTTON.imgPicture.Width = 16, ; + MENUBUTTON.Name = "MENUBUTTON", ; + MENUBUTTON.Visible = .F. + *< END OBJECT: ClassLib="outlook2003bar.vcx" BaseClass="container" /> + + ADD OBJECT 'Panel' AS panel WITH ; + Anchor = 14, ; + Left = 0, ; + Name = "Panel", ; + Top = 327 + *< END OBJECT: ClassLib="outlook2003bar.vcx" BaseClass="container" /> + + ADD OBJECT 'Panes' AS pageframe WITH ; + ActivePage = 0, ; + Anchor = 15, ; + BorderWidth = 0, ; + ErasePage = .T., ; + Height = 328, ; + Left = 1, ; + MemberClass = "pane", ; + MemberClassLibrary = outlook2003bar.vcx, ; + Name = "Panes", ; + SpecialEffect = 2, ; + Tabs = .F., ; + Themes = .F., ; + Top = 33, ; + Width = 198 + *< END OBJECT: BaseClass="pageframe" /> + + ADD OBJECT 'SplitBar' AS container WITH ; + Anchor = 14, ; + Height = 7, ; + Left = 0, ; + Name = "SplitBar", ; + Top = 321, ; + Width = 200 + *< END OBJECT: BaseClass="container" /> + + ADD OBJECT 'SplitBar.imgSplitter' AS image WITH ; + Anchor = 768, ; + BackStyle = 0, ; + Height = 3, ; + Left = 81, ; + Name = "imgSplitter", ; + Picture = outlook2003barsplitter.png, ; + Top = 2, ; + Width = 35 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Splitter' AS splitter2 WITH ; + Anchor = 14, ; + BackStyle = 0, ; + Height = 7, ; + Left = 0, ; + Name = "Splitter", ; + rangemax = 373, ; + rangemin = 365, ; + SpecialEffect = 1, ; + Top = 321, ; + Visible = .F., ; + Width = 200 + *< END OBJECT: ClassLib="outlook2003bar.vcx" BaseClass="shape" /> + + ADD OBJECT 'Title' AS container WITH ; + Anchor = 11, ; + BorderWidth = 0, ; + Height = 35, ; + Left = 1, ; + Name = "Title", ; + Top = 1, ; + Width = 198 + *< END OBJECT: BaseClass="container" /> + + ADD OBJECT 'Title.lblCaption' AS label WITH ; + BackStyle = 0, ; + Caption = "Caption", ; + FontBold = .T., ; + FontSize = 10, ; + ForeColor = 255,255,255, ; + Height = 30, ; + Left = 7, ; + Name = "lblCaption", ; + Top = 0, ; + Width = 190, ; + WordWrap = .T. + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Title.linBorder' AS line WITH ; + Anchor = 14, ; + Height = 0, ; + Left = 0, ; + Name = "linBorder", ; + Top = 31, ; + Width = 198 + *< END OBJECT: BaseClass="line" /> + + HIDDEN PROCEDURE addbutton && Internal to the class. Add a new button. + Lparameters lcCaption, lcPicture24, lcPicture16 + Thisform.LockScreen = .T. + With This + .Panel.AddButton(lcCaption, lcPicture24) + .OverflowPanel.AddButton(lcCaption, lcPicture16) + If .ShowedButtons<.MaxShowedButtons + .ShowMore() + Endif + .AdjustSplitterLimits() + Endwith + Thisform.LockScreen = .F. + ENDPROC + + PROCEDURE adjustpanelheight && Internal to the class. Adjust the panel height to show the buttons. + Local lnTopoAtual, lnAlturaDoPainel, lnShowedButtons + + With This + With .Splitter + .Anchor = 0 + lnTopoAtual = .Top + Local lnResto + Do While .T. + lnAlturaDoPainel = .Parent.OverflowPanel.Top - 6 - lnTopoAtual + lnResto = Mod(lnAlturaDoPainel,32) + If lnResto <> 0 + lnTopoAtual = lnTopoAtual - (32 - lnResto) + Else + .Top = lnTopoAtual + Exit + Endif + Enddo + .Anchor = 14 + Endwith + + With .SplitBar + .Anchor = 0 + .Top = lnTopoAtual + .Anchor = 14 + Endwith + + With .Panes + .Anchor = 0 + .Height = lnTopoAtual - .Top + .Anchor = 15 + Endwith + + With .Panel + .Anchor = 0 + .Top = lnTopoAtual + 6 + .Height = lnAlturaDoPainel + .Anchor = 14 + lnShowedButtons = Int(lnAlturaDoPainel / 32) + Endwith + + .ShowedButtons = lnShowedButtons + .ReArrangeButtons() + Endwith + ENDPROC + + PROCEDURE adjustsplitterlimits && Internal to the class. Adjust splitter RangeMin and RangeMax limits. + With This + With .Splitter + .RangeMax = This.OverflowPanel.Top + 2 + .RangeMin = .RangeMax - .Height - 1 - ; + (Min(This.Panel.ControlCount,This.MaxShowedButtons) * 32) + Endwith + .AdjustPanelHeight() + Endwith + ENDPROC + + HIDDEN PROCEDURE creategradientimage && Create a gradient image. + Lparameters lnRGBColor1, lnRGBColor2, lnGradPixels, lcGradFile + Local lnGradMode, lnGradPixels, x1, y1, x2, y2, lnWidth, lnHeight + + lnGradMode = 1 + Do Case + Case lnGradMode = 1 && Vertical + x1 = 0 + y1 = 0 + x2 = 1 + y2 = lnGradPixels + Case lnGradMode = 2 && Horizontal + x1 = 0 + y1 = 0 + x2 = lnGradPixels + y2 = 1 + Case lnGradMode = 3 && Diagonal TopLeft -> BottomRight + x1 = 0 + y1 = 0 + x2 = lnGradPixels + y2 = lnGradPixels + Case lnGradMode = 4 && Diagonal BottomLeft -> TopRight + x1 = 0 + y1 = lnGradPixels + x2 = lnGradPixels + y2 = 0 + Endcase + + lnWidth = Iif(lnGradMode = 1, 1, lnGradPixels) + lnHeight = Iif(lnGradMode = 2, 1, lnGradPixels) + + * Create Gradient Image + Set Classlib To _gdiplus Additive + + * Create a colorObject and store ARGB color values to variables + Local loClr As GpColor Of _gdiplus + Local lnColor1, lnColor2 + loClr = Createobject("gpColor") + loClr.FoxRGB = lnRGBColor1 + lnColor1 = loClr.ARGB + loClr.FoxRGB = lnRGBColor2 + lnColor2 = loClr.ARGB + + * Create a bitmap + Local loBmp As GpBitmap Of _gdiplus + loBmp = Createobject("gpBitmap") + loBmp.Create(lnWidth, lnHeight) + + * Get a bitmab graphics object + Local loGfx As GpGraphics Of _gdiplus + loGfx = Createobject("gpGraphics") + loGfx.CreateFromImage(loBmp) + + * Declare API + Declare Long GdipCreateLineBrushI In GDIPlus ; + String point1, String point2, ; + Long color1, Long color2, ; + Long wrapMode, Long @lineGradient + + * Get a gradient brush + Local loBrush As GpBrush Of _gdiplus + Local hBrush && Brush Handle + hBrush = 0 + GdipCreateLineBrushI(BinToC(x1,"4rs")+BinToC(y1,"4rs"), ; + BINTOC(x2,"4rs")+BinToC(y2,"4rs"), ; + lnColor1, lnColor2, 0, @hBrush) + loBrush = Createobject("gpBrush") + loBrush.SetHandle(hBrush, .T.) + + * Fill the bitmap with our gradient + loGfx.FillRectangle(loBrush,0,0,lnWidth, lnHeight) + loBmp.SaveToFile(lcGradFile,"image/bmp") + + Return + + ENDPROC + + PROCEDURE Destroy + With This + If .ThemesSupport + Unbindevents(0, 0x031A) + Endif + Local laImages[6], lnImage + laImages[1] = .ImgFocusedSelected + laImages[2] = .ImgFocusedNotSelected + laImages[3] = .ImgNotFocusedSelected + laImages[4] = .ImgNotFocusedNotSelected + laImages[5] = .ImgTitle + laImages[6] = .ImgSplitBar + Endwith + For lnImage=1 To Alen(laImages,1) + If Not Empty(laImages[lnImage]) + If File(laImages[lnImage]) + Clear Resources (laImages[lnImage]) + Erase (laImages[lnImage]) + Endif + Endif + Endfor + ENDPROC + + PROCEDURE Init + With Thisform + .MinHeight = This.Height + 4 + .MinWidth = This.Width + 4 + .ShowTips = .T. + Endwith + + With This + *!* .ImgFocusedSelected = Addbs(Sys(2023))+Sys(2015)+".bmp" + *!* .ImgFocusedNotSelected = Addbs(Sys(2023))+Sys(2015)+".bmp" + *!* .ImgNotFocusedSelected = Addbs(Sys(2023))+Sys(2015)+".bmp" + *!* .ImgNotFocusedNotSelected = Addbs(Sys(2023))+Sys(2015)+".bmp" + *!* .ImgTitle = Addbs(Sys(2023))+Sys(2015)+".bmp" + *!* .ImgSplitBar = Addbs(Sys(2023))+Sys(2015)+".bmp" + .ImgFocusedSelected = "outlook2003bar_1.bmp" + .ImgFocusedNotSelected = "outlook2003bar_2.bmp" + .ImgNotFocusedSelected = "outlook2003bar_3.bmp" + .ImgNotFocusedNotSelected = "outlook2003bar_4.bmp" + .ImgTitle = "outlook2003bar_5.bmp" + .ImgSplitBar = "outlook2003bar_6.bmp" + .SetColorScheme() + With .Panes + Local loPane + For Each loPane In .Pages + This.AddButton(loPane.Caption,loPane.Picture24,loPane.Picture16) + Endfor + loPane = Null + Endwith + If .ThemesSupport + Bindevent(0, 0x031A, This, "SetColorScheme") + Endif + Endwith + ENDPROC + + HIDDEN PROCEDURE rearrangebuttons && Internal to the class. Rearrange buttons to show in correctly order and position. + With This.OverflowPanel + Local lnLeft, lnMaxShowedButtons, lnControlCount, lnControl, llVisible + With .Menubutton + lnLeft = .Left + lnMaxShowedButtons = Int(.Left / .Width) + Endwith + lnControlCount = .ControlCount + For lnControl=lnControlCount To 2 Step -1 + With .Controls(lnControl) + llVisible = .F. + If .TabIndex > This.ShowedButtons + If lnControl <= (This.ShowedButtons + lnMaxShowedButtons + 1) + lnLeft = lnLeft - .Width + .Anchor = 0 + .Left = lnLeft + .Anchor = 9 + llVisible = .T. + Endif + Endif + .Visible = llVisible + Endwith + Endfor + Endwith + ENDPROC + + HIDDEN PROCEDURE selectedbutton_assign && Internal to the class. Occurs when SelectedButton property is changed. + Lparameters vNewVal + With This + Local lnOldSelectedButton, lcTitle + lnOldSelectedButton = .SelectedButton + .SelectedButton = m.vNewVal + + With .Panel + If lnOldSelectedButton>0 + .Controls(lnOldSelectedButton).ChangeBackground() + Endif + .Controls(m.vNewVal).ChangeBackground() + lcTitle = .Controls(m.vNewVal).lblCaption.Caption + Endwith + + With .OverflowPanel + If lnOldSelectedButton>0 + .Controls(lnOldSelectedButton+1).ChangeBackground() + Endif + .Controls(m.vNewVal+1).ChangeBackground() + Endwith + + .Title.lblCaption.Caption = lcTitle + .Panes.ActivePage = m.vNewVal + Endwith + ENDPROC + + HIDDEN PROCEDURE setcolorscheme && Set color scheme. + Lparameters HWnd As Integer, Msg As Integer, ; + wParam As Integer, Lparam As Integer) + With This + Local lnTheme + If .ThemeNumber==0 && Automatic + lnTheme = 1 && Blue + If .ThemesSupport + Local lnSysColor + Declare Integer GetSysColor In Win32Api Integer + lnSysColor = GetSysColor(2) + Clear Dlls GetSysColor + Do Case + Case lnSysColor == 12632256 && Silver + lnTheme = 2 + Case lnSysColor == 6922635 && Olive + lnTheme = 3 + Endcase + Endif + Else + lnTheme = .ThemeNumber + Endif + + If lnTheme <> 4 && Not user defined + * Focused and selected + .rgbFocusedSelectedStart = Rgb(247,192,91) + .rgbFocusedSelectedEnd = Rgb(255,255,220) + * Focused and not selected + .rgbFocusedNotSelectedStart = Rgb(255,255,220) + .rgbFocusedNotSelectedEnd = Rgb(247,192,91) + * Not Focused and selected + .rgbNotFocusedSelectedStart = Rgb(250,229,147) + .rgbNotFocusedSelectedEnd = Rgb(238,149,21) + Do Case + Case lnTheme = 3 &&6922635 && Olive + * Border + .rgbBorder = Rgb(125,134,118) + * Not Focused and not selected + .rgbNotFocusedNotSelectedStart = Rgb(230,242,200) + .rgbNotFocusedNotSelectedEnd = Rgb(175,191,144) + * Title + .rgbTitleStart = Rgb(174,188,137) + .rgbTitleEnd = Rgb(104,119,74) + Case lnTheme = 2 && 12632256 && Silver + * Border + .rgbBorder = Rgb(132,131,136) + * Not Focused and not selected + .rgbNotFocusedNotSelectedStart = Rgb(220,222,236) + .rgbNotFocusedNotSelectedEnd = Rgb(152,152,177) + * Title + .rgbTitleStart = Rgb(166,167,189) + .rgbTitleEnd = Rgb(118,117,153) + Otherwise && Blue + * Border + .rgbBorder = Rgb(0,45,150) + * Not Focused and not selected + .rgbNotFocusedNotSelectedStart = Rgb(203,225,252) + .rgbNotFocusedNotSelectedEnd = Rgb(126,165,224) + * Title + .rgbTitleStart = Rgb(85,131,211) + .rgbTitleEnd = Rgb(8,60,161) + Endcase + Endif + + Local lnRgbBorder, laColors[6,4], loButton, lnImage + lnRgbBorder = .rgbBorder + + * Focused and selected + laColors[1,1] = .rgbFocusedSelectedStart + laColors[1,2] = .rgbFocusedSelectedEnd + laColors[1,3] = 32 + laColors[1,4] = .ImgFocusedSelected + * Focused and not selected + laColors[2,1] = .rgbFocusedNotSelectedStart + laColors[2,2] = .rgbFocusedNotSelectedEnd + laColors[2,3] = 32 + laColors[2,4] = .ImgFocusedNotSelected + * Not Focused and selected + laColors[3,1] = .rgbNotFocusedSelectedStart + laColors[3,2] = .rgbNotFocusedSelectedEnd + laColors[3,3] = 32 + laColors[3,4] = .ImgNotFocusedSelected + * Not Focused and not selected + laColors[4,1] = .rgbNotFocusedNotSelectedStart + laColors[4,2] = .rgbNotFocusedNotSelectedEnd + laColors[4,3] = 32 + laColors[4,4] = .ImgNotFocusedNotSelected + + * Title + laColors[5,1] = .rgbTitleStart + laColors[5,2] = .rgbTitleEnd + laColors[5,3] = 32 + laColors[5,4] = .ImgTitle + * SplitBar + laColors[6,1] = .rgbTitleStart + laColors[6,2] = .rgbTitleEnd + laColors[6,3] = 7 + laColors[6,4] = .ImgSplitBar + + .Title.Picture = "" + .SplitBar.Picture = "" + For Each loButton In .Panel.Controls + loButton.Picture = "" + Endfor + loButton = Null + With .OverflowPanel + .Picture = "" + For Each loButton In .Controls + loButton.Picture = "" + Endfor + Endwith + loButton = Null + + For lnImage=Iif(Evl(Msg,0)==0,1,4) To 6 + If File(laColors[lnImage,4]) + Clear Resources (laColors[lnImage,4]) + Erase (laColors[lnImage,4]) + Endif + .CreateGradientImage(laColors[lnImage,1], laColors[lnImage,2], ; + laColors[lnImage,3], laColors[lnImage,4]) + Endfor + + .BorderColor = lnRgbBorder + With .Title + .BorderColor = lnRgbBorder + .Picture = This.ImgTitle + .linBorder.BorderColor = lnRgbBorder + Endwith + .Splitter.BorderColor = lnRgbBorder + With .SplitBar + .Picture = This.ImgSplitBar + .BorderColor = lnRgbBorder + Endwith + With .Panel + .BorderColor = lnRgbBorder + For Each loButton In .Controls + With loButton + .ChangeBackground(.F.) + .BorderColor = lnRgbBorder + .linBorder.BorderColor = lnRgbBorder + Endwith + Endfor + Endwith + loButton = Null + With .OverflowPanel + .Picture = laColors[4,4] + For Each loButton In .Controls + loButton.ChangeBackground(.F.) + Endfor + Endwith + loButton = Null + Endwith + Return .T. + ENDPROC + + PROCEDURE showless && Internal to the class. Show less buttons in the panel. + With This + With .Splitter + .Anchor = 0 + .Top = .Top + 32 + Endwith + .AdjustPanelHeight() + Endwith + ENDPROC + + PROCEDURE showmore && Internal to the class. Show more buttons in the panel. + With This + With .Splitter + .Anchor = 0 + .Top = .Top - 32 + Endwith + .AdjustPanelHeight() + Endwith + ENDPROC + + HIDDEN PROCEDURE themenumber_assign && Internal to the class. Occurs when ThemeNumber property is changed. + Lparameters vNewVal + If Between(vNewVal,0,4) + This.ThemeNumber = m.vNewVal + Else + This.ThemeNumber = 1 + Endif + ENDPROC + + HIDDEN PROCEDURE themessupport_access && Internal to the class. Occurs when ThemesSupport property is accessed. + With This + If Isnull(.ThemesSupport) + Local llThemesSupport + llThemesSupport = .F. + If .ThemeNumber==0 && Automatic + If Os(3)=="5" And Os(4)=="1" && Windows XP + Declare Long IsThemeActive In UXTHEME + llThemesSupport = (IsThemeActive()==1) + Clear Dlls IsThemeActive + Endif + Endif + .ThemesSupport = llThemesSupport + Endif + Endwith + Return This.ThemesSupport + ENDPROC + + PROCEDURE Panes.Init + With This + .SetAll("BackColor",.Parent.BackColor,"Page") + Endwith + ENDPROC + + PROCEDURE Splitter.Move + Lparameters nLeft, nTop, nWidth, nHeight + DoDefault(nLeft, nTop, nWidth, nHeight) + This.Parent.AdjustSplitterLimits() + ENDPROC + + PROCEDURE Splitter.split + This.Parent.AdjustPanelHeight() + ENDPROC + +ENDDEFINE + +DEFINE CLASS overflowpanel AS container + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="MenuButton" UniqueID="" Timestamp="" /> + + * + *m: addbutton && Add a new button to panel. + * + + * + BorderWidth = 0 + Height = 32 + Name = "overflowpanel" + Width = 198 + * + + ADD OBJECT 'MenuButton' AS overflowpanelbutton WITH ; + Anchor = 9, ; + Left = 174, ; + Name = "MenuButton", ; + imgPicture.Height = 16, ; + imgPicture.Name = "imgPicture", ; + imgPicture.Picture = outlook2003bararrow.png, ; + imgPicture.Width = 16 + *< END OBJECT: ClassLib="outlook2003bar.vcx" BaseClass="container" /> + + PROCEDURE addbutton && Add a new button to panel. + Lparameters lcCaption, lcPicture + With This + Local lnControlCount + lnControlCount = .ControlCount + 1 + + .Newobject("Button"+Alltrim(Str(lnControlCount - 1)),; + "OverflowPanelButton","Outlook2003Bar",,; + lcCaption,lcPicture) + Endwith + ENDPROC + + PROCEDURE MenuButton.changeselectedbutton + Local lnButtonCount + lnButtonCount = This.Parent.ControlCount - 1 + If lnButtonCount > 0 + Private loBar + loBar = This.Parent.Parent + With This.ShortcutMenu + .NewMenu() + Local laMenu[lnButtonCount, 2] + laMenu="" + Local loButton + For Each loButton In This.Parent.Controls + With loButton + If Upper(.Class) == Upper("OverflowPanelButton") And .Name <> This.Name + laMenu[.TabIndex, 1] = .imgPicture.ToolTipText + laMenu[.TabIndex, 2] = .imgPicture.Picture + Endif + Endwith + Endfor + loButton = Null + Local lnMenuItem + For lnMenuItem=1 To Alen(laMenu,1) + .AddMenuBar( laMenu[lnMenuItem, 1], ; + "loBar.Selectedbutton = Bar()", ; + "Picture '" + laMenu[lnMenuItem, 2] + "'",,; + .F.,.F.,(lnMenuItem==loBar.Selectedbutton) ) + Endfor + .AddMenuSeparator() + .AddMenuBar(loBar.mnuShowMoreText,; + "loBar.ShowMore()",,,.F.,; + loBar.Showedbuttons=loBar.MaxShowedbuttons,.F.) + .AddMenuBar(loBar.mnuShowLessText,; + "loBar.ShowLess()",,,.F.,; + loBar.Showedbuttons=0,.F.) + .ShowMenu() + .SetMenu() + Endwith + Release loBar + Endif + ENDPROC + + PROCEDURE MenuButton.Destroy + With This + .ShortcutMenu.ClearMenu() + .ShortcutMenu = Null + Endwith + ENDPROC + + PROCEDURE MenuButton.Init + Nodefault + This.AddProperty("ShortcutMenu",Newobject("_ShortcutMenu","_menu")) + ENDPROC + +ENDDEFINE + +DEFINE CLASS overflowpanelbutton AS container + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="imgPicture" UniqueID="" Timestamp="" /> + + * + *m: changebackground && Change button's background image. + *m: changeselectedbutton && Change selected button. + * + + * + BorderWidth = 0 + Height = 32 + MousePointer = 15 + Name = "overflowpanelbutton" + Width = 24 + * + + ADD OBJECT 'imgPicture' AS image WITH ; + BackStyle = 0, ; + Height = 16, ; + Left = 4, ; + MousePointer = 15, ; + Name = "imgPicture", ; + Top = 8, ; + Width = 16 + *< END OBJECT: BaseClass="image" /> + + PROCEDURE changebackground && Change button's background image. + Lparameters llGotFocus + #Define lnFocused 8 + #Define lnNotFocused 16 + #Define lnSelected 32 + #Define lnNotSelected 64 + Local lnState, lcImage + With This.Parent.Parent + lnState = (Iif(llGotFocus,lnFocused,lnNotFocused) + ; + Iif(.SelectedButton==This.TabIndex,lnSelected,lnNotSelected)) + Do Case + Case lnState = (lnFocused + lnSelected) + lcImage = .ImgFocusedSelected + Case lnState = (lnFocused + lnNotSelected) + lcImage = .ImgFocusedNotSelected + Case lnState = (lnNotFocused + lnSelected) + lcImage = .ImgNotFocusedSelected + Case lnState = (lnNotFocused + lnNotSelected) + lcImage = .ImgNotFocusedNotSelected + Otherwise + lcImage = "" + Endcase + Endwith + This.Picture = lcImage + ENDPROC + + PROCEDURE changeselectedbutton && Change selected button. + This.Parent.Parent.SelectedButton = This.TabIndex + ENDPROC + + PROCEDURE Click + This.ChangeSelectedButton() + ENDPROC + + PROCEDURE Init + Lparameters lcToolTipText, lcPicture + With This + .TabIndex = .TabIndex - 1 + .Top = 0 + .SetAll("ToolTipText",lcToolTipText) + .imgPicture.Picture = lcPicture + + If .TabIndex == 1 + .ChangeSelectedButton() + Else + .ChangeBackground(.F.) + Endif + Endwith + ENDPROC + + PROCEDURE MouseEnter + Lparameters nButton, nShift, nXCoord, nYCoord + This.ChangeBackground(.T.) + ENDPROC + + PROCEDURE MouseLeave + Lparameters nButton, nShift, nXCoord, nYCoord + This.ChangeBackground(.F.) + ENDPROC + + PROCEDURE imgPicture.Click + This.Parent.ChangeSelectedButton() + ENDPROC + +ENDDEFINE + +DEFINE CLASS pane AS page + *< CLASSDATA: Baseclass="page" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *p: picture16 && 16x16 image displayed in the panel buttons. + *p: picture24 && 24x24 image displayed in the panel buttons. + * + + * + BackColor = 255,255,255 + Caption = "Page1" + Height = 195 + Name = "pane" + picture16 = ("") + picture24 = ("") + Width = 195 + * + +ENDDEFINE + +DEFINE CLASS panel AS container + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: addbutton && Add a new button to panel. + * + + * + BackStyle = 0 + Height = 0 + Name = "panel" + Width = 200 + * + + PROCEDURE addbutton && Add a new button to panel. + Lparameters lcCaption, lcPicture + With This + .Newobject("Button"+Alltrim(Str(.ControlCount + 1)),; + "PanelButton","Outlook2003Bar",,; + lcCaption,lcPicture) + Endwith + ENDPROC + +ENDDEFINE + +DEFINE CLASS panelbutton AS container + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="lblCaption" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="linBorder" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="imgPicture" UniqueID="" Timestamp="" /> + + * + *m: changebackground && Change button's background image. + *m: changeselectedbutton && Change selected button. + *m: do_arata_formular + *m: do_date_generale + *m: do_facturare + *m: do_linkuri + *m: do_obiectul + *m: do_observatii + *m: do_termene_facturare + *m: do_termene_livrare + * + + * + Height = 32 + MousePointer = 15 + Name = "panelbutton" + Width = 198 + * + + ADD OBJECT 'imgPicture' AS image WITH ; + BackStyle = 0, ; + Height = 24, ; + Left = 4, ; + MousePointer = 15, ; + Name = "imgPicture", ; + Top = 4, ; + Width = 24 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'lblCaption' AS label WITH ; + Anchor = 10, ; + BackStyle = 0, ; + Caption = "", ; + FontBold = .T., ; + FontName = "Arial", ; + Height = 29, ; + Left = 38, ; + MousePointer = 15, ; + Name = "lblCaption", ; + Top = 2, ; + Width = 156, ; + WordWrap = .T. + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'linBorder' AS line WITH ; + Anchor = 14, ; + Height = 0, ; + Left = 0, ; + MousePointer = 15, ; + Name = "linBorder", ; + Top = 31, ; + Width = 198 + *< END OBJECT: BaseClass="line" /> + + PROCEDURE changebackground && Change button's background image. + Lparameters llGotFocus + #Define lnFocused 8 + #Define lnNotFocused 16 + #Define lnSelected 32 + #Define lnNotSelected 64 + Local lnState, lcImage + With This.Parent.Parent + lnState = (Iif(llGotFocus,lnFocused,lnNotFocused) + ; + Iif(.SelectedButton==This.TabIndex,lnSelected,lnNotSelected)) + Do Case + Case lnState = (lnFocused + lnSelected) + lcImage = .ImgFocusedSelected + Case lnState = (lnFocused + lnNotSelected) + lcImage = .ImgFocusedNotSelected + Case lnState = (lnNotFocused + lnSelected) + lcImage = .ImgNotFocusedSelected + Case lnState = (lnNotFocused + lnNotSelected) + lcImage = .ImgNotFocusedNotSelected + Otherwise + lcImage = "" + ENDCASE + + Endwith + This.Picture = lcImage + ENDPROC + + PROCEDURE changeselectedbutton && Change selected button. + This.Parent.Parent.SelectedButton = This.TabIndex + ENDPROC + + PROCEDURE Click + THIS.ChangeSelectedButton() + + this.do_arata_formular() + ENDPROC + + PROCEDURE do_arata_formular + IF !oprinc.pagefr1.page3.ct_part_nr_data1.llock + LOCAL lnRaspuns + oprinc.pagefr1.page3.ct_part_nr_data1.llock = .T. + + lnRaspuns = AMESSAGEBOX('Doriti sa salvati modificarile facute?',4+32,'Atentie') + oprinc.pagefr1.page3.ct_part_nr_data1.REFRESH() + IF lnRaspuns = 7 + RETURN + ELSE + + IF pnGNnumar<>0 AND UPPER(ALLTRIM(STR(pnGNnumar))) <> UPPER(ALLTRIM(goContract.numar)) + poGeneratorNumere.dezaloca_numar(13) + ENDIF + DO modifica_ctr_dg WITH goContract IN oproceduri_roacontracte.prg + + && sa nu mai faca de fiecare data do_cauta (sa aduca toate contactele de pe server) + Select cContracte + Locate For id_ctr = goContract.id_ctr + If Found() + Gather Name goContract Memo + Endif + ENDIF + ENDIF + + IF TYPE('podg_dg.but_termin1') <> 'U' + podg_dg.but_termin1.CLICK() + ENDIF + IF TYPE('podg_ob.but_termin1') <> 'U' + podg_ob.but_termin1.CLICK() + ENDIF + IF TYPE('podg_tf.but_termin1') <> 'U' + podg_tf.but_termin1.CLICK() + ENDIF + IF TYPE('podg_tl.but_termin1') <> 'U' + podg_tl.but_termin1.CLICK() + ENDIF + IF TYPE('podg_obs.but_termin1') <> 'U' + podg_obs.but_termin1.CLICK() + ENDIF + IF TYPE('podg_link.but_termin1') <> 'U' + podg_link.but_termin1.CLICK() + ENDIF + IF TYPE('podg_fact.but_termin1') <> 'U' + podg_fact.but_termin1.CLICK() + ENDIF + + IF !EMPTY(goContract.id_ctr) + DO CASE + CASE ALLTRIM(UPPER(THIS.lblCaption.CAPTION)) = 'DATE GENERALE' + THIS.do_date_generale() + CASE ALLTRIM(UPPER(THIS.lblCaption.CAPTION)) = 'OBIECTUL SI VALOAREA CONTRACTULUI' + THIS.do_obiectul() + CASE ALLTRIM(UPPER(THIS.lblCaption.CAPTION)) = 'TERMENE DE FACTURARE SI ACHITARE' + THIS.do_termene_facturare() + CASE ALLTRIM(UPPER(THIS.lblCaption.CAPTION)) = 'TERMENE DE LIVRARE/RECEPTIE SI GARANTII' + this.do_termene_livrare() + CASE ALLTRIM(UPPER(THIS.lblCaption.CAPTION)) = 'CLAUZE SPECIALE SI OBSERVATII' + THIS.DO_Observatii() + CASE ALLTRIM(UPPER(THIS.lblCaption.CAPTION)) = 'DOCUMENTE ATASATE' + THIS.DO_Linkuri() + CASE ALLTRIM(UPPER(THIS.lblCaption.CAPTION)) = 'FACTURARE' + THIS.DO_Facturare() + OTHERWISE + && AMESSAGEBOX('Altceva') + ENDCASE + ENDIF + + + ENDPROC + + PROCEDURE do_date_generale + DO FORM 'frm_dg_date_generale' NAME podg_dg + + + ENDPROC + + PROCEDURE do_facturare + PRIVATE poNote + STORE '' TO poNote + + LOCAL lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal + lcSchema1 = [] + lcSelect1 = [select denumire, id_nota from vcrm_note_vanzari nv] + lcOrder1 = [denumire] + lcgroup = [] + lcFiltru1 = [] + lcFiltruOriginal = [] + llModParam = .T. + llAfiseaza = .F. + + gencursor('poNote','crsNote', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) + poNote.ca_baza1.afisare() + + SELECT crsNote + + DO FORM 'frm_dg_fact' NAME podg_fact + + + + ENDPROC + + PROCEDURE do_linkuri + DO FORM 'frm_viz_atasamente' NAME podg_link + ENDPROC + + PROCEDURE do_obiectul + DO FORM 'frm_dg_obiectul' NAME podg_ob + ENDPROC + + PROCEDURE do_observatii + DO FORM 'frm_dg_observatii' NAME podg_obs + ENDPROC + + PROCEDURE do_termene_facturare + DO FORM 'frm_dg_tf' NAME podg_tf + ENDPROC + + PROCEDURE do_termene_livrare + DO FORM 'frm_dg_tl' NAME podg_tl + ENDPROC + + PROCEDURE Init + Lparameters lcCaption, lcPicture + Local lnBorderColor + With This + lnBorderColor = .Parent.Parent.rgbBorder + .Anchor = 0 + .BorderColor = lnBorderColor + .Left = 1 + .Top = ((.TabIndex*(.Height))-.Height) + .Anchor = 10 + + .lblCaption.Caption = lcCaption + .imgPicture.Picture = lcPicture + + .linBorder.BorderColor = lnBorderColor + + .ChangeBackground(.F.) + + .Visible = .T. + Endwith + ENDPROC + + PROCEDURE MouseEnter + Lparameters nButton, nShift, nXCoord, nYCoord + This.ChangeBackground(.T.) + ENDPROC + + PROCEDURE MouseLeave + Lparameters nButton, nShift, nXCoord, nYCoord + This.ChangeBackground(.F.) + ENDPROC + + PROCEDURE imgPicture.Click + This.Parent.ChangeSelectedButton() + + this.Parent.do_arata_formular() + + + + ENDPROC + + PROCEDURE lblCaption.Click + This.Parent.ChangeSelectedButton() + + this.Parent.do_arata_formular() + ENDPROC + +ENDDEFINE + +DEFINE CLASS splitter2 AS shape && Up-Down Splitter class. Support ActiveX controls. Author: gerald.santerre@siteintranet.qc.ca + *< CLASSDATA: Baseclass="shape" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: hidecontrols && internal use + *m: readme + *m: showcontrols && internal use + *m: split && This method is called at the end of the split operation. + *p: rangemax && The splitter can be dragged to the bottom up to this value. Pixels from the top of the parent. Value < 1 is percent of parent height. + *p: rangemin && The splitter can be dragged to the top down to this value. Value < 1 is percent of parent height. + *a: hiddencontrols[1,1] && Array of controls + * + + HIDDEN hiddencontrols + PROTECTED Init,MouseDown + * + Height = 4 + MousePointer = 7 + Name = "splitter2" + rangemax = 0.8 + rangemin = 0.2 + SpecialEffect = 0 + Width = 100 + * + + PROCEDURE Destroy + * decrement instance counter, if 0 release object (this.release Dlls) + + If type("_screen.___SplitterApi")="O" AND !ISNULL(_screen.___SplitterApi) + _screen.___SplitterApi.nInstances = _screen.___SplitterApi.nInstances - 1 + If _screen.___SplitterApi.nInstances <= 0 + _screen.___SplitterApi.nInstances = .Null. + _screen.RemoveObject("___SplitterApi") + Endif + Endif + + + ENDPROC + + HIDDEN PROCEDURE hidecontrols && internal use + * hide all controls include ActiveX with property visible inside container tObject + * without this splitter and form + + LPARAMETERS tObject,nIndex + * tObject is root object, if not passed, thisform is used + IF EMPTY(nIndex) + nIndex=2 + ENDIF + + LOCAL lcObjectBaseClass, lObject, lTempObject + * build collection hidden object for reverse setting in showcontrols + * set valid object + IF VARTYPE(tObject)="O" + lObject= tObject + ELSE + lObject= THISFORM + ENDIF + + * ignore this splitter + IF lObject = THIS + RETURN nIndex + ENDIF + + * unify + lcObjectBaseClass = LOWER(lObject.BASECLASS)+" " && " " for unique (page # pageframe) + + * do not hide form window + IF lcObjectBaseClass # "form " AND PEMSTATUS(lObject,"visible",5) + IF lObject.VISIBLE + DIMENSION this.HiddenControls[nIndex] + this.hiddencontrols[nIndex]=lObject + lObject.VISIBLE = .F. + nIndex=nIndex+1 + ENDIF + ENDIF + + * recurse for all children + DO CASE + CASE INLIST(lcObjectBaseClass,"pageframe ") + FOR EACH lTempObject IN lObject.PAGES + nIndex=THIS.hidecontrols(lTempObject,nIndex) + ENDFOR + CASE INLIST(lcObjectBaseClass,"form ","container ","page ") + FOR EACH lTempObject IN lObject.CONTROLS + nIndex=THIS.hidecontrols(lTempObject,nIndex) + ENDFOR + CASE INLIST(lcObjectBaseClass,"commandgroup ","optiongroup ") + FOR EACH lTempObject IN lObject.BUTTONS + nIndex=THIS.hidecontrols(lTempObject,nIndex) + ENDFOR + ENDCASE + + RETURN nIndex+1 + ENDPROC + + PROTECTED PROCEDURE Init + * API FUNCTIONS - declare only one for all splitter with this class + + IF !VARTYPE(_SCREEN.___SplitterApi)="O" + IF AT(UPPER((this.ClassLibrary)),UPPER(SET("Classlib")))=0 + SET CLASSLIB TO (this.ClassLibrary) ADDITIVE + ENDIF + _SCREEN.AddObject("___SplitterApi","SplitterAPI") + ELSE + _SCREEN.___SplitterApi.nInstances = _SCREEN.___SplitterApi.nInstances + 1 + ENDIF + RETURN VARTYPE(_SCREEN.___SplitterApi)="O" + + ENDPROC + + PROTECTED PROCEDURE MouseDown + Lparameters nButton, nShift, nXCoord, nYCoord + Local lcWindowName,lnScaleMode,lnMinRow,lnMaxRow,lnMRow1,lnMRow2 + Local lnRows,lnTop,lnOldTop,lnMin,oldMRow2 + Local llLockScreen,lnMousePointer + Local lhDC,lhMemDC,lhMemBmp,lHWnd,lnBmpHeight,nLeftOffset,nTopOffset,oContainer,xHeight + Local lcOldFormName,lhMemSplit + + If nButton#1 + Return + Endif + + lcOldFormName = Thisform.Name + Thisform.Name = Sys(2015) + + lcWindowName=Thisform.Name + lnScaleMode=Thisform.ScaleMode + Thisform.ScaleMode=3 && pixels + + oContainer=This.Parent + nLeftOffset=Objtoclient(This,2)-This.Left + nTopOffset=Objtoclient(This,1)-This.Top + + lnMRow1=Mrow(lcWindowName,3) + If Type("lnMRow1")#"N" Or lnMRow1<=0 + Thisform.ScaleMode=lnScaleMode + Thisform.Name = lcOldFormName + Return + Endif + + lnMRow1=lnMRow1-nTopOffset + If lnMRow1 <> This.Top+1 + lnMRow1 = This.Top+1 + Mouse At lnMRow1+nTopOffset, Mcol(lcWindowName,3) Pixels Window (lcWindowName) + Endif + + * set some vars + llLockScreen=Thisform.LockScreen + lnMousePointer=Thisform.MousePointer + Thisform.MousePointer= 7 + lnTop=This.Top + + * check two parent level for Height- suppose that parent form always present + If Pemstatus(oContainer,"Height",5) + xHeight = oContainer.Height + Else + If Pemstatus(oContainer.Parent,"PageHeight",5) + xHeight = oContainer.Parent.PageHeight + Else + * if error that oContainer.Height and oContainer.parent.width not exist, something wrong + xHeight = oContainer.Parent.Height + Endif + Endif + + * RangeMin (RangeMax) < 1 + * RangeMin (RangeMax) are used as coeficient (%/100) + * RangeMin (RangeMax) > 1 + * RangeMin (RangeMax) are used as absolute offset in pixels + * RangeMin (RangeMax) =0 + * RangeMin (RangeMax) are ignored - no restriction + Do Case + Case This.RangeMin <= 0 + lnMinRow=This.Height*2 + Case This.RangeMin > 1 + lnMinRow=Max(This.Height*2,Int(This.RangeMin)) + Case This.RangeMin < 1 + lnMinRow=Max(This.Height*2,Int(This.RangeMin*xHeight)) + Endcase + + Do Case + Case This.RangeMax <= 0 + lnMaxRow=xHeight-(This.Height*3) + Case This.RangeMax > 1 + lnMaxRow=Min(xHeight-(This.Height*3),This.RangeMax) + Case This.RangeMax < 1 + lnMaxRow=Min(xHeight-(This.Height*3),This.RangeMax*xHeight) + Endcase + + If lnMinRow>lnMaxRow + * nothing to move!!! + Thisform.ScaleMode=lnScaleMode + Thisform.Name = lcOldFormName + Return + Endif + + lnMRow2=lnMRow1 + oldMRow2=lnMRow2 + + #Define SRCCOPY 13369376 + + * API CALLS + If Thisform.ShowWindow= 2 + * workaround, when showwindow=2 the handle is not the right one... + * worst if you have a toolbar! + *#define GW_HWNDFIRST 0 + #Define GW_HWNDLAST 1 + *#define GW_HWNDNEXT 2 + *#define GW_HWNDPREV 3 + *#define GW_OWNER 4 + #Define GW_CHILD 5 + + lHWnd=Thisform.HWnd + lHWnd=GS_SplitGetWindow(lHWnd,GW_CHILD) + lHWnd=GS_SplitGetWindow(lHWnd,GW_HWNDLAST) + Else + lHWnd=Thisform.HWnd + Endif + + lhDC = GS_SplitGetDC(lHWnd) + lhMemDC = GS_SplitCreateCompatibleDC(lhDC) + * Take a copy of the portion of the form that can be dragged over + lnBmpHeight=This.Height + lhMemBmp = GS_SplitCreateCompatibleBitmap(lhDC, This.Width, lnBmpHeight) + lhMemSplit = GS_SplitCreateCompatibleBitmap(lhDC, This.Width, lnBmpHeight) + = GS_SplitSelectObject(lhMemDC , lhMemBmp) + = GS_SplitBitBlt(lhMemDC, 0, 0, This.Width, lnBmpHeight, ; + lhDC, This.Left+nLeftOffset, lnMRow1-1+nTopOffset, SRCCOPY) + = GS_SplitSelectObject(lhMemDC , lhMemSplit) + = GS_SplitBitBlt(lhMemDC, 0, 0, This.Width, lnBmpHeight, ; + lhDC, This.Left+nLeftOffset, lnMRow1-1+nTopOffset, SRCCOPY) + + * Stop fox drawing in the screen + Thisform.LockScreen=.T. + This.hidecontrols(oContainer) + + * update the display while dragging + Do While Mdown() + DoEvents + lnMRow2=Mrow(lcWindowName,3)-nTopOffset + If Type("lnMRow2")#"N" Or lnMRow2=0 + Loop + Endif + If lnMRow2<=lnMinRow + *force the mouse to stay at this position + Mouse At lnMinRow+nTopOffset, Mcol(lcWindowName,3) Pixels Window (lcWindowName) + lnMRow2=lnMinRow+1 + Endif + If lnMRow2>=(lnMaxRow-This.Height) + *force the mouse to stay at this position + Mouse At lnMaxRow-This.Height+nTopOffset, Mcol(lcWindowName,3) Pixels Window (lcWindowName) + lnMRow2=lnMaxRow-This.Height + Endif + lnMRow2=Min(Max(lnMRow2,lnMinRow),lnMaxRow) + If oldMRow2=lnMRow2 + Loop + Else + * on mouse move, redraw a part of the screen from the memory copy + * and draw "this" image at the mouse position + * bitblt (dest...source...) + With This + .Top=lnTop+(lnMRow2-lnMRow1) + *restore + = GS_SplitSelectObject(lhMemDC , lhMemBmp) + = GS_SplitBitBlt(lhDC, .Left+nLeftOffset, oldMRow2-1+nTopOffset, .Width, .Height+3,; + lhMemDC, 0, 0, SRCCOPY) + *take a new copy + = GS_SplitBitBlt(lhMemDC, 0, 0, This.Width, lnBmpHeight, ; + lhDC, This.Left+nLeftOffset, lnMRow2-1+nTopOffset, SRCCOPY) + *draw + = GS_SplitSelectObject(lhMemDC , lhMemSplit) + = GS_SplitBitBlt(lhDC, .Left+nLeftOffset, .Top+nTopOffset, .Width, .Height+1,; + lhMemDC, 0, 0, SRCCOPY) + + Endwith + oldMRow2=lnMRow2 + Endif + Enddo + + This.showcontrols() + Thisform.Name = lcOldFormName + + If lnMRow2<0 + lnMRow2=lnMRow1 + Endif + + lnRows=lnMRow2-lnMRow1 + This.Top=lnTop+lnRows + Thisform.ScaleMode=lnScaleMode + Thisform.MousePointer=lnMousePointer + + This.Split() + + Thisform.LockScreen=llLockScreen + + * free the memory + = GS_SplitReleaseDC(lHWnd, lhDC) + = GS_SplitDeleteObject(lhMemBmp) + = GS_SplitDeleteObject(lhMemSplit) + = GS_SplitDeleteDC(lhMemDC) + ENDPROC + + HIDDEN PROCEDURE readme + *!* Splitter class + *!* May 2004 + + *!* Active-X controls always drive me nuts because they use there own windows handle. + *!* You cannot put a fox native control over them to resize the control visually. + *!* You have to use some tricks like changing the control to + *!* another one for this operation and rechange it back after. + *!* ( See the class browser code ) + + *!* What I want is a splitter that can handle this in a visual way + *!* while keeping the form (look) unchanged until the end of the split. + + *!* After many try and fail, I have finally found a way to do it + *!* by the use of API calls. IT WORK!!! + *!* Days of work to end with only a couple of code lines :) + + *!* I am not an API guru, so if you find a way to improve this class + *!* feel free to let me know how :) + + *!* Tested with VFP 8-7 on Windows 2000 + *!* (no animal other than the usual fox was used in the tests) + *!* Disclaimer: (...) <- put the usual disclaimer here! + + *!* Gérald Santerre + *!* gerald.santerre@siteintranet.qc.ca + + + *!* USAGE: + + *!* Drop this class on a form or a container between the objects that share the container. + + *!* New release, complete redesing. + *!* If you already use a previous version of the class, read this carefully. + *!* I have removed a couple of properties and change the way the classes work. + *!* For this reason I have also renamed the classlib to avoid conflicts + *!* with previous version of the class. The new design is cleaner and the control + *!* don't touch anything in the form (except hiding controls during split). + + *!* A large part of the new design is from suggestions received + *!* from "Jaromír Stacha" from Czech Republic. + *!* Thank you Jaromir :). + + *!* The new splitter classes don't move or resize controls anymore. + *!* The splitter.split() method is always called after a split operation + *!* and you have to resize/reposition your controls from this (fake)event. + *!* If you don't put code in the split() method, the form.resize() event + *!* of the form will be called. See the resize() and splitter1.split() + *!* method of the demo form for a working sample. + + *!* You have only 2 properties to set in the class, + *!* RangeMin and RangeMax. + *!* If you set the value of this properties between 0 and 1, + *!* the value is handled as a % of the splitter's parent container width ot height. + *!* For example, if you enter 0.2 as value for RangeMin, + *!* you will be able to move the splitter down to 20% of the width/height + *!* of the splitter's parent container. + *!* Values greater than 1 will be handle as absolute values. + *!* Don't forget to reset absolute values when the splitter's parent container is resized. + + *!* The splitter API is now self contained and you dont have + *!* to worry about releasing the references to API functions. + *!* The splitter now also handle correctly multiple instances + *!* of the same form (or forms with the same name). + *!* The splitter automatically hide every controls that are in + *!* the same parent container (recursive) to avoid side effects + *!* (like mouse cursor beam over text boxes). + + *!* Contact: gerald.santerre@siteintranet.qc.ca + + ENDPROC + + HIDDEN PROCEDURE showcontrols && internal use + * show temporary hidden objects and clear list (collection) + LPARAMETERS toRoot + + IF ALEN(THIS.hiddencontrols,1)<2 + RETURN + ENDIF + FOR i=2 TO ALEN(THIS.hiddencontrols,1) + IF TYPE("THIS.hiddencontrols[i]")="O" + THIS.hiddencontrols[i].Visible=.T. + ENDIF + ENDFOR + + DIMENSION THIS.hiddencontrols[1] + + ENDPROC + + PROCEDURE split && This method is called at the end of the split operation. + *default behaviour + THISFORM.RESIZE() + ENDPROC + +ENDDEFINE + +DEFINE CLASS splitterapi AS custom && Splitter API declaration class + *< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *p: ninstances + * + + * + Height = 15 + Name = "splitterapi" + ninstances = 1 + Width = 27 + * + + PROCEDURE Destroy + Clear Dlls ; + "GS_SplitGetDC",; + "GS_SplitCreateCompatibleDC",; + "GS_SplitCreateCompatibleBitmap",; + "GS_SplitSelectObject",; + "GS_SplitReleaseDC",; + "GS_SplitDeleteDC",; + "GS_SplitBitBlt",; + "GS_SplitGetWindow",; + "GS_SplitDeleteObject" + ENDPROC + + PROCEDURE Init + Declare Long GetDC in Win32API as GS_SplitGetDC Long hwnd + Declare Long CreateCompatibleDC in Win32API as GS_SplitCreateCompatibleDC Long hdc + Declare Long CreateCompatibleBitmap in Win32API as GS_SplitCreateCompatibleBitmap Long hdc, Long nWidth, Long nHeight + Declare Long SelectObject in Win32API as GS_SplitSelectObject Long hdc, Long hObject + Declare Long ReleaseDC in Win32API as GS_SplitReleaseDC Long hwnd, Long hdc + Declare Long DeleteDC in Win32API as GS_SplitDeleteDC Long hdc + Declare Long BitBlt in Win32API as GS_SplitBitBlt ; + Long hDestDC, Long x, Long y, Long nWidth, Long nHeight, ; + Long hSrcDC, Long xSrc, Long ySrc, Long dwRop + Declare INTEGER DeleteObject in Win32API as GS_SplitDeleteObject Long hObject + DECLARE INTEGER GetWindow IN user32 as GS_SplitGetWindow ; + INTEGER hwnd,; + INTEGER wFlag + + ENDPROC + +ENDDEFINE diff --git a/Clase/registry.h b/Clase/registry.h new file mode 100644 index 0000000..28df8d9 --- /dev/null +++ b/Clase/registry.h @@ -0,0 +1,79 @@ +*- Registry.h +*- Copyright (c) 1997 Microsoft Corporation + +* Operating System codes +#DEFINE OS_W32S 1 +#DEFINE OS_NT 2 +#DEFINE OS_WIN95 3 +#DEFINE OS_MAC 4 +#DEFINE OS_DOS 5 +#DEFINE OS_UNIX 6 + +* DLL Paths for various operating systems +#DEFINE DLLPATH_NT "\SYSTEM32\" +#DEFINE DLLPATH_WIN95 "\SYSTEM\" + +* DLL files used to read INI files +#DEFINE DLL_KERNEL_NT "KERNEL32.DLL" +#DEFINE DLL_KERNEL_WIN95 "KERNEL32.DLL" + +* DLL files used to read registry +#DEFINE DLL_ADVAPI_NT "ADVAPI32.DLL" +#DEFINE DLL_ADVAPI_WIN95 "ADVAPI32.DLL" + +* DLL files used to read ODBC info +#DEFINE DLL_ODBC_NT "ODBC32.DLL" +#DEFINE DLL_ODBC_WIN95 "ODBC32.DLL" + +* Registry roots +#DEFINE HKEY_CLASSES_ROOT -2147483648 && BITSET(0,31) +#DEFINE HKEY_CURRENT_USER -2147483647 && BITSET(0,31)+1 +#DEFINE HKEY_LOCAL_MACHINE -2147483646 && BITSET(0,31)+2 +#DEFINE HKEY_USERS -2147483645 && BITSET(0,31)+3 + +* Misc +#DEFINE APP_PATH_KEY "\Shell\Open\Command" +#DEFINE OLE_PATH_KEY "\Protocol\StdFileEditing\Server" +#DEFINE VFP_OPTIONS_KEY1 "Software\Microsoft\VisualFoxPro\" +#DEFINE VFP_OPTIONS_KEY2 "\Options" +#DEFINE CURVER_KEY "\CurVer" +#DEFINE ODBC_DATA_KEY "Software\ODBC\ODBC.INI\" +#DEFINE ODBC_DRVRS_KEY "Software\ODBC\ODBCINST.INI\" +#DEFINE SQL_FETCH_NEXT 1 +#DEFINE SQL_NO_DATA 100 + +* Error Codes +#DEFINE ERROR_SUCCESS 0 && OK +#DEFINE ERROR_EOF 259 && no more entries in key + +* Note these next error codes are specific to this Class, not DLL +#DEFINE ERROR_NOAPIFILE -101 && DLL file to check registry not found +#DEFINE ERROR_KEYNOREG -102 && key not registered +#DEFINE ERROR_BADPARM -103 && bad parameter passed +#DEFINE ERROR_NOENTRY -104 && entry not found +#DEFINE ERROR_BADKEY -105 && bad key passed +#DEFINE ERROR_NONSTR_DATA -106 && data type for value is not a data string +#DEFINE ERROR_BADPLAT -107 && platform not supported +#DEFINE ERROR_NOINIFILE -108 && DLL file to check INI not found +#DEFINE ERROR_NOINIENTRY -109 && No entry in INI file +#DEFINE ERROR_FAILINI -110 && failed to get INI entry +#DEFINE ERROR_NOPLAT -111 && call not supported on this platform +#DEFINE ERROR_NOODBCFILE -112 && DLL file to check ODBC not found +#DEFINE ERROR_ODBCFAIL -113 && failed to get ODBC environment + +* Data types for keys +#DEFINE REG_SZ 1 && Data string +#DEFINE REG_EXPAND_SZ 2 && Unicode string +#DEFINE REG_BINARY 3 && Binary data in any form. +#DEFINE REG_DWORD 4 && A 32-bit number. + +* Data types labels +#DEFINE REG_BINARY_LOC "*Binary*" && Binary data in any form. +#DEFINE REG_DWORD_LOC "*Dword*" && A 32-bit number. +#DEFINE REG_UNKNOWN_LOC "*Unknown type*" && unknown type + +* FoxPro ODBC drivers +#DEFINE FOXODBC_25 "FoxPro Files (*.dbf)" +#DEFINE FOXODBC_26 "Microsoft FoxPro Driver (*.dbf)" +#DEFINE FOXODBC_30 "Microsoft Visual FoxPro Driver" + diff --git a/Clase/registry.vct b/Clase/registry.vct new file mode 100644 index 0000000..d920166 Binary files /dev/null and b/Clase/registry.vct differ diff --git a/Clase/registry.vcx b/Clase/registry.vcx new file mode 100644 index 0000000..450f857 Binary files /dev/null and b/Clase/registry.vcx differ diff --git a/Clase/roaclienti.vc2 b/Clase/roaclienti.vc2 new file mode 100644 index 0000000..f44722c --- /dev/null +++ b/Clase/roaclienti.vc2 @@ -0,0 +1,218 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="roaclienti.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" && Application class. + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + clastcaption = Microsoft Visual FoxPro + clasticon = + Name = "capplication" + nformcount = 0 + * + + PROCEDURE doform + LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow + LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft + LOCAL lcFormName,lnFormCount + + _screen.visible=.t. + + lcFileName=UPPER(ALLTRIM(tcFileName)) + IF EMPTY(lcFileName) + RETURN .F. + ENDIF + lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"") + lcFileName=LOWER(FULLPATH(lcFileName)) + IF NOT "."$lcFileName + lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx") + ENDIF + IF NOT FILE(lcFileName) + this.FileNotFoundMsgBox(lcFileName) + RETURN .F. + ENDIF + lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass) + IF tlNoMultipleInstances + FOR lnCount = 1 TO this.nFormCount + IF this.aFormNames[lnCount]==lcFormName AND ; + TYPE("this.aForms[lnCount]")=="O" AND ; + NOT ISNULL(this.aForms[lnCount]) + this.aForms[lnCount].Show + RETURN .F. + ENDIF + ENDFOR + ENDIF + this.RefreshFormsCollection + this.nFormCount=this.nFormCount+1 + DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount] + this.aFormNames[this.nFormCount]=lcFormName + IF NOT EMPTY(lcClass) + SET CLASSLIB TO (lcFileName) ADDITIVE + this.aForms[this.nFormCount]=CREATEOBJECT(lcClass) + IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ; + NOT ISNULL(this.aForms[this.nFormCount]) + this.aForms[this.nFormCount].Show + ENDIF + ELSE + DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW + ENDIF + lnFormCount=this.nFormCount + this.RefreshFormsCollection + IF this.lCascadeForms AND this.nFormCount>=lnFormCount + oForm=this.aForms[this.nFormCount] + lnTop=oForm.Top + lnLeft=oForm.Left + lcName=oForm.Name + IF WEXIST(lcName) AND oForm.WindowState#2 + FOR lnCount = 1 TO (this.nFormCount-1) + oForm2=this.aForms[lnCount] + IF TYPE("oForm2")#"O" OR ISNULL(oForm2) + LOOP + ENDIF + IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ; + WLCOL(lcName)=WLCOL(oForm2.Name) + lnTop=lnTop+this.nPixelOffset + lnLeft=lnLeft+this.nPixelOffset + ENDIF + ENDFOR + IF oForm.Top#lnTop + oForm.Top=lnTop + ENDIF + IF oForm.Left#lnLeft + oForm.Left=lnLeft + ENDIF + ENDIF + ENDIF + + *!* modificat 14.12.2004 + *!* liana + IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri)) + this.aForms[this.nFormCount].Show + ENDIF + + ENDPROC + +ENDDEFINE + +DEFINE CLASS pg_meniu_princ AS pg_meniu OF "ofundal.vcx" + *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Page1.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" /> + + * + ActivePage = 1 + ErasePage = .T. + Height = 422 + Name = "pg_meniu_princ" + PageCount = 2 + Width = 401 + Page1.Caption = "Leasing" + Page1.Name = "Page1" + Page1.PageOrder = 1 + Page2.Caption = "Furnizori" + Page2.Name = "Page2" + Page2.PageOrder = 2 + * + + ADD OBJECT 'Page1.Cw2' AS cw WITH ; + Height = 20, ; + Left = 11, ; + Name = "Cw2", ; + nid_cw = 1, ; + ntip = 1, ; + TabIndex = 1, ; + Top = 37, ; + Width = 113, ; + LABEL_ITEM1.Caption = "Contracte", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw3' AS cw WITH ; + Height = 20, ; + Left = 11, ; + Name = "Cw3", ; + nid_cw = 1, ; + ntip = 1, ; + TabIndex = 1, ; + Top = 75, ; + Width = 113, ; + LABEL_ITEM1.Caption = "Rapoarte", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 7, ; + Name = "Pict_liniuta1", ; + Picture = ..\..\comun\grafice\f3.jpg, ; + Top = 63 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page2.Cw2' AS cw WITH ; + Height = 20, ; + Left = 11, ; + Name = "Cw2", ; + nid_cw = 1, ; + ntip = 1, ; + TabIndex = 1, ; + Top = 37, ; + Width = 113, ; + Label_item1.Caption = "Contracte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw3' AS cw WITH ; + Height = 20, ; + Left = 11, ; + Name = "Cw3", ; + nid_cw = 1, ; + ntip = 1, ; + TabIndex = 1, ; + Top = 75, ; + Width = 113, ; + Label_item1.Caption = "Rapoarte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 7, ; + Name = "Pict_liniuta1", ; + Picture = ..\grafice\f3.jpg, ; + Top = 63 + *< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" /> + + PROCEDURE Page1.Cw3.Init + + + ENDPROC + + PROCEDURE Page2.Cw3.Init + + + ENDPROC + +ENDDEFINE diff --git a/Clase/solution.vc2 b/Clase/solution.vc2 new file mode 100644 index 0000000..1df77bb --- /dev/null +++ b/Clase/solution.vc2 @@ -0,0 +1,65 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="solution.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS cmdclose AS commandbutton && Close button + *< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + Cancel = .T. + Caption = "Close" + FontBold = .F. + FontName = "MS Sans Serif" + FontSize = 8 + Height = 23 + Name = "cmdclose" + Width = 72 + * + + PROCEDURE Click + IF TYPE("THISFORM.Parent") = "O" + THISFORMSET.Release + ELSE + THISFORM.Release + ENDIF + ENDPROC + + PROCEDURE Error + LPARAMETERS nError, cMethod, nLine + LOCAL lnChoice + #DEFINE CR CHR(13) + DO CASE + CASE nError = 1545 && Uncommitted changes + *------------------------------------ + #DEFINE MSG1_LOC "Do you want to save your changes?" + #DEFINE MSG2_LOC "Uncommitted Changes" + lnChoice = MESSAGEBOX(MSG1_LOC, 4+48+0, MSG2_LOC) + DO CASE + CASE lnChoice = 6 && yes + =TABLEUPDATE(.T., .T.) + CASE lnChoice = 7 && no + =TABLEREVERT(.T.) + ENDCASE + OTHERWISE && Unanticipated error + *-------------------------------------- + #DEFINE NUM_LOC "Error Number: " + #DEFINE PROG_LOC "Program: " + #DEFINE CAP_LOC "ERROR" + lcMsg = NUM_LOC + ALLTRIM(STR(nError)) + CR + CR + ; + MESSAGE()+ CR + CR + PROG_LOC + PROGRAM(1) + lnChoice = MESSAGEBOX(lcMsg, 2+48+512, CAP_LOC) + DO CASE + CASE lnChoice = 3 &&Abort + CANCEL + CASE lnChoice = 4 &&Retry + RETRY + CASE lnChoice = 5 &&Ignore + RETURN + ENDCASE + ENDCASE + + ENDPROC + +ENDDEFINE diff --git a/Clase/utility.vc2 b/Clase/utility.vc2 new file mode 100644 index 0000000..70dfae0 --- /dev/null +++ b/Clase/utility.vc2 @@ -0,0 +1,83 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="utility.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS menulib AS container + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + * + *m: deactivatemenu + *m: showmenu + * + + * + BackColor = 0,0,255 + Height = 15 + Name = "menulib" + Visible = .F. + Width = 50 + * + + PROCEDURE deactivatemenu + DEACTIVATE MENU _popShortcutMenu + + ENDPROC + + PROCEDURE Destroy + this.DeactivateMenu + + ENDPROC + + PROCEDURE showmenu + LPARAMETERS taMenu,tcOnSelection + LOCAL lcOnSelection,lnMenuCount,lnCount,llDoubleArray + LOCAL lcMenuItem,lcMenuSelection + EXTERNAL ARRAY taMenu + + IF PARAMETERS()=0 OR TYPE("taMenu")#"C" + RETURN .F. + ENDIF + lnMenuCount=0 + lnMenuCount=ALEN(taMenu,1) + IF lnMenuCount=0 + RETURN .F. + ENDIF + llDoubleArray=(ALEN(taMenu,2)>0) + ACTIVATE SCREEN + DEACTIVATE POPUP _popShortcutMenu + DEFINE POPUP _popShortcutMenu ; + FROM MROW(),MCOL() ; + MARGIN ; + RELATIVE ; + SHORTCUT + FOR lnCount = 1 TO lnMenuCount + lcMenuItem=IIF(llDoubleArray,taMenu[lnCount,1],taMenu[lnCount]) + DEFINE BAR lnCount OF _popShortcutMenu PROMPT (lcMenuItem) + ENDFOR + ON SELECTION POPUP _popShortcutMenu DEACTIVATE POPUP _popShortcutMenu + ACTIVATE POPUP _popShortcutMenu + RELEASE POPUP _popShortcutMenu + IF BAR()=0 + RETURN .F. + ENDIF + IF llDoubleArray + lcMenuSelection=taMenu[BAR(),2] + IF NOT EMPTY(lcMenuSelection) AND TYPE("lcMenuSelection")=="C" + lcOnSelection=ALLTRIM(lcMenuSelection) + ENDIF + IF EMPTY(lcOnSelection) + lcOnSelection=ALLTRIM(IIF(EMPTY(tcOnSelection),"",tcOnSelection)) + ENDIF + ELSE + lcOnSelection=ALLTRIM(IIF(EMPTY(tcOnSelection),"",tcOnSelection)) + ENDIF + IF EMPTY(lcOnSelection) + RETURN .F. + ENDIF + &lcOnSelection + + ENDPROC + +ENDDEFINE diff --git a/Ferestre/ATENTIE1.sc2 b/Ferestre/ATENTIE1.sc2 new file mode 100644 index 0000000..1b4e6e9 --- /dev/null +++ b/Ferestre/ATENTIE1.sc2 @@ -0,0 +1,75 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="atentie1.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + Name = "Dataenvironment" + * + +ENDDEFINE + +DEFINE CLASS fatentie1 AS fatentie OF "..\clase\ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" /> + + * + BorderStyle = 3 + DoCreate = .T. + Height = 84 + Name = "Fatentie1" + Width = 353 + WindowType = 0 + Shape1.Height = 75 + Shape1.Left = 4 + Shape1.Name = "Shape1" + Shape1.Top = 4 + Shape1.Width = 344 + IMAGE1.Height = 32 + IMAGE1.Left = 24 + IMAGE1.Name = "IMAGE1" + IMAGE1.Top = 12 + IMAGE1.Width = 32 + Label1.Left = 64 + Label1.Name = "Label1" + Label1.Top = 14 + * + + ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ; + AutoSize = .F., ; + Caption = "\ + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + Caption = "Modificarile sunt ireversibile!", ; + FontSize = 12, ; + Height = 21, ; + Left = 129, ; + Name = "Label2", ; + Top = 14, ; + Width = 200 + *< END OBJECT: BaseClass="label" /> + + PROCEDURE Deactivate + thisform.release + ENDPROC + + PROCEDURE LostFocus + thisform.release + + ENDPROC + +ENDDEFINE diff --git a/Ferestre/frm_dg_date_generale.sc2 b/Ferestre/frm_dg_date_generale.sc2 new file mode 100644 index 0000000..d525a85 --- /dev/null +++ b/Ferestre/frm_dg_date_generale.sc2 @@ -0,0 +1,65 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_date_generale.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS frm_dg_date_generale1 AS frm_dg_date_generale OF "..\clase\ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + * + DoCreate = .T. + Name = "Frm_dg_date_generale1" + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Name = "Gridsort1" + Shape5.Name = "Shape5" + Shape4.Name = "Shape4" + Shape3.Name = "Shape3" + cmdValuta.Name = "cmdValuta" + ck_incetat.Alignment = 0 + ck_incetat.Name = "ck_incetat" + Label10.Name = "Label10" + txtDurata.Name = "txtDurata" + Label17.Name = "Label17" + txtValuta.Name = "txtValuta" + Label2.Name = "Label2" + txtData_incetat.Name = "txtData_incetat" + Label12.Name = "Label12" + cmdTip_ctr.Name = "cmdTip_ctr" + txtTip_ctr.Name = "txtTip_ctr" + ck_inactiv.Alignment = 0 + ck_inactiv.Name = "ck_inactiv" + ck_semnat.Alignment = 0 + ck_semnat.Name = "ck_semnat" + Label1.Name = "Label1" + txtData_inceput.Name = "txtData_inceput" + Label5.Name = "Label5" + txtData_sfarsit.Name = "txtData_sfarsit" + cmdResponsabil.Name = "cmdResponsabil" + Label14.Name = "Label14" + txtResponsabil.Name = "txtResponsabil" + cmdSectie.Name = "cmdSectie" + Label20.Name = "Label20" + txtSectie.Name = "txtSectie" + Label21.Name = "Label21" + txtMotiv_incetat.Name = "txtMotiv_incetat" + * + +ENDDEFINE diff --git a/Ferestre/frm_dg_fact.sc2 b/Ferestre/frm_dg_fact.sc2 new file mode 100644 index 0000000..fb26adc --- /dev/null +++ b/Ferestre/frm_dg_fact.sc2 @@ -0,0 +1,50 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_fact.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS frm_dg_fact1 AS frm_dg_fact OF "..\clase\ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + * + DoCreate = .T. + Name = "Frm_dg_fact1" + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Name = "Gridsort1" + Label1.Name = "Label1" + Optiongroup1.Name = "Optiongroup1" + Optiongroup1.OPTION1.Left = 5 + Optiongroup1.OPTION1.Name = "OPTION1" + Optiongroup1.OPTION1.Top = 5 + Optiongroup1.OPTION2.Left = 5 + Optiongroup1.OPTION2.Name = "OPTION2" + Optiongroup1.OPTION2.Top = 24 + Optiongroup1.OPTION3.Left = 5 + Optiongroup1.OPTION3.Name = "OPTION3" + Optiongroup1.OPTION3.Top = 43 + Optiongroup1.OPTION4.Left = 5 + Optiongroup1.OPTION4.Name = "OPTION4" + Optiongroup1.OPTION4.Top = 62 + Check1.Alignment = 0 + Check1.Name = "Check1" + * + +ENDDEFINE diff --git a/Ferestre/frm_dg_link.sc2 b/Ferestre/frm_dg_link.sc2 new file mode 100644 index 0000000..2f19566 --- /dev/null +++ b/Ferestre/frm_dg_link.sc2 @@ -0,0 +1,47 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_link.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS frm_dg_link1 AS frm_dg_link OF "..\clase\ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + * + DoCreate = .T. + Name = "Frm_dg_link1" + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Name = "Gridsort1" + grid_linkuri.COLUMN1.HEADER1.Name = "HEADER1" + grid_linkuri.COLUMN1.Name = "COLUMN1" + grid_linkuri.COLUMN1.Text1.Name = "Text1" + grid_linkuri.COLUMN2.HEADER1.Name = "HEADER1" + grid_linkuri.COLUMN2.Name = "COLUMN2" + grid_linkuri.COLUMN2.Text1.Name = "Text1" + grid_linkuri.COLUMN3.HEADER1.Name = "HEADER1" + grid_linkuri.COLUMN3.Name = "COLUMN3" + grid_linkuri.COLUMN3.Text1.Name = "Text1" + grid_linkuri.Name = "grid_linkuri" + BUT_NOU1.Name = "BUT_NOU1" + BUT_STERGE1.Name = "BUT_STERGE1" + But_sterge2.Name = "But_sterge2" + * + +ENDDEFINE diff --git a/Ferestre/frm_dg_obiectul.sc2 b/Ferestre/frm_dg_obiectul.sc2 new file mode 100644 index 0000000..aca2486 --- /dev/null +++ b/Ferestre/frm_dg_obiectul.sc2 @@ -0,0 +1,94 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_obiectul.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS frm_dg_obiectul1 AS frm_dg_obiectul OF "..\clase\ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + * + DoCreate = .T. + Name = "Frm_dg_obiectul1" + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Name = "Gridsort1" + Label2.Name = "Label2" + grid_articole.cCant.HEADER1.Name = "HEADER1" + grid_articole.cCant.Name = "cCant" + grid_articole.cCant.Text1.Name = "Text1" + grid_articole.cCoef_Discount.HEADER1.Name = "HEADER1" + grid_articole.cCoef_Discount.Name = "cCoef_Discount" + grid_articole.cCoef_Discount.Text1.Name = "Text1" + grid_articole.cNume_art.HEADER1.Name = "HEADER1" + grid_articole.cNume_art.Name = "cNume_art" + grid_articole.cNume_art.Text1.Name = "Text1" + grid_articole.CNUME_VAL.HEADER1.Name = "HEADER1" + grid_articole.CNUME_VAL.Name = "CNUME_VAL" + grid_articole.CNUME_VAL.Text1.Name = "Text1" + grid_articole.COLUMN1.HEADER1.Name = "HEADER1" + grid_articole.COLUMN1.Name = "COLUMN1" + grid_articole.COLUMN1.Text1.Name = "Text1" + grid_articole.COLUMN11.HEADER1.Name = "HEADER1" + grid_articole.COLUMN11.Name = "COLUMN11" + grid_articole.COLUMN11.Text1.Name = "Text1" + grid_articole.cPret_unitar.HEADER1.Name = "HEADER1" + grid_articole.cPret_unitar.Name = "cPret_unitar" + grid_articole.cPret_unitar.Text1.Name = "Text1" + grid_articole.cUM.HEADER1.Name = "HEADER1" + grid_articole.cUM.Name = "cUM" + grid_articole.cUM.Text1.Name = "Text1" + grid_articole.cValcDiscount.HEADER1.Name = "HEADER1" + grid_articole.cValcDiscount.Name = "cValcDiscount" + grid_articole.cValcDiscount.Text1.Name = "Text1" + grid_articole.cValoare.HEADER1.Name = "HEADER1" + grid_articole.cValoare.Name = "cValoare" + grid_articole.cValoare.Text1.Name = "Text1" + grid_articole.cVal_discount.HEADER1.Name = "HEADER1" + grid_articole.cVal_discount.Name = "cVal_discount" + grid_articole.cVal_discount.Text1.Name = "Text1" + grid_articole.Name = "grid_articole" + txtSumaArticole.Name = "txtSumaArticole" + Label21.Name = "Label21" + Label1.Name = "Label1" + txtDiscount.Name = "txtDiscount" + BUT_NOU1.Name = "BUT_NOU1" + BUT_STERGE1.Name = "BUT_STERGE1" + txtValcdiscount.Name = "txtValcdiscount" + Label3.Name = "Label3" + txtValDiscount.Name = "txtValDiscount" + Label5.Name = "Label5" + LABEL15.Name = "LABEL15" + txtProc_tva.Name = "txtProc_tva" + LABEL16.Name = "LABEL16" + Line1.Name = "Line1" + Label4.Name = "Label4" + Label6.Name = "Label6" + txtCoef_discount.Name = "txtCoef_discount" + txtValDiscountTotal.Name = "txtValDiscountTotal" + Line2.Name = "Line2" + Label7.Name = "Label7" + Label8.Name = "Label8" + txtValftva.Name = "txtValftva" + txtValctva.Name = "txtValctva" + Label9.Name = "Label9" + Label10.Name = "Label10" + * + +ENDDEFINE diff --git a/Ferestre/frm_dg_observatii.sc2 b/Ferestre/frm_dg_observatii.sc2 new file mode 100644 index 0000000..5daae39 --- /dev/null +++ b/Ferestre/frm_dg_observatii.sc2 @@ -0,0 +1,35 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_observatii.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS frm_dg_observatii1 AS frm_dg_observatii OF "..\clase\ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + * + DoCreate = .T. + Name = "Frm_dg_observatii1" + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Name = "Gridsort1" + Edit1.Name = "Edit1" + * + +ENDDEFINE diff --git a/Ferestre/frm_dg_tf.sc2 b/Ferestre/frm_dg_tf.sc2 new file mode 100644 index 0000000..c54fc7d --- /dev/null +++ b/Ferestre/frm_dg_tf.sc2 @@ -0,0 +1,70 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_tf.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS frm_dg_tf1 AS frm_dg_tf OF "..\clase\ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + * + DoCreate = .T. + Name = "Frm_dg_tf1" + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Name = "Gridsort1" + grid_scadentar.cData_rata.HEADER1.Name = "HEADER1" + grid_scadentar.cData_rata.Name = "cData_rata" + grid_scadentar.cData_rata.Text1.Name = "Text1" + grid_scadentar.cData_scadenta.HEADER1.Name = "HEADER1" + grid_scadentar.cData_scadenta.Name = "cData_scadenta" + grid_scadentar.cData_scadenta.Text1.Name = "Text1" + grid_scadentar.cDen_rata.HEADER1.Name = "HEADER1" + grid_scadentar.cDen_rata.Name = "cDen_rata" + grid_scadentar.cDen_rata.Text1.Name = "Text1" + grid_scadentar.cNr_rata.HEADER1.Name = "HEADER1" + grid_scadentar.cNr_rata.Name = "cNr_rata" + grid_scadentar.cNr_rata.Text1.Name = "Text1" + grid_scadentar.CNUME_VAL.HEADER1.Name = "HEADER1" + grid_scadentar.CNUME_VAL.Name = "CNUME_VAL" + grid_scadentar.CNUME_VAL.Text1.Name = "Text1" + grid_scadentar.cProcent.HEADER1.Name = "HEADER1" + grid_scadentar.cProcent.Name = "cProcent" + grid_scadentar.cProcent.Text1.Name = "Text1" + grid_scadentar.cValrata.HEADER1.Name = "HEADER1" + grid_scadentar.cValrata.Name = "cValrata" + grid_scadentar.cValrata.Text1.Name = "Text1" + grid_scadentar.Name = "grid_scadentar" + Label1.Name = "Label1" + txtRate.Name = "txtRate" + BUT_NOU1.Name = "BUT_NOU1" + BUT_STERGE1.Name = "BUT_STERGE1" + Label2.Name = "Label2" + txtProcente.Name = "txtProcente" + Label3.Name = "Label3" + Label6.Name = "Label6" + txtScadenta_incasare.Name = "txtScadenta_incasare" + LABEL13.Name = "LABEL13" + txtCoef_penalitati.Name = "txtCoef_penalitati" + Command1.Name = "Command1" + Command2.Name = "Command2" + Command3.Name = "Command3" + * + +ENDDEFINE diff --git a/Ferestre/frm_dg_tl.sc2 b/Ferestre/frm_dg_tl.sc2 new file mode 100644 index 0000000..64ab3a4 --- /dev/null +++ b/Ferestre/frm_dg_tl.sc2 @@ -0,0 +1,49 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_tl.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 0 + Left = 0 + Name = "Dataenvironment" + Top = 0 + Width = 0 + * + +ENDDEFINE + +DEFINE CLASS frm_dg_tl1 AS frm_dg_tl OF "..\clase\ferestre_contracte.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + * + DoCreate = .T. + Name = "Frm_dg_tl1" + _shape1.Name = "_shape1" + _shape2.Name = "_shape2" + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + BUT_TERMIN1.Name = "BUT_TERMIN1" + Gridsort1.Name = "Gridsort1" + Label1.Name = "Label1" + txtGrnt_pv_nr.Name = "txtGrnt_pv_nr" + txtGrnt_pv_data.Name = "txtGrnt_pv_data" + Label7.Name = "Label7" + Label4.Name = "Label4" + txtGrnt_proc_ret.Name = "txtGrnt_proc_ret" + Label2.Name = "Label2" + txtGrnt_val_ret.Name = "txtGrnt_val_ret" + Label3.Name = "Label3" + txtGrnt_alerta1.Name = "txtGrnt_alerta1" + Label5.Name = "Label5" + Label6.Name = "Label6" + txtGrnt_proc_alerta1.Name = "txtGrnt_proc_alerta1" + Label8.Name = "Label8" + Label9.Name = "Label9" + * + +ENDDEFINE diff --git a/Ferestre/fundal.sc2 b/Ferestre/fundal.sc2 new file mode 100644 index 0000000..1c600d6 --- /dev/null +++ b/Ferestre/fundal.sc2 @@ -0,0 +1,129 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 200 + Left = 1 + Name = "Dataenvironment" + Top = 220 + Width = 520 + * + +ENDDEFINE + +DEFINE CLASS form1 AS form + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + * + *m: jurnal + *m: statusbarclick + *p: ostatusbar + * + + * + AutoCenter = .T. + BackColor = 255,255,255 + BorderStyle = 2 + Caption = "" + Closable = .F. + ControlBox = .F. + DoCreate = .T. + Enabled = .T. + FillColor = 0,0,0 + HalfHeightCaption = .F. + Height = 429 + KeyPreview = .T. + MaxButton = .F. + MinButton = .F. + Movable = .F. + Name = "Form1" + ostatusbar = .F. + Picture = ..\..\ + Width = 797 + WindowState = 2 + * + + PROCEDURE Activate + oprinc.SHOW() + ENDPROC + + PROCEDURE jurnal + ENDPROC + + PROCEDURE KeyPress + + + + ENDPROC + + PROCEDURE RightClick + *!* modificare v 2.0.39 + *!* DO start_firma IN ostartfirma.prg + *!* verifica_drepturi('oprinc','pagefr1') + *!* actualizeaza_drepturi_roacontracte() + DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg + *!* modificare v 2.0.39 ^ + ENDPROC + + PROCEDURE Show + LPARAMETERS nStyle + + *!* Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian + *!* Trebuie adaugata o proprietate OstatusBar la forma + *!* si o metoda statusbarclik care sa contina comanda + *!* Thisform.oStatusBar.newtooltip() + *!* + If Not Pemstatus(_Screen,"StatusBar", 5) Then + *!* 31.01.2008 TEST FARA STATUSBAR + *!* _Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar.vcx", null, 3) + _Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", null, 3) + *!* 31.01.2008 TEST FARA STATUSBAR ^ + ENDIF + Thisform.oStatusBar = _Screen.StatusBar + Thisform.oStatusBar.ctlIcon="roastartmic.ico" + Thisform.oStatusBar.ctlMessage = _Screen.Caption + BindEvent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick]) + *!* end Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian + + + LOCAL c + IF primadata + primadata = .F. + + *!* modificare v 2.0.39 + *!* DO start_firma IN ostartfirma.prg + *!* ** + *!* DO viz_contracte IN oproceduri_roacontracte.prg + *!* SELECT cContracte + *!* SCATTER NAME goContract BLANK + DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg + *!* modificare v 2.0.39 ^ + oprinc=CREA('princ') + verifica_drepturi('oprinc','pagefr1') + actualizeaza_drepturi_roacontracte() + oprinc.lb_utilizator1.CAPTION=ALLTRIM(gcUserNameApp) + oprinc.lb_utilizator1.VISIBLE=.T. + ENDIF + + + primadata=.F. + + oprinc.SHOW() + + DO lansare_toolbar IN oproceduri_comune.prg + DO lansare_help IN oproceduri_comune.prg + + ENDPROC + + PROCEDURE statusbarclick + Thisform.oStatusBar.newtooltip() + ENDPROC + +ENDDEFINE diff --git a/Ferestre/startfirma.sc2 b/Ferestre/startfirma.sc2 new file mode 100644 index 0000000..b0beeec --- /dev/null +++ b/Ferestre/startfirma.sc2 @@ -0,0 +1,783 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="startfirma.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + Name = "Dataenvironment" + * + +ENDDEFINE + +DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Cmdrenunt1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" /> + + * + *m: seriadebaza + *p: ttanul + *p: ttfirma + *p: ttluna + * + + * + AutoCenter = .T. + BackColor = 255,255,255 + BorderStyle = 2 + DoCreate = .T. + Height = 474 + Name = "Ffergen1" + Picture = + Width = 500 + WindowType = 1 + Line1.Name = "Line1" + * + + ADD OBJECT 'Cmdrenunt1' AS cmdrenunt WITH ; + Left = 305, ; + Name = "Cmdrenunt1", ; + TabIndex = 12, ; + Top = 432 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ; + Left = 396, ; + Name = "Cmdtermin1", ; + TabIndex = 11, ; + Top = 432 + *< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Label1' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 255,0,0, ; + BackStyle = 0, ; + Caption = "Bun Venit! ", ; + FontBold = .T., ; + FontItalic = .T., ; + FontName = "Comic Sans MS", ; + FontShadow = .F., ; + FontSize = 18, ; + ForeColor = 255,0,0, ; + Height = 37, ; + Left = 48, ; + Name = "Label1", ; + TabIndex = 24, ; + Top = 60, ; + Width = 128, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label10' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "CONT 2003", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 23, ; + ForeColor = 0,0,0, ; + Height = 39, ; + Left = 21, ; + Name = "Label10", ; + TabIndex = 23, ; + Top = 20, ; + Width = 185, ; + ZOrderSet = 3 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label11' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Anul:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 112, ; + Name = "Label11", ; + TabIndex = 16, ; + Top = 403, ; + Width = 44, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label12' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Strada:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 94, ; + Name = "Label12", ; + TabIndex = 19, ; + Top = 296, ; + Width = 62, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label13' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Numarul:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 80, ; + Name = "Label13", ; + TabIndex = 17, ; + Top = 321, ; + Width = 74, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "CONT 2003", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 23, ; + ForeColor = 0,0,0, ; + Height = 39, ; + Left = 22, ; + Name = "Label2", ; + TabIndex = 13, ; + Top = 18, ; + Width = 185, ; + ZOrderSet = 4 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Luna contabila:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 30, ; + Name = "Label3", ; + TabIndex = 20, ; + Top = 373, ; + Width = 126, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label4' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Cod fiscal:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 71, ; + Name = "Label4", ; + TabIndex = 22, ; + Top = 150, ; + Width = 87, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label5' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Nr. Inreg. R.C.:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 32, ; + Name = "Label5", ; + TabIndex = 14, ; + Top = 177, ; + Width = 123, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label6' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Banca:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 97, ; + Name = "Label6", ; + TabIndex = 21, ; + Top = 204, ; + Width = 59, ; + ZOrderSet = 8 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label7' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Cont bancar:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 49, ; + Name = "Label7", ; + TabIndex = 15, ; + Top = 230, ; + Width = 106, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label8' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Localitatea:", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 60, ; + Name = "Label8", ; + TabIndex = 18, ; + Top = 269, ; + Width = 97, ; + ZOrderSet = 20 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label9' AS label WITH ; + Alignment = 0, ; + AutoSize = .T., ; + BackColor = 0,0,0, ; + BackStyle = 0, ; + Caption = "Numele firmei: ", ; + FontBold = .T., ; + FontName = "BankGothic Md BT", ; + FontShadow = .F., ; + FontSize = 12, ; + ForeColor = 0,0,0, ; + Height = 22, ; + Left = 42, ; + Name = "Label9", ; + TabIndex = 25, ; + Top = 122, ; + Width = 122, ; + ZOrderSet = 1 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Shape1' AS shape WITH ; + BackStyle = 0, ; + Height = 458, ; + Left = 10, ; + Name = "Shape1", ; + SpecialEffect = 0, ; + Top = 8, ; + Width = 480, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Shape2' AS shape WITH ; + BackStyle = 0, ; + Height = 0, ; + Left = 10, ; + Name = "Shape2", ; + SpecialEffect = 0, ; + Top = 356, ; + Width = 480, ; + ZOrderSet = 0 + *< END OBJECT: BaseClass="shape" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.cod_fiscal", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text1", ; + ReadOnly = .F., ; + TabIndex = 2, ; + Top = 148, ; + Value = , ; + Width = 225, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text10' AS textbox WITH ; + Alignment = 1, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.numar", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text10", ; + ReadOnly = .F., ; + TabIndex = 8, ; + Top = 319, ; + Value = , ; + Width = 102, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.luU", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text2", ; + ReadOnly = .F., ; + TabIndex = 9, ; + ToolTipText = "Introduceti (in cifre) numarul lunii contabile cu care doriti sa incepeti.", ; + Top = 371, ; + Value = , ; + Width = 102, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text3' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.an", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text3", ; + ReadOnly = .F., ; + TabIndex = 10, ; + ToolTipText = "Introduceti anul (inclusiv secolul).", ; + Top = 401, ; + Value = , ; + Width = 102, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text4' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.flung", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text4", ; + ReadOnly = .F., ; + TabIndex = 1, ; + ToolTipText = "Introduceti numele complet al noii firme", ; + Top = 120, ; + Value = , ; + Width = 225, ; + ZOrderSet = 2 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text5' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.reg_com", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text5", ; + ReadOnly = .F., ; + TabIndex = 3, ; + Top = 175, ; + Value = , ; + Width = 225, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text6' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.banca", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text6", ; + ReadOnly = .F., ; + TabIndex = 4, ; + Top = 202, ; + Value = , ; + Width = 225, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text7' AS textbox WITH ; + Alignment = 1, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.cont_banca", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K", ; + Height = 23, ; + Left = 192, ; + Name = "Text7", ; + ReadOnly = .F., ; + TabIndex = 5, ; + Top = 228, ; + Value = , ; + Width = 225, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text8' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.localitate", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text8", ; + ReadOnly = .F., ; + TabIndex = 6, ; + Top = 267, ; + Value = , ; + Width = 225, ; + ZOrderSet = 26 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text9' AS textbox WITH ; + Alignment = 0, ; + BackColor = 254,255,240, ; + BackStyle = 0, ; + BorderStyle = 1, ; + ControlSource = "m.strada", ; + FontName = "BankGothic Md BT", ; + FontSize = 11, ; + Format = "K!", ; + Height = 23, ; + Left = 192, ; + Name = "Text9", ; + ReadOnly = .F., ; + TabIndex = 7, ; + Top = 293, ; + Value = , ; + Width = 225, ; + ZOrderSet = 25 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Activate + *public m.luU,M.FSCURT + m.luU=alltrim(STR(MONTH(DATE()))) + m.luu=right(alltrim('0'+m.luu),2) + + *M.AN=ALLTRIM(STR(YEAR(DATE()))) + M.AN=STR(YEAR(DATE()),4) + m.nl=m.luu + + + ENDPROC + + PROCEDURE seriadebaza + LOCAL SB,SN,I,T,TIPAR + STORE '' TO SB,SN + T=RAND(-1) + *TIPAR='VOICUIONEMIL' + + DO seriadebaza IN proceduri.prg + + + *!* FOR I=1 TO 5 + *!* SB=SB+LITERA() + *!* NEXT + + *!* SELE CUL + *!* REPL RED WITH SB + *!* SN=GREEN + + + *!* IF SUBSTR(SN,3,1)=SUBSTR(SB,1,1) AND; + *!* SUBSTR(SN,6,1)=SUBSTR(SB,2,1) AND; + *!* SUBSTR(SN,9,1)=SUBSTR(SB,3,1) AND; + *!* SUBSTR(SN,12,1)=SUBSTR(SB,4,1) AND; + *!* SUBSTR(SN,15,1)=SUBSTR(SB,5,1) AND; + *!* SUBSTR(SN,VAL(M.NL)+floor((VAL(M.NL)-1)/2),1)=SUBSTR(TIPAR,VAL(M.NL),1) + *!* *DO MESAJ WITH 'Seria este corecta','' + *!* RETURN + *!* ELSE + + *!* FOR I=1 TO 17 + *!* SN=SN+LITERA() + *!* NEXT + + *!* FOR I=1 TO 5 + *!* SN=STUFF(SN, I*3, 1, SUBSTR(SB,I,1)) + *!* NEXT + *!* SN=STUFF(SN, VAL(M.NL)+floor((VAL(M.NL)-1)/2), 1, SUBSTR(TIPAR,VAL(M.NL),1)) + + *!* SELE CUL + *!* REPL GREEN WITH SN + *!* ENDIF + ENDPROC + + PROCEDURE Cmdtermin1.Click + *DO NOT RELEASE + ENDPROC + + PROCEDURE Cmdtermin1.Valid + PUBLIC LAN,LLUN + LOCAL I,J,NI + LAN='AN'+M.AN + LLUN='DATE'+M.NL + I=.F. + + *SCRIE NUMELE SCURT AL FIRMEI___________________ + sele firma + M.firma=upper(alltrim(m.flung)) + M.FSCURT=M.FIRMA + M.fscurt=upper(alltrim(m.fSCURT))+space(7) + M.fscurt=ALLTRIM(LEFT(ALLTRIM(M.fscurt),8)) + M.FSCURT=CHRTRAN(M.FSCURT,SPACE(8),'________') + + tt='Numele noii firme nu trebuie sa coincida cu numele altor firme. '+; + 'O firma al carui nume incepe cu <'+LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+; + '> exista deja! '+; + 'Este important ca primele 8 caractere sa fie diferite de <' + IF LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)!=LEFT(m.fscurt+"________",8) + ttt=LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+'> sau <'+LEFT(m.fscurt+"________",8)+'>.' + ELSE + ttt=LEFT(m.fscurt+"________",8)+'>.' + endif + + *!* SCAN + *!* IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA)) OR UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt)) THEN + *!* I=.T. + *!* omm=crea('textmare') + *!* omm.label2.caption=tt+ttt + *!* omm.show(1) + *!* RETURN + *!* ENDIF + *!* ENDSCAN + SCAN + IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA)) + I=.T. + omm=crea('textmare') + omm.label2.caption='Numele noii firme nu trebuie sa coincida cu numele altor firme.' + omm.show(1) + RETURN + ENDIF + ENDSCAN + + SCAN + IF UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt)) + I=.T. + m.fscurt=LEFT(m.fscurt,2)+LEFT(STRTRAN(TIME(),':',''),6) + exit + ENDIF + ENDSCAN + + + + *DACA FIRMA NU EXISTA DEJA_______________ + IF !I + appe blank + NFSCURT=M.FSCURT + m.calefirm=dirgen+'\'+nfscurt + calefirma=m.calefirm + *m.loctempo='C:\CONTAFIN\TEMP\' + GATHER MEMVAR + repl permis with '*' + REPL locTEMPO WITH '&DIRGEN\' + + *CONSTRUIESC ARBORE FISIERE FIRMA NOUA______________________________ + set defa to c: + if !directory('contafin') + md contafin + endif + set defa to c:\contafin + if !directory('temp') + md temp + endif + set defa to c:\contafin\temp + MD &NFSCURT + set defa to c:\contafin\temp\&nfscurt + md tempo + SET DEFA TO &DIRGEN + + SET DEFA TO &DIRGEN + MD &NFSCURT + CD &NFSCURT + MD DATEAN + MD LUNA + MD TEMPO + MD &LAN + CD &LAN + MD &LLUN + *COPIEZ FISIERELE STANDARD__________________ + close database + SET DEFA TO &DIRGEN + COPY FILE _ALFA\DATEAN\*.* TO &NFSCURT\DATEAN\*.* + COPY FILE _ALFA\LUNA\*.* TO &NFSCURT\LUNA\*.* + COPY FILE _ALFA\TEMPO\*.* TO &NFSCURT\TEMPO\*.* + COPY FILE _ALFA\AN0000\DATE00\*.* TO &NFSCURT\&LAN\&LLUN\*.* + COPY FILE _ALFA\TEMPO\*.* TO c:\contafin\temp\&NFSCURT\TEMPO\*.* + + + *SCRIU IN CALENDAR___________________ + DIRFIRM=DIRGEN+NFSCURT + sele 0 + USE &calefirma\DATEAN\CALENDAR alias cal + APPE BLANK + REPL NL WITH M.NL + REPL AN WITH M.AN + REPL SCONT WITH .T. + M.antet=ALLTRIM(M.FLUNG) + + THISFORM.RELEASE + *____________ + ENDIF + + DO TOTV + + THISFORM.SERIADEBAZA + + SELE LUNILEAN + SEEK (M.NL) + M.LUNA=NUMELUNA + + *schimb titlul__________________ + capapl="CONT2000 Firma "+UPPER(rTRIM(m.flung))+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN + goApp.SetCaption(capapl) + + + ENDPROC + + PROCEDURE Text2.Valid + m.nl=RIGHT('0'+ALLTRIM(m.lUU),2) + + + + + ENDPROC + + PROCEDURE Text3.Valid + M.AN=ALLTRIM(THIS.VALUE) + + ENDPROC + + PROCEDURE Text4.MouseMove + LPARAMETERS nButton, nShift, nXCoord, nYCoord + ENDPROC + + PROCEDURE Text4.Valid + if alltrim(m.flung)=="" then + wait wind "Introduceti numele firmei!" + return 0 + endif + + ENDPROC + + PROCEDURE Text4.When + *thisform.label8.caption=thisform.ttFIRMA + ENDPROC + +ENDDEFINE diff --git a/Grafice/C.ico b/Grafice/C.ico new file mode 100644 index 0000000..ce97f71 Binary files /dev/null and b/Grafice/C.ico differ diff --git a/Grafice/CHECKMRK.ICO b/Grafice/CHECKMRK.ICO new file mode 100644 index 0000000..2eb7ca6 Binary files /dev/null and b/Grafice/CHECKMRK.ICO differ diff --git a/Grafice/Calendar Multiweek 16.png b/Grafice/Calendar Multiweek 16.png new file mode 100644 index 0000000..4f29215 Binary files /dev/null and b/Grafice/Calendar Multiweek 16.png differ diff --git a/Grafice/Calendar Multiweek 24.png b/Grafice/Calendar Multiweek 24.png new file mode 100644 index 0000000..2ee9d64 Binary files /dev/null and b/Grafice/Calendar Multiweek 24.png differ diff --git a/Grafice/Cont12.ico b/Grafice/Cont12.ico new file mode 100644 index 0000000..c6360c1 Binary files /dev/null and b/Grafice/Cont12.ico differ diff --git a/Grafice/Contacts 16.png b/Grafice/Contacts 16.png new file mode 100644 index 0000000..b1b03fa Binary files /dev/null and b/Grafice/Contacts 16.png differ diff --git a/Grafice/Contacts 24.png b/Grafice/Contacts 24.png new file mode 100644 index 0000000..108da55 Binary files /dev/null and b/Grafice/Contacts 24.png differ diff --git a/Grafice/EXCLAM1.ICO b/Grafice/EXCLAM1.ICO new file mode 100644 index 0000000..42fcf59 Binary files /dev/null and b/Grafice/EXCLAM1.ICO differ diff --git a/Grafice/EXCLAM2.ICO b/Grafice/EXCLAM2.ICO new file mode 100644 index 0000000..351aa72 Binary files /dev/null and b/Grafice/EXCLAM2.ICO differ diff --git a/Grafice/EXCLEM.ICO b/Grafice/EXCLEM.ICO new file mode 100644 index 0000000..90fe0f2 Binary files /dev/null and b/Grafice/EXCLEM.ICO differ diff --git a/Grafice/EYE.ICO b/Grafice/EYE.ICO new file mode 100644 index 0000000..b1c65e6 Binary files /dev/null and b/Grafice/EYE.ICO differ diff --git a/Grafice/Email Envelope 16.png b/Grafice/Email Envelope 16.png new file mode 100644 index 0000000..daf1ab4 Binary files /dev/null and b/Grafice/Email Envelope 16.png differ diff --git a/Grafice/Email Envelope 24.png b/Grafice/Email Envelope 24.png new file mode 100644 index 0000000..b02ed00 Binary files /dev/null and b/Grafice/Email Envelope 24.png differ diff --git a/Grafice/FIND.BMP b/Grafice/FIND.BMP new file mode 100644 index 0000000..c29fbce Binary files /dev/null and b/Grafice/FIND.BMP differ diff --git a/Grafice/Favourites 16.png b/Grafice/Favourites 16.png new file mode 100644 index 0000000..668daae Binary files /dev/null and b/Grafice/Favourites 16.png differ diff --git a/Grafice/Favourites 24.png b/Grafice/Favourites 24.png new file mode 100644 index 0000000..8ce53f7 Binary files /dev/null and b/Grafice/Favourites 24.png differ diff --git a/Grafice/Games 16.png b/Grafice/Games 16.png new file mode 100644 index 0000000..68e5c02 Binary files /dev/null and b/Grafice/Games 16.png differ diff --git a/Grafice/Games 24.png b/Grafice/Games 24.png new file mode 100644 index 0000000..589d9f7 Binary files /dev/null and b/Grafice/Games 24.png differ diff --git a/Grafice/HLP.BMP b/Grafice/HLP.BMP new file mode 100644 index 0000000..4fbb501 Binary files /dev/null and b/Grafice/HLP.BMP differ diff --git a/Grafice/H_POINT.CUR b/Grafice/H_POINT.CUR new file mode 100644 index 0000000..6d1096b Binary files /dev/null and b/Grafice/H_POINT.CUR differ diff --git a/Grafice/Help 2 16.png b/Grafice/Help 2 16.png new file mode 100644 index 0000000..72e0572 Binary files /dev/null and b/Grafice/Help 2 16.png differ diff --git a/Grafice/Help 2 24.png b/Grafice/Help 2 24.png new file mode 100644 index 0000000..1437723 Binary files /dev/null and b/Grafice/Help 2 24.png differ diff --git a/Grafice/INFO_c.ICO b/Grafice/INFO_c.ICO new file mode 100644 index 0000000..883470b Binary files /dev/null and b/Grafice/INFO_c.ICO differ diff --git a/Grafice/Intreb.ico b/Grafice/Intreb.ico new file mode 100644 index 0000000..a63d9c3 Binary files /dev/null and b/Grafice/Intreb.ico differ diff --git a/Grafice/Music Player 1 16.png b/Grafice/Music Player 1 16.png new file mode 100644 index 0000000..7f020bc Binary files /dev/null and b/Grafice/Music Player 1 16.png differ diff --git a/Grafice/Music Player 1 24.png b/Grafice/Music Player 1 24.png new file mode 100644 index 0000000..77b41f6 Binary files /dev/null and b/Grafice/Music Player 1 24.png differ diff --git a/Grafice/Pics 1 16.png b/Grafice/Pics 1 16.png new file mode 100644 index 0000000..9d06b03 Binary files /dev/null and b/Grafice/Pics 1 16.png differ diff --git a/Grafice/Pics 1 24.png b/Grafice/Pics 1 24.png new file mode 100644 index 0000000..72f8697 Binary files /dev/null and b/Grafice/Pics 1 24.png differ diff --git a/Grafice/Security 1 16.png b/Grafice/Security 1 16.png new file mode 100644 index 0000000..abf85d7 Binary files /dev/null and b/Grafice/Security 1 16.png differ diff --git a/Grafice/Security 1 24.png b/Grafice/Security 1 24.png new file mode 100644 index 0000000..565d5ab Binary files /dev/null and b/Grafice/Security 1 24.png differ diff --git a/Grafice/Tech Support 16.png b/Grafice/Tech Support 16.png new file mode 100644 index 0000000..ef31f1d Binary files /dev/null and b/Grafice/Tech Support 16.png differ diff --git a/Grafice/Tech Support 24.png b/Grafice/Tech Support 24.png new file mode 100644 index 0000000..fdaa5ce Binary files /dev/null and b/Grafice/Tech Support 24.png differ diff --git a/Grafice/WZDELETE.BMP b/Grafice/WZDELETE.BMP new file mode 100644 index 0000000..c8b8bd4 Binary files /dev/null and b/Grafice/WZDELETE.BMP differ diff --git a/Grafice/WZEDIT.BMP b/Grafice/WZEDIT.BMP new file mode 100644 index 0000000..e62ba5b Binary files /dev/null and b/Grafice/WZEDIT.BMP differ diff --git a/Grafice/WZSETUP.INI b/Grafice/WZSETUP.INI new file mode 100644 index 0000000..992baa0 --- /dev/null +++ b/Grafice/WZSETUP.INI @@ -0,0 +1,36 @@ +[Preferences] +DistributionDirectory=C:\VFP\DISTRIB\ +DistributionSourceDirectory=C:\VFP\DISTRIB.SRC\ +SourceDirectory=E:\CONT2000\CONTAB\GRAFICE\ +InstallFoxProRuntime=Y +InstallGraph=N +InstallODBCDrivers=N +AccessDriver=Y +FoxPro2xDriver=Y +dBASEDriver=Y +ParadoxDriver=Y +SQLServerDriver=Y +ExcelDriver=Y +TextDriver=Y +OracleDriver=Y +Oracle7Driver=Y +BtrieveDriver=Y +VFPDriver=Y +InstallWindows95=N +InstallWindowsNT=N +DestinationDirectory=E:\CONTSETUP\ +Make1.44MegDisks=N +Make1.2MegDisks=N +Make720KDisks=N +MakeNetsetup=Y +SetupBanner=gr +Copyright=gr +PostExecute= +UserDefaultDirectory=\GRAFICE\ +ProgManGroup=Visual FoxPro Applications +UserCanModify=1 +SplitSize=363520 +FileCustomizationDelimiter=~ +InstRemoteAuto=N +InstActiveX=N + diff --git a/Grafice/attach.bmp b/Grafice/attach.bmp new file mode 100644 index 0000000..a7ada5f Binary files /dev/null and b/Grafice/attach.bmp differ diff --git a/Grafice/clienti_jos.bmp b/Grafice/clienti_jos.bmp new file mode 100644 index 0000000..5c93821 Binary files /dev/null and b/Grafice/clienti_jos.bmp differ diff --git a/Grafice/clienti_sus.bmp b/Grafice/clienti_sus.bmp new file mode 100644 index 0000000..eebb80b Binary files /dev/null and b/Grafice/clienti_sus.bmp differ diff --git a/Grafice/cont11.ICO b/Grafice/cont11.ICO new file mode 100644 index 0000000..55777df Binary files /dev/null and b/Grafice/cont11.ICO differ diff --git a/Grafice/ctr_jos.bmp b/Grafice/ctr_jos.bmp new file mode 100644 index 0000000..b795244 Binary files /dev/null and b/Grafice/ctr_jos.bmp differ diff --git a/Grafice/ctr_sus.bmp b/Grafice/ctr_sus.bmp new file mode 100644 index 0000000..56b5101 Binary files /dev/null and b/Grafice/ctr_sus.bmp differ diff --git a/Grafice/cump.bmp b/Grafice/cump.bmp new file mode 100644 index 0000000..7fc19e4 Binary files /dev/null and b/Grafice/cump.bmp differ diff --git a/Grafice/curs_jos.bmp b/Grafice/curs_jos.bmp new file mode 100644 index 0000000..9999ebf Binary files /dev/null and b/Grafice/curs_jos.bmp differ diff --git a/Grafice/curs_sus.bmp b/Grafice/curs_sus.bmp new file mode 100644 index 0000000..08f7f8a Binary files /dev/null and b/Grafice/curs_sus.bmp differ diff --git a/Grafice/dkcontrl.db2 b/Grafice/dkcontrl.db2 new file mode 100644 index 0000000..0d757c1 --- /dev/null +++ b/Grafice/dkcontrl.db2 @@ -0,0 +1,4184 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="dkcontrl.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + + 0x00000030 + Visual FoxPro + + + + FNAME + C + 200 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + FILSIZE + N + 10 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + FDATE + D + 8 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + FTIME + C + 10 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + FATTRIB + C + 5 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + CPRSNAME + C + 12 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + CPRSSIZE + N + 10 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + EXPNDSIZE + N + 10 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + FILFOUND + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + DEST144 + N + 10 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + DEST12 + N + 10 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + DEST720 + N + 10 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + DESTNET + N + 10 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + SETUPFILE + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + EXTRAFILE + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + EXTRATYPE + C + 10 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + CPRSFLAG + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + COMPRESS + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + PARENT + C + 12 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + SPLITFILE + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + UNIQUEID + C + 12 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + VERSION + C + 12 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + LANGUAGE + C + 12 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + TARGET + C + 12 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + PMGROUP + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + DESCRIPT + C + 100 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + COMMAND + C + 100 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + ICON + C + 80 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + REGISTER + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + SERVERTYPE + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + NETADDRESS + C + 100 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + PROTOCOL + C + 20 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + AUTHENTICA + I + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + INSTLOCAL + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + + CPRSNAME + REGULAR + UPPER(CPRSNAME) + + ASCENDING + MACHINE + + + CPRSSIZE + REGULAR + STR(100000000-CPRSSIZE,10)+PARENT+CPRSNAME + + ASCENDING + MACHINE + + + CPRSSIZE2 + REGULAR + CPRSNAME+STR(100000000-CPRSSIZE,10) + + ASCENDING + MACHINE + + + DEST12 + REGULAR + STR(DEST12,3)+CPRSNAME + + ASCENDING + MACHINE + + + DEST144 + REGULAR + STR(DEST144,3)+CPRSNAME + + ASCENDING + MACHINE + + + DEST720 + REGULAR + STR(DEST720,3)+CPRSNAME + + ASCENDING + MACHINE + + + DESTNET + REGULAR + STR(DESTNET,3)+CPRSNAME + + ASCENDING + MACHINE + + + FNAME + REGULAR + UPPER(FNAME) + + ASCENDING + MACHINE + + + + + + + + + + + 2000.BMP + 225054 + 1999/01/30 + 18:15:52 + .A... + 2000.BM$ + 55032 + 225054 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532372 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + ACHI.BMP + 382 + 2000/01/14 + 4:55:16 + .A... + ACHI.BM$ + 189 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532538 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + ACHIZ.BMP + 382 + 2000/01/06 + 20:28:22 + .A... + ACHIZ.BM$ + 203 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532559 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + AFIS1.BMP + 358 + 1999/01/23 + 9:44:04 + .A... + AFIS1.BM$ + 189 + 358 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532569 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + BAL.BMP + 382 + 2000/01/06 + 17:10:58 + .A... + BAL.BM$ + 180 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532578 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + BANCA.BMP + 382 + 2000/01/14 + 7:29:38 + .A... + BANCA.BM$ + 158 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532588 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + BLUE.BMP + 630 + 1999/03/25 + 18:56:52 + .A... + BLUE.BM$ + 149 + 630 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532598 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + BUT.BMP + 382 + 1999/11/25 + 13:01:52 + .A... + BUT.BM$ + 137 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532609 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CALC.BMP + 382 + 1999/11/25 + 13:23:42 + .A... + CALC.BM$ + 169 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532619 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CALENDAR.BMP + 382 + 1995/07/21 + 0:00:00 + .A... + CALENDAR.BM$ + 182 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532629 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CASA.BMP + 382 + 2000/01/14 + 4:49:54 + .A... + CASA.BM$ + 181 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532638 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CLIENT.BMP + 382 + 2000/01/14 + 4:57:38 + .A... + CLIENT.BM$ + 183 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532652 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CLOUDS.BMP + 307514 + 1996/09/24 + 10:00:00 + .A... + CLOUDS.BM$ + 133151 + 307514 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532661 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CONT-00.BMP + 225054 + 1999/01/30 + 18:16:06 + .A... + CONT-00.BM$ + 50701 + 225054 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532672 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CONT-AL.BMP + 54054 + 1999/01/30 + 18:39:46 + .A... + CONT-AL.BM$ + 15478 + 54054 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532686 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CONT-GA.BMP + 54054 + 1999/01/30 + 18:38:10 + .A... + CONT-GA.BM$ + 15578 + 54054 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532709 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CONTNOR2.BMP + 720054 + 1999/01/23 + 11:25:44 + .A... + CONTNOR2.BM$ + 227976 + 720054 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532725 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CRED.BMP + 382 + 2000/01/06 + 20:31:20 + .A... + CRED.BM$ + 176 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532743 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CREDITOR.BMP + 382 + 2000/01/06 + 18:42:10 + .A... + CREDITOR.BM$ + 200 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532760 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + DELETE.BMP + 246 + 1999/01/27 + 8:20:26 + .A... + DELETE.BM$ + 134 + 246 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532770 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + EDIT1.BMP + 358 + 1999/01/23 + 10:35:16 + .A... + EDIT1.BM$ + 184 + 358 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532780 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + FIND.BMP + 246 + 1995/07/21 + 0:00:00 + .A... + FIND.BM$ + 131 + 246 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532790 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + FURNIZOR.BMP + 382 + 2000/01/14 + 4:58:58 + .A... + FURNIZOR.BM$ + 163 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532800 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + HAND.BMP + 382 + 1999/01/27 + 11:36:02 + .A... + HAND.BM$ + 177 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532810 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + JUR.BMP + 382 + 2000/01/14 + 5:04:28 + .A... + JUR.BM$ + 191 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532820 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + MIJ-AL.BMP + 94734 + 1999/01/30 + 18:44:56 + .A... + MIJ-AL.BM$ + 19929 + 94734 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532831 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + MIJ-GA.BMP + 94734 + 1999/01/30 + 18:44:18 + .A... + MIJ-GA.BM$ + 20270 + 94734 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532855 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + NEW.BMP + 246 + 1999/10/27 + 6:44:50 + .A... + NEW.BM$ + 115 + 246 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532874 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + NOTEP.BMP + 382 + 1999/11/25 + 13:25:46 + .A... + NOTEP.BM$ + 176 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532896 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + PAINT.BMP + 1630 + 1995/07/21 + 0:00:00 + .A... + PAINT.BM$ + 352 + 1630 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532918 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + PER-AL.BMP + 63174 + 1999/01/30 + 18:41:46 + .A... + PER-AL.BM$ + 18798 + 63174 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532929 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + PER-GA.BMP + 63174 + 1999/01/30 + 18:42:26 + .A... + PER-GA.BM$ + 18923 + 63174 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532939 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + TER-AL.BMP + 36054 + 1999/01/30 + 18:46:08 + .A... + TER-AL.BM$ + 8806 + 36054 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532958 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + TER-GA.BMP + 36054 + 1999/01/30 + 18:46:46 + .A... + TER-GA.BM$ + 8938 + 36054 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13532989 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + VANZ.BMP + 382 + 2000/01/14 + 5:05:14 + .A... + VANZ.BM$ + 178 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533002 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + H_POINT.CUR + 318 + 1999/03/25 + 18:56:52 + .A... + H_POINT.CU$ + 128 + 318 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533023 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + BINOCULR.ICO + 1078 + 1996/01/12 + 0:00:00 + .A... + BINOCULR.IC$ + 315 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533034 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + BOOK01A.ICO + 1078 + 1999/01/30 + 19:04:14 + .A... + BOOK01A.IC$ + 420 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533044 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + BOOK01B.ICO + 1078 + 1999/01/30 + 19:15:18 + .A... + BOOK01B.IC$ + 419 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533055 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + BOOK01C.ICO + 1078 + 1999/01/30 + 19:10:08 + .A... + BOOK01C.IC$ + 409 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533065 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + BOOK04.ICO + 1078 + 1996/01/12 + 0:00:00 + .A... + BOOK04.IC$ + 434 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533076 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CONT11.ICO + 766 + 2000/01/16 + 6:38:28 + .A... + CONT11.IC$ + 421 + 766 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533086 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CRDFLE01.ICO + 1078 + 1996/01/12 + 0:00:00 + .A... + CRDFLE01.IC$ + 483 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533097 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CRDFLE12.ICO + 1078 + 1999/02/01 + 17:46:48 + .A... + CRDFLE12.IC$ + 506 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533108 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + EXCLAM1.ICO + 1078 + 1999/03/25 + 18:56:52 + .A... + EXCLAM1.IC$ + 465 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533127 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + EXCLAM2.ICO + 1078 + 1999/03/25 + 18:56:52 + .A... + EXCLAM2.IC$ + 531 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533138 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + EXCLEM.ICO + 1846 + 1999/03/25 + 18:56:52 + .A... + EXCLEM.IC$ + 503 + 1846 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533149 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + EYE.ICO + 1078 + 1996/01/12 + 0:00:00 + .A... + EYE.IC$ + 520 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533159 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + FILES04.ICO + 1078 + 1996/01/12 + 0:00:00 + .A... + FILES04.IC$ + 534 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533170 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + INTREB.ICO + 1078 + 1996/01/12 + 0:00:00 + .A... + INTREB.IC$ + 544 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533181 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + MFIX.ICO + 766 + 2000/01/15 + 5:21:42 + .A... + MFIX.IC$ + 432 + 766 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533192 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + NET13.ICO + 1078 + 1999/01/27 + 19:52:56 + .A... + NET13.IC$ + 418 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533203 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + NOTE14.ICO + 1078 + 1996/01/12 + 0:00:00 + .A... + NOTE14.IC$ + 541 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533213 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + NOTE16.ICO + 1078 + 1996/01/12 + 0:00:00 + .A... + NOTE16.IC$ + 555 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533224 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + PC02.ICO + 1078 + 1999/01/27 + 19:07:34 + .A... + PC02.IC$ + 562 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533235 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + PERICOL.ICO + 766 + 1999/12/06 + 17:56:36 + .A... + PERICOL.IC$ + 264 + 766 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533246 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + POINT04.ICO + 1078 + 1999/11/02 + 23:31:06 + .A... + POINT04.IC$ + 388 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533257 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + SA.ICO + 1078 + 1999/01/30 + 14:04:32 + .A... + SA.IC$ + 360 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533267 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + SG.ICO + 1078 + 1999/01/30 + 14:04:48 + .A... + SG.IC$ + 360 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533278 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CUMP.BMP + 1078 + 2000/01/14 + 7:26:42 + .A... + CUMP.BM$ + 559 + 1078 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533289 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CONTALBASTRU1.BMP + 1440054 + 2000/01/24 + 4:03:24 + .A... + 13540551.001 + 192347 + 727040 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .T. + 13533300 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + PLUS.BMP + 382 + 1999/11/25 + 13:36:30 + .A... + PLUS.BM$ + 165 + 382 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .T. + .T. + + .F. + 13533335 + + + AppDir + .F. + + + + .F. + 0 + + + 0 + .F. + + + + SETUP.EXE + 74192 + 1996/10/29 + 0:00:00 + .A... + SETUP.EXE + 74192 + 74192 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + 13533400 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + SETUP.INI + 149 + 1996/08/21 + 0:00:00 + .A... + SETUP.INI + 149 + 149 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + 13533402 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + ACMSETUP.EX_ + 172454 + 2000/01/30 + 22:52:46 + .A... + ACMSETUP.EX_ + 172454 + 172454 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + 13533404 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + ACMSETUP.HL_ + 7079 + 2000/01/30 + 22:52:46 + .A... + ACMSETUP.HL_ + 7079 + 7079 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + 13533406 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + SETUP32.STF + 3337 + 2000/02/01 + 3:45:34 + .A... + SETUP32.STF + 3337 + 3337 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + 13533409 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + SETUP.TDF + 84 + 1996/08/21 + 0:00:00 + .A... + SETUP.TDF + 84 + 84 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + 13533411 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + MSSETUP.DL_ + 141323 + 2000/01/30 + 22:53:36 + .A... + MSSETUP.DL_ + 141323 + 141323 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + 13533414 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + WIZSET32.DL_ + 26212 + 2000/01/30 + 22:53:58 + .A... + WIZSET32.DL_ + 26212 + 26212 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + 13533417 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + HLP95EN.DL_ + 19145 + 2000/01/30 + 22:54:00 + .A... + HLP95EN.DL_ + 19145 + 19145 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + 13533420 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + SETUP.LST + 1136 + 2000/02/01 + 3:45:44 + .A... + SETUP.LST + 1136 + 1136 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + 13533423 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + VFPOLE50.DL_ + 84383 + 2000/01/30 + 22:53:18 + .A... + VFPOLE50.DL_ + 84383 + 174592 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + + .F. + 13533481 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + FOXPRO.IN_ + 21579 + 2000/01/30 + 22:52:50 + .A... + FOXPRO.IN_ + 21579 + 48606 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + + .F. + 13533485 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + VFP500.DL_ + 346860 + 2000/01/30 + 22:52:54 + .A... + VFP500.DL_ + 346860 + 461824 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + + .T. + 13533488 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + VFP501.DL_ + 336840 + 2000/01/30 + 22:52:54 + .A... + VFP501.DL_ + 336840 + 459776 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + 13533488 + .T. + 13533490 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + VFP502.DL_ + 333354 + 2000/01/30 + 22:52:56 + .A... + VFP502.DL_ + 333354 + 471040 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + 13533488 + .T. + 13533494 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + VFP503.DL_ + 344327 + 2000/01/30 + 22:52:58 + .A... + VFP503.DL_ + 344327 + 487936 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + 13533488 + .T. + 13533498 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + VFP504.DL_ + 343355 + 2000/01/30 + 22:53:00 + .A... + VFP504.DL_ + 343355 + 488960 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + 13533488 + .T. + 13533501 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + VFP505.DL_ + 345648 + 2000/01/30 + 22:53:00 + .A... + VFP505.DL_ + 345648 + 491520 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + 13533488 + .T. + 13533505 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + VFP506.DL_ + 250121 + 2000/01/30 + 22:53:02 + .A... + VFP506.DL_ + 250121 + 362768 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + 13533488 + .T. + 13533508 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + VFP5ENU.DL_ + 271043 + 2000/01/30 + 22:53:38 + .A... + VFP5ENU.DL_ + 271043 + 727040 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + + .T. + 13533513 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + VFP5ENV.DL_ + 19595 + 2000/01/30 + 22:53:40 + .A... + VFP5ENV.DL_ + 19595 + 43520 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + 13533513 + .T. + 13533516 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CTL3DNT.DL_ + 15600 + 2000/01/30 + 22:53:16 + .A... + CTL3DNT.DL_ + 15600 + 27136 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + + .F. + 13533528 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + MSVCRT20.DL_ + 154559 + 2000/01/30 + 22:52:46 + .A... + MSVCRT20.DL_ + 154559 + 253952 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + 13533531 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + MSVCRT40.DL_ + 183001 + 2000/01/30 + 22:53:18 + .A... + MSVCRT40.DL_ + 183001 + 326656 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + 13533534 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + OLEPRO32.DL_ + 15904 + 2000/01/30 + 22:53:18 + .A... + OLEPRO32.DL_ + 15904 + 32528 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + + .F. + 13533538 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + OLEAUT32.DL_ + 323508 + 2000/01/30 + 22:54:00 + .A... + OLEAUT32.DL_ + 323508 + 491792 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + + .F. + 13533541 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + ASYCFILT.DL_ + 75818 + 2000/01/30 + 22:54:00 + .A... + ASYCFILT.DL_ + 75818 + 120592 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + + .F. + 13533545 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + STDOLE.TL_ + 7136 + 2000/01/30 + 22:54:02 + .A... + STDOLE.TL_ + 7136 + 16896 + .T. + 0 + 0 + 0 + 1 + .F. + .T. + + .F. + .F. + + .F. + 13533549 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + CONTALBASTRU1.BMP + 0 + 2000/01/24 + 4:03:24 + .A... + 13540551.002 + 209019 + 713014 + .T. + 0 + 0 + 0 + 1 + .F. + .F. + + .F. + .T. + 13533300 + .T. + 13543016 + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + SETUP.INF + 8759 + 2000/02/01 + 3:45:44 + .A... + SETUP.INF + 8759 + 8759 + .T. + 0 + 0 + 0 + 1 + .T. + .T. + + .F. + .F. + + .F. + + + + + .F. + + + + .F. + 0 + + + 0 + .F. + + + + + +
+ diff --git a/Grafice/downArrow.bmp b/Grafice/downArrow.bmp new file mode 100644 index 0000000..1f06b07 Binary files /dev/null and b/Grafice/downArrow.bmp differ diff --git a/Grafice/entitati1.bmp b/Grafice/entitati1.bmp new file mode 100644 index 0000000..ca87f68 Binary files /dev/null and b/Grafice/entitati1.bmp differ diff --git a/Grafice/entitati2.bmp b/Grafice/entitati2.bmp new file mode 100644 index 0000000..2928dfb Binary files /dev/null and b/Grafice/entitati2.bmp differ diff --git a/Grafice/f1.jpg b/Grafice/f1.jpg new file mode 100644 index 0000000..3bff03e Binary files /dev/null and b/Grafice/f1.jpg differ diff --git a/Grafice/f2.jpg b/Grafice/f2.jpg new file mode 100644 index 0000000..8e53539 Binary files /dev/null and b/Grafice/f2.jpg differ diff --git a/Grafice/f3.jpg b/Grafice/f3.jpg new file mode 100644 index 0000000..21fd7cd Binary files /dev/null and b/Grafice/f3.jpg differ diff --git a/Grafice/fact_jos.bmp b/Grafice/fact_jos.bmp new file mode 100644 index 0000000..0a1f848 Binary files /dev/null and b/Grafice/fact_jos.bmp differ diff --git a/Grafice/fact_sus.bmp b/Grafice/fact_sus.bmp new file mode 100644 index 0000000..e07603d Binary files /dev/null and b/Grafice/fact_sus.bmp differ diff --git a/Grafice/facturi_jos.bmp b/Grafice/facturi_jos.bmp new file mode 100644 index 0000000..327e09b Binary files /dev/null and b/Grafice/facturi_jos.bmp differ diff --git a/Grafice/facturi_sus.bmp b/Grafice/facturi_sus.bmp new file mode 100644 index 0000000..41ac96f Binary files /dev/null and b/Grafice/facturi_sus.bmp differ diff --git a/Grafice/info_jos.bmp b/Grafice/info_jos.bmp new file mode 100644 index 0000000..e4fbfde Binary files /dev/null and b/Grafice/info_jos.bmp differ diff --git a/Grafice/info_sus.bmp b/Grafice/info_sus.bmp new file mode 100644 index 0000000..a9c617f Binary files /dev/null and b/Grafice/info_sus.bmp differ diff --git a/Grafice/lock.bmp b/Grafice/lock.bmp new file mode 100644 index 0000000..dd380b2 Binary files /dev/null and b/Grafice/lock.bmp differ diff --git a/Grafice/open.bmp b/Grafice/open.bmp new file mode 100644 index 0000000..59c9eeb Binary files /dev/null and b/Grafice/open.bmp differ diff --git a/Grafice/outlook2003bar_1.bmp b/Grafice/outlook2003bar_1.bmp new file mode 100644 index 0000000..5420d8f Binary files /dev/null and b/Grafice/outlook2003bar_1.bmp differ diff --git a/Grafice/outlook2003bar_2.bmp b/Grafice/outlook2003bar_2.bmp new file mode 100644 index 0000000..eefcc28 Binary files /dev/null and b/Grafice/outlook2003bar_2.bmp differ diff --git a/Grafice/outlook2003bar_3.bmp b/Grafice/outlook2003bar_3.bmp new file mode 100644 index 0000000..1308d00 Binary files /dev/null and b/Grafice/outlook2003bar_3.bmp differ diff --git a/Grafice/outlook2003bar_4.bmp b/Grafice/outlook2003bar_4.bmp new file mode 100644 index 0000000..c5bfbdf Binary files /dev/null and b/Grafice/outlook2003bar_4.bmp differ diff --git a/Grafice/outlook2003bar_5.bmp b/Grafice/outlook2003bar_5.bmp new file mode 100644 index 0000000..bc0f627 Binary files /dev/null and b/Grafice/outlook2003bar_5.bmp differ diff --git a/Grafice/outlook2003bar_6.bmp b/Grafice/outlook2003bar_6.bmp new file mode 100644 index 0000000..8cf658c Binary files /dev/null and b/Grafice/outlook2003bar_6.bmp differ diff --git a/Grafice/plcont1.bmp b/Grafice/plcont1.bmp new file mode 100644 index 0000000..5dbe8c6 Binary files /dev/null and b/Grafice/plcont1.bmp differ diff --git a/Grafice/plcont2.bmp b/Grafice/plcont2.bmp new file mode 100644 index 0000000..23d4e7d Binary files /dev/null and b/Grafice/plcont2.bmp differ diff --git a/Grafice/roaclienti.bmp b/Grafice/roaclienti.bmp new file mode 100644 index 0000000..aa1654a Binary files /dev/null and b/Grafice/roaclienti.bmp differ diff --git a/Grafice/roafurnizori.bmp b/Grafice/roafurnizori.bmp new file mode 100644 index 0000000..649cd5c Binary files /dev/null and b/Grafice/roafurnizori.bmp differ diff --git a/Grafice/unlock.bmp b/Grafice/unlock.bmp new file mode 100644 index 0000000..da8662d Binary files /dev/null and b/Grafice/unlock.bmp differ diff --git a/Grafice/upArrow.bmp b/Grafice/upArrow.bmp new file mode 100644 index 0000000..08da460 Binary files /dev/null and b/Grafice/upArrow.bmp differ diff --git a/Grafice/upArrow.png b/Grafice/upArrow.png new file mode 100644 index 0000000..28b967c Binary files /dev/null and b/Grafice/upArrow.png differ diff --git a/Meniuri/rapIncasari.mn2 b/Meniuri/rapIncasari.mn2 new file mode 100644 index 0000000..19984b4 --- /dev/null +++ b/Meniuri/rapIncasari.mn2 @@ -0,0 +1,29 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="rapincasari.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*4 +*REPLACE + +* +DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL() +DEFINE BAR 1 OF Shortcut PROMPT "Grupate dupa luna \ + +* +PROCEDURE BAR_1_OF_Shortcut_FB2P + DO incasari_facturi_lunac IN orap_terti_comun WITH .t. +ENDPROC && BAR_1_OF_Shortcut_FB2P + +PROCEDURE BAR_2_OF_Shortcut_FB2P + DO incasari_facturi_lunac IN orap_terti_comun WITH .f. +ENDPROC && BAR_2_OF_Shortcut_FB2P + +* diff --git a/Meniuri/roacontracte.mn2 b/Meniuri/roacontracte.mn2 new file mode 100644 index 0000000..8655fd3 --- /dev/null +++ b/Meniuri/roacontracte.mn2 @@ -0,0 +1,125 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="roacontracte.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +*1 +*REPLACE + +* +DEFINE MENU _msysmenu BAR +DEFINE PAD _000000001 OF _msysmenu PROMPT "\ + +* +PROCEDURE BAR_1_OF_Utile_FB2P + *!* do form start00 + DO start_firma IN ostartfirma.prg +ENDPROC && BAR_1_OF_Utile_FB2P + +PROCEDURE BAR_3_OF_Utile_FB2P + DO apeleaza_calc IN oproceduri_comune.prg +ENDPROC && BAR_3_OF_Utile_FB2P + +PROCEDURE BAR_4_OF_Utile_FB2P + DO apeleaza_notepad IN oproceduri_comune.prg +ENDPROC && BAR_4_OF_Utile_FB2P + +PROCEDURE PAD__000000002_OF__msysmenu_FB2P + DO viz_alerte_garantii IN oproceduri_roacontracte.prg +ENDPROC && PAD__000000002_OF__msysmenu_FB2P + +PROCEDURE BAR_1_OF_Operatii_FB2P + lnRaspuns=aMessagebox('Doriti sa importati in baza de date ca atasamente fisierele din sistemul de fisiere (local/retea)?' ,4,'Import atasamente') + If lnRaspuns=6 + Do import_atasamente In oproceduri_atasamente.prg + Endif +ENDPROC && BAR_1_OF_Operatii_FB2P + +PROCEDURE BAR_1_OF_Ajutor_FB2P + DO arata_manual IN oproceduri_comune.prg +ENDPROC && BAR_1_OF_Ajutor_FB2P + +PROCEDURE BAR_3_OF_Ajutor_FB2P + DO arata_modificari IN oproceduri_comune.prg +ENDPROC && BAR_3_OF_Ajutor_FB2P + +PROCEDURE BAR_4_OF_Ajutor_FB2P + DO arata_versiune IN oproceduri_comune.prg +ENDPROC && BAR_4_OF_Ajutor_FB2P + +* diff --git a/Programe/1proverb.prg b/Programe/1proverb.prg new file mode 100644 index 0000000..1b90d6b --- /dev/null +++ b/Programe/1proverb.prg @@ -0,0 +1,107 @@ + +WAIT WIND 'Se genereaza raportul. Asteptati...' nowait +SET SAFETY OFF +COPY FILE &DIRGEN\DEVIZE\DATE\TEMPO\PROVERB.* TO &LOC\&NFSCURT\TEMPO\PROVERB.* + +SELE 0 +USE &LOC\&NFSCURT\TEMPO\PROVERB EXCL ALIAS PROVERB +sele proverb +zap + +public m.g,m.nrinmat,m.tipauto +LOCAL M.DENUMIRE,M.CODMAT,M.CODFURN,M.CANT,M.PRET +STORE '' TO M.DENUMIRE,M.CODMAT,M.CODFURN,m.tipauto +STORE ' ' TO m.nrinmat +STORE 0 TO M.CANT,M.PRET,m.g +sele rul +set filter to subs(nrord,1,1)='G' +SCAN +m.nrord = nrord +M.DENUMIRE = DENUMIRE +M.CODMAT=CODMAT +M.CODFURN=EXP4 +M.CANT=CANTE +M.PRET=PRETV +m.fel = 'A' +do nrcirc +SELE PROVERB +APPE BLANK +GATHER MEMVAR +SELE RUL +ENDSCAN +sele OPER +set filter to subs(nrord,1,1)='G' +SCAN +m.nrord = nrord +M.DENUMIRE = DENOP +M.CODMAT=CODOP +M.CODFURN=codfurn +M.CANT=TIMPN +M.PRET=PRET +m.fel = 'B' +do nrcirc +sele oper +SELE PROVERB +APPE BLANK +GATHER MEMVAR +SELE OPER +ENDSCAN +sele proverb +set order to tag codfel +TOTAL ON DENUMIRE+STR(PRET,10) FIELDS CANT TO &LOC\&NFSCURT\TEMPO\PROVERB1 +SELE 0 +*USE C:\CONTAFIN\AUTOSTAL\TEMPO\PROVERB1 +USE &LOC\&NFSCURT\TEMPO\PROVERB1 +************** +INDEX ON TIPAUTO+CODFURN+DENUMIRE+STR(PRET,10) to &LOC\&NFSCURT\TEMPO\PROVERB1 +*************** +report format proverb TO PRINTER PROMPT preview +USE IN PROVERB +USE IN PROVERB1 +RETURN +************* +procedure nrcirc +m.g=1 +m.tipauto='' +m.nrinmat='' +do case + case subs(nrord,1,1)='/' + m.g=2 + case subs(nrord,2,1)='/' + m.g=3 + case subs(nrord,3,1)='/' + m.g=4 + case subs(nrord,4,1)='/' + m.g=5 + case subs(nrord,5,1)='/' + m.g=6 + case subs(nrord,6,1)='/' + m.g=7 + case subs(nrord,7,1)='/' + m.g=8 + case subs(nrord,8,1)='/' + m.g=9 + case subs(nrord,9,1)='/' + m.g=10 + case subs(nrord,10,1)='/' + m.g=11 + case subs(nrord,11,1)='/' + m.g=12 + case subs(nrord,12,1)='/' + m.g=13 + case subs(nrord,13,1)='/' + m.g=14 + case subs(nrord,14,1)='/' + m.g=15 + case subs(nrord,15,1)='/' + m.g=16 +endcase +m.nrinmat = subs(nrord,m.g,20-m.g) +sele masini +loca for ALLT(m.nrinmat) = ALLT(nrinmat) +if found() +m.tipauto = masina +else +m.tipauto='' +endif +return \ No newline at end of file diff --git a/Programe/Log_mesaje.prg b/Programe/Log_mesaje.prg new file mode 100644 index 0000000..c008f4a --- /dev/null +++ b/Programe/Log_mesaje.prg @@ -0,0 +1,96 @@ +*!* in programul principal : +*!* public poLog && obiect pt logarea mesajelor sistemului +*!* poLog = NEWOBJECT("Log_Mesaje","Log_Mesaje.prg") + +*!* pe parcursul programului: +*!* lcLog = [1] +*!* poLog.Log(lcLog,PROGRAM()) + + + + +DEFINE CLASS log_mesaje as Relation + +cLogFile = "c:\log.txt" +lLogging = .F. + +&& ------------------------------INCEPUT: Init ------------------------------ +*!* Procedura: Init +*!* Parametri: +*!* Data/Ora generarii: 20/02/2004 12:41:53 +*!* Autor: MARIUS.MUTU +PROCEDURE Init +LPARAMETERS tcLogFile, tlAdditive + + + + + lLog = IIF(FILE(ADDBS(JUSTPATH(SYS(16,0)))+"LOG.txt"),.T.,.F.) && daca exista fisierul log + this.lLogging = lLog or this.lLogging && creez log daca exista in directorul aplicatiei fisierul sau daca proprietatea lLogging = .T. + + IF !this.lLogging + RETURN + ENDIF + + SET console off + SET TALK OFF + + cLogFile = IIF(EMPTY(tcLogFile),ADDBS(JUSTPATH(SYS(16,0)))+"LOG_"+JUSTSTEM(SYS(16,0))+".txt","") + this.cLogFile = cLogFile + + IF PARAMETERS() < 2 + llAdditive = IIF(FILE(cLogFile),.T.,.F.) + ELSE + llAdditive = tlAdditive + ENDIF + + IF llAdditive + SET TEXTMERGE ON TO (cLogFile) ADDITIVE + ELSE + SET TEXTMERGE ON TO (cLogFile) + ENDIF + + \ + \\<> + + SET TEXTMERGE TO + + + +ENDPROC +&& ------------------------------SFARSIT: Init ------------------------------ + +&& ------------------------------INCEPUT: Log ------------------------------ +*!* Procedura: Log +*!* Parametri: tcText +*!* Data/Ora generarii: 20/02/2004 12:48:57 +*!* Autor: MARIUS.MUTU +PROCEDURE Log +LPARAMETERS tcText, tcProgram + +IF !this.lLogging + RETURN +ENDIF + +LOCAL lcText, lcLogFile + +SET console off +SET TALK OFF + +lcText = IIF(EMPTY(tcText),"",ALLTRIM(tcText)) +lcProgram = IIF(EMPTY(tcProgram),"",ALLTRIM(tcProgram)) +lcSpatiu = SPACE(10) + +lcLogFile = this.cLogFile +lcAddText = TIME() + IIF(!EMPTY(lcProgram),lcSpatiu+lcProgram,"") + IIF(!EMPTY(lcText),lcSpatiu+lcText,"") + +SET TEXTMERGE ON TO (lcLogFile) ADDITIVE + +\ <> + +SET TEXTMERGE TO + +ENDPROC +&& ------------------------------SFARSIT: Log ------------------------------ + +ENDDEFINE && log_mesaje \ No newline at end of file diff --git a/Programe/actualizari.prg b/Programe/actualizari.prg new file mode 100644 index 0000000..a071f76 --- /dev/null +++ b/Programe/actualizari.prg @@ -0,0 +1,270 @@ + + +SELE CALENDAR +M=4*RECCOUNT()+4 +OP=CREA('PROGRESBAR') +op.titlu.caption='Actualizari' +OP.SHOW() + + + +close database +IF !USED('FISTOTVdev') + do deschidf with '&dirgen\devize\date\datean\','&dirgen\devize\date\datean\','fistotvdev','fistotv','CALE','' +ENDIF + +sele 0 +use &calefirma\datean\calendar alias calendar +sele calendar +J=0 +scan +scatter memvar +date=calefirma+'\AN'+m.an+'\DATE'+M.nl +if file('&date\oper.dbf') +*DO PR WITH J +*do pfactura +DO PR WITH J +do pordl +DO PR WITH J +do poper +DO PR WITH J +do popersal +DO PR WITH J +do psalarii +endif +endscan +*** +DO PR WITH J +do pclie +DO PR WITH J +DO PSECTIE +DO PR WITH J +DO PMECANICI +DO PR WITH J +do pmasini +DO PR WITH J +DO PMARCI +OP.RELEASE +RETURN + + + + +*____________________________________________ +procedure pfactura +dele file &date\facturaa.* +dele file &date\facturav.* +copy file &dirgen\devize\date\date00\factura.* to &date\facturaa.* +sele 0 +use &date\facturaa.dbf AGAIN ALIAS facturaa exclusive +sele facturaa +zap +sele facturaa +append from &date\factura +sele facturaa +reindex +use +rename &date\factura.* to &date\facturav.* +rename &date\facturaa.* to &date\factura.* +*do refRULL +return + +*____________________________________________ +procedure psalarii +dele file &date\salariia.* +dele file &date\salariiv.* +copy file &dirgen\devize\date\date00\salarii.* to &date\salariia.* +sele 0 +use &date\salariia.dbf AGAIN ALIAS salariia exclusive +sele salariia +zap +sele salariia +append from &date\salarii +sele salariia +reindex +use +rename &date\salarii.* to &date\salariiv.* +rename &date\salariia.* to &date\salarii.* +*do refRULL +return + +*____________________________________________ +procedure pordl +dele file &date\ordla.* +dele file &date\ordlv.* +copy file &dirgen\devize\date\date00\ordl.* to &date\ordla.* +sele 0 +use &date\ordla.dbf AGAIN ALIAS ordla exclusive +sele ordla +zap +sele ordla +append from &date\ordl +sele ordla +reindex +use +rename &date\ordl.* to &date\ordlv.* +rename &date\ordla.* to &date\ordl.* +&&&&&&do refact +return + + +*____________________________________________ +procedure poper +dele file &date\opera.* +dele file &date\operv.* +copy file &dirgen\devize\date\date00\oper.* to &date\opera.* +sele 0 +use &date\opera.dbf AGAIN ALIAS opera exclusive +sele opera +zap +sele opera +append from &date\oper +sele opera +reindex +use +rename &date\oper.* to &date\operv.* +rename &date\opera.* to &date\oper.* + +return + +*____________________________________________ +procedure popersal +dele file &date\opersala.* +dele file &date\opersalv.* +copy file &dirgen\devize\date\date00\opersal.* to &date\opersala.* +sele 0 +use &date\opersala.dbf AGAIN ALIAS opersala exclusive +sele opersala +zap +sele opersala +append from &date\opersal +sele opersala +reindex +use +rename &date\opersal.* to &date\opersalv.* +rename &date\opersala.* to &date\opersal.* + +return + + +*______________________________________________________________ +procedure pclie +dele file &calefirma\datean\cliea.* +dele file &calefirma\datean\cliev.* +copy file &dirgen\devize\date\datean\clie.* to &calefirma\datean\cliea.* +sele 0 +use &calefirma\datean\cliea.dbf AGAIN ALIAS cliea exclusive +sele cliea +zap +sele cliea +append from &calefirma\datean\clie +sele cliea +reindex +use + +rename &calefirma\datean\clie.* to &calefirma\datean\cliev.* +rename &calefirma\datean\cliea.* to &calefirma\datean\clie.* +*DO refRUL +return + +*______________________________________________________________ +procedure pSECTIE +dele file &calefirma\datean\SECTIEa.* +dele file &calefirma\datean\SECTIEv.* +copy file &dirgen\devize\date\datean\SECTIE.* to &calefirma\datean\SECTIEa.* +sele 0 +use &calefirma\datean\SECTIEa.dbf AGAIN ALIAS SECTIEa exclusive +sele SECTIEa +zap +sele SECTIEa +append from &calefirma\datean\SECTIE +sele SECTIEa +reindex +use + +rename &calefirma\datean\SECTIE.* to &calefirma\datean\SECTIEv.* +rename &calefirma\datean\SECTIEa.* to &calefirma\datean\SECTIE.* +*DO refRUL +return + +*______________________________________________________________ +procedure pMECANICI +dele file &calefirma\datean\MECANICIa.* +dele file &calefirma\datean\MECANICIv.* +copy file &dirgen\devize\date\datean\MECANICI.* to &calefirma\datean\MECANICIa.* +sele 0 +use &calefirma\datean\MECANICIa.dbf AGAIN ALIAS MECANICIa exclusive +sele MECANICIa +zap +sele MECANICIa +append from &calefirma\datean\MECANICI +sele MECANICIa +reindex +use + +rename &calefirma\datean\MECANICI.* to &calefirma\datean\MECANICIv.* +rename &calefirma\datean\MECANICIa.* to &calefirma\datean\MECANICI.* +*DO refRUL +return + + + + +*______________________________________________________________ +procedure pmasini +dele file &calefirma\datean\masinia.* +dele file &calefirma\datean\masiniv.* +copy file &dirgen\devize\date\datean\masini.* to &calefirma\datean\masinia.* +sele 0 +use &calefirma\datean\masinia.dbf AGAIN ALIAS masinia exclusive +sele masinia +zap +sele masinia +append from &calefirma\datean\masini +sele masinia +reindex +use + +rename &calefirma\datean\masini.* to &calefirma\datean\masiniv.* +rename &calefirma\datean\masinia.* to &calefirma\datean\masini.* +return + +*______________________________________________________________ +procedure pMARCI +dele file &calefirma\datean\MARCIa.* +dele file &calefirma\datean\MARCIv.* +copy file &dirgen\devize\date\datean\MARCI.* to &calefirma\datean\MARCIa.* +sele 0 +use &calefirma\datean\MARCIa.dbf AGAIN ALIAS MARCIa exclusive +sele MARCIa +zap +sele MARCIa +append from &calefirma\datean\MARCI +sele MARCIa +reindex +use + +rename &calefirma\datean\MARCI.* to &calefirma\datean\MARCIv.* +rename &calefirma\datean\MARCIa.* to &calefirma\datean\MARCI.* +return + + + +*____________________________________ +PROC PR +PARAM J +IF J>M +RETURN +ENDIF +OP.PRBAR.VALUE=J +OP.P=ROUND(100*OP.PRBAR.VALUE/OP.PRBAR.MAX,2) +OP.REFRESH +J=J+1 +RETURN + + + + + + + diff --git a/Programe/genhtml.db2 b/Programe/genhtml.db2 new file mode 100644 index 0000000..e458690 --- /dev/null +++ b/Programe/genhtml.db2 @@ -0,0 +1,2183 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="genhtml.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + + 1252 + + + 0x00000030 + Visual FoxPro + + + + TYPE + C + 12 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + ID + C + 24 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + LINKS + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + TEXT + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + DESC + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + CLASSNAME + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + CLASSLIB + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + MODULE + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + PICTURE + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + PROPERTIES + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + HTML + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + STYLE + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + SCRIPT + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + PRESCRIPT + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + GENSCRIPT + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + POSTSCRIPT + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + HEADSTART + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + HEADEND + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + BODYSTART + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + BODYEND + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + UPDATED + T + 8 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + COMMENT + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + USER + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + VERSION + M + 4 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + SAVE + L + 1 + 0 + .F. + .F. + + + + + + + + + + + 0 + 0 + + + + + + + + + DEFAULT + VFPDefault + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + LAYOUT + ListTable + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + LAYOUT + DetailTable + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + LAYOUT + TabCtlList + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + LAYOUT + TabCtlDetail + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + LAYOUT + TabCtlHierarchical + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + OPTIONS + ListOptions + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + OPTIONS + TabListOptions + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + OPTIONS + TabDetailOptions + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + OPTIONS + TabHierOptions + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + OPTIONS + StaticOptions + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + GLOBALSTYLE + GlobalTableStyle + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + TropicalParadiseStyle + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + DesertCalmStyle + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + Graffiti + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + TitleHeader + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + LedgerList + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00486 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00516 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00531 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00546 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00673 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00703 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00720 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00742 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00756 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00760 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00780 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00785 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB00819 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB01231 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB01276 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB01306 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB01308 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB01741 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB01844 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB01845 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB01846 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + STYLE + WB01847 + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + SCRIPT + SortTableColumn + + + + + + + + + + +Dim cField +Dim lSortAscend +cField = "" +lSortAscend = True + +Sub tblvfpdataheader_OnClick + Dim cID + cID = window.event.srcElement.ID + if cID = cField then + lSortAscend = Not lSortAscend + else + cField = cId + lSortAscend = true + end if + if lSortAscend = True then + {{_oHTML.cDataSrc}}.SortColumn = "+" & cField + else + {{_oHTML.cDataSrc}}.SortColumn = "-" & cField + end if + {{_oHTML.cDataSrc}}.Reset() + {{IIF(_OHTML.lSkipFrame,"rem ","")}}parent.Frames("Frame2").datafilter({{_oHTML.cDataSrc}}.recordset.Fields(0).Value) +End Sub + + +]]> + + + + + + + + + + / / : : + + + + .F. + + + + SCRIPT + NavButtonsCode + + + + + + + + + + +Sub backward_onClick() + if {{_oHTML.cDataSrc}}.recordset.AbsolutePosition > 1 then + {{_oHTML.cDataSrc}}.recordset.movePrevious() + end if +End Sub + +Sub forward_onClick() + if {{_oHTML.cDataSrc}}.recordset.AbsolutePosition <> {{_oHTML.cDataSrc}}.recordset.RecordCount then + {{_oHTML.cDataSrc}}.recordset.moveNext() + end if +End Sub + +Sub first_onClick() + {{_oHTML.cDataSrc}}.recordset.moveFirst() +End Sub + +Sub end_onClick() + {{_oHTML.cDataSrc}}.recordset.moveLast() +End Sub + + +]]> + + + + + + + + + + / / : : + + + + .F. + + + + SCRIPT + NavButtons + + + + + + + + + + + + + + + +
+
+
+
+]]> + + + + + + + + + + / / : : + + + + .F. + + + + SCRIPT + SetBodyImage + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + SCRIPT + DataPaging + + + + + + + + + +' Page methods for use with Tab Data Control + +Sub PagePrevious + {{_oHTML.cTableID}}.previousPage() + nPageSize = 0 - ( {{_oHTML.cTableID}}.rows.length-1) + nCurrentPos = {{_oHTML.cDataSrc}}.recordset.AbsolutePosition + if nCurrentPos+nPageSize > 0 then + {{_oHTML.cDataSrc}}.recordset.Move nPageSize + else + {{_oHTML.cDataSrc}}.recordset.MoveFirst + end if + {{IIF(_OHTML.lSkipFrame,"rem ","")}}parent.Frames("Frame2").datafilter({{_oHTML.cDataSrc}}.recordset.Fields(0).Value) +End Sub + +Sub PageNext + {{_oHTML.cTableID}}.nextPage() + nPageSize = {{_oHTML.cTableID}}.rows.length-1 + nCurrentPos = {{_oHTML.cDataSrc}}.recordset.AbsolutePosition + if nCurrentPos+nPageSize < {{_oHTML.cDataSrc}}.recordset.RecordCount then + {{_oHTML.cDataSrc}}.recordset.Move nPageSize + else + {{_oHTML.cDataSrc}}.recordset.MoveLast + end if + {{IIF(_OHTML.lSkipFrame,"rem ","")}}parent.Frames("Frame2").datafilter({{_oHTML.cDataSrc}}.recordset.Fields(0).Value) +End Sub + + +]]> + + + + + + + + + + / / : : + + + + .F. + + + + SCRIPT + FrameScript + + + + + + + + + + +Sub selectrecord(oTableRow) + {{_OHTML.cDataSrc}}.recordset.AbsolutePosition=oTableRow.RecordNumber + HilightTableRow("{{_OHTML.cHighlightColor}}") + {{IIF(_OHTML.lSkipFrame,"rem ","")}}parent.Frames("Frame2").datafilter({{_OHTML.cDataSrc}}.recordset.Fields({{TRANS(_OHTML.nLinkField)}}).Value) +End sub + +Sub {{_OHTML.cTableID}}_onreadystatechange() + if {{_OHTML.cTableID}}.readyState = "complete" then + {{_OHTML.cDataSrc}}_onrowenter = HandleRowEnter() + end if +End sub + +Function HandleRowEnter() + HilightTableRow("{{_OHTML.cHighlightColor}}") +End function + +Sub {{_OHTML.cDataSrc}}_onrowexit() + HilightTableRow("") +End sub + +Sub HilightTableRow(cColor) + nRow = {{_OHTML.cDataSrc}}.recordset.AbsolutePosition + nPage = {{_OHTML.cDataSrc}}.recordset.AbsolutePage + nPageMax = {{_OHTML.cTableID}}.rows.length-1 + nPageRows = {{_OHTML.cTableID}}.datapagesize + if nPageMax < 1 then + exit sub + end if + nRow = nRow MOD nPageRows + if nRow = 0 then + nRow = nPageMax + end if + if nRow > nPageRows then + nRow = 1 + end if + {{_OHTML.cTableID}}.rows(nPageMax).style.backgroundColor = "" + {{_OHTML.cTableID}}.rows(nRow).style.backgroundColor = cColor +End sub + + +]]> + + + + + + + + + + / / : : + + + + .F. + + + + SCRIPT + FilterScript + + + + + + + + + + +function DataFilter(vFilterValue) + {{_OHTML.cDataSrc}}.object.Filter = {{_OHTML.cDataSrc}}.recordset.Fields({{TRANS(_OHTML.nLinkField)}}).Name & " = " & vFilterValue + {{_OHTML.cDataSrc}}.Reset() +end function + + +]]> + + + + + + + + + + / / : : + + + + .F. + + + + SCRIPT + PageButtons + + + + + + + + + +
+ + + "," > ")}}" onclick="PageNext()"> + + +
+
+
+
]]> + + + + + + + + + + / / : : + + + + .F. + + + + WIZARD + WIZARD + + + + + + + + + + + + + + + + + + + / / : : + + + + .F. + + + + + + + diff --git a/Programe/mesaje.prg b/Programe/mesaje.prg new file mode 100644 index 0000000..db77adf --- /dev/null +++ b/Programe/mesaje.prg @@ -0,0 +1,43 @@ +*_________________________________________ +PROCEDURE anunta_rezultat + LPARAMETERS lcCategorie, lcSursa, lcMesaj, llEroare, llInTabel, lnId_ref + IF llInTabel + scrie_in_mesaje(lcCategorie, lcSursa, lcMesaj, llEroare, lnId_ref) + ELSE + DO mesaj With lcMesaj, '' + ENDIF +ENDPROC + +PROCEDURE scrie_in_mesaje + LPARAMETERS lcCategorie, lcSursa, lcMesaj, llEroare, lnId_ref + LOCAL lnOrdine + SELECT mesaje + CALCULATE MAX(ordine) TO m.lnOrdine + m.lnOrdine = m.lnOrdine + 1 + APPEND BLANK + replace ordine WITH m.lnOrdine, sursa WITH lcSursa, mesaj WITH lcMesaj, ; + eroare WITH llEroare, categorie WITH lcCategorie, id_ref WITH lnId_ref +ENDPROC + +PROCEDURE sterge_mesaje + ZAP IN mesaje +ENDPROC + +PROCEDURE raport_mesaje + PARAMETERS tcPerioada + PRIVATE pcTitlu,pcPerioada,pcDataOra +*!* PRIVATE toFirma +*!* SELECT FIRMA +*!* LOCATE FOR NFSCURT=FSCURT +*!* SCATTER NAME m.toFirma +*!* SELECT mesaje +*!* IF RECNO() > 0 +*!* SET ORDER TO ordine +*!* REPORT FORM mesaje TO PRINTER PROMPT PREVIEW +*!* ENDIF + pcTitlu=[VERIFICARE GLOBALA] + pcPerioada=[Perioada ] + pcdataora = get_ora(2) + SELECT crsverificari + REPORT FORM rap_mesaje TO PRINTER PROMPT preview +ENDPROC \ No newline at end of file diff --git a/Programe/onom_clienti.prg b/Programe/onom_clienti.prg new file mode 100644 index 0000000..b846bdb --- /dev/null +++ b/Programe/onom_clienti.prg @@ -0,0 +1,214 @@ +******************************************* +Procedure viz_delegati +Lparameters tnidpartener +Private podelegati,pcschema1,pcselect1,odetalii +LOCAL llAfiseaza +Store '' To podelegati +If Used('v_delegati') + Use In v_delegati +Endif +pcschema1=[''] +pcselect1=['select * from ] + gcS + [.vnom_delegati where 1=2'] +pcorder1 = [nume] +*!* pcfiltru1=[sters=0] +pcfiltru1=[1=2] +llAfiseaza=.F. +gencursor('podelegati','v_delegati',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +podelegati.ca_baza1.afisare() +ofrmdelegati=Createobject('frm_delegati',tnidpartener) +ofrmdelegati.Show(1) + +Select v_delegati +Scatter Name odetalii +Use In v_delegati +Release podelegati +Return odetalii +ENDPROC && viz_delegati +**********************sfarsit procedura viz_delegati******************* +******************************************* INCEPUT:viz_responsabili ******************************************* +PROCEDURE viz_responsabili( ) + + PRIVATE poresponsabili, pcschema1, pcselect1 + STORE '' TO poresponsabili + pcschema1 = [''] + pcselect1=['select * from ] + gcS + [.vnom_responsabili where 1=2'] + pcorder1=[nume] + pcfiltru1 = [2=2] + llAfiseaza = .F. + gencursor('poresponsabili','v_responsabili',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) + poresponsabili.ca_baza1.afisare() + ofrmres=CREATEOBJECT('frm_responsabili') + ofrmres.SHOW(1) + RELEASE poresponsabili + + +ENDPROC && viz_responsabili +******************************************* SFARSIT: viz_responsabili ******************************************* +Procedure viz_curs + +Private poCurs +Store '' To poCurs + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = ['id_curs N(10), nume_val C(10), curs N(10,4), data D(8), data2 D(8), id_valuta N(5)'] +lcSelect1 = [select id_curs, nume_val, curs, data, data2, id_valuta from ] + gcS + [.vcrm_curs] +lcOrder1 = [data desc] +lcFiltru1 = [1=2] +lcFiltruOriginal = [] +llModParam = .T. +llAfiseaza = .F. +lcgroup = [] +*gencursor('poCurs','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) +gencursor('poCurs','tCurs', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) +poCurs.ca_baza1.afisare() + +Select tCurs +lovc = Createobject("frm_curs") +lovc.Show(1) + +Release poCurs + +Endproc && viz_curs +***----------------------------------------------------------------------------------------------------------------------------- +Procedure viz_tipc + +Private poTipc +Store '' To poTipc + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = [select * from ] + gcS + [.crm_tipc] +lcOrder1 = [id_tipc] +lcFiltru1 = [2=2] +lcFiltruOriginal = [] +llModParam = .T. +llAfiseaza = .F. +lcgroup = [] +gencursor('poTipc','tTipc', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) +poTipc.ca_baza1.afisare() + +Select tTipc +lotc = Createobject("frm_tipc") +lotc.Show(1) + +Release poTipc + +Endproc && viz_tipc +***----------------------------------------------------------------------------------------------------------------------------- +********* Inceput: viz_articole +Procedure viz_articole + +Private poArticole +Store '' To poArticole + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = [select * from ] + gcS + [.nom_articole] +lcOrder1 = [denumire] +lcFiltru1 = [1=2] +lcFiltruOriginal = [] +llModParam = .T. +llAfiseaza = .F. +lcgroup = [] +gencursor('poArticole','tArticole', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) +poArticole.ca_baza1.afisare() + +of_art = Createobject('frm_articole') +of_art.Show(1) + +Endproc +********* Sfarsit: viz_articole +****************************************************************************************************************** +Procedure viz_clienti() +Private poClie,pcschema1,pcselect1 +Local llAfiseaza +Store .F. To llAfiseaza +Store '' To poClie +If Used('v_clie') + Use In v_clie +Endif + +pcschema1=[''] +pcselect1=['select b.* from vcoresp_tip_part a left join vnom_parteneri b '+]+; + ['on a.id_part=b.id_part where a.id_tip_part=16 and b.inactiv=0'] +pcorder1=[b.nume] +pcfiltru1 = [1 = 2] +llAfiseaza = .F. +gencursor('poclie','v_clie',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +poClie.ca_baza1.afisare() + +ofrmclienti=Createobject('frm_clienti') +ofrmclienti.Show(1) +Release ofrmclienti,poClie +Endproc && viz_clienti +****************************************************************************************************************** +****************************************************************************************************************** +Procedure viz_agenti +Private poagenti,pcschema1,pcselect1 +Local llAfiseaza +Store .F. To llAfiseaza +Store '' To poagenti +If Used('crsagenti') + Use In crstagenti +Endif + +pcschema1=[''] +pcselect1=['select * from ]+gcS+[.vnom_agenti where 2=2'] +pcorder1=[nume_agent] +pcfiltru1 = [1 = 2] +llAfiseaza = .F. +gencursor('poagenti','crsagenti',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza) +poagenti.ca_baza1.afisare() + +ofrmagenti=Createobject('frm_agenti') +ofrmagenti.Show(1) +Release ofrmtipuri,potipurieven +Endproc && viz_agenti +****************************************************************************************************************** +***************************************************************************** +function cauta_zona +Lparameters tnIdZona,tcNumeZona +Local locauta,llReturn +Store "" To locauta +Store .F. To llReturn +pcselect = ["select id_zona,zona from ] + gcS + [.crm_vzone where inactiv=0"] +pcfiltru = [1=2] +pcschema = [''] +pcorder = [2] +pccoloane = [Zona] +pcTitlu = [Zona] +pcTitluColoane = [Zona] +locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"") +If !Empty(locauta.id_zona) + tnIdZona=locauta.id_zona + tcNumeZona=Alltrim(locauta.zona) + llReturn=.T. +Endif +Return llReturn +Endfunc && cauta_zona +***************************************************************************** +Procedure update_clienti( ) +LPARAMETERS tnid_partener + +LOCAL lcFiltru +IF !EMPTY(tnid_partener) + lcFiltru = [ and p.id_part=]+ALLTRIM(STR(tnid_partener)) +ELSE + lcFiltru = [] +ENDIF +If Used('v_clienti') + Use In v_clienti +Endif + +lcSql = [select distinct p.nume, p.cod_fiscal, p.id_part FROM ] + gcS + [.vcoresp_tip_part p ] + ; + [join ] + gcS + [.vcoresp_tip_cont c on p.id_tip_part=c.id_tip_part where c.cont ='4111' ] + ; + [and p.inactiv=0 ]+lcFiltru+[ order by p.nume ] +lcCursor = 'v_clienti' +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() +Return lnSucces + +Endproc +**********************sfarsit procedura update_clienti******************* + + diff --git a/Programe/oparteneri.prg b/Programe/oparteneri.prg new file mode 100644 index 0000000..5d7ecaa --- /dev/null +++ b/Programe/oparteneri.prg @@ -0,0 +1,687 @@ + +*!* APEL DE PROCEDURA +*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + +*----------------------------------------------------------- + +PROCEDURE lans_ireg_parteneri + PARAMETERS tlTest,tcCont,tlactiv,tlTitluTot,tcDenumire,tcDenDebit,tcDenCredit + *!* tlTitluTot = daca denumirea titlului este totala i.e.: Nu trebuie sa mai adaug Balanta parteneri + *!* tcDenumire = titlul balantei + *!* tcDenDebit = peste tot pe unde apare debit se va inlocui cu aceasta denumire + *!* tcDenCredit = peste tot pe unde apare credit se va inlocui cu aceasta denumire + + LOCAL lcCont, llActiv, llParametri,llTitluTot,lcDenumire,lcDenDebit,lcDenCredit + llParametri = .F. + + IF EMPTY(tlTitluTot) + llTitluTot = .F. + ELSE + llTitluTot = tlTitluTot + ENDIF + + IF EMPTY(tcDenumire) + lcDenumire = "" + ELSE + lcDenumire= tcDenumire + ENDIF + + IF EMPTY(tcDenDebit) + lcDenDebit = "Debit" + ELSE + lcDenDebit = tcDenDebit + ENDIF + IF EMPTY(tcDenCredit) + lcDenCredit = "Credit" + ELSE + lcDenCredit = tcDenCredit + ENDIF + + IF !EMPTY(tcCont) + lcCont = ALLTRIM(tcCont) + ELSE + lcCont = '' + ENDIF + + IF !EMPTY(tlactiv) + llActiv = tlactiv + ELSE + llActiv = .F. + ENDIF + + llParametri = .F. + *If PCOUNT() = 3 + *!* IF !EMPTY(tlActiv) AND !EMPTY(tcCont) AND !EMPTY(tlActiv) + *!* llParametri = .T. + *!* Endif + IF !EMPTY(tcCont) + llParametri = .T. + ENDIF + LOCAL NOU, lnTdeb, lnTcred, lnSold, lcContPart, lclista + STORE 0 TO lnTdeb, lnTcred, lnSold + NOU=.T. + + IF glPrimaLuna + NOU = .F. + ENDIF + + PRIVATE plActiv + STORE .T. TO plActiv + PRIVATE eActiv + STORE .T. TO eActiv + IF !llParametri + PRIVATE polista,pcschema1,pcselect1,pcfiltru1,pcorder1 + STORE "" TO polista + IF USED('clista') + USE IN clista + ENDIF + pcschema1=['cont c(4),acont c(4),explicatie c(50)'] + pcselect1=['select distinct cont,rpad(CHR(32),4,CHR(32)) as acont,explicatie from ]+gcS+[.vcoresp_tip_cont where 1=2'] + pcfiltru1=[2=2] + pcorder1=[cont] + llAfisare=.F. + gencursor('polista','clista',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare) + polista.ca_baza1.afisare() + + SELECT clista + loCont=myscatter('blank') + + Ol=CREATEOBJECT("frm_sel_cont") + WITH Ol + .Lb_titlu_alb_b121.CAPTION= 'Selectati contul' + IF EMPTY(.cboCont.ROWSOURCE) + .cboCont.ROWSOURCE="clista.cont,acont" + ENDIF + .ocont=loCont + IF EMPTY(.cAlias) + .cAlias=LEFT(.cboCont.ROWSOURCE,AT(".",.cboCont.ROWSOURCE)-1) + ENDIF + .HEIGHT = 190 + ENDWITH + Ol.SHOW(1) + + IF buton = 2 + USE IN clista + RETURN + ENDIF + + lcContPart = loCont.CONT + IF !llTitluTot AND EMPTY(lcDenumire) + lcDenumire = "Inregistrari " + ALLTRIM(clista.explicatie) + "( " + lcContPart + " )" + ELSE + IF !EMPTY(lcDenumire) AND !llTitluTot + lcDenumire = "Inregistrari " + lcDenumire + "( " + lcContPart + " )" + ENDIF + ENDIF + USE IN clista + plActiv = eActiv + ELSE + eActiv = llActiv + plActiv = llActiv + lcContPart = lcCont + IF !llTitluTot AND EMPTY(lcDenumire) + lcDenumire = "Inregistrari " + "( " + lcContPart + " )" + ELSE + IF !EMPTY(lcDenumire) AND !llTitluTot + lcDenumire = "Inregistrari " + lcDenumire + "( " + lcContPart + " )" + ENDIF + ENDIF + ENDIF + + + *** verificare INAINTE_DE + DO inainte WITH "IREG_PARTENERI",lcContPart IN oinainte_de.prg + IF tlTest + DO test_ireg WITH lcContPart,llActiv + ENDIF + + pcCont = lcContPart + + PRIVATE poireg_parteneri,pcschema1,pcselect1 + STORE '' TO poireg_parteneri + pcschema1 = ['id_ireg_part n(20),an n(4), luna n(2),ID_FACT N(20),id_part n(20),cont c(4),acont c(4), ID_VALUTA N(5), ID_VENCHELT N(5), PROC_TVA N(8,2),' +] + ; + ['PRECDEB N(20,4),PRECCRED N(20,4),PRECVALDEB N(20,4),PRECVALCRED N(20,4),' +] + ; + ['debit n(20,4),credit n(20,4),valdebit n(20,4), valcredit n(20,4),' +] + ; + ['NRACT N(14),DATAACT D,DATAIREG D,DATASCAD D,CURS N(9,3),' +] + ; + ['COD N(20),EXPLICATIA C(100),EXPLICATIA4 C(100),EXPLICATIA5 C(100), ' +] + ; + ['ID_RESPONSABIL N(5),ID_FDOC N(5),ID_LUCRARE N(5),ID_SET N(20),ID_ACT N(20),' +] + ; + ['NUME C(100),COD_FISCAL C(30),FDOC C(50),NRESP C(50),NRORD C(50),NUME_VAL C(10),VENCHELT C(50)' ] + +pcselect1=['SELECT I.ID_IREG_PART, I.AN, I.LUNA, ID_FACT, I.ID_PART, I.CONT, I.ACONT, I.ID_VALUTA, I.ID_VENCHELT, I.PROC_TVA,' + ] +; +['I.PRECDEB, I.PRECCRED, I.PRECVALDEB, I.PRECVALCRED, ' + ] +; +['I.DEBIT, I.CREDIT, I.VALDEBIT, I.VALCREDIT, ' + ] +; +['I.NRACT, I.DATAACT, I.DATAIREG, I.DATASCAD, I.CURS,' + ] +; +['I.COD, I.EXPLICATIA, I.EXPLICATIA4, I.EXPLICATIA5,' + ] +; +['I.ID_RESPONSABIL, I.ID_FDOC, I.ID_LUCRARE, I.ID_SET, I.ID_ACT,' + ] +; +['I.NUME,I.COD_FISCAL,I.FDOC,I.NRESP,I.NRORD,I.NUME_VAL,I.VENCHELT' + ] + ; +[' FROM ] + GCS + [.VIREG_PARTENERI I WHERE 1=2'] + +*!* pcselect1=['select i.*,p.cod_fiscal from ] + gcS + [.vireg_parteneri i join ] + gcS + ; +*!* [.vnom_parteneri p on p.id_part = i.id_part where 1=2'] + pcorder1=[dataact] + pcfiltru1 = [1=2] + *!* pcfiltru1 = [cont = '] + Alltrim(pcCont) + [' and luna = ] + Alltrim(Str(gnLuna)) + [ and an = ] + Alltrim(Str(gnAn)) + gencursor('poireg_parteneri','actcv',pcselect1,pcfiltru1,pcschema1,pcorder1) + poireg_parteneri.ca_baza1.afisare() + + + SELECT actcv + + tcFis2 = "ActCv" + tlVisible = .T. + + LOCAL c + c="nume+ALLTRIM(STR(YEAR(dataact)))+RIGHT('0'+ALLTRIM(STR(MONTH(dataact))),2)+RIGHT('0'+ALLTRIM(STR(DAY(dataact))),2)" + buton=1 + + IF tlTest AND .F. + + PRIVATE pcCampVerif + pcCampVerif = ofis.camp_verif + SELECT (tcFis2) + SET FILTER TO + lcProc='inainte_'+ALLTRIM(tcFis2) + DO &lcProc IN inaintede.prg + IF buton=2 + RETURN + ENDIF + ENDIF + + SELE actcv + + + PRIVATE pcAnalitic,pcLucrare + STORE '' TO pcAnalitic,pcLucrare + + Oreg=CREATEOBJECT("FRM_IREG_PARTENERI") + WITH Oreg + .lActiv = llActiv + .cCont = lcContPart + *!* .LABEL10.Caption=Proper(tctitlu)&&& trebuie facut + .LABEL10.CAPTION= PROPER(lcDenumire) + .grid1.column12.VISIBLE=.T. + .CONT=ALLT(pcCont) + .fisier=ALLTRIM(tcFis2) + .Ck_valuta.VISIBLE=tlVisible + .CK_explicatia.VISIBLE=tlVisible + .CHECK7.VISIBLE=tlVisible + .CHECK9.VISIBLE=tlVisible + .grid1.column2.VISIBLE=tlVisible + .grid1.column11.VISIBLE=tlVisible + .grid1.column13.VISIBLE=tlVisible + .grid1.column14.VISIBLE=tlVisible + .grid1.column7.VISIBLE=tlVisible + .grid1.column8.VISIBLE=tlVisible + .grid1.column10.VISIBLE=tlVisible + IF !tlVisible + .CHECK3.CAPTION='Regularizate' + .CHECK4.CAPTION='Neregularizate' + .check10.CAPTION='Regularizat' + .grid1.column12.header1.CAPTION='Regularizat' + .grid1.column2.WIDTH=0 + ENDIF + IF !plActiv + + .grid1.column9.CONTROLSOURCE = "(preccred+credit)-(precdeb+debit)" + .grid1.column14.CONTROLSOURCE ="(precvalcred+valcredit)-(precvaldeb+valdebit)" + .ck_sold.camp_nume = "credit+preccred-precdeb-debit" + .grid1.column1.CONTROLSOURCE = "preccred+credit" + .grid1.column12.CONTROLSOURCE = "precdeb+debit" + .grid1.column11.CONTROLSOURCE = "precvalcred+valcredit" + .grid1.column13.CONTROLSOURCE = "precvaldeb+valdebit" + .grid1.column20.CONTROLSOURCE = "credit" + .grid1.column21.CONTROLSOURCE = "debit" + .grid1.column22.CONTROLSOURCE = "valcredit" + .grid1.column23.CONTROLSOURCE = "valdebit" + .grid1.column18.CONTROLSOURCE = "preccred" + .grid1.column19.CONTROLSOURCE = "precdeb" + + .grid1.column1.header1.CAPTION = "Total " + lcDenCredit + .grid1.column12.header1.CAPTION = "Total " + lcDenDebit + .grid1.column11.header11.CAPTION = "Total " + lcDenCredit + " valuta" + .grid1.column13.header1.CAPTION = "Total " + lcDenDebit + " valuta" + .grid1.column20.header1.CAPTION = lcDenCredit + .grid1.column21.header1.CAPTION = lcDenDebit + .grid1.column22.header1.CAPTION = lcDenCredit + " valuta" + .grid1.column23.header1.CAPTION = lcDenDebit + " valuta" + .grid1.column18.header1.CAPTION = "Prec " + lcDenCredit + .grid1.column19.header1.CAPTION = "Prec " + lcDenDebit + ELSE + .grid1.column9.CONTROLSOURCE = "(precdeb+debit)-(preccred+credit)" + .grid1.column14.CONTROLSOURCE ="(precvaldeb+valdebit)-(precvalcred+valcredit)" + .ck_sold.camp_nume = "precdeb+debit-credit-preccred" + .grid1.column1.header1.CAPTION = "Total " + lcDenDebit + .grid1.column12.header1.CAPTION = "Total " + lcDenCredit + .grid1.column11.header11.CAPTION = "Total " + lcDenDebit + " valuta" + .grid1.column13.header1.CAPTION = "Total " + lcDenCredit + " valuta" + .grid1.column20.header1.CAPTION = lcDenDebit + .grid1.column21.header1.CAPTION = lcDenCredit + .grid1.column22.header1.CAPTION = lcDenDebit + " valuta" + .grid1.column23.header1.CAPTION = lcDenCredit + " valuta" + .grid1.column18.header1.CAPTION = "Prec " + lcDenDebit + .grid1.column19.header1.CAPTION = "Prec " + lcDenCredit + ENDIF + IF TYPE('pcTotctva')#'U' AND TYPE('pcAchitat')#'U' + .grid1.column12.header1.CAPTION=pcAchitat + .grid1.column1.header1.CAPTION=pcTotctva + ENDIF + IF TYPE('pcSumaTotal')#'U' AND TYPE('pcSumaAchi')#'U' + .CHECK13.CAPTION=pcSumaTotal + .check10.CAPTION=pcSumaAchi + ENDIF + IF TYPE('actcv.nresp') # 'U' + .grid1.column17.VISIBLE= .T. + .grid1.column17.CONTROLSOURCE = 'nresp' + .Ck_responsabil.VISIBLE = .T. + ENDIF + ENDWITH + Oreg.SHOW(1) + *!* Select actcv + *!* If Used('actcv') + *!* Use In actcv + *!* Endif + *!* Release ofis + RELEASE Oreg + USE IN actcv + +ENDPROC && lans_ireg_parteneri +*--------------------------------------------------------------------------------- + +PROCEDURE lans_balanta_parteneri + LPARAMETERS tcCont,tlactiv,tlTitluTot,tcDenumire,tcDenDebit,tcDenCredit &&initital cu 2 parametrii + *!* tlTitluTot = daca denumirea titlului este totala i.e.: Nu trebuie sa mai adaug Balanta parteneri + *!* tcDenumire = titlul balantei + *!* tcDenDebit = peste tot pe unde apare debit se va inlocui cu aceasta denumire + *!* tcDenCredit = peste tot pe unde apare credit se va inlocui cu aceasta denumire + + LOCAL llParametri, lcCont, llActiv,llTitluTot,lcDenumire,lcDenDebit,lcDenCredit + + llParametri = .F. + lcCont = '' + llActiv = .F. + IF EMPTY(tlTitluTot) + llTitluTot = .F. + ELSE + llTitluTot = tlTitluTot + ENDIF + + IF EMPTY(tcDenumire) + lcDenumire = "" + ELSE + lcDenumire= tcDenumire + ENDIF + + IF EMPTY(tcDenDebit) + lcDenDebit = "Debit" + ELSE + lcDenDebit = tcDenDebit + ENDIF + IF EMPTY(tcDenCredit) + lcDenCredit = "Credit" + ELSE + lcDenCredit = tcDenCredit + ENDIF + *!* IF PCOUNT() < 2 + IF EMPTY(tcCont) AND EMPTY(tlactiv) + llParametri = .F. + ELSE + llParametri = .T. + lcCont = ALLTRIM(tcCont) + llActiv = tlactiv + ENDIF + + LOCAL NOU, lnTdeb, lnTcred, lnSold, lcContPart, lclista + STORE 0 TO lnTdeb, lnTcred, lnSold + NOU=.T. + + IF .F. + SELECT calendar + GO TOP + IF an=pcAn AND NL=pcNl + NOU=.F. + ENDIF + ENDIF + *!* IF glPrimaLuna + *!* nou = .F. + *!* ENDIF + + PRIVATE polista,pcschema1,pcselect1,pcfiltru1,pcorder1 + STORE "" TO polista + + + IF !llParametri + + IF USED('clista') + USE IN clista + ENDIF + + + pcschema1=['cont c(4),acont c(4),explicatie c(50)'] + pcselect1=['select distinct cont,rpad(CHR(32),4,CHR(32)) as acont,explicatie from ]+gcS+[.vcoresp_tip_cont where 1=2'] + pcfiltru1=[2=2] + pcorder1=[cont] + llAfisare=.F. + gencursor('polista','clista',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare) + polista.ca_baza1.afisare() + + *!* SELECT DISTINCT cont, '' as acont FROM coresp_tip_cont INTO CURSOR clista + SELECT clista + loCont=myscatter('blank') + + PRIVATE eActiv + STORE .T. TO eActiv + + Ol=CREATEOBJECT("frm_sel_cont") + WITH Ol + .Lb_titlu_alb_b121.CAPTION= 'Selectati contul' + IF EMPTY(.cboCont.ROWSOURCE) + .cboCont.ROWSOURCE="clista.cont,acont" + ENDIF + .ocont=loCont + IF EMPTY(.cAlias) + .cAlias=LEFT(.cboCont.ROWSOURCE,AT(".",.cboCont.ROWSOURCE)-1) + ENDIF + .HEIGHT = 190 + ENDWITH + Ol.SHOW(1) + + IF buton = 2 + USE IN clista + RETURN + ENDIF + + lcContPart = loCont.CONT + IF !llTitluTot AND EMPTY(lcDenumire) + lcDenumire = "Balanta " + ALLTRIM(clista.explicatie) + "( " + lcContPart + " )" + ELSE + IF !EMPTY(lcDenumire) AND !llTitluTot + lcDenumire = "Balanta " + lcDenumire + "( " + lcContPart + " )" + ENDIF + ENDIF + USE IN clista + ELSE + lcContPart = lcCont + eActiv = llActiv + + IF !llTitluTot AND EMPTY(lcDenumire) + lcDenumire = "Balanta " + "( " + lcContPart + " )" + ELSE + IF !EMPTY(lcDenumire) AND !llTitluTot + lcDenumire = "Balanta " + lcDenumire + "( " + lcContPart + " )" + ENDIF + ENDIF + ENDIF + + IF eActiv + lnSemn = -1 + ELSE + lnSemn = 1 + ENDIF + + + *** verificare INAINTE_DE + DO inainte WITH "BALANTA_parteneri",lcContPart IN oinainte_de.prg + + + + + PRIVATE pobalpartext,pcschema2,pcselect2,pcfiltru2,pcorder2,pobalpartint,pcschema3,pcselect3,pcfiltru3,pcorder3,pcgroup3 + STORE "" TO pobalpartext,pobalpartint + pcschema2=['PRECDEB1 N(19,2),PRECCRED1 N(19,2),PRECDEB N(19,2),PRECCRED N(19,2),'+]+; + ['DEB N(19,2),CRED N(19,2),PRECVALDEB1 N(19,2),PRECVALCRED1 N(19,2),PRECVALDEB N(19,2),'+]+; + ['PRECVALCRED N(19,2),VALDEBIT N(19,2),VALCREDIT N(19,2),NUME_VAL C(5),ID_PART N(10),'+]+; + ['NUME C(50),COD_FISCAL C(30),CONT C(4),ACONT C(4),AN N(4),LUNA N(2),TOTCRED N(19,2),TOTDEB N(19,2),'+]+; + ['TOTVALCRED N(19,2),TOTVALDEB N(19,2),ID_VALUTA N(5)'] + pcselect2=['select PRECDEB1,PRECCRED1,PRECDEB,PRECCRED,'+]+; + ['DEBIT as DEB,CREDIT as CRED,PRECVALDEB1,PRECVALCRED1,PRECVALDEB,'+]+; + ['PRECVALCRED,VALDEBIT,VALCREDIT,NUME_VAL,ID_PART,'+]+; + ['NUME,COD_FISCAL,CONT,ACONT,AN,LUNA,'+]+; + ['PRECCRED+CREDIT as TOTCRED,PRECDEB+DEBIT as TOTDEB,'+]+; + ['PRECVALCRED+VALCREDIT as TOTVALCRED,PRECVALDEB+VALDEBIT as TOTVALDEB,ID_VALUTA '+]+; + ['from ]+gcS+[.vbalanta_parteneri where 1=2'] + pcfiltru2=[1=2] + pcorder2=[nume,acont] + llAfisare=.F. + gencursor('pobalpartext','xtemp',pcselect2,pcfiltru2,[''],pcorder2,llAfisare) + pobalpartext.ca_baza1.afisare() + + pcschema3=['PRECDEB1 N(19,2),PRECCRED1 N(19,2),PRECDEB N(19,2),PRECCRED N(19,2),'+]+; + ['DEB N(19,2),CRED N(19,2),PRECVALDEB1 N(19,2),PRECVALCRED1 N(19,2),PRECVALDEB N(19,2),'+]+; + ['PRECVALCRED N(19,2),VALDEBIT N(19,2),VALCREDIT N(19,2),NUME_VAL C(5),ID_PART N(10),'+]+; + ['NUME C(50),COD_FISCAL C(30),CONT C(4),ACONT C(4),AN N(4),LUNA N(2),TOTCRED N(19,2),TOTDEB N(19,2),'+]+; + ['TOTVALCRED N(19,2),TOTVALDEB N(19,2),ID_VALUTA N(5)'] + pcselect3=['select SUM(PRECDEB1) AS PRECDEB1,SUM(PRECCRED1) AS PRECCRED1,SUM(PRECDEB) AS PRECDEB,SUM(PRECCRED) AS PRECCRED,'+]+; + ['SUM(DEBIT) as DEB,SUM(CREDIT) as CRED,0 AS PRECVALDEB1,0 AS PRECVALCRED1,0 AS PRECVALDEB,'+]+; + ["0 AS PRECVALCRED,0 AS VALDEBIT,0 AS VALCREDIT,'LEI' AS NUME_VAL,ID_PART,"+]+; + ['NUME,COD_FISCAL,CONT,ACONT,AN,LUNA,'+]+; + ['SUM(PRECCRED+CREDIT) as TOTCRED,SUM(PRECDEB+DEBIT) as TOTDEB,'+]+; + ['SUM(PRECVALCRED+VALCREDIT) as TOTVALCRED,SUM(PRECVALDEB+VALDEBIT) as TOTVALDEB,0 AS ID_VALUTA '+]+; + ['from ]+gcS+[.vbalanta_parteneri where 1=2'] + pcfiltru3=[1=2] + pcorder3=[nume,acont] + pcgroup3=[CONT,ACONT,AN,LUNA,ID_PART,NUME,COD_FISCAL] + llAfisare=.F. + gencursor('pobalpartint','xtemp',pcselect3,pcfiltru3,[''],pcorder3,llAfisare,pcgroup3) + pobalpartint.ca_baza1.afisare() + + OVIZ=CREATEOBJECT("frm_bal_parteneri") + WITH OVIZ + *!* .LABEL10.Caption='SITUATIA ANALITICA - BALANTA PARTENERI (' + Alltrim(lcContPart) + ')' + .LABEL10.CAPTION = PROPER(lcDenumire) + IF eActiv + .grid1.column6.CONTROLSOURCE='- cred + deb' + .grid1.column10.CONTROLSOURCE='- totcred + totdeb' + .grid1.column9.CONTROLSOURCE='- preccred + precdeb' + + .grid1.column21.CONTROLSOURCE='- totvalcred + totvaldeb' + .grid1.column18.CONTROLSOURCE='- precvalcred + precvaldeb' + *!* .grid1.column6.header1.Caption='Sold (deb-cred)' + *!* .grid1.COLUMN4.header1.Caption='Debit' + *!* .grid1.COLUMN5.header1.Caption='Credit' + .grid1.column6.header1.CAPTION= "Sold("+ALLTRIM(lcDenDebit)+"-"+ALLTRIM(lcDenCredit)+")"&&'Sold (cred-deb)' + .grid1.COLUMN4.header1.CAPTION= lcDenDebit&&Debit' + .grid1.COLUMN5.header1.CAPTION= lcDenCredit&&'Credit' + .grid1.column11.header1.CAPTION= "Prec." + lcDenDebit&&Debit' + .grid1.column12.header1.CAPTION= "Prec." + lcDenCredit&&'Credit' + .grid1.COLUMN15.header1.CAPTION= "Total" + lcDenDebit&&Debit' + .grid1.COLUMN16.header1.CAPTION= "Total" + lcDenCredit&&'Credit' + .pcfel='A' + ELSE + .grid1.column6.CONTROLSOURCE='cred - deb' + .grid1.column10.CONTROLSOURCE='totcred - totdeb' + .grid1.column9.CONTROLSOURCE='preccred - precdeb' + + .grid1.column21.CONTROLSOURCE='totvalcred - totvaldeb' + .grid1.column18.CONTROLSOURCE='precvalcred - precvaldeb' + .grid1.column6.header1.CAPTION= "Sold("+ALLTRIM(lcDenCredit)+"-"+ALLTRIM(lcDenDebit)+")"&&'Sold (cred-deb)' + .grid1.COLUMN4.header1.CAPTION= lcDenDebit&&Debit' + .grid1.COLUMN5.header1.CAPTION= lcDenCredit&&'Credit' + .grid1.column12.header1.CAPTION= "Prec." + lcDenCredit&&'Credit' + .grid1.column11.header1.CAPTION= "Prec." + lcDenDebit&&'Debit' + *!* .grid1.column11.controlsource = "preccred" + *!* .grid1.column12.controlsource = "precdeb" + .grid1.COLUMN16.header1.CAPTION= "Total" + lcDenCredit&&'Credit' + .grid1.COLUMN17.header1.CAPTION= "Total" + lcDenDebit&&'Debit' + *!* .grid1.COLUMN15.controlsource= "totCred" &&Credit' + *!* .grid1.COLUMN16.controlsource= "TotDeb" &&'Debit' + .pcfel='P' + + ENDIF + .grid1.column18.VISIBLE=.F. + .grid1.column19.VISIBLE=.F. + .grid1.column20.VISIBLE=.F. + .grid1.column21.VISIBLE=.F. + .grid1.column22.VISIBLE=.F. + .TABEL = 'BALANTA_PARTENER' + .pcCont = ALLTRIM(lcContPart) + .grid1.column8.WIDTH=0 + .grid1.column13.WIDTH=0 + .grid1.column14.WIDTH=0 + .grid1.column8.VISIBLE=.F. + .grid1.column13.VISIBLE=.F. + .grid1.column14.VISIBLE=.F. + .label7.VISIBLE=.F. + .text4.VISIBLE=.F. + .TEXT5.VISIBLE=.F. + .text9.VISIBLE=.F. + ENDWITH + IF !NOU + WITH OVIZ.grid1 + .column2.COLUMNORDER=2 + FOR I=9 TO 16 + lcViz='.column'+ALLTRIM(STR(I))+'.visible=.f.' + *lcWidth='.column'+ALLTRIM(STR(i))+'.width=0' + &lcViz + *&lcWidth + ENDFOR + ENDWITH + ENDIF + + OVIZ.SHOW(1) + USE IN xtemp + *!* ENDIF +ENDPROC && lans_balanta_parteneri +*---------------------------------------------------------------------------------------------- + + +*---------------------------------- Inceput lans_balanta_cumulata ---------------------------------- +PROCEDURE lans_balanta_cumulata + + +pcselect = [select explicatie, id_coloana from ] + gcs + [.coloane where 2=2] +pcfiltru = [2=2] +pcschema = [''] +pcorder = [explicatie] +pccoloane = [explicatie] +pcTitlu = [Alegeti Balanta] +pcFiltruOriginal = [camp is null and tabel is null and id_prg_owner = 2 and configurabil = 1] +locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitlu,"",.f.,pcFiltruOriginal) + +IF EMPTY(locauta.id_coloana) OR ISNULL(locauta.id_coloana) + RETURN +ENDIF + +pnIdBal = locauta.id_coloana + + +pcTitluCol = [] +pcNumeCol = [] +lcSel = [{call pack_balante_cumulate.balante_cumulate(?@pcNumeCol,?@pcTitluCol,?gcS,?pnIdBal,?gnAn,?gnLuna)}] +lcSchema = [] +lcCursor = 'crs_bal' +lnSucces = goExecutor.oExecute(lcSel,lcCursor) + +IF lnSucces < 0 + MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + RETURN +ENDIF + + +pcNumeCol = [nume;cod_fiscal;acont;] + pcNumeCol +pcTitluCol = [Partener,Cod Fiscal,Analitic,] + pcTitluCol +SELECT (lcCursor) +SCATTER NAME loto BLANK + + +obalp = CREATEOBJECT('frm_bal_parteneri_cumulata') +obalp.ototal = loto +WITH obalp.ct_grid_order1 + .cselect = lcSel + .cschema = lcSchema + .cTitlu_coloane = pcTitluCol + .cNume_coloane = pcNumeCol + .cFiltruOriginal = [] + .cFiltru = [] + .cOrder = [] + .cTitlu = [] + .cnumeCursor = lcCursor + .lmodparam = .T. +ENDWITH +obalp.ctitlu = locauta.explicatie +obalp.show() + +IF USED(lcCursor) + USE IN (lcCursor) +ENDIF + +ENDPROC && lans_balanta_cumulata +*---------------------------------- Sfarsit lans_balanta_cumulata ---------------------------------- + + +*---------------------------------- Inceput configurare_balanta_cumulata ---------------------------------- +PROCEDURE configurare_balanta_cumulata +PRIVATE pnIdBalanta, pnIdColoana +STORE 0 TO pnIdBalanta, pnIdColoana + +pcselect1 = [select explicatie,explicatie2, id_coloana from ] + gcs + [.coloane ] +pcfiltru1 = [camp is null and tabel is null and id_prg_owner = 2 and configurabil = 1] +pcschema1 = [''] +pcorder1 = [explicatie] +pccoloane1 = [explicatie; explicatie2] +pcTitluCol1 = [Titlu Balanta,Conturi] +pcTitlu1 = [Lista Balante Configurate] + +pcselect2 = [select f.id_calcul, f.id_op_col , f.ordine, f.id_coloana, c.camp, c.explicatie from ] + gcs + [.sal_calcul f left join ] + ; + gcs +[.coloane c on f.id_op_col = c.id_coloana and f.coloana = 1] +pcfiltru2 = [f.id_coloana =?pnIdBalanta] +pcschema2 = [''] +pcorder2 = [f.ordine] +pccoloane2 = [explicatie; ordine] +pcMask2 = '[1]=;[2]=REPLICATE("9",3)' +pcTitluCol2 = [Titlu coloana, Ordine] +pcTitlu2 = [Coloane Balanta] + +pcselect3 = [select id_calcul, id_coloana, id_op_col, explicatie, camp, coloana, ordine from ] + gcs + [.cont_vformule_balante ] +pcfiltru3 = [id_coloana =?pnIdColoana] +pcschema3 = [''] +pcorder3 = [ordine] +pccoloane3 = [camp;explicatie;ordine] +pcMask3 = '[1]=;[2]=;[3]=REPLICATE("9",3)' +pcTitluCol3 = [Camp,Explicatie,Ordine] +pcTitlu3 = [Formula Coloane] + + +obalp = CREATEOBJECT('config_balante_parteneri') +WITH obalp.Ct_grid_search1 + .cselect = pcselect1 + .cschema = pcschema1 + .cTitlu_coloane = pcTitluCol1 + .cNume_coloane = pccoloane1 + .cFiltruOriginal = pcfiltru1 + .cFiltru = [2=2] + .cOrder = pcorder1 + .cTitlu = pcTitlu1 + .cnumeCursor = 'crs_NumeBal' + .lmodparam = .T. +ENDWITH +WITH obalp.Ct_grid_search2 + .cselect = pcselect2 + .cschema = pcschema2 + .cTitlu_coloane = pcTitluCol2 + .cNume_coloane = pccoloane2 + .cFiltruOriginal = pcfiltru2 + .cFiltru = [2=2] + .cOrder = pcorder2 + .cTitlu = pcTitlu2 + .cMask = pcMask2 + .cnumeCursor = 'crs_ColoaneBal' + .lmodparam = .t. +ENDWITH +WITH obalp.Ct_grid_search3 + .cselect = pcselect3 + .cschema = pcschema3 + .cTitlu_coloane = pcTitluCol3 + .cNume_coloane = pccoloane3 + .cFiltruOriginal = pcfiltru3 + .cFiltru = [2=2] + .cOrder = pcorder3 + .cTitlu = pcTitlu3 + .cMask = pcMask3 + .cnumeCursor = 'crs_FormulaBal' + .lmodparam = .t. +ENDWITH +obalp.show() + +ENDPROC && configurare_balanta_cumulata +*---------------------------------- Sfarsit configurare_balanta_cumulata ---------------------------------- + diff --git a/Programe/oparteneri_contracte.prg b/Programe/oparteneri_contracte.prg new file mode 100644 index 0000000..a6b89e6 --- /dev/null +++ b/Programe/oparteneri_contracte.prg @@ -0,0 +1,379 @@ + +*!* APEL DE PROCEDURA +*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv + +*----------------------------------------------------------- +Procedure lans_ireg_parteneri +Parameters tlTest,tcCont,tlactiv,tlTitluTot,tcDenumire,tcDenDebit,tcDenCredit, tlContract +*!* tlTitluTot = daca denumirea titlului este totala i.e.: Nu trebuie sa mai adaug Balanta parteneri +*!* tcDenumire = titlul balantei +*!* tcDenDebit = peste tot pe unde apare debit se va inlocui cu aceasta denumire +*!* tcDenCredit = peste tot pe unde apare credit se va inlocui cu aceasta denumire + +*!* 07.08.2008 +*!* am copiat frm_ireg_parteneri din comun\clase\oparteneri.vcx +*!* am sters butoanele cmdModifica, cmdSterge, init - referinte la butoane, do_cauta - fara an si luna +*!* 07.08.2008 ^ + +Local lcCont, llActiv, llParametri,llTitluTot,lcDenumire,lcDenDebit,lcDenCredit +llParametri = .F. + +If Empty(tlTitluTot) + llTitluTot = .F. +Else + llTitluTot = tlTitluTot +Endif + +If Empty(tcDenumire) + lcDenumire = "" +Else + lcDenumire= tcDenumire +Endif + +If Empty(tcDenDebit) + lcDenDebit = "Debit" +Else + lcDenDebit = tcDenDebit +Endif +If Empty(tcDenCredit) + lcDenCredit = "Credit" +Else + lcDenCredit = tcDenCredit +Endif + +If !Empty(tcCont) + lcCont = Alltrim(tcCont) +Else + lcCont = '' +Endif + +If !Empty(tlactiv) + llActiv = tlactiv +Else + llActiv = .F. +Endif + + +llParametri = .F. +If !Empty(tcCont) + llParametri = .T. +Endif +Local NOU, lnTdeb, lnTcred, lnSold, lcContPart, lclista +Store 0 To lnTdeb, lnTcred, lnSold +NOU=.T. + +If glPrimaLuna + NOU = .F. +Endif + +Private plActiv +Store .T. To plActiv +Private eActiv +Store .T. To eActiv + +If llParametri + eActiv = llActiv + plActiv = llActiv + lcContPart = lcCont + If !llTitluTot And Empty(lcDenumire) + lcDenumire = "Inregistrari " + "( " + lcContPart + " )" + Else + If !Empty(lcDenumire) And !llTitluTot + lcDenumire = "Inregistrari " + lcDenumire + "( " + lcContPart + " )" + Endif + Endif +Endif + +pcCont = lcContPart + +Private poireg_parteneri,pcschema1,pcselect1 +Store '' To poireg_parteneri + +*!* lcschema1 = [id_ireg_part n(20), an n(4), luna n(2), ID_FACT N(20), rate_acoperite C(200), id_part n(20), cont c(4), acont c(4), ID_VALUTA N(5), ID_VENCHELT N(5), PROC_TVA N(8,2), ] + ; +*!* [PRECDEB N(20,4), PRECCRED N(20,4), PRECVALDEB N(20,4), PRECVALCRED N(20,4), ] + ; +*!* [debit n(20,4), credit n(20,4), valdebit n(20,4), valcredit n(20,4), ] + ; +*!* [NRACT N(14), DATAACT D, DATAIREG D, DATASCAD D, CURS N(10,4), ] + ; +*!* [COD N(20), EXPLICATIA C(100), EXPLICATIA4 C(100), EXPLICATIA5 C(100), ] + ; +*!* [ID_RESPONSABIL N(5), ID_FDOC N(5), ID_LUCRARE N(10), ID_CTR N(5), ID_SET N(20), ID_ACT N(20), ] + ; +*!* [NUME C(100), COD_FISCAL C(30), FDOC C(50), NRESP C(50), NRORD C(50), CONTRACT C(30), NUME_VAL C(10), VENCHELT C(50) ] + +*!* modificare v 2.0.6 : am adaugat serie_act +lcschema1 = [ an n(4), luna n(2), ID_FACT N(20), rate_acoperite C(200), id_part n(20), cont c(4), acont c(4), ID_VALUTA N(5), ]+; + [ ID_VENCHELT N(5), PROC_TVA N(8,2), ] + ; + [PRECDEB N(20,4), PRECCRED N(20,4), PRECVALDEB N(20,4), PRECVALCRED N(20,4), ] + ; + [debit n(20,4), credit n(20,4), valdebit n(20,4), valcredit n(20,4), ] + ; + [NRACT N(14),serie_act c(50), DATAACT D, DATAIREG D, DATASCAD D, CURS N(10,gnPCurs2), ] + ; + [COD N(20), EXPLICATIA C(100), EXPLICATIA4 C(100), EXPLICATIA5 C(100), ] + ; + [ID_RESPONSABIL N(5), ID_FDOC N(5), ID_LUCRARE N(10), ID_CTR N(5), ID_SET N(20), ID_ACT N(20), ] + ; + [NUME C(100), COD_FISCAL C(30), FDOC C(50), NRESP C(50), NRORD C(50), CONTRACT C(30), NUME_VAL C(10), ]+; + [ VENCHELT C(50), ] + ; + [ID_SUCURSALA N(5), SUCURSALA C(100), NR N(10)] + +lcPA = Alltrim(Str(gnPA)) +*!* lcSelect1 = [ select i.an, i.luna, i.id_fact, ra.rate_acoperite, i.id_part, i.cont, i.acont, i.id_valuta, ]+; +*!* [ i.id_venchelt, i.proc_tva, ] + ; +*!* [ 000000000000000.0000 as PRECDEB, 000000000000000.0000 as PRECCRED, 000000000000000.0000 as PRECVALDEB, 000000000000000.0000 as PRECVALCRED, ]+; +*!* [ s2.debit, s2.credit, s2.valdebit, s2.valcredit, ]+; +*!* [ i.nract, i.dataact, i.dataireg, i.datascad, i.curs, ]+; +*!* [ i.cod, i.explicatia, i.explicatia4, i.explicatia5, ]+; +*!* [ i.id_responsabil, i.id_fdoc, i.id_lucrare, i.id_ctr, i.id_set, i.id_act, ]+; +*!* [ p.nume, p.cod_fiscal, f.FEL_DOCUMENT as fdoc, r.nume as nresp, l.nrord, ]+; +*!* [ (case when ctr.numar is not null then ctr.numar || '/' else '' end) || TO_CHAR(ctr.data, 'DD.MM.YYYY') as contract, ]+; +*!* [ v.nume_val, vc.explicatie as VENCHELT ]+; +*!* [ from (select an, luna, id_fact, id_part, cont, acont, id_valuta, ]+; +*!* [ id_venchelt, proc_tva, nract, dataact, dataireg, datascad, ]+; +*!* [ curs, cod, explicatia, explicatia4, explicatia5, id_responsabil, id_fdoc, id_lucrare, id_ctr, id_set, id_act ]+; +*!* [ from ireg_parteneri ]+; +*!* [ WHERE extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna and id_part = ]+ ALLTRIM(STR(goContract.id_part))+[ and cont = '4111') i ]+; +*!* [ left join (select id_fact, cont,]+; +*!* [ sum(pack_sesiune.suma_ron(debit,an,luna,]+ lcPA + [)) as debit, ]+; +*!* [ sum(pack_sesiune.suma_ron(credit,an,luna,]+ lcPA + [)) as credit, ]+; +*!* [ sum(pack_sesiune.suma_ron(valdebit,an,luna,]+ lcPA + [)) as valdebit, ]+; +*!* [ sum(pack_sesiune.suma_ron(valcredit,an,luna,]+ lcPA + [)) as valcredit ]+; +*!* [ from ireg_parteneri where id_part = ]+ ALLTRIM(STR(goContract.id_part)) + [ and cont = '4111' group by id_fact,cont) s2 ]+; +*!* [ on i.id_fact = s2.id_fact ]+; +*!* [ left join (select s.id_ctr, ]+; +*!* [ rf.id_fact, stringAgg(s.den_rata) as rate_acoperite from vctr_rate_facturi rf ]+; +*!* [ left join (select * from vctr_scadentar order by id_ctr, den_rata) s on s.id_rata = rf.ID_RATA ]+; +*!* [ group by s.id_ctr, rf.id_fact) ra ]+; +*!* [ on i.id_fact = ra.id_fact ]+; +*!* [ LEFT JOIN CONTRACTE CTR ON i.ID_CTR = CTR.ID_CTR ]+; +*!* [ LEFT JOIN nom_venit_cheltuieli VC ON i.ID_VENCHELT = VC.ID_VENCHELT ]+; +*!* [ LEFT JOIN NOM_VALUTE V ON i.ID_VALUTA = V.ID_VALUTA ]+; +*!* [ LEFT JOIN VNOM_LUCRARI L ON i.ID_LUCRARE = L.ID_LUCRARE ]+; +*!* [ LEFT JOIN NOM_PARTENERI R ON i.ID_RESPONSABIL = R.ID_part ]+; +*!* [ LEFT JOIN NOM_FDOC F ON i.ID_FDOC = F.ID_FDOC ]+; +*!* [ LEFT JOIN NOM_PARTENERI P ON i.ID_PART = P.ID_PART ] + +If tlContract + lcSelect1 = [ select i.* from (select ir.an, ir.luna, ir.id_fact, ra.rate_acoperite, ir.id_part, ir.cont, ir.acont, ir.id_valuta, ]+; + [ ir.id_venchelt, ir.proc_tva, ] + ; + [ 000000000000000.0000 as PRECDEB, 000000000000000.0000 as PRECCRED, 000000000000000.0000 as PRECVALDEB, 000000000000000.0000 as PRECVALCRED, ]+; + [ s2.debit, s2.credit, s2.valdebit, s2.valcredit, ]+; + [ ir.nract, ir.serie_act, ir.dataact, ir.dataireg, ir.datascad, ir.curs, ]+; + [ ir.cod, ir.explicatia, ir.explicatia4, ir.explicatia5, ]+; + [ ir.id_responsabil, ir.id_fdoc, ir.id_lucrare, ir.id_ctr, ir.id_set, ir.id_act, ]+; + [ p.nume, p.cod_fiscal, f.FEL_DOCUMENT as fdoc, r.nume as nresp, l.nrord, ]+; + [ (case when ctr.numar is not null then ctr.numar || '/' else '' end) || TO_CHAR(ctr.data, 'DD.MM.YYYY') as contract, ]+; + [ v.nume_val, vc.explicatie as VENCHELT, ir.id_sucursala, s.sucursala, atvanz.nr ]+; + [ from (select an, luna, serie_act, id_fact, id_part, cont, acont, id_valuta, ]+; + [ id_venchelt, proc_tva, nract, dataact, dataireg, datascad, ]+; + [ curs, cod, explicatia, explicatia4, explicatia5, id_responsabil, id_fdoc, id_lucrare, id_ctr, id_set, id_act, id_sucursala ]+; + [ from ireg_parteneri ]+; + [ WHERE extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna and ]+; + [ id_part = ]+ Alltrim(Str(goContract.id_part))+; + [ and id_ctr = ] + Alltrim(Str(goContract.id_ctr)) +; + [ and cont = ] + tcCont + [) ir ]+; + [ left join (select id_fact, cont,acont,]+; + [ sum(pack_sesiune.suma_ron(debit,an,luna,]+ lcPA + [)) as debit, ]+; + [ sum(pack_sesiune.suma_ron(credit,an,luna,]+ lcPA + [)) as credit, ]+; + [ sum(pack_sesiune.suma_ron(valdebit,an,luna,]+ lcPA + [)) as valdebit, ]+; + [ sum(pack_sesiune.suma_ron(valcredit,an,luna,]+ lcPA + [)) as valcredit ]+; + [ from ireg_parteneri ]+; + [ where id_part = ]+ Alltrim(Str(goContract.id_part)) + ; + [ and id_ctr = ] + Alltrim(Str(goContract.id_ctr)) +; + [ and cont = ] + tcCont + [ group by id_fact,cont,acont) s2 ]+; + [ on ir.id_fact = s2.id_fact and ir.acont = s2.acont ]+; + [ left join (select s.id_ctr, ]+; + [ rf.id_fact, stringAgg(s.den_rata) as rate_acoperite from vctr_rate_facturi rf ]+; + [ left join (select * from vctr_scadentar order by id_ctr, den_rata) s on s.id_rata = rf.ID_RATA ]+; + [ group by s.id_ctr, rf.id_fact) ra ]+; + [ on ir.id_fact = ra.id_fact ]+; + [ LEFT JOIN CONTRACTE CTR ON ir.ID_CTR = CTR.ID_CTR ]+; + [ LEFT JOIN nom_venit_cheltuieli VC ON ir.ID_VENCHELT = VC.ID_VENCHELT ]+; + [ LEFT JOIN NOM_VALUTE V ON ir.ID_VALUTA = V.ID_VALUTA ]+; + [ LEFT JOIN VNOM_LUCRARI L ON ir.ID_LUCRARE = L.ID_LUCRARE ]+; + [ LEFT JOIN NOM_PARTENERI R ON ir.ID_RESPONSABIL = R.ID_part ]+; + [ LEFT JOIN NOM_FDOC F ON ir.ID_FDOC = F.ID_FDOC ]+; + [ LEFT JOIN vNOM_SUCURSALE S ON ir.ID_SUCURSALA = S.ID_SUCURSALA ]+; + [ LEFT JOIN NOM_PARTENERI P ON ir.ID_PART = P.ID_PART ] + ; + [left join (select count(*) as nr,cod from vatasamente_vanzari group by cod) atvanz on ir.cod = atvanz.cod) i ] +Else + lcSelect1 = [ select i.* from (select ir.an, ir.luna, ir.id_fact, ra.rate_acoperite, ir.id_part, ir.cont, ir.acont, ir.id_valuta, ]+; + [ ir.id_venchelt, ir.proc_tva, ] + ; + [ 000000000000000.0000 as PRECDEB, 000000000000000.0000 as PRECCRED, 000000000000000.0000 as PRECVALDEB, 000000000000000.0000 as PRECVALCRED, ]+; + [ s2.debit, s2.credit, s2.valdebit, s2.valcredit, ]+; + [ ir.nract, ir.serie_act, ir.dataact, ir.dataireg, ir.datascad, ir.curs, ]+; + [ ir.cod, ir.explicatia, ir.explicatia4, ir.explicatia5, ]+; + [ ir.id_responsabil, ir.id_fdoc, ir.id_lucrare, ir.id_ctr, ir.id_set, ir.id_act, ]+; + [ p.nume, p.cod_fiscal, f.FEL_DOCUMENT as fdoc, r.nume as nresp, l.nrord, ]+; + [ (case when ctr.numar is not null then ctr.numar || '/' else '' end) || TO_CHAR(ctr.data, 'DD.MM.YYYY') as contract, ]+; + [ v.nume_val, vc.explicatie as VENCHELT, ir.id_sucursala, s.sucursala, atvanz.nr ]+; + [ from (select an, luna, id_fact, id_part, cont, acont, id_valuta, ]+; + [ id_venchelt, proc_tva, nract, serie_act, dataact, dataireg, datascad, ]+; + [ curs, cod, explicatia, explicatia4, explicatia5, id_responsabil, id_fdoc, id_lucrare, id_ctr, id_set, id_act, id_sucursala ]+; + [ from ireg_parteneri ]+; + [ WHERE extract(year from dataireg) * 12 + extract(month from dataireg) = an * 12 + luna and id_part = ]+ Alltrim(Str(goContract.id_part))+[ and cont = ] + tcCont + [) ir ]+; + [ left join (select id_fact, cont,]+; + [ sum(pack_sesiune.suma_ron(debit,an,luna,]+ lcPA + [)) as debit, ]+; + [ sum(pack_sesiune.suma_ron(credit,an,luna,]+ lcPA + [)) as credit, ]+; + [ sum(pack_sesiune.suma_ron(valdebit,an,luna,]+ lcPA + [)) as valdebit, ]+; + [ sum(pack_sesiune.suma_ron(valcredit,an,luna,]+ lcPA + [)) as valcredit ]+; + [ from ireg_parteneri ]+; + [ where id_part = ]+ Alltrim(Str(goContract.id_part)) + ; + [ and cont = ] + tcCont + [ group by id_fact,cont) s2 ]+; + [ on ir.id_fact = s2.id_fact ]+; + [ left join (select s.id_ctr, ]+; + [ rf.id_fact, stringAgg(s.den_rata) as rate_acoperite from vctr_rate_facturi rf ]+; + [ left join (select * from vctr_scadentar order by id_ctr, den_rata) s on s.id_rata = rf.ID_RATA ]+; + [ group by s.id_ctr, rf.id_fact) ra ]+; + [ on ir.id_fact = ra.id_fact ]+; + [ LEFT JOIN CONTRACTE CTR ON ir.ID_CTR = CTR.ID_CTR ]+; + [ LEFT JOIN nom_venit_cheltuieli VC ON ir.ID_VENCHELT = VC.ID_VENCHELT ]+; + [ LEFT JOIN NOM_VALUTE V ON ir.ID_VALUTA = V.ID_VALUTA ]+; + [ LEFT JOIN VNOM_LUCRARI L ON ir.ID_LUCRARE = L.ID_LUCRARE ]+; + [ LEFT JOIN NOM_PARTENERI R ON ir.ID_RESPONSABIL = R.ID_part ]+; + [ LEFT JOIN NOM_FDOC F ON ir.ID_FDOC = F.ID_FDOC ]+; + [ LEFT JOIN vNOM_SUCURSALE S ON ir.ID_SUCURSALA = S.ID_SUCURSALA ]+; + [ LEFT JOIN NOM_PARTENERI P ON ir.ID_PART = P.ID_PART ] + ; + [left join (select count(*) as nr,cod from vatasamente_vanzari group by cod) atvanz on ir.cod = atvanz.cod) i ] +Endif + +lcOrder1 = [i.dataact] +lcgroup = [] + +lcFiltru1 = [] +lcFiltruOriginal = [] +llModParam = .T. +llAfiseaza = .F. + +&& DACA SUNT PE O SUCURSALA - SELECTEZ DOAR INREGISTRARILE DE PE SUCURSALA CURENTA +IF !ISNULL(gnIdSucursala) + lcFiltruOriginal = SUBSTR(gcCondSucursala,6) +ENDIF + +gencursor('poireg_parteneri','actcv', lcSelect1, lcFiltru1, lcschema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) +poireg_parteneri.ca_baza1.afisare() +******** + +tcFis2 = "ActCv" +tlVisible = .T. + +Local c +c="nume+ALLTRIM(STR(YEAR(dataact)))+RIGHT('0'+ALLTRIM(STR(MONTH(dataact))),2)+RIGHT('0'+ALLTRIM(STR(DAY(dataact))),2)" +buton=1 + +If tlTest And .F. + Private pcCampVerif + pcCampVerif = ofis.camp_verif + Select (tcFis2) + Set Filter To + lcProc='inainte_'+Alltrim(tcFis2) + Do &lcProc In inaintede.prg + If buton=2 + Return + Endif +Endif + +lnsucces=update_jtva_coloane(,"jtva_temp") + +Sele actcv + + +Private pcAnalitic,pcLucrare +Store '' To pcAnalitic,pcLucrare + +Oreg=Createobject("FRM_IREG_PARTENERI") +With Oreg + .lActiv = plActiv + .cCont = lcContPart + *!* .LABEL10.Caption=Proper(tctitlu)&&& trebuie facut + .Lb_titlu_alb_b121.CAPTION = PROPER(lcDenumire) + .grid1.cTotCred.VISIBLE = .T. + .CONT = ALLT(pcCont) + .fisier = ALLTRIM(tcFis2) + *.Ck_valuta.VISIBLE = tlVisible + *.CK_explicatia.VISIBLE = tlVisible + *.ck_scadente.VISIBLE = tlVisible + * .CHECK9.VISIBLE = tlVisible + .grid1.cDataScad.VISIBLE = tlVisible + .grid1.cTotDebVal.VISIBLE = tlVisible + .grid1.cTotCredVal.VISIBLE = tlVisible + .grid1.cSoldVal.VISIBLE = tlVisible + .grid1.cNume_val.VISIBLE = tlVisible + .grid1.cCurs.VISIBLE = tlVisible + .grid1.cExplicatia.VISIBLE = tlVisible + IF !tlVisible + .CHECK3.CAPTION = 'Regularizate' + .CHECK4.CAPTION = 'Neregularizate' + .check10.CAPTION = 'Regularizat' + .grid1.cTotCred.header1.CAPTION = 'Regularizat' + .grid1.cDataScad.WIDTH = 0 + ENDIF + IF !plActiv + + .grid1.cSoldFinal.CONTROLSOURCE = "(Preccred+credit)-(precdeb+debit)" + .grid1.cSoldVal.CONTROLSOURCE ="(precvalcred+valcredit)-(precvaldeb+valdebit)" + *.ck_sold.camp_nume = "credit+preccred-precdeb-debit" + .grid1.cTotDeb.CONTROLSOURCE = "preccred+credit" + .grid1.cTotCred.CONTROLSOURCE = "precdeb+debit" + .grid1.cTotDebVal.CONTROLSOURCE = "precvalcred+valcredit" + .grid1.cTotCredVal.CONTROLSOURCE = "precvaldeb+valdebit" + .grid1.cDebit.CONTROLSOURCE = "credit" + .grid1.cCredit.CONTROLSOURCE = "debit" + .grid1.cValDebit.CONTROLSOURCE = "valcredit" + .grid1.cValCredit.CONTROLSOURCE = "valdebit" + .grid1.cPrecDeb.CONTROLSOURCE = "preccred" + .grid1.cPrecCred.CONTROLSOURCE = "precdeb" + + .grid1.cTotDeb.header1.CAPTION = "Total " + lcDenCredit + .grid1.cTotCred.header1.CAPTION = "Total " + lcDenDebit + .grid1.cTotDebVal.header1.CAPTION = "Total " + lcDenCredit + " valuta" + .grid1.cTotCredVal.header1.CAPTION = "Total " + lcDenDebit + " valuta" + .grid1.cDebit.header1.CAPTION = lcDenCredit + .grid1.cCredit.header1.CAPTION = lcDenDebit + .grid1.cValDebit.header1.CAPTION = lcDenCredit + " valuta" + .grid1.cValCredit.header1.CAPTION = lcDenDebit + " valuta" + .grid1.cPrecDeb.header1.CAPTION = "Prec " + lcDenCredit + .grid1.cPrecCred.header1.CAPTION = "Prec " + lcDenDebit + .grid1.cPrecValDeb.header1.CAPTION = "Prec Valuta " + lcDenCredit + .grid1.cPrecValCred.header1.CAPTION = "Prec Valuta " + lcDenDebit + ELSE + .grid1.cSoldFinal.CONTROLSOURCE = "(precdeb+debit)-(preccred+credit)" + .grid1.cSoldVal.CONTROLSOURCE ="(precvaldeb+valdebit)-(precvalcred+valcredit)" + *.ck_sold.camp_nume = "precdeb+debit-credit-preccred" + .grid1.cTotDeb.header1.CAPTION = "Total " + lcDenDebit + .grid1.cTotCred.header1.CAPTION = "Total " + lcDenCredit + .grid1.cTotDebVal.header1.CAPTION = "Total " + lcDenDebit + " valuta" + .grid1.cTotCredVal.header1.CAPTION = "Total " + lcDenCredit + " valuta" + .grid1.cDebit.header1.CAPTION = lcDenDebit + .grid1.cCredit.header1.CAPTION = lcDenCredit + .grid1.cValDebit.header1.CAPTION = lcDenDebit + " valuta" + .grid1.cValCredit.header1.CAPTION = lcDenCredit + " valuta" + .grid1.cPrecDeb.header1.CAPTION = "Prec " + lcDenDebit + .grid1.cPrecCred.header1.CAPTION = "Prec " + lcDenCredit + .grid1.cPrecValDeb.header1.CAPTION = "Prec Valuta " + lcDenDebit + .grid1.cPrecValCred.header1.CAPTION = "Prec Valuta " + lcDenCredit + ENDIF + IF TYPE('pcTotctva')#'U' AND TYPE('pcAchitat')#'U' + .grid1.cTotCred.header1.CAPTION = pcAchitat + .grid1.cTotDeb.header1.CAPTION = pcTotctva + ENDIF + IF TYPE('pcSumaTotal')#'U' AND TYPE('pcSumaAchi')#'U' + .CHECK13.CAPTION = pcSumaTotal + .check10.CAPTION = pcSumaAchi + ENDIF + IF TYPE('actcv.nresp') # 'U' + .grid1.cNresp.VISIBLE= .T. + .grid1.cNresp.CONTROLSOURCE = 'nresp' + *.Ck_responsabil.VISIBLE = .T. + ENDIF +*!* IF plActiv +*!* .grid1.SETALL("DynamicForeColor", "IIF(ABS((preccred+credit)-(precdeb+debit))=0,RGB(0,0,0), iif(((precdeb+debit) < (preccred+credit)),RGB(255,0,0),RGB(0,0,255)))", "Column") +*!* ELSE +*!* .grid1.SETALL("DynamicForeColor", "IIF(ABS((preccred+credit)-(precdeb+debit))=0,RGB(0,0,0), iif(((precdeb+debit) > (preccred+credit)),RGB(255,0,0),RGB(0,0,255)))", "Column") +*!* ENDIF + IF plActiv + .grid1.SETALL("DynamicForeColor", "IIF(ABS((preccred+credit)-(precdeb+debit))=0,RGB(0,0,0), iif(((precdeb+debit) < (preccred+credit)), RGB(166,0,0), RGB(0,89,168)))", "Column") + ELSE + .grid1.SETALL("DynamicForeColor", "IIF(ABS((preccred+credit)-(precdeb+debit))=0,RGB(0,0,0), iif(((precdeb+debit) > (preccred+credit)), RGB(166,0,0), RGB(0,89,168)))", "Column") + ENDIF +Endwith +Oreg.do_cauta() +Oreg.Show(1) + +Release Oreg +Use In actcv + +Endproc && lans_ireg_parteneri +*--------------------------------------------------------------------------------- diff --git a/Programe/oproceduri_preluari.prg b/Programe/oproceduri_preluari.prg new file mode 100644 index 0000000..1db6705 --- /dev/null +++ b/Programe/oproceduri_preluari.prg @@ -0,0 +1,41 @@ +***----------------------------------------------------- +Procedure preluare_curs +PARAMETERS tcTabelCurs + +LOCAL lcTabelCurs +lcTabelCurs = ALLTRIM(tcTabelCurs) + +Select (lcTabelCurs) +SCAN + WAIT WINDOW ALLTRIM(STR(RECNO()))+"/"+ALLTRIM(STR(RECCOUNT())) NOWAIT + pnCurs = Curs + pdData1 = Data + pdData2 = data2 + lnId_valuta = id_tipv + Do Case + Case lnId_valuta = 1 + pnId_valuta = 41695 + Case lnId_valuta = 2 + pnId_valuta = 41692 + Case lnId_valuta = 3 + pnId_valuta = 41694 + Case lnId_valuta = -1 + pnId_valuta = 41697 + OTHERWISE + pnId_valuta = 41696 + Endcase + + + lcSql = [begin pack_crm.adauga_curs(?gcS, ?pnCurs, ?pdData1, ?pdData2, ?pnId_valuta); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.adauga_curs'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif +ENDSCAN + +WAIT WINDOW "Preluarea s-a terminat!" +Endproc && preluare_curs +***----------------------------------------------------- + diff --git a/Programe/oproceduri_registretva.prg b/Programe/oproceduri_registretva.prg new file mode 100644 index 0000000..8881db0 --- /dev/null +++ b/Programe/oproceduri_registretva.prg @@ -0,0 +1,57 @@ +****************************************************************** +PROCEDURE listare_registru_tva +LPARAMETERS tcRegistru + + pcRegistru = UPPER(ALLTRIM(tcRegistru)) + DO CASE + CASE 'VANZ'$pcRegistru + pcContTVA = [4427] + pcListaContTVA = [411,4111,4112,4113,4114,4115,4116,4117,461,635,5311,5121,428,4281,4282,4426,4428] + pcListaContBaza = [411,4111,4112,4113,4114,4115,4116,4117,461,428,4281,4282] + pcListaContExceptii = [667,419] + OTHERWISE + pcContTVA = [4426] + pcListaContTVA = [401,404,5121,5124,542,4427,4428] + pcListaContBaza = [401,404] + pcListaContExceptii = [767] + ENDCASE + + + lcSql = [{call PACK_REGISTRE_TVA.REGISTRUTVA(?gcS, ?gnAn, ?gnLuna, ] + ; + [?pcRegistru, ?pcContTVA, ?pcListaContTVA, ?pcListaContBaza, ?pcListaContExceptii )}] + lcCursor = 'crsRegistruTemp' + lnSucces = goExecutor.oExecute(lcSql,lcCursor) + IF lnSucces < 0 + AMESSAGE(goExecutor.cEroare,0+16,"Eroare") + ELSE + + SELECT nract, dataact, PART AS nume, cod_fiscal, fdoc, baza, proc_tva, tva, baza + tva as totctva, 00000000000.0000 as total ; + FROM crsRegistruTemp ; + INTO CURSOR crsRegistru ; + READWRITE ORDER BY nract, dataact, nume + USE IN crsRegistruTemp + + SELECT nract, dataact, nume,sum(totctva) as total ; + from crsRegistru ; + INTO CURSOR tgrup ; + GROUP BY nract, dataact, nume + + SELECT tgrup + SCAN + SCATTER NAME ot + SELECT crsRegistru + LOCATE FOR nume = ot.nume AND nract = ot.nract AND dataact = ot.dataact + IF FOUND() + REPLACE total WITH ot.total + ENDIF + SELECT tgrup + ENDSCAN + USE IN tgrup + + SELECT crsRegistru + REPORT FORM registru_tva_simplu TO PRINTER PROMPT PREVIEW + USE IN crsRegistru + ENDIF +ENDPROC + +****************************************************************** \ No newline at end of file diff --git a/Programe/oproceduri_roaclienti.prg b/Programe/oproceduri_roaclienti.prg new file mode 100644 index 0000000..4356371 --- /dev/null +++ b/Programe/oproceduri_roaclienti.prg @@ -0,0 +1,1814 @@ +Procedure viz_contracte + +Private poCtr +Store '' To poCtr + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +*!* lcSchema1 = [id_ctr N(5), id_part N(10), nume C(30), nr_ctr N(10), data_ctr D(8), obiect C(200), tip N(1), durata N(3), valftva N(20,4), proc_tva N(5,2), avans N(20,4), proc_avans N(5,2),]+; +*!* [val_finant N(20,4), proc_finant N(5,2), dobanda N(20,4), proc_dobanda N(5,2), val_rezid N(20,4), proc_rezid N(5,2), ]+; +*!* [rata N(20,4), comision N(20,4), proc_comision N(5,2), proc_asigurare N(5,2), val_asigurare N(20,4), val_ctr N(20,4), id_valuta N(5), nume_val C(4), curs N(10,4), zi_plata N(2), incetat N(1), sters N(1) ] +*!* +*!* lcSelect1 = [select c.id_ctr, c.id_part, p.nume, c.nr_ctr, c.data_ctr, c.obiect, c.tip, c.durata, c.valftva, c.proc_tva, c.avans, c.proc_avans, ]+; +*!* [c.val_finant, c.proc_finant, c.dobanda, c.proc_dobanda, c.val_rezid, c.proc_rezid, ]+; +*!* [c.rata, c.comision, c.proc_comision, c.proc_asigurare, c.val_asigurare, c.val_ctr, c.id_valuta, v.nume_val, c.curs, c.zi_plata, c.incetat, c.sters from ] + gcS + ; +*!* [.cf_contracte c join ] + gcS + [.nom_parteneri p on p.id_part = c.id_part]+; +*!* [ join ] + gcS + [.nom_valute v on c.id_valuta = v.id_valuta] +lcSelect1 = [select * from ] + gcS + [.vcontracte] +lcOrder1 = [] +lcgroup = [] +lcFiltru1 = [1=2] +lcFiltruOriginal = [] +llModParam = .T. +llAfiseaza = .F. + +gencursor('poCtr','cContracte', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) +poCtr.ca_baza1.afisare() + +Select cContracte + +lovcL = Createobject("frm_contracte") +lovcL.lb_titlu_alb_b121.Caption = "CONTRACTE CLIENTI" +lovcL.Show(1) + +Release poCtr + +Endproc && viz_contracte +***----------------------------------------------------------------------------------------------------------------------------- +Procedure adauga_contract +Parameters tcAlias + +Local lcAlias +lcAlias = tcAlias + +Private pnId_ctr, pcNr_ctr +Store 0 To pnId_ctr +Store '' To pcNr_ctr + + +Local lnTip, lnCurs_ctr, lnNr_rate +Local lcId_tipc, lcId_tipc, lcId_tipcurs, lcValvaluta, lcvalctva, lcZi_fact, lcziscad, lcId_responsabil, lcId_sectie, lcId_venchelt, lcCoef_pen, lcDescriere + +Store "" To lcId_tipc, lcId_tipc, lcId_tipcurs, lcValvaluta, lcvalctva, lcZi_fact, lcziscad, lcId_responsabil, lcId_sectie, lcId_venchelt, lcCoef_pen, lcDescriere +Store '1' To lcZi_fact + +Select (lcAlias) && cContracte +Scatter Name poRec Blank +poRec.data_ctr = Datetime() +poRec.zi_fact = 1 +poRec.proc_tva = 19 +**--------------------- + +lcSql = [begin pack_crm.next_id_ctr(?gcS, ?@pnId_ctr); end;] +lnSucces = goExecutor.oExecute(lcSql) + +If lnSucces < 0 + Messagebox('pack_crm.next_id_ctr'+goExecutor.cEroare,0+16,"Eroare") + Return +Endif +**--------------------- +poRec.id_ctr = pnId_ctr +**--------------------- +*!* pcTabel = "crm_nrcontr" +*!* pcCamp = "nrcontr" +*!* lcSql = [begin pack_crm.read_nr(?gcS, ?pcTabel, ?pcCamp, ?@pnNr_ctr); end;] +*!* lnSucces = goExecutor.oExecute(lcSql) + +*!* If lnSucces < 0 +*!* Messagebox('pack_crm.read_nr'+goExecutor.cEroare,0+16,"Eroare") +*!* Return +*!* Endif +*!* **--------------------- +*!* poRec.nr_ctr = pnNr_ctr +*!* **--------------------- + +lcSql = [begin pack_crm.next_nr_ctr(?gcS, ?@pcNr_ctr); end;] +lnSucces = goExecutor.oExecute(lcSql) + +If lnSucces < 0 + Messagebox('pack_crm.next_nr_ctr'+goExecutor.cEroare,0+16,"Eroare") + Return +Endif +**--------------------- +poRec.nr_ctr = pcNr_ctr +**--------------------- + +Private poTipc +Store '' To poTipc + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select id_tipc, tipc from ] + gcS + [.crm_tipc where 1=2'] +lcOrder1 = [id_tipc] +lcFiltru1 = [] +llAfiseaza = .F. +gencursor('poTipc','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poTipc.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cNom_tipc Readwrite +Release poTipc + +Select cNom_tipc +Go Top +Scatter Name poTipc +poRec.id_tipc = cNom_tipc.id_tipc +**--------------------- +Private poPrestatii +Store '' To poPrestatii + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vcrm_contracte_articole where 1=2'] +lcOrder1 = [] +lcFiltru1 = [ id_ctr=] + Alltrim(Str(poRec.id_ctr)) +llAfiseaza = .F. +gencursor('poPrestatii','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poPrestatii.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cArticoleCtr Readwrite +Select cArticoleCtr +Release poPrestatii +**--------------------- +Create Cursor cScadentar (id_ctr N(5), id_rata N(10), nr_rata N(10), den_rata C(30), data_rata D, procent N(4,2), valrata N(20,4), valfact N(20,4), id_valuta N(5), nume_val C(4)) +Select cScadentar +**--------------------- +Private poDocumente +Store '' To poDocumente + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vcrm_contracte_documente where 1=2'] +lcOrder1 = [] +lcFiltru1 = [ id_ctr=] + Alltrim(Str(poRec.id_ctr)) +llAfiseaza = .F. +gencursor('poDocumente','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poDocumente.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cLinkuri Readwrite +Select cLinkuri +Release poDocumente +**--------------------- +llNou = .T. +locnC = Createobject("frm_contract_nou",pnId_ctr, llNou) +locnC.Show(1) + +**--------------------- +If Used("cNom_tipc") + Use In cNom_tipc +Endif + +If buton = 2 + Return +Endif + +*!* **--------------------- +*!* pcTabel = "crm_nrcontr" +*!* pcCamp = "nrcontr" +*!* lcSql = [begin pack_crm.write_nr(?gcS, ?pcTabel, ?pcCamp, ?pnNr_ctr); end;] +*!* lnSucces = goExecutor.oExecute(lcSql) + +*!* If lnSucces < 0 +*!* Messagebox('pack_crm.write_nr'+goExecutor.cEroare,0+16,"Eroare") +*!* Return +*!* Endif +*!* **--------------------- +*!* pdData_ctr = Nvl(poRec.data_ctr, {//}) +*!* pcObiect = poRec.obiect + +*!* pnDurata = Nvl(poRec.durata,0) +*!* pnProc_tva = Nvl(poRec.proc_tva,0) +*!* pnId_valuta = Nvl(poRec.id_valuta,0) +*!* pnZi_plata = Nvl(poRec.zi_plata,0) +*!* pnCurs = Nvl(poRec.Curs,0) +*!* pnIncetat = Nvl(poRec.Incetat,0) +*!* pnId_tipc = poRec.id_tipc +*!* pnId_tipcurs = poRec.id_tipcurs +*!* pnValvaluta = poRec.valvaluta +*!* pnvalctva = poRec.valctva +*!* pnziscad = poRec.ziscad +*!* pnId_responsabil = poRec.id_responsabil +*!* pnId_sectie = poRec.id_sectie +*!* pnId_venchelt = poRec.id_venchelt +*!* pnCoef_pen = poRec.coef_pen +*!* pcDescriere = poRec.descriere + +*!* lcSql = [begin pack_crm.adauga_contract(?gcS, ?pnId_ctr, ?pnId_part, ?pnNr_ctr, ?pdData_ctr, ?pcObiect, ?pnDurata,]+; +*!* [ ?pnProc_tva, ?pnId_valuta, ?pnZi_plata, ?pnCurs, ?pnIncetat, ?pnId_tipc, ?pnId_tipcurs, ?pnValvaluta, ?pnvalctva, ]+; +*!* [?pnziscad, ?pnId_responsabil, ?pnId_sectie, ?pnId_venchelt, ?pnCoef_pen, ?pcDescriere, ?gnIdUtil); end;] +*!* lnSucces = goExecutor.oExecute(lcSql) + +lcId_ctr = Alltrim(Str(pnId_ctr)) +lnId_part = poRec.id_part +lcId_part = Alltrim(Str(lnId_part)) +lcNr_ctr = Alltrim(poRec.nr_ctr) +ldData_ctr = Dtos(poRec.data_ctr) +lcObiect = Alltrim(poRec.obiect) + +lcDurata = Alltrim(Str(poRec.durata)) +lcProc_tva = Alltrim(Str(poRec.proc_tva)) +lcId_valuta = Alltrim(Str(poRec.id_valuta)) + +If poRec.zi_fact = 99 + lcZi_fact = '-1' +Else + lcZi_fact = Alltrim(Str(poRec.zi_fact)) +Endif +lcCurs = Alltrim(Str(poRec.Curs)) +lcIncetat = Alltrim(Str(poRec.Incetat)) +lcId_tipc = Alltrim(Str(poRec.id_tipc)) +lcId_categ_ctr = ALLTRIM(STR(porec.id_categ_ctr)) +lcId_tipcurs = Alltrim(Str(poRec.id_tipcurs)) +lcValvaluta = Alltrim(Str(poRec.valvaluta,20,gnPA)) +lcvalctva = Alltrim(Str(poRec.valctva,20,gnPA)) +lcziscad = Alltrim(Str(poRec.ziscad)) +lcId_responsabil = Alltrim(Str(poRec.id_responsabil)) +lcId_sectie = Alltrim(Str(poRec.id_sectie)) +lcId_venchelt = Alltrim(Str(poRec.id_venchelt)) +lcCoef_pen = Alltrim(Str(poRec.coef_pen)) +lcDescriere = Alltrim(poRec.descriere) +lcId_art_fact = Alltrim(Str(poRec.id_art_fact)) +lcIdUtil = Alltrim(Str(gnIdUtil)) + +lcSql = [begin pack_crm.adauga_contract('] + gcS + [',] + lcId_ctr + [,] + lcId_part + [,'] + lcNr_ctr + ; + [', TO_DATE(]+Iif(!Empty(ldData_ctr),[']+ldData_ctr+['],[NULL])+[,'YYYY-MM-DD'),']+; + lcObiect + [',] + lcDurata + [,] + ; + lcProc_tva + [,] + lcId_valuta + [,] + lcZi_fact + [,] + lcCurs + [,] + lcIncetat + [,] + ; + lcId_tipc + [,] + lcId_categ_ctr + [,] + ; + lcId_tipcurs + [,] + lcValvaluta + [,] + lcvalctva + [,] + ; + lcziscad + [,] + lcId_responsabil + [,] + lcId_sectie + [,] + lcId_venchelt + [,] + lcCoef_pen + [,'] + lcDescriere + [',] + ; + lcId_art_fact + [,] + lcIdUtil +[); end;] +lnSucces = goExecutor.oExecute(lcSql) + +Strtofile(lcSql,"c:\sql.txt") + +If lnSucces < 0 + Messagebox('pack_crm.adauga_contract'+goExecutor.cEroare,0+16,"Eroare") + Return +Endif +**--------------------- +&& lcTabelArticole = locnF.grid_articole.RecordSource + +Select cArticoleCtr +Replace All id_ctr With pnId_ctr +Do update_ctr_art With "cArticoleCtr" In oproceduri_roaClienti.prg +If Used("cArticoleCtr") + Use In cArticoleCtr +Endif +**--------------------- +lnId_tipc = poRec.id_tipc +If lnId_tipc = 1 +*!* lcSql = [begin pack_crm.adauga_rate(?gcS, ?pnId_ctr, ?pnDurata, ?pnValvaluta, ?pnId_valuta, ?pdData_ctr, ?pnZi_plata); end;] + lcSql = [begin pack_crm.adauga_rate('] + gcS + [',] + lcId_ctr + [,] + lcDurata + [,] + lcValvaluta + [,] + lcId_valuta + ; + [, TO_DATE(]+Iif(!Empty(ldData_ctr),[']+ldData_ctr+['],[NULL])+[,'YYYY-MM-DD'),]+; + lcZi_fact + [); end;] + + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.adauga_rate'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif +ENDIF + +If poRec.id_tipc = 2 && mentenanta + lcSql = [begin pack_crm.mentenanta(] + ALLTRIM(STR(gnAn)) + [,] + ALLTRIM(STR(gnLuna)) + [,] + lcId_ctr + [); end;] + + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.mentenanta'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif +Endif + +*!* IF pnId_tipc <> 3 +*!* Do viz_rate With pocontract +*!* Endif +**--------------------- +If Used("cScadentar") + Use In cScadentar +Endif +**--------------------- + +Return pnId_ctr +Endproc && adauga_contract +***----------------------------------------------------------------------------------------------------------------------------- +Procedure modifica_contract +Parameters toContract + +poRec = toContract + +Private pnId_ctr, pnId_part, pnNr_ctr, pdData_ctr, pcObiect, pnDurata, pnProc_tva, pnId_valuta, pnZi_fact, pnId_art_fact +Private pnCurs, pnIncetat, pnVal_ctr, pnVal_ctr_f +**--------------------- +*!* If poRec.zi_fact = -1 +*!* poRec.zi_fact = 99 +*!* Endif + +*!* Private poTipc +*!* Store '' To poTipc + +*!* Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +*!* lcSchema1 = [''] +*!* lcSelect1 = ['select id_tipc, tipc from ] + gcS + [.crm_tipc where 1=2'] +*!* lcOrder1 = [id_tipc] +*!* lcFiltru1 = [] +*!* llAfiseaza = .F. +*!* gencursor('poTipc','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +*!* poTipc.ca_baza1.afisare() + +*!* Select * From cIntermediar Into Cursor cNom_tipc Readwrite +*!* Release poTipc + +*!* Select cNom_tipc +*!* Locate For id_tipc = poRec.id_tipc +*!* Scatter Name poTipc +*!* poRec.id_tipc = cNom_tipc.id_tipc +**--------------------- +Private poCtr_art +Store '' To poCtr_art + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ctr_articole where 1=2'] +lcOrder1 = [] +lcFiltru1 = [ id_ctr=] + Alltrim(Str(poRec.id_ctr)) +llAfiseaza = .F. +gencursor('poCtr_art','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poCtr_art.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cCtrArt Readwrite +Select cCtrArt +Release poCtr_art +**--------------------- +*!* Private poScadentar +*!* Store '' To poScadentar + +*!* Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +*!* lcSchema1 = ['id_ctr n(5), id_rata n(10), nr_rata N(10), den_rata C(30), data_rata D, procent n(4,2), valrata n(20,4), valfact n(20,4), id_valuta n(5), nume_val C(4)'] + +*!* lcSelect1 = ['select id_ctr, id_rata, nr_rata, den_rata, data_rata, procent, valrata, valfact, id_valuta, nume_val from ] + gcS + [.vcrm_rate where 1=2'] +*!* lcOrder1 = [nr_rata] + +*!* lcFiltru1 = [id_ctr=] + Alltrim(Str(poRec.id_ctr)) +*!* llAfiseaza = .F. +*!* gencursor('poScadentar','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +*!* poScadentar.ca_baza1.afisare() + +*!* Select * From cIntermediar Into Cursor cScadentar Readwrite +*!* Release poScadentar + +*!* Select cScadentar +**--------------------- +**--------------------- +*!* Private poDocumente +*!* Store '' To poDocumente + +*!* Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +*!* lcSchema1 = [''] +*!* lcSelect1 = ['select * from ] + gcS + [.vcrm_contracte_documente where 1=2'] +*!* lcOrder1 = [] +*!* lcFiltru1 = [ id_ctr=] + Alltrim(Str(poRec.id_ctr)) +*!* llAfiseaza = .F. +*!* gencursor('poDocumente','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +*!* poDocumente.ca_baza1.afisare() + +*!* Select * From cIntermediar Into Cursor cLinkuri Readwrite +*!* Select cLinkuri +*!* Release poDocumente +**--------------------- + +locnF = Createobject("frm_contract_nou",poRec.id_ctr) +locnF.Show(1) +**--------------------- +If Used("cNom_tipc") + Use In cNom_tipc +Endif + +If buton = 2 + Return +Endif +**--------------------- +pcId_ctr = Alltrim(Str(poRec.id_ctr)) +pcId_part = Alltrim(Str(poRec.id_part)) +pcNr_ctr = Alltrim(poRec.numar) +*pcObiect = Nvl(Alltrim(poRec.obiect),"") + +* pcDurata = Nvl(Alltrim(Str(poRec.durata)),"") +pcProc_tva = Nvl(Alltrim(Str(poRec.proc_tva)),"") +pcId_valuta = Nvl(Alltrim(Str(poRec.id_valuta)),"") +*!* If poRec.zi_fact = 99 +*!* pcZi_fact = '-1' +*!* Else +*!* pcZi_fact = Alltrim(Str(poRec.zi_fact)) +*!* Endif + +* pcCurs = Nvl(Alltrim(Str(poRec.Curs)),"0") +pcIncetat = Nvl(Alltrim(Str(poRec.Incetat)),"") +pcId_tipc = Nvl(Alltrim(Str(poRec.id_tip_ctr)),"") + +pcValftva = Nvl(Alltrim(Str(poRec.valftva,20,gnPA)),"") +pcvalctva = Nvl(Alltrim(Str(poRec.valctva,20,gnPA)),"") +pcziscad = Nvl(Alltrim(Str(poRec.ziscad)),"0") +pcId_responsabil = Nvl(Alltrim(Str(poRec.id_responsabil)),"0") +pcId_sectie = Nvl(Alltrim(Str(poRec.id_sectie)),"0") +pcId_venchelt = Nvl(Alltrim(Str(poRec.id_venchelt)),"0") +pcCoef_pen = Nvl(Alltrim(Str(poRec.coef_pen,6,gnPA)),"0") +pcDescriere = Nvl(Alltrim(poRec.descriere),"") +pcId_art_fact = Nvl(Alltrim(Str(poRec.id_art_fact)),"0") + +ldData_ctr = Dtos(poRec.data_ctr) +lcIdUtil = Alltrim(Str(gnIdUtil)) + +lcSql = [begin pack_crm.modifica_contract('] + gcS + [',] + pcId_ctr + [,] + pcId_part + [,'] + pcNr_ctr +; + [', TO_DATE(]+Iif(!Empty(ldData_ctr),[']+ldData_ctr+['],[NULL])+[,'YYYY-MM-DD'),']+; + pcObiect + [',] + pcDurata +[,]+; + pcProc_tva + [,] + pcId_valuta + [,] + pcZi_fact + [,] + pcCurs +; + [,] + pcIncetat + [,] + pcId_tipc + [,] + pcId_categ_ctr + [,] + pcId_tipcurs + [,] + pcValvaluta + [,] + pcvalctva + [,] +; + pcziscad + [,]+ pcId_responsabil + [,] + pcId_sectie + [,] + pcId_venchelt + [,] + pcCoef_pen + [,'] + ; + pcDescriere + [',] + pcId_art_fact + [,] + lcIdUtil +[); end;] + +Strtofile(lcSql,"c:\sql.txt") + +lnSucces = goExecutor.oExecute(lcSql) + +If lnSucces < 0 + Messagebox('pack_crm.modifica_contract'+goExecutor.cEroare,0+16,"Eroare") + Return +Endif +**--------------------- +&& lcTabelArticole = locnF.grid_articole.RecordSource + +Select cArticoleCtr +Replace All id_ctr With poRec.id_ctr +Do update_ctr_art With "cArticoleCtr" In oproceduri_roaClienti.prg +If Used("cArticoleCtr") + Use In cArticoleCtr +Endif +**--------------------- +**--------------------- +Do update_ctr_doc With "cLinkuri" In oproceduri_roaClienti.prg +If Used("cLinkuri") + Use In cLinkuri +Endif +**--------------------- + +Endproc && modifica_contract +***----------------------------------------------------------------------------------------------------------------------------- +Procedure update_ctr_art +Parameters tcTabelArticole + +Local lcTabelArticole +lcTabelArticole = tcTabelArticole + +Private pnGasit, pnId_ctr_art, pnId_ctr, pnId_art, pnPret_unitar, pnCant, pnValoare,pnDiscount, pnValcdiscount, pcUM, pnId_valuta_art +Store 0 To pnGasit, pnId_ctr_art, pnId_ctr, pnId_art, pnPret_unitar, pnCant, pnValoare, pnDiscount, pnValcdiscount, pnId_valuta_art +Store "" To pcUM + +&& update articole +lcDeleted = Set("Deleted") +Set Deleted Off + +Select (lcTabelArticole) +Scan + pnId_ctr_art = id_ctr_art + pnId_ctr = id_ctr + pnId_art = id_art + pnPret_unitar = pret_unitar + pnCant = cant + pnValoare = valoare + pnDiscount = discount + pnValcdiscount = valcdiscount + pcUM = Alltrim(um) + pnId_valuta_art = id_valuta + + If Deleted() + llsters = .T. + Else + llsters = .F. + Endif + + lcSql = [begin pack_crm.cauta_ctr_art(?gcS, ?pnId_ctr, ?pnId_art, ?@pnGasit); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.cauta_ctr_art'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + If pnGasit = 0 + lcSql = [begin pack_crm.adauga_ctr_art(?gcS, ?pnId_ctr, ?pnId_art, ?pnPret_unitar, ?pnCant, ?pnValoare, ?pnDiscount, ?pnValcdiscount, ?pcUM, ?pnId_valuta_art); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.adauga_ctr_art'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + Else + If llsters && sterge_rata + lcSql = [begin pack_crm.sterge_ctr_art(?gcS, ?pnId_ctr_art); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.sterge_ctr_art'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + Else + lcSql = [begin pack_crm.modifica_ctr_art(?gcS, ?pnId_ctr_art, ?pnId_ctr, ?Id_art, ?pnPret_unitar, ?pnCant, ?pnValoare, ?pnDiscount, ?pnValcdiscount, ?pcUM, ?pnId_valuta_art); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.modifica_ctr_art'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + Endif + Endif + Select (lcTabelArticole) +Endscan + +Set Deleted &lcDeleted + +Endproc && update_ctr_art +***----------------------------------------------------------------------------------------------------------------------------- +***----------------------------------------------------------------------------------------------------------------------------- +Procedure update_ctr_doc +Parameters tcTabelDocumente + +Local lcTabelDocumente +lcTabelDocumente = tcTabelDocumente + +Private pnGasit, pnId_ctr_doc, pnId_ctr, pcDenumire, pcLink +Store 0 To pnGasit, pnId_ctr_doc, pnId_ctr +Store "" To pcDenumire, pcLink + +&& update documente +lcDeleted = Set("Deleted") +Set Deleted Off + +Select (lcTabelDocumente) +Scan + pnId_ctr_doc = id_ctr_doc + pnId_ctr = id_ctr + pcDenumire = denumire + pcLink = Link + + If Deleted() + llsters = .T. + Else + llsters = .F. + Endif + + lcSql = [begin pack_crm.cauta_ctr_doc(?gcS, ?pnId_ctr_doc, ?@pnGasit); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.cauta_ctr_doc'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + If pnGasit = 0 + lcSql = [begin pack_crm.adauga_ctr_doc(?gcS, ?pnId_ctr, ?pcDenumire, ?pcLink); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.adauga_ctr_doc'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + Else + If llsters && sterge_doc + lcSql = [begin pack_crm.sterge_ctr_doc(?gcS, ?pnId_ctr_doc); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.sterge_ctr_doc'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + Else + lcSql = [begin pack_crm.modifica_ctr_doc(?gcS, ?pnId_ctr_doc, ?pnId_ctr, ?pcDenumire, ?pcLink); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.modifica_ctr_doc'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + Endif + Endif + Select (lcTabelDocumente) +Endscan + +Set Deleted &lcDeleted + +Endproc && update_ctr_doc +***----------------------------------------------------------------------------------------------------------------------------- +Procedure factura +Parameters tnId_ctr, tnId_part, tlProforma + +If Empty(tnId_ctr) And Empty(tnId_part) + Return +Endif + +Local llProforma +llProforma = tlProforma + +Private pcMasina +Store "" To pcMasina + +Private pnId_ctr, pnId_part +pnId_ctr = tnId_ctr +pnId_part = tnId_part + +Private pnpretuval, pnId_fact, pnId_proforma +Store 0 To pnpretuval, pnId_fact, pnId_proforma && valoarea cu care intru pe factura (pentru contractele in rate) + +**--------------- +If !Empty(pnId_ctr) + Private poCtr + Store '' To poCtr + + Private pnNr_fact + Store 0 To pnNr_fact + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza + lcSchema1 = [''] + lcSelect1 = ['select * from ] + gcS + [.vcrm_contracte where 1=2'] + lcOrder1 = [] + lcFiltru1 = [ id_ctr=]+Alltrim(Str(pnId_ctr)) + llAfiseaza = .F. + gencursor('poCtr','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) + poCtr.ca_baza1.afisare() + + Select * From cIntermediar Into Cursor cCtr Readwrite + Release poCtr + + Select cCtr + Scatter Name poContract + Use In cCtr + +Endif +**--------------- +Private poClient +Store '' To poClient + +Private pnNr_fact +Store 0 To pnNr_fact + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vnom_parteneri where 1=2'] +lcOrder1 = [] +If !Empty(pnId_ctr) + lcFiltru1 = [ id_part=]+Alltrim(Str(poContract.id_part)) +Else + lcFiltru1 = [ id_part=]+Alltrim(Str(pnId_part)) +Endif +llAfiseaza = .F. +gencursor('poClient','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poClient.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cPartener Readwrite +Release poClient +**-- +Select cPartener +Scatter Name poClient +Use In cPartener +**--------------- +Private poFact +Store '' To poFact + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vcrm_facturi where 1=2'] +lcOrder1 = [] +lcFiltru1 = [1=2] +llAfiseaza = .F. +gencursor('poFact','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poFact.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cFact Readwrite +Release poFact + +Select cFact +Scatter Name poFactura Blank +Use In cFact +**--------------- +If !Empty(pnId_ctr) + poFactura.id_ctr = poContract.id_ctr + poFactura.id_valuta = poContract.id_valuta + poFactura.nume_val = poContract.nume_val + poFactura.proc_tva = poContract.proc_tva +Else + poFactura.proc_tva = 19 +Endif +poFactura.id_part = poClient.id_part +poFactura.data_fact = Date() +poFactura.data_curs = {//} +**--------------------- + +If llProforma + lcSql = [begin pack_crm.next_id_proforma(?gcS, ?@pnId_proforma); end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + Messagebox('pack_crm.next_id_proforma'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + AddProperty(poFactura,"id_proforma",pnId_proforma) +Else + lcSql = [begin pack_crm.next_id_fact(?gcS, ?@pnId_fact); end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + Messagebox('pack_crm.next_id_fact'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + poFactura.id_fact = pnId_fact +Endif +**--------------------- + +poFactura.data_ireg = poFactura.data_fact +If Year(poFactura.data_ireg) * 12 + Month(poFactura.data_ireg) <> gnAn*12 + gnLuna + ldData = Date(gnAn, gnLuna, 1) + ldData = Gomonth(ldData,1)-1 + poFactura.data_ireg = ldData +Endif + +*!* poFactura.data_scad = poFactura.data_fact + poContract.ziscad +*!* If poContract.id_tipcurs=1 +*!* poFactura.data_curs = poFactura.data_fact +*!* Else +*!* pzlc = "1/" + Alltrim(Str(Month(poFactura.data_fact))) + "/" + Alltrim(Str(Year(poFactura.data_fact))) +*!* data1 = Ctod(pzlc) +*!* uzlt = Dtoc(data1-1) + +*!* poFactura.data_curs = uzlt +*!* Endif +**--------------------- +If llProforma + pcTabel = "nrproforme" + pcCamp = "nrproforma" +Else + pcTabel = "nrfact" + pcCamp = "nrfact" +Endif + +lcSql = [begin pack_crm.read_nr(?gcS, ?pcTabel, ?pcCamp, ?@pnNr_fact); end;] +lnSucces = goExecutor.oExecute(lcSql) + +If lnSucces < 0 + Messagebox('pack_crm.read_nr'+goExecutor.cEroare,0+16,"Eroare") + Return +Endif +**--------------------- +poFactura.nr_fact = pnNr_fact +**--------------------- +Private poRespons +Store '' To poRespons + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vnom_responsabili where 1=2'] +lcOrder1 = [nume] +If !Empty(pnId_ctr) And !Isnull(poContract.id_responsabil) + lcFiltru1 = [id_responsabil=] + Alltrim(Str(poContract.id_responsabil)) +Else + lcFiltru1 = [1=2] +Endif +llAfiseaza = .F. +gencursor('poRespons','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poRespons.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cNom_Responsabili Readwrite +Release poRespons + +Select cNom_Responsabili +Scatter Name poResponsabil +Use In cNom_Responsabili +**--------------------- +Private poDeleg +Store '' To poDeleg + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vnom_delegati where 1=2'] +lcOrder1 = [nume] +lcFiltru1 = [id_part =] + Alltrim(Str(poClient.id_part)) +llAfiseaza = .F. +gencursor('poDeleg','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poDeleg.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cNom_Delegati Readwrite +Release poDeleg + +Select cNom_Delegati +Scatter Name poDelegat +Use In cNom_Delegati +***--------------------------------------- +Private poSect +Store '' To poSect + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vnom_sectii where 1=2'] +lcOrder1 = [sectie] +If !Empty(pnId_ctr) And !Isnull(poContract.id_sectie) + lcFiltru1 = [id_sectie =] + Alltrim(Str(poContract.id_sectie)) +Else + lcFiltru1 = [1=2] +Endif +llAfiseaza = .F. +gencursor('poSect','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poSect.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cNom_Sectii Readwrite +Release poSect + +Select cNom_Sectii +Scatter Name poSectie +Use In cNom_Sectii +***--------------------------------------- +Private poVenChe +Store '' To poVenChe + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vnom_venchel where 1=2'] +lcOrder1 = [explicatie] +If !Empty(pnId_ctr) And !Isnull(poContract.id_venchelt) + lcFiltru1 = [id_venchelt =] + Alltrim(Str(poContract.id_venchelt)) +Else + lcFiltru1 = [1=2] +Endif +llAfiseaza = .F. +gencursor('poVenChe','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poVenChe.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cNom_VenChel Readwrite +Release poVenChe + +Select cNom_VenChel +Scatter Name poVenChel +Use In cNom_VenChel +***--------------------------------------- +Private poLucr +Store '' To poLucr + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vnom_lucrari where 1=2'] +lcOrder1 = [nrord] +If !Empty(pnId_ctr) + lcFiltru1 = [ nrord = '] + Alltrim(poContract.nr_ctr)+"/"+Alltrim(Dtoc(poContract.data_ctr)) + ['] +Else + lcFiltru1 = [1=2] +Endif +llAfiseaza = .F. +gencursor('poLucr','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poLucr.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cNom_Lucrari Readwrite +Release poLucr + +Select cNom_Lucrari +Scatter Name poLucrare +Use In cNom_Lucrari +***--------------------------------------- +Private poFDocument +Store '' To poFDocument + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vnom_fdoc where 1=2'] +lcOrder1 = [fel_document] +lcFiltru1 = [ UPPER(fel_document) = 'FACTURA'] +llAfiseaza = .F. +gencursor('poFDocument','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poFDocument.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cNom_FDoc Readwrite +Release poFDocument + +Select cNom_FDoc +Scatter Name poFDoc +Use In cNom_FDoc +***--------------------------------------- +If !Empty(pnId_ctr) + lcSql = [begin pack_crm.calculeaza_val_next_factura(?gcS, ?pocontract.id_ctr, ?@pnpretuval); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.calculeaza_val_next_factura'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif +Endif +***--------------------------------------- +Private poFact_elem +Store '' To poFact_elem + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = [select fe.*, 000 as nrcrt,'Denumire articol' as den_articol, ' ' as scd, ' ' as scc, ' ' as ascd, ' ' as ascc from ] + gcS + [.fact_elem fe where 1=2] +* [ left join vnom_articole_crm a on a.id_articol = fe.id_articol where 1=2'] +lcOrder1 = [] +lcFiltru1 = [1=2] +llAfiseaza = .F. +gencursor('poFact_elem','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poFact_elem.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor tFactura Readwrite +Release poFact_elem + +If !Empty(pnId_ctr) + If !Empty(poContract.id_art_fact) And !Isnull(poContract.id_art_fact) + Private poArt_Fact + Store '' To poArt_Fact + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza + lcSchema1 = [''] + lcSelect1 = [select id_articol, denumire, scd, scc, ascd, ascc from ] + gcS + [.vcrm_articole_note where 1=2] + lcOrder1 = [] + lcFiltru1 = [id_articol=]+Alltrim(Str(poContract.id_art_fact)) + llAfiseaza = .F. + gencursor('poArt_Fact','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) + poArt_Fact.ca_baza1.afisare() + + Select * From cIntermediar Into Cursor tArt_fact Readwrite + Release poArt_Fact + Else && toate articolele contractate + Private poArt_Fact + Store '' To poArt_Fact + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza + lcSchema1 = [''] + lcSelect1 = [select id_art as id_articol, denumire, scd, scc, ascd, ascc from ] + gcS + [.vcrm_contracte_articole_note where 1=2] + lcOrder1 = [] + lcFiltru1 = [id_ctr=]+Alltrim(Str(poContract.id_ctr)) + llAfiseaza = .F. + gencursor('poArt_Fact','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) + poArt_Fact.ca_baza1.afisare() + + Select * From cIntermediar Into Cursor tArt_fact Readwrite + Release poArt_Fact + Endif + + Select tArt_fact + Scan + Select tFactura + Append Blank + Replace denumire With Alltrim(tArt_fact.denumire) + " CONFORM CONTRACTULUI", ; + den_articol With Alltrim(tArt_fact.denumire), ; + id_articol With tArt_fact.id_articol, ; + scd With tArt_fact.scd, ; + scc With tArt_fact.scc, ; + ascd With tArt_fact.ascd, ; + ascc With tArt_fact.ascc, ; + CANTITATE With 1, ; + um With "BUC", ; + nrcrt With 1, ; + pretuval With pnpretuval + + Select tArt_fact + Endscan +Endif + +Select tFactura +Go Top + +**--------------- +lovf = Createobject("frm_factura",llProforma) +lovf.Show(1) +**--------------------- +If buton = 2 + Use In tFactura + Return +Endif +**--------------------- +If llProforma + lcSql = [begin pack_crm.in_proforme(?gcS, ?gnLuna, ?gnAn, ?pofactura.id_proforma, ?pofactura.id_part,NULL,?pofactura.nr_fact, ]+; + [?pofactura.data_fact, ?pofactura.data_ireg, ?pofactura.data_scad, ?pofactura.valftva, ?pofactura.valtva, ?pofactura.valctva, ]+; + [?pofactura.valval, ?pofactura.tvaval, ?pofactura.totval, ?poFactura.id_valuta, ?pofactura.curs, ?pofactura.data_curs, ?pofactura.cod, ?pofactura.proc_tva, ]+; + [?pofactura.explcont, ?gnIdUtil); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.in_proforme'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif +**--------------------- + Do in_proforme_elem In oproceduri_roaClienti.prg +**--------------------- +Else + pcTabel = "nrfact" + pcCamp = "nrfact" + lcSql = [begin pack_crm.write_nr(?gcS, ?pcTabel, ?pcCamp, ?pnNr_fact); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.write_nr'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif +**--------------------- + Select tFactura + If !Empty(pnId_ctr) + Do make_actactan With poFactura, poClient, poResponsabil, poContract + Else + Do make_actactan With poFactura, poClient, poResponsabil + Endif + + Select actactan + Do Form verificare With .T. + + If buton=2 + Use In actactan + Return + Endif + + Select actactan + Do oscrie_in_fisiere + +**--------------------- + If !Empty(pnId_ctr) + lcSql = [begin pack_crm.in_facturi(?gcS, ?gnLuna, ?gnAn, ?pofactura.id_fact, ?pofactura.id_part, ?pocontract.id_ctr, ?pofactura.nr_fact, ]+; + [?pofactura.data_fact, ?pofactura.data_ireg, ?pofactura.data_scad, ?pofactura.valftva, ?pofactura.valtva, ?pofactura.valctva, ]+; + [?pofactura.valval, ?pofactura.tvaval, ?pofactura.totval, ?poFactura.id_valuta, ?pofactura.curs, ?pofactura.data_curs, ?pofactura.cod, ?pofactura.proc_tva, ]+; + [?pofactura.explcont, ?gnIdUtil); end;] + Else + lcSql = [begin pack_crm.in_facturi(?gcS, ?gnLuna, ?gnAn, ?pofactura.id_fact, ?pofactura.id_part,NULL,?pofactura.nr_fact, ]+; + [?pofactura.data_fact, ?pofactura.data_ireg, ?pofactura.data_scad, ?pofactura.valftva, ?pofactura.valtva, ?pofactura.valctva, ]+; + [?pofactura.valval, ?pofactura.tvaval, ?pofactura.totval, ?poFactura.id_valuta, ?pofactura.curs, ?pofactura.data_curs, ?pofactura.cod, ?pofactura.proc_tva, ]+; + [?pofactura.explcont, ?gnIdUtil); end;] + Endif + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.in_facturi'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif +**--------------------- + Do in_factelem In oproceduri_roaClienti.prg +**--------------------- + If !Empty(pnId_ctr) + lcSql = [begin pack_crm.in_rate(?gcS, ?pocontract.id_ctr, ?pofactura.id_fact, ?pofactura.valval); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.in_rate'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + Endif +**--------------------- +Endif + +Use In tFactura +**--------------------- + +Endproc && factura +***----------------------------------------------------------------------------------------------------------------------------- +***----------------------------------------------------------------------------------------------------------------------------- +Procedure make_actactan +Parameters tofactura, toclient, toresponsabil, toContract + +Local lcscd, lcscc, lcascd, lcascc, lcacronim +Store '' To lcscd, lcscc, lcascd, lcascc, lcacronim + +* actactan = gcTempPath + "actactan.dbf" +***----- +Private poAct +Store '' To poAct + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.act where 1=2'] +lcOrder1 = [] +lcFiltru1 = [1=2] +llAfiseaza = .F. +gencursor('poAct','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poAct.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor actactan Readwrite +Release poAct + +***----- +*!* Select act +*!* Copy To (actactan) With Cdx +*!* Sele 0 +*!* Use (actactan) Excl Alias actactan +*!* Sele actactan +*!* Zap + +Local lcid_set +lnid_set = 50000 + +*!* Select optiuni_program +*!* Locate For Upper(Alltrim(varname))="ID_SET" +*!* If Found() +*!* lnid_set=Eval(varvalue) +*!* Endif + +**** +If gnInreg_fact_linii = 1 && pun atatea linii cate prestatii am (eventual cu liniile de TVA corespunzatoare) + Select tFactura + Scan + Scatter Name loelem Memo + Select actactan + Scatter Name loact Blank + With loact + .COD = tofactura.COD + .dataireg = tofactura.data_ireg + .id_fdoc = poFDoc.id_fdoc + .dataact = tofactura.data_fact + .nract = tofactura.nr_fact + .id_partd = toclient.id_part + .explicatia = tofactura.explcont + .scd = loelem.scd && "411" + .scc = loelem.scc && "704" + .ascd = loelem.ascd && "" + .ascc = loelem.ascc && "" + .suma = Round(loelem.valftva, gnPC) +*!* If glfact_extern && facturile extern +*!* .suma_2 = Round(loelem.valval,pnvalvalfact_tot) +*!* .suma_3 = Round(tofactura.Curs, pncurs_zecimale) +*!* Endif + .datascad = tofactura.data_scad + .id_sectie = poSectie.id_sectie + .id_venchelt = poVenChel.id_venchelt + .id_lucrare = poLucrare.id_lucrare + .proc_tva = (100 + loelem.proc_tva)/100 +*CASE pnCalcTVA = 2 +*.proc_tva = (100 + tofactura.proc_tva)/100 +*ENDCASE + + .dataora = Datetime() + .id_fact = tofactura.id_fact + .id_responsabil = toresponsabil.id_responsabil + .id_set = lnid_set + + Select actactan + Append Blank + Gather Name loact + + If loelem.valtva <> 0 + .suma = Round(loelem.valtva, gnPC) + .scc="4427" + .ascc="" + Select actactan + Append Blank + Gather Name loact + Endif + + Endwith + Select tFactura + Endscan +Else && inregistrez o singura linie pt toata factura (grupuri de scd) + Select Distinct scd, ascd, scc, ascc, ; + ROUND(Sum(valftva), gnPC) As valftva, ; + proc_tva ; + FROM tFactura ; + GROUP By scd, ascd, scc, ascc, proc_tva ; + INTO Cursor tConturi + + Select tConturi + Scan + Select actactan + Scatter Name loact Blank + + With loact + .COD = tofactura.COD + .dataireg = tofactura.data_ireg + .id_fdoc = poFDoc.id_fdoc + .dataact = tofactura.data_fact + + .nract = tofactura.nr_fact + .id_partd = toclient.id_part + .explicatia = tofactura.explcont + + .scd = tConturi.scd + .scc= tConturi.scc + .ascd = tConturi.ascd + .ascc = tConturi.ascc + .suma = Round(tConturi.valftva,gnPC) + +*!* If glfact_extern && facturile extern +*!* .suma_2 = Round(tofactura.valval,pnvalvalfact_tot) +*!* .suma_3 = Round(tofactura.Curs,pncurs_zecimale) +*!* Endif + + .datascad = tofactura.data_scad + .id_sectie = poSectie.id_sectie + .id_venchelt = poVenChel.id_venchelt + .id_lucrare = poLucrare.id_lucrare + .proc_tva = (100 + tConturi.proc_tva) / 100 + .dataora = Datetime() + .id_fact = tofactura.id_fact + .id_responsabil = toresponsabil.id_responsabil + .id_set = lnid_set + + Select actactan + Append Blank + Gather Name loact + + Endwith + + Select tConturi + Endscan + + If Used("tConturi") + Use In tConturi + Endif + +&& scrie linia cu TVA + Select Distinct scd, ascd, proc_tva, ; + ROUND(Sum(valtva), gnPC) As valtva ; + FROM tFactura ; + GROUP By scd, ascd, proc_tva ; + INTO Cursor tCoteTva + + Select tCoteTva + Scan For valtva <> 0 + With loact + .suma = Round(tCoteTva.valtva, gnPC) + .proc_tva = (100 + tCoteTva.proc_tva) / 100 + .scc = "4427" + .ascc = "" + Endwith + + Select actactan + Append Blank + Gather Name loact + + Select tCoteTva + Endscan + + If Used("tCoteTva") + Use In tCoteTva + Endif +Endif + +Return .T. +Endproc && make_actactan +***-------------------------------------------------------------------------------------- +Procedure viz_facturi +Parameters tlProforme + +Local llProforme +llProforme = tlProforme + +Private poFacturi +Store '' To poFacturi + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza + +If llProforme + lcId_tip = [id_proforma N(20),] + lcId = [id_proforma, ] + lcView = [.vcrm_proforme] +Else + lcId_tip = [id_fact N(20),] + lcId = [id_fact, ] + lcView = [.vcrm_facturi] +Endif +lcSchemaComun = [id_ctr N(5), nr_fact N(10), data_fact D(8), data_ireg D(8), data_scad D(8), valftva N(20,4), valtva N(20,4), valctva N(20,4),]+; + [valval N(20,4), tvaval N(20,4), totval N(20,4), curs N(10,4), data_curs D(8), cod N(10), proc_tva N(2), explcont C(30),]+; + [sters N(1), id_util N(8), dataora T, id_part N(10), an N(4), luna N(2), id_valuta N(5),]+; + [nume C(70), nr_ctr C(20), nume_val C(20)] + +lcSchema1 = lcId_tip + lcSchemaComun +lcSelectComun = [id_ctr, nr_fact, data_fact, data_ireg, data_scad, valftva, valtva, valctva, ]+; + [valval, tvaval, totval, curs, data_curs, cod, proc_tva, explcont, ]+; + [sters, id_util, dataora, id_part, an, luna, id_valuta, ]+; + [nume, nr_ctr, nume_val]+; + [ from ] + gcS + +lcSelect1 = [select ] + lcId + lcSelectComun + lcView +lcOrder1 = [data_fact] +lcgroup = [] +lcFiltru1 = [1=2] +lcFiltruOriginal = [] +llModParam = .T. +llAfiseaza = .F. + +gencursor('poFacturi','tFacturi', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) +poFacturi.ca_baza1.afisare() + +Select tFacturi +loff = Createobject("frm_viz_facturi",llProforme) +loff.Show(1) + +Release poFacturi + +Endproc && viz_facturi +***-------------------------------------------------------------------------------------- +Procedure in_factelem + +Private pnId_fact, pnId_articol, pcDenumire, pcUM, pnCantitate, pnPretUnitar, pnvalftva, pnvaltva, pnvalctva, pnpretuval, pnvalval, pntvaval, pntotval, pnProc_tva +Store 0 To pnId_fact, pnId_articol, pnCantitate, pnPretUnitar, pnvalftva, pnvaltva, pnvalctva, pnpretuval, pnvalval, pntvaval, pntotval, pnProc_tva +Store "" To pcDenumire, pcUM + +Select tFactura +Scan + pnId_fact = poFactura.id_fact + pnId_articol = id_articol + pcDenumire = denumire + pcUM = um + pnCantitate = CANTITATE + pnPretUnitar = pretUnitar + pnvalftva = valftva + pnvaltva = valtva + pnvalctva = valctva + pnpretuval = pretuval + pnvalval = valval + pntotval = totval + pnProc_tva = proc_tva + + lcSql = [begin pack_crm.in_factelem(?gcS, ?gnLuna, ?gnAn, ?pnid_fact, ?pnId_articol, ?pcDenumire, ?pcUm, ?pnCantitate, ?pnPretUnitar, ]+; + [?pnvalftva, ?pnvaltva, ?pnvalctva, ?pnpretuval, ]+; + [?pnvalval, ?pntvaval, ?pntotval, ?pnproc_tva, ?gnIdUtil); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + Messagebox('pack_crm.in_factelem'+goExecutor.cEroare,0+16,"Eroare") + Return + Endif + + Select tFactura +Endscan + +Endproc && in_factelem +***-------------------------------------------------------------------------------------- +Procedure listfactura +Parameters tnId_fact, tlProforma + +Local llProforma +llProforma = tlProforma + +Private pnId_fact +pnId_fact = tnId_fact && id_fact / id_proforma +**--------------- +Private poFact +Store '' To poFact + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +If llProforma + lcSelect1 = ['select * from ] + gcS + [.proforme where 1=2'] + lcFiltru1 = [id_proforma=]+Alltrim(Str(pnId_fact)) +Else + lcSelect1 = ['select * from ] + gcS + [.facturi where 1=2'] + lcFiltru1 = [id_fact=]+Alltrim(Str(pnId_fact)) +Endif +lcOrder1 = [] +llAfiseaza = .F. +gencursor('poFact','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poFact.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cFact Readwrite +Release poFact + +Select cFact +Scatter Name poFactura +**--------------- +**--------------- +Private poClie +Store '' To poClie + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vnom_parteneri where 1=2'] +lcOrder1 = [] +lcFiltru1 = [id_part=]+Alltrim(Str(poFactura.id_part)) +llAfiseaza = .F. +gencursor('poClie','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poClie.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cClienti Readwrite +Release poClie + +Select cClienti +Scatter Name poClient +**--------------- +**--------------- +Private poVal +Store '' To poVal + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.nom_valute where 1=2'] +lcOrder1 = [] +If !Empty(poFactura.id_valuta) And !Isnull(poFactura.id_valuta) + lcFiltru1 = [id_valuta=]+Alltrim(Str(poFactura.id_valuta)) +Else + lcFiltru1 = [] +Endif +llAfiseaza = .F. +gencursor('poVal','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poVal.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cValute Readwrite +Release poVal + +Select cValute +Scatter Name poValuta +**--------------- +**--------------------- +Private poRespons +Store '' To poRespons + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vnom_responsabili where 1=2'] +lcOrder1 = [nume] +lcFiltru1 = [ales=1] +llAfiseaza = .F. +gencursor('poRespons','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poRespons.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cNom_Responsabili Readwrite +If Used("cIntermediar") + Use In cIntermediar +Endif + +Select cNom_Responsabili +Scatter Name poResponsabil + +Release poRespons +**--------------------- +Private poDeleg +Store '' To poDeleg + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +lcSelect1 = ['select * from ] + gcS + [.vnom_responsabili where 1=2'] +lcOrder1 = [nume] +* lcFiltru1 = [id_partener =] + Alltrim(Str(poFactura.id_part)) +lcFiltru1 = [] +llAfiseaza = .F. +gencursor('poDeleg','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poDeleg.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor cNom_Delegati Readwrite +Select cNom_Delegati +Scatter Name poDelegat + +Release poDeleg +***--------------------------------------- +***--------------------------------------- +Private poFact_elem +Store '' To poFact_elem + +Private pcMasina +Store "" To pcMasina + +Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza +lcSchema1 = [''] +If llProforma + lcSelect1 = ['select pe.*, 000 as nrcrt from ] + gcS + [.proforme_elem pe where 1=2'] + lcFiltru1 = [id_proforma=]+Alltrim(Str(poFactura.id_proforma)) +Else + lcSelect1 = ['select fe.*, 000 as nrcrt from ] + gcS + [.fact_elem fe where 1=2'] + lcFiltru1 = [id_fact=]+Alltrim(Str(poFactura.id_fact)) +Endif +lcOrder1 = [] +llAfiseaza = .F. +gencursor('poFact_elem','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza) +poFact_elem.ca_baza1.afisare() + +Select * From cIntermediar Into Cursor tFactura Readwrite +Release poFact_elem +***--------------------------------------- +Select tFactura +Replace All nrcrt With Recno() + +If llProforma + Report Form proforma_a4 To Printer Prompt Preview +Else + lcmenu="\Factura A4;\Factura Fanfold - Tractor;\Factura A4 - RMS - lei;\Factura A4 - RMS - valuta fara TVA;\-;\ 0 then ]+; + [ to_char(Add_months(b.grnt_pv_data, b.grnt_perioada)) || ]+; + [ ' restituire ' || round(a.sumadeplata,2)|| ' lei' end) ]+; + [ when 4 then to_char(a.data_referinta_alerta) || ' ultima rata definita ' end) as descriere, ]+; + [ a.nr_alerta, ]+; + [ a.validat, ]+; + [ a.instiintat, ]+; + [ a.id_ctr, ]+; + [ a.id_fact, ]+; + [ a.id ]+; + [ from vcontracte b ]+; + [ join ctr_log_alerte a on a.id_ctr = b.ID_CTR ]+; + [ left join (select id_fact, nract, dataact from ireg_parteneri ]+; + [ where (extract(year from dataireg) * 12 + extract(month from dataireg) = ]+; + [ an * 12 + luna)) c on c.id_fact = a.id_fact ] + + lcFiltru = [((((a.nr_alerta in (2, 3)) and ]+; + [ (a.sumadeplata is not null and a.sumadeplata <> 0))) or ]+; + [ (a.nr_alerta in (1, 4))) and ]+ lcCondTata + + lcFiltruOriginal = [] + llModParam = .T. + llAfiseaza = .F. + + gencursor('poAlerte','cAlerte', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) + poAlerte.ca_baza1.afisare() + ***------------- + + Select cAlerte + Set Filter To Validat = 0 + Select Count(*) As nr_alerte From cAlerte Where Validat = 0 Into Cursor cNrAlerte + Select cNrAlerte + lnNr_alerte = nr_alerte + + If Used('cNrAlerte') + Use In cNrAlerte + Endif + + If lnPornire <> 0 + If lnNr_alerte > 0 + Select cAlerte + loa = Createobject('frm_alerte') + loa.Show(1) + Endif + Else + Select cAlerte + loa = Createobject('frm_alerte') + loa.Show(1) + Endif + + If Used('cAlerte') + Use In cAlerte + Endif + +Endproc && viz_alerte_garantii +***--------------------------------------------------------------------------------------------------------------------------- +Procedure make_cCtrFactGarant + Parameters tlToate + + Local lcSchema, lcSelect, lcOrder, lcFiltru, llAfiseaza, llToate + llToate = tlToate + lcSchema = [id_ctr N(8), id_fact n(20), id_ctr_fact_garan N(10), nract N(14), dataact D, valftva n(20,2), garantie n(14,2) ] + + lcSelect = [select fg.id_ctr, fg.id_fact, fg.id_ctr_fact_garan, ip.nract, ip.dataact, fg.valftva, fg.garantie ]+; + [ from ctr_facturi_garantii fg left join ireg_parteneri ip on fg.id_fact = ip.id_fact ] + + lcOrder = [ip.dataact] + lcgroup = [] + If llToate + lcFiltru = [extract(year from ip.dataireg) * 12 + extract(month from ip.dataireg) = an * 12 + luna] + Else + lcFiltru = [fg.id_ctr = ]+Alltrim(Str(goContract.id_ctr))+ [ and extract(year from ip.dataireg) * 12 + extract(month from ip.dataireg) = an * 12 + luna] + Endif + + Do Case + Case gnParametru_prog=1 + lcFiltru = lcFiltru + [ and ip.cont = '4111' ] + Case gnParametru_prog=2 + lcFiltru = lcFiltru + [ and (ip.cont = '401' or ip.cont = '404') ] + Endcase + + lcFiltruOriginal = [] + llModParam = .T. + llAfiseaza = .F. + + gencursor('poCtrFactGarant','cCtrFactGarantI', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) + poCtrFactGarant.ca_baza1.afisare() + + Select * From cCtrFactGarantI ; + WITH (Buffering = .T.) ; + INTO Cursor cCtrFactGarant Readwrite + + If Used('cCtrFactGarantI') + Use In cCtrFactGarantI + Endif + +Endproc && make_cCtrFactGarant +***--------------------------------------------------------------------------------------------------------------------------- +Procedure inchide_cCtrFactGarant + + If Used('cCtrFactGarant') + Use In cCtrFactGarant + Endif + +Endproc && inchide_cCtrFactGarant +***----------------------------------------------------------------------------------------------------------------------------- +Procedure make_cCtrActeAditionale + Parameters tlToate + + Private poCtrActeAditionale + Store '' To poCtrActeAditionale + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza, llToate + llToate = tlToate + lcSchema1 = [numar c(20), data D, descriere c(100), id_tata N(8)] + lcSelect1 = [select numar, data, descriere, id_tata ]+; + [ from vcontracte_toate] + + lcOrder1 = [data desc] + lcgroup = [] + lcFiltru1 = [2=2] + + If llToate + lcFiltruOriginal = [tip_istoric = 'A'] + Else + lcFiltruOriginal = [tip_istoric = 'A' and id_tata = ]+Alltrim(Str(goContract.id_ctr)) + Endif + llModParam = .T. + llAfiseaza = .F. + + gencursor('poCtrActeAditionale','cCtrActeAditionale', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) + poCtrActeAditionale.ca_baza1.afisare() + + +Endproc && make_cCtrActeAditionale +***----------------------------------------------------------------------------------------------------------------------------- +Procedure declarare_generator_numere + + If Type('poGeneratorNumere') = 'U' + Public poGeneratorNumere + poGeneratorNumere = Createobject('oGeneratorNumere') + Endif + +Endproc && declarare_generator_numere +***----------------------------------------------------------------------------------------------------------------------------- +Procedure restdefacturat + + Private pcfiltru + Store "1=1" To pcfiltru + + lorf = Createobject('frm_restdefacturat') + lorf.Show(1) + +Endproc && restdefacturat +***----------------------------------------------------------------------------------------------------------------------------- +Procedure make_crsNote + + Private poNote + Store '' To poNote + + Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal + lcSchema1 = [] + lcSelect1 = [select denumire, id_nota from vcrm_note_vanzari nv] + lcOrder1 = [denumire] + lcgroup = [] + lcFiltru1 = [] + lcFiltruOriginal = [] + llModParam = .T. + llAfiseaza = .F. + + gencursor('poNote','crsNote', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) + poNote.ca_baza1.afisare() + Select crsNote + +Endproc && make_crsNote +***----------------------------------------------------------------------------------------------------------------------------- +Procedure make_crsValute + + lcSql = [select id_valuta, nume_val, moneda_nationala FROM vnom_valute where inactiv = 0 order by nume_val] + lnSucces=goExecutor.oExecute(lcSql,'crsValute') + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + Endif + Select crsValute + +Endproc && make_crsValute +***----------------------------------------------------------------------------------------------------------------------------- +Procedure make_crsSectii + + Create Cursor crsSectii(id_sectie N(5), sectie c(50)) + Insert Into crsSectii (id_sectie, sectie) Values (0, '') + lcSql = [select id_sectie, sectie FROM vnom_sectii where inactiv = 0] + gcCondSucursala + [ order by sectie] + lnSucces=goExecutor.oExecute(lcSql,'crsSectiiI') + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + Endif + Select crsSectii + Append From Dbf('crsSectiiI') + + If Used('crsSectiiI') + Use In crsSectiiI + Endif + +Endproc && make_crsSectii +***----------------------------------------------------------------------------------------------------------------------------- +Procedure make_crsTip_ctr + + Do Case + Case gnParametru_prog=1 + lcWhere = [ where substr(tata,2,6)='CLIENT'] + Case gnParametru_prog=2 + lcWhere = [ where substr(tata,2,6)='FURNIZ'] + Otherwise + lcWhere = [] + Endcase + + lcSql = [select id_tip_ctr, denumire_tip FROM vtipuri_contracte]+lcWhere + [ order by denumire_tip] + lnSucces=goExecutor.oExecute(lcSql,'crsTip_ctr') + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + Endif + Select crsTip_ctr + +Endproc && make_crsTip_ctr +***----------------------------------------------------------------------------------------------------------------------------- +Procedure make_crsSelectii + + Create Cursor crsSelectii(id_selectie N(4), selectie c(100)) + Insert Into crsSelectii(id_selectie , selectie ) Values (0, '') + lcSql = [select id_selectie, selectie FROM vctr_selectii] + lnSucces=goExecutor.oExecute(lcSql,'crsSelectiiI') + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + Endif + Select crsSelectii + Append From Dbf('crsSelectiiI') + + If Used('crsSelectiiI') + Use In crsSelectiiI + Endif + +Endproc && make_crsSelectii +***----------------------------------------------------------------------------------------------------------------------------- +Procedure inchide_crsNote + + If Used('crsNote') + Use In crsNote + Endif + +Endproc && inchide_crsNote +***----------------------------------------------------------------------------------------------------------------------------- +Procedure inchide_crsValute + + If Used('crsValute') + Use In crsValute + Endif + +Endproc && inchide_crsValute +***----------------------------------------------------------------------------------------------------------------------------- +Procedure inchide_crsSectii + + If Used('crsSectii') + Use In crsSectii + Endif + +Endproc && inchide_crsSectii +***----------------------------------------------------------------------------------------------------------------------------- +Procedure inchide_crsTip_ctr + + If Used('crsTip_ctr') + Use In crsTip_ctr + Endif + +Endproc && inchide_crsTip_ctr +***----------------------------------------------------------------------------------------------------------------------------- +Procedure inchide_crsSelectii + + If Used('crsSelectii') + Use In crsSelectii + Endif + +Endproc && inchide_crsSelectii +***----------------------------------------------------------------------------------------------------------------------------- +Procedure salveaza_obiectul + Parameters tcTabel + + Local lcTabel + lcTabel = tcTabel + + lcSel = 'select * from vctr_articole where id_ctr = '+ Alltrim(Str(goContract.id_ctr)) + ' order by nume_articol' + lcCursor = 'cCtrArt_server' + lnSucces = goExecutor.oExecute(lcSel, lcCursor) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return lnSucces + Endif + + * daca exista id_pol_art pe server, care nu mai sunt pe local, sterg + Select * From cCtrArt_server ; + Where id_ctr_art Not In (Select id_ctr_art From (lcTabel)) ; + INTO Cursor cArt_sters + + Select cArt_sters + Scan + pcId_pol_art = Nvl(Alltrim(Str(id_pol_art)),'NULL') + pcId_articol = Nvl(Alltrim(Str(id_articol)),'NULL') + lcSql = [begin pack_crm.sterge_ctr_art(] + Alltrim(Str(gnParametru_prog)) + [,] + pcId_ctr + [,] + Iif(gnParametru_prog=1,pcId_pol_art,pcId_articol) + [); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return lnSucces + Endif + + Select cArt_sters + Endscan + + If Used('cArt_sters') + Use In cArt_sters + Endif + + * daca exista id_ctr_art in plus in cursorul de pe local, adaug pe server + + + Select * From (lcTabel) Where Empty(id_ctr_art) ; + INTO Cursor cArt_nou + + Select cArt_nou + Scan + pcId_pol_art = Iif(Empty(id_pol_art) Or Isnull(id_pol_art),'NULL',Alltrim(Str(id_pol_art))) + pcId_articol = Nvl(Alltrim(Str(id_articol)),'NULL') + pcPret_cu_tva = Alltrim(Str(pret_cu_tva)) + pcPret_unitar = Nvl(Alltrim(Str(pret_unitar,20,gnPC)),"0") + pcCant = Alltrim(Str(cant,10,gnPCant)) + pcCoef_discount = Nvl(Alltrim(Str(coef_discount,10,gnPC)),"0") + pcVal_discount = Nvl(Alltrim(Str(val_discount,20,gnPC)),"0") + pcId_valuta = Alltrim(Str(id_valuta)) + pcUM = Nvl(Alltrim(um),'') + pcExplicatie = "" && ALLTRIM(explicatie) + + lcSql = [begin pack_crm.adauga_ctr_art(] + pcId_ctr + [,] + pcId_pol_art + [,] + pcId_articol + [,] + pcPret_cu_tva + [,] + pcPret_unitar + [,] + ; + pcCant + [,] + pcCoef_discount + [,] + ; + pcVal_discount + [,] + pcId_valuta + [,'] + pcUM + [','] + pcExplicatie +['); end;] + + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return lnSucces + Endif + Select cArt_nou + Endscan + + If Used('cArt_nou') + Use In cArt_nou + Endif + + + * pentru articolele care au deja id_ctr_art, fac update pe server + Select * From (lcTabel) Where !Empty(id_ctr_art) ; + INTO Cursor cArt_modi + + Select cArt_modi + Scan + pcId_pol_art = Nvl(Alltrim(Str(id_pol_art)),'NULL') + pcId_articol = Nvl(Alltrim(Str(id_articol)),'NULL') + pcCant = Nvl(Alltrim(Str(cant,10,gnPCant)),"") + pcPret_cu_tva = Alltrim(Str(pret_cu_tva)) + pcPret_unitar = Alltrim(Str(pret_unitar,20,gnPC)) + pcCoef_discount = Alltrim(Str(coef_discount,10,gnPC)) + pcVal_discount = Alltrim(Str(val_discount,20,gnPC)) + pcId_valuta = Alltrim(Str(id_valuta)) + + lcSql = [begin pack_crm.modifica_ctr_art(] + pcParametru_prog + [,] + pcId_ctr + [,] + pcId_pol_art + [,] + pcId_articol + [,] + pcCant + [,] + ; + pcPret_cu_tva + [,] + pcPret_unitar + [,] + pcCoef_discount + [,] + pcVal_discount + [,] + pcId_valuta + [); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return lnSucces + Endif + + Select cArt_modi + Endscan + + If Used('cArt_modi') + Use In cArt_modi + Endif + + If Used('cCtrArt_server') + Use In cCtrArt_server + Endif + + Return lnSucces + +Endproc && salveaza_obiectul +***----------------------------------------------------------------------------------------------------------------------------- +Procedure salveaza_rate + Parameters tcTabel + + Local lcTabel, lcId_scadentar, lcNr_rata, lcData_rata, lcData_scadenta, lcPret_cu_tva, lcProc_tva, lcValrata, lcId_valuta, lcDen_rata, lcProcent + lcTabel = tcTabel + + lcSel = 'select id_rata from vctr_scadentar where id_ctr = '+ Alltrim(Str(goContract.id_ctr)) + ' order by nr_rata, data_rata' + lcCursor = 'cCtrScadentar_server' + lnSucces = goExecutor.oExecute(lcSel, lcCursor) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return lnSucces + Endif + + + * daca exista id_rata in plus in cursorul de pe local, adaug pe server + Select * From (lcTabel) Where (Empty(id_rata) Or Isnull(id_rata)) ; + INTO Cursor cRate_nou + Select cRate_nou + Scan + lcId_scadentar = Alltrim(Str(id_rata)) + lcNr_rata = Nvl(Alltrim(Str(nr_rata)),'0') + lcData_rata = Alltrim(Dtos(data_rata)) + lcData_scadenta = Alltrim(Dtos(data_scadenta)) + lcPret_cu_tva = Nvl(Alltrim(Str(pret_cu_tva,20,gnPC)),'0') + lcProc_tva = Nvl(Alltrim(Str(proc_tva,20,gnPC)),'0') + lcValrata = Nvl(Alltrim(Str(valrata,20,gnPC)),'0') + lcId_valuta = Nvl(Alltrim(Str(id_valuta)),'0') + lcDen_rata = Nvl(Alltrim(den_rata),'') + lcProcent = Nvl(Alltrim(Str(procent,5,gnPC)),'0') + + lcSql = [begin pack_crm.adauga_scadentar(] + pcId_ctr + [,] + lcNr_rata + ; + [,'] + lcDen_rata + [']+; + [,to_date(]+Iif(!Empty(lcData_rata) And !Isnull(lcData_rata),[']+lcData_rata+['],[NULL])+[,'YYYYMMDD')] + ; + [,to_date(]+Iif(!Empty(lcData_scadenta) And !Isnull(lcData_scadenta),[']+lcData_scadenta+['],[NULL])+[,'YYYYMMDD'),] + ; + lcPret_cu_tva + [,] + lcProc_tva + [,] + lcValrata + [,] + lcProcent + [,] + lcId_valuta + [,] + Alltrim(Str(gnIdUtil)) +[); end;] + + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return lnSucces + Endif + Select cRate_nou + Endscan + + If Used('cRate_nou') + Use In cRate_nou + Endif + + * daca exista id_rata pe server, care nu mai sunt pe local, sterg + Select * From cCtrScadentar_server ; + Where id_rata Not In (Select id_rata From &lcTabel) ; + INTO Cursor cRate_sters + + Select cRate_sters + Scan + pcId_rata = Alltrim(Str(id_rata)) + lcSql = [begin pack_crm.sterge_scadentar(] + pcId_rata + [,] + Alltrim(Str(gnIdUtil)) + [); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return lnSucces + Endif + + Select cRate_sters + Endscan + + If Used('cRate_sters') + Use In cRate_sters + Endif + + * pentru ratele care au deja id_rata, fac update pe server + Select * From (lcTabel) Where !Empty(id_rata) ; + INTO Cursor cRate_modi + + Select cRate_modi + Scan + + lcId_scadentar = Alltrim(Str(id_rata)) + lcNr_rata = Nvl(Alltrim(Str(nr_rata)),'0') + lcData_rata = Alltrim(Dtos(data_rata)) + lcData_scadenta = Alltrim(Dtos(data_scadenta)) + lcPret_cu_tva = Nvl(Alltrim(Str(pret_cu_tva,20,gnPC)),'0') + lcProc_tva = Nvl(Alltrim(Str(proc_tva,20,gnPC)),'0') + lcValrata = Nvl(Alltrim(Str(valrata,20,gnPC)),'0') + lcId_valuta = Nvl(Alltrim(Str(id_valuta)),'0') + lcDen_rata = Nvl(Alltrim(den_rata),'') + lcProcent = Nvl(Alltrim(Str(procent,5,gnPC)),'0') + + lcSql = [begin pack_crm.modifica_scadentar(] + lcId_scadentar + [,] + lcNr_rata + ; + [,to_date(]+Iif(!Empty(lcData_rata) And !Isnull(lcData_rata),[']+lcData_rata+['],[NULL])+[,'YYYYMMDD')] + ; + [,to_date(]+Iif(!Empty(lcData_scadenta) And !Isnull(lcData_scadenta),[']+lcData_scadenta+['],[NULL])+[,'YYYYMMDD'),] + ; + lcPret_cu_tva + [,] + lcProc_tva + [,] + lcValrata + [,] + lcId_valuta + [,'] + lcDen_rata + [',] + lcProcent + [); end;] + + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return lnSucces + Endif + + Select cRate_modi + Endscan + + If Used('cRate_modi') + Use In cRate_modi + Endif + + If Used('cCtrScadentar_server') + Use In cCtrScadentar_server + Endif + + Return lnSucces +Endproc && salveaza_rate +***----------------------------------------------------------------------------------------------------------------------------- +*!* modificare v 2.0.41 : am mutat-o in oproceduri_atasamente.prg +*!* Procedure salveaza_atasamente +*!* Parameters tcTabel +*!* Local lcTabel +*!* lcTabel = tcTabel +*!* lcSql = [select ar.id_referinta ]+; +*!* [ from VATAS_REFERINTE ar ]+; +*!* [ where ar.nume_fisier is not null and ar.id_tip_entitate = 2 and ar.id_entitate=]+Alltrim(Str(goContract.id_ctr)) +*!* lcCursor = 'crsAtasamente_server' +*!* lnSucces = goExecutor.oExecute(lcSql, lcCursor) +*!* If lnSucces < 0 +*!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") +*!* Return lnSucces +*!* Endif +*!* * daca exista id_referinta in plus in cursorul de pe local, adaug pe server +*!* Private pnId_entitate, pnTip_entitate, pcLink, pcDescriere, pcFis_name, pcFisier, pnId_atas +*!* Store 0 To pnId_entitate, pnTip_entitate, pnId_atas +*!* Store "" To pcDescriere, pcFis_name, pcFisier, pcLink +*!* pnId_entitate = goContract.id_ctr +*!* pnTip_entitate = 2 +*!* Select * From (lcTabel) ; +*!* Where (Empty(id_referinta) Or Isnull(id_referinta)) ; +*!* INTO Cursor cAtasamente_nou +*!* Select cAtasamente_nou +*!* Scan +*!* pcDescriere = Upper(Alltrim(descriere)) +*!* pcFis_name = Upper(Alltrim(nume_fisier)) +*!* *!* If Empty(pcLink) +*!* *!* Return +*!* *!* Endif +*!* * pcFisier = Filetostr(pcLink) +*!* pcFisier = fisier +*!* lcSql = [insert into atas_atasamente(fisier, nume_fisier, descriere, id_util) ]+; +*!* [values (?pcFisier, ?pcFis_name, ?pcDescriere, ?gnIdUtil) ] + ; +*!* [ returning id_atas into ?@pnId_atas] +*!* lnSucces = goExecutor.oExecute(lcSql) +*!* If lnSucces < 0 +*!* aMessagebox(goExecutor.cEroare,0+16,'Eroare') +*!* Endif +*!* lcSql = [insert into atas_referinte(id_atas, id_tip_entitate, id_entitate, id_util) ]+; +*!* [values (?pnId_atas, ?pnTip_entitate, ?pnId_entitate, ?gnIdUtil) ] +*!* lnSucces = goExecutor.oExecute(lcSql) +*!* If lnSucces < 0 +*!* aMessagebox(goExecutor.cEroare,0+16,'Eroare') +*!* Return lnSucces +*!* Endif +*!* Select cAtasamente_nou +*!* Endscan +*!* If Used('cAtasamente_nou') +*!* Use In cAtasamente_nou +*!* Endif +*!* * daca exista id_referinta pe server, care nu mai sunt pe local, sterg +*!* *!* Select id_referinta From crsAtasamente_server ; +*!* *!* Where id_referinta Not In (Select id_referinta From cId_ref) ; +*!* *!* INTO Cursor cAtasamente_sters +*!* lcDeleted = Set("Deleted") +*!* Set Deleted Off +*!* Select * From (lcTabel) Where Deleted() And !Empty(id_referinta); +*!* INTO Cursor cAtasamente_sters +*!* Select cAtasamente_sters +*!* Scan +*!* *pcId_atas = Alltrim(Str(id_atas)) +*!* lcId_referinta = Alltrim(Str(id_referinta)) +*!* lcSql = [update atas_referinte set sters = 1, dataoras = SYSDATE, id_utils = ] + Alltrim(Str(gnIdUtil)) + ; +*!* [ WHERE id_referinta = ] + lcId_referinta +*!* *[ WHERE id_atas = ] + pcId_atas +*!* *lcSql = lcSql + [ and id_tip_entitate=2 and id_entitate=]+Alltrim(Str(goContract.id_ctr)) +*!* lnSucces = goExecutor.oExecute(lcSql) +*!* If lnSucces < 0 +*!* AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") +*!* Return lnSucces +*!* Endif +*!* Select cAtasamente_sters +*!* Endscan +*!* If Used('cAtasamente_sters') +*!* Use In cAtasamente_sters +*!* Endif +*!* Set Deleted &lcDeleted +*!* If Used('cAtasamente_sters') +*!* Use In cAtasamente_sters +*!* Endif +*!* If Used('crsAtasamente_server') +*!* Use In crsAtasamente_server +*!* Endif +*!* Return lnSucces +*!* Endproc && salveaza_atasamente +*!* modificare v 2.0.41 ^ +***----------------------------------------------------------------------------------------------------------------------------- +Procedure salveaza_garantii + Parameters tcTabel + + Local lcTabel + lcTabel = tcTabel + + lcSql = [select fg.id_ctr, fg.id_ctr_fact_garan, ip.nract, ip.dataact, fg.valftva, fg.garantie ]+; + [ from ctr_facturi_garantii fg ]+; + [ left join ireg_parteneri ip ]+; + [ on fg.id_fact = ip.id_fact ]+; + [ where fg.id_ctr = ]+Alltrim(Str(goContract.id_ctr))+ [ and extract(year from ip.dataireg) * 12 + extract(month from ip.dataireg) = an * 12 + luna] + + Do Case + Case gnParametru_prog=1 + lcSql = lcSql+ [ and ip.cont = '4111' ] + Case gnParametru_prog=2 + lcSql = lcSql+ [ and (ip.cont = '401' or ip.cont = '404') ] + Endcase + + lcCursor = 'crsFactGarant_server' + lnSucces = goExecutor.oExecute(lcSql, lcCursor) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return lnSucces + Endif + + * daca exista id_ctr_fact_garan in plus in cursorul de pe local, adaug pe server + Select * From (lcTabel) ; + Where Empty(Nvl(id_ctr_fact_garan,0)) ; + INTO Cursor crsFactGarant_nou + + Select crsFactGarant_nou + Scan + lnId_fact = id_fact + lnFactValftva = valftva + lnGarantieRetinuta = garantie + + lcSql = [begin pack_crm.adauga_factura_garantie(]+Alltrim(Str(goContract.id_ctr))+[,] + Alltrim(Str(lnId_fact))+[,]+; + ALLTRIM(Str(lnFactValftva,20,gnPA))+[,]+Alltrim(Str(lnGarantieRetinuta,20,gnPA))+[); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return lnSucces + Endif + + Select crsFactGarant_nou + Endscan + + If Used('crsFactGarant_nou') + Use In crsFactGarant_nou + Endif + + + * daca exista id_ctr_fact_garan pe server, care nu mai sunt pe local, sterg + + Select id_ctr_fact_garan From crsFactGarant_server; + Where id_ctr_fact_garan Not In (Select id_ctr_fact_garan From (lcTabel)) ; + INTO Cursor crsFactGarant_sters + + + *!* lcDeleted = Set("Deleted") + + *!* Set Deleted Off + *!* Select * From (lcTabel) Where Deleted() And !Empty(id_referinta); + *!* INTO Cursor cAtasamente_sters + + Select crsFactGarant_sters + Scan + lnId_ctr_fact_garan = id_ctr_fact_garan + lcSql = [begin pack_crm.sterge_factura_garantie(]+Alltrim(Str(lnId_ctr_fact_garan))+[); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return lnSucces + Endif + Select crsFactGarant_sters + Endscan + + If Used('crsFactGarant_sters') + Use In crsFactGarant_sters + Endif + + *Set Deleted &lcDeleted + + * pentru garantiile care au deja id_ctr_fact_garan, fac update pe server + Select * From (lcTabel) Where !Empty(Nvl(id_ctr_fact_garan,0)) ; + INTO Cursor crsFactGarant_modi + + Select crsFactGarant_modi + Scan + + lnId_ctr_fact_garan = id_ctr_fact_garan + lnFactValftva = valftva + lnGarantieRetinuta = garantie + + lcSql = [begin pack_crm.modifica_factura_garantie(]+Alltrim(Str(lnId_ctr_fact_garan))+[,]+; + ALLTRIM(Str(lnFactValftva,20,gnPA))+[,]+Alltrim(Str(lnGarantieRetinuta,20,gnPA))+[); end;] + lnSucces = goExecutor.oExecute(lcSql) + + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Return lnSucces + Endif + + Select crsFactGarant_modi + Endscan + + If Used('crsFactGarant_modi') + Use In crsFactGarant_modi + Endif + + If Used('crsFactGarant_server') + Use In crsFactGarant_server + Endif + + Return lnSucces +Endproc && salveaza_garantii +***----------------------------------------------------------------------------------------------------------------------------- +Procedure make_cCtrFacturatIncasat + Parameters tlToate, tcFiltruCtr + Local llToate + llToate = tlToate + + If llToate + lcSelect = [select i.dataact, i.datascad, i.nract, i.nume, i.id_part, i.id_ctr, i.contract,c.numar,c.data,i.id_responsabil,i.nresp,c.nume_val,c.valftva, SUM(] + Iif(gnParametru_prog = 1,[debit],[credit]) + [) as tot_fact, ] +; + [ SUM(] + Iif(gnParametru_prog = 1,[credit],[debit]) + [) as tot_achit, ] +; + [ 00000000000000.0000 as sold_contract, 00000000000000.0000 as sold_part ] +; + [ from vireg_parteneri i join vcontracte_toate c on i.id_ctr=c.id_ctr] + ; + IIF(!Empty(tcFiltruCtr),[ where ]+ tcFiltruCtr,[]) +; + [ group by i.dataact, i.datascad, i.nract, i.nume, i.id_part, i.id_ctr, i.contract,c.numar,c.data,i.id_responsabil,i.nresp,c.nume_val,c.valftva ] + ; + [ order by c.nume_val,c.data,c.numar] + Else + lcSelect = [select i.dataact, i.datascad, i.nract, i.nume, i.id_part, i.id_ctr, i.contract,c.numar,c.data,i.id_responsabil,i.nresp,c.nume_val,c.valftva, SUM(] + Iif(gnParametru_prog = 1,[debit],[credit]) + [) as tot_fact, ] +; + [ SUM(] + Iif(gnParametru_prog = 1,[credit],[debit]) + [) as tot_achit, ] +; + [ 00000000000000.0000 as sold_contract, 00000000000000.0000 as sold_part ] +; + [ from vireg_parteneri i join vcontracte_toate c on i.id_ctr=c.id_ctr] + ; + [ where i.id_ctr = ]+ Alltrim(Str(goContract.id_ctr)) +; + [ group by i.dataact, i.datascad, i.nract, i.nume, i.id_part, i.id_ctr, i.contract,c.numar,c.data,i.id_responsabil,i.nresp,c.nume_val,c.valftva ] + ; + [ order by c.nume_val,c.data,c.numar] + Endif + lcCursor = [cCtrFacturatIncasatI] + lnSucces = goExecutor.oExecute(lcSelect,lcCursor) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare') + Return + Endif + Select * From cCtrFacturatIncasatI With (Buffering = .T.) Into Cursor cCtrFacturatIncasat Readwrite + + If Used('cCtrFacturatIncasatI') + Use In cCtrFacturatIncasatI + Endif + +Endproc + +Procedure inchide_cCtrFacturatIncasat + If Used('cCtrFacturatIncasat') + Use In cCtrFacturatIncasat + Endif +Endproc +**************************************************************************************** +Procedure actualizeaza_drepturi_roacontracte + If gnParametru_prog = 2 + With oprinc.pagefr1 + .page1.cw2.visible = .F. + .page1.cw6.visible = .F. + .page4.cw4.visible = .F. + .page4.cw5.visible = .F. + Endwith + Endif +Endproc +**************************************************************************************** \ No newline at end of file diff --git a/Programe/ovariabile_globale.prg b/Programe/ovariabile_globale.prg new file mode 100644 index 0000000..88b0b2a --- /dev/null +++ b/Programe/ovariabile_globale.prg @@ -0,0 +1,12 @@ +PUBLIC gcCondLuna +*!* gcCondLuna = [((((extract(month from datafact) =]+Alltrim(Str(gnLuna))+; +*!* [ and extract(year from datafact) =]+Alltrim(Str(gnAn))+[) or (datafact is null )); +*!* and ]+; +*!* [ (extract (month from datai)<=]+Alltrim(Str(gnLuna)) + [ and extract(year from datai)<= ]+Alltrim(Str(gnAn))+[))]+; +*!* [ or ((extract (month from dataoravalid)>= ]+Alltrim(Str(gnLuna))+[ and extract(year from dataoravalid)>=]+Alltrim(Str(gnAn)) +[)]+; +*!* [ and id_tip > 1)]+ [)] + +*!* lcDataFact= [ (a.facturat=1 and (extract(month from a.datafact) =]+Alltrim(Str(gnLuna))+[ and extract(year from a.datafact) =]+Alltrim(Str(gnAn))+[))] +*!* lcDataValid = [ (a.validat=1 and (extract (month from a.dataoravalid)>= ]+Alltrim(Str(gnLuna))+[ and extract(year from a.dataoravalid)>=]+Alltrim(Str(gnAn)) +[)) ] +*!* gcCondLuna = [ ((extract (month from a.datai)=]+Alltrim(Str(gnLuna)) + [ and extract(year from a.datai)= ]+Alltrim(Str(gnAn))+[) or ]+; +*!* [ (a.id_tip=1 and (a.facturat=0 or ] + lcDataFact + [) ) or (a.id_tip>1 and (a.validat=0 or ] + lcDataValid + [))) ] \ No newline at end of file diff --git a/Programe/pmenu.prg b/Programe/pmenu.prg new file mode 100644 index 0000000..dd829b6 --- /dev/null +++ b/Programe/pmenu.prg @@ -0,0 +1,4578 @@ +*-------------------------------------------- +Function deschide_menu +Parameters tabela, cc1,cc2,mnrtata,stinga,sus,ONT + +Public nt,no,m +nt=Alltrim(tabela)+'_'+Alltrim(Str(mnrtata)) + +If Upper(Left(tabela,6))='_MENU1' + no='o'+nt + zz='SELECT '+cc1+' AS C1, '+cc2+' AS C2,nrnod,PROCEDURA,TATAFIU,ID_SET,LISTA_NOTE FROM '+; + tabela+' WHERE NRTATA='+Alltrim(Str(mnrtata))+' INTO CURSOR '+nt +Else + no='o_'+nt + zz='SELECT '+cc1+' AS C1, '+cc2+' AS C2,nrnod,PROCEDURA,TATAFIU,ID_SET FROM '+; + tabela+' WHERE NRTATA='+Alltrim(Str(mnrtata))+' INTO CURSOR '+nt +Endif +&zz + + +m=0 + + + +Select &nt +Scan + mm=Len(Alltrim(c1)) + m=Iif(m>mm,m,mm) +Endscan + +ta=_Tally +If ta=0 + Return '0' +Endif + +If Type("&no")!='O' + Public &no + zz=no+'=crea("menuclasic")' + &zz + + With &no + wm=m*7 + .NUME=no + .ONUMETATA=ONT + .Left=stinga + .Top=sus + .tabela=tabela + .camp1=cc1 + .camp2=cc2 + .sursa=nt + .Width=wm+2*.margine + .NRFII=ta + .rh=.container1.cwm1.Height + .Height=(.rh+1)*.NRFII+2*.margine+2 +*.show() + Endwith +Endif + +Release nt,m +Return no + + + +*------------------------------------------------------------------------------------------ +Procedure deschide_menuuri +*!* If !Used('menu1') +*!* Use &DIRGEN\CONTAB\Date\menu1 In 0 Alias menu1 Order Tag 'nrnod' +*!* Endif +*!* If !Used('menu2') +*!* Use &DIRGEN\CONTAB\Date\menu2 In 0 Alias menu2 Order Tag 'nrnod' +*!* Endif +*!* If !Used('menu3') +*!* Use &DIRGEN\CONTAB\Date\menu3 In 0 Alias menu3 Order Tag 'nrnod' +*!* Endif +*!* If !Used('menu4') +*!* Use &DIRGEN\CONTAB\Date\menu4 In 0 Alias menu4 Order Tag 'nrnod' +*!* Endif + +*!* If PRIMADATA +*!* Do CE_WINDOWS +*!* omenuvertical=Crea('menuvertical') +*!* omenuvertical.Show() +*!* Endif +*deschide_menu(tabela, cc1,cc2,mnrtata,stinga,sus,ONT +Return + + + + +*-------------------------------------- +Procedure CE_WINDOWS +Local vermajor,verminor +Public TIP_MENU,COL_MENU,cewin +Store '' To cewin +Store 0 To vermajor,verminor,TIP_MENU + +vermajor=Val(Os(3)) +verminor=Val(Os(4)) +Do Case +Case vermajor<4 + cewin='95' +Case vermajor=4 + cewin='98' +Case vermajor>=5 + Do Case + Case verminor=0 + cewin='2000' + Case verminor=1 + cewin='XP' + Otherwise + cewin='MAINOU' + Endcase +Endcase + + +*IF INLIST(CEWIN,'95','98','2000') +TIP_MENU=0&&'RAISED' +*ELSE +*TIP_MENU=2&&'FLAT' +*ENDIF + +*!* Do Case +*!* Case Inlist(cewin,'95','98') +*!* COL_MENU=Rgb(192,192,192)&&GRI +*!* Case cewin='2000' +*!* COL_MENU=Rgb(212,208,200)&&NISIP GRI +*!* Case cewin='XP' +*!* COL_MENU=Rgb(236,233,216)&&NISIP BEJ +*!* Otherwise +COL_MENU=Rgb(255,255,255)&&ALB +*!* Endcase + + +Return + + + + +*-------------------------------------- +Function SCRIE_IN_FISIERE +Parameters INFORMGEST + +*!* DEBUG +*!* SUSPEND +Local M.DEB,M.CRED,COND +Store 0 To M.DEB, M.CRED +Public OZ +COND='(Empty(SUMA) AND INLIST(XSETS.ID_SET,70))'&&INREGISTRARI CU SUMA 0 + + +*!* SELECT actactan +*!* SCAN +*!* SCATTER NAME loCont +*!* IF EMPTY(loCont.ascd) +*!* SELECT plcontana +*!* LOCATE FOR cont=locont.scd +*!* IF FOUND() +*!* loCont.ascd='0000' +*!* ENDIF +*!* ENDIF +*!* IF EMPTY(loCont.ascc) +*!* SELECT plcontana +*!* LOCATE FOR cont=locont.scc +*!* IF FOUND() +*!* loCont.ascc='0000' +*!* ENDIF +*!* ENDIF +*!* SELECT actactan +*!* GATHER NAME loCont +*!* ENDSCAN +*!* RELEASE loCont + +DD=Datetime() +Do CODARE +Select ACTACTAN +Replace All COD With M.COD +Replace All UTIL With UTILIZATOR, DATAORA With DD +Go Top +Scatter Name OZ + + + +Select ACTACTAN +Scan For !Empty(SUMA) OR &COND + Scatter Memv + Select ACT + If Flock() + Append Blank + Gather Memv + Endif + Unlock + Select ACTAN + If Flock() + Append Blank + Gather Memv + Endif + Unlock + Select ACTACTAN +Endscan + +Do Case +Case Left(Upper(INFORMGEST),3)='NIR' + Do SCRIE_NIR +Case Left(Upper(INFORMGEST),3)='BON' + Select IESIRI + Replace All COD With M.COD + IF !INLIST(M.ID_SET,70) + Do IERULAJMAGAZII + Do IESTOCURIMAGAZII + ENDIF + If Inlist(M.ID_SET,74,75,76)&&TRANSFER + Select INTRARI + Replace All COD With M.COD + Do INRULAJMAGAZII + Do INSTOCURIMAGAZII + Endif +Case Upper(INFORMGEST)='SCHIMBPRET' + Select INTRARI + Replace All COD With M.COD + Select IESIRI + Replace All COD With M.COD + Do IERULAJMAGAZII + Do IESTOCURIMAGAZII + Do INRULAJMAGAZII + Do INSTOCURIMAGAZII +Endcase + + +&& TABELA DE CONTURI +*!* IF USED('conturi') +*!* USE IN conturi +*!* ENDIF + +*!* IF USED('cc') +*!* USE IN cc +*!* ENDIF + + + +IF _program='cont' + Select Distinct SCD As Cont,ascd as acont,99999999999999 As DEB,; + 99999999999999 As CRED,99999999999999.99 As DEBVAL,99999999999999.99 As CREDVAL; + FROM ACTACTAN Into Table &LOC\&NFSCURT\TEMPO\CONTURI +ELSE + Select Distinct SCD As Cont,ascd as acont,99999999999999 As DEB,; + 99999999999999 As CRED,99999999999999.99 As DEBVAL,99999999999999.99 As CREDVAL; + FROM ACTACTAN Into Table &LOC\&NFSCURT\TEMPO\CONTURI_g + USE IN conturi_g + USE &LOC\&NFSCURT\TEMPO\CONTURI_g IN 0 ALIAS conturi +ENDIF + +Select CONTURI +Replace All DEB With 0, CRED With 0,DEBVAL With 0, CREDVAL With 0 +Select Distinct SCC As Cont,ascc as acont From ACTACTAN; + WHERE SCC+ASCC Not In (Sele Distinct Cont+ACONT From CONTURI); + INTO Cursor CC +Select CONTURI +Append From Dbf('CC') + +Select CONTURI +Scan + Scatter Memv + Select ACTACTAN + Sum SUMA To M.DEB For SCD=M.CONT AND ascd=m.acont + Sum SUMA To M.CRED For SCC=M.CONT AND ascc=m.acont + Sum SUMA_2 To M.DEBVAL For SCD=M.CONT AND ascd=m.acont + Sum SUMA_2 To M.CREDVAL For SCC=M.CONT AND ascc=m.acont + Select CONTURI + Gather Fields DEB, CRED,DEBVAL,CREDVAL Memv +Endscan + + +&& SCRIE IN BALANTA +Select CONTURI +Scan + Scatter Memv + Select BAL + If Flock() + LOCATE FOR cont=M.CONT + If !Found() + Sele PLCONT + Locate For Left(CIMP1,4)=Left(M.CONT,4) + If Found() + Do MESAJ With 'Se introduce in balanta contul',M.CONT + Scatter Memvar + m.CONT=M.CIMP1 + m.denumire=m.cimp2 + Sele BAL + If Flock() + Append Blank + Gather Memvar + Endif + Unlock + Else + Do MESAJ With 'Contul '+M.CONT+' nu este introdus','nici in planul de conturi si nici in balanta!' + Do Form contnou + Endif + Endif + Select BAL + Replace RULDEB With RULDEB+M.DEB, TOTDEB With TOTDEB+M.DEB,; + RULCRED With RULCRED+M.CRED, TOTCRED With TOTCRED+M.CRED + SOLD=TOTDEB-TOTCRED + Replace SOLDDEB With Iif(SOLD>0,SOLD,0), SOLDCRED With Iif(SOLD<0,-SOLD,0) + Endif + Unlock + Select CONTURI +Endscan + +&&scrie in balanta analitica +Select ascd,ascc From ACTACTAN Where !Empty(ascd) Or !Empty(ascc) Into Cursor aacont +If _Tally<>0 + Select balana + If Flock() + Select ACTACTAN + Scan + Scatter Memv + &&deb + IF !EMPTY(m.ascd) + Select balana + Seek m.SCD+m.ascd + If !Found() + Seek m.SCD+'0000' + If !Found() + Append Blank + Replace Cont With m.SCD + Replace acont With '0000' + Endif + Endif + Replace RULDEB With RULDEB+M.suma, TOTDEB With TOTDEB+M.suma + SOLD=TOTDEB-TOTCRED + Replace SOLDDEB With Iif(SOLD>0,SOLD,0) + endif + &&cred + IF !EMPTY(m.ascc) + Select balana + Seek m.SCc+m.ascc + If !Found() + Seek m.SCc+'0000' + If !Found() + Append Blank + Replace Cont With m.SCc + Replace acont With '0000' + Endif + Endif + Replace RULcred With RULcred+M.suma, TOTcred With TOTcred+M.suma + SOLD=TOTDEB-TOTCRED + Replace SOLDcred With Iif(SOLD<0,-SOLD,0) + endif + Select ACTACTAN + Endscan + Endif + Unlock In balana +Endif + +&& SCRIE IN FISIERE +Select Distinct A.Cont,b.acont,A.FPROC,B.DEB,B.CRED,B.DEBVAL,B.CREDVAL From INFISIERE A, CONTURI B ; + WHERE A.Cont=B.Cont ; + INTO Cursor COM + +*!* SELECT com +*!* BROWSE + +Select COM +Scan + Scatter Memv + zz='Do '+Alltrim(FPROC)+' with m.deb,m.cred,M.DEBVAL,M.CREDVAL' + &zz +SELECT COM +Endscan + +SELECT com +LOCATE FOR INLIST(cont,'4426','4427') +IF !FOUND() + DO caut_neimpozab WITH 'actactan' +ENDIF + +m.NNIR=OZ.NNIR +If Type('OXSET')='O' + If !Empty(OXSET.LISTARE) + zz=Alltrim(OXSET.LISTARE) + zz='DO '+zz + If !Empty(OXSET.PARAM2) + zz=zz+' WITH '+OXSET.PARAM2 + Endif + &zz + Endif +Endif + +DO inchid_actcv +Do STERGE +Release OZ +Return 0 + + + + + +*----------------------------------------------- +Procedure _401 +Parameters debit,credit,VALDEBIT,VALCREDIT +&&&&&&&&&&& FURNIZOR + +Select FURNIZOR +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + +Local di,din,div +SELECT actactan +Sum SUMA To di For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount +Sum neimpozab To din For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount +Sum SUMA_2 To div For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount valuta + +&&&&&&&&&&&CUMPLUN +Local nui +Select cumplun +Set Order To nract +&&creditul=factura + +If credit!=0 OR din!=0 && discount neimpozabil + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont + Scatter NAME o401 + + Select cumplun + Seek o401.nract + If Found() + Locate For nract=o401.nract And dataact=o401.dataact And NUME=o401.NUME AND acont=o401.ascc + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0,SUMAVAL WITH 0 + Endif + Replace totctva With totctva+credit-di + Replace SUMAVAL With SUMAVAL+VALcredit-div + REPLACE cursschimb WITH o401.suma_3 + REPLACE ACONT WITH o401.ascc + Endif + Unlock +Endif + +RELEASE o401 +&&debitul=plata +If debit!=0 OR (credit=0 AND debit=0) && atunci cand sunt sume cu + si -, cu total 0 + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + + Select cumplun + DO CASE + CASE !(COD=M.COD) AND !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'cumplun','ascd','nume' + OTHERWISE + Select cumplun + If Flock() + Replace achitat With achitat+debit-di + Replace achitatVAL With achitatVAL+VALdebit-div + Endif + Unlock + ENDCASE +Endif + +Select cumplun +Set Order To Tag dataireg + +&&&&&&&&&&&CUMP + +*!* If credit!=0 OR din!=0 && discount neimpozabil + +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For SCC=m.CONT AND ascc=m.acont +*!* m.neimpozab=m.neimpozab-din + +*!* * Sum SUMA To di For Left(SCC,1)='7' And SCD=m.CONT &&discount + +*!* m.totctva=credit-di +*!* +*!* * Sum suma To m.tvam For Left(scd,3)='442' AND SCC=m.CONT AND ascc=m.acont +*!* Select CONTURI +*!* Locate For Left(Cont,3)='442' +*!* If Found() +*!* m.tvam=DEB-CRED +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* ** m.totctva=m.totftvam+m.neimpozab+m.tvam + +*!* Select cump +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* IF !FOUND() +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* UNLOCK +*!* ELSE +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* Endif + +Return + + +*----------------------------------------------- +Procedure _404 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select FURNIZ404 +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +UNLOCK + +Local di,din,div +SELECT actactan +Sum SUMA To di For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount +Sum neimpozab To din For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount +Sum SUMA_2 To div For Left(SCC,3)='767' And SCD=m.CONT AND ascd=m.acont &&discount valuta + +&&&&&&&&&&&CUMPLUN +Local nui +Select cumplun404 +Set Order To nract +&&creditul=factura +If credit!=0 OR din!=0 && discount neimpozabil + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont + *Scatter Memv + SCATTER NAME o404 + + Select cumplun404 + Seek o404.nract + If Found() + Locate For nract=o404.nract And dataact=o404.dataact And NUME=o404.NUME AND acont=o404.ascc + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + GATHER NAME o404 + Replace totctva With 0,SUMAVAL WITH 0 + Endif + Replace totctva With totctva+credit-di + Replace SUMAVAL With SUMAVAL+VALcredit-div + REPLACE cursschimb WITH o404.suma_3 + REPLACE ACONT WITH o404.ascc + Endif + Unlock +Endif + +&&debitul=plata +If debit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + + Select cumplun404 + DO CASE + CASE !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'cumplun404','ascd','nume' + OTHERWISE + Select cumplun404 + If Flock() + Replace achitat With achitat+debit-di + Replace achitatVAL With achitatVAL+VALdebit-div + Endif + Unlock + ENDCASE +Endif + +Select cumplun404 +Set Order To Tag dataireg + +&&&&&&&&&&&CUMP + +*!* If credit!=0 OR din!=0 && discount neimpozabil + +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For SCC=m.CONT +*!* m.neimpozab=m.neimpozab-din +*!* * Sum SUMA To di For Left(SCC,1)='7' And SCD=m.CONT &&discount + +*!* m.totctva=credit-di + +*!* Select CONTURI +*!* Locate For Left(Cont,3)='442' +*!* If Found() +*!* m.tvam=DEB-CRED +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* **m.totctva=m.totftvam+m.neimpozab+m.tvam + +*!* Select cump +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* IF !FOUND() +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* UNLOCK +*!* ELSE +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* Endif + +RETURN + + +*----------------------------------------------- +PROCEDURE _4426 +Parameters debit,credit,VALDEBIT,VALCREDIT +Store 0 To m.totctvam,m.totftvam,m.tvam,neimpozab,totftvai,tvai + +SELECT infisiere +LOCATE FOR cont='4426' +SCATTER NAME ofis +lcCoresp_d=ALLTRIM(ofis.coresp_d) +lcCoresp_c=ALLTRIM(ofis.coresp_c) + + +SELECT actactan +SUM suma TO tvam_deb FOR scd='4426' AND proc_tva=m.ctvam AND INLIST(ALLTRIM(scc),&lcCoresp_d) +SUM suma TO tvam_cred FOR scc='4426' AND proc_tva=m.ctvam AND INLIST(ALLTRIM(scd),&lcCoresp_c) +m.tvam=tvam_deb-tvam_cred +SUM suma TO tvai_deb FOR scd='4426' AND proc_tva=m.ctvai AND INLIST(ALLTRIM(scc),&lcCoresp_d) +SUM suma TO tvai_cred FOR scc='4426' AND proc_tva=m.ctvai AND INLIST(ALLTRIM(scd),&lcCoresp_c) +m.tvai=tvai_deb-tvai_cred + + +IF debit#0 OR (credit=0 AND debit=0) + *m.tvam=debit-credit + + SELECT SUM(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),neimpozab,IIF(ALLTRIM(scc)='767' AND INLIST(ALLTRIM(scd),&lcCoresp_d),-neimpozab,0))) as neimpozab; + FROM actactan INTO CURSOR tcn + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),suma,IIF(ALLTRIM(scc)='767' AND INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0))) as totctvam; + FROM actactan WHERE proc_tva=m.ctvam ; + INTO CURSOR tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),suma,IIF(ALLTRIM(scc)='767' AND INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0))) as totctvai; + FROM actactan WHERE proc_tva=m.ctvai ; + INTO CURSOR tvai + + SELECT tvam + SCATTER MEMVAR + SELECT tcn + SCATTER MEMVAR + SELECT tvai + SCATTER MEMVAR + + USE IN tvam + USE IN tcn + USE IN tvai + + m.totftvam=m.totctvam-m.tvam + m.totftvai=m.totctvai-m.tvai + m.totctva=m.totctvam+m.totctvai+m.neimpozab + + IF EMPTY(m.totctva) + RELEASE ofis + RELEASE o4426 + RETURN + ENDIF + + SELECT actactan + LOCATE FOR scd='4426' + IF !FOUND() OR scc='4428' + GO top + ENDIF + SCATTER NAME o4426 + o4426.scd=o4426.scc + + Select cump + Locate For nract=o4426.nract AND cod=o4426.cod &&And dataact=m.dataact And NUME=m.NUME + IF !FOUND() + If Flock() + Append Blank + Gather NAME o4426 + GATHER MEMVAR + Endif + UNLOCK + ELSE + REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; + tvam WITH tvam+m.tvam,totftvai WITH totftvai+m.totftvai, ; + tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + ENDIF +ENDIF + +IF credit#0 + *m.tvam=debit-credit + SELECT SUM(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),-neimpozab,0)) as neimpozab ; + FROM actactan INTO CURSOR tcn + + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),-suma,0)) as totctvam ; + FROM actactan WHERE proc_tva=m.ctvam; + INTO CURSOR tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),-suma,0)) as totctvai ; + FROM actactan WHERE proc_tva=m.ctvai ; + INTO CURSOR tvai + + SELECT tvam + SCATTER MEMVAR + SELECT tcn + SCATTER MEMVAR + SELECT tvai + SCATTER MEMVAR + + USE IN tvam + USE IN tcn + USE IN tvai + + m.totftvam=m.totctvam-m.tvam + m.totftvai=m.totctvai-m.tvai + m.totctva=m.totctvam+m.totctvai+m.neimpozab + + IF EMPTY(m.totctva) + RELEASE ofis + RELEASE o4426 + RETURN + ENDIF + + SELECT actactan + LOCATE FOR scc='4426' + SCATTER NAME o4426 + + + Select cump + Locate For nract=o4426.nract AND cod=o4426.cod &&And dataact=m.dataact And NUME=m.NUME + IF !FOUND() + If Flock() + Append Blank + Gather NAME o4426 + GATHER MEMVAR + Endif + UNLOCK + ELSE + REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; + tvam WITH tvam+m.tvam,totftvai WITH totftvai+m.totftvai, ; + tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + ENDIF +ENDIF + +RELEASE ofis +RELEASE o4426 +RETURN + +*----------------------------------------------- +Procedure _408 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select ana408 +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + + +SELECT DISTINCT scd as cont,ascd as acont,proc_tva,sum(suma) as suma408,sum(suma_2) as suma408_2,"D" as tip ; +from actactan WHERE scd='408 ' AND ascd=m.acont GROUP BY ascd,proc_tva INTO CURSOR t408 ; +UNION ; +SELECT DISTINCT scc as cont,ascc as acont,proc_tva,sum(suma) as suma408,sum(suma_2) as suma408_2,"C" as tip ; +from actactan WHERE scc='408 ' AND ascc=m.acont GROUP BY ascc,proc_tva; +order BY tip + +SELECT t408 +SCAN FOR tip='C' + SCATTER MEMVAR +&&&&&&&&&&& FACT408 +Local nui +Select fact408 +Set Order To nract + +Select fact408 +&&creditul=factura +*If credit!=0 + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont AND proc_tva=m.proc_tva + Scatter Memv + + Select fact408 + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont AND proc_tva=m.proc_tva + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0 + Replace SUMAVAL With 0 + Endif + + Select fact408 + Replace totctva With totctva+m.suma408 &&credit + Replace SUMAVAL With SUMAVAL+m.suma408_2 &&VALcredit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascc + ENDIF + Unlock +*Endif +ENDSCAN +&&debitul=plata + +If debit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + + Select fact408 + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'fact408','ascd','nume' + Else + Select fact408 + If Flock() + Replace achitat With achitat+debit + Replace achitatVAL With achitatVAL+VALdebit + Endif + Unlock + Endif +Endif + +Select fact408 +Set Order To Tag dataireg + +&&&&&&&&&&&CUMP + +*!* LOCAL di +*!* If credit!=0 +*!* +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For SCC=m.CONT +*!* SUM suma TO di FOR LEFT(scc,1)='7' AND SCd=m.CONT&&discount + +*!* m.totctva=credit-di + +*!* Select CONTURI +*!* Locate For LEFT(Cont,3)='442' +*!* If Found() +*!* m.tvam=DEB-cred +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam + +*!* Select cump +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* Unlock +*!* Endif + +Return + + + + +*------------------------------------------------------------- +Procedure _409 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select AVANS409 +If debit#0 + If Flock() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME + If !Found() + Append Blank + Gather Fields Except achitat,facturat,achitatval,factval Memv + Endif + Replace achitat With achitat+debit &&, facturat With facturat+credit + Replace achitatVAL With achitatVAL+VALdebit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + Endif + Unlock +ENDIF + +If credit#0 +*!* If Used('actcv1') +*!* Select actcv1 +*!* Scan For ALES +*!* Scatter Name av +*!* Select AVANS409 +*!* Locate For nract=av.nract And dataact=av.dataact And NUME=av.NUME +*!* If Flock() +*!* Replace facturat With facturat+av.sumaachi +*!* Replace factVAL With factVAL+av.sumaachi2 +*!* Endif +*!* Unlock +*!* Select actcv1 +*!* ENDSCAN +*!* Release av +*!* ELSE &&la modificare + SELECT actactan + LOCATE FOR LEFT(scc,3)='409' + SCATTER NAME omodif +*!* lcDat=Right(Allt(omodif.NRORD),10) +*!* ldDAT=Ctod(lcDat) +*!* lcNr=Strtran(Strtran(omodif.NRORD,lcDat,''),'/','') +*!* lnNr=Val(lcNr) + Select AVANS409 + Locate For nract=omodif.pereche2 And NUME=omodif.NUME + IF FOUND() + If Flock() + Replace facturat With facturat+CREDIT + Replace factVAL With factVAL+valCREDIT + Endif + UNLOCK + ENDIF + Release omodif +*!* ENDIF +*!* +Endif + + +Select FURNIZOR +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace avans With avans+debit-credit + Replace avansVAL With avansVAL+VALdebit-VALcredit +Endif +Unlock +IF USED('actcv1') + USE IN actcv1 +ENDIF +Return + +*----------------------------------------------- +Procedure _411 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select clienti + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +UNLOCK + + +IF id_set=10421 + DO regularizare_clienti + IF USED('actcv') + USE IN actcv + ENDIF + RETURN +ENDIF + +Local di,din,div +SELECT actactan +Sum SUMA To di For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount +Sum neimpozab To din For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount +Sum SUMA_2 To div For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount valuta + +&&&&&&&&&&&vanzLUN +Local nui +Select vanzlun +Set Order To nract +&&debitul=factura +If (debit!=0 OR din!=0) &&AND xsets.id_set!=10421 && discount neimpozabil + regularizari avans-facturi(e uraaaaaaaaaaaaaaaaaat) + nui=.F. + Select ACTACTAN + Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont + Scatter Memv + +*!* IF m.ctvam#m.ctvai +*!* SUM suma TO m.totftvam FOR Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont AND proc_tva=m.ctvam +*!* SUM suma TO m.tvam FOR SCc='4427' AND ascd=m.acont AND proc_tva=m.ctvam +*!* SUM suma TO m.totftvai FOR Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont AND proc_tva=m.ctvai +*!* SUM suma TO m.tvai FOR SCc='4427' AND ascd=m.acont AND proc_tva=m.ctvai +*!* SUM suma TO m.neimpozab FOR Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont AND neimpozab#0 +*!* ENDIF + + Select vanzlun + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + ENDIF + + If Flock() + If nui + Append Blank + Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv + ENDIF + + Replace totctva With totctva+debit-di + Replace SUMAVAL With SUMAVAL+VALdebit-div +*!* REPLACE totftvam WITH totftvam+m.totftvam-di,totftvai WITH totftvai+m.totftvai-di,tvam WITH tvam+m.tvam,tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + Endif + Unlock +Endif + + +&&creditul=plata +If credit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select vanzlun + DO CASE + CASE !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'vanzlun','ascc','nume' + OTHERWISE + Select vanzlun + If Flock() + Replace achitat With achitat+credit-di + Replace achitatVAL With achitatVAL+VALcredit-div + Endif + Unlock + ENDCASE + +Endif + +Select vanzlun +Set Order To Tag dataireg + +&&&&&&&&&&&vanz + +*!* If debit!=0 OR din!=0 && discount neimpozabil +*!* m.totctva=debit-di +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCD=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For Left(SCD,3)=Left(m.CONT,3) +*!* m.neimpozab=m.neimpozab-din + +*!* Select CONTURI +*!* Locate For Cont='4427' +*!* If Found() +*!* m.tvam=CRED +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam + +*!* Select vanz +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* IF !FOUND() +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* UNLOCK +*!* ELSE +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* Endif + +Return + + +*----------------------------------------------- + +PROCEDURE _4427 +Parameters debit,credit,VALDEBIT,VALCREDIT +Store 0 To m.totctvam,m.totftvam,m.tvam,m.neimpozab,m.totftvai,m.tvai + +SELECT infisiere +LOCATE FOR cont='4427' +SCATTER NAME ofis +lcCoresp_c=ALLTRIM(ofis.coresp_c) +lcCoresp_d=ALLTRIM(ofis.coresp_d) + +SELECT actactan +SUM suma TO tvam_deb FOR scd='4427' AND proc_tva=m.ctvam AND INLIST(ALLTRIM(scc),&lcCoresp_d) +SUM suma TO tvam_cred FOR scc='4427' AND proc_tva=m.ctvam AND INLIST(ALLTRIM(scd),&lcCoresp_c) +m.tvam=tvam_cred-tvam_deb +SUM suma TO tvai_deb FOR scd='4427' AND proc_tva=m.ctvai AND INLIST(ALLTRIM(scc),&lcCoresp_d) +SUM suma TO tvai_cred FOR scc='4427' AND proc_tva=m.ctvai AND INLIST(ALLTRIM(scd),&lcCoresp_c) +m.tvai=tvai_cred-tvai_deb + + +IF credit#0 OR (credit=0 AND debit=0) + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),neimpozab,IIF(ALLTRIM(scd)='667' AND INLIST(ALLTRIM(scc),&lcCoresp_c),-neimpozab,0))) as neimpozab ; + FROM ACTACTAN INTO CURSOR tcn + + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),suma,IIF(ALLTRIM(scd)='667' AND INLIST(ALLTRIM(scc),&lcCoresp_c),-suma,0))) as totctvam; + FROM actactan WHERE proc_tva=m.ctvam ; + INTO CURSOR tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scd),&lcCoresp_c) AND !INLIST(ALLTRIM(scc),&lcCoresp_c),suma,IIF(ALLTRIM(scd)='667' AND INLIST(ALLTRIM(scc),&lcCoresp_c),-suma,0))) as totctvai; + FROM actactan WHERE proc_tva=m.ctvai ; + INTO CURSOR tvai + + SELECT tvam + SCATTER MEMVAR + SELECT tcn + SCATTER MEMVAR + SELECT tvai + SCATTER MEMVAR + + USE IN tvam + USE IN tcn + USE IN tvai + + m.totftvam=m.totctvam-m.tvam + m.totftvai=m.totctvai-m.tvai + m.totctva=m.totctvam+m.totctvai+m.neimpozab + + IF EMPTY(m.totctva) + RELEASE ofis + RETURN + ENDIF + + SELECT actactan + LOCATE FOR scc='4427' + IF !FOUND() OR scd='4428' + GO top + ENDIF + SCATTER FIELDS EXCEPT neimpozab MEMVAR + + Select vanz + Locate For nract=m.nract AND cod=m.cod &&And dataact=m.dataact And NUME=m.NUME + IF !FOUND() + If Flock() + Append Blank + Gather Memv + Endif + UNLOCK + ELSE + REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; + tvam WITH tvam+m.tvam,totftvai WITH totftvai+m.totftvai, ; + tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + ENDIF +ENDIF + +IF debit#0 +*!* SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0)) as totctva,; +*!* sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-neimpozab,0)) as neimpozab ; +*!* FROM actactan ; +*!* INTO CURSOR tva +*!* +*!* SELECT tva +*!* SCATTER MEMVAR +*!* m.tvam=credit-debit +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-neimpozab,0)) as neimpozab ; + FROM actactan INTO CURSOR tcn + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0)) as totctvam ; + FROM actactan WHERE proc_tva=m.ctvam ; + INTO CURSOR tvam + + SELECT sum(IIF(INLIST(ALLTRIM(scc),&lcCoresp_d) AND !INLIST(ALLTRIM(scd),&lcCoresp_d),-suma,0)) as totctvai ; + FROM actactan WHERE proc_tva=m.ctvai ; + INTO CURSOR tvai + + SELECT tvam + SCATTER MEMVAR + SELECT tcn + SCATTER MEMVAR + SELECT tvai + SCATTER MEMVAR + + USE IN tvam + USE IN tcn + USE IN tvai + + m.totftvam=m.totctvam-m.tvam + m.totftvai=m.totctvai-m.tvai + m.totctva=m.totctvam+m.totctvai+m.neimpozab + + IF EMPTY(m.totctva) + RELEASE ofis + RETURN + ENDIF + + SELECT actactan + LOCATE FOR scd='4427' + SCATTER FIELDS EXCEPT neimpozab MEMVAR + m.scd=m.scc + + Select vanz + Locate For nract=m.nract AND cod=m.cod &&And dataact=m.dataact And NUME=m.NUME + IF !FOUND() + If Flock() + Append Blank + Gather Memv + Endif + UNLOCK + ELSE + REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; + tvam WITH tvam+m.tvam,totftvai WITH totftvai+m.totftvai, ; + tvai WITH tvai+m.tvai,neimpozab WITH neimpozab+m.neimpozab + ENDIF +ENDIF + + + +RELEASE ofis +RETURN +*---------------------------------------------------------------- + +Procedure _4118 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select client4118 + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +Unlock + +&&&&&&&&&&&vanzLU4118 +Local nui +Select vanzlu4118 +Set Order To nract +&&debitul=factura +If debit!=0 + nui=.F. + Select ACTACTAN + Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont + Scatter Memv + + Select vanzlu4118 + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv + Endif + Replace totctva With totctva+debit + Replace SUMAVAL With SUMAVAL+VALdebit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + Endif + Unlock +Endif + + + +&&creditul=plata +If credit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select vanzlu4118 + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'vanzlu4118','ascc','nume' + Else + Select vanzlu4118 + If Flock() + Replace achitat With achitat+credit + Replace achitatVAL With achitatVAL+VALcredit + Endif + Unlock + Endif + +Endif + + +Select vanzlu4118 +Set Order To Tag dataireg + +&&&&&&&&&&&vanz + +*!* if debit!=0 +*!* SELECT vanz +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* If Found() +*!* IF FLOCK() +*!* REPLACE scd WITH m.cont +*!* ENDIF +*!* ENDIF + +*!* *!* m.totctva=debit +*!* *!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* *!* Select ACTACTAN +*!* *!* Locate For SCD=m.CONT +*!* *!* Scatter Memv +*!* *!* Sum neimpozab To m.neimpozab For Left(SCC,3)=Left(m.CONT,3) + + +*!* *!* Select CONTURI +*!* *!* Locate For Cont='4427' +*!* *!* If Found() +*!* *!* m.tvam=CRED +*!* *!* Endif + +*!* *!* m.totftvam=m.totctva-m.neimpozab-m.tvam + +*!* *!* Select vanz +*!* *!* If Flock() +*!* *!* Append Blank +*!* *!* Gather Memv +*!* *!* Endif +*!* *!* Unlock +*!* Endif + + +RETURN + +*----------------------------------------------- +Procedure _418 +Parameters debit,credit,VALDEBIT,VALCREDIT +Select ana418 + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +Unlock + +*!* &&&&&&&&&&&vanzLUN +*!* Local nui +*!* Select fact418 +*!* Set Order To nract +*!* &&debitul=factura +*!* If debit!=0 +*!* nui=.F. +*!* Select ACTACTAN +*!* Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont +*!* Scatter Memv + +*!* Select fact418 +*!* Seek m.nract +*!* If Found() +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont +*!* If !Found() +*!* nui=.T. +*!* Endif +*!* Else +*!* nui=.T. +*!* Endif +*!* If Flock() +*!* If nui +*!* Append Blank +*!* Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv +*!* Endif +*!* Replace totctva With totctva+debit +*!* Replace SUMAVAL With SUMAVAL+VALdebit +*!* REPLACE cursschimb WITH m.suma_3 +*!* REPLACE ACONT WITH m.ascd +*!* Endif +*!* Unlock +*!* Endif + + +SELECT DISTINCT scd as cont,ascd as acont,proc_tva,sum(suma) as suma418,sum(suma_2) as suma418_2,"D" as tip ; +from actactan WHERE scd='418 ' AND ascd=m.acont GROUP BY ascd,proc_tva INTO CURSOR t418 ; +UNION ; +SELECT DISTINCT scc as cont,ascc as acont,proc_tva,sum(suma) as suma418,sum(suma_2) as suma418_2,"C" as tip ; +from actactan WHERE scc='418 ' AND ascc=m.acont GROUP BY ascc,proc_tva; +order BY tip + +&&&&&&&&&&& FACT418 +SELECT t418 +SCAN FOR tip='D' + SCATTER MEMVAR + Local nui + Select fact418 + Set Order To nract + + Select fact418 + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont AND proc_tva=m.proc_tva + Scatter Memv + + Select fact418 + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont AND proc_tva=m.proc_tva + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0 + Replace SUMAVAL With 0 + Endif + + Select fact418 + Replace totctva With totctva+m.suma418 &&credit + Replace SUMAVAL With SUMAVAL+m.suma418_2 &&VALcredit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + ENDIF + UNLOCK +ENDSCAN +&&creditul=plata +If credit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select fact418 + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'fact418','ascc','nume' + Else + Select fact418 + If Flock() + Replace achitat With achitat+credit + Replace achitatVAL With achitatVAL+VALcredit + Endif + Unlock + Endif + +Endif + + +Select fact418 +Set Order To Tag dataireg + +Return + +*----------------------------------------------- +Procedure _461 +Parameters Tndebit,Tncredit,TnVALDEBIT,TnVALCREDIT +Select debitor + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace DEBIT With DEBIT+tndebit, CREDIT With CREDIT+tncredit + Replace VALDEBIT With VALDEBIT +tnVALdebit, VALCREDIT With VALCREDIT+tnVALcredit +Endif +UNLOCK + +LOCAL di,din +SELECT actactan +Sum SUMA To di For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount +Sum neimpozab To din For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount +Sum SUMA_2 To div For Left(SCd,3)='667' And SCc=m.CONT AND ascc=m.acont &&discount valuta + +&&&&&&&&&&&vanzLUN +Local nui +Select deblun +Set Order To nract +&&debitul=factura +If tndebit!=0 + nui=.F. + Select ACTACTAN + Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont + Scatter Memv + + Select deblun + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv + ENDIF + Replace totctva With totctva+TnDebit-di + Replace SUMAVAL With SUMAVAL+TnVALdebit-div + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascd + Endif + Unlock +Endif + + + +&&creditul=plata +If tnCredit!=0 OR (tnCredit=0 AND tnDebit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select deblun + DO CASE + CASE !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'deblun','ascc','nume' + OTHERWISE + Select deblun + If Flock() + Replace achitat With achitat+tnCredit-di + Replace achitatVAL With achitatVAL+TnVALcredit-div + Endif + Unlock + ENDCASE + +Endif + + +Select deblun +Set Order To Tag dataireg + +&&&&&&&&&&&vanz + +*!* If tnDebit!=0 OR din!=0 && discount neimpozabil +*!* m.totctva=tndebit-di +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCD=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For Left(SCD,3)=Left(m.CONT,3) +*!* m.neimpozab=m.neimpozab-din + +*!* Select CONTURI +*!* Locate For Cont='4427' +*!* If Found() +*!* m.tvam=CRED +*!* Endif + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam + +*!* Select vanz +*!* Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME +*!* IF !FOUND() +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* UNLOCK +*!* ELSE +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* Endif + + +Return +*----------------------------------------------- +Procedure _462 +Parameters Tndebit,Tncredit,TnVALDEBIT,TnVALCREDIT +Select CREDITOR + +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace DEBIT With DEBIT+tndebit, CREDIT With CREDIT+tncredit + Replace VALDEBIT With VALDEBIT +tnVALdebit, VALCREDIT With VALCREDIT+tnVALcredit +Endif +UNLOCK + +&&&&&&&&&&&CREDLUN +Local nui +Select CREDlun +Set Order To nract +&&creditul=factura +If TNcredit!=0 + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont + Scatter Memv + + Select CREDlun + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Fields Except totctva Memv + Endif + Replace totctva With totctva+TNcredit + Replace SUMAVAL With SUMAVAL+TnVALcredit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascc + Endif + Unlock +Endif + + +&&debitul=plata +If TNdebit!=0 OR (TNcredit=0 AND TNdebit=0) + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + + Select CREDlun + DO CASE + CASE !(COD=M.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'CREDlun','ascd','nume' + OTHERWISE + Select CREDlun + If Flock() + Replace achitat With achitat+TNdebit + Replace achitatVAL With achitatVAL+TnVALdebit + Endif + Unlock + ENDCASE +Endif + +Select CREDlun +Set Order To Tag dataireg + +&&&&&&&&&&& CUMP NU STIU ???????????????? + +*!* Local di +*!* If credit!=0 + +*!* Store 0 To m.totftvam,m.tvam,neimpozab,totftvai,tvai + +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT +*!* Scatter Memv +*!* Sum neimpozab To m.neimpozab For SCC=m.CONT +*!* Sum SUMA To di For Left(SCC,1)='7' And SCD=m.CONT&&discount + +*!* m.totctva=credit-di + +*!* Select CONTURI +*!* Locate For Left(Cont,3)='442' +*!* If Found() +*!* m.tvam=DEB-CRED +*!* Endif + + +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* *m.totctva=m.totftvam+m.neimpozab+m.tvam + +*!* Select cump +*!* If Flock() +*!* Append Blank +*!* Gather Memv +*!* Endif +*!* Unlock +*!* Endif + +Return + + +*----------------------------------------------- +Procedure _419 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select AVANS419 +If credit#0 + If Flock() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME + If !Found() + Append Blank + Gather Fields Except achitat,facturat,achitatval,factval Memv + Endif + Replace achitat With achitat+credit &&, facturat With facturat+credit + Replace achitatVAL With achitatVAL+VALcredit + REPLACE cursschimb WITH m.suma_3 + REPLACE ACONT WITH m.ascc + Endif + Unlock +Endif +If debit#0 +*!* If Used('actcv1') +*!* Select actcv1 +*!* Scan For ALES +*!* Scatter Name av +*!* Select AVANS419 +*!* Locate For nract=av.nract And dataact=av.dataact And NUME=av.NUME +*!* If Flock() +*!* Replace facturat With facturat+av.sumaachi +*!* Replace factVAL With factVAL+av.sumaachi2 +*!* Endif +*!* Unlock +*!* Select actcv1 +*!* Endscan +*!* Release av +*!* ELSE &&la modificare + SELECT actactan + LOCATE FOR LEFT(scd,3)='419' + SCATTER NAME omodif +*!* lcDat=Right(Allt(omodif.NRORD),10) +*!* ldDAT=Ctod(lcDat) +*!* lcNr=Strtran(Strtran(omodif.NRORD,lcDat,''),'/','') +*!* lnNr=Val(lcNr) + Select AVANS419 + Locate For nract=omodif.pereche And NUME=omodif.NUME + IF FOUND() + If Flock() + Replace facturat With facturat+debit + Replace factVAL With factVAL+valdebit + Endif + UNLOCK + ENDIF + Release omodif +*!* Endif +Endif + + +Select clienti +If Flock() + If Alltrim(NUME)!=Alltrim(M.NUME) + Seek Alltrim(M.NUME) + If !Found() + Append Blank + Gather Fields NUME,COD_FISCAL Memv + Endif + Endif + Replace avans With avans-debit+credit + Replace avansVAL With avansVAL-VALdebit+VALcredit +Endif +Unlock + +DO inchid_actcv + +Return + +*----------------------------------------------- +Procedure _5311 +Parameters debit,credit,VALDEBIT,VALCREDIT +STORE 0 TO m.plati,m.incasari + +&&credit=casa plateste + +IF CREDIT#0 + Select ACTACTAN + Locate For SCC=m.CONT + Scatter Memv + *m.casa=m.CASACRED + m.casa=ALLTRIM(m.nume_3) + + Select casa + If Flock() + Append Blank + Gather Memv + Replace plati With credit + Endif + Unlock + + Select casanume + *Locate For casa=m.casaCRED + Locate For ALLTRIM(casa)=m.casa + If Flock() + If !Found() + Append Blank + *Gather Fields casa Memv + REPLACE CASA WITH M.CASA + Endif + Replace plati With plati+credit + Endif + Unlock +ENDIF + +&&debit=casa incas +IF DEBIT#0 + Select ACTACTAN + Locate For SCD=m.CONT + Scatter Memv + *m.casa=m.CASADEB + m.casa=ALLTRIM(m.nume_3) + + Select casa + If Flock() + Append Blank + Gather Memv + Replace incasari With debit + Endif + Unlock + + Select casanume + Locate For ALLTRIM(casa)=m.casa + If Flock() + If !Found() + Append Blank + *Gather Fields casa Memv + REPLACE CASA WITH M.CASA + Endif + Replace incasari With incasari+debit + Endif + Unlock +ENDIF + + +Return + +*----------------------------------------------- +Procedure _5314 +Parameters debit,credit,VALDEBIT,VALCREDIT + +STORE 0 TO m.plati,m.incasari,m.platival,m.incasval + +&&credit=casa plateste +IF CREDIT#0 + IF EMPTY(M.CASAVALCRE) && pt modificare + Select ACTACTAN + Locate For SCC=m.CONT + M.CASAVALCRE=nume_5 + ENDIF + Select casVnume + Locate For NUME_5=M.CASAVALCRE + If Flock() + If !Found() + Append Blank + REPLACE NUME_5 WITH M.CASAVALCRE + *Gather Fields NUME_5 Memv + Endif + Replace plati With plati+credit + Replace platiVAL With platiVAL+VALcredit + REPLACE numeval WITH m.nume_4 + Endif + UNLOCK + + Select ACTACTAN + SCAN For SCC=m.CONT && din cauza diferentelor de curs valutar + Scatter Memv + *m.casa=m.nume_5 + M.CASA=M.CASAVALCRE + Select casaVAL + If Flock() + Append Blank + Gather Memv + Replace plati With m.suma,cursschimb WITH m.suma_3,numeval WITH m.nume_4 + Replace platiVAL With m.suma_2 + Endif + UNLOCK + SELECT actactan + ENDSCAN +ENDIF + +&&debit=casa incas +IF DEBIT#0 + IF EMPTY(M.CASAVALDEB) && pt modificare + Select ACTACTAN + Locate For SCD=m.CONT + M.CASAVALDEB=nume_5 + ENDIF + + Select casVnume + Locate For NUME_5=m.CASAVALDEB + SELECT casvnume + If Flock() + If !Found() + Append Blank + *Gather Fields NUME_5 Memv + REPLACE NUME_5 WITH m.CASAVALDEB + Endif + Replace incasari With incasari+debit + Replace incasVAL With incasVAL+VALdebit + REPLACE numeval WITH m.nume_4 + Endif + UNLOCK + + Select ACTACTAN + SCAN For SCD=m.CONT && din cauza diferentelor de curs valutar + Scatter Memv + *m.casa=m.nume_5 + M.CASA=m.CASAVALDEB + + Select casaVAL + If Flock() + Append Blank + Gather Memv + Replace incasari With m.suma,cursschimb WITH m.suma_3,numeval WITH m.nume_4 + Replace incasVAL With m.suma_2 + Endif + UNLOCK + + SELECT actactan + ENDSCAN +ENDIF +Return + +*----------------------------------------------- +Procedure _5121 +Parameters debit,credit,VALDEBIT,VALCREDIT + +STORE 0 TO m.plati,m.incasari + +&&credit=banca plateste +IF CREDIT#0 + Select ACTACTAN + Locate For SCC=m.CONT + Scatter Memv + m.BANCACRED=ALLTRIM(m.nume_2) + m.banca=m.BANCACRED + + Select banca + If Flock() + Append Blank + Gather Memv + Replace plati With credit + Endif + Unlock + + Select bannume + Locate For ALLTRIM(nume_2)=m.bancaCRED + If Flock() + If !Found() + Append Blank + *Gather Fields nume_2 Memv + REPLACE NUME_2 WITH M.BANCACRED + Endif + Replace plati With plati+credit + Endif + Unlock +ENDIF + +&&debit=banca incas +IF DEBIT#0 + Select ACTACTAN + Locate For SCD=m.CONT + Scatter Memv + m.bancadeb=ALLTRIM(m.nume_2) + m.banca=m.BANCADEB + + Select banca + If Flock() + Append Blank + Gather Memv + Replace incasari With debit + Endif + Unlock + + Select bannume + Locate For ALLTRIM(nume_2)=m.bancaDEB + If Flock() + If !Found() + Append Blank + *Gather Fields nume_2 Memv + REPLACE NUME_2 WITH m.bancaDEB + Endif + Replace incasari With incasari+debit + Endif + Unlock +ENDIF + +Return + +*----------------------------------------------- +Procedure _5124 +Parameters debit,credit,VALDEBIT,VALCREDIT + +STORE 0 TO m.plati,m.incasari,m.platival,m.incasval + +&&credit=banca plateste +IF CREDIT#0 + IF EMPTY(m.banvalcred) && pt modificare + Select ACTACTAN + Locate For SCC=m.CONT + m.BANVALCRED=nume_3 + ENDIF + + Select banVnume + Locate For nume_3=m.BANVALCRED + If Flock() + If !Found() + Append Blank + *Gather Fields nume_3 Memv + REPLACE NUME_3 WITH m.BANVALCRED + Endif + Replace plati With plati+credit + Replace platiVAL With platiVAL+VALcredit + REPLACE numeval WITH m.nume_4 + Endif + UNLOCK + + Select ACTACTAN + SCAN For SCC=m.CONT && din cauza diferentelor de curs valutar + Scatter Memv + m.banca=m.BANVALCRED + + Select bancaVAL + If Flock() + Append Blank + Gather Memv + Replace plati With m.suma,cursschimb WITH m.suma_3,numeval WITH m.nume_4 + Replace platiVAL With m.suma_2 + Endif + UNLOCK + Select ACTACTAN + ENDSCAN +ENDIF + +&&debit=banca incas +IF DEBIT#0 + IF EMPTY(m.banvaldeb) && pt modificare + Select ACTACTAN + Locate For SCD=m.CONT + m.BANVALDEB=nume_3 + ENDIF + + Select banVnume + Locate For nume_3=m.BANVALDEB + If Flock() + If !Found() + Append Blank + *Gather Fields nume_3 Memv + REPLACE NUME_3 WITH m.BANVALDEB + Endif + Replace incasari With incasari+debit + Replace incasVAL With incasVAL+VALdebit + REPLACE numeval WITH m.nume_4 + Endif + UNLOCK + + + Select ACTACTAN + SCAN For SCD=m.CONT && din cauza diferentelor de curs valutar + Scatter Memv + m.banca=m.BANVALDEB + + Select bancaVAL + If Flock() + Append Blank + Gather Memv + Replace incasari With m.suma,cursschimb WITH m.suma_3,numeval WITH m.nume_4 + Replace incasVAL With m.suma_2 + Endif + UNLOCK + Select ACTACTAN + ENDSCAN +ENDIF +Return + + + +*----------------------------------------------- +Procedure _542 +Parameters Tndebit,Tncredit,TnVALDEBIT,TnVALCREDIT + + +Select achit542 +If Flock() + If Alltrim(NUME_2)!=Alltrim(M.NUME_2) + Seek Alltrim(M.NUME_2) + If !Found() + Append Blank + Gather Fields NUME_2,COD_FISCAL Memv + Endif + Endif + Replace DEBIT With DEBIT+tndebit, CREDIT With CREDIT+tncredit + Replace VALDEBIT With VALDEBIT +tnVALdebit, VALCREDIT With VALCREDIT+tnVALcredit +Endif +UNLOCK + + +&&&&&&&&&&& achiLUN +Local nui +Select achilun +Set Order To nract +&&debitul=factura +If tndebit!=0 + nui=.F. + Select ACTACTAN + Locate For Left(SCD,3)=Left(m.CONT,3) AND ascd=m.acont + Scatter Memv + + Select achilun + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME_2 AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Fields Except achitat,totctva,ACHITATVAL,SUMAVAL Memv + ENDIF + Replace totctva With totctva+TnDebit + Replace SUMAVAL With SUMAVAL+TnVALdebit + REPLACE cursschimb WITH m.suma_3 + REPLACE nume WITH m.nume_2 + REPLACE ACONT WITH m.ascd + Endif + Unlock +Endif + + + +&&creditul=plata +If tnCredit!=0 OR (tnCredit=0 AND tnDebit=0) + nui=.F. + Select ACTACTAN + Locate For Left(SCC,3)=Left(m.CONT,3) AND ascc=m.acont + Scatter Memv + Select achilun +*!* DO CASE +*!* CASE !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'achilun','ascc','nume_2' +*!* OTHERWISE +*!* Select achilun +*!* If Flock() +*!* Replace achitat With achitat+tnCredit +*!* Replace achitatVAL With achitatVAL+TnVALcredit +*!* Endif +*!* Unlock +*!* ENDCASE + +Endif + + +Select achilun +Set Order To Tag dataireg + +*!* Parameters debit,credit,VALDEBIT,VALCREDIT +*!* &&&&&&&&&&& achit542 +*!* Select ACTACTAN +*!* Locate For SCC=m.CONT Or SCD=m.CONT +*!* Scatter Fields nume_2 Memv + +*!* Select achit542 +*!* If Flock() +*!* If Upper(Alltrim(nume_2))!=Upper(Alltrim(M.nume_2)) +*!* Seek Upper(Alltrim(M.nume_2)) +*!* If !Found() +*!* Append Blank +*!* Gather Fields nume_2 Memv +*!* Endif +*!* Endif +*!* Replace dat With dat+credit, luat With luat+debit +*!* Endif +*!* Unlock +Endproc +*----------------------------------------------- +Procedure _455 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select actionar +If Flock() + If Upper(Alltrim(nume_2))!=Upper(Alltrim(M.nume_2)) + Seek Upper(Alltrim(M.nume_2)) + If !Found() + Append Blank + Gather Fields nume_2 Memv + Endif + Endif + Replace dat With dat+debit, luat With luat+credit +Endif +Unlock +Endproc + + +*-------------------------------------------------------- +Procedure _471 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Local nui +Select chavans +Set Order To nract + +Select chavans + +If debit!=0 + nui=.F. + Select ACTACTAN + Locate For SCD=m.CONT AND ascd=m.acont + Scatter Memv + Select chavans + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0 + Endif + + Select chavans + Replace totctva With totctva+debit + Endif + Unlock +Endif + +&&debitul=plata +If credit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascc=m.acont + Scatter Memv + Select chavans + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_incasari With 'chavans','ascc','nume' + ELSE + Select chavans + * LOCATE FOR ALLTRIM(nume)=ALLTRIM(m.nume) AND ALLTRIM(dst_chlt)=ALLTRIM(m.dst_chlt) + * IF FOUND() + If Flock() + Replace achitat With achitat+credit + Endif + UNLOCK + * ENDIF + Endif +Endif + +Select chavans +Set Order To Tag dataireg +Endproc + +*-------------------------------------------------------- + +Procedure _472 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Local nui +Select vnavans +Set Order To nract + +Select vnavans + +If credit!=0 + nui=.F. + Select ACTACTAN + Locate For SCc=m.CONT AND ascc=m.acont + Scatter Memv + Select vnavans + Seek m.nract + If Found() + Locate For nract=m.nract And dataact=m.dataact And NUME=m.NUME AND acont=m.acont + If !Found() + nui=.T. + Endif + Else + nui=.T. + Endif + If Flock() + If nui + Append Blank + Gather Memv + Replace totctva With 0 + Endif + + Select vnavans + Replace totctva With totctva+credit + Endif + Unlock +Endif + +&&debitul=plata +If debit!=0 OR (credit=0 AND debit=0) + nui=.F. + Select ACTACTAN + Locate For SCC=m.CONT AND ascd=m.acont + Scatter Memv + Select vnavans + If !(COD=m.COD) And !Empty(XSETS.frm_plata) &&daca plata nu e cuplata cu factura + Do trezorerie_plati With 'vnavans','ascd','nume' + ELSE + Select vnavans + * LOCATE FOR ALLTRIM(nume)=ALLTRIM(m.nume) AND ALLTRIM(dst_chlt)=ALLTRIM(m.dst_chlt) + * IF FOUND() + If Flock() + Replace achitat With achitat+credit + Endif + UNLOCK + * ENDIF + Endif +Endif + +Select vnavans +Set Order To Tag dataireg +ENDPROC + +*----------------------------------------------------------------- +Procedure _5112 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select ACTACTAN +Locate For SCD=m.CONT Or SCC=m.CONT +Scatter Memv + +Select cecnume +If Flock() + If Upper(Alltrim(cec))!=Upper(Alltrim(M.explicatia)) + Seek Upper(Alltrim(M.explicatia)) + If !Found() + Append Blank + Replace cec With m.explicatia + Endif + Endif + Replace incarcat With incarcat+debit,plati With plati+credit +Endif +Unlock +Sele cec +If Flock() + Go Bottom + Appe Blank + m.plati=credit + m.incarcat=debit + Gather Memvar +Endif +Unlock +Endproc +*-------------------------------------------------------- + +*!* PROCEDURE _667 +*!* PARAMETERS debit,credit,valdebit,valcredit + +*!* SELECT actactan +*!* LOCATE FOR scd=m.cont +*!* lcScc=scc +*!* SELECT infisiere +*!* LOCATE FOR cont=lcScc +*!* SCATTER NAME ofis +*!* SELECT (ofis.fisier) + +*!* ENDPROC + + + +Procedure SCRIE_NIR + +DD=Datetime() +Select INTRARI +Replace All COD With M.COD +Replace All UTIL With UTILIZATOR +Replace All DATAORA With DD +Do INRULAJMAGAZII +Do INSTOCURIMAGAZII +Return + + +*-------------------------------------------------------- +Function LANS +Parameters IDS + +*DO STERGE + +m.ID_SET=IDS +Select XSETS +Seek IDS +Scatter Name OXSET +oitem=Crea('actbaza') +oitem.ID_SET=IDS +oitem.Show(1) +If OXSET.nu_sterg=.F. And buton!=2 + Do danu With 'Doriti sa continuati cu operatii de acest fel?' + If buton=1 + LANS(IDS) + Endif +Endif +Release OXSET +Return + + + + +*---------------------------------------------- +Procedure afis_operatii +PARAMETERS tcFis,tlVisible +SELECT (tcFis) +Scatter Fields COD,SCD,SCC,nume_2 Memvar +Select * From &tcFis Where &tcFis..COD=m.COD Into Cursor AAA NOFILTER +Select AAA +N=Reccount() + +Public camp +Scatter Name camp + +Do Form vizpage +*ov=CREATEOBJECT('vizpage') && NU MERGE SI NU INTELEG DE CE :( +*ov.bandablOC1.visible=tlVisible +*ov.banda21.visible=!tlVisible +*ov.blocbuton1.visible=!tlVisible +*ov.show() + +Release camp +Select rull +Set Filter To +Select &tcfis +Endproc + + + + + + + +*!* *------------------------------------------- + +*!* Function BLOCHEZ_NIR +*!* Select NRNIR +*!* Flock() + +*!* DO case +*!* case nr_bonuri=0 +*!* Calculate Max(NR) To m For NRGEST=NR_GEST And GEST=M.GEST +*!* m=m+1 +*!* m.NNIR='1'+Str(NR_GEST,1,0)+Str(m.GEST,3,0)+Str(m,5,0) +*!* m.NNIR=Strtran(M.NNIR,' ','0') +*!* case nr_bonuri=1 +*!* Calculate Max(NR) To m +*!* m=m+1 +*!* m.NNIR=Alltrim(Str(m)) +*!* case nr_bonuri=2 +*!* Calculate Max(NR) To m For NRGEST=idutil +*!* m=m+1 +*!* m.NNIR=Alltrim(Str(m)) +*!* Endcase +*!* Append Blank +*!* Gather Fields NNIR Memv +*!* Replace NRGEST With idutil,NR With m +*!* *Replace NRGEST With m.nr_gest,NR With m +*!* Unlock +*!* Return M.NNIR + +*------------------------------------------- +Function BLOCHEZ_NIR +LOCAL G,M +STORE 0 TO M,G +Select NRNIR +Flock() + +DO case +case nr_bonuri=0 + Calculate Max(NR) To m For NRGEST=NR_GEST And GEST=M.GEST + m=m+1 + m.NNIR='1'+Str(NR_GEST,1,0)+Str(m.GEST,3,0)+Str(m,5,0) + m.NNIR=Strtran(M.NNIR,' ','0') + G= m.nr_gest +case nr_bonuri=1 + Calculate Max(NR) To m + m=m+1 + m.NNIR=Alltrim(Str(m)) +case nr_bonuri=2 + Calculate Max(NR) To m For NRGEST=idutil + m=m+1 + m.NNIR=Alltrim(Str(m)) + G= idutil +ENDCASE +Select NRNIR +Append Blank +Gather Fields NNIR,GEST Memv +*Replace NRGEST With idutil,NR With m +*Replace NRGEST With m.nr_gest,NR With m +REPLACE NR WITH M,NRGEST WITH G +Unlock +Return M.NNIR + + + + +*---------------------------------- +Function ELIB_NIR +Parameters N +Select NRNIR +Seek N +If Found() + If Flock() + Delete + Endif + Unlock +Endif +Return + + + +*!* *------------------------------------------- + +*!* Function BLOCHEZ_BON +*!* Select nrbon +*!* Flock() +*!* DO case +*!* case nr_bonuri=0 +*!* Calculate Max(NR) To m For NRGEST=NR_GEST And GEST=M.GEST +*!* m=m+1 +*!* m.NNIR='2'+Str(NR_GEST,1,0)+Str(M.GEST,3,0)+Str(m,5,0) +*!* m.NNIR=Strtran(M.NNIR,' ','0') +*!* case nr_bonuri=1 +*!* Calculate Max(NR) To m +*!* m=m+1 +*!* m.NNIR=Alltrim(Str(m)) +*!* case nr_bonuri=2 +*!* Calculate Max(NR) To m For NRGEST=idutil +*!* m=m+1 +*!* m.NNIR=Alltrim(Str(m)) +*!* Endcase +*!* Append Blank +*!* Gather Fields NNIR Memv +*!* Replace NRGEST With idutil,NR With m +*!* *!* Gather Fields NNIR,gest Memv +*!* *!* Replace NRGEST With m.nr_gest,NR With m +*!* Unlock +*!* Return M.NNIR + +*------------------------------------------- +Function BLOCHEZ_BON +LOCAL G,M +STORE 0 TO G,M +Select nrbon +Flock() + +DO case +case nr_bonuri=0 + Calculate Max(NR) To m For NRGEST=NR_GEST And GEST=M.GEST + m=m+1 + m.NNIR='2'+Str(NR_GEST,1,0)+Str(M.GEST,3,0)+Str(m,5,0) + m.NNIR=Strtran(M.NNIR,' ','0') + G= m.nr_gest +case nr_bonuri=1 + Calculate Max(NR) To m + m=m+1 + m.NNIR=Alltrim(Str(m)) +case nr_bonuri=2 + Calculate Max(NR) To m For NRGEST=idutil + m=m+1 + m.NNIR=Alltrim(Str(m)) + G= idutil +ENDCASE +SELECT NRBON +Append Blank +Gather Fields NNIR,GEST Memv +*Replace NRGEST With idutil,NR With m +*!* Gather Fields NNIR,gest Memv +*!* Replace NRGEST With m.nr_gest,NR With m +REPLACE NR WITH M,NRGEST WITH G +Unlock +Return M.NNIR + +*---------------------------------- + +Function ELIB_BON +Parameters N +Select nrbon +Seek N +If Found() + If Flock() + Delete + Endif + Unlock +Endif +Return +*______________________________________________________________________________ + +Procedure aleg_doc_plata +Parameters tcfis,tcNume,tlval,tcFelCont + +If Used('actcv') + Use In actcv +Endif + +tcNume=Upper(Alltrim(tcNume)) +tcfis=Alltrim(tcfis) +IF tlval + lccond=[ABS(&tcfis..sumaval-&tcfis..achitatval)>0] +ELSE + IF existacamp('&tcfis','sumaval') + lccond=[&tcfis..sumaval-&tcfis..achitatval=0] + ELSE + lccond='.t.' + ENDIF +ENDIF + + +Sele distinct &tcfis..* ; + FROM &tcfis ; + WHERE Upper(Alltrim(&tcfis..NUME))==Upper(Allt(tcNume)) And ; + !(Abs(&tcfis..totctva-&tcfis..achitat)=0 Or (&tcfis..totctva<&tcfis..achitat And &tcfis..totctva>0)) and ; + &lccond ; + into TABLE &LOC\&NFSCURT\TEMPO\actcv order by &tcfis..dataact + + +*!* SELECT DISTINCT actan.cod,actan.nrord FROM actan,&tcfis WHERE actan.cod=&tcfis..cod AND actan.NRACT=&tcfis..NRACT ; +*!* INTO CURSOR actfis +*!* SELECT &tcfis..*,actfis.nrord ; +*!* FROM (&tcfis left join actfis on &tcfis..cod=actfis.cod) ; +*!* WHERE Upper(Alltrim(&tcfis..NUME))==Upper(Allt(tcNume)) And ; +*!* !(Abs(&tcfis..totctva-&tcfis..achitat)=0 Or (&tcfis..totctva<&tcfis..achitat And &tcfis..totctva>0)) and ; +*!* &lccond ; +*!* into TABLE &LOC\&NFSCURT\TEMPO\actcv order by &tcfis..dataact +*!* USE IN actfis + + +DO CASE + CASE ALLTRIM(UPPER(tcFelCont))='A' + ALTER TABLE actcv rename COLUMN ACONT to ascc + CASE ALLTRIM(UPPER(tcFelCont))='P' + ALTER TABLE actcv rename COLUMN ACONT to ascd +ENDCASE + +Alter Table actcv Add Column ALES L Add Column sumaachi N(14) Add Column SUMAACHI2 N(14,2) Add Column achilei N(14) +IF tlval + Alter Table actcv ADD COLUMN difplus n(14) ADD COLUMN difminus n(14) Add Column cursval n(7) Add Column cursdif n(7) +ENDIF + +Sele actcv +Go Top + +Endproc && aleg_doc_plata + +*______________________________________________________________________________ + +Procedure trezorerie_plati +Parameters tcfis,tcAcont,tcCol + +tcAcont=ALLTRIM(tcAcont) +lcAcont='trez.'+tcAcont +lcCol='trez.'+ALLTRIM(tcCol) + +*!* IF USED('actcv') +*!* Select actcv +*!* Scan For ALES +*!* Scatter Name trez +*!* +*!* IF existacamp('actcv',tcAcont) +*!* Select (tcfis) +*!* IF TYPE('actcv.proc_tva')#'U' +*!* Locate For nract=trez.nract And dataact=trez.dataact And NUME=trez.NUME AND acont=&lcAcont AND proc_tva=trez.proc_tva +*!* ELSE +*!* Locate For nract=trez.nract And dataact=trez.dataact And NUME=trez.NUME AND acont=&lcAcont +*!* ENDIF +*!* ELSE +*!* Select (tcfis) +*!* Locate For nract=trez.nract And dataact=trez.dataact And NUME=trez.NUME +*!* ENDIF +*!* If Flock() +*!* Replace achitat With achitat+trez.sumaachi +*!* IF existacamp('&tcfis','achitatval') +*!* Replace achitatval With achitatval+trez.sumaachi2 +*!* ENDIF +*!* Endif +*!* UNLOCK +*!* Select actcv +*!* ENDSCAN +*!* ELSE && pt modificare sau analitice diferite + + SELECT actactan + Scan For pereche#0 AND &tcAcont=m.acont + Scatter Name trez + IF TYPE(tcfis+'.acont')#'U' + Select (tcfis) + IF TYPE(tcfis+'.proc_tva')#'U' + Locate For nract=trez.pereche And NUME=&lcCol AND acont=&lcAcont AND proc_tva=trez.proc_tva + ELSE + Locate For nract=trez.pereche And NUME=&lcCol AND acont=&lcAcont + ENDIF + ELSE + Select (tcfis) + Locate For nract=trez.pereche And NUME=&lcCol + ENDIF + + IF FOUND() + If Flock() + Replace achitat With achitat+trez.suma + IF TYPE(tcfis+'.achitatval')#'U' + Replace achitatval With achitatval+trez.suma_2 + ENDIF + ENDIF + UNLOCK + ENDIF + + Select actactan + ENDSCAN +*!* ENDIF +Release trez + +IF USED('actcv') + USE IN actcv +ENDIF +Endproc && trezorerie_incasari_plati + +*______________________________________________________________________________ + +Procedure trezorerie_incasari +Parameters tcfis,tcAcont,tcCol + + +tcAcont=ALLTRIM(tcAcont) +lcAcont='trez.'+tcAcont +lcCol='trez.'+ALLTRIM(tcCol) + +SELECT actactan +Scan For pereche2#0 AND &tcAcont=m.acont + Scatter Name trez + IF TYPE(tcfis+'.acont')#'U' + Select (tcfis) + IF TYPE(tcfis+'.proc_tva')#'U' + Locate For nract=trez.pereche2 And NUME=&lcCol AND acont=&lcAcont AND proc_tva=trez.proc_tva + ELSE + Locate For nract=trez.pereche2 And NUME=&lcCol AND acont=&lcAcont + ENDIF + ELSE + Select (tcfis) + Locate For nract=trez.pereche2 And NUME=&lcCol + ENDIF + + IF FOUND() + If Flock() + Replace achitat With achitat+trez.suma + IF TYPE(tcfis+'.achitatval')#'U' + Replace achitatval With achitatval+trez.suma_2 + ENDIF + ENDIF + UNLOCK + ENDIF + + Select actactan +ENDSCAN + +Release trez + +IF USED('actcv') + USE IN actcv +ENDIF +Endproc && trezorerie_incasari +*------------------------------------------------------------------------------ + + + +PROCEDURE test_facturi +Parameters tcfis,tccont,tcNume,tcfel + +tcNume=Upper(Alltrim(tcNume)) +tcfis=Alltrim(tcfis) + + LcCond=upper(allt(ofis.camp_verif))+[=']+tcnume+[' AND ]+tcfel+[=']+Tccont+['] && ofis.camp_verif---> vezi procedura viz_fact + SELE 0 + USE &DATE/ACT.DBF AGAIN ALIAS ACn1 + + SELECT ACN1 + SET FILTER TO &Lccond + + select &tcfis..nume,&tcfis..dataact,&tcfis..nract,&tcfis..dataireg,&tcfis..totctva as suma,; + &tcfis..achitat,&tcfis..achitat as pereche,&tcfis..fdoc,&tcfis..fdoc as scc,&tcfis..fdoc as scd,&tcfis..fdoc as nume_2,&tcfis..fdoc as explicatia; + FROM &tcfis; + WHERE Upper(Alltrim(&tcfis..NUME))==Upper(Allt(tcNume)) ; + into cursor acn2 order by dataireg + +RETURN LcCond +ENDPROC + +*________________________________________________________________________________ + +PROCEDURE imperechere_fact_avans +PARAMETERS tcfis,tcNume,TnSuma,tlval,tcPereche + +PRIVATE PlStrict +STORE .f. to PlStrict + +tcfis=UPPER(ALLTRIM(tcfis)) +tcNume=Upper(Alltrim(tcNume)) +lcPereche='m.'+ALLTRIM(tcPereche) +IF tlval + lccond=[&tcfis..achitatval-&tcfis..factval>0] +ELSE + lccond=[&tcfis..achitatval-&tcfis..factval=0] +ENDIF + +IF USED('actcv1') + USE IN actcv1 +ENDIF + +SELECT * ; + from &tcfis; + where Upper(Alltrim(&tcfis..NUME))==tcNume AND &tcfis..achitat-&tcfis..facturat#0 AND &lccond; + into Table &loc\&nfscurt\tempo\actcv1 order by dataact + ALTER TABLE actcv1 ADD COLUMN ales l ADD COLUMN sumaachi n(14) ADD COLUMN sumaachi2 n(14,2) ; + ADD COLUMN difplus n(14) ADD COLUMN difminus n(14) + +IF _tally=0 + DO mesaj with 'Nu exista avansuri inregistrate','la acest partener !' + DO STERGE + DO inchid_actcv + DO deschid_actc + RETURN +ENDIF + + +IF xsets.id_set=10421 && regularizari clienti creditori + SELECT actcv + REPLACE ALL sumaachi WITH sumaachi/m.ctva FOR neimpozab=0 AND ales + REPLACE ALL neimpozab WITH sumaachi FOR neimpozab#0 AND ales + SUM sumaachi TO tnsuma FOR ales +ENDIF + +*m.suma=tnsuma + +SELECT actcv1 +IF !tlval + oavans=CREATEOBJECT('avansales') + oavans.suma=tnSuma +ELSE + oavans=CREATEOBJECT('avansval') + oavans.suma_2=m.suma_2 +ENDIF + +oavans.pcfis='AVANS' +oavans.show(1) + +IF buton=2 + DO sterge + DO inchid_actcv + DO deschid_actc + RETURN +ENDIF + +SELECT ACTCV1 +LOCATE FOR ALES +SCATTER NAME av + + +IF av.proc_tva=0 + m.proc_tva=m.ctvam +ELSE + m.proc_tva=av.proc_tva +ENDIF + +lnSumaAchi=av.sumaachi +lnSumaAchiVal=av.sumaachi2 + +NRAVANS=NRACT +DATAAVANS=DATAACT +LcNRORD=ALLT(STR(NRAVANS))+' / '+ALLT(DTOC(DATAAVANS)) + +*!* IF USED('actactan') +*!* USE IN actactan +*!* ENDIF +*!* IF USED('actc') +*!* USE IN actc +*!* ENDIF + +*!* USE &LOC\&NFSCURT\TEMPO\ACTc IN 0 again ALIAS ACTACTAN exclusive ORDER TAG nr_nota +*!* SET DELETED ON + +SELECT actactan +PACK + +IF lnSumaAchi0 OR sumaachi2-LnminVal>0 + REPLACE sumaachi WITH LnMin + REPLACE sumaachi2 WITH LnMinVal + ENDIF + LnSumaAchi=LnSumaAchi-LnMin + LnSumaAchiVal=LnSumaAchiVal-LnMinVal + + SELECT actactan + GOTO lni + + SELECT actactan + REPLACE suma WITH LnMinAct + REPLACE suma_2 WITH LnMinVal + REPLACE &tcPereche WITH av.nract +* REPLACE neimpozab WITH lnNeimpozab + + SELECT actactan + IF tlval + IF suma_3>av.cursschimb + SCATTER NAME oaa + APPEND BLANK + GATHER NAME oaa + IF tcfis='AVANS419' + REPLACE scd WITH '665 ',suma WITH (oaa.suma_3-av.cursschimb)*LnMinVal,; + explicatia WITH 'DIFERENTE NEFAVORABILE',suma_2 WITH 0,suma_3 WITH av.cursschimb + ELSE + REPLACE scc WITH '765 ',suma WITH (oaa.suma_3-av.cursschimb)*LnMinVal,; + explicatia WITH 'DIFERENTE FAVORABILE',suma_2 WITH 0,suma_3 WITH av.cursschimb + ENDIF + ENDIF + IF suma_3m.precdeb Or apreccred<>m.preccred Or aruldeb<>m.RULDEB Or arulcred<>m.RULCRED + Select BALANA + Seek m.cont+acontvid + If !Found() + Append Blank + Gather Memv + REPLACE acont WITH acontvid + Endif + Replace precdeb With m.precdeb-aprecdeb + Replace preccred With m.preccred-apreccred + Replace RULDEB With m.RULDEB-aruldeb + Replace RULCRED With m.RULCRED-arulcred + Endif + Select cc +ENDSCAN + +ENDIF +UNLOCK IN balana +SELECT balana +SET FILTER TO +return + + + +*_______________________________________ +Procedure CALCULEAZABALANTA_ANA +Select BALANA +If Flock() + Replace All TOTDEB With RULDEB+precdeb; + totcred With RULCRED+preccred +Endif +Unlock +Scan + If Flock() + If TOTDEB-totcred>0 + Replace SOLDDEB With TOTDEB-totcred; + SOLDCRED With 0 + Else + Replace SOLDCRED With totcred-TOTDEB; + SOLDDEB With 0 + Endif + Endif + Unlock +Endscan +Return +******************************************** + +PROCEDURE introducere_compacta +PARAMETERS tcfis,tcscd,tcscc,tl_calcTVA,tl_plata,tctitlu,tctva,tn_idset + +*!* tcfis=fisierul din calefirma (achi_mat.dbf) +*!* tcscd=simbol cont debitor +*!* tcscc=simbol cont creditor +*!* tl_calctva=daca se calculeaza TVA-ul per total +*!* tl_plata=daca se achita factura respectiva +*!* tctitlu=titlul formularului frm_introd_compact +*!* tctva=contul de TVA (daca tl_calctva=.t.) +*!* tn_idset=parametrul functiei lans() + +IF USED('introdc') + USE IN introdc +ENDIF + +SELECT (tcfis) +COPY STRUCTURE TO &loc\&nfscurt\tempo\introdc WITH CDX +USE &loc\&nfscurt\tempo\introdc IN 0 SHARED + +SELECT introdc +APPEND FROM &CALEFIRMA\DATEAN\&tcfis FOR id_set=tn_idset +SET ORDER TO tag ordine + +SELECT introdc +IF FLOCK() + IF INLIST(tn_idset,10467,10468) && PLATI IMPOZITE + REPLACE ALL nrcrt WITH 0 + ELSE + REPLACE ALL NRCRT WITH ordine + ENDIF + + IF !EMPTY(tcscd) + REPLACE ALL scd WITH tcscd FOR EMPTY(scd) OR UPPER(scd)='X' + ENDIF + + IF !EMPTY(tcscc) + REPLACE ALL scc WITH tcscc FOR EMPTY(scc) OR UPPER(scc)='X' + ENDIF + + IF m.ctva-1=0 + REPLACE ALL bifa WITH .t. + REPLACE ALL ptva WITH 0 + ENDIF +ENDIF +UNLOCK + +SELECT actactan +ZAP + +SELECT introdc +GO TOP +obj=CREATEOBJECT('FRM_INTROD_COMPACT') +obj.gridb1.column3.backcolor=RGB(255,255,255) +obj.gridb1.column4.backcolor=RGB(255,255,255) + +IF !tl_plata + obj.container2.visible=.f. + obj.container2.optiongroup1.value=0 + OBJ.HEIGHT=obj.container2.TOP +ELSE +obj.container2.optiongroup1.value=1 +ENDIF + +IF !tl_calcTVA + obj.container1.visible=.f. + OBJ.HEIGHT=obj.container1.TOP+10 +ENDIF + +obj.titlufrumos1.caption=tctitlu +obj.show(1) + +IF BUTON=2 + DO deschid_actc + RETURN +ENDIF + +*!* IF tn_idset=10455 && rate leasing +*!* lans(10411) +*!* ENDIF + +SELECT actactan +REPLACE ALL id_set WITH tn_idset + +SELECT actactan +SCRIE_IN_FISIERE(' ') + +DO deschid_actc +ENDPROC &&introducere_compacta + +*___________________________________________________ +PROCEDURE deschid_actc + +IF USED('actactan') + USE IN actactan +ENDIF + +IF !USED('ACTc') + DO DES WITH 'ACTc' +ENDIF + +ENDPROC && deschid_actc + +*____________________________________________________ +PROCEDURE inchid_actcv + +IF USED('actcv') + USE IN actcv +ENDIF + +IF USED('ACTcv1') + USE IN 'ACTcv1' +ENDIF + +ENDPROC && inchid_actcv + + +*_____________________________________________________________________________________________________________________ +PROCEDURE viz_facturi +PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred + + +SELECT infisiere +LOCATE FOR VAL(cont)=tnCont +SCATTER NAME ofis + +*!* SELECT(tcfis1) +*!* If EXISTACIMP(tcfis1,'TOTDEB') +*!* If Flock() +*!* DO CASE +*!* CASE UPPER(ofis.fel)='A' +*!* Replace All totdeb With precdeb+productie,totcred With preccred+incasat +*!* CASE UPPER(ofis.fel)='P' +*!* Replace All totdeb With precdeb+platit,totcred With preccred+achizit +*!* ENDCASE +*!* Endif +*!* UNLOCK +*!* ENDIF + +SELECT(tcfis1) +If EXISTACIMP(tcfis1,'TOTDEB') + Replace All totdeb With precdeb+&TcColDeb,totcred With preccred+&TcColCred +ENDIF + + +Local C +C="nume+ALLTRIM(STR(YEAR(dataact)))+RIGHT('0'+ALLTRIM(STR(MONTH(dataact))),2)+RIGHT('0'+ALLTRIM(STR(DAY(dataact))),2)" +buton=1 + +IF tlCuTest + SELECT (tcfis2) + Set Filter To + lcProc='inainte_'+ALLTRIM(tcfis2) + Do &lcProc In inaintede.prg + If buton=2 + Return + ENDIF +ENDIF + +If Used('ACTCV') + Use In actcv +ENDIF + +lcCale='&Date\'+ALLTRIM(tcfis2) +Use &lcCale In 0 Again Alias actcv SHARED order dataireg + +Sele actcv +*!* Index On &C Tag nd Of &loc\&nfscurt\tempo\actcv +*!* Index On DATAireg Tag DATAireg Of &loc\&nfscurt\tempo\actcv additive +*!* Set Order To Tag DATAireg + +PRIVATE pcAnalitic +STORE '' TO pcAnalitic + +Oreg=Createobject("AFCUMPVANZanp") +With Oreg + .LABEL10.Caption=PROPER(tcTitlu) + .grid1.column12.Visible=.T. + .cont=tnCont + .fisier=ALLTRIM(tcFis2) + .CHECK2.Visible=tlVisible + .CHECK6.Visible=tlVisible + .CHECK7.Visible=tlVisible + .CHECK9.Visible=tlVisible + *.command1.Visible=tlVisible + *.command3.Visible=tlVisible + .grid1.column2.Visible=tlVisible + .grid1.column11.Visible=tlVisible + .grid1.column13.Visible=tlVisible + .grid1.column14.Visible=tlVisible + .grid1.column7.Visible=tlVisible + .grid1.column8.Visible=tlVisible + .grid1.column10.Visible=tlVisible + IF !tlVisible + .CHECK3.Caption='Regularizate' + .CHECK4.Caption='Neregularizate' + .check10.Caption='Regularizat' + .grid1.column12.header1.Caption='Regularizat' + .grid1.column2.Width=0 + ENDIF +Endwith +*OREG.cmdlist1.VISIBLE=.f. +Oreg.Show(1) +IF USED('actcv') + Use In actcv +ENDIF +RELEASE ofis +RELEASE oreg + +*?????? Do totv + +ENDPROC && viz_facturi + + + +*-------------------------------------- +Function STERGE_DIN_FISIERE +Parameters PlConfirmare,pnCod +Local M.DEB,M.CRED,COND +Store 0 To M.DEB, M.CRED + +CREATE TABLE &loc\&nfscurt\tempo\conturi.dbf FREE (cont c(4),ana c(4),deb n(14),cred n(14),debval n(14.2),credval n(14.2)) + +SELECT conturi +APPEND BLANK +APPEND BLANK + +DD=Datetime() + +IF PlConfirmare + IF USED('actactan') + USE IN actactan + ENDIF + + SELECT * from actjur WHERE cod=pnCod INTO CURSOR actactan + overif=CREATEOBJECT('verificare') + overif.show(1) + IF buton=2 + USE IN conturi + Release Overif + RETURN + ENDIF +ENDIF + + + +&& sterg efectele neimpozab,TVA si baza din cump si vanz pt toate inregistrarile din nota +&& in loc sa fac o procedura sterg_4426 si sterg_4427 +DO sterg_TVA WITH "actactan" + + +Select ACTJUR +SET FILTER TO +SCAN FOR cod=pnCod +SCATTER NAME osterg + + Replace UTILS With UTILIZATOR, DATAORAS With DD + DELETE + + Select ACTAN + SET DELETED ON + If Flock() + LOCATE FOR cod=osterg.cod AND scd=osterg.scd AND scc=osterg.scc AND suma=osterg.suma + IF FOUND() + DELETE + ENDIF + Endif + UNLOCK + + SELECT conturi + GOTO 1 + REPLACE cont WITH osterg.scd,ana WITH osterg.ascd,deb WITH -osterg.suma,debval WITH -osterg.suma_2 + GOTO 2 + REPLACE cont WITH osterg.scc,ana WITH osterg.ascc,cred WITH -osterg.suma,credval WITH -osterg.suma_2 + + && sterge din balanta si balanta analitica + + Select conturi + SCAN + Scatter Memv + Select BAL + If Flock() + Seek ALLTRIM(M.CONT) + If !Found() + Do MESAJ With 'Contul '+M.CONT+' nu se regaseste in balanta!','' + ELSE + Select BAL + Replace RULDEB With RULDEB+M.DEB, TOTDEB With TOTDEB+M.DEB,; + RULCRED With RULCRED+M.CRED, TOTCRED With TOTCRED+M.CRED + SOLD=TOTDEB-TOTCRED + Replace SOLDDEB With Iif(SOLD>0,SOLD,0), SOLDCRED With Iif(SOLD<0,-SOLD,0) + Endif + Endif + UNLOCK + + SELECT balana + IF FLOCK() + IF !EMPTY(m.ana) + Seek m.cont+m.ana + IF FOUND() + Replace RULDEB With RULDEB+M.deb, TOTDEB With TOTDEB+M.deb, ; + RULcred With RULcred+M.cred, TOTcred With TOTcred+M.cred + SOLD=TOTDEB-TOTCRED + Replace SOLDDEB With Iif(SOLD>0,SOLD,0),SOLDcred With Iif(SOLD<0,-SOLD,0) + ENDIF + ENDIF + ENDIF + UNLOCK + Select conturi + ENDSCAN + + Select Distinct A.Cont,b.ana as acont,A.FPROC,B.DEB,B.CRED,B.DEBVAL,B.CREDVAL From INFISIERE A, conturi B ; + WHERE A.Cont=B.Cont ; + INTO Cursor COM + + Select COM + SCAN + Scatter Memv + zz='Do '+'sterg'+Alltrim(FPROC)+' with m.deb,m.cred,M.DEBVAL,M.CREDVAL' + &zz + SELECT com + ENDSCAN +Select ACTJUR +ENDSCAN + + +&&in gestiuni ???? +sele RUL +set filter to +if flock() + DELETE for cod=osterg.cod +endif +unlock in rul + +sele RULL +set filter to +if flock() + SCAN FOR cod=osterg.cod + IF PlConfirmare + scat memv + sele stoc + if flock() + loca for allt(denumire)=allt(m.denumire) and allt(codmat)=allt(m.codmat) and pret=m.pret and gest=m.gest and scd=m.scd + if found() + if m.cant#0 + repl cant with cant-m.cant + else + repl cante with cante-m.cante + endif + endif + ENDIF + UNLOCK + ENDIF + sele rull + delete + endscan +endif + +unlock in rull + +USE IN conturi +Do STERGE +Release Osterg +Return 0 + + + + + +*----------------------------------------------- +Procedure sterg_401 +Parameters debit,credit,VALDEBIT,VALCREDIT +&&&&&&&&&&& FURNIZOR + +Select FURNIZOR +If Flock() + + Seek Alltrim(osterg.NUME) + + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCC,3)='767' And osterg.SCD=m.CONT AND osterg.ascd=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + +&&&&&&&&&&& CUMPLUN +Select cumplun +IF credit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + Locate For nract=osterg.pereche And NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+credit+di + Replace SUMAVAL With SUMAVAL+VALcredit+div + Replace achitat With achitat+debit+di + Replace achitatVAL With achitatVAL+VALdebit+div + + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF + Endif + UNLOCK +ENDIF + +&&&&&&&&&&&CUMP + +*!* If credit!=0 OR di#0 + +*!* m.neimpozab=-osterg.neimpozab+din +*!* m.totctva=credit+di + +*!* IF Left(osterg.scd,3)='442' +*!* m.tvam=credit +*!* ELSE +*!* m.tvam=0 +*!* ENDIF +*!* +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* + +*!* Select cump +*!* If Flock() +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* IF FLOCK() +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* ENDIF +*!* +*!* SELECT cump +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +*!* Unlock +*!* Endif +Return + + +*----------------------------------------------- +Procedure sterg_404 +Parameters debit,credit,VALDEBIT,VALCREDIT +&&&&&&&&&&& FURNIZOR + +Select FURNIZ404 +If Flock() + + Seek Alltrim(osterg.NUME) + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCC,3)='767' And osterg.SCD=m.CONT AND osterg.ascd=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + +Select cumplun404 +IF credit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + Locate For nract=osterg.pereche And NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+credit+di + Replace SUMAVAL With SUMAVAL+VALcredit+div + Replace achitat With achitat+debit+di + Replace achitatVAL With achitatVAL+VALdebit+div + + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF + Endif + UNLOCK +ENDIF + +&&&&&&&&&&&CUMP + +*!* If (credit!=0 OR di#0) AND osterg.neimpozab#0 + +*!* m.neimpozab=-osterg.neimpozab+din +*!* m.totctva=credit+di + +*!* IF Left(osterg.scd,3)='442' +*!* m.tvam=credit +*!* ELSE +*!* m.tvam=0 +*!* ENDIF +*!* +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* + +*!* Select cump +*!* If Flock() +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* IF FLOCK() +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* ENDIF +*!* +*!* SELECT cump +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +*!* Unlock +*!* Endif +Return + +*---------------------------------------------- + +Procedure sterg_408 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select ana408 +If Flock() + Seek Alltrim(osterg.NUME) + Replace PLATIT With PLATIT+debit, ACHIZIT With ACHIZIT+credit + Replace platival With platival+VALdebit, ACHIZITVAL With ACHIZITVAL+VALcredit +Endif +Unlock + + +Select fact408 +IF credit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont AND proc_tva=osterg.proc_tva +ELSE + Locate For nract=osterg.pereche And NUME=osterg.NUME AND acont=m.acont AND proc_tva=osterg.proc_tva +ENDIF +If Found() + If Flock() + Replace totctva With totctva+credit + Replace SUMAVAL With SUMAVAL+VALcredit + Replace achitat With achitat+debit + Replace achitatVAL With achitatVAL+VALdebit + + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF + Endif + UNLOCK +ENDIF + +*!* IF debit#0 && pt regularizari 408-401,4426-4428 +*!* LOCAL lnSUma +*!* lnSuma=0 +*!* SELECT cump +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* lnSuma=ROUND(debit*(m.ctva-1)/m.ctva,0) +*!* REPLACE tvam WITH tvam+lnSuma +*!* REPLACE totftvam WITH totftvam-lnSuma +*!* ENDIF +*!* SELECT cump +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +RETURN + +*----------------------------------------------- +PROCEDURE sterg_4426 +Parameters debit,credit,VALDEBIT,VALCREDIT +*** vezi sterg_TVA +RETURN + + +*----------------------------------------------- +PROCEDURE sterg_4427 +Parameters debit,credit,VALDEBIT,VALCREDIT +*** vezi sterg_TVA +RETURN + +*----------------------------------------------- +Procedure sterg_409 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select AVANS409 +If debit#0 + If Flock() + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME + If Found() + Replace achitat With achitat+debit &&, facturat With facturat+credit + Replace achitatVAL With achitatVAL+VALdebit + Endif + Endif + Unlock +Endif +If credit#0 +*!* lcDat=Right(Allt(osterg.NRORD),10) +*!* ldDAT=Ctod(lcDat) +*!* lcNr=Strtran(Strtran(osterg.NRORD,lcDat,''),'/','') +*!* lnNr=Val(lcNr) + + Select AVANS409 + Locate For nract=osterg.pereche2 And NUME=osterg.NUME + IF FOUND() + If Flock() + Replace facturat With facturat+credit + Replace factVAL With factVAL+valcredit + Endif + UNLOCK + ENDIF +ENDIF + +SELECT avans409 +IF achitat=0 AND facturat=0 AND achitatval=0 AND factval=0 + DELETE +ENDIF +Select FURNIZOR +If Flock() + Seek Alltrim(osterg.NUME) + If Found() + Replace avans With avans+debit-credit + Replace avansVAL With avansVAL+VALdebit-VALcredit + Endif +Endif +UNLOCK + +Return +*------------------------------------------------------------- +Procedure sterg_419 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select AVANS419 +If credit#0 + If Flock() + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME + If Found() + Replace achitat With achitat+credit &&, facturat With facturat+credit + Replace achitatVAL With achitatVAL+VALcredit + Endif + Endif + Unlock +ENDIF + +If debit#0 +*!* lcDat=Right(Allt(osterg.NRORD),10) +*!* ldDAT=Ctod(lcDat) +*!* lcNr=Strtran(Strtran(osterg.NRORD,lcDat,''),'/','') +*!* lnNr=Val(lcNr) + Select AVANS419 + Locate For nract=osterg.pereche And NUME=osterg.NUME + IF FOUND() + If Flock() + Replace facturat With facturat+debit + Replace factVAL With factVAL+valdebit + Endif + UNLOCK + ENDIF +Endif +SELECT avans419 + +IF achitat=0 AND facturat=0 AND achitatval=0 AND factval=0 + DELETE +ENDIF + +Select clienti +If Flock() + Seek Alltrim(osterg.NUME) + If Found() + Replace avans With avans-debit+credit + Replace avansVAL With avansVAL-VALdebit+VALcredit + Endif +Endif +UNLOCK + +*--------------------------------------------------------------------- + +Procedure sterg_462 +Parameters tndebit,tncredit,tnVALDEBIT,tnVALCREDIT +&&&&&&&&&&& CREDITORI + +Select CREDITOR +If Flock() + Seek Alltrim(osterg.NUME) + Replace debit With debit +TnDebit, credit With Credit+TnCredit + Replace VALdebit With VALdebit +tnVALdebit, VALcredit With VALcredit+tnVALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCC,3)='767' And osterg.SCD=m.CONT AND ascd=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + +&&&&&&&&&&& CREDLUN + +Select credlun +IF TNcredit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + Locate For nract=osterg.pereche And NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+TNcredit+di + Replace SUMAVAL With SUMAVAL+TnVALcredit+div + Replace achitat With achitat+TNdebit+di + Replace achitatVAL With achitatVAL+TnVALdebit+div + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + +*---------------------------------------------- + +Procedure sterg_411 +Parameters debit,credit,VALDEBIT,VALCREDIT +&&&&&&&&&&& CLIENTI + +Select clienti +If Flock() + Seek Alltrim(osterg.NUME) + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +Unlock + +Local di,din,div,reg +STORE 0 TO di,din,div,reg + +DO CASE + CASE Left(osterg.SCd,3)='667' And osterg.SCc=m.CONT AND osterg.ascc=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 + CASE osterg.id_set=10421 AND osterg.scc='4427' &®ularizare facturi-avans + reg=osterg.suma +ENDCASE + +&&&&&&&&&&& VANZLUN + +Select vanzlun +IF (debit#0 OR di#0) AND osterg.id_set#10421 &&discount + regularizare avans-factura + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+debit+di+reg + Replace SUMAVAL With SUMAVAL+VALdebit+div + Replace achitat With achitat+credit+di+reg + Replace achitatVAL With achitatVAL+VALcredit+div + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + + +&&&&&&&&&&&VANZ + +*!* If debit!=0 OR di#0 + +*!* m.neimpozab=-osterg.neimpozab+din +*!* m.totctva=debit+di + +*!* IF Left(osterg.scc,3)='442' +*!* m.tvam=debit +*!* ELSE +*!* m.tvam=0 +*!* ENDIF +*!* +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* +*!* Select vanz +*!* If Flock() +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* IF FLOCK() +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* ENDIF +*!* +*!* SELECT vanz +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +*!* Unlock +*!* Endif +RETURN + +*---------------------------------------------- + +Procedure sterg_461 +Parameters tndebit,tncredit,tnVALDEBIT,tnVALCREDIT +&&&&&&&&&&& DEBITORI + +Select debitor +If Flock() + Seek Alltrim(osterg.NUME) + Replace debit With debit +TnDebit, credit With Credit+TnCredit + Replace VALdebit With VALdebit +tnVALdebit, VALcredit With VALcredit+tnVALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCd,3)='667' And osterg.SCc=m.CONT AND osterg.ascc=m.ascc &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + +&&&&&&&&&&& DEBLUN + +SELECT deblun +IF tnDebit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+tndebit+di + Replace SUMAVAL With SUMAVAL+tnVALdebit+div + Replace achitat With achitat+tncredit+di + Replace achitatVAL With achitatVAL+tnVALcredit+div + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + +&&&&&&&&&&&VANZ + +*!* If tnDebit!=0 OR di#0 + +*!* m.neimpozab=-osterg.neimpozab+din +*!* m.totctva=tnDebit+di + +*!* IF Left(osterg.scc,3)='442' +*!* m.tvam=tnCredit +*!* ELSE +*!* m.tvam=0 +*!* ENDIF +*!* +*!* m.totftvam=m.totctva-m.neimpozab-m.tvam +*!* + +*!* Select vanz +*!* If Flock() +*!* Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME +*!* IF FOUND() +*!* IF FLOCK() +*!* REPLACE totctva WITH totctva+m.totctva,totftvam WITH totftvam+m.totftvam, ; +*!* tvam WITH tvam+m.tvam,neimpozab WITH neimpozab+m.neimpozab +*!* ENDIF +*!* ENDIF +*!* +*!* SELECT vanz +*!* IF totctva=0 AND totftvam=0 AND neimpozab=0 AND tvam=0 +*!* DELETE +*!* ENDIF +*!* ENDIF +*!* Unlock +*!* Endif +Return + +*--------------------------------------------------------------------------- + +Procedure sterg_4118 +Parameters debit,credit,VALDEBIT,VALCREDIT + +&&&&&&&&&&& CLIENT4118 +Select client4118 +If Flock() + Seek Alltrim(osterg.NUME) + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +Unlock + +Local di,din,div +IF Left(osterg.SCd,3)='667' And osterg.SCc=m.CONT AND osterg.ascc=m.acont &&discount + di=osterg.suma + din=osterg.neimpozab + div=osterg.SUMA_2 +ELSE + STORE 0 TO di,din,div +ENDIF + + +&&&&&&&&&&& VANZLU4118 +Select vanzlu4118 +IF debit#0 OR di#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+debit+di + Replace SUMAVAL With SUMAVAL+VALdebit+div + Replace achitat With achitat+credit+di + Replace achitatVAL With achitatVAL+VALcredit+div + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + +RETURN + +*--------------------------------------------------------------------------- + +Procedure sterg_418 +Parameters debit,credit,VALDEBIT,VALCREDIT + +&&&&&&&&&&& ANA418 +Select ana418 +If Flock() + Seek Alltrim(osterg.NUME) + Replace productie With productie +debit, incasat With incasat+credit + Replace prodVAL With prodVAL +VALdebit, incasVAL With incasVAL+VALcredit +Endif +UNLOCK + + +&&&&&&&&&&& FACT418 +Select Fact418 +IF debit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont AND proc_tva=osterg.proc_tva +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont AND proc_tva=osterg.proc_tva +ENDIF +If Found() + If Flock() + Replace totctva With totctva+debit + Replace SUMAVAL With SUMAVAL+VALdebit + Replace achitat With achitat+credit + Replace achitatVAL With achitatVAL+VALcredit + + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF + ENDIF + UNLOCK +ENDIF + +*----------------------------------------------------------------------------------- + +Procedure sterg_471 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select chavans +Set Order To nract + +Select chavans +IF debit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME AND acont=m.acont +ENDIF + +If Found() + If Flock() + Replace totctva With totctva+debit + * Replace SUMAVAL With SUMAVAL+VALdebit + Replace achitat With achitat+credit + * Replace achitatVAL With achitatVAL+VALcredit + Endif + UNLOCK + IF totctva=0 AND achitat=0 + DELETE + ENDIF +ENDIF + +Select chavans +Set Order To Tag dataireg +ENDPROC + +*---------------------------------------------------------------------------------- + +Procedure sterg_472 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select vnavans +Set Order To nract + +Select vnavans +IF credit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche AND NUME=osterg.NUME AND acont=m.acont +ENDIF + +If Found() + If Flock() + Replace totctva With totctva+credit + * Replace SUMAVAL With SUMAVAL+VALcredit + Replace achitat With achitat+debit + * Replace achitatVAL With achitatVAL+VALdebit + Endif + UNLOCK + IF totctva=0 AND achitat=0 + DELETE + ENDIF +ENDIF + +Select vnavans +Set Order To Tag dataireg +ENDPROC + +*---------------------------------------------------------------------------------- + + +Procedure sterg_455 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Select actionar +If Flock() + Seek Upper(Alltrim(osterg.nume_2)) + If Found() + Replace dat With dat+debit, luat With luat+credit + Endif +Endif +UNLOCK + +ENDPROC + +*-------------------------------------------------------- + +Procedure sterg_5311 +Parameters debit,credit,VALDEBIT,VALCREDIT + +SELECT casa +LOCATE FOR cod=osterg.cod +IF FOUND() + DELETE +ENDIF + +Select casanume +Locate For ALLTRIM(casa)=osterg.nume_3 +If Flock() + If Found() + Replace incasari With incasari+debit + Replace plati With plati+credit + Endif +Endif +Unlock + +Return + +*----------------------------------------------- +Procedure sterg_5314 +Parameters debit,credit,VALDEBIT,VALCREDIT + +STORE 0 TO m.plati,m.incasari,m.platival,m.incasval + +SELECT casaval +LOCATE FOR cod=osterg.cod +IF FOUND() + DELETE +ENDIF + +Select casvnume +Locate For ALLTRIM(nume_5)=osterg.nume_5 +If Flock() + If Found() + Replace incasari With incasari+debit + Replace incasVAL With incasVAL+VALdebit + Replace plati With plati+credit + Replace platiVAL With platiVAL+VALcredit + Endif +Endif +Unlock + +Return + +*----------------------------------------------- +Procedure sterg_5121 +Parameters debit,credit,VALDEBIT,VALCREDIT + +SELECT banca +LOCATE FOR cod=osterg.cod +IF FOUND() + DELETE +ENDIF + +Select bannume +Locate For ALLTRIM(nume_2)=osterg.nume_2 +If Flock() + If Found() + Replace incasari With incasari+debit + Replace plati With plati+credit + Endif +Endif +Unlock + +Return + +*----------------------------------------------- +Procedure sterg_5124 +Parameters debit,credit,VALDEBIT,VALCREDIT + +SELECT bancaval +LOCATE FOR cod=osterg.cod +IF FOUND() + DELETE +ENDIF + +Select banvnume +Locate For ALLTRIM(nume_3)=osterg.nume_3 +If Flock() + If Found() + Replace incasari With incasari+debit + Replace incasVAL With incasVAL+VALdebit + Replace plati With plati+credit + Replace platiVAL With platiVAL+VALcredit + Endif +Endif +Unlock + +*-------------------------------------------------------- +Procedure sterg_5112 +Parameters debit,credit,VALDEBIT,VALCREDIT + +Sele cec +If Flock() + LOCATE FOR cod=osterg.cod + IF FOUND() + DELETE + ENDIF +Endif +UNLOCK + +Select cecnume +If Flock() + LOCATE FOR UPPER(ALLTRIM(cec))=Upper(Alltrim(osterg.explicatia)) + If Found() + Replace incarcat With incarcat+debit,plati With plati+credit + Endif +Endif +UNLOCK + +ENDPROC + +*-------------------------------------------------------- + +Procedure sterg_542 +Parameters tndebit,tncredit,tnVALDEBIT,tnVALCREDIT +&&&&&&&&&&& DEBITORI + +Select achit542 +If Flock() + Seek Alltrim(osterg.NUME_2) + Replace debit With debit +TnDebit, credit With Credit+TnCredit + Replace VALdebit With VALdebit +tnVALdebit, VALcredit With VALcredit+tnVALcredit +Endif +Unlock + +&&&&&&&&&&& achiLUN + +SELECT achilun +IF tnDebit#0 + Locate For nract=osterg.nract And dataact=osterg.dataact And NUME=osterg.NUME_2 AND acont=m.acont +ELSE + LOCATE FOR nract=osterg.pereche2 AND NUME=osterg.NUME_2 AND acont=m.acont +ENDIF +If Found() + If Flock() + Replace totctva With totctva+tndebit + Replace SUMAVAL With SUMAVAL+tnVALdebit + Replace achitat With achitat+tncredit + Replace achitatVAL With achitatVAL+tnVALcredit + Endif + UNLOCK + IF totctva=0 AND achitat=0 AND sumaval=0 AND achitatval=0 + DELETE + ENDIF +ENDIF + +*!* Parameters debit,credit,VALDEBIT,VALCREDIT +*!* &&&&&&&&&&& achit542 +*!* Select achit542 +*!* If Flock() +*!* Seek Upper(Alltrim(osterg.nume_2)) +*!* If Found() +*!* Replace dat With dat+credit, luat With luat+debit +*!* Endif +*!* Endif +*!* Unlock + +ENDPROC + +*----------------------------------------------------------------------- +*** INCEPUT PROCEDURA INTRODUC_TVA +PROCEDURE caut_neimpozab +PARAMETERS tcAlias + + +LOCAL lcAlias, lcTVAD,lcTVAC,llvanz,llcump + +lcAlias = ALLTRIM(tcAlias) +lcTVAD = "4426" +lcTVAC = "4427" + +SELECT infisiere +LOCATE FOR cont=lcTVAD +lclstcDD=coresp_d && lista corespondentelor 4426 pe debit +lclstcDC=coresp_c && lista corespondentelor 4426 pe credit +LOCATE FOR cont=lcTVAC +lclstcCD=coresp_d && lista corespondentelor 4427 pe debit +lclstcCC=coresp_c && lista corespondentelor 4427 pe credit + +STORE .F. to llvanz, llcump + +IF !USED(lcAlias) + RETURN +ENDIF + +*** caut daca exista inregistrari care afecteaza tva-ul +SELECT (lcAlias) +LOCATE FOR neimpozab!=0 +IF !FOUND() + RETURN +ENDIF + +SELECT (lcAlias) +LOCATE FOR neimpozab != 0 +IF FOUND() + IF INLIST(ALLTRIM(scd),&lclstcCC) OR INLIST(ALLTRIM(scc),&lclstcCD) + llvanz = .T. + ENDIF + IF INLIST(ALLTRIM(scd),&lclstcDC) OR INLIST(ALLTRIM(scc),&lclstcDD) + llcump = .T. + ENDIF +ENDIF + + +IF llcump + DO _4426 WITH 0,0,0,0 +ENDIF + +IF llvanz + DO _4427 WITH 0,0,0,0 +ENDIF + +RETURN +*----------------------------------------------------------------------- +*** INCEPUT PROCEDURA STERG_TVA +PROCEDURE sterg_TVA +PARAMETERS tcAlias + + +LOCAL lcAlias, lcTVAD,lcTVAC,llvanz,llcump + +lcAlias = ALLTRIM(tcAlias) +lcTVAD = "4426" +lcTVAC = "4427" + + +lclstcCD = [411;4111;4112;4113;4114;4115;4116;4117;4118;4119;4428] && lista corespondentelor 4427 pe debit +lclstcCC = [411;4111;4112;4113;4114;4115;4116;4117;4118;4119;461;5121;5124;5311;5314;428;635] && lista corespondentelor 4427 pe credit +lclstcDD = [401;404;5121;5124;542] && lista corespondentelor 4426 pe debit +lclstcDC = [4427;4424;635] && lista corespondentelor 4426 pe credit + +STORE .F. to llvanz, llcump + +IF !USED(lcAlias) + RETURN +ENDIF + +*** caut daca exista inregistrari care afecteaza tva-ul +SELECT (lcAlias) +LOCATE FOR neimpozab!=0 OR INLIST(scd,lcTVAD,lcTVAC) OR INLIST(scc,lcTVAD,lcTVAC) +IF !FOUND() + RETURN +ENDIF + +SELECT (lcAlias) +GO top +SCATTER NAME losterg + + +*** verific daca trebuie sa sterg din vanz sau din cump +SELECT (lcAlias) +LOCATE FOR INLIST(lcTVAD,scd,scc) +IF FOUND() + llcump = .T. +ELSE + LOCATE FOR INLIST(lcTVAC,scd,scc) + IF FOUND() + llvanz = .T. + ENDIF +ENDIF + +IF !(llcump OR llvanz) && daca nu am gasit inreg cu TVA caut neimpozab + SELECT (lcAlias) + LOCATE FOR neimpozab != 0 + IF FOUND() + IF ALLTRIM(scd)$lclstcCD OR ALLTRIM(scc)$lclstcCD OR ALLTRIM(scc)$lclstcCC OR ALLTRIM(scd)$lclstcCC + llvanz = .T. + ENDIF + IF ALLTRIM(scc)$lclstcDC OR ALLTRIM(scd)$lclstcDC OR ALLTRIM(scd)$lclstcDD OR ALLTRIM(scc)$lclstcDD + llcump = .T. + ENDIF + ENDIF +ENDIF + +IF llvanz + SELECT vanz + LOCATE FOR cod=losterg.cod AND nract=losterg.nract + IF FOUND() + IF FLOCK() + DELETE + UNLOCK + ENDIF + ENDIF +ENDIF + +IF llcump + SELECT cump + LOCATE FOR cod=losterg.cod AND nract=losterg.nract + IF FOUND() + IF FLOCK() + DELETE + UNLOCK + ENDIF + ENDIF +ENDIF + +ENDPROC && sterg_TVA +*----------------------------------------------- + +PROCEDURE regularizare_clienti + +&&&&&&&&&vanzlun +SELECT actactan +SCAN FOR INLIST(m.acont,ascc,ascd) + SCATTER NAME oreg + SELECT vanzlun + IF FLOCK() + DO CASE + CASE LEFT(OREG.scc,3)='411' + LOCATE FOR nract=oreg.pereche2 AND NUME=oreg.NUME AND acont=oreg.ascc + IF FOUND() + REPLACE achitat WITH achitat+oreg.suma + ENDIF + CASE LEFT(OREG.scd,3)='411' + LOCATE FOR nract=oreg.pereche2 AND NUME=oreg.NUME AND acont=oreg.ascd + IF FOUND() + REPLACE achitat WITH achitat-oreg.suma + ENDIF + ENDCASE + ENDIF + UNLOCK + + SELECT actactan +ENDSCAN +RELEASE oreg + +ENDPROC +*---------------------------------------------------------------------------------------------- + +PROCEDURE afis_sold_casabanca +PARAMETERS tcTip,tcFis,tcTitlu,TcCont,TcNumeCol1,TcNumeCol2,tlVisibil + +Private m.sum1,m.sum2,m.sum3,m.sumA2,m.sumA3,m.sumA4,m.sumA5,m.sumA6,m.sumA7,m.sumA8,m.sumA9,m.sumA10,m.sumA11,m.sumA12,m.sumA13,pcnumele,M.NUMEVAL,; + m.tincasari,m.tplati,sold +STORE 0 TO m.sum1,m.sum2,m.sum3,m.sumA2,m.sumA3,m.sumA4,m.sumA5,m.sumA6,m.sumA7,m.sumA8,m.sumA9,m.sumA10,m.sumA11,m.sumA12,m.sumA13,; + m.tincasari,m.tplati,sold +STORE '' TO pcnumele,M.NUMEVAL +Sele &tcFis + +m.SOLDDEB=0 +m.SOLDCRED=0 +Sum &TcNumeCol2,PLATI To m.sum1,M.sum2 +m.sum3=M.sum1-M.sum2 + +Sele Bal +Seek TcCont +If Found() + Scatter Memvar + If M.SOLDDEB-M.SOLDCRED # M.sum3 + Do mesajval With 'Diferenta este:',M.SOLDDEB-M.SOLDCRED-M.sum3 + Endif +*!* Else +*!* Do mesajval With '',M.SOLDDEB +Endif + +Sele &tcFis + +Obancana=Createobject("afbancanav") +WITH Obancana + .tip=tcTip + .grid1.column1.ControlSource=TcNumeCol1 + .grid1.column3.ControlSource=TcNumeCol2 + .grid1.column3.DynamicForeColor='IIF('+TcNumeCol2+'>=0, RGB(0,0,0), RGB(255,0,0))' + .grid1.column9.ControlSource=TcNumeCol2+'-PLATI' + .grid1.column9.DynamicForeColor='IIF('+TcNumeCol2+'-plati>=0, RGB(0,0,0), RGB(255,0,0))' + .grid1.column3.header3.caption=PROPER(TcNumeCol2) + .TitluFrumos1.Caption=TcTitlu + .check1.visible=TlVisibil + .check3.visible=TlVisibil + .check5.visible=TlVisibil + .check7.visible=TlVisibil + .TEXT14.VISIBLE=TlVisibil + .TEXT15.VISIBLE=TlVisibil + .TEXT16.VISIBLE=TlVisibil + .LABEL2.VISIBLE=TlVisibil + .GRID1.column5.visible=TlVisibil + .GRID1.column6.visible=TlVisibil + .GRID1.column7.visible=TlVisibil + .GRID1.column8.visible=TlVisibil +ENDWITH +Obancana.Show() + +ENDPROC + +*-------------------------------------------------------------------- +procedure umple_log +PARAMETERS textul,textmare +LOCAL datatext +datatext="" +*----------------FACE INREGISTRARI IN LOG_TEXT. +datatext=calefirma+"\logs\contab\log_"+ALLTRIM(STR(DAY(DATE())))+"_"+ALLTRIM(STR(MONTH(DATE())))+"_"+ALLTRIM(STR(YEAR(DATE())))+".txt" +CD &CALEFIRMA +If !Directory("LOGS") + md logs +ENDIF +CD &calefirma\logs +If !Directory("contab") + Md contab +ENDIF +Set Textmerge On +Set Textmerge Noshow +Set Textmerge To &datatext ADDITIVE +\\<>,<>,<>,<> +\ +Set Textmerge To +CD &dirgen + +RETURN &&-------umple_log + + diff --git a/Programe/proceduri.prg b/Programe/proceduri.prg new file mode 100644 index 0000000..976fc8b --- /dev/null +++ b/Programe/proceduri.prg @@ -0,0 +1,935 @@ +*----------------------------------------------- +Function existacamp + Param numef,numec + Sele &numef + For i=1 To Fcount() + If Upper(Allt(Field(i)))=Upper(Allt(numec)) + Return .T. + Endif + Next + Return .F. + *----------------------------------------------- +Function existacimp + Param numef,numec + Sele &numef + For i=1 To Fcount() + If Upper(Allt(Field(i)))=Upper(Allt(numec)) + Return .T. + Endif + Next + Return .F. + ***----------------------------------------------------------------------------------------------------------------- +Procedure CAUT_ALF + Parameters NUMEBAZA,NUMECIMP,CAPTEXT,VARMEM + Local MC0,MC1,MC2 + Set Safety Off + MC0='SELE '+NUMEBAZA + MC1='VARMEM=M.'+NUMECIMP + MC2='SET order TO TAG '+NUMECIMP + + &MC0 + Go Top + If Eof() + Appe Blank + Endif + &MC2 + OCA=Createobject("CAUTALF") + OCA.Caption=CAPTEXT + OCA.GRID1.RecordSource=NUMEBAZA + OCA.GRID1.COLUMN1.ControlSource=NUMECIMP + OCA.Show(1) + + Scatter Memvar + &MC1 + + Return + ***----------------------------------------------------------------------------------------------------------------- +Procedure CAUT_ALFa + Parameters NUMEBAZA,NUMECIMP,CAPTEXT,VARMEM + Local MC0,MC1,MC2 + Set Safety Off + MC0='SELE '+NUMEBAZA + MC1='VARMEM=M.'+NUMECIMP + MC2='SET order TO TAG '+NUMECIMP + + &MC0 + + Go Top + If Eof() + Appe Blank + Endif + + &MC2 + OCA=Createobject("CAUTALFa") + OCA.Caption=CAPTEXT + OCA.GRID1.RecordSource=NUMEBAZA + OCA.GRID1.COLUMN1.ControlSource=NUMECIMP + OCA.cmdrenunt1.Visible=.T. + OCA.Show(1) + + Scatter Memvar + &MC1 + + Return + ***----------------------------------------------------------------------------------------------------------------- +Procedure mesaj + Parameters m1,m2 + ot=Create('text') + ot.label2.Caption=m1 + ot.label3.Caption=m2 + ot.Show(1) + Return + ***----------------------------------------------------------------------------------------------------------------- +Procedure mesajval + Parameters m1,m2 + ot=Create('textval') + ot.label2.Caption=m1 + ot.valoare=m2 + ot.Show(1) + Return + ***----------------------------------------------------------------------------------------------------------------- +Procedure mesajatent + Parameters m1,m2 + ot=Create('atentie') + ot.label2.Caption=m1 + ot.label3.Caption=m2 + ot.Show(1) + Return + ***----------------------------------------------------------------------------------------------------------------- +Procedure mesajrosu + Parameters m1,m2 + ot=Create('atentierosu') + ot.label2.Caption=m1 + ot.label3.Caption=m2 + ot.Show(1) + Return + ***----------------------------------------------------------------------------------------------------------------- +Procedure alfabeta + Parameters clasa,e5,b5,C5,e6,b6,C6,e7,b7,c7,expl + m.explicatia=expl + clasaact='actverif' + oc=Create(clasa) + With oc + .eti5=e5 + .eti6=e6 + .eti7=e7 + .baza5=b5 + .baza6=b6 + .baza7=b7 + .cimp5=C5 + .cimp6=C6 + .cimp7=c7 + .num=C5 + .num2=C6 + .expl=c7 + Endwith + If expl='do curs.spr' + oc.expl=expl + Endif + If txt2=.F. + m.FDOC="FACTURA" + oc.text2.Enabled=.F. + * oc.text2.controlsource="FACTURA" + Endif + oc.Show(1) + Return + ***----------------------------------------------------------------------------------------------------------------- +Procedure alfabetaper + Parameters clasa,e5,b5,C5,e6,b6,C6,e7,b7,c7,expl,cumpvanz + m.explicatia=expl + clasaact='actverif' + oc=Create(clasa) + With oc + .eti5=e5 + .eti6=e6 + .eti7=e7 + .baza5=b5 + .baza6=b6 + .baza7=b7 + .cimp5=C5 + .cimp6=C6 + .cimp7=c7 + .num=C5 + .num2=C6 + .expl=c7 + .cv=cumpvanz + Endwith + oc.Show(1) + Return + ***----------------------------------------------------------------------------------------------------------------- +*!* Procedure IESIRE +*!* *close tables +*!* *close database +*!* *set defa to &dirgen +*!* *erase actactan.* +*!* *erase ?temp.* +*!* Quit +*!* Return + ***----------------------------------------------------------------------------------------------------------------- +Procedure mesajm + Param txt,i + + Local T,p + p=Iif(i<10,Str(i,1),Str(i,2)) + T='orm.label'+p+'.caption="'+txt+'"' + &T + If i<20 + i=i+1 + Endif + p=Iif(i<10,Str(i,1),Str(i,2)) + T='orm.IMAGE'+p+'.VISIBLE=.T.' + &T + + Return + ***----------------------------------------------------------------------------------------------------------------- +Func ULTIMAZIL + Param LLL,AAA + Local N + Do Case + Case Inlist(LLL,1,3,5,7,8,10,12) + N=31 + Case Inlist(LLL,4,6,9,11) + N=30 + Case Inlist(LLL,2) + N=28 + If Mod(AAA,2)=0 + N=29 + Endif + Endcase + Return N + ***----------------------------------------------------------------------------------------------------------------- +Function SERIA_LUNARA_E_CORECTA + Local TIPAR,LOC,L + L=Val(M.NL) + LOC=L+Floor((L-1)/2) + TIPAR='VOICUIONEMIL' + + Sele cul + Go Top + &&ESTE CORECTA ULTIMA SERIE? + If Substr(TIPAR,L,1)=Substr(GREEN,LOC,1); + AND Substr(red,1,1)=Substr(GREEN,3,1); + AND Substr(red,2,1)=Substr(GREEN,6,1); + AND Substr(red,3,1)=Substr(GREEN,9,1); + AND Substr(red,4,1)=Substr(GREEN,12,1); + AND Substr(red,5,1)=Substr(GREEN,15,1) + Return .T. + Else + Return .F. + Endif + + ***----------------------------------------------------------------------------------------------------------------- +Function e_ultima_luna + Sele calendar + Loca For m.NL=NL And m.an=an + Skip + If Eof() + ultima_luna=.T. + Return .T. + Else + ultima_luna=.F. + Return .F. + Endif + + + ***----------------------------------------------------------------------------------------------------------------- +Procedure danu + Parameters m1 + od=Create('danu') + od.label1.Caption=m1 + od.Show(1) + Return + ***----------------------------------------------------------------------------------------------------------------- +Procedure danuquit + Parameters m1 + od=Create('danu') + od.label1.Caption=m1 + od.Show(1) + If buton=2 + Quit + Endif + Return + ***----------------------------------------------------------------------------------------------------------------- +Proc pr + Param j + + If j>M + OP.Release + OP=Crea('progresbar') + j=0 + OP.Show() + Endif + OP.PRBAR.Value=j + OP.p=Round(100*OP.PRBAR.Value/OP.PRBAR.Max,2) + OP.Refresh + j=j+1 + Return + ***----------------------------------------------------------------------------------------------------------------- +Proc MESAJT + Param M.denumire + OTEXT.oleTreeview.NODES.Add(,,,M.denumire,) + STARE=STARE+1 + Return + ***----------------------------------------------------------------------------------------------------------------- +Procedure nrord + Parameters ALI + Sele &ALI + A=Reccount() + If A=0 + Return + Endif + If A>65000 + Return 0 + Endif + Declare NROR(A) + K=0 + Scan + K=K+1 + NROR(K)=Recno() + Endscan + Return + +Function NRCRT + NR=Ascan(NROR,Recno()) + Return NR + ***----------------------------------------------------------------------------------------------------------------- +Procedure inchidprog + Local CC,M.NUMESTATIE,UU + Return + UU=utilizator + + If !Used('OPTIUNI') + Return + Endif + + Sele OPTIUNI + Loca For OPTIUNE='RETEA' + If !Found() Or (Found() And !DA) + Sele OPTIUNI + Use + Return + Endif + Sele OPTIUNI + Use + + If !File('C:\CONTAFIN\TEMP\RETEA.DBF') + Return + Endif + Sele 0 + Use C:\CONTAFIN\TEMP\RETEA Shar Alias RETEA + m.NUMESTATIE=Allt(NUMESTATIE) + CC=DIRGEN + Use + + If File('&DIRGEN\Dateretea\istoric.DBF') + Sele 0 + Use &DIRGEN\Dateretea\istoric Share Alias istoric + Else + Sele 0 + Use &CC\START2000\Data\istoric Share Alias istoric + Endif + + Sele istoric + Set Order To DATAORAINT + Loca For Empty(dataoraies) And Allt(statie)=m.NUMESTATIE And Allt(utilizator)=Allt(UU) + If Found() + If Flock() + Repl dataoraies With Datetime() + Unlock + Endif + Endif + Sele istoric + Use + + + If File('&DIRGEN\Dateretea\activ.DBF') + Sele 0 + Use &DIRGEN\Dateretea\Activ Share Alias Activ + Else + Sele 0 + Use &CC\START2000\Data\Activ Share Alias Activ + Endif + + Sele Activ + Loca For Allt(statie)=m.NUMESTATIE + If !Found() + Wait Wind 'Aceasta statie nu este inregistrata in server!' + Else + Sele Activ + If Flock() + Repl DEVIZE With .F. + Endif + Unlock + Endif + Sele Activ + Use + + + Return + ***----------------------------------------------------------------------------------------------------------------- +Proc gendinante + Sele ORDante + Set Filter To + Sele CLIE + Set Filter To + Sele ORDante.*,CLIE.* From ORDante,CLIE Where ORDante.codc=CLIE.codc Into Cursor cliord Order By DATAI + + + ovs=Crea('selante') + ovs.Show(1) + + Return + ***----------------------------------------------------------------------------------------------------------------- +Procedure AFISNOTEPAD + Param NUMEFIS + Do Case + Case File('C:\WINDOWS\NOTEPAD.EXE') + Run /N C:\Windows\NOTEPAD.Exe &NUMEFIS + Case File('C:\WINnt\system32\NOTEPAD.EXE') + Run /N C:\WINnt\system32\NOTEPAD.Exe &NUMEFIS + Otherwise + Do mesajatent With 'Nu se poate vizualiza textul','pe acest sistem!' + Endcase +***----------------------------------------------------------------------------------------------------------------- +Procedure SCRIETEXT + Param NUMEFIS,TEXTUL + + Set Textmerge To &NUMEFIS Additive Noshow + TEXT +<> + ENDTEXT + Return + +Endproc && SCRIETEXT +***----------------------------------------------------------------------------------------------------------------- +Procedure INITTEXT + Param NUMEFIS + + Set Textmerge To &NUMEFIS + Set Textmerge On Noshow + Return +***----------------------------------------------------------------------------------------------------------------- +Procedure SFTEXT + Set Textmerge To + Set Textmerge Off + Return +***----------------------------------------------------------------------------------------------------------------- +Procedure adaugtext + Param fisierul,TEXTUL + Wait Wind TEXTUL Nowait + Set Textmerge On + Set Textmerge Noshow + Set Textmerge To &fisierul Additive +\<> + Set Textmerge To + + Return +***----------------------------------------------------------------------------------------------------------------- +Procedure errq + Do mesaj With 'Pentru moment accesul nu este posibil','Incercati mai tarziu.' + errq=.T. + Return +***----------------------------------------------------------------------------------------------------------------- +*!* Function SUMA_IN_VORBE +*!* Param suma +*!* Local i,lit,numar1 +*!* Store 0 To i +*!* Store '' To lit,numar1 + +*!* numar1=Space(12) +*!* numar1=Str(suma,12) +*!* Dimension A(12) +*!* A(1)=Subs(numar1,12,1) +*!* A(2)=Subs(numar1,11,1) +*!* A(3)=Subs(numar1,10,1) +*!* A(4)=Subs(numar1,9,1) +*!* A(5)=Subs(numar1,8,1) +*!* A(6)=Subs(numar1,7,1) +*!* A(7)=Subs(numar1,6,1) +*!* A(8)=Subs(numar1,5,1) +*!* A(9)=Subs(numar1,4,1) +*!* A(10)=Subs(numar1,3,1) +*!* A(11)=Subs(numar1,2,1) +*!* A(12)=Subs(numar1,1,1) +*!* Sele mila1 +*!* ********************* +*!* Loca For NR=Val(A(12)) +*!* lit=lit+Alltri(cr1) + +*!* If Val(A(11))=1 +*!* If Val(A(10))=0 +*!* Loca For NR=Val(A(11)) +*!* lit=lit+Alltri(cr5) +*!* Else +*!* Loca For NR=Val(A(10)) +*!* lit=lit+Alltri(cr4) +*!* Endif +*!* Else +*!* If Val(A(10))=0 +*!* Loca For NR=Val(A(11)) +*!* lit=lit+Alltrim(cr5) +*!* Else +*!* Loca For NR=Val(A(11)) +*!* lit=lit+Alltrim(cr2) +*!* Loca For NR=Val(A(10)) +*!* lit=lit+Alltrim(cr3) +*!* Endif +*!* Endif +*!* Do Case +*!* Case Val(A(12)) # 0 +*!* lit=lit+' miliarde' +*!* Case Val(A(11)) # 0 +*!* lit=lit+' miliarde' +*!* Case Val(A(10)) # 0 +*!* lit=lit+' miliarde' +*!* Endcase +*!* *********************** +*!* Loca For NR=Val(A(9)) +*!* lit=lit+Alltri(cr1) + +*!* If Val(A(8))=1 +*!* If Val(A(7))=0 +*!* Loca For NR=Val(A(8)) +*!* lit=lit+Alltri(cr5) +*!* Else +*!* Loca For NR=Val(A(7)) +*!* lit=lit+Alltri(cr4) +*!* Endif +*!* Else +*!* If Val(A(7))=0 +*!* Loca For NR=Val(A(8)) +*!* lit=lit+Alltrim(cr5) +*!* Else +*!* Loca For NR=Val(A(8)) +*!* lit=lit+Alltrim(cr2) +*!* Loca For NR=Val(A(7)) +*!* lit=lit+Alltrim(cr3) +*!* Endif +*!* Endif +*!* Do Case +*!* Case Val(A(9)) # 0 +*!* lit=lit+' milioane' +*!* Case Val(A(8)) # 0 +*!* lit=lit+' milioane' +*!* Case Val(A(7)) # 0 +*!* lit=lit+' milioane' +*!* Endcase +*!* *********************** +*!* Loca For NR=Val(A(6)) +*!* lit=lit+Alltri(cr1) + +*!* If Val(A(5))=1 +*!* If Val(A(4))=0 +*!* Loca For NR=Val(A(5)) +*!* lit=lit+Alltri(cr5) +*!* Else +*!* Loca For NR=Val(A(4)) +*!* lit=lit+Alltri(cr4) +*!* Endif +*!* Else +*!* If Val(A(4))=0 +*!* Loca For NR=Val(A(5)) +*!* lit=lit+Alltrim(cr5) +*!* Else +*!* Loca For NR=Val(A(5)) +*!* lit=lit+Alltrim(cr2) +*!* Loca For NR=Val(A(4)) +*!* lit=lit+Alltrim(cr3) +*!* Endif +*!* Endif +*!* Do Case +*!* Case Val(A(6)) # 0 +*!* lit=lit+' mii' +*!* Case Val(A(5)) # 0 +*!* lit=lit+' mii' +*!* Case Val(A(4)) # 0 +*!* lit=lit+' mii' +*!* Endcase + +*!* ********************* +*!* Loca For NR=Val(A(3)) +*!* lit=lit+Alltri(cr1) + +*!* If Val(A(2))=1 +*!* If Val(A(1))=0 +*!* Loca For NR=Val(A(2)) +*!* lit=lit+Alltri(cr5) +*!* Else +*!* Loca For NR=Val(A(1)) +*!* lit=lit+Alltri(cr4) +*!* Endif +*!* Else +*!* If Val(A(1))=0 +*!* Loca For NR=Val(A(2)) +*!* lit=lit+Alltrim(cr5) +*!* Else +*!* Loca For NR=Val(A(2)) +*!* lit=lit+Alltrim(cr2) +*!* Loca For NR=Val(A(1)) +*!* lit=lit+Alltrim(cr3) +*!* Endif +*!* Endif +*!* Do Case +*!* Case Val(A(3)) # 0 +*!* lit=lit+' lei' +*!* Case Val(A(2)) # 0 +*!* lit=lit+' lei' +*!* Case Val(A(1)) # 0 +*!* lit=lit+' lei' +*!* Endcase + +*!* Sele mila1 +*!* *!* use + +*!* lit=Strtran(lit,' ','') +*!* Return lit +***----------------------------------------------------------------------------------------------------------------- +Procedure LIST_EXCEL + Param TTABEL,TTITLU,TAHEADER + + External Array TAHEADER + LCFIS=Allt(LOC)+"\"+Allt(NFSCURT)+"\TEMPO\LIST_"+Sys(2)+".XLS" + LCFIS=Strtran(LCFIS,'\\','\') + + Set Textmerge On To (LCFIS) Noshow + LCANTET=Uppe(Allt(TTITLU))+crlf +\ +\\<> +\ + If Parameters()<3 + LCHEADER="" + Sele (TTABEL) + For i=1 To Fcount() + LCHEADER=LCHEADER+Upper(Allt(Field(i)))+Tab + Endfor + LCHEADER=LCHEADER+crlf +\\<> + Sele (TTABEL) + Scan + LDATE="" + For i=1 To Fcount() + F=Field(i) + T=&F + LDATE=LDATE+Transform(T,"")+Tab + Endfor + LDATE=LDATE+crlf + \\<> + Endscan + Set Textmerge To + Else + LCHEADER="" + NRCOL=Alen(TAHEADER,1) + Sele (TTABEL) + For i=1 To NRCOL + + If Empty(TAHEADER[I,1]) + LCHEADER=LCHEADER+Upper(Allt(TAHEADER[I,2]))+Tab + Else + LCHEADER=LCHEADER+Upper(Allt(TAHEADER[I,1]))+Tab + Endif + + Endfor + LCHEADER=LCHEADER+crlf + +\\<> + + Sele (TTABEL) + Scan + LDATE="" + For i=1 To NRCOL + * F=Field(TAHEADER[I,2]) + F=TAHEADER[I,2] + * IF EXISTACAMP(,F) + T=&F + LDATE=LDATE+Alltrim(Transform(T,""))+Tab + * ELSE + * LDATE=LDATE+" "+Tab + * ENDIF + Endfor + LDATE=LDATE+crlf + \\<> + Endscan + Set Textmerge To + Endif + * WAIT WINDOW "Se deschide Excel..." NOWAIT + + + + OEXCEL = Createobject("Excel.Application") + OEXCEL.WorkBooks.Open(LCFIS) + OEXCEL.Visible=1 + *!* IF TYPE(OEXCEL)='0' + *!* OEXCEL="" + *!* ENDIF + +Endproc && list_excel + + +*__________________________________________________________ + +&& Folosesc un tabel (tabel,id) cu cate o linie pt fiecare tabel +&& aflu id-ul urmator si il scriu in tabela +&& returnez id-ul +&& EX1: LNEW_ID=NEW_ID("GRILA_SAL") --> urmatorul id din fara cautare in tabela originala +&& EX2: LNEW_ID=NEW_ID("GRILA_SAL","ID") --> urmatorul id din cu cautare in tabela originala dupa campul +&& ex3: LNEW_ID=NEW_ID("GRILA_SAL","ID",.T.) --> .T. INSEAMNA CA TABELUL ORIGINAL ESTE INDEXAT DUPA FAC SEEK IN LOC DE LOCATE +Procedure NEW_ID + Parameters TALIAS,TFIELD,TTAG&&,tTipField + *WAIT WINDOW TALIAS + *ON error Errorh(ERROR(),PROGRAM(),LINENO()) + LLLOOKUP=Iif(Type("tfield")="C",.T.,.F.) + LLChar = Iif(Type(TFIELD) = "C",.T.,.F.) + LLTAG=Iif(Type("TTAG")="C",.T.,.F.) + TALIAS=Upper(Alltrim(TALIAS)) + + + *** Save Stats + LCOLDALIAS = Alias() && keep current work area + LNOLDRECNO = Iif(!Eof(),Recno(),0) && save record number + + LCSETDEL=Set("deleted") + && lnmaxval = (10^pcidsize)-1 && wrap around after this val + + *** + && PUN ORDINEA PE ID + If LLLOOKUP And LLTAG + Sele (TALIAS) + Set Order To &TTAG + Endif + *** + LCNEWID = 0 && our return result - NULL if failed + Select IDS + Locate For Upper(Alltrim(TABEL))=TALIAS + If !Found() + If Flock() + Append Blank + Replace TABEL With TALIAS + Unlock + Endif + + Endif + + Set Deleted Off + && acum sunt pe inregistrarea corecta + + + *** lock counter table and update counter + Select IDS + If Rlock() + *** Avoid use of Macros - Convert to mem var & update it + LNCOUNTERVAL = NEW_ID + + *** VERIFY ID NUMBER - search 'til no match + Do While .T. + *** increase the counter - update field and var + LNCOUNTERVAL = LNCOUNTERVAL+1 + + *!* *** check for wraparound + *!* IF lncounterval > lnmaxval + *!* lncounterval = 1 + *!* ENDIF + + Select (TALIAS) + If LLLOOKUP + If LLTAG + LCAUT="SEEK "+Allt(Str(LNCOUNTERVAL)) + Else + If LLChar + LCAUT="LOCATE FOR "+Allt(TFIELD)+"='"+Allt(Str(LNCOUNTERVAL))+"'" + Else + LCAUT="LOCATE FOR "+Allt(TFIELD)+"="+Allt(Str(LNCOUNTERVAL)) + Endif + *** now see if it exists + &LCAUT + * LOCATE FOR &TFIELD=LNCOUNTERVAL + If !Found() + *** No match - DONE + Exit + Endif && !found() + Endif && lltag + Else + Exit + Endif && lllokup + + Enddo && done + + Sele IDS + Replace NEW_ID With LNCOUNTERVAL + LCNEWID=LNCOUNTERVAL + + Unlock In IDS + Endif && rlock() + + *** Reset record number on original file + + If !Empty(LCOLDALIAS) + Sele (LCOLDALIAS) + If LNOLDRECNO#0 + Goto LNOLDRECNO + Endif + Endif + Set Deleted &LCSETDEL + + Return LCNEWID + +Endproc && NEW_ID + + +***------------------------------------------------------------------------------------------------------- +*------------------------------------------------------------------------------------------- + +*** returneaza un obiect cu proprietatile an si nl (de fapt cu toate coloanele din calendar) +Function ret_luna + Parameters tcTitlu + + Private loLuna + + Select calendar + *!* USE DBF('calendar') IN 0 AGAIN ALIAS tsel_luna share + Select * From calendar Into Cursor tsel_luna Order By an Desc ,NL Desc + Select tsel_luna + loLuna=myscatter('blank') + + Ol=Createobject("frm_sel_luna") + With Ol + .lblTitlu.Caption=tcTitlu + If Empty(.cboLuna.RowSource) + .cboLuna.RowSource="tsel_luna.nl,an" + Endif + .oLuna=loLuna + If Empty(.cAlias) + .cAlias=Left(.cboLuna.RowSource,At(".",.cboLuna.RowSource)-1) + Endif + Endwith + Ol.Show(1) + + Use In tsel_luna + + Return loLuna +Endfunc && ret_oluna +***----------------------------------------------------------------------------------------------------------------- +*!* SET CLASSLIB TO d:\contafin\contab\clase\caut.vcx ADDITIVE +*!* oo=ret_luna("Luna de inceput") +*** scattered = MYSCATTER() && This is instead of SCATTER NAME... +Procedure myscatter + Parameters tcBlank + Local llBlank, loScatter + + llBlank=.F. + If Type('tcBlank')='C' + If 'BLANK'$Upper(tcBlank) + llBlank=.T. + Endif + Endif + + myScatterObject = Createobject("myScatterObject") + If !Empty(Alias()) + If llBlank + Scatter Name loScatter Memo Blank + Else + Scatter Name loScatter Memo + Endif + lnFields = Fcount(Alias()) + For N =1 To lnFields + lcField=Field(N) + lcvalue=loScatter.&lcField + myScatterObject.AddProperty(lcField, lcvalue) + Endfor + Release loScatter + Endif + Return myScatterObject && Always return an object, so GATHER command could not choke. +Endproc + +Define Class myScatterObject As Session + * You may use any VFP class directly like myScatterObject = CREATEOBJECT("Session") + * But you may optionally use this DEFINE CLASS + * and declare the native PEMs here as HIDDEN if you want, so they are not exposed + * in case you are using class other than Session or work with VFP version prior to VFP 7.0 +Enddefine + +***----------------------------------------------------------------------------------------------------------------- +Procedure caut_alfa_cursor + Parameters NUMEBAZA,NUMECIMP,CAPTEXT,VARMEM + Local MC0,MC1,MC2, llVizibil + Set Safety Off + llVizibil = .T. + + MC0='SELE '+NUMEBAZA + MC1='VARMEM=M.'+NUMECIMP + *MC2='SET order TO TAG '+NUMECIMP + MC2 = [INDEX ON ] +NUMECIMP+ [ TAG nume OF &loc\&nfscurt\tempo\xindex.idx COMPACT ASCENDING ] + + + *!* &MC0 + *!* &MC2 + *!* GO TOP + + Local lcNumeCol2 + Store '' To lcNumeCol2 + + LcCol = Alltrim(NUMEBAZA) + '.cod_fiscal' + If Type(LcCol) # 'U' + lcNumeCol2 = 'cod_fiscal' + Endif + + LcCol = Alltrim(NUMEBAZA) + '.gest' + If Type(LcCol) # 'U' + lcNumeCol2 = 'gest' + Endif + + LcCol = Alltrim(NUMEBAZA) + '.id_sectie' + If Type(LcCol) # 'U' + lcNumeCol2 = 'id_sectie' + Endif + + If Empty(lcNumeCol2) + lcNumeCol2 = 'space(4)' + llVizibil = .F. + Endif + + LcCol = Alltrim(NUMEBAZA) + '.id' + If Type(LcCol) # 'U' + lcNumeCol3 = 'id' + Else + lcNumeCol3 = 'space(4)' + Endif + + Select Distinct &NUMECIMP, &lcNumeCol2, &lcNumeCol3 From (NUMEBAZA) Into Cursor tnomenclator Readwrite Order By &NUMECIMP + + OCA=Createobject("CAUTALFa") + OCA.Caption=CAPTEXT + OCA.GRID1.RecordSource='tnomenclator' + OCA.GRID1.COLUMN1.ControlSource = NUMECIMP + OCA.GRID1.COLUMN2.ControlSource = lcNumeCol2 + OCA.GRID1.COLUMN2.Visible = llVizibil + OCA.cmdrenunt1.Visible=.T. + OCA.command1.Visible=.F. + OCA.command2.Visible=.F. + OCA.command3.Visible=.F. + OCA.Show(1) + + *!* &MC0 + *!* SCATTER MEMVAR + *!* SET FILTER TO + + If buton=2 + Use In tnomenclator + Return + Endif + + lcFile = Addbs(gcTempPath) + 'xindex.idx' + If File(lcFile) + Set Index To + Delete File &lcFile + Endif + *!* &MC1 + + Select tnomenclator + Scatter Memvar + + &MC1 + + + Use In tnomenclator + Return +***----------------------------------------------------------------------------------------------------------------- diff --git a/Programe/quitapp.prg b/Programe/quitapp.prg new file mode 100644 index 0000000..bd26e33 --- /dev/null +++ b/Programe/quitapp.prg @@ -0,0 +1,340 @@ +* Program: QUITAPP.PRG +* Description: Client-side of remote termination of applications. +* Created: 07/11/2003 +* Developer: Gregory L Reichert +* Copyright: Copyright (c) 2003 GLR software +*------------------------------------------------------------ +* Id Date By Description +* 1 07/11/2003 Gregory L Reichert Initial Creation +* +*------------------------------------------------------------ + +*!* Overview + +*!* The component is the client-side portion of a Remote Application Killer. +*!* With the use of a shared table, an network administrator can determine +*!* what workstation has what application running, and instruct that application +*!* to quit. + +*!* An administrator can monitor which applications are running, and instruct them +*!* termination themselves. + +*!* Instructions + +*!* This component is based on a Timer class with a one minute interval. Each minute +*!* the application check to see if the administrator wishs the application to +*!* quit. If discovered so, the countdown begins (default 10 minutes). During the +*!* Countdown, a message is displayed notifing the user that the automatic termination of +*!* the application is underway. They can manual exit the application, or wait for the +*!* automatic. Either way, it is intended for the user to complete their current task. +*!* At the end of the countdown, the application issues a QUIT command. + +*!* Call this routine, and a object reference is returned. This object should +*!* remain active throughout the life of the application. + +*!* PRIVATE oQuitApp +*!* oQuitApp = QuitApp( "\\MyServer\MyDrive\CommonFiles\" ) +*!* +*!* When the administrator wish to terminate one or more application, they place +*!* a True (.T.) in the "lQuit" field of the QuitApp.dbf table. As the Application continues +*!* countdown to automated termination, the "Remain" field indicates the number of minutes +*!* remaining. If the Admin changes the value of "Remain", the countdown continues from +*!* that new value. If a value less then zero (0) is entered, the application terminates +*!* the next time the QuitApp timer is fired. + + +*!* Two exposed method are provided to inform the routine that the application +*!* is performing critical operations and can not be interupted. These are called +*!* EnterCritical() and LeaveCritical(). The EnterCritical() should be called when the +*!* critical section begins, and the LeaveCritical() should be called when the section +*!* ends. + +*!* The administrator can check to see a application is running, or if it crashed before hand, +*!* by set the "aLiveTest" field of the QuitApp.dbf to False (.F.). After a couple of minutes, +*!* if the application is still alive, the field will revert to True (.T.). + +*!* The form called Admin_QuitApp.scx is used by the administrator to monitor and control the +*!* remote applications. + +*!* ===================================================================================== + +LPARAMETERS tcPath, tcQuitName + +RETURN CREATEOBJECT("QuitApp", tcPath, tcQuitName) + + +#DEFINE kQuitMax 10 && Wait 10 minutes before auto-quit + +*------------------------------------------------------------ +* Description: QuitApp class +*------------------------------------------------------------ +* Id Date By Description +* 1 07/11/2003 Gregory L Reichert Initial Creation +* +*------------------------------------------------------------ +DEFINE CLASS QuitApp AS TIMER + + INTERVAL = (60*1000) && check once a minute. + ENABLE = .T. + cPath = tcPath + cQuitName ="QuitApp" + cQFile ="QuitApp" + cAlias = "QuitApp" + && Full URN to QuitApp.dbf. Must be at a shared network location for all running application to gain access. + + *------------------------------------------------------------ + * Description: Error Trap + * Parameters: internal + * Return: n/a + * Use: internal + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE ERROR( a,b,c ) + *-- ignore all error from this class + RETURN + ENDPROC + + *------------------------------------------------------------ + * Description: Initializes the timer + * Parameters: cPath: path to the shared QuitApp.dbf - path only + * Return: N/A + * Use: ox = CreateObject( "QuitApp","\\myserver\shared\CommonFiles\" ) + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE INIT( cPath, cQuitName ) + LOCAL lc + lc = SELECT() + + + cPath = ADDBS(IIF(EMPTY(cPath),"", cPath)) + cQuitName = IIF(EMPTY(cQuitName),"QuitApp",JUSTSTEM(cQuitName)) + cQFile = cPath+cQuitName+".dbf" + cAlias = "QuitApp" + + this.cPath = cPath + this.cQuitName = cQuitName + this.cQFile = cQFile + this.cAlias = cAlias + *------------------------------------- + * create QuitApp table if missing. + *------------------------------------- + IF NOT FILE(this.cQFile) + SELECT 0 + CREATE TABLE (this.cQFile) (ws c(40),ID N(10,0), cCaption c(100),lQuit L, remain N(3), Critical L, aLiveTest L) + USE + ENDIF + + SELECT(lc) + ENDPROC + + *------------------------------------------------------------ + * Description: Timer routine + * Parameters: n/a + * Return: n/a + * Use: internal + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE TIMER + + + LOCAL lc + lc = SELECT() + USE (this.cQFile) IN 0 SHARED ALIAS (this.cAlias) + SELECT (this.cAlias) + + LOCATE FOR ID=_VFP.HWND AND cCaption=_VFP.CAPTION AND NOT DELETED() + IF NOT FOUND() + + *------------------------------------- + * Add an instence for this workstation / application + INSERT INTO (this.cQFile) (ws,ID,cCaption,lQuit,remain, Critical, aLiveTest) ; + VALUES ( UPPER(SYS(0)),_VFP.HWND, _VFP.CAPTION, .F., kQuitMax, .F., .T.) + ENDIF + + *- Each time, reset the aLiveTest field. + REPLACE aLiveTest WITH .T. + + IF NOT Critical AND TXNLEVEL()=0 + *- do only if not in Critical Section of the code, + * and not in a Transaction block + IF lQuit + *------------------------------------- + * if still timing out, display remaining time. + *------------------------------------- + IF remain>0 + IF remain=kQuitMax + * - if first time displaying the warning, force application on top. + _SCREEN.ALWAYSONTOP=.T. + _SCREEN.ALWAYSONTOP=.F. + ENDIF + *- decrement the counter, and display warning. + REPLACE remain WITH remain -1 + osh=CREATEOBJECT('shell.application') + osh.minimazeall + _screen.windowstate=2 + WAIT WINDOW NOCLEAR NOWAIT "Programul se va inchide automat in " +ALLTRIM(STR(remain,10))+" minute." + ?? CHR(7) + osh.undominimazeall + RELEASE osh + ELSE + *------------------------------------- + * otherwise, quit the application. + *------------------------------------- + USE IN (this.cAlias) + CLEAR EVENTS + glQuit = .T. + QUIT + ENDIF + ELSE + *------------------------------------- + * if nolonger quiing, reset counter. + *------------------------------------- + REPLACE remain WITH kQuitMax + WAIT CLEAR + ENDIF + ENDIF + + USE IN (this.cAlias) + THIS.RESET + SELECT(lc) + ENDPROC + + *------------------------------------------------------------ + * Description: Called when entering a Critical Section of the code. + * Parameters: n/a + * Return: True + * Use: .EnterCritical + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE EnterCritical() + LOCAL lc + lc = SELECT() + USE (this.cQFile) IN 0 SHARED ALIAS (this.cAlias) + SELECT (this.cAlias) + + UPDATE (this.cQFile) SET Critical=.T. WHERE ID=_VFP.HWND AND cCaption=_VFP.CAPTION + + USE IN (this.cAlias) + SELECT(lc) + ENDPROC + + *------------------------------------------------------------ + * Description: Called when exitting a Critical Section of the code. + * Parameters: n/a + * Return: True + * Use: .LeaveCritical + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE LeaveCritical() + LOCAL lc + lc = SELECT() + USE (this.cQFile) IN 0 SHARED ALIAS (this.cAlias) + SELECT (this.cAlias) + + UPDATE (this.cQFile) SET Critical=.F. WHERE ID=_VFP.HWND AND cCaption=_VFP.CAPTION + + USE IN (this.cAlias) + SELECT(lc) + ENDPROC + + *------------------------------------------------------------ + * Description: Destroy this object + * Parameters: n/a + * Return: n/a + * Use: internal + *------------------------------------------------------------ + * Id Date By Description + * 1 07/11/2003 Gregory L Reichert Initial Creation + * + *------------------------------------------------------------ + PROCEDURE DESTROY + *----------------------------------------------- + * On destroy, remove the application reference from the QuitApp table. + *----------------------------------------------- + LOCAL lc + lc = SELECT() + USE (this.cQFile) IN 0 SHARED ALIAS (this.cAlias) + SELECT (this.cAlias) + + DELETE FROM (this.cQFile) WHERE ID=_VFP.HWND AND cCaption=_VFP.CAPTION + + USE IN (this.cAlias) + SELECT(lc) + ENDPROC + +ENDDEFINE + + + +&& ------------------------------INCEPUT: Quit_Automat ------------------------------ +*!* Procedura: Quit_Automat +*!* Parametri: tlQuit +*!* Data/Ora generarii: 19/02/2004 12:48 +*!* Autor: MARIUS.MUTU +PROCEDURE Quit_Automat +LPARAMETERS tlQuit + +IF tlQuit + QUIT +ENDIF + +ENDPROC +&& ------------------------------SFARSIT: Quit_Automat ------------------------------ + +* Eof QUITAPP.PRG +*************************** +*!* FUNCTION AppInstance +*!* PARAMETERS WindowName + +*!* #DEFINE GW_OWNER 4 +*!* #DEFINE GW_HWNDFIRST 0 +*!* #DEFINE GW_HWNDNEXT 2 +*!* #DEFINE SW_MAXIMIZE 3 +*!* #DEFINE SW_NORMAL 1 + +*!* DECLARE integer SetForegroundWindow in win32api long lnhWnd +*!* DECLARE integer GetWindowText in win32api integer, string, integer +*!* DECLARE integer GetWindow in win32api integer,INTEGER +*!* DECLARE integer IsWindowVisible in win32api integer +*!* DECLARE integer GetActiveWindow in win32api +*!* DECLARE integer ShowWindow in user32 INTEGER lnhWnd, INTEGER lnCmdShow + +*!* IsWindEx = .F. +*!* if len(WindowName) < 1 +*!* return .t. +*!* endif + +*!* foxhwnd = GetActiveWindow() +*!* hwndNext = GetWindow(foxhwnd,GW_HWNDFIRST) + +*!* DO WHILE hwndNext <> 0 +*!* IF (hwndnext <> foxhwnd .AND. GetWindow(hwndnext,GW_OWNER) = 0) +*!* Stuffer = SPACE(64) +*!* x = GetWindowText(hwndnext,@Stuffer,64) +*!* IF WindowName $ Stuffer +*!* IsWindEx = .T. +*!* =SetForegroundWindow(hwndnext) +*!* =ShowWindow(hwndNext,SW_MAXIMIZE) +*!* EXIT +*!* ENDIF +*!* ENDIF +*!* hwndNext = GetWindow(hwndnext,GW_HWNDNEXT) +*!* ENDDO + +*!* RETURN IsWindEx +*!* ENDFUNC \ No newline at end of file diff --git a/Programe/rapbal97.prg b/Programe/rapbal97.prg new file mode 100644 index 0000000..40f0093 --- /dev/null +++ b/Programe/rapbal97.prg @@ -0,0 +1,104 @@ +public wbal +dirfirm=loc+'\'+nfscurt +WBAL=0 + +sele bal +set filter to SUBS(CONT,1,1)='7' +TOTAL ON subs(cont,5,1) TO &dirfirm\tempo\TOTTOT7 +SELE BAL +set filter to SUBS(CONT,1,1)='6' +TOTAL ON SUBS(CONT,5,1) TO &dirfirm\tempo\TOTTOT6 + +SELE 0 +USE &dirfirm\tempo\TOTTOT7 +REPL DENUMIRE WITH 'TOTAL VENITURI'; + CONT WITH '7998' +SELE 0 +USE &dirfirm\tempo\TOTTOT6 +REPL DENUMIRE WITH 'TOTAL CHELTUIELI'; + CONT WITH '6998' +SELE BAL +SET FILTER TO + +SELE BAL +TOTAL ON SUBSTR(CONT,1,3) TO &dirfirm\tempo\TOTBAL + +SELE 0 +*USE DATEAN\TOTBAL +USE &dirfirm\tempo\totbal.dbf exclusive + +SELE BAL +COPY TO &dirfirm\tempo\RAPBAL + +SELE 0 +USE &dirfirm\tempo\RAPBAL +TOTAL ON SUBS(CONT,5,1) TO &dirfirm\tempo\TOTTOT + +SELE TOTBAL +REPL ALL DENUMIRE WITH 'TOTAL '+SUBSTR(CONT,1,3); + cont WITH substr(cont,1,3)+'A' +SELE 190 +USE &dirfirm\tempo\TOTTOT +REPL DENUMIRE WITH 'TOTAL GENERAL'; + CONT WITH '9999' +SELE TOTBAL +USE + +SELE TOTTOT +USE +SELE TOTTOT7 +USE +SELE TOTTOT6 +USE + + +SELE RAPBAL + +APPE FROM &dirfirm\tempo\TOTBAL +APPE FROM &dirfirm\tempo\TOTTOT +APPE FROM &dirfirm\tempo\TOTTOT7 +APPE FROM &dirfirm\tempo\TOTTOT6 + +INDEX ON CONT TO &dirfirm\tempo\BALRAP.CDX +GO TOP +GCONT=CONT +kg=0 +SCAN +SCATTER MEMVAR + +if subs(m.cont,1,3)=subs(gcont,1,3) +kg=kg+1 +else +kg=1 +endif +IF SUBS(M.CONT,4,1)='A' and kg=2 +DELETE +kg=0 +ENDIF +GCONT=M.CONT +ENDSCAN + +m.titlu='' +if a4 + REPORT FORMAT RAPBALa4.FRX TO PRINTER PROMPT preview +else + REPORT FORMAT RAPBALa3.FRX TO PRINTER PROMPT preview +endif + +SELE RAPBAL +USE +ERASE &dirfirm\tempo\RAPBAL.DBF + +ERASE &dirfirm\tempo\BALrap.cdx + +ERASE &dirfirm\tempo\TOTTOT.DBF + +ERASE &dirfirm\tempo\TOTTOT7.DBF + +ERASE &dirfirm\tempo\TOTTOT6.DBF + +ERASE &dirfirm\tempo\totBAL.DBF + + + +RETURN \ No newline at end of file diff --git a/Programe/refverif.prg b/Programe/refverif.prg new file mode 100644 index 0000000..a225bd1 --- /dev/null +++ b/Programe/refverif.prg @@ -0,0 +1,7489 @@ +PROCEDURE REFClienti && REFCLI +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\clienti.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'clienti.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\clienti.DBF IN 0 ALIAS clientiU + +SELECT clientiU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('clientiu.totdeb') = 'U' + SELECT NUME,COD_FISCAL,avans AS precavans,productie AS precdeb,incasat AS preccred FROM clientiU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + productie, totcred WITH preccred + incasat, totvaldeb WITH precvaldeb + prodval, totvalcre WITH precvalcre + incasval + REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('clientiu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precavans + avans) AS precavans, SUM(precavansv + avansval) AS precavansv, ; + SUM(precdeb + productie) AS precdeb, SUM(preccred+incasat) AS preccred, ; + SUM(precvaldeb + prodval) AS precvaldeb, SUM(precvalcre + incasval) AS precvalcre ; + FROM clientiU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precavans + avans) AS precavans, SUM(precavansv + avansval) AS precavansv, ; + SUM(precdeb + productie) AS precdeb, SUM(preccred+incasat) AS preccred, ; + SUM(precvaldeb + prodval) AS precvaldeb, SUM(precvalcre + incasval) AS precvalcre ; + FROM clientiU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN clientiU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '411', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '411' AND scc # '4118', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '411' AND scd # '4118', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '411' AND scc # '4118', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '411' AND scd # '4118', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE (LEFT(scd, 3)='411' AND scd # '4118') OR (LEFT(scc, 3)='411' AND scc # '4118'); +INTO CURSOR t411 GROUP BY 1, 2, 3 + +SELECT t411 +SCAN + SCATTER NAME o411 + SELECT rcli + SEEK LEFT(o411.NUME,30) + o411.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o411.COD_FISCAL + ENDIF + ELSE + SEEK LEFT(o411.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o411.acont + ELSE + APPEND BLANK + GATHER NAME o411 + ENDIF + ENDIF + REPLACE productie WITH productie + o411.debit, incasat WITH incasat + o411.credit, prodval WITH prodval + o411.valdebit, incasval WITH incasval + o411.valcredit + + SELECT t411 +ENDSCAN +RELEASE o411 +USE IN t411 + +SELECT NUME, ; +IIF(LEFT(scd,3) = '419', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '419', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '419', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '419', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '419', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('419',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t419 GROUP BY 1, 2 + + +SELECT t419 +SCAN + SCATTER NAME o419 + SELECT rcli + SEEK LEFT(o419.NUME,30) + o419.acont + IF !FOUND() + LOCATE FOR ALLTRIM(nume) = ALLTRIM(o419.NUME) + IF !FOUND() + APPEND BLANK + GATHER NAME o419 + ENDIF + ENDIF + REPLACE avans WITH avans - o419.debit + o419.credit + REPLACE avansval WITH avansval - o419.valdebit + o419.valcredit + SELECT t419 +ENDSCAN +RELEASE o419 +USE IN t419 + + +SELECT rcli +REPLACE ALL totdeb WITH precdeb+productie,totcred WITH preccred+incasat,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb+prodval,totvalcre WITH precvalcre+incasval,totavansv WITH precavansv+avansval + +SELECT clienti +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +*USE IN clientiU + +SELECT clienti +SET ORDER TO TAG NANA +RETURN + + +*_________________________________________ +PROCEDURE REFFurnizor && REFFUR +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\FURNIZOR.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'FURNIZOR.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\FURNIZOR.DBF IN 0 ALIAS FURNIZORU + +SELECT FURNIZORU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('FURNIZORu.totdeb') = 'U' + SELECT NUME, COD_FISCAL, avans AS precavans, platit AS precdeb, achizit AS preccred FROM FURNIZORU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + platit, totcred WITH preccred + achizit , totvaldeb WITH precvaldeb + platival, totvalcre WITH precvalcre + achizitval + REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('FURNIZORu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precavans + avans) AS precavans, SUM(precavansv + avansval) AS precavansv, ; + SUM(precdeb + platit) AS precdeb, SUM(preccred + achizit) AS preccred, ; + SUM(precvaldeb + platival) AS precvaldeb, SUM(precvalcre + achizitval) AS precvalcre ; + FROM FURNIZORU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precavans + avans) AS precavans, SUM(precavansv + avansval) AS precavansv, ; + SUM(precdeb + platit) AS precdeb, SUM(preccred + achizit) AS preccred, ; + SUM(precvaldeb + platival) AS precvaldeb, SUM(precvalcre + achizitval) AS precvalcre ; + FROM FURNIZORU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN FURNIZORU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '401', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '401', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '401', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '401', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '401', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('401',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t401 GROUP BY 1, 2, 3 + +SELECT t401 +SCAN + SCATTER NAME o401 + SELECT rcli + SEEK LEFT(o401.NUME,30) + o401.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o401.COD_FISCAL + ENDIF + ELSE + SEEK LEFT(o401.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o401.acont + ELSE + APPEND BLANK + GATHER NAME o401 + ENDIF + ENDIF + REPLACE platit WITH platit + o401.debit, achizit WITH achizit + o401.credit, platival WITH platival + o401.valdebit, achizitval WITH achizitval + o401.valcredit + + SELECT t401 +ENDSCAN +RELEASE o401 +USE IN t401 + +SELECT NUME, ; +IIF(LEFT(scd,3) = '409', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '409', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '409', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '409', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '409', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('409',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t409 GROUP BY 1, 2 + + + +SELECT t409 +SCAN + SCATTER NAME o409 + SELECT rcli + SEEK LEFT(o409.NUME,30) + o409.acont + IF !FOUND() + LOCATE FOR ALLTRIM(nume) = ALLTRIM(o409.NUME) + IF !FOUND() + APPEND BLANK + GATHER NAME o409 + ENDIF + ENDIF + REPLACE avans WITH avans + o409.debit - o409.credit + REPLACE avansval WITH avansval + o409.valdebit - o409.valcredit + SELECT t409 +ENDSCAN +RELEASE o409 +USE IN t409 + + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + platit, totcred WITH preccred + achizit, totavans WITH precavans + avans +REPLACE ALL totvaldeb WITH precvaldeb + platival, totvalcre WITH precvalcre + achizitval, totavansv WITH precavansv + avansval + +SELECT FURNIZOR +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +*USE IN FURNIZORU + +SELECT FURNIZOR +SET ORDER TO TAG NANA +RETURN + + + +*!* LOCAL nla,nlb,ana,anb + +*!* IF !se_reface() +*!* RETURN +*!* ENDIF + +*!* nlb=m.nl +*!* anb=m.an +*!* dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +*!* SELE calendar +*!* LOCATE FOR nl=m.nl AND an=m.an +*!* SKIP -1 +*!* IF !BOF() +*!* nla=nl +*!* ana=an +*!* dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +*!* ELSE +*!* dateA=dirgen+'\_alfa\an0000\date00\' +*!* ENDIF + + +*!* SET SAFETY OFF +*!* COPY FILE &dirgen\_alfa\an0000\date00\FURNIZOR.* TO &loc\&nfscurt\tempo\rcli.* + +*!* USE &dateA\FURNIZOR.DBF IN 0 ALIAS FURNIZORU +*!* SELECT FURNIZORU +*!* SET ORDER TO 1 && NUME +*!* TOTAL TO &loc\&nfscurt\tempo\FURNIZORA ON NUME +*!* USE &loc\&nfscurt\tempo\FURNIZORA IN 0 ALIAS FURNIZORA +*!* SELECT FURNIZORA +*!* IF TYPE('FURNIZORa.totdeb') # 'U' +*!* * SUM TOTcred, achizit TO M.TOTcred, M.achizit +*!* REPLACE ALL totdeb WITH precdeb + platit, totcred WITH preccred + achizit +*!* ELSE +*!* SUM platit TO M.platit +*!* m.totdeb=0 +*!* ENDIF + + + +*!* USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +*!* &&precedente--------- +*!* IF TYPE('FURNIZORa.totdeb') = "U" +*!* SELECT NUME,COD_FISCAL,avans AS precavans,platit AS precdeb,achizit AS preccred FROM FURNIZORA INTO CURSOR rrr +*!* ELSE +*!* * Select NUME,COD_FISCAL,totavans As precavans,totdeb As precdeb,totcred As preccred From FURNIZORa Into Cursor rrr +*!* SELECT NUME,COD_FISCAL,NUMEVAL,; +*!* totavans AS precavans,totdeb AS precdeb,totcred AS preccred,; +*!* totavansV AS precavansV,totVALdeb AS precVALdeb,totVALcre AS precVALcre; +*!* FROM FURNIZORA INTO CURSOR rrr +*!* ENDIF + +*!* USE IN FURNIZORA + +*!* SELECT rcli +*!* APPEND FROM DBF('rrr') +*!* USE IN rrr + + +*!* &&rulaje------------ +*!* SELE rcli +*!* SET ORDER TO TAG NUME +*!* DO REDAU WITH 'SCC="401 " ','RCLI','M.NUME','ACHIZIT' +*!* DO REDAU WITH 'SCD="401 " ','RCLI','M.NUME','PLATIT' +*!* DO REDAU WITH 'SCD="409 " ','RCLI','M.NUME','AVANS' +*!* DO REDAUsc WITH 'SCc="409 " ','RCLI','M.NUME','AVANS' + +*!* DO REDAUVAL WITH 'SCC="401 " ','RCLI','M.NUME','ACHIZITVAL' +*!* DO REDAUVAL WITH 'SCD="401 " ','RCLI','M.NUME','PLATIVAL' +*!* DO REDAUVAL WITH 'SCD="409 " ','RCLI','M.NUME','AVANSVAL' +*!* DO REDAUscVAL WITH 'SCc="409 " ','RCLI','M.NUME','AVANSVAL' + +*!* SELECT rcli +*!* REPLACE ALL totdeb WITH precdeb+platit,; +*!* totcred WITH preccred+achizit,; +*!* totavans WITH precavans+avans +*!* REPLACE ALL totVALdeb WITH precVALdeb+PLATIVAL,; +*!* totVALcre WITH precVALcre+ACHIZITVAL,; +*!* totavansV WITH precavansV+AVANSVAL + +*!* *Do suprapune WITH 'FURNIZOR','rcli' +*!* SELECT FURNIZOR +*!* IF FLOCK() +*!* DELETE ALL +*!* APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +*!* ENDIF +*!* UNLOCK +*!* USE IN rcli +*!* USE IN FURNIZORU + +*!* SELECT FURNIZOR +*!* SET ORDER TO TAG NUME +*!* RETURN + + +*_________________________________________ +PROCEDURE VERBAL +LOCAL btotdeb,btotcred,bpreccred,bprecdeb,dateA,dateb,tsuma,ttotdeb,ttotcred +*i=1 +*STARE=1 +*orm=createobj('textmult') +OTEXT=CREATE('text_TREE') +STARE=1 + +CLOSE DATABASE +SELECT 0 +USE datEAN\calendar.DBF; +AGAIN ALIAS calendar ; +ORDER 0 +btotdeb=0 +btotcred=0 +bprecdeb=0 +bpreccred=0 +SELE calendar +SCAN + SCATTER MEMVAR + dateA=calefirma+'\an'+m.an+'\'+'date'+M.nl + + SELE 0 + USE &dateA\BAL.DBF SHARED + SELE 0 + USE &dateA\act.DBF SHARED + SELE BAL + SUM precdeb,preccred,RULDEB,RULCRED TO bprecdeb,bpreccred,ttotdeb,ttotcred + SELE act + SUM suma TO tsuma + + IF ttotdeb# tsuma + m.DENUMIRE='Diferente pe debit in luna '+M.nl+' '+M.an + DO mesajt WITH M.DENUMIRE +* WAIT WIND 'Diferente pe debit in luna '+M.NL+' '+M.AN + ENDIF + + IF ttotcred# tsuma + m.DENUMIRE='Diferente pe credit' + DO mesajt WITH M.DENUMIRE +* WAIT WIND 'Diferente pe credit' + ENDIF + + SELE BAL + IF btotdeb# bprecdeb OR btotcred # bpreccred + m.DENUMIRE='Eroare de preluare in luna '+M.nl+' '+M.an + DO mesajt WITH M.DENUMIRE +* WAIT WIND 'Eroare de preluare in luna '+M.NL+' '+M.AN + ELSE + m.DENUMIRE='Preluare corecta in luna '+M.nl+' '+M.an + DO mesajt WITH M.DENUMIRE +* WAIT WIND 'Preluare corecta in luna '+M.NL+' '+M.AN + ENDIF + + IF M.nl='12' + SUM SOLDDEB,SOLDCRED TO btotdeb,btotcred + ELSE + SUM totdeb,totcred TO btotdeb,btotcred + ENDIF + + SELE BAL + USE + SELE act + USE +ENDSCAN + +IF STARE!=1 + OTEXT.DEUNDE='C' + OTEXT.label10.CAPTION='RAPORT VERIFICARE BALANTA' + OTEXT.CMDLIST1.VISIBLE=.F. + OTEXT.CMDLIST2.VISIBLE=.F. + OTEXT.CMDRENUNT1.VISIBLE=.F. + OTEXT.SHOW(1) +ENDIF + +DO TOTV.PRG +RETURN + + +*_________________________________________ +PROCEDURE vercasa +LOCAL m.ban + +STORE 0 TO TINCASARI,TPLATI +m.ban='' +SELECT BAL +SEEK ('5311 ') +SCATTER MEMVAR +SELE CASA +SUM INCASARI,PLATI TO m.TINCASARI,M.TPLATI +IF M.TINCASARI-M.TPLATI# M.SOLDDEB +***WAIT WINDOWS 'DIFERENTA LA CASA '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10) + DO mesaj WITH 'Diferenta la casa: '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10),'' + +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA CASA IN LUNA '+NL+' ANUL '+M.AN + DO mesaj WITH 'Nu sunt deferente la casa in luna: '+nl+' '+M.an,'' + +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE verBANCA +LOCAL m.ban + +STORE 0 TO TINCASARI,TPLATI +m.ban='' +SELECT BAL +SEEK ('5121 ') +SCATTER MEMVAR +SELE BANCA +SUM INCASARI,PLATI TO m.TINCASARI,M.TPLATI +IF M.TINCASARI-M.TPLATI# M.SOLDDEB +***WAIT WINDOWS 'DIFERENTA LA BANCA IN VALUTA '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10) + DO mesaj WITH 'Diferenta la banca in valuta: '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10),'' + +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA BANCA IN VALUTA IN LUNA '+NL+' ANUL '+M.AN + DO mesaj WITH 'Nu sunt deferente la banca in valuta in luna: '+nl+'$'+M.an,'' + +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE verVALBANCA +LOCAL m.ban + +STORE 0 TO TINCASARI,TPLATI +m.ban='' +SELECT BAL +SEEK ('5124 ') +SCATTER MEMVAR +SELE BANCAVAL +SUM INCASARI,PLATI TO m.TINCASARI,M.TPLATI +IF M.TINCASARI-M.TPLATI# M.SOLDDEB +***WAIT WINDOWS 'DIFERENTA LA BANCA '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10) + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta la banca: '+STR(M.TINCASARI-M.TPLATI-M.SOLDDEB,10) + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA BANCA IN LUNA '+NL+' ANUL '+M.AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente la banca in luna: '+nl+' '+M.an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERCUMP +SELE CUMP +SUM totctva,neimpozab,totftvaI,tvaI,totftvaM,tvaM; +TO m.Stotctva,m.Sneimpozab,m.StotftvaI,m.StvaI,; +M.StotftvaM,m.StvaM + +m.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+; +M.StotftvaM+m.StvaM + +SELE BAL +SEEK '401 ' +SCATTER MEMVAR +m.f401=m.RULCRED +SEEK '404 ' +SCATTER MEMVAR +m.f404=m.RULCRED +m.f401404=m.f401+m.f404 +IF M.Stotctva-M.ADUN#0 +***WAIT WINDOWS 'DIFERENTA ESTE DE '+STR(M.STOTCTVA-M.ADUN,12,0) + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta este: '+STR(M.Stotctva-M.ADUN,12,0) + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +IF M.Stotctva-M.f401404#0 +***WAIT WINDOWS 'DIFERENTA FATA DE 401+404 ESTE DE '+STR(M.STOTCTVA-M.f401404,12,0)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta fata de 401+404 este: '+STR(M.Stotctva-M.f401404,12,0) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE FATA DE 401+404'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente fata de 401+404'+' in luna '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERVANZ +SELE VANZ +SUM totctva,neimpozab,totftvaI,tvaI,totftvaM,tvaM; +TO m.Stotctva,m.Sneimpozab,m.StotftvaI,m.StvaI,; +M.StotftvaM,m.StvaM + +m.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+; +M.StotftvaM+m.StvaM +SELE BAL +SEEK '411 ' +SCATTER MEMVAR +m.f411=m.RULDEB + +IF M.Stotctva-M.ADUN#0 +***WAIT WINDOWS 'DIFERENTA ESTE DE '+STR(M.STOTCTVA-M.ADUN,12,0) + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta este de: '+STR(M.Stotctva-M.ADUN,12,0) + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +IF M.Stotctva-M.f411#0 +***WAIT WINDOWS 'DIFERENTA FATA DE 411 ESTE DE '+STR(M.STOTCTVA-M.f411,12,0)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta fata de 411 este de: '+STR(M.Stotctva-M.f411,12,0) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE FATA DE 411'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente fata de 411 in luna: '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERFUR +SELE FURNIZOR +SUM achizit,platit,avans TO M.TACHIZIT,M.TPLATIT,M.TAVANS +SELE BAL +SEEK '401 ' +SCATTER MEMVAR +m.SOLD=M.SOLDCRED +SEEK '404 ' +SCATTER MEMVAR +m.SOLD=M.SOLDCRED+M.SOLD +IF M.SOLD # m.TACHIZIT-M.TPLATIT +***WAIT WINDOWS 'DIFERENTA LA SOLD ESTE DE '+STR(M.SOLD+M.TPLATIT-M.TACHIZIT)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta la sold este '+STR(M.SOLD+M.TPLATIT-M.TACHIZIT) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA FURNIZORI'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente la furnizori'+' in luna '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERCLI +SELECT clienti + +SUM avans,incasat,productie TO m.SUM1,M.SUM2,M.SUM3 +m.SUM4=m.SUM3-M.SUM2 +SELE BAL +SEEK '411 ' +SCATTER MEMVAR + +IF M.SOLDDEB # M.SUM3-M.SUM2 +***WAIT WINDOWS 'DIFERENTA IN SOLD FATA DE 411 ESTE DE '+STR(M.SOLDDEB-M.SUM3+M.SUM2)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta in sold fata de 411 este '+STR(M.SOLDDEB-M.SUM3+M.SUM2) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA CLIENTI'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente la clienti '+' in luna '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________ +PROCEDURE VERACHI +SELECT ACHIT542 +SUM LUAT,DAT TO m.SUM1,M.SUM2 +m.SUM3=M.SUM1-M.SUM2 +SELE BAL +SEEK '542 ' +SCATTER MEMVAR +IF M.SOLDDEB # M.SUM3 +***WAIT WINDOWS 'DIFERENTA SOLDULUI CONT.542 ESTE DE '+STR(M.SOLDDEB-M.SUM3)+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Diferenta soldului cont.542 este de: '+STR(M.SOLDDEB-M.SUM3) + ot.label3.CAPTION='in luna '+nl+' '+an + ot.SHOW(1) +*** +ELSE +***WAIT WINDOWS 'NU SUNT DIFERENTE LA 542'+' IN LUNA '+NL+' ANUL '+AN + ot=CREATEOBJ("text") + ot.label2.CAPTION='Nu sunt diferente la 542'+' in luna: '+nl+' '+an + ot.label3.VISIBLE=.F. + ot.SHOW(1) +*** +ENDIF +RETURN + + +*_________________________________________________________________ +PROCEDURE REFCasa +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +USE &dateA\casanume IN 0 SHARED ALIAS CASANUMEP +IF TYPE('casanumep.precdeb') # 'U' + SELECT casa, precdeb + incasari as precdeb, preccred + plati as preccred FROM casanumeP ; + INTO CURSOR tprec ORDER BY casa +ELSE + SELECT casa, incasari as precdeb, plati as preccred FROM casanumeP ; + INTO CURSOR tprec ORDER BY casa +ENDIF + +SELE CASA +IF FLOCK() + DELETE ALL + m.casa = 'SOLD' + m.DATAIREG = {} + m.COD = -1 + m.INCASARI = 0 + m.PLATI = 0 + m.scd = '' + m.scc = '' + SELE tprec + SCAN + SCATTER MEMVAR + SELE CASA + GOTO BOTTOM + APPE BLANK + m.INCASARI=M.precdeb-M.preccred + m.PLATI=0 + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, nume_3 as casa, scd, scc,; + IIF(scd = '5311', suma, 00000000000000) as incasari, ; + IIF(scc = '5311', suma, 00000000000000) as plati ; + FROM act WHERE scd = '5311' OR scc = '5311' ; + INTO CURSOR tact + +SELECT casa +APPEND FROM DBF('tact') +USE IN tact + + +SELECT CASANUME +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + + SELECT nume_3 as casa, ; + sum(IIF(scd = '5311', suma, 00000000000000)) as incasari, ; + sum(IIF(scc = '5311', suma, 00000000000000)) as plati ; + FROM act WHERE scd = '5311' OR scc = '5311' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT casanume + LOCATE FOR ALLTRIM(casa) = ALLTRIM(ot.casa) + IF !FOUND() + APPEND blank + REPLACE casa WITH ot.casa + ENDIF + REPLACE incasari WITH incasari + ot.incasari, plati WITH plati + ot.plati + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN CASANUMEP + +*!* SELE act +*!* SCAN FOR scd='5311' +*!* SCATTER MEMVAR +*!* IF LEFT(m.nume_3,2)=' ' +*!* REPL nume_3 WITH 'CENTRALA' +*!* m.nume_3='CENTRALA' +*!* ENDIF +*!* SELE CASA +*!* m.CASA=M.nume_3 +*!* m.INCASARI=M.suma +*!* m.PLATI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN + +*!* SCAN FOR scc='5311' +*!* SCATTER MEMVAR +*!* IF LEFT(m.nume_3,2)=' ' +*!* REPL nume_3 WITH 'CENTRALA' +*!* m.nume_3='CENTRALA' +*!* ENDIF +*!* SELE CASA +*!* m.CASA=M.nume_3 +*!* m.PLATI=M.suma +*!* m.INCASARI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF +****WAIT WIND 'J' + + +*!* SELE 0 +*!* USE &DATE\casanume + + +*!* IF FLOCK() + +*!* SELE CASA +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE casanume +*!* LOCA FOR CASA=ALLTRIM(M.CASA) +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL CASA WITH M.CASA +*!* ENDIF +*!* SELE CASA +*!* ENDSCAN + +*!* SELE casanume +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE CASA +*!* SUM INCASARI,PLATI TO M.INCASARI,M.PLATI FOR ALLTRIM(CASA)=ALLTRIM(M.CASA) +*!* SELE casanume + +*!* REPL INCASARI WITH M.INCASARI +*!* REPL PLATI WITH M.PLATI +*!* SELE casanume +*!* ENDSCAN +*!* ENDIF + +*!* UNLOCK IN CASA +*!* UNLOCK IN casanume + +SELE CASA +SET ORDER TO TAG DATAIREG +RETURN + + + + + + +*__________________________________________________ +PROCEDURE REFBANCA +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +USE &dateA\bannume IN 0 SHARED ALIAS banNUMEP +IF TYPE('bannumep.precdeb') # 'U' + SELECT nume_2, precdeb + incasari as precdeb, preccred + plati as preccred FROM bannumeP ; + INTO CURSOR tprec ORDER BY nume_2 +ELSE + SELECT nume_2, incasari as precdeb, plati as preccred FROM bannumeP ; + INTO CURSOR tprec ORDER BY nume_2 +ENDIF + +SELE banca +IF FLOCK() + DELETE ALL + m.DATAIREG = {} + m.COD = -1 + m.INCASARI = 0 + m.PLATI = 0 + m.scd = '' + m.scc = '' + SELE tprec + SCAN + SCATTER MEMVAR + m.INCASARI = M.precdeb-M.preccred + m.PLATI = 0 + m.banca = m.nume_2 + SELE banca + GOTO BOTTOM + APPE BLANK + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, nume_2 as banca, scd, scc,; + IIF(scd = '5121', suma, 00000000000000) as incasari, ; + IIF(scc = '5121', suma, 00000000000000) as plati ; + FROM act WHERE scd = '5121' OR scc = '5121' ; + INTO CURSOR tact + +SELECT banca +APPEND FROM DBF('tact') +USE IN tact + + +SELECT banNUME +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + + SELECT nume_2 as banca, ; + sum(IIF(scd = '5121', suma, 00000000000000)) as incasari, ; + sum(IIF(scc = '5121', suma, 00000000000000)) as plati ; + FROM act WHERE scd = '5121' OR scc = '5121' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT bannume + LOCATE FOR ALLTRIM(nume_2) = ALLTRIM(ot.banca) + IF !FOUND() + APPEND blank + REPLACE nume_2 WITH ot.banca + ENDIF + REPLACE incasari WITH incasari + ot.incasari, plati WITH plati + ot.plati + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN banNUMEP + +*!* SELE BANCA +*!* SET ORDER TO TAG COD +*!* IF FLOCK() +*!* DELE ALL + + +*!* SELE BANNUME +*!* USE +*!* SELE 0 +*!* USE &dateA\BANNUME + +*!* m.DATAIREG={} +*!* m.COD=-1 +*!* m.INCASARI=0 +*!* m.PLATI=0 +*!* m.scd='' +*!* m.scc='' +*!* SELE BANNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* m.BANCA=m.nume_2 +*!* SELE BANCA +*!* GOTO BOTTOM +*!* APPE BLANK +*!* m.INCASARI=M.INCASARI-M.PLATI +*!* m.PLATI=0 +*!* GATHER MEMVAR +*!* SELE BANNUME +*!* ENDSCAN +*!* SELE BANNUME +*!* USE +*!* SELE BANCA +*!* m.BANCA='BANCA COMPENSARI' +*!* m.INCASARI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR + +*!* SELE act +*!* SCAN FOR scd='5121' +*!* SCATTER MEMVAR +*!* SELE BANCA +*!* m.BANCA=M.nume_2 +*!* m.INCASARI=M.suma +*!* m.PLATI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN + +*!* SCAN FOR scc='5121' +*!* SCATTER MEMVAR +*!* SELE BANCA +*!* m.BANCA=M.nume_2 +*!* m.PLATI=M.suma +*!* m.INCASARI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF + + +*!* SELE 0 +*!* USE &DATE\BANNUME +*!* IF FLOCK() +*!* DELE ALL +*!* &&&exclusive +*!* &&&zap + +*!* SELE BANCA +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE BANNUME +*!* LOCA FOR nume_2=ALLTRIM(M.BANCA) +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL nume_2 WITH M.BANCA +*!* ENDIF +*!* SELE BANCA +*!* ENDSCAN + +*!* SELE BANNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE BANCA +*!* SUM INCASARI,PLATI TO M.INCASARI,M.PLATI FOR BANCA=M.nume_2 +*!* SELE BANNUME +*!* REPL INCASARI WITH M.INCASARI +*!* REPL PLATI WITH M.PLATI +*!* SELE BANNUME +*!* ENDSCAN +*!* ENDIF +*!* UNLOCK IN BANCA +*!* UNLOCK IN BANNUME + +SELE BANCA +SET ORDER TO TAG DATAIREG +RETURN + + + + +*_________________________________________ +PROCEDURE REFBancaVal && REFVALBANCA +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +USE &dateA\banvnume IN 0 SHARED ALIAS banvnumeP +IF TYPE('banvnumep.precdeb') # 'U' + SELECT nume_3, numeval, ; + precdeb + incasari as precdeb, preccred + plati as preccred, ; + precvaldeb + incasval as precvaldeb, precvalcre + platival as precvalcre ; + FROM banvnumeP ; + INTO CURSOR tprec ORDER BY nume_3 +ELSE + SELECT nume_3, numeval, incasari as precdeb, plati as preccred, incasval as precvaldeb, platival as precvalcre ; + FROM banvnumeP ; + INTO CURSOR tprec ORDER BY nume_3 +ENDIF + +SELE bancaval +IF FLOCK() + DELETE ALL + m.DATAIREG={} + m.COD=-1 + m.INCASARI=0 + m.PLATI=0 + m.incasval=0 + m.platival=0 + m.scd='' + m.scc='' + m.CURSSCHIMB=0 + m.CURSBNR=0 + + SELE tprec + SCAN + SCATTER MEMVAR + m.INCASARI = M.precdeb-M.preccred + m.PLATI = 0 + m.INCASval = M.precvaldeb-M.precvalcre + m.PLATIval = 0 + m.banca = m.nume_3 + SELE bancaval + GOTO BOTTOM + APPE BLANK + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, nume_3 as banca, scd, scc, suma_3 as cursschimb, nume_4 as numeval, ; + IIF(scd = '5124', suma, 00000000000000) as incasari, ; + IIF(scc = '5124', suma, 00000000000000) as plati, ; + IIF(scd = '5124', suma_2, 000000000000.00) as incasval, ; + IIF(scc = '5124', suma_2, 000000000000.00) as platival ; + FROM act WHERE scd = '5124' OR scc = '5124' ; + INTO CURSOR tact + +SELECT bancaval +APPEND FROM DBF('tact') +USE IN tact + + +SELECT banvnume +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + +SELECT nume_3 as bancaval, nume_4 as numeval, ; + sum(IIF(scd = '5124', suma, 00000000000000)) as incasari, ; + sum(IIF(scc = '5124', suma, 00000000000000)) as plati, ; + sum(IIF(scd = '5124', suma_2, 000000000000.00)) as incasval, ; + sum(IIF(scc = '5124', suma_2, 000000000000.00)) as platival ; + FROM act WHERE scd = '5124' OR scc = '5124' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT banvnume + LOCATE FOR ALLTRIM(nume_3) = ALLTRIM(ot.bancaval) + IF !FOUND() + APPEND blank + REPLACE nume_3 WITH ot.bancaval + REPLACE numeval WITH ot.numeval + ENDIF + REPLACE incasari WITH incasari + ot.incasari, plati WITH plati + ot.plati + REPLACE incasval WITH incasval + ot.incasval, platival WITH platival + ot.platival + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN banvnumeP + +*!* SELE BANCAVAL +*!* IF FLOCK() +*!* DELE ALL +*!* SET ORDER TO TAG COD +*!* &&&ZAP + +*!* SELE BANVNUME +*!* USE + +*!* SELE 0 +*!* USE &dateA\BANVNUME + +*!* m.DATAIREG={} +*!* m.COD=-1 +*!* m.INCASARI=0 +*!* m.PLATI=0 +*!* m.incasval=0 +*!* m.platival=0 +*!* m.scd='' +*!* m.scc='' +*!* m.CURSSCHIMB=0 +*!* m.CURSBNR=0 +*!* SELE BANVNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* m.BANCA=m.nume_3 +*!* SELE BANCAVAL +*!* APPE BLANK +*!* m.INCASARI=M.INCASARI-M.PLATI +*!* m.incasval=M.incasval-M.platival +*!* m.PLATI=0 +*!* m.platival=0 +*!* GATHER MEMVAR +*!* SELE BANVNUME +*!* ENDSCAN + +*!* SELE BANVNUME +*!* USE +*!* SELE BANCAVAL +*!* m.BANCA='BANCA COMPENSARI' +*!* m.INCASARI=0 +*!* m.incasval=0 +*!* APPE BLANK +*!* GATHER MEMVAR + +*!* SELE act +*!* SCAN FOR scd='5124' +*!* SCATTER MEMVAR +*!* SELE BANCAVAL +*!* m.BANCA=M.nume_3 +*!* m.INCASARI=M.suma + +*!* m.incasval=M.suma_2 +*!* m.CURSSCHIMB=M.SUMA_3 + +*!* m.SBNR=SUBSTR(M.EXPLICATIA,8,14) +*!* m.CURSBNR=VAL(M.SBNR) +*!* m.PLATI=0 +*!* m.platival=0 +*!* m.NUMEVAL=m.nume_4 +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN + +*!* SELE act +*!* SCAN FOR scc='5124' +*!* SCATTER MEMVAR +*!* SELE BANCAVAL +*!* m.BANCA=M.nume_3 +*!* m.PLATI=M.suma +*!* m.platival=M.suma_2 +*!* m.CURSSCHIMB=M.SUMA_3 +*!* m.SBNR=SUBSTR(M.EXPLICATIA,8,14) +*!* m.CURSBNR=VAL(M.SBNR) +*!* m.INCASARI=0 +*!* m.incasval=0 +*!* m.NUMEVAL=m.nume_4 +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF +*!* &&REFACERE BANVNUME DUPA BANCAVAL===================== +*!* SELE 0 +*!* USE &DATE\BANVNUME +*!* IF FLOCK() +*!* DELE ALL + +*!* &&NUMELE BANCILOR============= +*!* SELE BANCAVAL +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE BANVNUME +*!* LOCA FOR nume_3=M.BANCA +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL nume_3 WITH M.BANCA +*!* ENDIF +*!* SELE BANVNUME +*!* REPL NUMEVAL WITH m.NUMEVAL +*!* SELE BANCAVAL +*!* ENDSCAN +*!* &&VALORILE========== +*!* SELE BANVNUME +*!* SCAN +*!* SCATTER FIEL nume_3 MEMVAR +*!* SELE BANCAVAL +*!* SUM INCASARI,PLATI,incasval,platival TO M.INCASARI,M.PLATI,M.incasval,M.platival FOR ALLT(BANCA)=ALLT(M.nume_3) +*!* IF EMPTY(ALLT(M.nume_3)) +*!* SUM INCASARI,PLATI,incasval,platival TO M.INCASARI,M.PLATI,M.incasval,M.platival FOR EMPTY(ALLT(BANCA)) +*!* ENDIF +*!* SELE BANVNUME +*!* REPL INCASARI WITH M.INCASARI +*!* REPL PLATI WITH M.PLATI +*!* REPL incasval WITH M.incasval +*!* REPL platival WITH M.platival +*!* SELE BANVNUME +*!* ENDSCAN +*!* ENDIF +*!* UNLOCK IN BANCA +*!* UNLOCK IN BANCAVAL + +SELE BANCAVAL +SET ORDER TO TAG DATAIREG +RETURN + + + + +*__________________________________________________ +PROCEDURE REFCec +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +USE &dateA\CECnume IN 0 SHARED ALIAS CECNUMEP +IF TYPE('CECnumep.precdeb') # 'U' + SELECT CEC, precdeb + INCARCAT as precdeb, preccred + plati as preccred FROM CECnumeP ; + INTO CURSOR tprec ORDER BY CEC +ELSE + SELECT CEC, INCARCAT as precdeb, plati as preccred FROM CECnumeP ; + INTO CURSOR tprec ORDER BY CEC +ENDIF + +SELE CEC +IF FLOCK() + DELETE ALL + m.CEC = 'SOLD' + m.DATAIREG = {} + m.COD = -1 + m.INCARCAT = 0 + m.PLATI = 0 + m.scd = '' + m.scc = '' + SELE tprec + SCAN + SCATTER MEMVAR + SELE CEC + GOTO BOTTOM + APPE BLANK + m.INCARCAT=M.precdeb-M.preccred + m.PLATI=0 + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, CEC, scd, scc,; + IIF(scd = '5112', suma, 00000000000000) as INCARCAT, ; + IIF(scc = '5112', suma, 00000000000000) as plati ; + FROM act WHERE scd = '5112' OR scc = '5112' ; + INTO CURSOR tact + +SELECT CEC +APPEND FROM DBF('tact') +USE IN tact + + +SELECT CECNUME +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + + SELECT CEC, ; + sum(IIF(scd = '5112', suma, 00000000000000)) as INCARCAT, ; + sum(IIF(scc = '5112', suma, 00000000000000)) as plati ; + FROM act WHERE scd = '5112' OR scc = '5112' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT CECnume + LOCATE FOR ALLTRIM(CEC) = ALLTRIM(ot.CEC) + IF !FOUND() + APPEND blank + REPLACE CEC WITH ot.CEC + ENDIF + REPLACE INCARCAT WITH INCARCAT + ot.INCARCAT, plati WITH plati + ot.plati + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN CECNUMEP + + + +*!* SELE cec +*!* *set order to tag cod +*!* IF FLOCK() +*!* DELE ALL + + +*!* SELE cecnume +*!* USE +*!* IF !FILE('&DATEA\cecnume.dbf') +*!* COPY FILE &dirgen\_alfa\an0000\date00\cecnume.* TO &dateA\*.* +*!* ENDIF +*!* SELE 0 +*!* USE &dateA\cecnume + +*!* m.DATAIREG={} +*!* m.COD=-1 +*!* m.INcarcat=0 +*!* m.PLATI=0 +*!* m.scd='' +*!* m.scc='' +*!* ********incarcare solduri precedente +*!* SELE cecnume +*!* SCAN +*!* SCATTER MEMVAR +*!* *m.cec=m.explicatia +*!* SELE cec +*!* GOTO BOTTOM +*!* APPE BLANK +*!* m.INcarcat=M.INcarcat-M.PLATI +*!* m.PLATI=0 +*!* GATHER MEMVAR +*!* SELE cecnume +*!* ENDSCAN +*!* SELE cecnume +*!* USE + +*!* **********************incarcare in cec lunca curenta +*!* SELE act +*!* SCAN FOR scd='5112' +*!* SCATTER MEMVAR +*!* SELE cec +*!* m.cec=m.EXPLICATIA +*!* m.INcarcat=M.suma +*!* m.PLATI=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN + +*!* SCAN FOR scc='5112' +*!* SCATTER MEMVAR +*!* SELE cec +*!* m.cec=m.EXPLICATIA +*!* m.PLATI=M.suma +*!* m.INcarcat=0 +*!* GOTO BOTTOM +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF + + +*!* SELE 0 +*!* USE &DATE\cecnume +*!* IF FLOCK() +*!* DELE ALL +*!* &&&exclusive +*!* &&&zap +*!* ********************incarcare denumiri in ccecnume +*!* SELE cec +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE cecnume +*!* LOCA FOR ALLTRIM(cec)=ALLTRIM(M.cec) +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL cec WITH M.cec +*!* ENDIF +*!* SELE cec +*!* ENDSCAN +*!* *************************incarcare soduri in cecnume +*!* SELE cecnume +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE cec +*!* SUM INcarcat,PLATI TO M.INcarcat,M.PLATI FOR cec=M.cec +*!* SELE cecnume +*!* REPL INcarcat WITH M.INcarcat +*!* REPL PLATI WITH M.PLATI +*!* SELE cecnume +*!* ENDSCAN +*!* ENDIF +*!* UNLOCK IN cec +*!* UNLOCK IN cecnume + +SELE cec +SET ORDER TO TAG DATAIREG +RETURN + + + +*_________________________________________ +PROCEDURE REDAU +PARAMETERS CT,ALI,ETI,CIMP +IF ETI='M.NUME_2' + CIMP1='NUME_2' +ELSE + CIMP1='NUME' +ENDIF + +SELE &ALI +SELE act +SCAN FOR &CT + SCATTER MEMVAR + SELE &ALI + SEEK &ETI + IF FOUND() + REPL &CIMP WITH &CIMP +M.suma +*!* IF INLIST(UPPER(ALI),'FURNIZOR','CLIENTI',"RCLI",'ANA408','CLIENT4118') +*!* REPL COD_FISCAL WITH m.COD_FISCAL +*!* ENDIF + lcCod = m.COD_FISCAL + IF EMPTY(COD_FISCAL) AND !EMPTY(lcCod) + REPLACE COD_FISCAL WITH lcCod + ENDIF + + ELSE + GOTO BOTTOM + APPE BLANK + REPL &CIMP1 WITH &ETI + REPL &CIMP WITH &CIMP +M.suma + IF INLIST(UPPER(ALI),'FURNIZOR','CLIENTI',"RCLI",'ANA408','CLIENT4118') + REPL COD_FISCAL WITH m.COD_FISCAL + ENDIF + GO TOP + ENDIF + SELE act +ENDSCAN +RETURN + + +*_________________________________________ +PROCEDURE REDAUVAL +PARAMETERS CT,ALI,ETI,CIMP +IF ETI='M.NUME_2' + CIMP1='NUME_2' +ELSE + CIMP1='NUME' +ENDIF +SELE &ALI +SELE act +SCAN FOR &CT + SCATTER MEMVAR + IF M.SUMA_3#0 + SELE &ALI + SEEK &ETI + IF FOUND() + REPL &CIMP WITH &CIMP +M.suma_2 + REPLACE NUMEVAL WITH M.nume_4 +*If Inlist(Upper(ALI),'FURNIZOR','CLIENTI') +* REPL COD_FISCAL WITH m.COD_FISCAL +*Endif + ELSE + GOTO BOTTOM + APPE BLANK + REPL &CIMP1 WITH &ETI + REPL &CIMP WITH &CIMP +M.suma_2 + REPLACE NUMEVAL WITH M.nume_4 + REPL COD_FISCAL WITH m.COD_FISCAL + GO TOP + ENDIF + ENDIF + SELE act +ENDSCAN +RETURN + +************ +PROCEDURE REDAUsc +PARAMETERS CT,ALI,ETI,CIMP +IF ETI='M.NUME_2' + CIMP1='NUME_2' +ELSE + CIMP1='NUME' +ENDIF +SELE &ALI +SELE act +SCAN FOR &CT + SCATTER MEMVAR + SELE &ALI + SEEK &ETI + IF FOUND() + REPL &CIMP WITH &CIMP -M.suma + ELSE + GOTO BOTTOM + APPE BLANK + REPL &CIMP1 WITH &ETI + REPL &CIMP WITH &CIMP +M.suma + GO TOP + ENDIF + SELE act +ENDSCAN +RETURN + +************ +PROCEDURE REDAUscVAL +PARAMETERS CT,ALI,ETI,CIMP +IF ETI='M.NUME_2' + CIMP1='NUME_2' +ELSE + CIMP1='NUME' +ENDIF +SELE &ALI +SELE act +SCAN FOR &CT + SCATTER MEMVAR + IF M.SUMA_3#0 + SELE &ALI + SEEK &ETI + IF FOUND() + REPL &CIMP WITH &CIMP -M.suma_2 + REPLACE NUMEVAL WITH M.nume_4 + ELSE + GOTO BOTTOM + APPE BLANK + REPL &CIMP1 WITH &ETI + REPL &CIMP WITH &CIMP +M.suma_2 + REPLACE NUMEVAL WITH M.nume_4 + GO TOP + ENDIF + ENDIF + SELE act +ENDSCAN +RETURN + + + + +*_________________________________________ + +PROCEDURE REFDEBITOR +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\DEBITOR.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'DEBITOR.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\DEBITOR.DBF IN 0 ALIAS DEBITORU + +SELECT DEBITORU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('DEBITORu.totdeb') = 'U' + SELECT NUME,COD_FISCAL, LUAT AS precdeb, DAT AS preccred FROM DEBITORU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit, totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('DEBITORu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM DEBITORU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM DEBITORU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN DEBITORU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '461', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '461', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '461', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '461', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '461', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('461',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t461 GROUP BY 1, 2, 3 + +SELECT t461 +SCAN + SCATTER NAME o461 + SELECT rcli + SEEK LEFT(o461.NUME,30) + o461.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o461.COD_FISCAL + ENDIF + REPLACE debit WITH debit + o461.debit, credit WITH credit + o461.credit, valdebit WITH valdebit + o461.valdebit, valcredit WITH valcredit + o461.valcredit + ELSE + SEEK LEFT(o461.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o461.acont + REPLACE debit WITH debit + o461.debit, credit WITH credit + o461.credit, valdebit WITH valdebit + o461.valdebit, valcredit WITH valcredit + o461.valcredit + ELSE + APPEND BLANK + GATHER NAME o461 + ENDIF + ENDIF + + SELECT t461 +ENDSCAN +RELEASE o461 +USE IN t461 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT DEBITOR +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT DEBITOR +SET ORDER TO TAG NANA +RETURN + + +*_________________________________________ + +PROCEDURE REFCreditor +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\creditor.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'creditor.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\creditor.DBF IN 0 ALIAS creditorU + +SELECT creditorU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('creditoru.totdeb') = 'U' + SELECT NUME,COD_FISCAL, DAT AS precdeb, LUAT AS preccred FROM creditorU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit, totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('creditoru.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM creditorU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM creditorU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN creditorU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA +SELECT IIF(LEFT(scc,3) = '462' AND INLIST(LEFT(scd,3),'411','451') AND !EMPTY(nume_2), nume_2, NUME) AS NUME, ; +IIF(LEFT(scd,3) = '462', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '462', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '462', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '462', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '462', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('462',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t462 GROUP BY 1, 2, 3 + +SELECT t462 +SCAN + SCATTER NAME o462 + SELECT rcli + SEEK LEFT(o462.NUME,30) + o462.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o462.COD_FISCAL + ENDIF + REPLACE debit WITH debit + o462.debit, credit WITH credit + o462.credit, valdebit WITH valdebit + o462.valdebit, valcredit WITH valcredit + o462.valcredit + ELSE + SEEK LEFT(o462.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o462.acont + REPLACE debit WITH debit + o462.debit, credit WITH credit + o462.credit, valdebit WITH valdebit + o462.valdebit, valcredit WITH valcredit + o462.valcredit + ELSE + APPEND BLANK + GATHER NAME o462 + ENDIF + ENDIF + + SELECT t462 +ENDSCAN +RELEASE o462 +USE IN t462 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT creditor +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT creditor +SET ORDER TO TAG NANA +RETURN + +*_________________________________________ +PROCEDURE VERdebitor +SELECT DEBITOR +SUM LUAT,DAT TO m.SUM1,M.SUM2 +m.SUM3=M.SUM1-M.SUM2 +SELE BAL +SEEK '461 ' +SCATTER MEMVAR +IF M.SOLDDEB # M.SUM3 + DO mesajval WITH 'Diferenta soldului cont.461 este de: ',M.SOLDDEB-M.SUM3 +*** +ELSE + DO mesaj WITH 'Nu sunt diferente la 461',' in luna: '+nl+' '+an +*** +ENDIF +RETURN + +*_________________________________________ +PROCEDURE VERcreditor +SELECT creditor +SUM LUAT,DAT TO m.SUM1,M.SUM2 +m.SUM3=M.SUM1-M.SUM2 +SELE BAL +SEEK '462 ' +SCATTER MEMVAR +IF M.SOLDCRED # M.SUM3 + DO mesajval WITH 'Diferenta soldului cont.462 este de: ',M.SOLDDEB-M.SUM3 +*** +ELSE + DO mesaj WITH 'Nu sunt diferente la 462',' in luna: '+nl+' '+an +*** +ENDIF +RETURN + + + +*____________________________________________________________________________________________________________ +*** INCEPUT PROCEDURA REFCUMP +PROCEDURE REFCump && refcumpnou + + +LOCAL lnTipTVA,llProcTva + + +llProcTva=.F. +SELECT act +IF TYPE('act.proc_tva')!="U" && daca exista campul proc_tva + llProcTva=.T. +ENDIF +DO CASE + CASE m.ctvam = 1 AND m.ctvai = 1 OR !llProcTva && firma neplatitoare de TVA + lnTipTVA = 1 + CASE (m.ctvam >1 AND m.ctvai = m.ctvam) OR !llProcTva && firma platitoare de TVA inainte de TVA REDUS + lnTipTVA = 2 + CASE (m.ctvam >=1 AND m.ctvai != m.ctvam) AND llProcTva && firma platitoare de TVA cu TVA REDUS adica am coloana proc_tva + lnTipTVA = 3 + OTHERWISE && consider firma platitoare de TVA inainte de TVA REDUS + lnTipTVA = 2 +ENDCASE + +locCond = [(SCC='401 ' OR SCC='404 ' OR (SCC='4428' AND SCD='4426'))] +IF gle4511 + SELECT * FROM act WHERE (&locCond OR COD IN (SELE DISTINCT COD FROM act WHERE (scc = '4511' AND (scd = '4426' OR !EMPTY(neimpozab))))) AND scc # '767 ' ; + INTO CURSOR tact +ELSE + SELECT * FROM act WHERE &locCond INTO CURSOR tact +ENDIF + + +*!* IF gle4511 +*!* locCond = [(SCC='401 ' OR SCC='404 ' OR (SCC='4428' AND SCD='4426') OR (scc = '4511' and (scd = '4426' or !EMPTY(neimpozab))))] +*!* ELSE +*!* locCond = [(SCC='401 ' OR SCC='404 ' OR (SCC='4428' AND SCD='4426'))] +*!* ENDIF + +SELE CUMP +IF FLOCK() + DELE ALL + + + SELE tact +*SET FILTER TO SCC='401 ' OR SCC='404 ' OR (SCC='4428' AND SCD='4426') +*SET FILTER TO &locCond + + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + SCAN FOR fdoc#'Nota modificare stoc' + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,scc,scd MEMV + SELE CUMP + LOCA FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + IF !FOUND() + SELE CUMP + APPE BLAN + GATH MEMV +* REPLACE scd WITH m.scc && nu-i bine din cauza selectiei : Marfa - Alte achizitii + ENDIF + SELE tact + ENDSCAN +******* +SELECT cump + + + SELE CUMP + SCAN + SCAT MEMV + SELE tact + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + IF USED('tact5') + USE IN tact5 + ENDIF + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + SELECT suma,neimpozab,scd,scc FROM tact ; + WHERE NUME=m.NUME AND dataact=m.dataact AND nract=m.nract ; + INTO CURSOR tact5 NOFILTER + OTHERWISE + SELECT suma,neimpozab,scd,scc,IIF(proc_tva=0 AND neimpozab=0,m.ctvam,proc_tva) AS proc_tva FROM tact ; + WHERE NUME=m.NUME AND dataact=m.dataact AND nract=m.nract ; + INTO CURSOR tact5 NOFILTER + + ENDCASE + SELECT tact5 + SCAN + DO CASE + CASE scd='4426' + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + m.tvaM=M.tvaM+suma + OTHERWISE && dupa tva redus + IF proc_tva=m.ctvam OR proc_tva=0 + m.tvaM=M.tvaM+suma + ELSE + IF proc_tva=m.ctvai + m.tvaI=m.tvaI+suma + ENDIF + ENDIF + ENDCASE + + + CASE scd#'4426' + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + m.totftvaM=M.totftvaM+(suma-neimpozab) + OTHERWISE + IF proc_tva=m.ctvam OR (proc_tva=0 AND neimpozab=0) + m.totftvaM=M.totftvaM+(suma-neimpozab) + ELSE + IF proc_tva=m.ctvai + m.totftvaI=M.totftvaI+(suma-neimpozab) + ENDIF + ENDIF + ENDCASE + + + m.neimpozab=m.neimpozab+neimpozab + + IF LEFT(scd,3)='371' + m.scd=scd + ENDIF +*!* IF SCD='635 ' + +*!* m.neimpozab=m.neimpozab+SUMA +*!* DO CASE +*!* CASE INLIST(lnTipTVA,1,2) && inainte de tva redus +*!* m.totftvaM=m.totftvaM-SUMA +*!* OTHERWISE +*!* IF proc_tva=m.ctvam OR (proc_tva=0 AND neimpozab=0) +*!* m.totftvaM=m.totftvaM-SUMA +*!* ELSE +*!* IF proc_tva=m.ctvai +*!* m.totftvaI=m.totftvaI-SUMA +*!* ENDIF +*!* ENDIF +*!* ENDCASE +*!* ENDIF + ENDCASE + + + ENDSCAN + IF USED('tact5') + USE IN tact5 + ENDIF + +*!* Scan For NUME=m.NUME And dataact=m.dataact And nract=m.nract +*!* Do Case +*!* Case SCD='4426' +*!* m.tvaM=M.tvaM+SUMA + +*!* Case SCD#'4426' +*!* m.totftvaM=M.totftvaM+(SUMA-neimpozab) +*!* m.neimpozab=m.neimpozab+neimpozab +*!* If Left(SCD,3)='371' +*!* m.SCD=SCD +*!* Endif +*!* If SCD='635 ' +*!* m.neimpozab=m.neimpozab+SUMA +*!* m.totftvaM=m.totftvaM-SUMA +*!* Endif +*!* Endcase +*!* ENDSCAN + + +*********** + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + m.totctva=M.tvaM+M.totftvaM+M.neimpozab + SELE CUMP + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva + OTHERWISE + m.totctva=M.tvaM+M.totftvaM+m.tvaI+m.totftvaI+M.neimpozab + SELE CUMP + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + tvaI WITH M.tvaI; + totftvaI WITH M.totftvaI; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva + ENDCASE +*************************************** + SELECT FURNIZOR + LOCATE FOR NUME = m.NUME + IF FOUND() + lcCodFiscal = COD_FISCAL + SELECT CUMP + REPLACE COD_FISCAL WITH lcCodFiscal + ENDIF +**************************************** + SELECT CUMP + + ENDSCAN + +************** + + SELE act +* SCAN FOR SCD='408 ' + SCAN FOR scd='4426' AND scc='4428' &&&&&&& modificare la 11 martie 2004, Georgiana + SCAT MEMV + SELE CUMP + LOCA FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + IF FOUND() + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus +* REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) + IF totftvaM # 0 && pt 4426 = 4428 fara baza + REPL totftvaM WITH totftvaM - m.suma + ENDIF + REPL totctva WITH totftvaM+tvaM+neimpozab + OTHERWISE + IF m.proc_tva=m.ctvam OR (m.proc_tva=0 AND m.neimpozab=0) +* REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) + IF totftvaM # 0 && pt 4426 = 4428 fara baza + REPLACE totftvaM WITH totftvaM - m.suma + ENDIF + ELSE + IF m.proc_tva=m.ctvai +* REPLACE totftvai WITH ROUND(tvai/(m.ctvai-1),0) + IF totftvaI # 0 && pt 4426 = 4428 fara baza + REPLACE totftvaI WITH totftvaI - m.suma + ENDIF + ENDIF + ENDIF + REPL totctva WITH totftvaM+tvaM+totftvaI+tvaI+neimpozab + ENDCASE + + ENDIF + SELE act + ENDSCAN + + + IF gle4511 + LlCondScan = [INLIST(LEFT(scd, 3), '401', '404', '451')] + ELSE + LlCondScan = [INLIST(LEFT(scd, 3), '401', '404')] + ENDIF + SELE act + SET FILTER TO + SCAN FOR scc='767 ' AND &LlCondScan &&INLIST(LEFT(scd, 3), '401', '404', '451') + + SCAT MEMV + SELE CUMP + LOCA FOR nract=m.nract AND NUME=m.NUME +*REPL TOTFTVAM WITH TOTFTVAM-TVAM+neimpozab + IF FOUND() + IF m.neimpozab#0 + REPLACE neimpozab WITH neimpozab-M.suma + ELSE + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + REPL totftvaM WITH totftvaM-m.suma + OTHERWISE + IF M.proc_tva=m.ctvam OR (M.proc_tva=0 AND M.neimpozab=0) + REPL totftvaM WITH totftvaM - m.suma + ELSE + IF M.proc_tva=m.ctvai + REPL totftvaI WITH totftvaI-m.suma + ENDIF + ENDIF + ENDCASE + ENDIF + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + REPL totctva WITH totftvaM+tvaM+neimpozab + OTHERWISE + REPL totctva WITH totftvaM+tvaM+totftvaI+tvaI+neimpozab + ENDCASE + ENDIF + SELE act + ENDSCAN + + SELE act + SET FILTER TO + IF USED('tact') + USE IN tact + ENDIF + +ENDIF +UNLOCK IN CUMP + + +ENDPROC +*** SFARSIT PROCEDURA REFCUMP +*_________________________________________________________________________________________________ +*_________________________________________________________________________________________________ +*** INCEPUT PROCEDURA REFVANZ +PROCEDURE REFVanz +LOCAL lnTipTVA,llProcTva + +llProcTva=.F. +SELECT act +IF TYPE('act.proc_tva')!="U" && daca exista campul proc_tva + llProcTva=.T. +ENDIF +DO CASE + CASE (m.ctvam = 1 AND m.ctvai = 1) OR !llProcTva && firma neplatitoare de TVA + lnTipTVA = 1 + CASE (m.ctvam >1 AND m.ctvai = m.ctvam) OR !llProcTva && firma platitoare de TVA inainte de TVA REDUS + lnTipTVA = 2 + CASE (m.ctvam >=1 AND m.ctvai != m.ctvam) AND llProcTva && firma platitoare de TVA cu TVA REDUS adica am coloana proc_tva + lnTipTVA = 3 + OTHERWISE && consider firma platitoare de TVA inainte de TVA REDUS + lnTipTVA = 2 +ENDCASE + +COPY FILE &dirgen\_alfa\an0000\date00\VANZ.* TO &loc\&nfscurt\tempo\vanz0.* + +USE &loc\&nfscurt\tempo\vanz0 IN 0 ALIAS vanz0 EXCLUSIVE +SELECT vanz0 +INDEX ON NUME+DTOC(dataact)+STR(nract,14)+scd TAG ndn OF &loc\&nfscurt\tempo\vanz0 +SET ORDER TO TAG ndn + + +*!* Sele VANZ +*!* If Flock() +*!* Dele All +SELECT vanz0 + +IF gle4511 + locCond = [(LEFT(SCD,3)='411' AND SCD#'4118') OR (SCD='635 ' AND SCC='4427') OR (scd = '4511' AND (SCC='4427' OR neimpozab # 0))] +ELSE + locCond = [(LEFT(SCD,3)='411' AND SCD#'4118') OR (SCD='635 ' AND SCC='4427')] +ENDIF + +&& adaug inregistrari pt prima oara--------------------------------------------------- +SELECT act +*SET FILTER TO (LEFT(SCD,3)='411' AND SCD#'4118') OR (SCD='635 ' AND SCC='4427') && OR (LEFT(SCD,3)='428' AND SCC='4427') OR (SCD='4428' AND SCC='4427') +SET FILTER TO &locCond +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,scd MEMV + SELE vanz0 + SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14)+m.scd + IF !FOUND() + SELE vanz0 + APPEND BLAN + GATH MEMV + ENDIF + SELE act +ENDSCAN + + +SELECT act +SET FILTER TO + +SELECT DISTINCT COD FROM act WHERE scd='461 ' AND (scc='4427' OR neimpozab # 0) INTO CURSOR C461 +SELECT COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,suma,scd FROM act; +WHERE COD IN (SELECT DISTINCT COD FROM C461); +INTO CURSOR CC461 ORDER BY dataact + +SELECT CC461 +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,scd MEMV + SELE vanz0 + SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14)+m.scd + IF !FOUND() + SELE vanz0 + APPE BLAN + GATH MEMV + ENDIF + SELE CC461 +ENDSCAN +USE IN CC461 + +*!* SELECT DISTINCT COD FROM ACT WHERE SCC='4118' AND SCD='4427' INTO CURSOR C4118 +*!* SELECT COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,SUMA,SCD FROM ACT; +*!* WHERE COD IN (SELECT DISTINCT COD FROM C4118); +*!* INTO CURSOR CC4118 ORDER BY dataact + +*!* SELECT CC4118 +*!* STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +*!* SCAN +*!* SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,SCD MEMV +*!* SELE vanz0 +*!* SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14) +*!* IF !FOUND() +*!* DO CASE +*!* IF scd#4427 +*!* m.totftvam=-suma +*!* ELSE +*!* m.tvam=-suma +*!* ENDIF +*!* ENDCASE +*!* +*!* SELE vanz0 +*!* APPE BLAN +*!* GATH MEMV + +*!* +*!* ENDIF +*!* SELE CC4118 +*!* ENDSCAN +*!* USE IN CC4118 + +SELECT DISTINCT COD FROM act WHERE scc='4118' AND scd='4427' INTO CURSOR C4118 +SELECT COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,SUM(IIF(scd='4427',-suma,0)) AS tvaM ,SUM(IIF(scd#'4427',-suma,0)) AS totftvaM,scd ; +FROM act GROUP BY act.COD ; +WHERE COD IN (SELECT DISTINCT COD FROM C4118); +INTO CURSOR CC4118 ORDER BY dataact + +SELECT CC4118 +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL,scd,tvaM,totftvaM MEMV + m.totctva=m.totftvaM+m.tvaM + SELE vanz0 + SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14)+m.scd + IF !FOUND() + SELE vanz0 + APPE BLAN + GATH MEMV + REPLACE scd WITH '4118' + ENDIF + SELE CC4118 +ENDSCAN +USE IN CC4118 +******* + +SELE vanz0 +SCAN FOR scd#'4118' + SCAT MEMV + SELE act + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + SELECT suma,neimpozab,scc,scd FROM act WHERE NUME=m.NUME AND dataact=m.dataact AND nract=m.nract; + AND (scd=m.scd OR (scd='4428' AND scc='4427') OR (scd='635 ' AND scc='4427')); + INTO CURSOR act4 + OTHERWISE + SELECT IIF(LEFT(scd,3) # '419', suma, -suma) AS suma, neimpozab, scc, scd,IIF(neimpozab=0 AND proc_tva=0,m.ctvam,proc_tva) AS proc_tva FROM act WHERE NUME=m.NUME AND dataact=m.dataact AND nract=m.nract; + AND (scd=m.scd OR (scd='4428' AND scc='4427') OR (scd='635 ' AND scc='4427') OR INLIST('419',LEFT(scd,3),LEFT(scc,3))); + INTO CURSOR act4 + ENDCASE + + + SELECT act4 + GO TOP + IF (LEFT(scd,3) = '419' AND LEFT(scc,3) = '411') OR (LEFT(scc,3) = '419' AND LEFT(scd,1) = '5') + lnScd = '419' + ELSE + lnScd = m.scd + ENDIF + +******* de completat + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + SUM suma TO m.tvaM FOR scc='4427' + SUM suma-neimpozab,neimpozab TO m.totftvaM,m.neimpozab FOR scc#'4427' + OTHERWISE + SUM suma TO m.tvaM FOR scc='4427' AND proc_tva=m.ctvam + SUM suma TO m.tvaI FOR scc='4427' AND proc_tva=m.ctvai + SUM IIF(proc_tva=m.ctvam,suma-neimpozab,0),IIF(proc_tva=m.ctvai,suma-neimpozab,0),neimpozab TO m.totftvaM,m.totftvaI,m.neimpozab FOR scc#'4427' + ENDCASE + + USE IN act4 + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus + m.totctva=M.tvaM+M.totftvaM+M.neimpozab + SELE vanz0 + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva, scd WITH lnScd + OTHERWISE + m.totctva=M.tvaM+M.totftvaM+M.tvaI+M.totftvaI+M.neimpozab + SELE vanz0 + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + tvaI WITH M.tvaI; + totftvaI WITH M.totftvaI; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva, scd WITH lnScd + ENDCASE + +ENDSCAN + + +*********************** +SELE act +SET FILTER TO +*!* SCAN FOR (SCD='667 ' AND LEFT(SCC,3)='411') OR SCC='418 ' +SCAN FOR (INLIST(LEFT(scd,3),'667','622') AND INLIST(LEFT(scc,3),'411', '451')) OR (scd='4428' AND scc='4427') && modificat la 11 martie 2004, Georgiana, 622 - 27 august 2004 Marius + SCAT FIEL NUME,nract,dataact,scc,suma MEMV + IF m.scc = '4427' + m.scc = '411' + ENDIF + m.scd=m.scc + SELE vanz0 + SEEK m.NUME+DTOC(m.dataact)+STR(m.nract,14)+m.scd + IF FOUND() + DO CASE + CASE INLIST(lnTipTVA,1,2) && inainte de tva redus +*!* IF m.SCC='418 ' +*!* REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) +*!* REPL totctva WITH totftvaM+tvaM+neimpozab +*!* ELSE + IF m.ctvam # 1 + REPL totftvaM WITH totftvaM-m.suma + ELSE + REPLACE neimpozab WITH neimpozab-m.suma + ENDIF + + REPL totctva WITH totftvaM+tvaM+neimpozab +*!* ENDIF + OTHERWISE + m.proc_tva=act.proc_tva + IF m.proc_tva=0 AND neimpozab=0 + m.proc_tva=m.ctvam + ENDIF +*!* IF m.SCC='418 ' +*!* IF m.proc_tva=m.ctvam +*!* REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) +*!* ENDIF +*!* IF m.proc_tva=m.ctvai +*!* REPL totftvaI WITH ROUND(tvaI/(m.ctvaI-1),0) +*!* ENDIF +*!* REPL totctva WITH totftvaM+tvaM+totftvaI+tvaI+neimpozab +*!* ELSE + IF m.proc_tva=m.ctvam + REPL totftvaM WITH totftvaM-m.suma + ENDIF + IF m.proc_tva=m.ctvai + REPL totftvaI WITH totftvaI-m.suma + ENDIF + + REPL totctva WITH totftvaM+tvaM+totftvaI+tvaI+neimpozab +*!* ENDIF + ENDCASE + + ENDIF + SELE act +ENDSCAN + +***************** + +SELECT VANZ +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\vanz0 + +ENDIF +UNLOCK IN VANZ +USE IN vanz0 + +*** SFARSIT PROCEDURA REFVANZ************************************************************************ + +*____________________________________________________________________________________________________ + +*** REFACERE BALANTA ANALITICA FARA PRECEDENTE******************************************************* +PROCEDURE REFBALANTA_ANA &&REFBAL_ANA +IF !se_reface() + RETURN +ENDIF + +SELE BALANA +IF FLOCK() + DELETE ALL FOR EMPTY(acont) + REPLACE ALL RULDEB WITH 0; + RULCRED WITH 0 + SCAN + SCATTER MEMVAR + SELE act + IF m.acont#'0000' + SUM suma TO m.RULDEB FOR scd=m.cont AND ASCD=M.acont + SUM suma TO m.RULCRED FOR scc=m.cont AND ASCC=M.acont + ELSE + SUM suma TO m.RULDEB FOR scd=m.cont AND (ASCD=M.acont OR EMPTY(ASCD)) + SUM suma TO m.RULCRED FOR scc=m.cont AND (ASCC=M.acont OR EMPTY(ASCC)) + ENDIF + + SELE BALANA + REPL RULDEB WITH M.RULDEB; + RULCRED WITH M.RULCRED + + ENDSCAN + + IF TYPE('PRECDEB1')!="U" + DELETE ALL FOR PRECDEB1 = 0 AND PRECCRED1 = 0 AND precdeb = 0 AND preccred = 0 AND RULDEB = 0 AND RULCRED = 0 AND totdeb = 0 AND totcred = 0 AND SOLDDEB = 0 AND SOLDCRED = 0 + ELSE + DELETE ALL FOR precdeb = 0 AND preccred = 0 AND RULDEB = 0 AND RULCRED = 0 AND totdeb = 0 AND totcred = 0 AND SOLDDEB = 0 AND SOLDCRED = 0 + ENDIF + +ENDIF + +DO CALCULEAZABALANTA_ANA +*UNLOCK +RETURN + + + + +*** REFACERE BALANTA SINTETICA FARA PRECEDENTE******************************************************* +PROCEDURE REFBalanta && REFBAL +IF !se_reface() + RETURN +ENDIF + +SELE BAL +IF FLOCK() + REPLACE ALL RULDEB WITH 0; + RULCRED WITH 0 + SCAN + SCATTER MEMVAR + SELE act + SUM suma TO m.RULDEB FOR scd=SUBS(m.cont,1,4) + SUM suma TO m.RULCRED FOR scc=SUBS(m.cont,1,4) + SELE BAL + REPL RULDEB WITH M.RULDEB; + RULCRED WITH M.RULCRED + + ENDSCAN + + IF TYPE('PRECDEB1')!="U" + DELETE ALL FOR PRECDEB1 = 0 AND PRECCRED1 = 0 AND precdeb = 0 AND preccred = 0 AND RULDEB = 0 AND RULCRED = 0 AND totdeb = 0 AND totcred = 0 AND SOLDDEB = 0 AND SOLDCRED = 0 + ELSE + DELETE ALL FOR precdeb = 0 AND preccred = 0 AND RULDEB = 0 AND RULCRED = 0 AND totdeb = 0 AND totcred = 0 AND SOLDDEB = 0 AND SOLDCRED = 0 + ENDIF + +ENDIF +DO CALCULEAZABALANTA +*UNLOCK +RETURN + + + +PROCEDURE VERDIFBAL +SELE BAL +IF FLOCK() + SUM RULDEB TO M.RULDEB + SUM RULCRED TO M.RULCRED + SELE act + SUM suma TO M.suma + IF M.RULDEB #M.suma + DO VERDIFDEB + DO REFBalanta + ENDIF + IF M.RULCRED #M.suma + DO VERDIFCRED + DO REFBalanta + ENDIF +ENDIF +UNLOCK IN BAL +RETURN + +************* +PROCEDURE VERDIFDEB +SELE act +DEB=' ' +SCAN + SCATTER MEMVAR + IF M.scd#DEB + DEB=M.scd + SELE BAL + SEEK DEB + IF ! FOUND() +*WAIT WINDOWS 'CONTUL '+DEB+' NU ESTE INTRODUS IN BALANTA' +**** + WAIT WIND 'Se introduce in balanta contul '+ DEB NOWAIT + SELE PLCONT +*LOCATE FOR LEFT(CIMP1,4)=LEFT(DEB,4) + LOCATE FOR ALLTRIM(CIMP1)=ALLTRIM(DEB) + IF FOUND() + SCATTER MEMVAR + m.cont=M.CIMP1 + m.DENUMIRE=m.cimp2 + SELE BAL + APPEND BLANK +*GATHER MEMVAR + REPL CONT WITH M.cont + REPL DENUMIRE WITH M.DENUMIRE + ELSE + WAIT WINDOWS 'CONTUL '+DEB+' NU ESTE INTRODUS IN PLANUL DE CONTURI' + ENDIF + +***** + ENDIF + SELE act + ENDIF +ENDSCAN +RETURN + +PROCEDURE VERDIFCRED +SELE act +DEB=' ' +SCAN + SCATTER MEMVAR + IF M.scc#DEB + DEB=M.scc + SELE BAL + SEEK DEB + IF ! FOUND() +*WAIT WINDOWS 'CONTUL '+DEB+' NU ESTE INTRODUS IN BALANTA' + WAIT WIND 'Se introduce in balanta contul'+DEB NOWAIT + SELE PLCONT +*LOCATE FOR LEFT(CIMP1,4)=LEFT(DEB,4) + LOCATE FOR ALLTRIM(CIMP1)=ALLTRIM(DEB) + IF FOUND() + SCATTER MEMVAR + m.cont=M.CIMP1 + m.DENUMIRE=m.cimp2 + SELE BAL + APPEND BLANK +*GATHER MEMVAR + REPL CONT WITH M.cont + REPL DENUMIRE WITH M.DENUMIRE + ELSE + WAIT WINDOWS 'CONTUL '+DEB+' NU ESTE INTRODUS IN PLANUL DE CONTURI' + ENDIF + ENDIF + SELE act + ENDIF + +ENDSCAN +RETURN + + + + +*___________________________________________________________________ +PROCEDURE refstocinloc &&REFSTOC + +IF !se_reface() + RETURN +ENDIF + + +SELE rull +M=3*RECCOUNT() +OP=CREA('PROGRESBAR') +OP.titlu.CAPTION='Refacere Stocuri' +OP.SHOW() +j=0 + +SELE inloc +*Set Order To Tag CODMAT2 +REPL ALL CANT WITH 0; +CANTE WITH 0 +SELE rull +SET ORDER TO TAG COD +SCAN + SCATTER MEMVAR + SELE W50 + SEEK M.COD + IF NOT FOUND() + SELE rull + IF FLOCK() + DELETE + ENDIF + UNLOCK + ENDIF + DO pr WITH j + SELE rull +ENDSCAN + +SELECT rull +IF FLOCK() + REPLACE ALL pretvtva WITH ROUND(pretv+tvav,0) FOR !EMPTY(pretv) AND !EMPTY(tvav) AND EMPTY(pretvtva) + REPLACE ALL DATAIN WITH dataact FOR CANT#0 AND EMPTY(DATAIN) + REPLACE ALL DATAOUT WITH dataact FOR CANTE#0 AND EMPTY(DATAOUT) +ENDIF +UNLOCK + +SELE inloc +REPL ALL CANT WITH 0; +CANTE WITH 0 + +*********** +&&gestiuni la pret de achizitie: +SELECT rull.* FROM rull WHERE rull.scd # '8039' AND gest in (sele DISTINCT gest FROM numegest WHERE nrg<>6 ) ; +INTO CURSOR rullachi + +SELECT inloc +SET ORDER TO TAG achi + +SELE rullachi +SCAN + m.cants=0 + m.CANT=0 + m.CANTE=0 + SCATTER MEMVAR + SELE inloc + SEEK STR(m.gest,3)+m.scd+STR(m.PRET,14,2)+m.CODMAT+m.DENUMIRE + IF FOUND() + REPL CANTE WITH CANTE+M.CANTE + REPL CANT WITH CANT+M.CANT + IF M.CANT#0 + REPLACE DATAIN WITH M.DATAIN + ELSE + REPLACE DATAOUT WITH M.DATAOUT + ENDIF + ELSE + APPEND BLANK + GATHER MEMV + ENDIF + + DO pr WITH j + SELE rullachi +ENDSCAN +USE IN rullachi + +&&gestiuni la pret de vanzare: +SELECT rull.* FROM rull WHERE gest in (sele DISTINCT gest FROM numegest WHERE nrg=6 ); +INTO CURSOR rullvanz + +SELECT inloc +SET ORDER TO TAG VANZ + +SELE rullvanz +SCAN + m.cants=0 + m.CANT=0 + m.CANTE=0 + SCATTER MEMVAR + SELE inloc + SEEK STR(m.gest,3)+m.scd+STR(m.PRET,14,2)+STR(m.pretvtva,14,2)+ m.CODMAT+m.DENUMIRE + +*!* Loca For GEST=M.GEST And SCD=M.SCD ; +*!* AND PRET=M.PRET AND PRETvtva=M.PRETvtva ; +*!* And Allt(CODMAT)=Allt(M.CODMAT) And Allt(DENUMIRE)=Allt(M.DENUMIRE) + IF FOUND() + REPL CANTE WITH CANTE+M.CANTE + REPL CANT WITH CANT+M.CANT + IF M.CANT#0 + REPLACE DATAIN WITH M.DATAIN + ELSE + REPLACE DATAOUT WITH M.DATAOUT + ENDIF + ELSE + APPEND BLANK + GATHER MEMV + ENDIF + + DO pr WITH j + SELE rullvanz +ENDSCAN +USE IN rullvanz + +OP.RELEASE +RETURN + + +*________________________________________________________________ +PROCEDURE refstoc &&refstint +LOCAL lp,ap +_SCREEN.MOUSEPOINTER=11 + +SET SAFETY OFF + +SELE calendar +LOCA FOR nl=m.nl AND an=m.an +SKIP -1 +IF BOF() + + dateA=dirgen+'\_alfa\an0000\date00' +ELSE + lp=nl + ap=an + dateA=calefirma+'\an'+ap+'\'+'date'+lp +ENDIF +dateb=calefirma+'\an'+m.an+'\'+'date'+M.nl + +SELE rull +SET FILTER TO + +SELE STOC +SET FILTER TO + +&&refacere fisier inlocuitor inloc +COPY FILE &dateA\STOC.* TO &loc\&nfscurt\tempo\inloc.* + +USE &loc\&nfscurt\tempo\inloc IN 0 ALIAS inloc EXCL +SELECT inloc +REPL ALL cants WITH cants+CANT-CANTE +DELE ALL FOR cants=0 +DELETE ALL FOR scd = '8039' +PACK + +SELECT inloc +INDEX ON STR(gest,3)+scd+STR(PRET,14,2)+ CODMAT+DENUMIRE TAG achi OF &loc\&nfscurt\tempo\inloc +INDEX ON STR(gest,3)+scd+STR(PRET,14,2)+STR(pretvtva,14,2)+ CODMAT+DENUMIRE TAG VANZ OF &loc\&nfscurt\tempo\inloc + + +DO refstocinloc &&REFSTOC + +SELECT inloc +ALTER TABLE inloc ADD COLUMN detoate c(175) +SET FILTER TO +INDEX ON detoate TAG detoate OF &loc\&nfscurt\tempo\inloc +SET ORDER TO TAG detoate +REPLACE ALL detoate WITH STR(gest,3)+scd+STR(PRET,14,2)+STR(pretvtva,14,2)+ CODMAT+DENUMIRE + +SELECT inloc +SET FILTER TO +TOTAL TO &loc\&nfscurt\tempo\inloctot ON detoate FIELDS CANT,CANTE,cants + + +USE &loc\&nfscurt\tempo\inloctot IN 0 ALIAS inloctot + +*DO suprapune WITH 'stoc','inloc' +SELECT STOC +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\inloctot +ENDIF +UNLOCK +USE IN inloc +USE IN inloctot + +SELECT STOC +SET ORDER TO TAG DENUMIRE + +_SCREEN.MOUSEPOINTER=0 +RETURN + + + + + + + +*________________________________________________________________ +PROCEDURE REFCumpAn && refcumpnouAN +LOCAL L,A +LOCAL M.BAZA, M.NE, M.TX + +L=M.nl +A=M.an + +SELE actan +M=3*RECCOUNT() +OP=CREA('PROGRESBAR') +OP.titlu.CAPTION='Refacere Total Cumparari' +OP.SHOW() +j=0 + +SELE CUMPAN +USE +SELE CUMP +USE +SELE act +USE +SELECT 0 +USE &datEAN\CUMPAN.DBF EXCLUSIVE ALIAS CUMP +ZAP +SELE actan +SET FILTER TO scc='401 ' OR scc='404 ' OR (scc='4428' AND scd='4426') +*SET FILTER TO SCC='401 ' OR SCC='404 ' OR SCC='4428' +*SET FILTER TO SCC='401 ' OR SCC='404 ' +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL MEMV + SELE CUMP + LOCA FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + IF !FOUND() + SELE CUMP + GO BOTTOM + APPE BLAN + GATH MEMV + ENDIF + DO pr WITH j + SELE actan +ENDSCAN +******* +SELE CUMP +SCAN + SCAT MEMV + SELE actan + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + SCAN FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + DO CASE + CASE scd='4426' + m.tvaM=M.tvaM+suma + + CASE scd#'4426' + m.totftvaM=M.totftvaM+(suma-neimpozab) + m.neimpozab=m.neimpozab+neimpozab + IF scd='635 ' +*M.TX=.T. + m.neimpozab=m.neimpozab+suma + m.totftvaM=m.totftvaM-suma + ENDIF + ENDCASE + + ENDSCAN + +*********** + + m.totctva=M.tvaM+M.totftvaM+M.neimpozab + SELE CUMP + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva + DO pr WITH j +ENDSCAN +SELE actan +SCAN FOR scd='408 ' + SCAT MEMV + SELE CUMP + LOCA FOR nract=m.nract AND NUME=m.NUME +*REPL TOTFTVAM WITH TOTFTVAM-TVAM + REPL totftvaM WITH ROUND(tvaM/(m.ctvam-1),0) + REPL totctva WITH totftvaM+tvaM+neimpozab + DO pr WITH j + SELE actan +ENDSCAN + +SELE CUMP +USE + +OP.RELEASE +*SELECT 0 +*USE &dateAN\cumpAN.dbf alias cumpan + +************DO RC1.PRG +m.an=A +m.nl=L +CLOSE DATABASE +DO TOTV.PRG +RETURN + + +*___________________________________________________________________________________________ +PROCEDURE refVANZAN +LOCAL L,A +LOCAL M.BAZA, M.NE, M.TX + +L=M.nl +A=M.an + +SELE actan +M=2*RECCOUNT() +OP=CREA('PROGRESBAR') +OP.titlu.CAPTION='Refacere Total Vanzari' +OP.SHOW() +j=0 + +SELE VANZAN +USE +SELE VANZ +USE +SELE CUMP +USE +SELE act +USE +SELECT 0 +USE &datEAN\VANZAN.DBF EXCLUSIVE ALIAS CUMP +ZAP +SELE actan +SET FILTER TO INLIST(scd,'411 ','461 ','4118') OR (scd='4428' AND scc='4427') OR (scd='635 ' AND scc='4427') +&&SET FILTER TO SCd='411 ' or (scd='4428' and scc='4427') +*OR (SCD='635 ' AND SCC='4427') +*SET FILTER TO SCD='411 ' or (scd='4428' and !inlist(left(scc,3),'371','408')) +STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA +SCAN + SCAT FIEL COD,DATAIREG,dataact,NUME,fdoc,nract,datascad,COD_FISCAL MEMV + SELE CUMP + LOCA FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + IF !FOUND() + SELE CUMP + GO BOTTOM + APPE BLAN + GATH MEMV + ENDIF + DO pr WITH j + SELE actan +ENDSCAN +******* +SELE CUMP +SCAN + SCAT MEMV + SELE actan + STORE 0 TO M.totftvaI,M.totftvaM,M.neimpozab,M.tvaI,M.tvaM,M.totctva,M.BAZA + SCAN FOR NUME=m.NUME AND dataact=m.dataact AND nract=m.nract + DO CASE + CASE scc='4427' + m.tvaM=M.tvaM+suma + + CASE scc#'4427' + m.totftvaM=M.totftvaM+(suma-neimpozab) + m.neimpozab=m.neimpozab+neimpozab + m.sumaval=m.sumaval+suma_2 + m.NUMEVAL=nume_4 + m.CURSSCHIMB=SUMA_3 + + + ENDCASE + + ENDSCAN + +*********** + + m.totctva=M.tvaM+M.totftvaM+M.neimpozab + SELE CUMP + REPL tvaM WITH M.tvaM; + totftvaM WITH M.totftvaM; + neimpozab WITH M.neimpozab; + totctva WITH M.totctva + DO pr WITH j + SELE actan +ENDSCAN + +SELE CUMP +USE + +SELECT 0 +USE &datEAN\VANZAN.DBF ALIAS VANZAN + +OP.RELEASE +*********************DO RV1.PRG +m.an=A +m.nl=L +CLOSE DATABASE +DO TOTV.PRG +RETURN + +*-------------------------------------------------------------- + +*** REFACERE BALANTA SINTETICA CU PRECEDENTE +PROCEDURE REFBal && REFBalanta +LOCAL dateA + +IF !se_reface() + RETURN +ENDIF +SET SAFETY OFF + + +*** adaug in balanta curenta balanta din luna precedenta +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +IF FOUND() + SKIP -1 + IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla + ELSE + dateA=dirgen+'\_alfa\an0000\date00\' && 'Aceasta este prima luna deschisa!','' + ENDIF + DATE=calefirma+'\an'+m.an+'\date'+m.nl +ELSE + DO mesaj WITH 'Fisierul Calendar.dbf este defect!','' + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +SELE BAL +IF FLOCK() + DELE ALL + APPE FROM &dateA\BAL.DBF FOR !DELETED() + UNLOCK +ENDIF + + +*** verific daca am campurile de solduri la 1 ianuarie +llNuSold=.F. +IF TYPE('precdeb1')!="U" && am campurile precdeb1, deci trebuie sa completez soldul de la 1 ianuarie + llNuSold=.T. +ENDIF + + +*** caut prima balanta din anul curent care are campuri cu solduri de la 1 ianuarie +llgasit=.F. +lcBal1ian=calefirma+'\an'+m.an+'\date01\bal.dbf' +IF llNuSold + lnan=VAL(m.an) + + FOR i=1 TO 12 + SELECT calendar + LOCATE FOR VAL(an)=lnan AND VAL(nl)=i AND VAL(nl)!=VAL(m.nl) + IF FOUND() + lcBal1ian=calefirma+'\an'+calendar.an+'\date'+calendar.nl+'\bal.dbf' + IF FILE(lcBal1ian) + USE (lcBal1ian) IN 0 AGAIN SHARED ALIAS bal1ian + SELECT bal1ian + IF TYPE("precdeb1")!="U" && exxista campul precdeb1 in balanta selectata + USE IN bal1ian + llgasit=.T. + EXIT + ENDIF + USE IN bal1ian + ENDIF + ENDIF + ENDFOR +ENDIF + + + +*** daca am campul de sold la 1 ianuarie le preiau din prima balanta cu solduri la 1 ianuarie din anul respectiv +IF llNuSold + IF llgasit && daca am gasit prima balanta sintetica cu solduri la 1 ianuarie + + USE (lcBal1ian) IN 0 AGAIN SHARED ALIAS bal1ian + SELECT CONT,PRECDEB1,PRECCRED1 FROM bal1ian INTO CURSOR t1ian ORDER BY CONT + SELECT BAL + IF FLOCK() + REPLACE ALL PRECDEB1 WITH 0,PRECCRED1 WITH 0 + SCAN + lcCont=CONT + lnprecdeb1=PRECDEB1 + lnpreccred1=PRECCRED1 + + SELECT t1ian + LOCATE FOR CONT=lcCont + IF FOUND() + lnprecdeb1=PRECDEB1 + lnpreccred1=PRECCRED1 + ENDIF + + SELECT BAL + REPLACE PRECDEB1 WITH lnprecdeb1,PRECCRED1 WITH lnpreccred1 + ENDSCAN + UNLOCK IN BAL + ENDIF + USE IN bal1ian + USE IN t1ian + ENDIF + +ENDIF + + +SELE BAL +SET ORDER TO TAG CONT + +SELE BAL +IF FLOCK() + IF m.nl='01' + REPL ALL precdeb WITH 0,preccred WITH 0 + REPL ALL precdeb WITH SOLDDEB,preccred WITH SOLDCRED + IF llNuSold && AM CAMPURILE DE SOLDURI LA 1 IANUARIE + REPLACE ALL PRECDEB1 WITH SOLDDEB,PRECCRED1 WITH SOLDCRED + ENDIF + ELSE + + REPL ALL precdeb WITH 0, preccred WITH 0 + REPL ALL RULDEB WITH 0, RULCRED WITH 0 + REPL ALL precdeb WITH totdeb, preccred WITH totcred + ENDIF + UNLOCK +ENDIF + +DO REFBalanta +DO VERDIFBAL +DO CALCULEAZABALANTA + + +DO REFBALANA +RETURN + +*_______________________________________________________________________________________ + +*** REFACERE BALANTA ANALITICA CU PRECEDENTE*** +PROCEDURE REFBALANA && RefBalanta_ana +LOCAL dateA + +IF !se_reface() + RETURN +ENDIF + +SET SAFETY OFF + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' && 'Aceasta este prima luna deschisa!','' +ENDIF +DATE=calefirma+'\an'+m.an+'\date'+m.nl + + +*** caut bal si balana din prima luna din anul curent pt soldurile de la 1 ianuarie in caz ca nu gasesc in balanta precedenta +llgasit=.F. +lcBal1ian=calefirma+'\an'+m.an+'\date01\bal.dbf' +lnan=VAL(m.an) + +FOR i=1 TO 12 + SELECT calendar + LOCATE FOR VAL(an)=lnan AND VAL(nl)=i + IF FOUND() + lcBal1ian=calefirma+'\an'+calendar.an+'\date'+calendar.nl+'\balana.dbf' + IF FILE(lcBal1ian) + USE (lcBal1ian) IN 0 AGAIN SHARED ALIAS bal1ian + SELECT bal1ian + IF TYPE("precdeb1")!="U" && exxista campul precdeb1 in balanta selectata + USE IN bal1ian + llgasit=.T. + EXIT + ENDIF + USE IN bal1ian + ENDIF + ENDIF +ENDFOR + +SELE BALANA +IF FLOCK() + DELE ALL + IF FILE('&dateA\BALANA.DBF') + APPE FROM &dateA\BALANA.DBF FOR !DELETED() + ENDIF + + +*** verific daca am soldurile de la 1 ianuarie + llNuSold=.F. + STORE 0 TO lnprecdeb1,lnpreccred1 + IF existacamp('bal','precdeb1') +*!* CALCULATE sum(precdeb1),sum(preccred1) TO lnprecdeb1,lnpreccred1 +*!* +*!* IF lnprecdeb1=0 && nu am soldurile de la 1 ianuarie + llNuSold=.T. +*!* ENDIF + ENDIF + +*** Daca nu am soldurile de la 1 ianuarie dupa ce am facut append inseamna ca nu le am nici in balanta precedenta, +*** deci o sa le caut in prima balanta din anul respectiv + IF llNuSold + IF llgasit && daca am gasit prima balanta analitica + USE (lcBal1ian) IN 0 AGAIN SHARED ALIAS bal1ian + IF existacamp('bal1ian','precdeb1') AND existacamp('bal1ian','preccred1') + SELECT CONT,acont,PRECDEB1,PRECCRED1 FROM bal1ian INTO CURSOR t1ian ORDER BY CONT + SELECT BALANA + SCAN + lcCont=CONT + lcACont=acont + lnprecdeb1=PRECDEB1 + lnpreccred1=PRECCRED1 + + SELECT t1ian + LOCATE FOR CONT=lcCont AND acont=lcACont + IF FOUND() + lnprecdeb1=PRECDEB1 + lnpreccred1=PRECCRED1 + ENDIF + + SELECT BALANA + REPLACE PRECDEB1 WITH lnprecdeb1,PRECCRED1 WITH lnpreccred1 + ENDSCAN + USE IN bal1ian + USE IN t1ian + ENDIF + ENDIF + ENDIF + + + + SELE BALANA + SET ORDER TO TAG CONTACONT + + SELECT PLCONTANA + SCAN + SCATTER MEMV + SELECT BALANA + SEEK M.cont+M.acont + IF !FOUND() + APPEND BLANK + REPLACE CONT WITH M.cont, acont WITH M.acont, DENUMIRE WITH M.DENUMIRE + ENDIF + SELECT PLCONTANA + ENDSCAN + + SELECT DISTINCT scd AS CONT,ASCD AS acont ; + FROM act ; + WHERE !EMPTY(ASCD) AND LEFT(scd,4)+LEFT(ASCD,4) NOT IN ; + (SELE LEFT(CONT,4)+LEFT(acont,4) FROM BALANA) ; + INTO CURSOR tscd + + SELE BALANA + APPEND FROM DBF('tscd') + USE IN tscd + + SELECT DISTINCT scc AS CONT,ASCC AS acont ; + FROM act ; + WHERE !EMPTY(ASCC) AND LEFT(scc,4)+LEFT(ASCC,4) NOT IN ; + (SELE LEFT(CONT,4)+LEFT(acont,4) FROM BALANA) ; + INTO CURSOR tscc + + SELE BALANA + APPEND FROM DBF('tscc') + USE IN tscc + + IF m.nl='01' + REPL ALL precdeb WITH 0, preccred WITH 0 + REPL ALL precdeb WITH SOLDDEB, preccred WITH SOLDCRED + IF llNuSold && AM CAMPURILE DE SOLDURI LA 1 IANUARIE + REPLACE ALL PRECDEB1 WITH SOLDDEB,PRECCRED1 WITH SOLDCRED + ENDIF + + ELSE + + REPL ALL precdeb WITH 0, preccred WITH 0 + REPL ALL RULDEB WITH 0, RULCRED WITH 0 + REPL ALL precdeb WITH totdeb, preccred WITH totcred + ENDIF + + DO REFBALANTA_ANA +*DO VERDIFBAL_ANA + DO verif_balana + DO CALCULEAZABALANTA_ANA +ENDIF +UNLOCK IN BALANA +RETURN + +*______________________________________________________ + +PROCEDURE REFCasaVal && REFVALCASA +LOCAL ap,lp,D +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +USE &dateA\casvnume IN 0 SHARED ALIAS casvnumeP +IF TYPE('casvnumep.precdeb') # 'U' + SELECT nume_5, numeval, ; + precdeb + incasari as precdeb, preccred + plati as preccred, ; + precvaldeb + incasval as precvaldeb, precvalcre + platival as precvalcre ; + FROM casvnumeP ; + INTO CURSOR tprec ORDER BY nume_5 +ELSE + SELECT nume_5, numeval, incasari as precdeb, plati as preccred, incasval as precvaldeb, platival as precvalcre ; + FROM casvnumeP ; + INTO CURSOR tprec ORDER BY nume_5 +ENDIF + +SELE casaval +IF FLOCK() + DELETE ALL + m.DATAIREG={} + m.COD=-1 + m.INCASARI=0 + m.PLATI=0 + m.incasval=0 + m.platival=0 + m.scd='' + m.scc='' + m.CURSSCHIMB=0 + m.CURSBNR=0 + + SELE tprec + SCAN + SCATTER MEMVAR + m.INCASARI = M.precdeb-M.preccred + m.PLATI = 0 + m.INCASval = M.precvaldeb-M.precvalcre + m.PLATIval = 0 + m.casa = m.nume_5 + SELE casaval + GOTO BOTTOM + APPE BLANK + GATHER MEMVAR + SELE tprec + ENDSCAN + UNLOCK +ENDIF + +SELECT cod, dataireg, nume_5 as casa, scd, scc, suma_3 as cursschimb, nume_4 as numeval, ; + IIF(scd = '5314', suma, 00000000000000) as incasari, ; + IIF(scc = '5314', suma, 00000000000000) as plati, ; + IIF(scd = '5314', suma_2, 000000000000.00) as incasval, ; + IIF(scc = '5314', suma_2, 000000000000.00) as platival ; + FROM act WHERE scd = '5314' OR scc = '5314' ; + INTO CURSOR tact + +SELECT casaval +APPEND FROM DBF('tact') +USE IN tact + + +SELECT casvnume +IF FLOCK() + DELE ALL + APPEND FROM DBF('tprec') + +SELECT nume_5 as casaval, nume_4 as numeval, ; + sum(IIF(scd = '5314', suma, 00000000000000)) as incasari, ; + sum(IIF(scc = '5314', suma, 00000000000000)) as plati, ; + sum(IIF(scd = '5314', suma_2, 000000000000.00)) as incasval, ; + sum(IIF(scc = '5314', suma_2, 000000000000.00)) as platival ; + FROM act WHERE scd = '5314' OR scc = '5314' ; + INTO CURSOR tact; + GROUP BY 1 + + + SELECT tact + SCAN + SCATTER NAME ot + SELECT casvnume + LOCATE FOR ALLTRIM(nume_5) = ALLTRIM(ot.casaval) + IF !FOUND() + APPEND blank + REPLACE nume_5 WITH ot.casaval + REPLACE numeval WITH ot.numeval + ENDIF + REPLACE incasari WITH incasari + ot.incasari, plati WITH plati + ot.plati + REPLACE incasval WITH incasval + ot.incasval, platival WITH platival + ot.platival + SELECT tact + ENDSCAN + +UNLOCK +ENDIF + +IF USED('tact') + USE IN tact +ENDIF +USE IN tprec +USE IN casvnumeP + + +*!* SELE CASAVAL +*!* SET ORDER TO TAG COD +*!* IF FLOCK() +*!* DELE ALL + +*!* SELE CASVNUME +*!* USE + +*!* IF !FILE('&DATEA\CASVNUME.DBF') +*!* COPY FILE &dirgen\_alfa\an0000\date00\CASVNUME.* TO &dateA\CASVNUME.* +*!* ENDIF +*!* SELE 0 +*!* USE &dateA\CASVNUME + +*!* m.DATAIREG={} +*!* m.COD=-1 +*!* m.INCASARI=0 +*!* m.PLATI=0 +*!* m.incasval=0 +*!* m.platival=0 +*!* m.scd='' +*!* m.scc='' +*!* m.CURSSCHIMB=0 +*!* m.CURSBNR=0 + +*!* &&REFACERE SOLDURI IN CASAVAL DUPA CASVNUME DIN LUNA PRECEDENTA======================= +*!* SELE CASVNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* m.CASA=m.nume_5 +*!* SELE CASAVAL +*!* APPE BLANK +*!* m.INCASARI=M.INCASARI-M.PLATI +*!* m.incasval=M.incasval-M.platival +*!* m.PLATI=0 +*!* m.platival=0 +*!* GATHER MEMVAR +*!* SELE CASVNUME +*!* ENDSCAN + +*!* SELE CASVNUME +*!* USE + +*!* &&REFACERE SUME IN CASAVAL DUPA ACT====================== +*!* &&IN DEB====================== +*!* SELE act +*!* SCAN FOR scd='5314' +*!* SCATTER MEMVAR +*!* SELE CASAVAL +*!* m.CASA=M.nume_5 +*!* m.INCASARI=M.suma +*!* m.incasval=M.suma_2 +*!* m.CURSSCHIMB=M.SUMA_3 +*!* m.SBNR=SUBSTR(M.EXPLICATIA,8,14) +*!* m.CURSBNR=VAL(M.SBNR) +*!* m.PLATI=0 +*!* m.platival=0 +*!* m.NUMEVAL=m.nume_4 +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN&& +*!* &&IN CRED======================= +*!* SELE act +*!* SCAN FOR scc='5314' +*!* SCATTER MEMVAR +*!* SELE CASAVAL +*!* m.CASA=M.nume_5 +*!* m.PLATI=M.suma +*!* m.platival=M.suma_2 +*!* m.CURSSCHIMB=M.SUMA_3 +*!* m.SBNR=SUBSTR(M.EXPLICATIA,8,14) +*!* m.CURSBNR=VAL(M.SBNR) +*!* m.INCASARI=0 +*!* m.incasval=0 +*!* m.NUMEVAL=m.nume_4 +*!* APPE BLANK +*!* GATHER MEMVAR +*!* SELE act +*!* ENDSCAN +*!* ENDIF +*!* &&REFACERE CASVNUME DUPA CASAVAL=================== +*!* SELE 0 +*!* USE &DATE\CASVNUME +*!* &&& exclusive +*!* &&&zap +*!* IF FLOCK() +*!* DELE ALL +*!* &&NUMELE CASELOR=========== +*!* SELE CASAVAL +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE CASVNUME +*!* LOCA FOR nume_5=M.CASA +*!* IF NOT FOUND() +*!* GOTO BOTTOM +*!* APPE BLANK +*!* REPL nume_5 WITH M.CASA +*!* ENDIF +*!* REPL NUMEVAL WITH m.NUMEVAL +*!* SELE CASAVAL +*!* ENDSCAN +*!* &&VALORILE=============== +*!* SELE CASVNUME +*!* SCAN +*!* SCATTER MEMVAR +*!* SELE CASAVAL +*!* SUM INCASARI,PLATI,incasval,platival TO M.INCASARI,M.PLATI,M.incasval,M.platival FOR ALLT(CASA)=ALLT(M.nume_5) +*!* IF EMPTY(ALLT(M.nume_5)) +*!* SUM INCASARI,PLATI,incasval,platival TO M.INCASARI,M.PLATI,M.incasval,M.platival FOR EMPTY(ALLT(CASA)) +*!* ENDIF +*!* SELE CASVNUME +*!* REPL INCASARI WITH M.INCASARI +*!* REPL PLATI WITH M.PLATI +*!* REPL incasval WITH M.incasval +*!* REPL platival WITH M.platival +*!* SELE CASVNUME +*!* ENDSCAN +*!* ENDIF +*!* UNLOCK IN CASAVAL +*!* UNLOCK IN CASVNUME +SELE CASAVAL +SET ORDER TO TAG DATAIREG +RETURN + + + +***____________________________________________________ +PROCEDURE CURATARE &&CURATARE INREGISTRARI STERSE +DO CURATARE1 +ON ERROR +RETURN + +*______________________ +PROCEDURE CURATARE1 +SELECT REFACERI +SCAN + LcFisier=ALLTRIM(tabel) + DO pack_fisier WITH LcFisier + SELECT REFACERI +ENDSCAN + +DO pack_fisier WITH 'BALANA' +DO pack_fisier WITH 'BALANTA_PARTENER' + +RETURN + +*___________________________ +*** INCEPUT PROCEDURA PACK_FISIER +PROCEDURE pack_fisier +PARAM numefis + +SELE &numefis +USE +SELE 0 + +lcOldError=ON("error") +ON ERROR DO daca_ruleaza1 +USE &DATE\&numefis EXCL ALIAS &numefis +PACK +SELE &numefis +USE + +DO des WITH numefis +ON ERROR &lcOldError +ENDPROC +*** SFARSIT PROCEDURA PACK_FISIER + +*_______________________ +PROC daca_ruleaza1 +DO daca_ruleaza +RETURN TO CURATARE + +*_______________________ +PROC daca_ruleaza +DO mesajmare WITH ' Inainte de a executa aceasta operatiune trebuie sa va asigurati ca programul nu mai ruleaza pe alte statii din retea.'+; ++SPACE(50)+'Inchideti programele CONTAFIN deschise pe toate celelalte statii si apoi reveniti.' +semafor1=.T. +RETURN +RETURN + + + + + + + +*_________________________________________ +PROCEDURE REFCumplun +LOCAL nla,nlb,ana,anb,cond,cond1 + +IF !se_reface() + RETURN +ENDIF + + +cond='(year(dataireg)0 + SCAT MEMV + SELE cumplun + LOCA FOR nract=m.nract AND NUME=m.NUME +*REPL TOTFTVAM WITH TOTFTVAM-TVAM+neimpozab + REPL totftvaM WITH totftvaM-M.suma + REPL neimpozab WITH M.suma + + REPL totctva WITH totftvaM+tvaM+neimpozab + SELE act + ENDSCAN +*************BILETE MASA********* + SELE act + SCAN FOR scd='5328' AND LEFT(EXPLICATIA,7)='TICHETE' AND neimpozab=0 + SCAT MEMV + SELE cumplun + LOCA FOR nract=m.nract AND NUME=m.NUME +* BROWSE +* SELECT cumplun +*REPL TOTFTVAM WITH TOTFTVAM-TVAM+neimpozab + REPL totftvaM WITH totftvaM-M.suma + REPL neimpozab WITH M.suma + + REPL totctva WITH totftvaM+tvaM+neimpozab +* BROWSE + SELE act + ENDSCAN +************* + SELE act + SET FILTER TO +*SCAN FOR SCc='4428' and LEFT(scd,3)='371' +*SCAT MEMV +*SELE cumplun +*loca for nract=m.nract and nume=m.nume + +*if found() +*m.neimpozab=totftvam*(-1) +*REPL TOTFTVAM WITH totftvam+m.neimpozab +*REPL neimpozab WITH m.neimpozab +*REPL TOTCTVA WITH TOTFTVAM+TVAM+neimpozab +*endif +*SELE act +*ENDSCAN +*endif + + SELE cumplun + SET FILTER TO + GO TOP +*BROW + +&&ca in rc1&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& + SELE cumplun + REPL ALL achitat WITH 0 FOR !&cond + + SELE act + SET ORDER TO TAG PERECHE +*Set Filter To (ACT.SCD='401 ' Or ACT.SCD='404 ') And PERECHE#0 + SET FILTER TO act.scd='401 ' AND PERECHE#0 + + SELE act + GO TOP + DO WHILE !EOF() + m.achitat=0 + m.achitatval=0 + SCAT MEMV + DO WHILE PERECHE=M.PERECHE AND ALLTR(NUME)=ALLT(M.NUME) AND ASCD=m.ASCD + m.achitat=m.achitat+suma + m.achitatval=m.achitatval+suma_2 + SKIP + ENDDO + SELE cumplun + LOCA FOR nract=m.PERECHE AND ALLTR(NUME)=ALLT(M.NUME) AND acont=m.ASCD + IF !FOUND() + LOCATE FOR nract=m.PERECHE AND ALLT(NUME)=ALLT(M.NUME) + ENDIF + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH m.achitatval+achitatval + ENDIF +*SET FILTER TO ACHITAT=0 + SELE act + ENDDO + + +ENDIF +UNLOCK IN cumplun +SELE cumplun +SET FILTER TO +SELECT act +SET FILTER TO +RETURN + + +*------------------------------------------------------------------------------------ + +PROCEDURE REFvanzlun +LOCAL nla,nlb,ana,anb,cond,cond1 +STORE 0 TO M.suma_2, M.achitatval,M.suma,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +*** actualizez act cu pereche si pereche2 daca am optiunea refac=.T. +DO refac_act WITH "411" IN actualizare_act.PRG + +cond='(year(dataireg)'4118') AND !(LEFT(scd,3)='411' AND scc='4427') AND id_set != 90501 AND ; + NUME+'/'+DTOC(dataact)+'/'+STR(nract,14)+'/'+ASCD NOT IN (SELE NUME+'/'+DTOC(dataact)+'/'+STR(nract,14)+'/'+ACONT FROM vanzlun) ; + INTO CURSOR tact ; + GROUP BY NUME,dataact,nract,ASCD + + + lnrec = _TALLY + SELECT vanzlun + APPEND FROM DBF('tact') + USE IN tact + + + +************************************************************************************************* + lcfis = ALLTRIM(loc) + [\] + ALLTRIM(nfscurt) + [\tempo\tact.dbf] + + + SELE NUME,nract,dataact,ASCD, ; + SUM(suma) AS totctva, SUM(suma_2) AS sumaval ; + FROM act ; + WHERE LEFT(scd,3)='411' AND scd<>'4118' ; + INTO TABLE (lcfis) ; + GROUP BY NUME,dataact,nract,ASCD ; + ORDER BY NUME,dataact,nract,ASCD + + SELECT tact + INDEX ON NUME+[\]+DTOC(dataact)+[\]+STR(nract)+[\]+ASCD TAG ordine + SET ORDER TO ordine + + SELECT vanzlun + SET FILTER TO !&cond + SCAN + lcFactura = NUME+[\]+DTOC(dataact)+[\]+STR(nract)+[\]+acont + lnSumaVal=sumaval + lnTotctva = totctva + + SELECT tact + IF SEEK(lcFactura) + + lnTotctva = lnTotctva + totctva + lnSumaVal = lnSumaVal + sumaval + SELECT vanzlun + REPL totctva WITH lnTotctva, sumaval WITH lnSumaVal + ENDIF + SELECT vanzlun + + ENDSCAN + + USE IN tact +************************************************************************************************* + + + SELE act + SET FILTER TO + SCAN FOR INLIST(LEFT(scd,3),'667','622') AND LEFT(scc,3)='411' && 622 la 27 august 2004 Marius (Conpress - comision agent vanzare) + SCAT MEMV + SELE vanzlun + LOCA FOR nract=m.nract AND NUME=m.NUME AND acont=m.ASCC + + IF FOUND() + REPLACE totctva WITH totctva - m.suma + ENDIF + SELE act + ENDSCAN + + + lModifAct=.T. +******** + SELE vanzlun + SET FILTER TO + + REPL ALL achitat WITH 0 FOR !&cond + + +&& id_set = 90501 diferente de curs provenite din actualizarea facturilor la 31.12.NN + SELECT nract, NUME, ASCC AS acont, pereche2, ; + SUM(suma) AS achitat, SUM(suma_2) AS achitatval ; + FROM act WHERE LEFT(scc,3)='411' AND scc<>'4118' AND pereche2#0 AND id_set != 90501; + GROUP BY pereche2, NUME, ASCC ; + INTO CURSOR t411 + + SELECT t411 + SCAN + SCATTER NAME o411 + SELECT vanzlun + LOCATE FOR nract=o411.pereche2 AND ALLT(NUME)=ALLTRIM(o411.NUME) AND acont=o411.acont + IF !FOUND() + LOCATE FOR nract=o411.pereche2 AND ALLTRIM(NUME)=ALLTRIM(o411.NUME) + ENDIF + + IF FOUND() + REPLACE achitat WITH achitat + o411.achitat + REPLACE achitatval WITH achitatval + o411.achitatval + ENDIF + SELECT t411 + ENDSCAN + + RELEASE o411 + USE IN t411 + + + + +*** actualizarea soldurilor facturilor in valuta la 31.12.NN + SELECT nract, NUME, IIF(LEFT(scd,3)='411',ASCD,ASCC) AS acont, pereche2, ; + IIF(LEFT(scd,3)='411',suma,(-1)*suma) AS diferenta, SUMA_3 AS CURSSCHIMB ; + FROM act WHERE (LEFT(scc,3)='411' OR LEFT(scd,3)='411') AND scc<>'4118' AND pereche2#0 AND id_set = 90501; + INTO CURSOR tactualizare + + SELECT tactualizare + SCAN + SCATTER NAME lo501 + SELECT vanzlun + LOCATE FOR nract = lo501.pereche2 AND ALLT(NUME)=ALLTRIM(lo501.NUME) AND acont=lo501.acont + IF FOUND() + REPLACE totctva WITH totctva + lo501.diferenta, CURSSCHIMB WITH lo501.CURSSCHIMB + ENDIF + SELECT tactualizare + ENDSCAN + RELEASE lo501 + USE IN tactualizare + + + SELE act + SET FILT TO +******* +&&pt regularizare clienti creditori +&& and id_set#10421 + + + SELE DISTINCT COD,pereche2 FROM &DATE\act WHERE scd='419 ' AND LEFT(scc,3)='411' INTO CURSOR c419 ORDER BY COD &&pt regularizare clienti creditori + SELE act + SET FILT TO + SELE c419 + SCAN + SCAT FIEL COD,pereche2 MEMV + SELE act + LOCA FOR COD=m.COD AND pereche2=m.pereche2 AND LEFT(scd,3)='411' AND scd#'4118' AND scc='4427' + IF !FOUND() + LOOP + ENDIF + SCAT MEMV + + SELE vanzlun + LOCA FOR NUME=m.NUME AND nract=m.pereche2 AND acont=m.ASCD + IF !FOUND() + LOCA FOR NUME=m.NUME AND nract=m.pereche2 + ENDIF + IF FOUND() + REPL achitat WITH achitat+ABS(m.suma) + ENDIF + SELE c419 + ENDSCAN + USE IN c419 +&&pt regularizare clienti creditori +ENDIF +UNLOCK IN vanzlun +SELE vanzlun +SET FILTER TO +RETURN + +*_________________________________________ +PROCEDURE REFobinvent +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +SELECT rull +SCAN FOR scd = '8039' AND EMPTY(nresp) + lnR = RECNO() + lnC = COD + LOCATE FOR COD = lnC AND !EMPTY(nresp) + lcResp = nresp + IF FOUND() + GOTO lnR + REPLACE nresp WITH lcResp + ELSE + GOTO lnR + ENDIF + + SELECT rull +ENDSCAN + + +SELE obinvent +IF FLOCK() + DELE ALL + APPEND FROM &DATE\rull FOR scd = '8039' +ENDIF +UNLOCK IN obinvent + +SELE rull +SET FILTER TO + +SELE STOC_obinv +SET FILTER TO + + +&&refacere stoc obiecte de inventar aflate in folosinta +lcfis = dateA+'\stoc_obinv.Dbf' +lcStoc = dateA+'\stoc.Dbf' + +IF FILE(lcfis) + COPY FILE &dateA\STOC_obinv.* TO &loc\&nfscurt\tempo\inloc.* + USE &loc\&nfscurt\tempo\inloc IN 0 ALIAS inloc EXCL +ELSE + COPY FILE &dirgen\_alfa\an0000\date00\STOC_obinv.* TO &loc\&nfscurt\tempo\inloc.* + USE &loc\&nfscurt\tempo\inloc IN 0 ALIAS inloc EXCL + SELECT inloc + APPEND FROM &lcStoc FOR scd = '8039' +ENDIF + + +SELECT inloc +REPL ALL cants WITH cants+CANT-CANTE +DELE ALL FOR cants=0 +PACK +REPL ALL CANT WITH 0, CANTE WITH 0 + +SELECT inloc +INDEX ON STR(PRET,14,2)+ nresp+ CODMAT + DENUMIRE TAG achi OF &loc\&nfscurt\tempo\inloc + +SELECT rull +SCAN FOR scd = '8039' + SCATTER NAME orull + SELECT inloc + SEEK STR(orull.PRET,14,2)+ orull.nresp+ orull.CODMAT+orull.DENUMIRE +*LOCATE FOR GEST = orull.gest AND PRET = orull.pret AND CODMAT = orull.codmat AND DENUMIRE = orull.denumire AND nresp = orull.nresp + IF FOUND() + IF FLOCK() + REPLACE CANT WITH CANT + orull.CANT, CANTE WITH CANTE + orull.CANTE, DATAOUT WITH orull.DATAOUT + ENDIF + UNLOCK + ELSE + APPEND BLANK + GATHER NAME orull + ENDIF +ENDSCAN + +SELECT inloc +ALTER TABLE inloc ADD COLUMN detoate c(175) +SET FILTER TO +INDEX ON detoate TAG detoate OF &loc\&nfscurt\tempo\inloc +SET ORDER TO TAG detoate +REPLACE ALL detoate WITH STR(PRET,14,2)+ nresp+ CODMAT+DENUMIRE + +SELECT inloc +SET FILTER TO +TOTAL TO &loc\&nfscurt\tempo\inloctot ON detoate FIELDS CANT,CANTE,cants + + +USE &loc\&nfscurt\tempo\inloctot IN 0 ALIAS inloctot + +SELECT STOC_obinv +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\inloctot +ENDIF +UNLOCK +USE IN inloc +USE IN inloctot + +SELECT STOC_obinv +SET ORDER TO TAG DENUMIRE + +RETURN + +*_________________________________________ + + +PROCEDURE REFrespons +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +SELE respons +IF FLOCK() + DELE ALL + + APPEND FROM &dateA\respons.DBF FOR !DELETED() AND !EMPTY(nume_2) + + SELE DISTINCT act.nresp FROM act INTO CURSOR ttt + SELE ttt + SCAN + SCAT MEMV + SELE respons + LOCA FOR ALLT(m.nresp)=ALLT(nume_2) + IF !FOUND() + APPE BLAN + REPL nume_2 WITH m.nresp + ENDIF + SELE ttt + ENDSCAN + +ENDIF +UNLOCK IN respons +RETURN + + + + +*----------------------------------------- +PROCEDURE refavans409 +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +DO refac_act WITH "409" IN actualizare_act.PRG + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +IF !FILE('&dateA\avans409.dbf') + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +SELE avans409 +IF FLOCK() + DELE ALL + APPEND FROM &dateA\avans409.DBF FOR achitat<>facturat OR achitatval<>factval + SELE nract,dataact,COD,NUME,fdoc,suma AS achitat,suma_2 AS achitatval,SUMA_3 AS CURSSCHIMB,; + nume_4 AS NUMEVAL,DATAIREG,datascad,m.nl AS nl,m.an AS an, scd as cont, ASCD AS acont ; + FROM act WHERE LEFT(scd, 3)='409' INTO CURSOR aaa ORDER BY dataact + + SELE avans409 + APPE FROM DBF('aaa') + + SELE act + SCAN FOR LEFT(scc,3) = '409' + SCAT MEMV + SELE avans409 + LOCA FOR NUME=m.NUME AND nract=m.pereche2 AND cont = m.scc and acont=m.ASCC &&And dataact=DAT + IF !FOUND() + LOCA FOR NUME=m.NUME AND nract=m.pereche2 + ENDIF + IF FOUND() + REPL facturat WITH facturat+m.suma + REPL factval WITH factval+m.suma_2 + ENDIF + SELE act + ENDSCAN + + +ENDIF +UNLOCK IN avans409 + +RETURN + +*----------------------------------------- +PROCEDURE refavans419 +LOCAL nla,nlb,ana,anb + + + +IF !se_reface() + RETURN +ENDIF + +DO refac_act WITH "419" IN actualizare_act.PRG + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +IF !FILE('&dateA\avans419.dbf') + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + + +SELE avans419 +IF FLOCK() + DELE ALL + APPEND FROM &dateA\avans419.DBF FOR achitat<>facturat OR achitatval<>factval + + SELE nract,dataact,COD,NUME,fdoc,suma AS achitat,suma_2 AS achitatval,SUMA_3 AS CURSSCHIMB,; + nume_4 AS NUMEVAL,DATAIREG,datascad,m.nl AS nl,m.an AS an, ASCC AS acont, scc as cont ; + FROM act WHERE LEFT(scc, 3) = '419' INTO CURSOR aaa ORDER BY dataact + + SELE avans419 + APPE FROM DBF('aaa') + + SELE act + SCAN FOR ALLTRIM(scd)='419' + SCAT MEMV + SELE avans419 + LOCA FOR NUME=m.NUME AND nract=m.PERECHE AND acont=m.ASCD &&And dataact=DAT + IF !FOUND() + LOCA FOR NUME=m.NUME AND nract=m.PERECHE + ENDIF + IF FOUND() + REPL facturat WITH facturat+m.suma + REPL factval WITH factval+m.suma_2 + ENDIF + SELE act + ENDSCAN + + +ENDIF +UNLOCK IN avans419 +RETURN + + + + + + +*-------------------------------------------------------------------------------------- +PROCEDURE completeaza_analitic +SET SAFETY OFF +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +IF !FILE('&datea\analitic.dbf') + COPY FILE _alfa\an0000\date00\analitic.* TO &dateA\analitic.* +ENDIF + +WAIT WINDOW 'Se calculeaza precedentele conturilor bifate...' NOWAIT +&& precedente pentru toate conturile recalculabile------------------- +USE &dateA\analitic.DBF IN 0 ALIAS analitica +SELECT analitica +*BROW +IF existacimp('analitica','totdeb') + SELECT CONT,NUME,totdeb AS precdeb,totcred AS preccred FROM analitica ; + WHERE CONT IN (SELECT CONT FROM f_analitic WHERE f_analitic.ales); + INTO CURSOR rrr +ELSE + SELECT CONT,NUME,DEB AS precdeb,cred AS preccred FROM analitica INTO CURSOR rrr +ENDIF +USE IN analitica +SELECT rrr +*BROW + +WAIT WINDOW 'Se readuc precedentele conturilor NEbifate...' NOWAIT +* conturi nerecalculabile------------------------ +SELECT * FROM analitic ; +WHERE CONT NOT IN (SELECT CONT FROM f_analitic WHERE f_analitic.ales); +INTO CURSOR sss + + + +*aduc in ana-------------------- +SELE analitic +COPY STRUCTURE TO &loc\&nfscurt\tempo\ana WITH CDX + +USE &loc\&nfscurt\tempo\ana IN 0 EXCL ALIAS ana ORDER TAG cn +SELE ana +APPEND FROM DBF('rrr') +APPEND FROM DBF('sss') + +USE IN rrr +USE IN sss + +WAIT WINDOW 'Se calculeaza rulajele...' NOWAIT + +SELECT * FROM act WHERE ; +scd IN (SELECT CONT FROM f_analitic WHERE f_analitic.ales) OR ; +scc IN (SELECT CONT FROM f_analitic WHERE f_analitic.ales); +INTO CURSOR aaa + +SELECT A.*,b.NUME AS numescd FROM aaa A FULL JOIN f_analitic b; +ON A.scd=b.CONT AND b.ales INTO CURSOR bbb + +SELECT A.*,b.NUME AS numescc FROM bbb A FULL JOIN f_analitic b; +ON A.scc=b.CONT AND b.ales INTO CURSOR actmic ORDER BY DATAIREG + +SELECT actmic +*brow + +*refacere ana--- +SELE actmic +*!* Set Filter To +*!* Set Order To DATAIREG +SCAN FOR !ISNULL(COD) + SCAT MEMV + + IF !ISNULL(numescd) + T='m.nume='+numescd + &T +* WAIT WINDOW t +* WAIT WINDOW m.nume + WAIT WINDOW 'Data: '+DTOC(DATAIREG) NOWAIT + SELE ana + SEEK m.scd+m.NUME + + IF FOUND() + REPL DEB WITH DEB+m.suma + ELSE + m.cont=m.scd + m.DEB=m.suma + m.cred=0 + APPE BLAN + GATH FIEL CONT,DEB,NUME MEMV + ENDIF + ENDIF + + SELE actmic + IF !ISNULL(numescc) + T='m.nume='+numescc + &T + SELE ana + SEEK m.scc+m.NUME + IF FOUND() + REPL cred WITH cred+m.suma + ELSE + m.cont=m.scc + m.cred=m.suma + m.DEB=0 + APPE BLAN + GATH FIEL CONT,cred,NUME MEMV + ENDIF + ENDIF + SELE actmic +ENDSCAN +SELE ana +DELE FOR EMPTY(CONT) +IF existacimp('ana','totdeb') + REPLACE ALL totdeb WITH DEB+precdeb,totcred WITH preccred+cred +ENDIF +PACK +*din ana in analitic----- +WAIT WINDOW 'Se salveaza datele...' NOWAIT +DO suprapune WITH 'analitic','ana' +SELECT analitic +SET ORDER TO TAG NUME + +USE IN ana + +RETURN + + + +*------------------------------------------------------------------------------- +PROCEDURE suprapune +PARAMETERS DEST,sursa +LOCAL R +R=0 +**golire +SELECT &DEST +SCATTER MEMVAR BLANK +SCAN + GATHER MEMV +ENDSCAN + +SELECT &DEST +SET ORDER TO +ON ERROR APPE BLAN +GOTO 1 +*BROWSE TITLE 'DEST' +IF FLOCK() + RECALL ALL + + SELECT &sursa + SET ORDER TO +*BROWSE TITLE 'SURSA' + SCAN + R=RECNO() + SCATTER MEMV + SELECT &DEST +*SKIP +*!* If Eof() +*!* Append Blank +*!* ELSE + ON ERROR APPE BLAN + GOTO R +*!* ENDIF + GATHER MEMV + SELECT &sursa + ENDSCAN + + SELECT &DEST + R=RECNO() + DELETE FOR RECNO()>R + +ENDIF +UNLOCK IN &DEST + +RETURN + + + + +*-------------------------------------------------------------------------------------------------------------- +FUNCTION se_reface +LOCAL SE,PRIMALUNA,ACTGOL +SE=.T. +STORE .F. TO PRIMALUNA,ACTGOL + +&&E PRIMA LUNA? +SELECT calendar +GO TOP +IF an=M.an AND nl=M.nl + PRIMALUNA=.T. +ENDIF +SELECT * FROM act INTO CURSOR bbb +IF _TALLY<3 + ACTGOL=.T. +ENDIF + +buton=1 +IF PRIMALUNA AND !ACTGOL + OTM=CREA('TEXTMARER') + OTM.label2.CAPTION='Aceasta este prima luna deschisa. Prin refacere se sterg toate acele date de initializare inscrise'+; + ' manual direct in fisiere si carora nu le corespund inregistrari in registrul jurnal. Doriti ca totusi sa execute refacerea?' + OTM.SHOW(1) + IF buton=2 + RETURN .F. + ENDIF +ENDIF + +SE=!(PRIMALUNA AND ACTGOL) +IF !SE + DO mesaj WITH 'Aceasta este prima luna iar registrul jurnal este gol.','Refacerea nu se executa!' +ENDIF +RETURN SE + + + + + + +*_________________________________________ +PROCEDURE REFcredlun +LOCAL nla,nlb,ana,anb,cond,cond1 + +IF !se_reface() + RETURN +ENDIF + + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + ENDIF + SELE act + ENDDO + +ENDIF + + +SELE act +SET FILT TO + +UNLOCK IN deblun +SELE deblun +SET FILTER TO +RETURN + + +*---------------------------------------------------------------------------------------------- +PROCEDURE refchavans +LOCAL nla,nlb,ana,anb,cond,cond1 +STORE 0 TO M.suma_2, M.achitatval,M.suma,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +DO refac_act WITH "471" IN actualizare_act.PRG + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + ENDIF +* SET FILTER TO ACHITAT=0 + SELE act + ENDDO + +ENDIF + +UNLOCK IN vanzlu4118 +SELE vanzlu4118 +SET FILTER TO +SELECT act +SET FILTER TO +RETURN + + + +*_______________________________________ +PROCEDURE CALCULEAZABALANTA +SELECT BAL +IF FLOCK() + REPLACE ALL totdeb WITH RULDEB+precdeb; + totcred WITH RULCRED+preccred +ENDIF +UNLOCK +SCAN + IF FLOCK() + IF totdeb-totcred>0 + REPLACE SOLDDEB WITH totdeb-totcred; + SOLDCRED WITH 0 + ELSE + REPLACE SOLDCRED WITH totcred-totdeb; + SOLDDEB WITH 0 + ENDIF + ENDIF + UNLOCK +ENDSCAN +RETURN + +*_________________________________________ + +PROCEDURE RefAna418 +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\ANA418.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'ANA418.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\ANA418.DBF IN 0 ALIAS ANA418U + +SELECT ANA418U + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('ANA418u.totdeb') = 'U' + SELECT NUME,COD_FISCAL, productie AS precdeb,incasat AS preccred FROM ANA418U INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + productie, totcred WITH preccred + incasat, totvaldeb WITH precvaldeb + prodval, totvalcre WITH precvalcre + incasval +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('ANA418u.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(PRECdeb + productie) AS precdeb, SUM(preccred + incasat) AS preccred, ; + SUM(precvaldeb + prodval) AS precvaldeb, SUM(precvalcre + incasval) AS precvalcre ; + FROM ANA418U INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(PRECdeb + productie) AS precdeb, SUM(preccred + incasat) AS preccred, ; + SUM(precvaldeb + prodval) AS precvaldeb, SUM(precvalcre + incasval) AS precvalcre ; + FROM ANA418U INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN ANA418U + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '418', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '418', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '418', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '418', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '418', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('418',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t418 GROUP BY 1, 2, 3 + +SELECT t418 +SCAN + SCATTER NAME o418 + SELECT rcli + SEEK LEFT(o418.NUME,30) + o418.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o418.COD_FISCAL + ENDIF + ELSE + SEEK LEFT(o418.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o418.acont + ELSE + APPEND BLANK + GATHER NAME o418 + ENDIF + ENDIF + REPLACE productie WITH productie + o418.debit, incasat WITH incasat + o418.credit, prodval WITH prodval + o418.valdebit, incasval WITH incasval + o418.valcredit + + SELECT t418 +ENDSCAN +RELEASE o418 +USE IN t418 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb+productie,totcred WITH preccred+incasat &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb+prodval,totvalcre WITH precvalcre+incasval &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT ANA418 +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT ANA418 +SET ORDER TO TAG NANA +RETURN + + +*_________________________________________ +PROCEDURE RefFact418 +LOCAL nla,nlb,ana,anb,cond,cond1 +STORE 0 TO M.suma_2, M.achitatval,M.suma,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +DO refac_act WITH "418" IN actualizare_act.PRG + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + ENDIF +* SET FILTER TO ACHITAT=0 + SELE act + ENDDO + +ENDIF +UNLOCK IN Fact418 +SELECT act +SET FILTER TO +SELE Fact418 +SET FILTER TO +RETURN + + +*---------------------------------------------------------------------------------------------- +PROCEDURE REFVNAvans && refVENITavans +LOCAL nla,ana,anb,cond,cond1,dateA +*Store 0 To M.SUMA_2, M.achitatval,M.SUMA,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + REPLACE nume_4 WITH m.EXPLICATIA + ENDIF + SELE act + ENDDO + + +ENDIF + + +SELE act +SET FILT TO + +UNLOCK IN ACHILUN +SELE ACHILUN +SET FILTER TO +RETURN + +*___________________________________________________________________________ + +PROCEDURE REFdividende +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\dividende.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'dividende.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\dividende.DBF IN 0 ALIAS dividendeU + +SELECT dividendeU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('dividendeu.totdeb') = 'U' + SELECT NUME,COD_FISCAL, LUAT AS precdeb, DAT AS preccred FROM dividendeU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit, totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('dividendeu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM dividendeU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM dividendeU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN dividendeU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '457', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '457', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '457', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '457', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '457', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('457',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t457 GROUP BY 1, 2, 3 + +SELECT t457 +SCAN + SCATTER NAME o457 + SELECT rcli + SEEK LEFT(o457.NUME,30) + o457.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o457.COD_FISCAL + ENDIF + REPLACE debit WITH debit + o457.debit, credit WITH credit + o457.credit, valdebit WITH valdebit + o457.valdebit, valcredit WITH valcredit + o457.valcredit + ELSE + SEEK LEFT(o457.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o457.acont + REPLACE debit WITH debit + o457.debit, credit WITH credit + o457.credit, valdebit WITH valdebit + o457.valdebit, valcredit WITH valcredit + o457.valcredit + ELSE + APPEND BLANK + GATHER NAME o457 + ENDIF + ENDIF + + SELECT t457 +ENDSCAN +RELEASE o457 +USE IN t457 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT dividende +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT dividende +SET ORDER TO TAG NANA +RETURN + +*_________________________________________ + +PROCEDURE refdivLUN +LOCAL nla,nlb,ana,anb,cond,cond1 +STORE 0 TO M.suma_2, M.achitatval,M.suma,M.sumaval,M.achitat + + +IF !se_reface() + RETURN +ENDIF + +cond='(year(dataireg)10000) + IF FOUND() + REPL achitat WITH m.achitat+achitat + REPL achitatval WITH achitatval+m.achitatval + REPLACE nume_4 WITH m.EXPLICATIA + ENDIF + SELE act + ENDDO + + +ENDIF + + +SELE act +SET FILT TO + +UNLOCK IN divLUN +SELE divLUN +SET FILTER TO +RETURN + +*________________________________________________________ + +PROCEDURE REFActionar +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +COPY FILE &dirgen\_alfa\an0000\date00\ACTIONAR.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'ACTIONAR.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\ACTIONAR.DBF IN 0 ALIAS ACTIONARU + +SELECT ACTIONARU + + +USE &loc\&nfscurt\tempo\rcli IN 0 ALIAS rcli + +&&precedente--------- +IF TYPE('ACTIONARu.totdeb') = 'U' + SELECT NUME,COD_FISCAL, DAT AS precdeb, LUAT AS preccred FROM ACTIONARU INTO CURSOR rrr +ELSE + REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit, totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit +*REPLACE ALL totavans WITH precavans + avans, totavansv WITH precavansv + avansval + IF TYPE('ACTIONARu.acont') # 'U' + SELECT NUME, acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM ACTIONARU INTO CURSOR rrr GROUP BY NUME, acont + + ELSE + SELECT NUME, SPACE(4) AS acont, COD_FISCAL, NUMEVAL, ; + SUM(precdeb + debit) AS precdeb, SUM(preccred + credit) AS preccred, ; + SUM(precvaldeb + valdebit) AS precvaldeb, SUM(precvalcre + valcredit) AS precvalcre ; + FROM ACTIONARU INTO CURSOR rrr GROUP BY NUME + ENDIF +ENDIF + +USE IN ACTIONARU + +SELECT rcli +APPEND FROM DBF('rrr') +USE IN rrr + + +&&rulaje------------ +SELE rcli +SET ORDER TO TAG NANA + +SELECT NUME, ; +IIF(LEFT(scd,3) = '455', ASCD, ASCC) AS acont, ; +COD_FISCAL, nume_4 AS NUMEVAL, ; +SUM(IIF(LEFT(scc,3) = '455', suma, 00000000000000)) AS credit, ; +SUM(IIF(LEFT(scd,3) = '455', suma, 00000000000000)) AS debit, ; +SUM(IIF(LEFT(scc,3) = '455', suma_2, 00000000000000.00)) AS valcredit, ; +SUM(IIF(LEFT(scd,3) = '455', suma_2, 00000000000000.00)) AS valdebit ; +FROM act ; +WHERE INLIST('455',LEFT(scd, 3), LEFT(scc,3)) ; +INTO CURSOR t455 GROUP BY 1, 2, 3 + +SELECT t455 +SCAN + SCATTER NAME o455 + SELECT rcli + SEEK LEFT(o455.NUME,30) + o455.acont + IF FOUND() + IF EMPTY(COD_FISCAL) + REPLACE COD_FISCAL WITH o455.COD_FISCAL + ENDIF + REPLACE debit WITH debit + o455.debit, credit WITH credit + o455.credit, valdebit WITH valdebit + o455.valdebit, valcredit WITH valcredit + o455.valcredit + ELSE + SEEK LEFT(o455.NUME,30) + SPACE(4) + IF FOUND() + REPLACE acont WITH o455.acont + REPLACE debit WITH debit + o455.debit, credit WITH credit + o455.credit, valdebit WITH valdebit + o455.valdebit, valcredit WITH valcredit + o455.valcredit + ELSE + APPEND BLANK + GATHER NAME o455 + ENDIF + ENDIF + + SELECT t455 +ENDSCAN +RELEASE o455 +USE IN t455 + +SELECT rcli +REPLACE ALL totdeb WITH precdeb + debit, totcred WITH preccred + credit &&,totavans WITH precavans+avans +REPLACE ALL totvaldeb WITH precvaldeb + valdebit, totvalcre WITH precvalcre + valcredit &&,TOTAVANSV WITH PRECAVANSV+AVANSVAL + +SELECT ACTIONAR +IF FLOCK() + DELETE ALL + APPEND FROM &loc\&nfscurt\tempo\rcli FOR !DELETED() +ENDIF +UNLOCK +USE IN rcli +SELECT ACTIONAR +SET ORDER TO TAG NANA +RETURN + + +*_________________________________________ + +PROCEDURE ref_balanta_partener +LOCAL nla,nlb,ana,anb + +IF !se_reface() + RETURN +ENDIF + +nlb=m.nl +anb=m.an +dateb=calefirma+'\an'+anb+'\'+'date'+nlb + +SELE calendar +LOCATE FOR nl=m.nl AND an=m.an +SKIP -1 +IF !BOF() + nla=nl + ana=an + dateA=calefirma+'\an'+ana+'\date'+nla &&DATE PREC +ELSE + dateA=dirgen+'\_alfa\an0000\date00\' +ENDIF + +SET SAFETY OFF +COPY FILE &dirgen\_alfa\an0000\date00\balanta_partener.* TO &loc\&nfscurt\tempo\rcli.* + +lcFile = ADDBS(dateA) + 'balanta_partener.dbf' +IF !FILE(lcFile) + dateA = dirgen+'\_alfa\an0000\date00' +ENDIF + +USE &dateA\balanta_partener.DBF IN 0 ALIAS balanta_partenerU + +SELECT balanta_partenerU +SELECT * FROM balanta_partenerU WHERE CONT = loCont.CONT INTO CURSOR balanta_partenerA READWRITE +USE IN balanta_partenerU + +SELECT balanta_partenerA +REPLACE ALL precdeb WITH precdeb + debit, preccred WITH preccred + credit, ; +precvaldeb WITH precvaldeb + valdebit, precvalcre WITH precvalcre + valcredit + +REPLACE ALL debit WITH 0, credit WITH 0, valdebit WITH 0, valcredit WITH 0 + +*!* SELECT SUM(IIF(SCD = loCont.CONT, SUMA, 0)) AS debit, SUM(IIF(SCC = loCont.CONT, SUMA, 0)) AS credit, ; +*!* SUM(IIF(SCD = loCont.CONT, SUMA_2, 0)) AS VALDEBIT, SUM(IIF(SCC = loCont.CONT, SUMA_2, 0)) AS VALCREDIT, ; +*!* id_partd, id_partc, IIF(SCD = loCont.CONT, ASCD, IIF(SCC = loCont.CONT, ASCC, '')) AS acont ; +*!* FROM ACT ; +*!* WHERE (!EMPTY(id_partd) OR !EMPTY(id_partc)) AND INLIST(loCont.CONT,SCD,SCC) ; +*!* INTO CURSOR tact ; +*!* GROUP BY id_part, acont + +SELECT SUM(suma) AS debit, SUM(suma_2) AS valdebit, id_partd, ASCD ; +FROM act ; +WHERE !EMPTY(id_partd) AND scd = loCont.CONT ; +INTO CURSOR tactd ; +GROUP BY id_partd, ASCD + +&&& debit +SELECT tactd +SCAN + SCATTER NAME oact + SELECT balanta_partenerA + LOCATE FOR IDpart = oact.id_partd AND CONT = loCont.CONT AND acont = oact.ASCD + IF FLOCK() + IF !FOUND() + APPEND BLANK + GATHER NAME oact + REPLACE IDpart WITH oact.id_partd, CONT WITH loCont.CONT, acont WITH oact.ASCD + ELSE + REPLACE debit WITH debit + oact.debit, ; + valdebit WITH valdebit + oact.valdebit + ENDIF + + ENDIF + UNLOCK + SELECT tactd +ENDSCAN +RELEASE oact +USE IN tactd + +&&& credit +SELECT SUM(suma) AS credit, SUM(suma_2) AS valcredit, id_partc, ASCC ; +FROM act ; +WHERE !EMPTY(id_partc) AND scc = loCont.CONT ; +INTO CURSOR tactc ; +GROUP BY id_partc, ASCC + +SELECT tactc +SCAN + SCATTER NAME oact + SELECT balanta_partenerA + LOCATE FOR IDpart = oact.id_partc AND CONT = loCont.CONT AND acont = oact.ASCC + IF FLOCK() + IF !FOUND() + APPEND BLANK + GATHER NAME oact + REPLACE IDpart WITH oact.id_partc, CONT WITH loCont.CONT, acont WITH oact.ASCC + ELSE + REPLACE credit WITH credit + oact.credit, ; + valcredit WITH valcredit + oact.valcredit + ENDIF + ENDIF + UNLOCK + SELECT tactc +ENDSCAN +RELEASE oact +USE IN tactc + +SELECT balanta_partenerA +REPLACE ALL totdeb WITH precdeb + debit, totvaldeb WITH precvaldeb + valdebit +REPLACE ALL totcred WITH preccred + credit, totvalcre WITH precvalcre + valcredit + +SELECT balanta_partener +SET FILTER TO +IF FLOCK() + DELETE ALL FOR CONT = loCont.CONT + APPEND FROM DBF('balanta_partenerA') +ENDIF +UNLOCK + + +USE IN balanta_partenerA + +ENDPROC && ref_balanta_partener diff --git a/Programe/roacontracte.prg b/Programe/roacontracte.prg new file mode 100644 index 0000000..48a7862 --- /dev/null +++ b/Programe/roacontracte.prg @@ -0,0 +1,1064 @@ +Parameters tparam + +Local lchost, lcUserName, lcPassword, lnIdUtil, lnIdProgram, lcUserNameApp,lcPasswordApp +Store '' To lchost, lcUserName, lcPassword, lcUserNameApp,lcPasswordApp +Store 0 To lnIdUtil, lnIdProgram +Public gcNumeProgram +gcNumeProgram = "ROACONTRACTE" +If !Like(gcNumeProgram + '*', Upper(Alltrim(Juststem(Sys(16,0))))) + Messagebox("Nu puteti porni acest program!",0+16,"Atentie") + Return +Endif +_Screen.Icon=gcNumeProgram+'.ico' + + +Set Century On +Set Deleted On +Set Date To Dmy +Set Exclusive Off +Set Cpdialog Off +Set Talk Off +Set Safety Off +Set Escape Off +Set Exact On +Set Mark To '/' +Set Ansi On +Set Console Off +Set Notify Off +Set Seconds Off +Set NullDisplay To '' +Set Decimals To 4 +_Screen.Visible=.F. +_Screen.AutoCenter=.T. +SET HOURS TO 24 + + +*VARIABILE_______ +Local lcMainClassLib +Local lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown + + +*VARIABILE__________________________________________________________________________ +Declare nror[65000] +Declare RTVA[22,2] + + + +Public CRLF,CR,LF,Tab +Store Chr(13) + Chr(10) To CRLF +Public pcNl,pcAn +Store "" To pcNl,pcAn && se initializeaza in start00 +CR=Chr(13) +LF=Chr(10) +Tab=Chr(9) + +Public pcTitlu,pl_verificat +Store "" To pcTitlu +Store .F. To pl_verificat +Public BUTON, luna_inchisa, luna_neplatita, PRIMADATA, m.ctva, m.ctvam, m.ctvai, antet, m.nivel +Public OStart,OSETVIZ,OSETTULBAR,OSETINSTRUM,orm,OTEXT,OJUR,osetgest,tlbr_INSTR,tlbr_VIZ,oprinc,DIRGEN +Public pcapsocsub,pcapsocvar +pcapsocsub=0 +pcapsocvar=0 +Public a4 +a4=.T. +m.nrgrup=999 + +Store .F. To luna_inchisa,tlbr_INSTRum,tlbr_VIZ +Store 1 To BUTON,col_menu +Store .T. To PRIMADATA,luna_neplatita + + +*** DECLARATII DE VARIABILE PUBLICE +********************************************************************************************** +*-- Save and configure environment.*********************** +lcLastSetTalk=Set("TALK") +Set Talk Off +lcLastSetPath=Set("PATH") + +Public gcAppPath,gcAppName,gcTempPath, gcCaleServerDate, gcUserNameApp, gcPasswordApp,gcDirMare, gcBasePath +Store '' To gcUserNameApp, gcPasswordApp, gnNivelUtilizator, gnGrupUtilizator, gcAcces,gcDirMare, gcBasePath + +Set Procedure To 'd:\roa\roacontracte\comun\utile\web\wwutils.prg' Additive +Set Procedure To 'd:\roa\roacontracte\comun\utile\web\wwapi.prg' Additive + +gcAppPath=Addbs(ShortPath(GetAppStartPath())) +If Right(gcAppPath ,9)="PROGRAME\" + gcAppPath = Substr(gcAppPath ,1,Len(gcAppPath )-9) +Endif + +gcAppName=Allt(Uppe(Juststem(Sys(16,0)))) +Set Default To (gcAppPath) + +lcPath = gcAppPath + 'Date;' + ; + gcAppPath + 'Include;' + ; + gcAppPath + 'FERESTRE;' + ; + gcAppPath + 'GRAFICE;' + ; + gcAppPath + 'Help;' + ; + gcAppPath + 'CLASE;' + ; + gcAppPath + 'MENIURI;' + ; + gcAppPath + 'PROGRAME;' + ; + gcAppPath + 'RAPOARTE;' + ; + gcAppPath + 'COMUN\PROGRAME;' + ; + gcAppPath + 'COMUN\CLASE;' + ; + gcAppPath + 'COMUN\FERESTRE;' + ; + gcAppPath + 'COMUN\GRAFICE;' + ; + gcAppPath + 'COMUN\RAPOARTE;' + ; + gcAppPath + 'COMUN\UTILE\CALENDAR;' + ; + gcAppPath + 'COMUN\UTILE\GRIDEXTRAS;' + ; + gcAppPath + 'COMUN\UTILE\CTL32;' + ; + gcAppPath + 'COMUN\UTILE\HPDF;' + ; + gcAppPath + 'COMUN\UTILE\HPDF\REPORTOUTPUT;' + ; + gcAppPath + 'COMUN\UTILE\WEB;' + ; + gcAppPath + 'COMUN\UTILE\EMAIL;' + ; + gcAppPath + 'COMUN\UTILE\EXCEL;' + ; + gcAppPath + 'COMUN\UTILE\NFJSON;' + ; + gcAppPath + 'COMUN\UTILE\NFXML;' + ; + gcAppPath + 'COMUN\UTILE\MENU;' + ; + Addbs(Substr(gcAppPath,1,Rat([\],gcAppPath,2)))+[COMUNROA\] + +Set Path To (lcPath) + +Push Menu _Msysmenu +lcLastSetClassLib=Set("CLASSLIB") +lcMainClassLib= gcAppPath + "COMUN\clase\appwiz.vcx" + +*CLASE__________________________________________________________ +Set Classlib To (lcMainClassLib) Additive +Set Classlib To CAUT Additive +Set Classlib To ooptiuni Additive +Set Classlib To accessibility Additive +Set Classlib To registry Additive +Set Classlib To decabaza Additive +Set Classlib To cauta_alfa_forms Additive +Set Classlib To ferestre_oracle Additive +Set Classlib To caut_ora Additive +Set Classlib To ferestre_contracte Additive +Set Classlib To onomenclatoare Additive +Set Classlib To ofundal Additive +Set Classlib To ofundal_roaclienti Additive +*!* messagebox in romana - ar trebui bagat intr-o librarie de utilitati +*!* messagebox.vcx, functia amessagebox in oproceduri_comune, imagini mb_*.bmp, messagebox.h +Set Classlib To Messagebox Additive +Set Classlib To otoolbar Additive +Set Classlib To ferestre_cere_date Additive +Set Classlib To orapoarte_comun Additive +* SET CLASSLIB TO outlook2003bar ADDITIVE +Set Classlib To onom_articole Additive +*Set Classlib To oparteneri ADDITIVE +SET CLASSLIB TO ofacturare_comun ADDITIVE + +Set Classlib To ocriterii.vcx Additive +Set Classlib To ctl32_statusbar.vcx Additive +Set Classlib To ctl32_common.vcx Additive +Set Classlib To ctl32_structs.vcx Additive +Set Classlib To ctl32_progressbar.vcx Additive +Set Classlib To serii_numere.vcx Additive +Set Classlib To ferestre_atasamente Additive +SET CLASSLIB TO ofacturare ADDITIVE +SET CLASSLIB TO onom_curs ADDITIVE +SET CLASSLIB TO comun ADDITIVE +SET CLASSLIB TO ofacturare_rapoarte ADDITIVE +SET CLASSLIB TO wwdialogs.vcx ADDITIVE +*!* modificare v 2.0.34 +SET CLASSLIB TO orapoarte_cont.vcx additive +SET CLASSLIB TO _calendar.vcx additive && v 2.1.5 +Set Classlib To locale Additive && v 2.1.10 + +SET CLASSLIB TO gridextras.vcx ADDITIVE +SET CLASSLIB TO menutool.vcx ADDITIVE + +*PROCEDURI______________________________________________________ +Set Procedure To quitapp Additive +Set Procedure To init_program Additive +Set Procedure To oproceduri_comune Additive +Set Procedure To gencursor.prg Additive +Set Procedure To updateserver.prg Additive +Set Procedure To update_nomenclator.prg Additive +Set Procedure To onomenclatoare Additive +Set Procedure To oproceduri_ams Additive +Set Procedure To ocautare Additive +Set Procedure To oinit_optiuni Additive +Set Procedure To osecurity Additive +Set Procedure To proceduri Additive +Set Procedure To oproceduri_roacontracte Additive +Set Procedure To acces_meniu Additive +Set Procedure To proceduri Additive +Set Procedure To oheader Additive +Set Procedure To oparteneri_contracte Additive +Set Procedure To oproceduri_maintenance.prg Additive && modifica_id_partener +Set Procedure To proceduri_excel Additive +Set Procedure To cauta_alfa Additive +Set Procedure To ini.prg Additive +Set Procedure To wwxmlhttp.prg Additive +Set Procedure To wwutils.prg Additive +Set Procedure To wwconfig.prg Additive +Set Procedure To oexport.prg Additive +Set Procedure To oproceduri_atasamente.prg Additive +Set Procedure To oserii_numere Additive +Set Procedure To oproceduri_atasamente Additive +SET PROCEDURE TO oproceduri_facturare ADDITIVE +SET PROCEDURE TO ofacturare_comun ADDITIVE +SET PROCEDURE TO ofacturare ADDITIVE +SET PROCEDURE TO oproceduri_curs ADDITIVE +SET PROCEDURE TO ooperatii_comune ADDITIVE +SET PROCEDURE TO odocumente ADDITIVE +SET PROCEDURE TO regex.prg ADDITIVE +SET PROCEDURE TO oproceduri_rapoarte_fact ADDITIVE +SET PROCEDURE TO filebringer.prg additive +SET PROCEDURE TO iniacces.prg ADDITIVE +SET PROCEDURE TO oupdate.prg additive +SET PROCEDURE TO procese.prg additive +SET PROCEDURE TO version.prg additive +SET PROCEDURE TO wwapi.prg ADDITIVE +SET PROCEDURE TO wwcodeupdate.prg additive +SET PROCEDURE TO wwhttp.prg ADDITIVE +SET PROCEDURE TO xmlaccess.prg additive +SET PROCEDURE TO xmlparser.prg additive +*!* modificare v 2.0.34 +SET PROCEDURE TO validare.prg Additive +*!* modificare v 2.0.35 +SET PROCEDURE TO xdate.prg Additive +SET PROCEDURE TO suma_in_vorbe.prg additive +*!* modificare v 2.0.35 ^ + +SET PROCEDURE TO gridextrasprocs.prg ADDITIVE +Set Procedure To proceduri_comune Additive +SET PROCEDURE TO blat.prg ADDITIVE + +SET PROCEDURE TO email.prg ADDITIVE +SET PROCEDURE TO nfxmlread.prg ADDITIVE +SET PROCEDURE TO nfxmlread.prg ADDITIVE +SET PROCEDURE TO nfjsonread.prg ADDITIVE + +SET PROCEDURE TO xmlefactura.prg ADDITIVE + +*---------------------------------------------------------------------------- + +If Pcount() = 1 And Type('tparam') = 'C' + glParametri = .T. + Private laParametri + Declare laParametri[1] + lcParam = Alltrim(tparam) + lnNr = lista2array(lcParam,@laParametri,";") + If lnNr < 6 + Messagebox('Numar incorect de parametri',0+16,'Eroare') + Return + Endif + lchost = laParametri[1] + lcUserName = laParametri[2] + lcPassword = laParametri[3] + lnIdUtil = Round(Val(laParametri[4]),0) + lnIdProgram = Round(Val(laParametri[5]),0) + lnParametru_prog = Round(Val(laParametri[6]),0) +Else + glParametri = .F. + lchost = 'JCSSERVER' + lcUserName = 'CONTAFIN_ORACLE' + lcPassword = '' + lnIdUtil = 0 + lnIdProgram = 0 + lnParametru_prog = 0 + +Endif + + +*------------------------------------- +Public glVerificTabel && daca se verifica structura tabelelor in totv.prg +glVerificTabel=.T. + +Public glQuit +glQuit = .F. + +Public gnIdIstoric +gnIdIstoric = 0 + +*!* gcAppDataPath=gcAppPath+"Date_"+gcAppName+"\" && D:\CONTAFIN\TRANS\DATE_TRANS && PT OPTIUNI , FISIERE SPECIFICE PROGRAMULUI SI +gcUtilizatoriPath = gcAppPath + "UTILIZATORI\" + +Store "" To gcTempPath, gcCaleServerDate + +*!* If !Directory(gcAppDataPath) +*!* Md (gcAppDataPath) +*!* Endif +*--------------------------------------- +*** DIRGEN +liat=Rat("\",gcAppPath,2) +gcDirMare = Addbs(Left(gcAppPath,liat-1)) && modificare v 2.0.34 +DIRGEN = gcDirMare +gcBasePath = DIRGEN +Cd &DIRGEN + +*!* 21.06.2006 +*!* marius.mutu +Private gcGeneralIniFile, gcSettingsFile +gcGeneralIniFile = m.gcDirMare + "settings.ini" +gcSettingsFile = m.gcGeneralIniFile +If !File(gcGeneralIniFile) + + TEXT TO lcSettings NOSHOW +[errors] +host=http://romfast.dnsalias.com:3000/errors/create_xml + ENDTEXT + + Strtofile(lcSettings, gcGeneralIniFile) +Endif + +*!* modificare v 2.1.10 +PRIVATE gcReportPreviewer, gcReportPreviewerPath +gcReportPreviewer = "FoxyPreview" && oexport.prg +gcReportPreviewerPath = gcDirMare + "COMUNROA\" +*!* modificare v 2.1.10 ^ + +gcSecurityPath = m.gcDirMare + 'Security\' +gcSecurityFile = gcSecurityPath + 'ROA_SECURITY.TXT' + +Private poLog,goLog && obiect pt logarea mesajelor sistemului +poLog = Newobject("Log_Mesaje","Log_Mesaje.prg") +goLog = poLog + +*!* public poLog && obiect pt logarea mesajelor sistemului +*!* poLog = NEWOBJECT("Log_Mesaje","Log_Mesaje.prg") + +*!* modificare v 2.1.10 +Private gcLocalePath, goLocale, gcLocale +gcLocalePath = gcAppPath + "Locale\" +lcLanguage = getini(gcGeneralIniFile,"locale","lang") +llLocale= getini(gcGeneralIniFile,"locale","llocale") +If Empty(m.lcLanguage) + gcLocale = 'Romana' +Else + gcLocale = m.lcLanguage +Endif +Local lcObjLocale +If gcLocale = 'Romana' + lcObjLocale = [Locale_dummy] +Else + lcObjLocale = [Locale] +Endif +goLocale=Newobject(lcObjLocale,"Locale.vcx") +If !Empty(m.llLocale) And m.llLocale<>'0' + goLocale.llocale=.T. +Endif +Release lcObjLocale +goLocale.locale = gcLocale +*!* modificare v 2.1.10 ^ + +Public glQuit +glQuit = .F. + +Public gnIdIstoric +gnIdIstoric = 0 +Public gcAntet +Store '' To gcAntet +*!* modificare v 2.1.10 +*!* If verificari() +*!* _Screen.Visible=.T. +*!* Do mesaj With "Se fac verificari programului","Va rugam reveniti" +*!* glQuit= .T. +*!* Quit +*!* Endif + +*!* If !Debug_Start() +*!* lcParam=tparam +*!* If Empty(tparam) Or (Type('tParam')='C' And !verific_start(tparam,DIRGEN,gcAppName)) +*!* _Screen.Visible=.T. +*!* Do mesaj With "Programul trebuie pornit doar din START","" +*!* Quit +*!* Endif +*!* Endif +*!* modificare v 2.1.10 ^ +*** verificare serie permanenta +*!* modificare v 2.0.41 +*!* Public tipar,SER_PERM,SER_PERI,VERSIUNE +*!* Store .F. To SER_PERM,SER_PERI +*!* modificare v 2.0.41 ^ + +***************************** VARIABILE ORACLE +Private goUtilizator +Private gnHandle,gnidutil,GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA,GNDIFZILE, gcUserNameApp, gcPasswordApp +Private gnButon && variabila pentru renunt si terminat +Store 2 To gnButon +Store '' To GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA, gcUserNameApp, gcPasswordApp, gcNivelUtilizator, gcGrupUtilizator, gcAcces +gnHandle = -1 +gnidutil = 0 + +Private gcHost, gcUserName, gcPassword, gofundal, gnIdProgram, gnId_prg_owner, gnParametru_prog +Store 0 To gnIdProgram, gnId_prg_owner +Store 1 To gnParametru_prog && default contracte clienti (daca nu se porneste programul din roastart) +gofundal='' + +Private goFirma,gnIdFirma,gcFirma,gnAn,gnLuna && ,gnPA,gnPC +&& STORE 0 TO gnPA,gnPC && nr. de zecimale afisare, calcul +Store Null To goFirma +Store 0 To gnIdFirma,gnAn,gnLuna +Store '' To gcFirma + +Private glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa + +Store .F. To glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa + +***toolbar*** +Private otool,ohelp +Store '' To otool,ohelp +***toolbar*** + +Private gcS && schema firmei +Store 'DEMO' To gcS + +If Type('laparametri',1)="A" + If Alen(laParametri,1)=10 + gnAn = Val(laParametri[7]) + gnLuna = Val(laParametri[8]) &&lansare noua + gcS = laParametri[9] + gnIdFirma = Val(laParametri[10]) + Endif +Endif + +Private gcCopyRight +gcCopyRight = '© ROA Romfast SRL' + +&& obiect global wrap pt sqlexec cu text eroare si succes +Private goExecutor, goConn +goExecutor = Createobject("oExecutor") +goConn = Createobject("oConn") + +&& obiect global pentru export : frx, xls +Private goExport +goExport = Createobject("oExportConfig") + +*!* 21.06.2006 +*!* marius.mutu +Private goMyXMLHTTP +lcHostErrors = getini(gcGeneralIniFile,'errors','host') +goMyXMLHTTP = Createobject("MyXMLHTTP", lcHostErrors) + +*!* 28.10.2008 +Private pnGNnumar && poGeneratorNumere +Store 0 To pnGNnumar + +&& obiect global pt luna aleasa din calendar +Private goCalendar +Store Null To goCalendar + +gcHost = lchost +gcUserName = lcUserName +gcPassword = lcPassword +gcUserNameApp = lcUserNameApp +gcPasswordApp = lcPasswordApp +gnidutil = lnIdUtil +gnIdProgram = lnIdProgram +gnParametru_prog = lnParametru_prog +If Empty(gnParametru_prog) + gnParametru_prog = 1 +Endif + + +If !glParametri + lnValid = getcrsSecurity(gcSecurityFile) + If lnValid > 0 + If Used('crsHost') + Select crsHost + Go Top + gcHost = Alltrim(Host) + gcUserName = Alltrim(schema) + gcPassword = Alltrim(pwd) + Use In crsHost + Endif + Endif +Endif + +*!* IF glParametri +*!* gcHost = lcHost +*!* gcUserName = lcUserName +*!* gcPassword = lcPassword +*!* gcUserNameApp = lcUserNameApp +*!* gcPasswordApp = lcPasswordApp +*!* gnIdUtil = lnIdUtil +*!* gnIdProgram = lnIdProgram +*!* ELSE +*!* gcHost = "jcsserver" +*!* gcUserName = "contafin_ORACLE" +*!* gcPassword = "123" +*!* gcUserNameApp = '' +*!* gcPasswordApp = '' +*!* gnIdUtil = 1 +*!* gnIdProgram = 8 +*!* ENDIF +***************************** VARIABILE ORACLE + + +*!* modificare v 2.0.41 +*!* Use &gcAppPath\SER In 0 Alias SER Shared +*!* Select SER +*!* Go Top +*!* tipar=TIP +*!* SER_PERM=SER_PERMAN +*!* SER_PERI=SER_PERIOD +*!* VERSIUNE=VERcont +*!* MODEL_PROGRAM=MODEL +*!* Use In SER +*!* parolamea=Substr(tipar,Month(Date()),1) +*!* parolamea=parolamea+Allt(Str(Day(Date())))+Allt(Str(Month(Date()))) + +*!* If !_DEBUG() +*!* If SER_PERM And !verif_ser_perm() +*!* Quit +*!* Endif +*!* Endif + +*!* Public cales,eserver,loc,numestatie +*!* eserver=.F. +*!* Store '' To cales,loc,numestatie +*!* modificare v 2.0.41 ^ + +Public NUMEPROGRAM,MENIUPROGRAM,FUNDALPROGRAM + +NUMEPROGRAM = 'ROACONTRACTE' + +_program='roacontracte' + + + +lcOnShutdown="ShutDown()" +On Shutdown &lcOnShutdown +On Error ErrorHandler(Error(),Program(),Lineno()) +*!*_Shell="DO Cleanup IN progs\ROACLIENTI" + +*-- Instantiate application object.*************************** +Release goApp +Public goApp +goApp=Createobject("wzApplication") + +*-- Configure application object.***************************** +Local laVersion +Dimension laVersion(12) +If Agetfileversion(laVersion, Sys(16,0)) > 0 + NUMEPROGRAM = laVersion(10) +Endif +Release laVersion + +Do Case + Case gnParametru_prog = 1 && clienti + NUMEPROGRAM='ROA - CONTRACTE CLIENTI' + Case gnParametru_prog = 2 && furnizori + NUMEPROGRAM='ROA - CONTRACTE FURNIZORI' + Otherwise + NUMEPROGRAM='ROA - CONTRACTE' +Endcase + +goApp.SetCaption(NUMEPROGRAM) +goApp.cStartupMenu= gcAppPath + "meniuri\roacontracte.mpr" +*!* goApp.cStartupForm=DIRGEN+"\devize\FERESTRE\FUNDAL" + +goApp.cStartupForm = gcAppPath + 'comun\ferestre\frm_login.scx' + +_Screen.WindowState=2 +*-- Show application. + +Public poCtr, goContract +Store '' To poCtr, goContract + +Public podg_dg, podg_ob, podg_tf, podg_tl, podg_obs, podg_link, podg_fact, podg_garantii +* STORE '' TO podg_dg, podg_ob, podg_tf, podg_tl, podg_obs, podg_link, podg_fact + +Private poCtrScadentar, poCtrFactGarant, poLink +Store '' To poCtrScadentar, poCtrFactGarant, poLink +&& folosesc gencursorul pt ca am nevoie de schema pt. DATA_rata + +goApp.Show + + +*-- Release application. +Release goApp + + +*-- Restore default menu. +*!* Pop Menu _Msysmenu + +*-- Restore environment. +On Error +On Shutdown +If Not lcLastSetClassLib==Set("classlib") + Release Classlib (lcMainClassLib) +Endif +If Empty(lcLastSetPath) + Set Path To +Else + Set Path To &lcLastSetPath +Endif +If lcLastSetTalk=="ON" + Set Talk On +Else + Set Talk Off +Endif +CLEANUP() + +Return + + + + +* FUNCTII______________________________________________________________________ +Function ErrorHandler(nError,cMethod,nLine) + Local lcErrorMsg,lcCodeLineMsg + + Wait Clear + lcErrorMsg=Message()+Chr(13)+Chr(13) + lcErrorMsg=lcErrorMsg+"Method: "+cMethod + lcCodeLineMsg=Message(1) + If Between(nLine,1,10000) And Not lcCodeLineMsg="..." + lcErrorMsg=lcErrorMsg+Chr(13)+"Line: "+Alltrim(Str(nLine)) + If Not Empty(lcCodeLineMsg) + lcErrorMsg=lcErrorMsg+Chr(13)+Chr(13)+lcCodeLineMsg + Endif + Endif + + If Type('goMyXMLHTTP') = 'O' + lcLunaHTTP = Iif(Type('gnLuna') = 'N', Transform(gnLuna) + "/","") + Iif(Type('GNAN') = 'N', Transform(gnAn),"") + lcErrorMsgHTTP = Sys(0) + ":" + Iif(Type('GCS')='C'," " + gcS,"") + ": " + lcLunaHTTP + Chr(13) +Chr(10) + lcErrorMsg + ; + CHR(13) +Chr(10) + Chr(13) + Chr(10) + GETCALLSTACK() + lcUserName = gcUserNameApp + lcProgram = Juststem(Sys(16,0)) + goMyXMLHTTP.postError(lcErrorMsgHTTP, lcUserName, lcProgram) + Endif + + If AMESSAGEBOX(lcErrorMsg,17,_Screen.Caption)#1 + On Error + On Shutdown + If _vfp.StartMode = 0 + Debug + Suspend + Else + Quit + Endif + *!* RETURN .F. + Endif + +Endfunc + + + +Function Shutdown + +*!* =End_Istoric(gnIdIstoric, Addbs(DIRGEN)+"DATERETEA\", "START_ISTORIC") + If Type("goApp")=="O" And Not Isnull(goApp) + Return goApp.OnShutDown() + Endif + Cleanup() + Quit +Endfunc + + +Function Cleanup + + If Cntbar("_msysmenu")=7 + Return + Endif + On Error + On Shutdown + Set Classlib To + Set Path To + Clear All +* Close All + Pop Menu _Msysmenu + Return + + + + *----------------------------------------------------- + +Function verif_ser_perm + Clear + + Return PORNIRE() + + +Function PORNIRE + Set Exact On + Private calewin,calesys,checksum1,checksum2,serinreg,serdisk,file1,file2,valret,serdisktemp,ser1,ser2,key1,KEY2 + Store '' To calewin,serinreg,serdisk,calesys,serdisktemp,catehd,ser1,ser2,key1,KEY2 + Store 0 To checksum1,checksum2 + Store .T. To valret + Declare Integer SHGetFolderPath In SHFOLDER.Dll ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath + Declare Integer GetActiveWindow In WIN32API + #Define CSIDL_WINDOWS 36 + #Define CSIDL_SYSTEM 37 + #Define CSIDL_PROGRAMS 38 + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) + calewin=Left(lcPath,At(Chr(0),lcPath)-1) + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_SYSTEM,0,0,@lcPath) + calesys=Left(lcPath,At(Chr(0),lcPath)-1) + &&se verifica existenta celor trei fisiere + lcTextEroare = "" + If (Not File(calesys+'\diskserial.dll')) Or (Not File(calesys+'\getmacip.dll')) Or (Not File(calewin+'\comdir.snr')) + valret=.F. + lcTextEroare = lcTextEroare + calesys + '\diskserial.dll ' + Transform(File(calesys+'\diskserial.dll')) + ; + ' ' + calesys+'\getmacip.dll' + Transform(File(calesys+'\getmacip.dll')) + ' ' + calewin+'\comdir.snr' + Transform(File(calewin+'\comdir.snr')) + Chr(13) + Chr(10) + Endif + If valret + file1=Filetostr(calesys+'\diskserial.dll') + checksum1=Sys(2007,file1) + file2=Filetostr(calesys+'\getmacip.dll') + checksum2=Sys(2007,file2) + &&severifica daca dll-urile nu au fost modificate + If (Val(checksum1) != 58755) Or (Val(checksum2) != 30476) + valret=.F. + lcTextEroare = lcTextEroare + 'checksum1 ' + checksum1 + ' checksum2 ' + checksum2 + Chr(13) + Chr(10) + Endif + Endif + &&se citesc seriile tutturor celor patru hard disk-uri posibile(pe IDE primary master,primary slave...) + &&se tine minte primul cu seria nenula-daca nu s-a putut citi seria de la nici unul se pune o serie default + &&seria default este "NUAREHAR" + If valret + Declare Integer GetSerialNumber In diskSerial.Dll Integer ,String + catehd=0 + For i=0 To 3 + serdisktemp=Space(40) + GetSerialNumber(i,@serdisktemp) + If (Len(Alltrim(serdisktemp))!=0) And (catehd=0) + serdisktemp=sircaracter(serdisktemp) + serdisk=serdisktemp + catehd=catehd+1 + Endif + Endfor + If (Len(Alltrim(serdisk))=0) + serdisk='NUAREHAR' + Else + If ((Len(Alltrim(serdisk))>0) And (Len(Alltrim(serdisk))<8)) + serdisk=serdisk+Replicate('1',8-Len(Alltrim(serdisk))) + Endif + Endif + serdisk=Substr(Alltrim(serdisk),Len(Alltrim(serdisk))-7,8) + Endif + &&se citeste din comdir.snr seria de inregistrare si se verifica egalitatea cu seria obtinuta anterior + If valret + gnFileHandle = Fopen(calewin+'\comdir.snr') + nSize = Fseek(gnFileHandle, 0, 2) && Move pointer to EOF + If nSize!=9 + valret=.F. + lcTextEroare = lcTextEroare + 'nSize ' + Transform(nSize) + Chr(13) + Chr(10) + Else + = Fseek(gnFileHandle, 0, 0) && Move pointer to BOF + cString = Fread(gnFileHandle,9) + ser1=Substr(cString,1,4) + ser2=Substr(cString,5,4) + key1=Substr(cString,9,1) + KEY2=DECTOBIN(Alltrim(HEXDEC(key1))) + serinreg=decodare1(Alltrim(Upper(ser1)),KEY2)+decodare1(Alltrim(Upper(ser2)),KEY2) + If serdisk!=serinreg + valret=.F. + lcTextEroare = lcTextEroare + 'serdisk ' + serdisk + ' serinreg ' + serinreg + Chr(13) + Chr(10) + Endif + Endif + = Fclose(gnFileHandle) + Endif + seriedisk1=serdisk + serieinreg1=serinreg + On Error valret=.F. + poLog.Log('Eroare verificare serie ' + Chr(13) + Chr(10) + lcTextEroare, Program()) + If Type('goMyXMLHTTP') = 'O' + If !Empty(lcTextEroare) + goMyXMLHTTP.postError('Eroare verificare serie ' + Chr(13) + Chr(10) + lcTextEroare, gcUserNameApp, Juststem(Sys(16,0))) + Endif + Endif + Return valret + ************* + + ************* +Function decodare1 + Parameters lstring,CHEIE + Local lens,poz1,poz2,POZ3,lret,LRET2,lcstring,val1,lret1 + lret='' + lret1='' + LRET2='' + lcstring=Alltrim(Upper(lstring)) + lens=Len(lcstring) + For i=1 To 4 + poz1=Substr(lcstring,i,1) + val1=Asc(poz1) + POZ3=Substr(CHEIE,i,1) + Do Case + Case val1>=48 And val1<=57 + If ((val1-47)+Int(Val(POZ3)))<=10 + poz2=Chr(val1+Int(Val(POZ3))) + Else + poz2=Chr(val1+Int(Val(POZ3))-10) + Endif + Case val1>=65 And val1<=90 + If ((val1-64)+2*Int(Val(POZ3)))<=26 + poz2=Chr(val1+2*Int(Val(POZ3))) + Else + poz2=Chr(val1+2*Int(Val(POZ3))-26) + Endif + Endcase + LRET2=LRET2+poz2 + Endfor + For i=1 To lens + poz1=Substr(LRET2,i,1) + val1=Asc(poz1) + Do Case + Case val1>=48 And val1<=57 + If ((val1-47)+i)<=10 + poz2=Chr(val1+i) + Else + poz2=Chr(val1+i-10) + Endif + Case val1>=65 And val1<=90 + If ((val1-64)+2*i)<=26 + poz2=Chr(val1+2*i) + Else + poz2=Chr(val1+2*i-26) + Endif + Endcase + lret=lret+poz2 + Endfor + lens=Len(lret) + For i=1 To lens + poz1=Substr(lret,i,1) + val1=Asc(poz1) + Do Case + Case val1>=48 And val1<=57 + poz2=Chr(val1+17)&& din 0-9 in A-J + Case val1>=65 And val1<=74 + poz2=Chr(val1-17)&& din A-J in 0-9 + Case val1>=75 And val1<=82 + poz2=Chr(val1+8)&&din K-R in S-Z + Case val1>=83 And val1<=90 + poz2=Chr(val1-8)&&din S-Z in K-R + Endcase + lret1=lret1+poz2 + Endfor + Return lret1 + *********** + &&transformarea in decimal a unui caracter hexa +Function HEXDEC + Lparameters LC + Local LV + Do Case + Case LC=='0' + LV='0' + Case LC=='1' + LV='1' + Case LC=='2' + LV='2' + Case LC=='3' + LV='3' + Case LC=='4' + LV='4' + Case LC=='5' + LV='5' + Case LC=='6' + LV='6' + Case LC=='7' + LV='7' + Case LC=='8' + LV='8' + Case LC=='9' + LV='9' + Case LC=='A' + LV='10' + Case LC=='B' + LV='11' + Case LC=='C' + LV='12' + Case LC=='D' + LV='13' + Case LC=='E' + LV='14' + Case LC=='F' + LV='15' + Endcase + Return LV + **************** + &&codarea binara din hexa pe patru biti +Function DECTOBIN + Parameters sc + Local lretf + Do Case + Case sc=='0' + lretf='0000' + Case sc=='1' + lretf='0001' + Case sc=='2' + lretf='0010' + Case sc=='3' + lretf='0011' + Case sc=='4' + lretf='0100' + Case sc=='5' + lretf='0101' + Case sc=='6' + lretf='0110' + Case sc=='7' + lretf='0111' + Case sc=='8' + lretf='1000' + Case sc=='9' + lretf='1001' + Case sc=='10' + lretf='1010' + Case sc=='11' + lretf='1011' + Case sc=='12' + lretf='1100' + Case sc=='13' + lretf='1101' + Case sc=='14' + lretf='1110' + Case sc=='15' + lretf='1111' + Endcase + Return lretf + *********** +Function ECARACTER + Parameters strg1 + Private pz,ch,lcstring,vret,lg1 + Store 0 To pz,lg1 + Store '' To ch,lcstring + Store .T. To vret + lcstring=Upper(strg1) + lg1=Len(lcstring) + For ind1=1 To lg1 + ch=Substr(lcstring,ind1,1) + If (Not Between(Asc(ch),48,57)) And (Not Between(Asc(ch),65,90)) + vret=.F. + Exit + Endif + Endfor + Return vret + ************ +Function sircaracter + Parameters strg1 + Private pz,ch,lcstring,vret,lg1,lciesire + Store 0 To pz,lg1 + Store '' To ch,lcstring,lciesire + Store .T. To vret + strg1=Strtran(strg1,Alltrim(Chr(39)),'')&&caracterul ' + strg1=Strtran(strg1,Alltrim(Chr(39)),'')&&caracterul " + lcstring=Upper(Alltrim(strg1)) + lg1=Len(lcstring) + For ind1=1 To lg1 + ch=Substr(lcstring,ind1,1) + If Between(Asc(ch),48,57) Or Between(Asc(ch),65,90) + lciesire=lciesire+ch + Endif + Endfor + Return lciesire + + + + ***------------------------------------- +Procedure _DEBUG + + Private lcret,lcfisier,lcPath,lccalewin + Declare Integer SHGetFolderPath In SHFOLDER.Dll ; + INTEGER hwndOwner, ; + INTEGER nFolder, ; + INTEGER hToken, ; + INTEGER dwFlags, ; + STRING @ pszPath + Declare Integer GetActiveWindow In WIN32API + #Define CSIDL_WINDOWS 36 + + + lcPath = Repl(Chr(0),261) + =SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath) + lccalewin=Left(lcPath,At(Chr(0),lcPath)-1) + + lcret=.F. + lcfisier=Addbs(lccalewin)+[DEBUG.TXT] + + lcLog = '1 ' + lcfisier + poLog.Log(lcLog,Program()) + + If File(lcfisier) + LCVAL=Filetostr(lcfisier) + + LNVAL1=Mod(Val(Right(LCVAL,1)),2) && restul 1 sau 0; daca e impar e 1 + lnval2=Val(Left(LCVAL,Len(LCVAL)-1)) + + lcLog = Transform(LNVAL1) + ' ' + Transform(lnval2) + poLog.Log(lcLog,Program()) + + If LNVAL1=1 Or Year(Date())-Month(Date())=lnval2 + lcret=.T. + Endif + Endif + + lcLog = Transform(lcret) + poLog.Log(lcLog,Program()) + + Return lcret + +Endproc + + +Function Start_Nou + *!* llExista_Branch = Exista_Branch(,,dirgen) + + *!* lcLog = TRANSFORM(llExista_Branch) + *!* poLog.log(lcLog,PROGRAM()) + Return Exista_Branch(,,DIRGEN) + Return llExista_Branch + +Endfunc && start_nou + +Procedure Debug_Start + + lcFile = gcAppPath + "debug.txt" + If File(lcFile) + lcLog = 'debug_start' + poLog.Log(lcLog,Program()) + Else + lcLog = '!debug_start' + poLog.Log(lcLog,Program()) + Endif + + If File(lcFile) Or !Start_Nou() + Return .T. + Endif + Return .F. + +Endproc && Debug_Start +************************************************************************ +Procedure verificari + Parameters tcFisierVerif + + lcverificari = Addbs(gcAppPath)+gcAppName+".txt" + + + If File(lcverificari) + Return .T. + Endif + Return .F. + +Endproc && verificari*************** + +Procedure myinstance + Parameters myApp + =Ddesetoption("SAFETY",.F.) + ichannel = Ddeinitiate(myApp,"ZOOM") + If ichannel =>0 + =Ddeterminate(ichannel) + Quit + Endif + =Ddesetservice(myApp,"define") + =Ddesetservice(myApp,"execute") + =Ddesettopic(myApp,"","ddezoom") + Return + ****************************************** +Procedure ddezoom + Parameter ichannel,saction,sitem,sdata,sformat,istatus + Zoom Window Screen Norm + Return + ********************************************************** + ** EOF + ********************************************************** diff --git a/Programe/shutdown.prg b/Programe/shutdown.prg new file mode 100644 index 0000000..91623e3 --- /dev/null +++ b/Programe/shutdown.prg @@ -0,0 +1,3 @@ +IF TYPE("goApp")=="O" AND NOT ISNULL(goApp) + RETURN goApp.OnShutDown() +ENDIF diff --git a/Programe/update_nomenclator.prg b/Programe/update_nomenclator.prg new file mode 100644 index 0000000..bb36613 --- /dev/null +++ b/Programe/update_nomenclator.prg @@ -0,0 +1,65 @@ +********************************************************** +PROCEDURE update_nomenclator + + *!* DO update_coresp_tip_part + *!* DO update_coresp_tip_cont + DO update_lunilean + + *** tabele meniu deschise din proiect + LOCAL lcCaleDateMenu + + lcCaleDateMenu=gcAppPath+[DATEMENU\] +*!* modificare v 2.0.35 +*!* IF !USED('MILA1') +*!* USE &lcCaleDateMenu.MILA1 IN 0 ALIAS MILA1 +*!* ENDIF + +*!* IF !USED('XREQUEST') +*!* USE &lcCaleDateMenu.XREQUEST IN 0 ALIAS XREQUEST +*!* ENDIF +*!* IF !USED('xitems') +*!* USE &lcCaleDateMenu.xitems IN 0 ALIAS xitems +*!* ENDIF +*!* IF !USED('YACT') +*!* USE &lcCaleDateMenu.YACT IN 0 ALIAS YACT +*!* ENDIF +*!* IF !USED('XSETS') +*!* USE &lcCaleDateMenu.XSETS IN 0 ALIAS XSETS ORDER TAG ID_SET +*!* ENDIF +*!* IF !USED('xACT') +*!* USE &lcCaleDateMenu.xACT IN 0 ALIAS xACT +*!* ENDIF +*!* IF !USED('xnote') +*!* USE &lcCaleDateMenu.xnote IN 0 ALIAS xnote +*!* ENDIF +lnSucces = xdate() +*!* modificare v 2.0.35 ^ + +*!* IF !USED('menu1') +*!* USE &lcCaleDateMenu.menu1 IN 0 ALIAS menu1 EXCL +*!* ENDIF + + IF !USED('INFISIERE') + USE &lcCaleDateMenu.INFISIERE IN 0 ALIAS INFISIERE + ENDIF + + *!* modificare v 2.1.1 + If !Used('mila1') + Use &lcCaleDateMenu.mila1 In 0 Alias mila1 + endif + *!* modificare v 2.1.1 ^ + +*!* IF !USED('nom_meniu') +*!* USE &lcCaleDateMenu.nom_meniu IN 0 ALIAS nom_meniu +*!* ENDIF + +*!* IF !USED('refaceri') +*!* USE &lcCaleDateMenu.refaceri IN 0 ALIAS refaceri +*!* ENDIF + +*!* IF !USED('tabela_fisa_cont') +*!* USE &lcCaleDateMenu.tabela_fisa_cont IN 0 ALIAS tabela_fisa_cont +*!* ENDIF + + +ENDPROC && update_nomenclator \ No newline at end of file diff --git a/Programe/update_roadef_sal.prg b/Programe/update_roadef_sal.prg new file mode 100644 index 0000000..17011d8 --- /dev/null +++ b/Programe/update_roadef_sal.prg @@ -0,0 +1,119 @@ + +******************************************* +* PROCEDURE update_responsabil( ) +* Date : 05/23/05, 12:25:08 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE update_responsabil( ) +If Used('v_resp') + Use In v_resp +Endif + +lcSql = [select * from ] + gcS + [.sal_responsabil where ales = 1] +lcCursor = [v_resp] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +ENDPROC +*----------------------------------sfarsit procedura update_responsabil---------------------------------- + +******************************************* +* PROCEDURE update_sectie( ) +* Data/ora : 12/16/04, 14:26:22 +* autor : liana.macinic +* descriere: + +****** PARAMETER BLOCK ************** +* Parametri : 0 +* +******************************************* +Procedure update_sectie( ) +If Used('v_sectie') + Use In v_sectie +Endif + +lcSql = [select * from ] + gcS + [.nom_sectii order by sectie]&& where inactiv = 0] +lcCursor = [v_sectie] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +Return lnSucces + +Endproc +******************************************* +* PROCEDURE update_transe( ) +* Date : 05/26/05, 16:25:42 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE update_transe( ) +If Used('v_transe') + Use In v_sectie +Endif + +lcSql = [select * from ] + gcS + [.SAL_NOM_TRANSE where inactiv = 0 and sters = 0] +lcCursor = [v_transe] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +Return lnSucces + +ENDPROC +*----------------------------------sfarsit procedura update_transa---------------------------------- +******************************************* +* PROCEDURE update_ore( ) +* Date : 05/26/05, 16:25:42 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE update_ore( ) +If Used('v_nomore') + Use In v_nomore +Endif + +lcSql = [select * from ] + gcS + [.SAL_NOMORE where inactiv = 0 and sters = 0] +lcCursor = [v_nomore] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +Return lnSucces + +ENDPROC +*----------------------------------sfarsit procedura update_ore---------------------------------- +******************************************* +* PROCEDURE update_calcdin( ) +* Date : 06/17/05, 12:52:29 +* author : liana.macinic +* description: + +****** PARAMETER BLOCK ************** +* Parameters : 0 +* +******************************************* +PROCEDURE update_calcdin( ) +If Used('v_calcdin') + Use In v_calcdin +Endif + +lcSql = [select id_calcdin,camp,denumire as nume_camp,tabel from ] + gcS + [.sal_nom_calcdin where 2=2] +lcCursor = [v_calcdin] +lnSucces = goExecutor.oExecute(lcSql,lcCursor) +goExecutor.oReset() + +Return lnSucces + +ENDPROC +*----------------------------------sfarsit procedura update_calcdin---------------------------------- \ No newline at end of file diff --git a/Programe/verifica.prg b/Programe/verifica.prg new file mode 100644 index 0000000..080865f --- /dev/null +++ b/Programe/verifica.prg @@ -0,0 +1,1486 @@ +&& ------------------------------ INCEPUT: VerFurnizor ------------------------------ +*!* Procedura: VerFurnizor +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 23-01-2004 15:18:03 +*!* Autor: ANDREI.BAUTU + +PROCEDURE VerFurnizor + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Balanta de furnizori' + + SELE FURNIZOR + SET FILTER TO + SUM PLATIT, TOTDEB, totcred TO M.PLATIT, M.TOTDEB, m.totcred + + IF FLOCK() + REPLACE ALL totdeb WITH precdeb+platit, totcred WITH preccred+achizit, TOTAVANS WITH PRECAVANS+AVANS + UNLOCK + ENDIF + SUM totcred, totdeb, totAVANS TO M.TACHIZIT, M.TPLATIT, M.TAVANS + + SELE BAL + SET FILTER TO + SUM soldcred TO m.soldcred FOR LEFT(cont,3)='401' + M.SOLD=M.SOLDCRED + SUM totdeb-totcred TO m.solddeb FOR LEFT(cont,3)='409' + + if m.tavans # m.solddeb + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta avans fata de sold debitor 409 este ' + LTRIM(STR(M.solddeb-M.TAVANS,12)), .T., llInTabel, lnId_ref + ENDIF + + m.sold=m.sold-m.solddeb + + IF M.sold # m.Tachizit-M.TPLATIT-M.TAVANS + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + '401;409 Diferenta in sold este de: '+ LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT+M.TAVANS,12)), .T., llInTabel, lnId_ref + + *'Diferenta fata de sold creditor 401-sold debitor 409 este ' + LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT+M.TAVANS,12)), .T., llInTabel + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold creditor 401-sold debitor 409.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC + +&& ------------------------------ SFARSIT: VerFurnizor ------------------------------ + +&& ------------------------------ INCEPUT: VerCumpLun ------------------------------- +*!* Procedura: VerCumpLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:38:37 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCumpLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Facturi cumparari' + + LOCAL soldcump + SELE CUMPlun + SET FILTER TO + SUM totctva-achitat TO m.soldcump + + SELECT furnizor + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre sold furnizor si sold facturi este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente Diferenta intre sold furnizor si sold facturi.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCumpLun ------------------------------ + +&& ------------------------------INCEPUT: Verfurniz404 ------------------------------ +*!* Procedura: Verfurniz404 +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 10:08:37 +*!* Autor: ANDREI.BAUTU +PROCEDURE Verfurniz404 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Balanta furnizori imobilizari' + + SELE furniz404 + SET FILTER TO + SUM PLATIT,TOTDEB,totcred TO M.PLATIT,M.TOTDEB,m.totcred + + IF FLOCK() + REPLACE ALL totdeb WITH precdeb+platit, totcred WITH preccred+achizit + UNLOCK + ENDIF + SUM totcred,totdeb TO M.TACHIZIT, M.TPLATIT + + SELE BAL + SET FILTER TO + SUM soldcred TO m.soldcred FOR LEFT(cont,3)='404' + m.sold=m.soldCRED + + IF M.sold # m.Tachizit-M.TPLATIT + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 404 este ' + LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT, 12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 404 .', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------SFARSIT: Verfurniz404 ------------------------------ + +&& ------------------------------ INCEPUT: VerCumpLun404 ------------------------------ +*!* Procedura: VerCumpLun404 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:27:19 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCumpLun404 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Facturi cumparari 404' + + LOCAL soldcump + SELECT cumplun404 + SET FILTER TO + SUM totctva - achitat TO m.soldcump + + SELECT furniz404 + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta analitica de facturi este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta analitica de facturi.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCumpLun404 ------------------------------ + +&& ------------------------------INCEPUT: Verana408 ------------------------------ +*!* Procedura: Verana408 +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 10:21:58 +*!* Autor: ANDREI.BAUTU +PROCEDURE Verana408 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Balanta facturi nesosite' + + SELE ANA408 + SET FILTER TO + + IF FLOCK() + REPLACE ALL totdeb WITH precdeb+platit,totcred WITH preccred+achizit + UNLOCK + ENDIF + SUM totcred,totdeb TO M.TACHIZIT,M.TPLATIT + + SELE BAL + SET FILTER TO + SUM soldcred TO m.soldcred FOR LEFT(cont,3)='408' + M.SOLD=M.SOLDCRED + *!* M.SOLD=M.SOLDCRED+M.SOLD + + IF M.sold # m.Tachizit-M.TPLATIT + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 408 este ' + LTRIM(STR(M.SOLD+M.TPLATIT-M.TACHIZIT, 12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 408.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------SFARSIT: Verana408 ------------------------------ + +&& ------------------------------ INCEPUT: VerFact408 ------------------------------ +*!* Procedura: VerFact408 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:19:38 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerFact408 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Facturi nesosite' + + LOCAL soldcump + SELECT FACT408 + SET FILTER TO + SUM totctva - achitat to m.soldcump + + SELECT ANA408 + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta analitica facturi 408 este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta analitica facturi 408.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerFact408 ------------------------------ + + + + + + + + + +&& ------------------------------ INCEPUT: verClienti ------------------------------ +*!* Procedura: verClienti +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 23-01-2004 14:46:21 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerClienti + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Balanta de clienti' + + LOCAL M.SUM1,M.SUM2,M.SUM3,M.SUM4 + + SELECT CLIENTI + SET FILTER TO + IF FLOCK() + REPLACE ALL TOTDEB WITH precdeb + PRODUCTIE, ; + totcred WITH preccred + INCASAT, ; + TOTAVANS WITH PRECAVANS + AVANS + UNLOCK + ENDIF + + SUM TOTAVANS, totcred, TOTDEB TO m.SUM1, M.SUM2, M.SUM3 + + SELE BAL + SET FILTER TO + SUM SOLDDEB TO M.SOLD FOR LEFT(CONT,3)='411' AND CONT<>"4118" + SUM totcred-totdeb TO M.SOLDcred FOR LEFT(CONT,3)='419' + + m.SOLD = m.SOLD + m.SOLDcred + m.SUM4 = M.SUM3-M.SUM2 + m.SUM1 + + IF M.SOLD # M.SUM4 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + '411+419 Diferenta soldului este de: '+ LTRIM(STR(M.SUM4-M.SOLD, 12)), .T., llInTabel, lnId_ref + + *'Diferenta fata de sold debitor 411-sold creditor 419 este ' + LTRIM(STR(M.SUM4-M.SOLD, 12)), .T., llInTabel + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold debitor 411-sold creditor 419.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: verClienti ------------------------------ + +&& ------------------------------ INCEPUT: VerVanzLun ------------------------------ +*!* Procedura: VerVanzLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:51:07 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerVanzLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Facturi de vanzari' + + LOCAL soldvanz + SELECT VANZlun + SET FILTER TO + SUM totctva-achitat TO m.soldvanz + + SELECT clienti + SET FILTER TO + SUM totdeb-totcred TO m.sold + + IF m.sold <> m.soldvanz + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de clienti este ' + LTRIM(STR(m.sold - m.soldvanz, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de clienti.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerVanzLun ------------------------------ + +&& ------------------------------INCEPUT: VerClient4118 ------------------------------ +*!* Procedura: VerClient4118 +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 12:57:43 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerClient4118 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Balanta clienti incerti' + + Local M.SUM2,M.SUM3 + Select CLIENT4118 + Set Filter To + If Flock() + Replace All TOTDEB With precdeb+PRODUCTIE,totcred With preccred+INCASAT + Endif + Unlock + Sum totcred, TOTDEB To M.SUM2,M.SUM3 + + Sele BAL + Set Filter To + Sum SOLDDEB To M.sold For Left(Cont,4)='4118' + + IF M.sold#M.SUM3-M.SUM2 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 4118 este ' + LTRIM(STR(-(M.sold-M.SUM3+M.SUM2),12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 4118.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerClient4118 ------------------------------ + +&& ------------------------------ INCEPUT: VerVanzLu4118 ------------------------------ +*!* Procedura: VerVanzLu4118 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:47:03 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerVanzLu4118 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Facturi clienti incerti sau in litigiu' + + LOCAL soldcump + SELECT VANZlu4118 + SET FILTER TO + SUM totctva - achitat TO soldcump + + SELECT client4118 + SET FILTER TO + SUM totdeb - totcred TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre sold clienti si sold facturi este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente intre sold client si sold facturi.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerVanzLu4118 ------------------------------ + +&& ------------------------------INCEPUT: Verana418 ------------------------------ +*!* Procedura: Verana418 +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 12:30:51 +*!* Autor: ANDREI.BAUTU +PROCEDURE Verana418 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Balanta facturi neintocmite' + + LOCAL M.SUM2,M.SUM3,M.SUM4 + SELECT ANA418 + SET FILTER TO + + IF FLOCK() + REPLACE ALL totdeb WITH precdeb+productie,totcred WITH preccred+incasat + ENDIF + UNLOCK + + sum totcred, totdeb to M.SUM2, M.SUM3 + + M.SUM4=m.sum3-M.SUM2 + + SELE BAL + SET FILTER TO + SUM SOLDDEB TO M.SOLD FOR LEFT(CONT,3)='418' + + IF M.SOLD#M.SUM4 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 418 este '+ LTRIM(STR(M.SUM4-M.SOLD, 12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 418.', .F., llInTabel, lnId_ref + ENDIF + ENDIF +ENDPROC +&& ------------------------------SFARSIT: Verana418 ------------------------------ + +&& ------------------------------ INCEPUT: VerFact418 ------------------------------ +*!* Procedura: VerFact418 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:56:05 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerFact418 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Clienti - facturi de intocmit' + + LOCAL soldcump + SELECT Fact418 + SET FILTER TO + SUM totctva - achitat TO m.soldcump + + SELECT ana418 + SET FILTER TO + SUM totdeb - totcred TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre sold 418 si sold facturi 418 este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente intre sold 418 si sold facturi 418.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerFact418 ------------------------------ + + + + + + + + + + + + +&& ------------------------------ INCEPUT: VerDebitor ------------------------------ +*!* Procedura: VerDebitor +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 23-01-2004 16:35:34 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerDebitor + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Balanta de debitori' + + Local m.SUM1,M.SUM2,M.SUM3,M.SUM4 + + Select DEBITOR + Set Filter To + + Select DEBITOR + If Flock() + Replace All TOTDEB With precdeb+DEBIT, totcred With preccred+CREDIT + Unlock + Endif + Sum totcred,TOTDEB To M.SUM2, M.SUM3 + m.Sum3 = m.Sum3 - m.sum2 + + Sele BAL + Sum SOLDDEB, SOLDcred To M.SOLDDEB, M.SOLDcred For Left(Cont,3)='461' + m.SOLD=m.SOLDDEB-m.SOLDcred + + IF M.SOLD # m.Sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 461 este ' + LTRIM(STR(m.Sum3-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 461.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + +ENDPROC +&& ------------------------------ SFARSIT: VerDebitor ------------------------------ + +&& ------------------------------ INCEPUT: VerCreditor ------------------------------ +*!* Procedura: VerCreditor +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 23-01-2004 16:43:56 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCreditor + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Balanta de creditori' + + LOCAL M.SUM2,M.SUM3 + + SELECT CREDITOR + SET FILTER TO + IF FLOCK() + REPLACE ALL TOTDEB WITH precdeb+DEBIT,totcred WITH preccred+CREDIT + UNLOCK + ENDIF + SUM totcred,TOTDEB TO M.SUM2,M.SUM3 + m.sum2 = m.sum2 - m.sum3 + + SELE BAL + SET FILTER TO + SUM SOLDDEB, SOLDcred TO M.SOLDdeb, M.SOLDcred FOR LEFT(CONT,3)='462' + + m.SOLD=m.SOLDcred - m.SOLDdeb + + IF M.SOLD # m.Sum2 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 462 este ' + LTRIM(STR(m.Sum2-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 462.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + +ENDPROC +&& ------------------------------ SFARSIT: VerCreditor ------------------------------ + +&& ------------------------------ INCEPUT: VerDividende ------------------------------ +*!* Procedura: VerDividende +*!* Parametrii: llInTabel, lnId_ref +*!* Data/Ora generarii: 14-04-2004 12:51:56 +*!* Autor: GEORGIANA.VOICU +PROCEDURE VerDividende + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Balanta dividende' + + LOCAL M.SUM2,M.SUM3 + + SELECT dividende + SET FILTER TO + IF FLOCK() + REPLACE ALL TOTDEB WITH precdeb+DEBIT,totcred WITH preccred+CREDIT + UNLOCK + ENDIF + SUM totcred,TOTDEB TO M.SUM2,M.SUM3 + m.sum2 = m.sum2 - m.sum3 + + SELE BAL + SET FILTER TO + SUM SOLDDEB, SOLDcred TO M.SOLDdeb, M.SOLDcred FOR LEFT(CONT,3)='457' + + m.SOLD=m.SOLDcred - m.SOLDdeb + + IF M.SOLD # m.Sum2 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 457 este ' + LTRIM(STR(m.Sum2-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 457.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + +ENDPROC +&& ------------------------------ SFARSIT: VerDividende ------------------------------ + +&& ------------------------------ INCEPUT: VerDebLun ------------------------------ +*!* Procedura: VerDebLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 15:12:53 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerDebLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Inregistrari debitori diversi' + + LOCAL solddeb + SELECT deblun + SET FILTER TO + sum totctva - achitat TO m.solddeb + + SELECT debitor + set filter to + SUM totdeb - totcred TO m.sold + + IF m.sold <> m.solddeb + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta analitica debitori este ' + LTRIM(STR(m.sold - m.solddeb, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta analitica debitori.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerDebLun ------------------------------ + +&& ------------------------------ INCEPUT: VerCredLun ------------------------------ +*!* Procedura: VerCredLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:57:39 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCredLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Inregistrari creditori diversi' + + LOCAL soldcred + + SELECT credlun + SET FILTER TO + sum totctva - achitat to m.soldcred + + SELECT creditor + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcred + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta analitica creditori este ' + LTRIM(STR(m.sold - m.soldcred, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta analitica creditori.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCredLun ------------------------------ + +&& ------------------------------ INCEPUT: VerDivLun ------------------------------ +*!* Procedura: VerDivLun +*!* Parametrii: llInTabel, lnId_ref +*!* Data/Ora generarii: 14-04-2004 12:47:39 +*!* Autor: GEORGIANA.VOICU +PROCEDURE VerDivLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Inregistrari dividende' + + LOCAL soldcred + + SELECT divlun + SET FILTER TO + sum totctva - achitat to m.soldcred + + SELECT dividende + SET FILTER TO + SUM totcred - totdeb TO m.sold + + IF m.sold <> m.soldcred + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de balanta dividende este ' + LTRIM(STR(m.sold - m.soldcred, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de balanta dividende.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerDivLun ------------------------------ + +&& ------------------------------ INCEPUT: VerActionar ------------------------------ +*!* Procedura: VerActionar +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 10:18:05 +*!* Autor: ANDREI.BAUTU + +PROCEDURE VerActionar + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Alti' + lcSursa = 'Balanta de actionari' + + LOCAL M.SUM2,M.SUM3 + + SELECT actionar + SET FILTER TO + IF FLOCK() + REPLACE ALL TOTDEB WITH precdeb+DEBIT,totcred WITH preccred+CREDIT + UNLOCK + ENDIF + SUM totcred,TOTDEB TO M.SUM2,M.SUM3 + m.sum2 = m.sum2 - m.sum3 + + SELE BAL + SET FILTER TO + SUM SOLDDEB, SOLDcred TO M.SOLDdeb, M.SOLDcred FOR LEFT(CONT,3)='455' + + m.SOLD=m.SOLDcred - m.SOLDdeb + + IF M.SOLD # m.Sum2 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 455 este ' + LTRIM(STR(m.Sum2-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 455.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + + +ENDPROC +&& ------------------------------ SFARSIT: VerActionar ------------------------------ + + + + + + + + + +&& ------------------------------INCEPUT: VerCasaNume ------------------------------ +*!* Procedura: VerCasaNume +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:05:56 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCasaNume + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Casa' + lcSursa = 'Solduri case' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele CASANUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + m.SOLDDEB=0 + m.SOLDCRED=0 + Sele Bal + Seek '5311' + IF FOUND() + Scatter Memvar + ENDIF + + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5311 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5311.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC + +&& ------------------------------SFARSIT: VerCasaNume ------------------------------ + +&& ------------------------------ INCEPUT: VerCasa ------------------------------ +*!* Procedura: VerCasa +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCasa + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Casa' + lcSursa = 'Registrul de casa' + +*!* SELECT BAL +*!* LOCATE FOR cont='5311' +*!* m.solddeb = solddeb + Sele CASANUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE CASA + SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri case este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de de solduri case.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCasa ------------------------------ + +&& ------------------------------INCEPUT: VerCASVNUME ------------------------------ +*!* Procedura: VerCASVNUME +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 13:52:28 +*!* Autor: ANDREI.BAUTU + +PROCEDURE VerCASVNUME + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Casa' + lcSursa = 'Solduri case in valuta' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele CASVNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + + Sele Bal + Seek '5314' + m.SOLDDEB=0 + m.SOLDCRED=0 + If Found() + Scatter Memvar + ENDIF + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5314 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5314.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerCASVNUME ------------------------------ + +&& ------------------------------ INCEPUT: VerCasaVal ------------------------------ +*!* Procedura: VerCasaVal +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCasaVal + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Casa' + lcSursa = 'Registrul de casa in valuta' + +*!* SELECT BAL +*!* LOCATE FOR cont='5314' +*!* m.solddeb = solddeb + Sele CASVNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE CASAVal + SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri case este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de solduri case.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCasaVal ------------------------------ + + + + + + + + + + + +&& ------------------------------INCEPUT: VerBanNume ------------------------------ +*!* Procedura: VerBanNume +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:23:52 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBanNume + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Banca' + lcSursa = 'Solduri banci' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele BANNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + m.SOLDDEB=0 + m.SOLDCRED=0 + + Sele Bal + Seek '5121' + IF FOUND() + Scatter Memvar + ENDIF + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5121 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5121.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerBanNume ------------------------------ + +&& ------------------------------ INCEPUT: VerBanca ------------------------------ +*!* Procedura: VerBanca +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBanca + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Banca' + lcSursa = 'Registrul de banca' + +*!* SELECT BAL +*!* LOCATE FOR cont='5121' +*!* m.solddeb = solddeb + Sele BANNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE BANCA + SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI + + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri banci este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de solduri banci.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerBanca ------------------------------ + +&& ------------------------------INCEPUT: VerBanVNume ------------------------------ +*!* Procedura: VerBanVNume +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:18:18 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBanVNume + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Banca' + lcSursa = 'Solduri banci in valuta' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele BANVNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + m.SOLDDEB=0 + m.SOLDCRED=0 + Sele Bal + Seek '5124' + IF FOUND() + Scatter Memvar + ENDIF + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5124 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5124.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerBanVNume ------------------------------ + +&& ------------------------------ INCEPUT: VerBancaVal ------------------------------ +*!* Procedura: VerBancaVal +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBancaVal + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Banca' + lcSursa = 'Registrul de banca in valuta' + +*!* SELECT BAL +*!* LOCATE FOR cont='5124' +*!* m.solddeb = solddeb + Sele BANVNUME + Sum INCASARI +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE BANCAVal + SUM INCASARI, PLATI TO m.tINCASARI, M.tPLATI + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri banci este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de solduri banci.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerBancaVal ------------------------------ + + + + + + + +&& ------------------------------INCEPUT: VerCecNume ------------------------------ +*!* Procedura: VerCecNume +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:30:32 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCecNume + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Alte' + lcSursa = 'Cec - Solduri' + + LOCAL m.sum1,m.sum2,m.sum3 + Sele CecNume + Sum INCARCAT +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.sum3=M.sum1-M.sum2 + m.SOLDDEB=0 + m.SOLDCRED=0 + Sele Bal + Seek '5112' + IF FOUND() + Scatter Memvar + ENDIF + IF M.SOLDDEB-M.SOLDCRED # M.sum3 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta in sold 5112 este ' + LTRIM(STR(M.SOLDDEB-M.SOLDCRED-M.sum3,12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente in sold 5112.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerCecNume ------------------------------ + +&& ------------------------------ INCEPUT: VerCec ------------------------------ +*!* Procedura: VerCec +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 14:16:47 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCec + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Alte' + lcSursa = 'Cec - Registrul de operatiuni' + +*!* SELECT BAL +*!* LOCATE FOR cont='5112' +*!* m.solddeb = solddeb + Sele CecNume + Sum INCARCAT +PRECDEB ,PLATI + preccred TO m.sum1,M.sum2 + m.solddeb=M.sum1-M.sum2 + + SELE CEC + SUM INCARCAT, PLATI TO m.tINCASARI, M.tPLATI + IF M.TINCASARI-M.TPLATI# M.SOLDDEB + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de solduri CEC este ' + LTRIM(STR(M.TINCASARI-M.TPLATI-M.SOLDDEB, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de solduri CEC.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCec ------------------------------ + +&& ------------------------------ INCEPUT: VerAchit542 ------------------------------ +*!* Procedura: VerAchit542 +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 09:51:54 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerAchit542 + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Alte' + lcSursa = 'Balanta de achizitori' + + Local m.SUM1,M.SUM2,M.SUM3,M.SUM4 + Select achit542 + Set Filter To + + IF Flock() + Replace All TOTDEB With precdeb+DEBIT, totcred With preccred+CREDIT + UNLOCK + ENDIF + Sum totcred, TOTDEB To M.SUM2, M.SUM3 + M.SUM1 = M.Sum3-m.sum2 + + Sele BAL + Set Filter To + Sum SOLDDEB, SOLDcred To M.SOLDDEB, M.SOLDcred For Left(Cont,3)='542' + m.SOLD=m.SOLDDEB-m.SOLDcred + + If M.SOLD # M.SUM1 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de sold 542 este ' + LTRIM(STR(m.Sum1-M.SOLD,12)), .T., llInTabel, lnId_ref + ELSE + IF llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente fata de sold 542.', .F., llInTabel, lnId_ref + ENDIF + ENDIF + +ENDPROC +&& ------------------------------ SFARSIT: VerAchit542 ------------------------------ + +&& ------------------------------ INCEPUT: VerAchiLun ------------------------------ +*!* Procedura: VerAchiLun +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 16:08:22 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerAchiLun + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Trezorerie - Alte' + lcSursa = 'Avansuri de trezorerie' + + LOCAL soldcump + SELE achilun + SET FILTER TO + SUM totctva - achitat TO m.soldcump + + sele achit542 + set filter to + SUM totdeb - totcred TO m.sold + + IF m.sold <> m.soldcump + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre sold achizitori si sold inregistrari este ' + LTRIM(STR(m.sold - m.soldcump, 12)), .T., llInTabel, lnId_ref + ELSE + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente intre sold achizitori si sold inregistrari.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerAchiLun ------------------------------ + + + + + + +&& ------------------------------ INCEPUT: VerCump ------------------------------ +*!* Procedura: VerCump +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 11:33:20 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerCump + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Furnizori' + lcSursa = 'Registrul de cumparari' + + LOCAL llDiferente + m.stotctva=0 + SELE act + SUM suma TO m.f767 FOR LEFT(scc,3) = '767' AND INLIST(LEFT(scd,3),'401','404') + + SELECT BAL +*!* SEEK '767 ' +*!* m.f767=rulcred + SEEK '401 ' + m.f401=rulcred + SEEK '404 ' + m.f404=rulcred + m.f401404=m.f401+m.f404-M.F767 + seek '4426' + m.f4426=ruldeb + + SELECT CUMP + SUM totctva, neimpozab, totftvaI, tvaI, totftvaM, tvaM ; + TO m.Stotctva, m.Sneimpozab, m.StotftvaI, m.StvaI, m.StotftvaM, m.StvaM + M.ADUN=m.Sneimpozab + m.StotftvaI + m.StvaI + m.StotftvaM + m.StvaM + IF M.STOTCTVA # M.ADUN + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta este ' + LTRIM(STR(M.STOTCTVA-M.ADUN, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + SELECT cump + SUM totctva TO m.stotctva FOR INLIST(LEFT(scc,3),'401','404') + + IF M.STOTCTVA # M.f401404 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de 401+404 este ' + LTRIM(STR(M.STOTCTVA-M.f401404, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF m.f4426 # m.StvaM + m.stvai + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de TVA este ' + LTRIM(STR(m.f4426-m.StvaM-m.stvai, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF !llDiferente AND llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerCump ------------------------------ + +&& ------------------------------ INCEPUT: VerVanz ------------------------------ +*!* Procedura: VerVanz +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 11:48:29 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerVanz + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Terti - Clienti' + lcSursa = 'Registrul de vanzari' + + LOCAL m.f461, llDiferente + SELECT vanz + SUM totctva, neimpozab, totftvaI, tvaI, totftvaM, tvaM ; + TO m.Stotctva, m.Sneimpozab, m.StotftvaI, m.StvaI, m.StotftvaM, m.StvaM + M.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+m.StotftvaM+m.StvaM + + IF M.STOTCTVA # M.ADUN + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta este ' + LTRIM(STR(M.STOTCTVA-M.ADUN, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + + SELE act + SUM suma TO m.f667 FOR LEFT(scd,3) = '667' AND INLIST(LEFT(scc,3),'411') + + SELE BAL +*!* SEEK '667 ' +*!* m.f667=rulDEB + + SEEK '461 ' + m.f461=IIF(FOUND(), rulDEB, 0) + + SUM RULDEB TO M.RULDEB FOR LEFT(CONT,3)='411' AND cont<>'4118' + + sele vanz + Sum totctva,neimpozab,totftvaI,tvaI,totftvaM,tvaM; + TO m.stotctva,m.Sneimpozab,m.StotftvaI,m.StvaI,; + M.StotftvaM,m.StvaM For Left(SCD,3)='411' And scd<>'4118' + + SUM tvam, tvai TO tvam419, tvai419 FOR LEFT(scd,3) = '419' + + m.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+; + M.StotftvaM+m.StvaM + + If M.stotctva + (tvam419 + tvai419) != M.ruldeb - M.f667 + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta fata de 411 este: '+ LTRIM(STR(M.stotctva + (tvam419 + tvai419)-M.ruldeb+M.f667,12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + + +*!* SUM totctva, neimpozab, totftvaI, tvaI, totftvaM, tvaM ; +*!* TO m.Stotctva, m.Sneimpozab, m.StotftvaI, m.StvaI, m.StotftvaM, m.StvaM ; +*!* FOR LEFT(SCD,3)='411' AND cont<>'4118' +*!* +*!* M.ADUN=m.Sneimpozab+m.StotftvaI+m.StvaI+m.StotftvaM+m.StvaM +*!* +*!* IF M.STOTCTVA != M.RULDEB-M.F667 +*!* DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; +*!* 'Diferenta fata de 411 este ' + LTRIM(STR(M.STOTCTVA-M.RULDEB+M.F667, 12)), .T., llInTabel, lnId_ref +*!* llDiferente = .T. +*!* ENDIF + + IF !llDiferente AND llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerVanz ------------------------------ + +&& ------------------------------ INCEPUT: VerBal ------------------------------- +*!* Procedura: VerBal +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 12:00:13 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerBal + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = '' + lcSursa = 'Balanta' + + local trd, trc, s, pd, pc, td, tc, llDiferente + store 0 to trd,trc,s,pd,pc,td,tc + SELECT ACT + SET FILTER TO + SUM SUMA to S + + SELE BAL + SUM RULDEB, RULCRED, precdeb, preccred TO TRD, TRC, pd, pc + IF TRD<>TRC + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Balanta dezechilibrata cu ' + LTRIM(STR(TRC-TRD, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF TRc<>s + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferente intre jurnal si balanta pe credit este ' + LTRIM(STR(TRC-S, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF TRD<>s + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferente intre jurnal si balanta pe debit este ' + LTRIM(STR(TRD-S, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + + SELECT calendar + LOCATE FOR nl=pcnl and an=pcan + SKIP -1 + if bof() OR !FOUND() + RETURN + ENDIF + dateprec = calefirma+'\an'+an+'\date'+nl + use &dateprec\bal in 0 alias bal_prec + SELECT bal_prec + SUM totdeb, totcred, solddeb, soldcred to td, tc, sd, sc + + IF m.nl<>'01' + IF pd<>td + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pd-td, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF pc<>tc + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pc-tc, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + ELSE + IF pd<>sd + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pd-sd, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF pc<>sc + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta de preluare a balantei din precedent este ' + LTRIM(STR(pc-sc, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + ENDIF + use in bal_prec + IF !llDiferente AND llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente.', .F., llInTabel, lnId_ref + ENDIF + +m.nl=pcnl +m.an=pcan + +ENDPROC +&& ------------------------------ SFARSIT: VerBal ------------------------------ + +&& ------------------------------ INCEPUT: VerAct ------------------------------ +*!* Procedura: VerAct +*!* Parametrii: llInTabel +*!* Data/Ora generarii: 27-01-2004 12:14:27 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerAct + LPARAMETERS llInTabel, lnId_ref + + LOCAL lcCategorie, lcSursa + lcCategorie = 'Diverse' + lcSursa = 'Registrul jurnal' + + local trd,trc,s,pd,pc,td,tc, llDiferente + store 0 to trd,trc,s,pd,pc,td,tc + SELECT ACT + SET FILTER TO + sum SUMA to S + + SELE BAL + SUM RULDEB,RULCRED,precdeb,preccred TO TRD,TRC,pd,pc + IF TRD<>TRC + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Balanta dezechilibrata cu ' + LTRIM(STR(TRC-TRD, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF (TRc<>s) + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre jurnal si balanta pe credit este ' + LTRIM(STR(TRC-S, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + endif + IF (TRD<>s) + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Diferenta intre jurnal si balanta pe debit este ' + LTRIM(STR(TRD-S, 12)), .T., llInTabel, lnId_ref + llDiferente = .T. + ENDIF + IF !llDiferente AND llInTabel + DO anunta_rezultat IN MESAJE WITH lcCategorie, lcSursa, ; + 'Nu sunt diferente.', .F., llInTabel, lnId_ref + ENDIF +ENDPROC +&& ------------------------------ SFARSIT: VerAct ------------------------------------- + +&& ------------------------------INCEPUT: VerificareLunaDeschisa ------------------------------ +*!* Procedura: VerificareLunaDeschisa +*!* Parametri: llInTabel +*!* Data/Ora generarii: 03-02-2004 14:39:07 +*!* Autor: ANDREI.BAUTU +PROCEDURE VerificareLunaDeschisa + LPARAMETERS llInTabel + sterge_mesaje() + +&& Diverse + DO VerBal IN verifica WITH llInTabel, 1 + + *DO VerAct IN verifica WITH llInTabel, 36 + +&& Terti - Furnizori + DO VerCump IN verifica WITH llInTabel, 11 + + DO VerFurnizor IN verifica WITH llInTabel, 9 + DO VerCumpLun IN verifica WITH llInTabel, 10 + + DO Verfurniz404 IN verifica WITH llInTabel, 13 + DO VerCumpLun404 IN verifica WITH llInTabel, 14 + + DO Verana408 IN verifica WITH llInTabel, 19 + DO VerFact408 IN verifica WITH llInTabel, 20 + +* DO VerAvans409 in verifica WITH llInTabel + +&& Terti - Clienti + DO VerVanz IN verifica WITH llInTabel, 5 + + DO VerClienti IN verifica WITH llInTabel, 3 + DO VerVanzLun IN verifica WITH llInTabel, 4 + + DO VerClient4118 IN verifica WITH llInTabel, 7 + DO VerVanzLu4118 IN verifica WITH llInTabel, 8 + + DO Verana418 IN verifica WITH llInTabel, 25 + DO VerFact418 IN verifica WITH llInTabel, 26 + +* DO VerAvans419 in verifica WITH llInTabel + +&& Terti - Alti + DO VerDebitor IN verifica WITH llInTabel, 15 + DO VerDebLun IN verifica WITH llInTabel, 16 + + DO VerCreditor IN verifica WITH llInTabel, 17 + DO VerCredLun IN verifica WITH llInTabel, 18 + + DO VerDividende IN verifica WITH llInTabel, 34 + DO VerDivLun IN verifica WITH llInTabel, 35 + + DO VerActionar IN verifica WITH llInTabel, 36 + +&& Trezorerie - Casa + DO VerCasaNume IN verifica WITH llInTabel, 21 + DO VerCasa IN verifica WITH llInTabel, 21 + + DO VerCASVNUME IN verifica WITH llInTabel, 22 + DO VerCASAVal IN verifica WITH llInTabel, 22 + +&& Trezorerie - Banca + DO VerBanNume IN verifica WITH llInTabel, 23 + DO VerBanca IN verifica WITH llInTabel, 23 + + DO VerBanVNume IN verifica WITH llInTabel, 24 + DO VerBancaVal IN verifica WITH llInTabel, 24 + +&& Trezorerie - Alte + DO VerCecNume IN verifica WITH llInTabel, 31 + DO VerCec IN verifica WITH llInTabel, 31 + + DO VerAchit542 IN verifica WITH llInTabel, 28 + DO VerAchiLun IN verifica WITH llInTabel, 29 + + + +*!* if(llInTabel) +*!* raport_mesaje() +*!* ENDIF +ENDPROC +&& ------------------------------SFARSIT: VerificareLunaDeschisa ------------------------------ \ No newline at end of file diff --git a/ROACONTRACTE.ARM b/ROACONTRACTE.ARM new file mode 100644 index 0000000..aed6fd2 --- /dev/null +++ b/ROACONTRACTE.ARM @@ -0,0 +1,46 @@ + +[Project] +BackupKeyOptions=3 +BitmapSeconds=1 +CertificateCount=1 +Compression=0 +IniStyle=ArmadilloV3 +Language=English (US) +MessageLanguage1=English (US) +Name=faz +ShowLoading=0 +TargetFile=roacontracte.exe +Version=100 + +[Project#Certificate0] +BitmapSeconds=1 +Key=DEFAULT +KeyTypes=0x44 +Name=default + +[Project#Certificate0#ExpireType] +Revert=0 + +[Project#Certificate0#Nag] +ShowBefore=0 + +[Project#Certificate0#NagAfter] +ShowAfter=0 + +[Project#InterceptedLibs] +Lib0=+MSVBVM50.DLL +Lib1=+MSVBVM60.DLL +Lib2=+VFP5R.DLL +Lib3=+VFP6R.DLL +Lib4=+VFP7R.DLL +Lib5=+VFP8R.DLL +Lib6=+VFP9R.DLL +Lib7=+PBVM70.DLL +Lib8=+MSVCRT.DLL +Lib9=+PROJ.DLL +Lib10=+MSJAVA.DLL +Lib11=+OLE32.DLL +Lib12=+VDFVM8.DLL +Lib13=+MFC71.DLL +Lib14=-* +LibCount=15 diff --git a/Rapoarte/Arhiva/rFactInc.fr2 b/Rapoarte/Arhiva/rFactInc.fr2 new file mode 100644 index 0000000..3df54e1 --- /dev/null +++ b/Rapoarte/Arhiva/rFactInc.fr2 @@ -0,0 +1,1214 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="rfactinc.frx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + +