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 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K

.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

.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/

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**:
+
+```
+<!--
+DD/MM/YYYY
+ROACONTRACTE - X.Y.Z
+
+:modificare:
+  <ce s-a schimbat>
+-->
+```
+
+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.

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="" />
+
+	*<PropValue>
+		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"
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS pict_liniuta AS _image OF "..\..\comun\clase\_baza.vcx" 
+ 	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<PropValue>
+		Height = 10
+		Name = "pict_liniuta"
+		Picture = ..\grafice\f3.jpg
+		Stretch = 2
+		Width = 120
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS pict_meniu AS _image OF "..\..\comun\clase\_baza.vcx" 
+ 	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<PropValue>
+		Height = 362
+		Name = "pict_meniu"
+		Picture = ..\grafice\f2.jpg
+		Stretch = 2
+		Width = 133
+	*</PropValue>
+
+ENDDEFINE

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"
+

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="" />
+
+	*<PropValue>
+		clastcaption = Microsoft Visual FoxPro
+		clasticon = 
+		Name = "capplication"
+		nformcount = 0
+	*</PropValue>
+	
+	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="" />
+
+	*<PropValue>
+		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
+	*</PropValue>
+
+	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

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="" />
+
+	*<PropValue>
+		Cancel = .T.
+		Caption = "Close"
+		FontBold = .F.
+		FontName = "MS Sans Serif"
+		FontSize = 8
+		Height = 23
+		Name = "cmdclose"
+		Width = 72
+	*</PropValue>
+	
+	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

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="" />
+
+	*<DefinedPropArrayMethod>
+		*m: deactivatemenu
+		*m: showmenu
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BackColor = 0,0,255
+		Height = 15
+		Name = "menulib"
+		Visible = .F.
+		Width = 50
+	*</PropValue>
+	
+	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

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" />
+
+	*<PropValue>
+		Name = "Dataenvironment"
+	*</PropValue>
+
+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="" />
+
+	*<PropValue>
+		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
+	*</PropValue>
+
+	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
+		AutoSize = .F., ;
+		Caption = "\<OK", ;
+		Height = 24, ;
+		Left = 134, ;
+		Name = "CMDTERMIN1", ;
+		Top = 46, ;
+		Width = 84
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
+
+	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

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" />
+
+	*<PropValue>
+		DataSource = .NULL.
+		Height = 0
+		Left = 0
+		Name = "Dataenvironment"
+		Top = 0
+		Width = 0
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS frm_dg_date_generale1 AS frm_dg_date_generale OF "..\clase\ferestre_contracte.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<PropValue>
+		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"
+	*</PropValue>
+
+ENDDEFINE

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" />
+
+	*<PropValue>
+		DataSource = .NULL.
+		Height = 0
+		Left = 0
+		Name = "Dataenvironment"
+		Top = 0
+		Width = 0
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS frm_dg_fact1 AS frm_dg_fact OF "..\clase\ferestre_contracte.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<PropValue>
+		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"
+	*</PropValue>
+
+ENDDEFINE

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" />
+
+	*<PropValue>
+		DataSource = .NULL.
+		Height = 0
+		Left = 0
+		Name = "Dataenvironment"
+		Top = 0
+		Width = 0
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS frm_dg_link1 AS frm_dg_link OF "..\clase\ferestre_contracte.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<PropValue>
+		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"
+	*</PropValue>
+
+ENDDEFINE

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" />
+
+	*<PropValue>
+		DataSource = .NULL.
+		Height = 0
+		Left = 0
+		Name = "Dataenvironment"
+		Top = 0
+		Width = 0
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS frm_dg_obiectul1 AS frm_dg_obiectul OF "..\clase\ferestre_contracte.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<PropValue>
+		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"
+	*</PropValue>
+
+ENDDEFINE

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" />
+
+	*<PropValue>
+		DataSource = .NULL.
+		Height = 0
+		Left = 0
+		Name = "Dataenvironment"
+		Top = 0
+		Width = 0
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS frm_dg_observatii1 AS frm_dg_observatii OF "..\clase\ferestre_contracte.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<PropValue>
+		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"
+	*</PropValue>
+
+ENDDEFINE

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" />
+
+	*<PropValue>
+		DataSource = .NULL.
+		Height = 0
+		Left = 0
+		Name = "Dataenvironment"
+		Top = 0
+		Width = 0
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS frm_dg_tf1 AS frm_dg_tf OF "..\clase\ferestre_contracte.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<PropValue>
+		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"
+	*</PropValue>
+
+ENDDEFINE

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" />
+
+	*<PropValue>
+		DataSource = .NULL.
+		Height = 0
+		Left = 0
+		Name = "Dataenvironment"
+		Top = 0
+		Width = 0
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS frm_dg_tl1 AS frm_dg_tl OF "..\clase\ferestre_contracte.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<PropValue>
+		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"
+	*</PropValue>
+
+ENDDEFINE

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" />
+
+	*<PropValue>
+		DataSource = .NULL.
+		Height = 200
+		Left = 1
+		Name = "Dataenvironment"
+		Top = 220
+		Width = 520
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS form1 AS form 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<DefinedPropArrayMethod>
+		*m: jurnal
+		*m: statusbarclick
+		*p: ostatusbar
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		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
+	*</PropValue>
+	
+	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

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" />
+
+	*<PropValue>
+		Name = "Dataenvironment"
+	*</PropValue>
+
+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="" />
+
+	*<DefinedPropArrayMethod>
+		*m: seriadebaza
+		*p: ttanul
+		*p: ttfirma
+		*p: ttluna
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		AutoCenter = .T.
+		BackColor = 255,255,255
+		BorderStyle = 2
+		DoCreate = .T.
+		Height = 474
+		Name = "Ffergen1"
+		Picture = 
+		Width = 500
+		WindowType = 1
+		Line1.Name = "Line1"
+	*</PropValue>
+
+	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

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
+

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)
+*
+*<MenuType>4</MenuType>
+*<MenuLocation>REPLACE</MenuLocation>
+
+*<MenuCode>
+DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
+DEFINE BAR 1 OF Shortcut PROMPT "Grupate dupa luna \<emiterii"
+ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
+
+DEFINE BAR 2 OF Shortcut PROMPT "Grupate dupa data \<incasarii"
+ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
+ACTIVATE POPUP Shortcut
+
+*</MenuCode>
+
+*<Procedures>
+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
+
+*</Procedures>