Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

.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,124 @@
+# =============================================================================
+# 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
+
+# --- Indecsi regenerabili (nu se transporta in .db2/.dc2) ---
+*.cdx
+*.CDX
+*.dcx
+*.DCX
+
+# --- Exceptii: meniuri in format pre-VFP9 (FoxBin2Prg nu le converteste; raman binare) ---
+!Meniuri/Vechi/editscurt.mnx
+!Meniuri/Vechi/editscurt.MNT
+
+# --- Tabele .dbf convertite in .db2 (lista explicita; restul .dbf raman binare) ---
+Locale/Locale.DBF
+Locale/locale.FPT
+Locale/Locale_back.DBF
+Locale/Locale_back.FPT
+Locale/locale_lang.dbf
+Locale/locale_lang.FPT
+Locale/locale_source.DBF
+Locale/locale_source.FPT
+Locale/locale_xref.DBF
+
+# --- Fisiere generate/compilate Visual FoxPro ---
+*.fxp
+*.FXP
+*.mpr
+*.MPR
+*.mpx
+*.MPX
+*.vcr
+*.VCR
+*.src
+*.app
+*.APP
+*.qpx
+*.QPX
+*.ARM
+
+# --- Backup-uri si fisiere temporare create de editorul VFP ---
+*.bak
+*.BAK
+*.TBK
+*.tmp
+*.TMP
+*.err
+*.ERR
+*.Stats
+*.stackdump
+*.scx~
+*.sct~
+*.vcx~
+*.vct~
+*.frx~
+*.frt~
+*.lbx~
+*.lbt~
+*.mnx~
+*.mnt~
+*.pjx~
+*.pjt~
+*.dbc~
+*.dct~
+*.dcx~
+
+# --- Executabile compilate ---
+*.exe
+*.EXE
+
+# --- Stare locala / resurse runtime VFP (specifice masinii) ---
+roaimob_ref.DBF
+roaimob_ref.FPT
+Date_ROAIMOB/
+FoxUser.dbf
+FoxUser.fpt
+*.dbf.lock
+*.fpt.lock
+*.cdx.lock
+log.txt
+LOG.txt
+*.lnk
+Thumbs.db
+Desktop.ini
+bash.exe.stackdump
+
+# --- Subversion (working copy paralela) ---
+.svn/
+
+# --- COMUN este gestionat separat, prin propriul sau git (romfast/comun.git) ---
+COMUN/

CLAUDE.md

@@ -0,0 +1,53 @@
+# CLAUDE.md
+
+This file provides guidance to Claude Code (claude.ai/code) when working with code in this repository.
+
+## Project overview
+
+ROAIMOB is the "Imobilizari" (Fixed Assets) module of ROA, a large Romanian ERP suite built by ROA Romfast SRL. It is a **Visual FoxPro 9** desktop application (not Delphi) backed by an **Oracle** database. The app manages Romanian fixed-asset accounting: asset registration, depreciation (amortizare), revaluation (reevaluare), custodian/location transfers (gestiune), transformation of in-progress assets into tangible/intangible fixed assets, inventory lists, and related reports.
+
+This repo (`D:\ROA\ROAIMOB`) is just one module. It lives alongside dozens of sibling `ROA*` apps under `D:\ROA` (ROACASA, ROAFACTURARE, ROASAL, ROAHOTEL, ROAGEST, etc.), all sharing a common library normally found at `D:\ROA\COMUNROA` (outside this repo). This repo also vendors its own local snapshot of shared code under `./COMUN` (clase, ferestre, programe, rapoarte, meniuri, utile) — treat `./COMUN` as this app's copy of shared infrastructure, not ROAIMOB-specific business logic, unless a file clearly deals with `imob_*`/asset concerns.
+
+Version control: **Subversion** (`.svn` present at the root and inside `COMUN\`) remains the "live" source of truth, especially for `COMUN\` — use `svn`, not `git`, for actual source changes and history there. A **git** repo now runs in parallel (`git@gitea.romfast.ro:romfast/roaimob.git`, branch `main`), synced manually from SVN snapshots; it exists for tooling (search, diffing, AI-assisted work), not as the system of record. `COMUN\` has its own **separate** git repo (its own `.git`, gitignored from the root repo via `COMUN/` in `.gitignore`) tracking `git@gitea.romfast.ro:romfast/comun.git` — the same shared repo used by every ROA app's `COMUN\` (e.g. ROAACNPRO). Don't force-push either repo, especially `comun.git`, without explicit approval — it's shared history across all ROA projects.
+
+## Common commands
+
+No build scripts, Makefiles, package manifests, CI config, or test suite exist in this repo — do not invent any.
+
+- **Build**: There is no scripted/CLI build. `roaimob.PJX`/`.PJT` is a Visual FoxPro project file; building means opening it in the Visual FoxPro 9 IDE and using Project > Build to recompile `.prg` → `.FXP` and relink `roaimob.exe`. Individual source files can be recompiled with `COMPILE <file>.prg` from the VFP command window.
+- **Run**: The compiled `roaimob.exe` is **not** meant to be launched directly in production — `Programe/roaimob.prg` checks `verific_start()` and refuses to run unless started by the central ROA launcher ("START"), which passes a single semicolon-delimited parameter string (`host;user;password;idutil;idprogram;...`) including the Oracle schema (`gcS`, e.g. `CONTAFIN`), company id (`gnIdFirma`), and fiscal period (`gnAn`/`gnLuna`). A `Debug_Start()` bypass exists for local/dev launches (defined outside this repo, in the shared COMUNROA tree).
+- **Lint/tests**: none present.
+
+## Searching inside compiled VFP binaries (foxbin2prg)
+
+Most method/procedure code lives inside compiled `.vcx/.vct` (classes), `.scx/.sct` (forms), `.frx/.frt` (reports), `.mnx/.mnt` (menus) — grepping these binaries directly is unreliable. Use the shared `foxbin2prg` tool (already built at `D:\ROA\UTIL\foxbin2prg\FoxBin2Prg.EXE`) to decompile to readable text, then grep the text:
+
+```powershell
+& 'D:\ROA\UTIL\foxbin2prg\vcx2txt.ps1' -Project 'D:\ROA\ROAIMOB\roaimob.PJX' -ProjectRoot 'D:\ROA\ROAIMOB' -CacheRoot 'D:\ROA\_vfp_textcache\roaimob' -Types vcx,scx,frx,mnx
+```
+
+Reads the file list straight from `roaimob.PJX`, so it only converts files this project actually references (not all of `COMUN\`); incremental, safe to re-run after IDE edits. Output lands in `D:\ROA\_vfp_textcache\roaimob\` as `.vc2/.sc2/.fr2/.mn2` text mirrors — grep those. For `.vcx`/`.scx`, real code changes can now be made directly on the `.vc2`/`.sc2` text and written back with `D:\ROA\UTIL\foxbin2prg\txt2vcx.ps1` (regenerates + recompiles in staging, fidelity-checks, then copies into the project) instead of editing in the IDE — `.mnx`/`.frx` are still IDE-only. See `D:\ROA\UTIL\foxbin2prg\CLAUDE.md` for the full write-back flow and guard rails.
+
+## Architecture
+
+- **Thin client / DB-heavy split**: VFP forms (`Ferestre/*.scx`, `Clase/*.vcx`) only collect input and display data. Actual persistence and business rules live in Oracle **PL/SQL packages** (e.g. `pack_imob.inreg_majorare`, `pack_imob.inreg_reevaluare`), invoked through a shared `goExecutor` object (`oExecutor` class, registered from the `DECABAZA` classlib) via SQL strings like `begin pack_imob.inreg_reevaluare(...); end;`. When tracing a feature, expect to jump from a VFP form/procedure straight into an Oracle package call — the interesting logic is often server-side, not in the `.prg`.
+
+- **Asset operations funnel through `Programe/oproceduri_operatii.prg`**, keyed by a fixed "cod operatie" enum documented in a comment block at the top of that file (1 introducere, 2 preluare, 3 transformare in MF, 4 iesire din gestiune, 5 intrare in gestiune, 6 majorare, 7 reevaluare, 8 schimbarea DNS, 9 recalculare cota, 10 conservare, 11 scoatere din conservare, 12 modificare cu istoric, 13 inchidere, 14 schimbare DNS + reevaluare). Each `op_*` procedure (`op_majorare`, `op_reevaluare`, `op_schimbaredns_reevaluare`, `op_conservare`, `op_schimbaredns`, `op_gest`, `op_modificare`, `op_transformare_mf`, `op_adaugare_la_mf`) follows the same pattern: show a modal form to collect data, then call the matching Oracle package procedure through `goExecutor` and return an `Empty` object with a `lSucces` flag plus the collected fields.
+
+- **Data model** uses Oracle views/tables prefixed `IMOB_` (`imob_vnom_mf` = asset master/nomenclator, `imob_voperatii_mf` = operation history, `imob_vlista_mf` = current asset list, `imob_vcalcul_rate` = depreciation rate calculations, `imob_conturi` = account-code mapping). "MF" throughout the codebase means *mijloc fix* (fixed asset). Root-level `.sql` files (`istoric_amortizare_contabila.sql`, `istoric_amortizare_fiscala.sql`) are ad hoc reporting/audit queries against this schema, not migrations. `COMUN/Drepturi utilizatori/*.sql` define the user-rights/permission object catalog, shared across this and sibling apps (subfolders reference ROACASA, ROADEF, ROALUCRARI).
+
+- **Startup wiring** (`Programe/roaimob.prg`) is the place to look when something "isn't found": it builds `SET PATH TO` across `Date;Include;Ferestre;Grafice;Clase;Meniuri;Programe;Rapoarte;COMUN;COMUN\...` and then issues a long, order-sensitive sequence of `SET PROCEDURE TO ... ADDITIVE` and `SET CLASSLIB TO ... ADDITIVE` statements to register dozens of shared `.prg` procedure libraries and `.vcx` class libraries globally. Later entries can shadow earlier ones with the same procedure/class name, so order in this file matters when debugging "wrong version of a procedure ran" issues.
+
+- **Multi-tenant context**: the app operates against one Oracle schema per company (`gcS`, default `'CONTAFIN'`) and tracks the active company/fiscal period in globals `gnIdFirma`/`gnAn`/`gnLuna`, plus branch (`id_sucursala`). Most business queries and package calls are scoped by these.
+
+- **Self-update**: on startup the app calls `oUpdate.updatecheck()` (`oupdate.prg`/`wwcodeupdate.prg`) against an update server; `versiune_db.txt` records the expected DB schema stamp (format `YYYY_MM_DD_NN`) checked against the server on launch.
+
+- **Localization**: `Locale/` + the `locale` classlib + a `goLocale` object read `settings.ini` (`[locale] lang`, `llocale`) to select the UI language; Romanian is the default and the translation path is largely dormant (`glTraducere` defaults to `.F.`).
+
+- **Changelog convention**: `changelog_roaimob.txt` holds HTML-comment-wrapped, dated (`dd/mm/yyyy`) entries per version (`ROAIMOB - X.Y.Z`), each with Romanian-language notes tagged `:nou:` (new), `:modificare:` (change), `:eroare:` (bug fix), or `:adaugare:` (addition). Follow this exact format/tagging when documenting a change here.
+
+- **Unrelated nested project**: `COMUN/utile/chatbot/` is a standalone Flowise-embed HTML support chatbot (`chatbot_maria.html`) with its own README.md and CLAUDE.md. It has no relation to the FoxPro/Oracle asset-management app — don't conflate its guidance with ROAIMOB itself.
+
+## Project insights (docs/)
+
+`docs/` holds short, concrete notes discovered while working on real tasks — flows (e.g. transformare imobilizare in curs -> MF), `pack_imob` procedures, `IMOB_*` table layout — that go beyond what CLAUDE.md covers. See `docs/README.md` for the index. **Proactively offer to update `docs/` whenever you uncover a non-obvious project insight while fixing a bug or investigating a flow** (don't wait to be asked), so future sessions can reuse it instead of re-investigating from scratch. Keep entries concise and factual — no restating what's obvious from reading the code.

Clase/Vechi/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/Vechi/appwiz.vc2

@@ -0,0 +1,990 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="appwiz.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+*< LIBCOMMENT: Application Wizard framework class library. />
+*
+DEFINE CLASS wzaboutdialog AS form 		&& About form class used as an About dialog in the framework for the Application Wizard.
+ 	*< 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="Shape2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		AlwaysOnTop = .T.
+		AutoCenter = .T.
+		BorderStyle = 3
+		Caption = ""
+		Closable = .F.
+		ControlBox = .F.
+		DoCreate = .T.
+		FontSize = 8
+		Height = 151
+		KeyPreview = .T.
+		MaxButton = .F.
+		MinButton = .F.
+		Movable = .F.
+		Name = "wzaboutdialog"
+		Width = 353
+		WindowType = 1
+	*</PropValue>
+
+	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
+		Left = 243, ;
+		Name = "CMDTERMIN1", ;
+		Top = 101
+		*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'Image1' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 60, ;
+		Left = 24, ;
+		Name = "Image1", ;
+		Picture = ..\..\contab\grafice\mfix.ico, ;
+		Stretch = 2, ;
+		Top = 24, ;
+		Width = 60
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .T., ;
+		Caption = "Programul MFix2000", ;
+		FontBold = .F., ;
+		FontName = "Arial Black", ;
+		FontSize = 10, ;
+		Height = 20, ;
+		Left = 97, ;
+		Name = "Label1", ;
+		Top = 31, ;
+		Width = 150, ;
+		ZOrderSet = 5
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		AutoSize = .T., ;
+		Caption = "este produs de firma", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 97, ;
+		Name = "Label2", ;
+		Top = 67, ;
+		Width = 120, ;
+		ZOrderSet = 6
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label3' AS label WITH ;
+		AutoSize = .T., ;
+		Caption = "ROMFAST S.R.L.", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 222, ;
+		Name = "Label3", ;
+		Top = 67, ;
+		Width = 106, ;
+		ZOrderSet = 7
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Shape1' AS shape WITH ;
+		Height = 130, ;
+		Left = 8, ;
+		Name = "Shape1", ;
+		SpecialEffect = 0, ;
+		Top = 9, ;
+		Width = 333, ;
+		ZOrderSet = 0
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Shape2' AS shape WITH ;
+		Height = 2, ;
+		Left = 97, ;
+		Name = "Shape2", ;
+		SpecialEffect = 0, ;
+		Top = 55, ;
+		Width = 227, ;
+		ZOrderSet = 1
+		*< END OBJECT: BaseClass="shape" />
+	
+	PROCEDURE KeyPress
+		LPARAMETERS nKeyCode, nShiftAltCtrl
+		
+		IF nKeyCode=23 OR nKeyCode=27
+			this.Release
+		ENDIF
+		
+	ENDPROC
+
+ENDDEFINE
+
+DEFINE CLASS wzapplication AS container 		&& Application class used as a framework for the Application Wizard.
+ 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<DefinedPropArrayMethod>
+		*m: beforereadevents		&& Method executed before READ EVENTS is executed when ReadEvents is called.
+		*m: clearevents		&& Clears any pending read events.
+		*m: doform		&& Executes an SCX form.
+		*m: dolabel		&& Executes an LBX label
+		*m: domenu		&& Executes an MPR menu.
+		*m: doprogram		&& Executes a PRG, APP, or EXE program.
+		*m: doreport		&& Executes an FRX report.
+		*m: filenotfoundmsgbox		&& Displays a File Not Found messagebox.
+		*m: getcaption		&& Returns the caption of the application.
+		*m: geticon		&& Returns the icon of the application.
+		*m: onshutdown		&& Occurs when the user attempts to exit Visual FoxPro.
+		*m: readevents		&& Starts read events mode.
+		*m: refreshformscollection		&& Refresh forms collection arrays and counters.
+		*m: release		&& Releases the application from memory.
+		*m: releaseform		&& Release specifc or active form from memory.
+		*m: releaseforms		&& Release all application forms from memory.
+		*m: resetformscollection		&& Reset arrays and counters of forms collection.
+		*m: restoreenvironment		&& Restores environment settings.
+		*m: saveenvironment		&& Saves environment settings.
+		*m: setcaption		&& Sets the caption of the application.
+		*m: seticon		&& Sets the icon of the application.
+		*m: show		&& Displays the application.
+		*p: ccaption		&& Caption of the application object.
+		*p: cicon		&& Icon of the application object.
+		*p: clastcaption		&& Last caption setting of _screen before application object was intantiated.
+		*p: clasticon		&& Last icon setting of _screen before application object was intantiated.
+		*p: cstartupform		&& Form (SCX) which is executed when the application object is shown.
+		*p: cstartupmenu		&& Menu (MPR) which is executed when the application object is shown.
+		*p: lcascadeforms		&& Specifies whether forms are cascaded if multiple instances of the same form are opened in the same top and left positions of the desktop.
+		*p: lreadevents		&& Enable READ EVENTS within ReadEvents method.
+		*p: nformcount		&& Forms collection count for application object.
+		*p: npixeloffset		&& Number of pixels which offset multiple instances of the same form.
+		*a: aformnames[1,0]		&& Form name collection for application object.
+		*a: aforms[1,0]		&& Forms collection for application object.
+	*</DefinedPropArrayMethod>
+
+	PROTECTED ccaption,cicon,clastcaption,clasticon,Destroy,Init
+	*<PropValue>
+		BackColor = 0,0,255
+		ccaption = 
+		cicon = 
+		clastcaption = 
+		clasticon = 
+		cstartupform = 
+		cstartupmenu = 
+		Height = 34
+		lcascadeforms = .T.
+		lreadevents = .T.
+		Name = "wzapplication"
+		nformcount = 0
+		npixeloffset = 22
+		Visible = .F.
+		Width = 108
+	*</PropValue>
+	
+	PROTECTED PROCEDURE beforereadevents		&& Method executed before READ EVENTS is executed when ReadEvents is called.
+	ENDPROC
+
+	PROCEDURE clearevents		&& Clears any pending read events.
+		CLEAR EVENTS
+		
+	ENDPROC
+
+	PROTECTED PROCEDURE Destroy
+		CLEAR EVENTS
+		this.RestoreEnvironment
+		
+	ENDPROC
+
+	PROCEDURE doform		&& Executes an SCX form.
+		LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
+		LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
+		LOCAL lcFormName,lnFormCount
+		_SCREEN.VISIBLE=.T.
+		
+		lcFileName=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
+		IF NOT tlNoShow
+			this.aForms[this.nFormCount].Show
+		ENDIF
+		
+	ENDPROC
+
+	PROCEDURE dolabel		&& Executes an LBX label
+		LPARAMETERS tcFileName,tlPrint
+		LOCAL lcFileName
+		
+		lcFileName=ALLTRIM(tcFileName)
+		IF EMPTY(lcFileName)
+			RETURN .F.
+		ENDIF
+		lcFileName=LOWER(FULLPATH(lcFileName))
+		IF NOT "."$lcFileName
+			lcFileName=lcFileName+".lbx"
+		ENDIF
+		IF NOT FILE(lcFileName)
+			this.FileNotFoundMsgBox(lcFileName)
+			RETURN .F.
+		ENDIF
+		IF tlPrint
+			LABEL FORM (lcFileName) TO PRINTER PROMPT
+		ELSE
+			LABEL FORM (lcFileName) PREVIEW
+		ENDIF
+		
+	ENDPROC
+
+	PROCEDURE domenu		&& Executes an MPR menu.
+		LPARAMETERS tcFileName
+		LOCAL lcFileName
+		
+		lcFileName=ALLTRIM(tcFileName)
+		IF EMPTY(lcFileName)
+			RETURN .F.
+		ENDIF
+		lcFileName=LOWER(FULLPATH(lcFileName))
+		IF NOT "."$lcFileName
+			lcFileName=lcFileName+".mpr"
+		ENDIF
+		*IF NOT FILE(lcFileName)
+		*	this.FileNotFoundMsgBox(lcFileName)
+		*	RETURN .F.
+		*ENDIF
+		*DO (lcFileName)
+		do mfix2000.mpr
+	ENDPROC
+
+	PROCEDURE doprogram		&& Executes a PRG, APP, or EXE program.
+		LPARAMETERS tcFileName
+		LOCAL lcFileName
+		
+		lcFileName=ALLTRIM(tcFileName)
+		IF EMPTY(lcFileName)
+			RETURN .F.
+		ENDIF
+		lcFileName=LOWER(FULLPATH(lcFileName))
+		IF NOT "."$lcFileName
+			lcFileName=lcFileName+".prg"
+		ENDIF
+		IF NOT FILE(lcFileName)
+			this.FileNotFoundMsgBox(lcFileName)
+			RETURN .F.
+		ENDIF
+		DO (lcFileName)
+		
+	ENDPROC
+
+	PROCEDURE doreport		&& Executes an FRX report.
+		LPARAMETERS tcFileName,tlPrint
+		LOCAL lcFileName
+		
+		lcFileName=ALLTRIM(tcFileName)
+		IF EMPTY(lcFileName)
+			RETURN .F.
+		ENDIF
+		lcFileName=LOWER(FULLPATH(lcFileName))
+		IF NOT "."$lcFileName
+			lcFileName=lcFileName+".frx"
+		ENDIF
+		IF NOT FILE(lcFileName)
+			this.FileNotFoundMsgBox(lcFileName)
+			RETURN .F.
+		ENDIF
+		IF tlPrint
+			REPORT FORM (lcFileName) TO PRINTER PROMPT
+		ELSE
+			REPORT FORM (lcFileName) PREVIEW
+		ENDIF
+		
+	ENDPROC
+
+	PROCEDURE filenotfoundmsgbox		&& Displays a File Not Found messagebox.
+		LPARAMETERS tcFileName
+		
+		RETURN MESSAGEBOX([File "]+tcFileName+[" not found.],16,_screen.Caption)
+		
+	ENDPROC
+
+	PROCEDURE getcaption		&& Returns the caption of the application.
+		RETURN this.cCaption
+		
+	ENDPROC
+
+	PROCEDURE geticon		&& Returns the icon of the application.
+		RETURN this.cIcon
+		
+	ENDPROC
+
+	PROTECTED PROCEDURE Init
+		this.SaveEnvironment
+		this.ResetFormsCollection
+		
+	ENDPROC
+
+	PROCEDURE onshutdown		&& Occurs when the user attempts to exit Visual FoxPro.
+		*IF MESSAGEBOX("Sunteti sigur ca doriti sa iesiti din program?",36,_screen.Caption)=6
+		*	QUIT
+		*ENDIF
+		IF glQuit
+			QUIT
+		ENDIF 
+		OA=CREATEOBJ('SIGUR')
+		OA.SHOW(1)
+		IF BUTON=1
+			QUIT
+		ELSE
+			DO ce_windows IN pmenu.prg
+			PUBLIC op_imob
+			op_imob=CREA('p_imob')
+			DO alegeprogram
+			DO FORM START00
+			OSTART=CREATEOBJ('START00')
+			PRIMADATA=.F.
+			op_imob.SHOW
+		ENDIF
+		
+	ENDPROC
+
+	PROCEDURE readevents		&& Starts read events mode.
+		this.BeforeReadEvents
+		IF this.lReadEvents
+			READ EVENTS
+		ENDIF
+		
+	ENDPROC
+
+	PROCEDURE refreshformscollection		&& Refresh forms collection arrays and counters.
+		LOCAL lnCount,lnCount2
+		
+		lnCount=1
+		DO WHILE lnCount<=this.nFormCount
+			IF TYPE("this.aForms[lnCount]")=="O" AND NOT ISNULL(this.aForms[lnCount])
+				lnCount=lnCount+1
+				LOOP
+			ENDIF
+			FOR lnCount2 = lnCount TO (this.nFormCount-1)
+				this.aForms[lnCount2]=this.aForms[lnCount2+1]
+				this.aForms[lnCount2+1]=.NULL.
+				this.aFormNames[lnCount2]=this.aFormNames[lnCount2+1]
+				this.aFormNames[lnCount2+1]=""
+			ENDFOR
+			this.nFormCount=this.nFormCount-1
+			IF this.nFormCount=0
+				EXIT
+			ENDIF
+			DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
+		ENDDO
+		IF this.nFormCount=0
+			this.ResetFormsCollection
+		ENDIF
+		
+	ENDPROC
+
+	PROCEDURE release		&& Releases the application from memory.
+		IF NOT this.ReleaseForms()
+			RETURN .F.
+		ENDIF
+		this.ClearEvents
+		RELEASE this
+		
+	ENDPROC
+
+	PROCEDURE releaseform		&& Release specifc or active form from memory.
+		LPARAMETERS toForm
+		
+		IF PARAMETERS()=0
+			IF TYPE("_screen.ActiveForm")#"O" OR ISNULL(_screen.ActiveForm)
+				RETURN .F.
+			ENDIF
+			_screen.ActiveForm.Release
+		ELSE
+			IF TYPE("toForm")#"O" OR ISNULL(toForm)
+				RETURN .F.
+			ENDIF
+			toForm.Release
+		ENDIF
+		this.RefreshFormsCollection
+		
+	ENDPROC
+
+	PROCEDURE releaseforms		&& Release all application forms from memory.
+		LOCAL lnFormCount
+		
+		this.RefreshFormsCollection
+		DO WHILE this.nFormCount>0
+			lnFormCount=this.nFormCount
+			IF NOT this.ReleaseForm(this.aForms[lnFormCount]) OR this.nFormCount=lnFormCount
+				RETURN .F.
+			ENDIF
+		ENDDO
+		
+	ENDPROC
+
+	PROTECTED PROCEDURE resetformscollection		&& Reset arrays and counters of forms collection.
+		this.nFormCount=0
+		DIMENSION this.aForms[1],this.aFormNames[1]
+		this.aForms=.NULL.
+		this.aFormNames=""
+		
+	ENDPROC
+
+	PROTECTED PROCEDURE restoreenvironment		&& Restores environment settings.
+		IF NOT EMPTY(this.cLastCaption) AND NOT _screen.Caption==this.cLastCaption
+			_screen.Caption=this.cLastCaption
+		ENDIF
+		IF NOT EMPTY(this.cLastIcon) AND NOT _screen.Icon==this.cLastIcon
+			_screen.Icon=this.cLastIcon
+		ENDIF
+		
+	ENDPROC
+
+	PROTECTED PROCEDURE saveenvironment		&& Saves environment settings.
+		this.cLastCaption=_screen.Caption
+		this.cLastIcon=_screen.Icon
+		
+	ENDPROC
+
+	PROCEDURE setcaption		&& Sets the caption of the application.
+		LPARAMETERS tcCaption
+		
+		IF TYPE("tcCaption")#"C"
+			RETURN .F.
+		ENDIF
+		this.cCaption=tcCaption
+		_screen.Caption=tcCaption
+		
+	ENDPROC
+
+	PROCEDURE seticon		&& Sets the icon of the application.
+		LPARAMETERS tcIcon
+		
+		IF TYPE("tcIcon")#"C"
+			RETURN .F.
+		ENDIF
+		this.cIcon=tcIcon
+		_screen.Icon=tcIcon
+		
+	ENDPROC
+
+	PROCEDURE show		&& Displays the application.
+		LPARAMETERS nStyle
+		
+		this.DoMenu(this.cStartupMenu)
+		this.DoForm(this.cStartupForm)
+		this.ReadEvents
+		
+	ENDPROC
+
+ENDDEFINE
+
+DEFINE CLASS wzquickstartform AS form 		&& Quick start form class used as a start up form in the framework for the Application Wizard.
+ 	*< 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="Image4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image12" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image13" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image16" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image17" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image20" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image21" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image24" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image25" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image26" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image27" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image28" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image29" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lblForms" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lstForms" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="cmdRun" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="cmdClose" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*p: nfilecount		&& Number of files in the form file list.
+		*a: acommands[1,0]		&& Array of commands executed for each item in the forms list.
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		AutoCenter = .T.
+		BackColor = 192,192,192
+		BorderStyle = 2
+		Caption = "Quick Start"
+		DataSession = 2
+		DoCreate = .T.
+		FontSize = 8
+		Height = 576
+		KeyPreview = .T.
+		Name = "wzquickstartform"
+		nfilecount = 0
+		Width = 795
+		WindowState = 2
+		WindowType = 1
+	*</PropValue>
+
+	ADD OBJECT 'cmdClose' AS commandbutton WITH ;
+		Caption = "\<Close", ;
+		Default = .T., ;
+		FontSize = 8, ;
+		Height = 27, ;
+		Left = 285, ;
+		Name = "cmdClose", ;
+		TabIndex = 4, ;
+		Top = 211, ;
+		Width = 84
+		*< END OBJECT: BaseClass="commandbutton" />
+
+	ADD OBJECT 'cmdRun' AS commandbutton WITH ;
+		Caption = "\<Run", ;
+		Enabled = .F., ;
+		FontSize = 8, ;
+		Height = 27, ;
+		Left = 285, ;
+		Name = "cmdRun", ;
+		TabIndex = 3, ;
+		Top = 181, ;
+		Width = 84
+		*< END OBJECT: BaseClass="commandbutton" />
+
+	ADD OBJECT 'Image1' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 347, ;
+		Name = "Image1", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 224, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image12' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 226, ;
+		Name = "Image12", ;
+		Picture = foxqstrt.bmp, ;
+		Top = -28, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image13' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 224, ;
+		Name = "Image13", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 224, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image16' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 164, ;
+		Name = "Image16", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 9, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image17' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 164, ;
+		Name = "Image17", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 261, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image2' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 347, ;
+		Name = "Image2", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 56, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image20' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 102, ;
+		Name = "Image20", ;
+		Picture = foxqstrt.bmp, ;
+		Top = -28, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image21' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 102, ;
+		Name = "Image21", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 224, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image24' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 38, ;
+		Name = "Image24", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 8, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image25' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 38, ;
+		Name = "Image25", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 260, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image26' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = -23, ;
+		Name = "Image26", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 56, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image27' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = -23, ;
+		Name = "Image27", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 140, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image28' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = -23, ;
+		Name = "Image28", ;
+		Picture = foxqstrt.bmp, ;
+		Top = -28, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image29' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = -23, ;
+		Name = "Image29", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 224, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image3' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 288, ;
+		Name = "Image3", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 98, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image4' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 347, ;
+		Name = "Image4", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 140, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image5' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 288, ;
+		Name = "Image5", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 182, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image6' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 257, ;
+		Name = "Image6", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 304, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image7' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 347, ;
+		Name = "Image7", ;
+		Picture = foxqstrt.bmp, ;
+		Top = -28, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image8' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 288, ;
+		Name = "Image8", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 14, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image9' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 58, ;
+		Left = 288, ;
+		Name = "Image9", ;
+		Picture = foxqstrt.bmp, ;
+		Top = 266, ;
+		Width = 52
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'lblForms' AS label WITH ;
+		BackColor = 192,192,192, ;
+		Caption = "\<Select a form to run.", ;
+		FontSize = 8, ;
+		Height = 17, ;
+		Left = 10, ;
+		Name = "lblForms", ;
+		TabIndex = 1, ;
+		Top = 10, ;
+		Width = 111
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'lstForms' AS listbox WITH ;
+		FontSize = 8, ;
+		Height = 215, ;
+		IntegralHeight = .T., ;
+		Left = 10, ;
+		Name = "lstForms", ;
+		TabIndex = 2, ;
+		Top = 25, ;
+		Width = 266
+		*< END OBJECT: BaseClass="listbox" />
+	
+	PROCEDURE Activate
+		ACTIVATE SCREEN
+		SET MESSAGE TO
+		
+	ENDPROC
+
+	PROCEDURE Deactivate
+		ACTIVATE SCREEN
+		SET MESSAGE TO
+		
+	ENDPROC
+
+	PROCEDURE KeyPress
+		LPARAMETERS nKeyCode, nShiftAltCtrl
+		
+		IF nKeyCode=23 OR nKeyCode=27
+			this.Release
+		ENDIF
+		
+	ENDPROC
+
+	PROCEDURE Load
+		SET TALK OFF
+		SET ESCAPE OFF
+		SET COLLATE TO 'MACHINE'
+		SET COMPATIBLE OFF
+		SET CONFIRM ON
+		SET DECIMALS TO 9
+		SET EXACT OFF
+		SET EXCLUSIVE OFF
+		SET MEMOWIDTH TO 1024
+		SET MULTILOCKS ON
+		SET POINT TO '.'
+		SET SAFETY OFF
+		SET UDFPARMS TO VALUE
+		
+	ENDPROC
+
+	PROCEDURE cmdClose.Click
+		thisform.Release
+		
+	ENDPROC
+
+	PROCEDURE cmdRun.Click
+		LOCAL lnListIndex,lcCommand
+		
+		lnListIndex=this.parent.lstForms.ListIndex
+		IF lnListIndex<1
+			RETURN
+		ENDIF
+		lcCommand=thisform.aCommands[lnListIndex]
+		IF EMPTY(lcCommand)
+			RETURN
+		ENDIF
+		thisform.Hide
+		&lcCommand
+		thisform.Release
+		
+	ENDPROC
+
+	PROCEDURE cmdRun.Refresh
+		LOCAL llEnabled
+		
+		llEnabled=(this.parent.lstForms.ListIndex>0)
+		IF this.Enabled#llEnabled
+			this.Enabled=llEnabled
+		ENDIF
+		
+	ENDPROC
+
+	PROCEDURE lstForms.DblClick
+		this.parent.cmdRun.Click
+		
+	ENDPROC
+
+	PROCEDURE lstForms.Init
+		LOCAL lcMenuFile,lcPrompt,lcCommand,lnAtPos
+		
+		IF TYPE("goApp")#"O" OR ISNULL(goApp)
+			RETURn
+		ENDIF
+		lcMenuFile=goApp.cStartupMenu
+		IF EMPTY(lcMenuFile)
+			RETURN
+		ENDIF
+		lcMenuFile=LOWER(FULLPATH(lcMenuFile))
+		lnAtPos=AT(".",lcMenuFile)
+		IF lnAtPos=0
+			lcMenuFile=lcMenuFile+".mnx"
+		ELSE
+			lcMenuFile=ALLTRIM(LEFT(lcMenuFile,lnAtPos-1))+".mnx"
+		ENDIF
+		IF NOT FILE(lcMenuFile)
+			RETURN
+		ENDIF
+		SELECT 0
+		USE (lcMenuFile) AGAIN SHARED ALIAS _menu
+		IF NOT USED("_menu")
+			RETURN
+		ENDIF
+		thisform.nFileCount=0
+		DIMENSION thisform.aCommands[1]
+		SCAN ALL FOR LOWER(ALLTRIM(LevelName))=="forms" AND VAL(ItemNum)>0
+			lcPrompt=ALLTRIM(MLINE(Prompt,1))
+			lcCommand=ALLTRIM(MLINE(Command,1))
+			IF EMPTY(lcPrompt) OR EMPTY(lcCommand) OR LOWER(ALLTRIM(lcPrompt))=="launcher" OR ;
+					LOWER(ALLTRIM(lcPrompt))=="\<quick start"
+				LOOP
+			ENDIF
+			this.AddItem(lcPrompt)
+			thisform.nFileCount=thisform.nFileCount+1
+			DIMENSION thisform.aCommands[thisform.nFileCount]
+			thisform.aCommands[thisform.nFileCount]=lcCommand
+		ENDSCAN
+		USE IN _menu
+		IF this.ListCount>0
+			this.ListIndex=1
+		ENDIF
+		this.parent.cmdRun.Refresh
+		
+	ENDPROC
+
+	PROCEDURE lstForms.InteractiveChange
+		this.parent.cmdRun.Refresh
+		
+	ENDPROC
+
+	PROCEDURE lstForms.MouseUp
+		LPARAMETERS nButton, nShift, nXCoord, nYCoord
+		
+		this.InteractiveChange
+		
+	ENDPROC
+
+ENDDEFINE

Clase/Vechi/oimobilizari.vc2

@@ -0,0 +1,807 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="oimobilizari.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS capplication AS wzapplication OF "..\..\roacont\clase\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 18.10.2004
+		*!* Marius
+		IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri))
+			this.aForms[this.nFormCount].Show 
+		ENDIF
+		
+	ENDPROC
+
+ENDDEFINE
+
+DEFINE CLASS frm_jurnal 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_listare1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column1.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column1.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column2.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column2.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column3.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column3.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column4.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column4.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column5.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column5.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column6.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column6.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column7.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column7.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column8.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column8.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column9.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column9.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column10.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column10.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column11.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column11.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column12.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column12.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column13.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column13.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column14.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column14.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column15.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column15.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column16.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column16.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column17.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column17.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column18.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column18.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column19.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column19.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column20.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column20.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column21.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column21.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column22.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column22.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column23.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column23.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column24.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column24.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column25.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column25.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column26.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column26.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column27.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column27.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column28.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column28.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column29.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column29.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column30.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column30.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column31.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grd_jurnal.Column31.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Ck_nract" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="ck_denumire" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="ck_valach" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Ck_valinv" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="ck_scd" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="ck_nrinv" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Ck_dataact" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Ck_datapif" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Ck_explicatia" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="ck_utilizator" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="ck_responsabil" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="ck_gestiune" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		DoCreate = .T.
+		FontCharSet = 238
+		Height = 582
+		Name = "frm_jurnal"
+		Width = 793
+		_SHAPE1.Height = 29
+		_SHAPE1.Left = 0
+		_SHAPE1.Name = "_SHAPE1"
+		_SHAPE1.Top = 0
+		_SHAPE1.Width = 792
+		_SHAPE2.Height = 29
+		_SHAPE2.Left = 723
+		_SHAPE2.Name = "_SHAPE2"
+		_SHAPE2.Top = -1
+		_SHAPE2.Width = 74
+		LB_TITLU_ALB_B121.Caption = "JURNAL"
+		LB_TITLU_ALB_B121.FontBold = .T.
+		LB_TITLU_ALB_B121.FontCharSet = 238
+		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
+		BUT_TERMIN1.Left = 762
+		BUT_TERMIN1.Name = "BUT_TERMIN1"
+		BUT_TERMIN1.Top = 0
+	*</PropValue>
+
+	ADD OBJECT '_shape3' AS _shape WITH ;
+		BackStyle = 0, ;
+		Height = 60, ;
+		Left = 12, ;
+		Name = "_shape3", ;
+		Top = 36, ;
+		Width = 768
+		*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" />
+
+	ADD OBJECT 'But_listare1' AS but_listare WITH ;
+		Caption = "", ;
+		Left = 730, ;
+		Name = "But_listare1", ;
+		Top = 0
+		*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'Ck_dataact' AS ck_filtru_luna WITH ;
+		Alignment = 0, ;
+		Caption = "Data document", ;
+		FontCharSet = 238, ;
+		Left = 328, ;
+		Name = "Ck_dataact", ;
+		Top = 46
+		*< END OBJECT: ClassLib="..\..\comun\clase\caut.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'Ck_datapif' AS ck_filtru_luna WITH ;
+		Alignment = 0, ;
+		Caption = "Data pif", ;
+		FontCharSet = 238, ;
+		Left = 328, ;
+		Name = "Ck_datapif", ;
+		Top = 69
+		*< END OBJECT: ClassLib="..\..\comun\clase\caut.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'ck_denumire' AS ck_filtru_text WITH ;
+		Alignment = 0, ;
+		Caption = "Denumire", ;
+		FontCharSet = 238, ;
+		FontName = "Arial Narrow", ;
+		FontSize = 9, ;
+		Left = 36, ;
+		Name = "ck_denumire", ;
+		Top = 69
+		*< END OBJECT: ClassLib="..\..\comun\clase\caut.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'Ck_explicatia' AS ck_filtru_text WITH ;
+		Alignment = 0, ;
+		Caption = "Explicatia", ;
+		FontCharSet = 238, ;
+		FontName = "Arial Narrow", ;
+		Left = 424, ;
+		Name = "Ck_explicatia", ;
+		Top = 46
+		*< END OBJECT: ClassLib="..\..\comun\clase\caut.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'ck_gestiune' AS ck_filtru_text WITH ;
+		Alignment = 0, ;
+		Caption = "Gestiune", ;
+		FontCharSet = 238, ;
+		FontName = "Arial Narrow", ;
+		Left = 495, ;
+		Name = "ck_gestiune", ;
+		Top = 70
+		*< END OBJECT: ClassLib="..\..\comun\clase\caut.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'Ck_nract' AS ck_filtru_numar WITH ;
+		Alignment = 0, ;
+		Caption = "Nr.document", ;
+		FontCharSet = 238, ;
+		FontName = "Arial Narrow", ;
+		FontSize = 9, ;
+		Left = 36, ;
+		Name = "Ck_nract", ;
+		Top = 46
+		*< END OBJECT: ClassLib="..\..\comun\clase\caut.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'ck_nrinv' AS ck_filtru_numar WITH ;
+		Alignment = 0, ;
+		Caption = "Nr. inventar", ;
+		FontCharSet = 238, ;
+		FontName = "Arial Narrow", ;
+		Left = 241, ;
+		Name = "ck_nrinv", ;
+		Top = 70
+		*< END OBJECT: ClassLib="..\..\comun\clase\caut.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'ck_responsabil' AS ck_filtru_text WITH ;
+		Alignment = 0, ;
+		Caption = "Responsabil", ;
+		FontCharSet = 238, ;
+		FontName = "Arial Narrow", ;
+		Left = 495, ;
+		Name = "ck_responsabil", ;
+		Top = 46
+		*< END OBJECT: ClassLib="..\..\comun\clase\caut.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'ck_scd' AS ck_filtru_text WITH ;
+		Alignment = 0, ;
+		Caption = "Cont debitor", ;
+		FontCharSet = 238, ;
+		FontName = "Arial Narrow", ;
+		Left = 241, ;
+		Name = "ck_scd", ;
+		Top = 46
+		*< END OBJECT: ClassLib="..\..\comun\clase\caut.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'ck_utilizator' AS ck_filtru_text WITH ;
+		Alignment = 0, ;
+		Caption = "Utilizator", ;
+		FontCharSet = 238, ;
+		FontName = "Arial Narrow", ;
+		Left = 424, ;
+		Name = "ck_utilizator", ;
+		Top = 70
+		*< END OBJECT: ClassLib="..\..\comun\clase\caut.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'ck_valach' AS ck_filtru_numar WITH ;
+		Alignment = 0, ;
+		Caption = "Valoare de achizitie", ;
+		FontCharSet = 238, ;
+		FontName = "Arial Narrow", ;
+		Left = 122, ;
+		Name = "ck_valach", ;
+		Top = 46
+		*< END OBJECT: ClassLib="..\..\comun\clase\caut.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'Ck_valinv' AS ck_filtru_numar WITH ;
+		Alignment = 0, ;
+		Caption = "Valoare de inventar", ;
+		FontCharSet = 238, ;
+		FontName = "Arial Narrow", ;
+		Left = 122, ;
+		Name = "Ck_valinv", ;
+		Top = 70
+		*< END OBJECT: ClassLib="..\..\comun\clase\caut.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
+		Left = 662, ;
+		Name = "Cmd_cauta1", ;
+		Top = 38
+		*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
+		Left = 662, ;
+		Name = "Cmd_reset1", ;
+		Top = 66
+		*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'grd_jurnal' AS _grdbase WITH ;
+		ColumnCount = 31, ;
+		DeleteMark = .F., ;
+		Height = 468, ;
+		Left = 12, ;
+		Name = "grd_jurnal", ;
+		Top = 108, ;
+		Width = 768, ;
+		Column1.Name = "Column1", ;
+		Column2.Name = "Column2", ;
+		Column3.Name = "Column3", ;
+		Column4.Name = "Column4", ;
+		Column5.Name = "Column5", ;
+		Column6.Name = "Column6", ;
+		Column7.Name = "Column7", ;
+		Column8.Name = "Column8", ;
+		Column9.Name = "Column9", ;
+		Column10.Name = "Column10", ;
+		Column11.Name = "Column11", ;
+		Column12.Name = "Column12", ;
+		Column13.Name = "Column13", ;
+		Column14.Name = "Column14", ;
+		Column15.Name = "Column15", ;
+		Column16.Name = "Column16", ;
+		Column17.Name = "Column17", ;
+		Column18.Name = "Column18", ;
+		Column19.Name = "Column19", ;
+		Column20.Name = "Column20", ;
+		Column21.Name = "Column21", ;
+		Column22.Name = "Column22", ;
+		Column23.Name = "Column23", ;
+		Column24.Name = "Column24", ;
+		Column25.Name = "Column25", ;
+		Column26.Name = "Column26", ;
+		Column27.Name = "Column27", ;
+		Column28.Name = "Column28", ;
+		Column29.Name = "Column29", ;
+		Column30.Name = "Column30", ;
+		Column31.Name = "Column31"
+		*< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" />
+
+	ADD OBJECT 'grd_jurnal.Column1.Header1' AS header WITH ;
+		Alignment = 2, ;
+		Caption = "Nr.act", ;
+		FontCharSet = 238, ;
+		FontName = "Arial Narrow", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.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 'grd_jurnal.Column10.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.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 'grd_jurnal.Column11.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column11.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_jurnal.Column12.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column12.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_jurnal.Column13.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column13.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_jurnal.Column14.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column14.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_jurnal.Column15.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column15.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_jurnal.Column16.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column16.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_jurnal.Column17.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column17.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_jurnal.Column18.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column18.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_jurnal.Column19.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column19.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_jurnal.Column2.Header1' AS header WITH ;
+		Alignment = 2, ;
+		Caption = "Data act", ;
+		FontCharSet = 238, ;
+		FontName = "Arial Narrow", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.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 'grd_jurnal.Column20.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column20.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_jurnal.Column21.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column21.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_jurnal.Column22.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column22.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_jurnal.Column23.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column23.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_jurnal.Column24.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column24.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_jurnal.Column25.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column25.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_jurnal.Column26.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column26.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_jurnal.Column27.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column27.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_jurnal.Column28.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column28.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_jurnal.Column29.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column29.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_jurnal.Column3.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.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 'grd_jurnal.Column30.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column30.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_jurnal.Column31.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column31.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_jurnal.Column4.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.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 'grd_jurnal.Column5.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.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 'grd_jurnal.Column6.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.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 'grd_jurnal.Column7.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.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 'grd_jurnal.Column8.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.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 'grd_jurnal.Column9.Header1' AS header WITH ;
+		Caption = "Header1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'grd_jurnal.Column9.Text1' AS textbox WITH ;
+		BackColor = 255,255,255, ;
+		BorderStyle = 0, ;
+		ForeColor = 0,0,0, ;
+		Margin = 0, ;
+		Name = "Text1"
+		*< END OBJECT: BaseClass="textbox" />
+
+ENDDEFINE

Clase/Vechi/registry.vc2

@@ -0,0 +1,924 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="registry.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS filereg AS registry OF "registry.vcx" 
+ 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	#INCLUDE "registry.h"
+	*<DefinedPropArrayMethod>
+		*m: getapplication		&& Retrieves application key.
+		*m: getapppath		&& Checks and returns path of application associated with a particular extension (e.g., XLS, DOC).
+		*m: getlatestversion		&& Returns latest version for a specified application.
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		Name = "filereg"
+	*</PropValue>
+	
+	PROCEDURE getapplication		&& Retrieves application key.
+		LPARAMETERS cExtnKey,cAppKey,lServer
+		
+		LOCAL nErrNum,cOptName
+		cOptName = ""
+		
+		* lServer - checking for OLE server.
+		IF TYPE("m.lServer") = "L" AND m.lServer
+			THIS.cAppPathKey = OLE_PATH_KEY
+		ELSE	
+			THIS.cAppPathKey = APP_PATH_KEY
+		ENDIF
+		
+		* Open extension app key
+		m.nErrNum = THIS.OpenKey(m.cExtnKey+THIS.cAppPathKey)
+		IF m.nErrNum  # ERROR_SUCCESS
+			RETURN m.nErrNum
+		ENDIF
+		
+		* Get application path
+		nErrNum = THIS.GetKeyValue(cOptName,@cAppKey)
+		
+		* Close application path key
+		THIS.CloseKey()
+		
+		RETURN m.nErrNum
+		
+	ENDPROC
+
+	PROCEDURE getapppath		&& Checks and returns path of application associated with a particular extension (e.g., XLS, DOC).
+		* Checks and returns path of application
+		* associated with a particular extension (e.g., XLS, DOC). 
+		LPARAMETER cExtension,cExtnKey,cAppKey,lServer
+		LOCAL nErrNum,cOptName
+		cOptName = ""
+		
+		* Check Extension parameter
+		IF TYPE("m.cExtension") # "C" OR LEN(m.cExtension) > 3
+			RETURN ERROR_BADPARM
+		ENDIF
+		m.cExtension = "."+m.cExtension
+		
+		* Open extension key
+		nErrNum = THIS.OpenKey(m.cExtension)
+		IF m.nErrNum  # ERROR_SUCCESS
+			RETURN m.nErrNum
+		ENDIF
+		
+		* Get key value for file extension
+		nErrNum = THIS.GetKeyValue(cOptName,@cExtnKey)
+		
+		* Close extension key
+		THIS.CloseKey()
+		
+		IF m.nErrNum  # ERROR_SUCCESS
+			RETURN m.nErrNum
+		ENDIF
+		RETURN THIS.GetApplication(cExtnKey,@cAppKey,lServer)
+		
+	ENDPROC
+
+	PROCEDURE getlatestversion		&& Returns latest version for a specified application.
+		LPARAMETER cClass,cExtnKey,cAppKey,lServer
+		
+		LOCAL nErrNum,cOptName
+		cOptName = ""
+		
+		* Open class key (e.g., Excel.Sheet)
+		nErrNum = THIS.OpenKey(m.cClass+CURVER_KEY)
+		IF m.nErrNum  # ERROR_SUCCESS
+			RETURN m.nErrNum
+		ENDIF
+		
+		* Get key value for file extension
+		nErrNum = THIS.GetKeyValue(cOptName,@cExtnKey)
+		
+		* Close extension key
+		THIS.CloseKey()
+		
+		IF m.nErrNum  # ERROR_SUCCESS
+			RETURN m.nErrNum
+		ENDIF
+		RETURN THIS.GetApplication(cExtnKey,@cAppKey,lServer)
+		
+	ENDPROC
+
+ENDDEFINE
+
+DEFINE CLASS foxreg AS registry OF "registry.vcx" 
+ 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	#INCLUDE "registry.h"
+	*<DefinedPropArrayMethod>
+		*m: enumfoxoptions
+		*m: getfoxoption		&& Retrieves an option from FoxPro registry settings.
+		*m: setfoxoption		&& Sets an option from FoxPro registry settings.
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		Name = "foxreg"
+	*</PropValue>
+	
+	PROCEDURE enumfoxoptions
+		LPARAMETER aFoxOpts
+		RETURN THIS.EnumOptions(@aFoxOpts,THIS.cVFPOptPath,THIS.nUserKey,.F.)
+		
+	ENDPROC
+
+	PROCEDURE getfoxoption		&& Retrieves an option from FoxPro registry settings.
+		LPARAMETER cOptName,cOptVal
+		RETURN THIS.GetRegKey(cOptName,@cOptVal,THIS.cVFPOptPath,THIS.nUserKey)
+		
+	ENDPROC
+
+	PROCEDURE setfoxoption		&& Sets an option from FoxPro registry settings.
+		LPARAMETER cOptName,cOptVal
+		RETURN THIS.SetRegKey(cOptName,cOptVal,THIS.cVFPOptPath,THIS.nUserKey)
+		
+	ENDPROC
+
+ENDDEFINE
+
+DEFINE CLASS odbcreg AS registry OF "registry.vcx" 
+ 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	#INCLUDE "registry.h"
+	*<DefinedPropArrayMethod>
+		*m: enumodbcdata		&& Enumerates through ODBC data sources.
+		*m: enumodbcdrvrs		&& Enumerates through ODBC drivers.
+		*m: getodbcdrvrs		&& Retrieves ODBC drivers.
+		*m: loadodbcfuncs		&& Loads ODBC registry functions.
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		Name = "odbcreg"
+	*</PropValue>
+	
+	PROCEDURE enumodbcdata		&& Enumerates through ODBC data sources.
+		LPARAMETER aDrvrOpts,cDataSource
+		LOCAL cSourceKey
+		cSourceKey = ODBC_DATA_KEY+cDataSource
+		RETURN THIS.EnumOptions(@aDrvrOpts,m.cSourceKey,HKEY_CURRENT_USER,.F.)
+		
+	ENDPROC
+
+	PROCEDURE enumodbcdrvrs		&& Enumerates through ODBC drivers.
+		LPARAMETER aDrvrOpts,cODBCDriver
+		LOCAL cSourceKey
+		cSourceKey = ODBC_DRVRS_KEY+m.cODBCDriver
+		RETURN THIS.EnumOptions(@aDrvrOpts,m.cSourceKey,HKEY_LOCAL_MACHINE,.F.)
+		
+	ENDPROC
+
+	PROCEDURE getodbcdrvrs		&& Retrieves ODBC drivers.
+		LPARAMETERS aDrvrs,lDataSources
+		LOCAL nODBCEnv,nRetVal,dsn,dsndesc,mdsn,mdesc
+		
+		lDataSources = IIF(TYPE("m.lDataSources")="L",m.lDataSources,.F.)
+		
+		* Load API functions
+		nRetVal = THIS.LoadODBCFuncs()
+		IF m.nRetVal # ERROR_SUCCESS
+			RETURN m.nRetVal
+		ENDIF
+		
+		* Get ODBC environment handle
+		nODBCEnv=VAL(SYS(3053))
+		
+		* -- Possible error messages
+		* 527 "cannot load odbc library"
+		* 528 "odbc entry point missing"
+		* 182 "not enough memory"
+		
+		IF INLIST(nODBCEnv,527,528,182)
+			* Failed
+			RETURN ERROR_ODBCFAIL
+		ENDIF
+		
+		DIMENSION aDrvrs[1,IIF(m.lDataSources,2,1)]
+		aDrvrs[1] = ""
+		
+		DO WHILE .T.
+			dsn=space(100)
+			dsndesc=space(100)
+			mdsn=0
+			mdesc=0
+		
+			* Return drivers or data sources
+			IF m.lDataSources
+				nRetVal = SQLDataSources(m.nODBCEnv,SQL_FETCH_NEXT,@dsn,100,@mdsn,@dsndesc,255,@mdesc)
+			ELSE
+				nRetVal = SQLDrivers(m.nODBCEnv,SQL_FETCH_NEXT,@dsn,100,@mdsn,@dsndesc,100,@mdesc)
+			ENDIF
+				
+			DO CASE
+				CASE m.nRetVal = SQL_NO_DATA
+					nRetVal = ERROR_SUCCESS
+					EXIT
+				CASE m.nRetVal # ERROR_SUCCESS AND m.nRetVal # 1 
+					EXIT
+				OTHERWISE
+					IF !EMPTY(aDrvrs[1])
+						IF m.lDataSources
+							DIMENSION aDrvrs[ALEN(aDrvrs,1)+1,2]
+						ELSE
+							DIMENSION aDrvrs[ALEN(aDrvrs,1)+1,1]
+						ENDIF
+					ENDIF
+					dsn = ALLTRIM(m.dsn)
+					aDrvrs[ALEN(aDrvrs,1),1] = LEFT(m.dsn,LEN(m.dsn)-1)
+					IF m.lDataSources
+						dsndesc = ALLTRIM(m.dsndesc)				
+						aDrvrs[ALEN(aDrvrs,1),2] = LEFT(m.dsndesc,LEN(m.dsndesc)-1)			
+					ENDIF
+			ENDCASE
+		ENDDO
+		RETURN nRetVal
+		
+	ENDPROC
+
+	PROCEDURE loadodbcfuncs		&& Loads ODBC registry functions.
+		IF THIS.lLoadedODBCs
+			RETURN ERROR_SUCCESS
+		ENDIF
+		
+		* Check API file containing functions
+		
+		IF EMPTY(THIS.cODBCDLLFile)
+			RETURN ERROR_NOODBCFILE
+		ENDIF
+		
+		LOCAL henv,fDirection,szDriverDesc,cbDriverDescMax
+		LOCAL pcbDriverDesc,szDriverAttributes,cbDrvrAttrMax,pcbDrvrAttr
+		LOCAL szDSN,cbDSNMax,pcbDSN,szDescription,cbDescriptionMax,pcbDescription
+		
+		DECLARE Short SQLDrivers IN (THIS.cODBCDLLFile) ;
+			Integer henv, Integer fDirection, ;
+			String @ szDriverDesc, Integer cbDriverDescMax, Integer pcbDriverDesc, ;
+			String @ szDriverAttributes, Integer cbDrvrAttrMax, Integer pcbDrvrAttr
+		
+		IF THIS.lhaderror && error loading library
+			RETURN -1
+		ENDIF
+		
+		DECLARE Short SQLDataSources IN (THIS.cODBCDLLFile) ;
+			Integer henv, Integer fDirection, ;
+			String @ szDSN, Integer cbDSNMax, Integer @ pcbDSN, ;
+			String @ szDescription, Integer cbDescriptionMax,Integer pcbDescription
+		
+		THIS.lLoadedODBCs = .T.
+		
+		RETURN ERROR_SUCCESS
+		
+	ENDPROC
+
+ENDDEFINE
+
+DEFINE CLASS oldinireg AS registry OF "registry.vcx" 
+ 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	#INCLUDE "registry.h"
+	*<DefinedPropArrayMethod>
+		*m: getinientry		&& Retrieves information from INI entry.
+		*m: getinisection		&& Retrieves information from INI section.
+		*m: loadinifuncs		&& Loads functions needed for reading INI files.
+		*m: writeinientry		&& Writes a specific INI entry.
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		Name = "oldinireg"
+	*</PropValue>
+	
+	PROCEDURE getinientry		&& Retrieves information from INI entry.
+		LPARAMETER cValue,cSection,cEntry,cINIFile
+		
+		* Get entry from INI file 
+		LOCAL cBuffer,nBufSize,nErrNum,nTotParms
+		nTotParms = PCOUNT()
+		
+		* Load API functions
+		nErrNum= THIS.LoadINIFuncs()
+		IF m.nErrNum # ERROR_SUCCESS
+			RETURN m.nErrNum
+		ENDIF
+		
+		* Parameter checks here
+		IF m.nTotParms < 3
+			m.cEntry = 0
+		ENDIF
+		
+		m.cBuffer=space(2000)
+		
+		IF EMPTY(m.cINIFile)
+			* WIN.INI file
+			m.nBufSize = GetWinINI(m.cSection,m.cEntry,"",@cBuffer,LEN(m.cBuffer))
+		ELSE
+			* Private INI file
+			m.nBufSize = GetPrivateINI(m.cSection,m.cEntry,"",@cBuffer,LEN(m.cBuffer),m.cINIFile)
+		ENDIF
+		
+		IF m.nBufSize = 0 &&could not find entry in INI file
+			RETURN ERROR_NOINIENTRY
+		ENDIF
+		
+		m.cValue=LEFT(m.cBuffer,m.nBufSize)
+		
+		** All is well
+		RETURN ERROR_SUCCESS
+		
+	ENDPROC
+
+	PROCEDURE getinisection		&& Retrieves information from INI section.
+		LPARAMETERS aSections,cSection,cINIFile
+		LOCAL cINIValue, nTotEntries, i, nLastPos
+		cINIValue = ""
+		IF TYPE("m.cINIFile") # "C"
+			cINIFile = ""
+		ENDIF
+		
+		IF THIS.GetINIEntry(@cINIValue,cSection,0,m.cINIFile) # ERROR_SUCCESS
+			RETURN ERROR_FAILINI
+		ENDIF
+		
+		nTotEntries=OCCURS(CHR(0),m.cINIValue)
+		DIMENSION aSections[m.nTotEntries]
+		nLastPos = 1
+		FOR i = 1 TO m.nTotEntries
+			nTmpPos = AT(CHR(0),m.cINIValue,m.i)
+			aSections[m.i] = SUBSTR(m.cINIValue,m.nLastPos,m.nTmpPos-m.nLastPos)
+			nLastPos = m.nTmpPos+1
+		ENDFOR
+		
+		RETURN ERROR_SUCCESS
+		
+	ENDPROC
+
+	PROCEDURE loadinifuncs		&& Loads functions needed for reading INI files.
+		* Loads funtions needed for reading INI files
+		IF THIS.lLoadedINIs
+			RETURN ERROR_SUCCESS
+		ENDIF
+		
+		DECLARE integer GetPrivateProfileString IN Win32API ;
+			AS GetPrivateINI string,string,string,string,integer,string
+		
+		IF THIS.lhaderror && error loading library
+			RETURN -1
+		ENDIF
+		
+		DECLARE integer GetProfileString IN Win32API ;
+			AS GetWinINI string,string,string,string,integer
+		
+		DECLARE integer WriteProfileString IN Win32API ;
+			AS WriteWinINI string,string,string
+		
+		DECLARE integer WritePrivateProfileString IN Win32API ;
+			AS WritePrivateINI string,string,string,string
+		
+		THIS.lLoadedINIs = .T.
+		
+		* Need error check here
+		RETURN ERROR_SUCCESS
+		
+	ENDPROC
+
+	PROCEDURE writeinientry		&& Writes a specific INI entry.
+		LPARAMETER cValue,cSection,cEntry,cINIFile
+		
+		* Get entry from INI file 
+		LOCAL nErrNum
+		
+		* Load API functions
+		nErrNum = THIS.LoadINIFuncs()
+		IF m.nErrNum # ERROR_SUCCESS
+			RETURN m.nErrNum
+		ENDIF
+		
+		IF EMPTY(m.cINIFile)
+			* WIN.INI file
+			nErrNum = WriteWinINI(m.cSection,m.cEntry,m.cValue)
+		ELSE
+			* Private INI file
+			nErrNum = WritePrivateINI(m.cSection,m.cEntry,m.cValue,m.cINIFile)
+		ENDIF
+				
+		** All is well
+		RETURN IIF(m.nErrNum=1,ERROR_SUCCESS,m.nErrNum)
+		
+	ENDPROC
+
+ENDDEFINE
+
+DEFINE CLASS registry AS custom 
+ 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	#INCLUDE "registry.h"
+	*<DefinedPropArrayMethod>
+		*m: closekey		&& Closes a registry key.
+		*m: deletekey		&& Deletes a registry key.
+		*m: deletekeyvalue		&& Deletes value from registry key.
+		*m: enumkeys		&& Enumerates through a registry key.
+		*m: enumkeyvalues		&& Enumerates through values of a registry key
+		*m: enumoptions		&& Enumerates through all entries for a key and populates array.
+		*m: getkeyvalue		&& Obtains a value from a registry key.
+		*m: getregkey		&& Gets a registry key setting.
+		*m: iskey		&& Checks to see if a key exists.
+		*m: loadregfuncs		&& Loads funtions needed for Registry.
+		*m: openkey		&& Opens a registry key.
+		*m: setkeyvalue		&& Sets a key value.
+		*m: setregkey		&& Sets a registry key setting.
+		*p: capppathkey		&& Application path registry key.
+		*p: cinidllfile		&& DLL file for INI functions.
+		*p: codbcdllfile		&& DLL file for ODBC functions.
+		*p: cregdllfile		&& DLL file for registry functions.
+		*p: cvfpoptpath		&& Registry path to VFP options settings.
+		*p: lcreatekey		&& Whether to create key if one does not already exist.
+		*p: ldisallowexpanded
+		*p: lhaderror		&& Whether an error occurred.
+		*p: lhasdllloaded
+		*p: lloadeddlls		&& Whether registry key functions loaded.
+		*p: lloadedinis		&& Whether INI functions loaded.
+		*p: lloadedodbcs		&& Whether ODBC functions loaded.
+		*p: ncurrentkey		&& Current registry key.
+		*p: ncurrentos		&& Current operating system code.
+		*p: nuserkey		&& User registry key.
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		capppathkey = 
+		cinidllfile = 
+		codbcdllfile = 
+		cregdllfile = 
+		cvfpoptpath = 
+		Name = "registry"
+		ncurrentkey = 0
+		ncurrentos = 0
+		nuserkey = 0
+	*</PropValue>
+	
+	PROCEDURE closekey		&& Closes a registry key.
+		* Closes a registry key
+		=RegCloseKey(THIS.nCurrentKey)
+		THIS.nCurrentKey =0 
+		
+	ENDPROC
+
+	PROCEDURE deletekey		&& Deletes a registry key.
+		* This routine deletes a Registry Key
+		LPARAMETER nUserKey,cKeyPath
+		LOCAL nErrNum
+		nErrNum = ERROR_SUCCESS
+		
+		* Delete key
+		m.nErrNum = RegDeleteKey(m.nUserKey,m.cKeyPath)
+		RETURN m.nErrNum
+		
+	ENDPROC
+
+	PROCEDURE deletekeyvalue		&& Deletes value from registry key.
+		LPARAMETER cOptName,cKeyPath,nUserKey
+		LOCAL cOption,nErrNum
+		cOption = cOptName
+		nErrNum = ERROR_SUCCESS
+		
+		* Open key
+		m.nErrNum = THIS.OpenKey(m.cKeyPath,m.nUserKey)
+		IF m.nErrNum # ERROR_SUCCESS
+			RETURN m.nErrNum
+		ENDIF
+		
+		* Delete the key value
+		m.nErrNum = RegDeleteValue(THIS.nCurrentKey,m.cOption)
+		
+		* Close key
+		THIS.CloseKey()		&& close key
+		RETURN m.nErrNum
+		
+	ENDPROC
+
+	PROCEDURE Destroy
+		IF !THIS.lHasDllLoaded
+			CLEAR DLLS RegOpenKey
+			CLEAR DLLS RegCreateKey
+			CLEAR DLLS RegDeleteKey
+			CLEAR DLLS RegDeleteValue
+			CLEAR DLLS RegCloseKey
+			CLEAR DLLS RegSetValueEx
+			CLEAR DLLS RegQueryValueEx
+			CLEAR DLLS RegEnumKey
+			CLEAR DLLS RegEnumKeyEx
+			CLEAR DLLS RegEnumValue
+		ENDIF
+	ENDPROC
+
+	PROCEDURE enumkeys		&& Enumerates through a registry key.
+		LPARAMETERS aKeyNames
+		LOCAL nKeyEntry,cNewKey,cbuf,nbuflen,cRetTime, nKeySize, nErrCode
+		nKeyEntry = 0
+		DIMENSION aKeyNames[1]
+		DO WHILE .T.
+			nKeySize = 0
+			cNewKey = SPACE(100)
+			nKeySize = LEN(m.cNewKey)
+			cbuf=space(100)
+			nbuflen=len(m.cbuf)
+			cRetTime=space(100)
+		
+			m.nErrCode = RegEnumKeyEx(THIS.nCurrentKey,m.nKeyEntry,@cNewKey,@nKeySize,0,@cbuf,@nbuflen,@cRetTime)
+			
+			DO CASE
+			CASE m.nErrCode = ERROR_EOF
+				EXIT
+			CASE m.nErrCode # ERROR_SUCCESS
+				EXIT
+			ENDCASE
+		
+			cNewKey = ALLTRIM(m.cNewKey)
+			cNewKey = LEFT(m.cNewKey,LEN(m.cNewKey)-1)
+			IF !EMPTY(aKeyNames[1])
+				DIMENSION aKeyNames[ALEN(aKeyNames)+1]
+			ENDIF
+			aKeyNames[ALEN(aKeyNames)] = m.cNewKey 
+			nKeyEntry = m.nKeyEntry + 1
+		ENDDO
+		
+		IF m.nErrCode = ERROR_EOF AND m.nKeyEntry # 0
+			m.nErrCode = ERROR_SUCCESS
+		ENDIF
+		RETURN m.nErrCode
+		
+	ENDPROC
+
+	PROCEDURE enumkeyvalues		&& Enumerates through values of a registry key
+		* Enumerates through values of a registry key
+		LPARAMETER aKeyValues
+		
+		LOCAL lpszValue,lpcchValue,lpdwReserved
+		LOCAL lpdwType,lpbData,lpcbData
+		LOCAL nErrCode,nKeyEntry
+		
+		STORE 0 TO nKeyEntry
+		
+		IF TYPE("THIS.nCurrentKey")#'N' OR THIS.nCurrentKey = 0
+			RETURN ERROR_BADKEY
+		ENDIF
+		
+		* Sorry, Win32s does not support this one!
+		IF THIS.nCurrentOS = OS_W32S
+			RETURN ERROR_BADPLAT
+		ENDIF
+		
+		DO WHILE .T.
+		
+			STORE 0 TO lpdwReserved,lpdwType,nErrCode
+			STORE SPACE(256) TO lpbData, lpszValue
+			STORE LEN(lpbData) TO m.lpcchValue
+			STORE LEN(lpszValue) TO m.lpcbData
+		
+			nErrCode=RegEnumValue(THIS.nCurrentKey,m.nKeyEntry,@lpszValue,;
+				@lpcchValue,m.lpdwReserved,@lpdwType,@lpbData,@lpcbData)
+			
+			DO CASE
+			CASE m.nErrCode = ERROR_EOF
+				EXIT
+			CASE m.nErrCode # ERROR_SUCCESS
+				EXIT
+			ENDCASE
+		
+			nKeyEntry = m.nKeyEntry + 1
+		
+			* Set array values
+			DIMENSION aKeyValues[m.nKeyEntry,2]
+			aKeyValues[m.nKeyEntry,1] = LEFT(m.lpszValue,m.lpcchValue)
+			DO CASE
+			CASE lpdwType = REG_SZ
+				aKeyValues[m.nKeyEntry,2] = LEFT(m.lpbData,m.lpcbData-1)
+			CASE lpdwType = REG_EXPAND_SZ AND !THIS.lDisAllowExpanded
+				aKeyValues[m.nKeyEntry,2] = LEFT(m.lpbData,m.lpcbData-1)
+			CASE lpdwType = REG_BINARY
+				* Don't support binary
+				aKeyValues[m.nKeyEntry,2] = REG_BINARY_LOC
+			CASE lpdwType = REG_DWORD
+				* You will need to use ASC() to check values here.
+				aKeyValues[m.nKeyEntry,2] = LEFT(m.lpbData,m.lpcbData-1)
+			OTHERWISE
+				aKeyValues[m.nKeyEntry,2] = REG_UNKNOWN_LOC
+			ENDCASE
+		ENDDO
+		
+		IF m.nErrCode = ERROR_EOF AND m.nKeyEntry#0
+			m.nErrCode = ERROR_SUCCESS
+		ENDIF
+		RETURN m.nErrCode
+		
+	ENDPROC
+
+	PROCEDURE enumoptions		&& Enumerates through all entries for a key and populates array.
+		* Enumerates through all entries for a key and populates array
+		LPARAMETER aRegOpts,cOptPath,nUserKey,lEnumKeys
+		LOCAL iPos,cOption,nErrNum
+		iPos = 0
+		cOption = ""
+		nErrNum = ERROR_SUCCESS
+		
+		IF PCOUNT()<4 OR TYPE("m.lEnumKeys") # "L"
+			lEnumKeys = .F.
+		ENDIF
+		
+		* Open key
+		m.nErrNum = THIS.OpenKey(m.cOptPath,m.nUserKey)
+		IF m.nErrNum # ERROR_SUCCESS
+			RETURN m.nErrNum
+		ENDIF
+		
+		* Enumerate through keys
+		IF m.lEnumKeys
+			* Enumerate and get key names
+			nErrNum = THIS.EnumKeys(@aRegOpts)
+		ELSE
+			* Enumerate and get all key values
+			nErrNum = THIS.EnumKeyValues(@aRegOpts)
+		ENDIF
+		
+		* Close key
+		THIS.CloseKey()		&&close key
+		RETURN m.nErrNum
+		
+	ENDPROC
+
+	PROCEDURE Error
+		LPARAMETERS nError, cMethod, nLine
+		THIS.lhaderror = .T.
+		=MESSAGEBOX(MESSAGE())
+		
+	ENDPROC
+
+	PROCEDURE getkeyvalue		&& Obtains a value from a registry key.
+		* Obtains a value from a registry key
+		* Note: this routine only handles Data strings (REG_SZ)
+		LPARAMETER cValueName,cKeyValue
+		
+		LOCAL lpdwReserved,lpdwType,lpbData,lpcbData,nErrCode
+		STORE 0 TO lpdwReserved,lpdwType
+		STORE SPACE(256) TO lpbData
+		STORE LEN(m.lpbData) TO m.lpcbData
+		
+		DO CASE
+		CASE TYPE("THIS.nCurrentKey")#'N' OR THIS.nCurrentKey = 0
+			RETURN ERROR_BADKEY
+		CASE TYPE("m.cValueName") #"C"
+			RETURN ERROR_BADPARM
+		ENDCASE
+		
+		m.nErrCode=RegQueryValueEx(THIS.nCurrentKey,m.cValueName,;
+				m.lpdwReserved,@lpdwType,@lpbData,@lpcbData)
+		
+		* Check for error 
+		IF m.nErrCode # ERROR_SUCCESS
+			RETURN m.nErrCode
+		ENDIF
+		
+		* Make sure we have a data string data type
+		IF m.lpdwType # REG_SZ AND m.lpdwType # REG_EXPAND_SZ 
+			RETURN ERROR_NONSTR_DATA		
+		ENDIF
+		
+		m.cKeyValue = LEFT(m.lpbData,m.lpcbData-1)
+		*!*	RETURN ERROR_SUCCESS &&intoarce 0
+		RETURN m.cKeyValue
+	ENDPROC
+
+	PROCEDURE getregkey		&& Gets a registry key setting.
+		* This routine gets a registry key setting
+		* ex. THIS.GetRegKey("ResWidth",@cValue,;
+		*		"Software\Microsoft\VisualFoxPro\4.0\Options",;
+		*		HKEY_CURRENT_USER)
+		LPARAMETER cOptName,cOptVal,cKeyPath,nUserKey
+		LOCAL iPos,cOption,nErrNum
+		iPos = 0
+		cOption = ""
+		nErrNum = ERROR_SUCCESS
+		
+		* Open registry key
+		m.nErrNum = THIS.OpenKey(m.cKeyPath,m.nUserKey)
+		IF m.nErrNum # ERROR_SUCCESS
+			RETURN m.nErrNum
+		ENDIF
+		
+		* Get the key value
+		nErrNum = THIS.GetKeyValue(cOptName,@cOptVal)
+		
+		* Close registry key 
+		THIS.CloseKey()		&&close key
+		RETURN m.nErrNum
+		
+	ENDPROC
+
+	PROCEDURE Init
+		LOCAL laTmpDLLs,lnDlls
+		DIMENSION laTmpDLLs[1]
+		THIS.nUserKey = HKEY_CURRENT_USER
+		THIS.cVFPOptPath = VFP_OPTIONS_KEY1 + _VFP.VERSION + VFP_OPTIONS_KEY2
+		DO CASE
+			CASE _DOS OR _UNIX OR _MAC
+				RETURN .F.
+			CASE ATC("Windows 3",OS(1)) # 0
+				THIS.nCurrentOS = OS_W32S
+			CASE ATC("Windows NT",OS(1)) # 0
+				THIS.nCurrentOS = OS_NT
+				THIS.cRegDLLFile = DLL_ADVAPI_NT
+				THIS.cINIDLLFile = DLL_KERNEL_NT	
+				THIS.cODBCDLLFile = DLL_ODBC_NT
+			OTHERWISE
+				* Windows 95
+				THIS.nCurrentOS = OS_WIN95
+				THIS.cRegDLLFile = DLL_ADVAPI_WIN95
+				THIS.cINIDLLFile = DLL_KERNEL_WIN95
+				THIS.cODBCDLLFile = DLL_ODBC_WIN95
+		ENDCASE
+		
+		* Check if DLLs already loaded so we don't unload when done.
+		lnDlls = ADLLS(laTmpDLLs)
+		IF lnDlls > 0
+			IF ASCAN(laTmpDLLs,"RegOpenKey",-1,-1,-1,1)#0
+				THIS.lHasDllLoaded=.T.
+			ENDIF
+		ENDIF
+		
+	ENDPROC
+
+	PROCEDURE iskey		&& Checks to see if a key exists.
+		* Checks to see if a key exists
+		LPARAMETER cKeyName,nRegKey
+		LOCAL nErrNum 
+		* Open extension key		
+		nErrNum = THIS.OpenKey(m.cKeyName,m.nRegKey)
+		IF m.nErrNum  = ERROR_SUCCESS
+			* Close extension key
+			THIS.CloseKey()
+		ENDIF
+		
+		RETURN m.nErrNum = ERROR_SUCCESS
+		
+	ENDPROC
+
+	PROCEDURE loadregfuncs		&& Loads funtions needed for Registry.
+		* Loads funtions needed for Registry
+		LOCAL nHKey,cSubKey,nResult
+		LOCAL hKey,iValue,lpszValue,lpcchValue,lpdwType,lpbData,lpcbData
+		LOCAL lpcStr,lpszVal,nLen,lpdwReserved
+		LOCAL lpszValueName,dwReserved,fdwType
+		LOCAL iSubKey,lpszName,cchName
+		
+		IF THIS.lLoadedDLLs
+			RETURN ERROR_SUCCESS
+		ENDIF
+		
+		DECLARE Integer RegOpenKey IN Win32API ;
+			Integer nHKey, String @cSubKey, Integer @nResult
+		
+		IF THIS.lhaderror && error loading library
+			RETURN -1
+		ENDIF
+		
+		DECLARE Integer RegCreateKey IN Win32API ;
+			Integer nHKey, String @cSubKey, Integer @nResult
+		
+		DECLARE Integer RegDeleteKey IN Win32API ;
+			Integer nHKey, String @cSubKey
+		
+		DECLARE Integer RegDeleteValue IN Win32API ;
+			Integer nHKey, String cSubKey
+		
+		DECLARE Integer RegCloseKey IN Win32API ;
+			Integer nHKey
+		
+		DECLARE Integer RegSetValueEx IN Win32API ;
+			Integer hKey, String lpszValueName, Integer dwReserved,;
+			Integer fdwType, String lpbData, Integer cbData
+		
+		DECLARE Integer RegQueryValueEx IN Win32API ;
+			Integer nHKey, String lpszValueName, Integer dwReserved,;
+			Integer @lpdwType, String @lpbData, Integer @lpcbData
+		
+		DECLARE Integer RegEnumKey IN Win32API ;
+			Integer nHKey,Integer iSubKey, String @lpszName, Integer @cchName
+		
+		DECLARE Integer RegEnumKeyEx IN Win32API ;
+			Integer nHKey,Integer iSubKey, String @lpszName, Integer @cchName,;
+			Integer dwReserved,String @lpszName, Integer @cchName,String @cchName
+		
+		DECLARE Integer RegEnumValue IN Win32API ;
+			Integer hKey, Integer iValue, String @lpszValue, ;
+			Integer @lpcchValue, Integer lpdwReserved, Integer @lpdwType, ;
+			String @lpbData, Integer @lpcbData
+		    		
+		THIS.lLoadedDLLs = .T.
+		
+		* Need error check here
+		RETURN ERROR_SUCCESS
+		
+	ENDPROC
+
+	PROCEDURE openkey		&& Opens a registry key.
+		* Opens a registry key
+		LPARAMETER cLookUpKey,nRegKey,lCreateKey
+		
+		LOCAL nSubKey,nErrCode,nPCount,lSaveCreateKey
+		nSubKey = 0
+		nPCount = PCOUNT()
+		
+		IF TYPE("m.nRegKey") # "N" OR EMPTY(m.nRegKey)
+			m.nRegKey = HKEY_CURRENT_USER
+		ENDIF
+		
+		* Load API functions
+		nErrCode = THIS.LoadRegFuncs()
+		IF m.nErrCode # ERROR_SUCCESS
+			RETURN m.nErrCode
+		ENDIF
+		
+		lSaveCreateKey = THIS.lCreateKey
+		IF m.nPCount>2 AND TYPE("m.lCreateKey") = "L"
+			THIS.lCreateKey = m.lCreateKey
+		ENDIF
+		
+		IF THIS.lCreateKey
+			* Try to open or create registry key
+			nErrCode = RegCreateKey(m.nRegKey,m.cLookUpKey,@nSubKey)
+		ELSE
+			* Try to open registry key
+			nErrCode = RegOpenKey(m.nRegKey,m.cLookUpKey,@nSubKey)
+		ENDIF
+		
+		THIS.lCreateKey = m.lSaveCreateKey
+		
+		IF nErrCode # ERROR_SUCCESS
+			RETURN m.nErrCode
+		ENDIF
+		
+		THIS.nCurrentKey = m.nSubKey
+		RETURN ERROR_SUCCESS
+		
+	ENDPROC
+
+	PROCEDURE setkeyvalue		&& Sets a key value.
+		* This routine sets a key value
+		* Note: this routine only handles data strings (REG_SZ)
+		LPARAMETER cValueName,cValue
+		LOCAL nValueSize,nErrCode 
+		
+		DO CASE
+		CASE TYPE("THIS.nCurrentKey")#'N' OR THIS.nCurrentKey = 0
+			RETURN ERROR_BADKEY
+		CASE TYPE("m.cValueName") #"C" OR TYPE("m.cValue")#"C"
+			RETURN ERROR_BADPARM
+		*!*	CASE EMPTY(m.cValueName)
+		*!*		RETURN ERROR_BADPARM
+		ENDCASE
+		
+		* Make sure we null terminate this guy
+		cValue = m.cValue+CHR(0)
+		nValueSize = LEN(m.cValue)
+		
+		* Set the key value here
+		m.nErrCode = RegSetValueEx(THIS.nCurrentKey,m.cValueName,0,;
+			REG_SZ,m.cValue,m.nValueSize)
+		
+		* Check for error
+		IF m.nErrCode # ERROR_SUCCESS
+			RETURN m.nErrCode
+		ENDIF
+		
+		RETURN ERROR_SUCCESS
+		
+	ENDPROC
+
+	PROCEDURE setregkey		&& Sets a registry key setting.
+		* This routine sets a registry key setting
+		* ex. THIS.SetRegKey("ResWidth","640",;
+		*		"Software\Microsoft\VisualFoxPro\6.0\Options",;
+		*		HKEY_CURRENT_USER)
+		LPARAMETER cOptName,cOptVal,cKeyPath,nUserKey,lCreateKey
+		LOCAL iPos,cOptKey,cOption,nErrNum
+		iPos = 0
+		cOption = ""
+		nErrNum = ERROR_SUCCESS
+		
+		* Open registry key
+		m.nErrNum = THIS.OpenKey(m.cKeyPath,m.nUserKey,m.lCreateKey)
+		IF m.nErrNum # ERROR_SUCCESS
+			RETURN m.nErrNum
+		ENDIF
+		
+		* Set Key value
+		nErrNum = THIS.SetKeyValue(m.cOptName,m.cOptVal)
+		
+		* Close registry key 
+		THIS.CloseKey()		&&close key
+		RETURN m.nErrNum
+		
+	ENDPROC
+
+ENDDEFINE

Clase/Vechi/utile.vc2

@@ -0,0 +1,6 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="utile.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*

Clase/Vechi/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

Clase/ofundal_imob.vc2

@@ -0,0 +1,529 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_imob.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS pg_meniu_princ 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="Page1.Pict_meniu1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Cw2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Cw3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Cw4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Cw5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Pict_liniuta1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Pict_liniuta2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page1.Pict_liniuta3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Cw1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Pict_liniuta1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Cw4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Cw5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Pict_liniuta3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Pict_liniuta4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Cw6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page2.Pict_liniuta2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page3.Pict_meniu1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page3.Cw1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page3.Cw2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page3.Pict_liniuta1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page3.Cw4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page3.Cw3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page3.Cw5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page3.Pict_liniuta4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page3.Pict_liniuta2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page4.Pict_meniu1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page4.Cw1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page4.Cw2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page4.Pict_liniuta2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page4.Cw3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page4.Cw4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Page4.Pict_liniuta3" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		ActivePage = 2
+		ErasePage = .T.
+		Height = 422
+		Name = "pg_meniu_princ"
+		PageCount = 4
+		Width = 575
+		Page1.Caption = "Situa<75>ii analitice"
+		Page1.Name = "Page1"
+		Page2.Caption = "Imobiliz<69>ri corporale"
+		Page2.Name = "Page2"
+		Page3.BackColor = 255,255,255
+		Page3.Caption = "Imobiliz<69>ri necorporale"
+		Page3.FontCharSet = 238
+		Page3.Name = "Page3"
+		Page4.BackColor = 255,255,255
+		Page4.Caption = "Imobiliz<69>ri <20>n curs"
+		Page4.FontCharSet = 238
+		Page4.Name = "Page4"
+	*</PropValue>
+
+	ADD OBJECT 'Page1.Cw2' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw2", ;
+		nid_cw = 1, ;
+		TabIndex = 1, ;
+		Top = 19, ;
+		Label_item1.Caption = "Istoric opera<72>ii", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page1.Cw3' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw3", ;
+		nid_cw = 2, ;
+		TabIndex = 2, ;
+		Top = 55, ;
+		Label_item1.Caption = "Rulaj amortismente", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page1.Cw4' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw4", ;
+		nid_cw = 3, ;
+		TabIndex = 3, ;
+		Top = 80, ;
+		Label_item1.Caption = "Total amortismente", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page1.Cw5' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw5", ;
+		nid_cw = 4, ;
+		TabIndex = 4, ;
+		Top = 114, ;
+		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 = 4, ;
+		Name = "Pict_liniuta1", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 43
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page1.Pict_liniuta2' AS pict_liniuta WITH ;
+		Left = 4, ;
+		Name = "Pict_liniuta2", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 104
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page1.Pict_liniuta3' AS pict_liniuta WITH ;
+		Left = 4, ;
+		Name = "Pict_liniuta3", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 139
+		*< 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="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page2.Cw1' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw1", ;
+		nid_cw = 1, ;
+		TabIndex = 1, ;
+		Top = 18, ;
+		Label_item1.Caption = "Introducere", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page2.Cw2' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw2", ;
+		nid_cw = 2, ;
+		TabIndex = 2, ;
+		Top = 40, ;
+		Visible = .T., ;
+		Width = 180, ;
+		Label_item1.AutoSize = .F., ;
+		Label_item1.Caption = "Preluare din contabilitate", ;
+		Label_item1.Height = 34, ;
+		Label_item1.Left = 5, ;
+		Label_item1.Name = "Label_item1", ;
+		Label_item1.Top = 3, ;
+		Label_item1.Width = 169, ;
+		Label_item1.WordWrap = .T.
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page2.Cw3' AS cw WITH ;
+		Height = 36, ;
+		Left = 5, ;
+		Name = "Cw3", ;
+		nid_cw = 3, ;
+		TabIndex = 3, ;
+		Top = 71, ;
+		Width = 180, ;
+		Label_item1.AutoSize = .F., ;
+		Label_item1.Caption = "Vizualizare amortizare contabil<69>", ;
+		Label_item1.Height = 38, ;
+		Label_item1.Left = 5, ;
+		Label_item1.Name = "Label_item1", ;
+		Label_item1.Top = 3, ;
+		Label_item1.Width = 173, ;
+		Label_item1.WordWrap = .T.
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page2.Cw4' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw4", ;
+		nid_cw = 5, ;
+		TabIndex = 4, ;
+		Top = 194, ;
+		Label_item1.Caption = "Rapoarte", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page2.Cw5' AS cw WITH ;
+		Height = 36, ;
+		Left = 5, ;
+		Name = "Cw5", ;
+		nid_cw = 4, ;
+		TabIndex = 5, ;
+		Top = 110, ;
+		Label_item1.AutoSize = .F., ;
+		Label_item1.Caption = "Vizualizare amortizare fiscal<61>", ;
+		Label_item1.Height = 29, ;
+		Label_item1.Left = 5, ;
+		Label_item1.Name = "Label_item1", ;
+		Label_item1.Top = 3, ;
+		Label_item1.Width = 169, ;
+		Label_item1.WordWrap = .T.
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page2.Cw6' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw6", ;
+		nid_cw = 6, ;
+		TabIndex = 6, ;
+		Top = 158, ;
+		Label_item1.Caption = "Bunuri de capital", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page2.Pict_liniuta1' AS pict_liniuta WITH ;
+		Left = 4, ;
+		Name = "Pict_liniuta1", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 63
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page2.Pict_liniuta2' AS pict_liniuta WITH ;
+		Left = 4, ;
+		Name = "Pict_liniuta2", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 219
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page2.Pict_liniuta3' AS pict_liniuta WITH ;
+		Left = 4, ;
+		Name = "Pict_liniuta3", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 150
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page2.Pict_liniuta4' AS pict_liniuta WITH ;
+		Left = 4, ;
+		Name = "Pict_liniuta4", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 183
+		*< END OBJECT: ClassLib="..\comun\clase\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="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page3.Cw1' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw1", ;
+		nid_cw = 1, ;
+		TabIndex = 1, ;
+		Top = 18, ;
+		Label_item1.Caption = "Introducere", ;
+		Label_item1.Height = 18, ;
+		Label_item1.Left = 5, ;
+		Label_item1.Name = "Label_item1", ;
+		Label_item1.Top = 1, ;
+		Label_item1.Width = 66
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page3.Cw2' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw2", ;
+		nid_cw = 2, ;
+		TabIndex = 2, ;
+		Top = 40, ;
+		Visible = .T., ;
+		Label_item1.AutoSize = .F., ;
+		Label_item1.Caption = "Preluare din contabilitate", ;
+		Label_item1.Height = 37, ;
+		Label_item1.Left = 5, ;
+		Label_item1.Name = "Label_item1", ;
+		Label_item1.Top = 3, ;
+		Label_item1.Width = 170, ;
+		Label_item1.WordWrap = .T.
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page3.Cw3' AS cw WITH ;
+		Height = 36, ;
+		Left = 5, ;
+		Name = "Cw3", ;
+		nid_cw = 3, ;
+		TabIndex = 3, ;
+		Top = 71, ;
+		Label_item1.AutoSize = .F., ;
+		Label_item1.Caption = "Vizualizare amortizare contabil<69>", ;
+		Label_item1.Height = 38, ;
+		Label_item1.Left = 5, ;
+		Label_item1.Name = "Label_item1", ;
+		Label_item1.Top = 3, ;
+		Label_item1.Width = 169, ;
+		Label_item1.WordWrap = .T.
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page3.Cw4' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw4", ;
+		nid_cw = 5, ;
+		TabIndex = 5, ;
+		Top = 159, ;
+		Label_item1.Caption = "Rapoarte", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page3.Cw5' AS cw WITH ;
+		Height = 36, ;
+		Left = 5, ;
+		Name = "Cw5", ;
+		nid_cw = 4, ;
+		TabIndex = 4, ;
+		Top = 110, ;
+		Label_item1.AutoSize = .F., ;
+		Label_item1.Caption = "Vizualizare amortizare fiscal<61>", ;
+		Label_item1.Height = 29, ;
+		Label_item1.Left = 5, ;
+		Label_item1.Name = "Label_item1", ;
+		Label_item1.Top = 3, ;
+		Label_item1.Width = 169, ;
+		Label_item1.WordWrap = .T.
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page3.Pict_liniuta1' AS pict_liniuta WITH ;
+		Left = 4, ;
+		Name = "Pict_liniuta1", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 63
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page3.Pict_liniuta2' AS pict_liniuta WITH ;
+		Left = 4, ;
+		Name = "Pict_liniuta2", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 185
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page3.Pict_liniuta4' AS pict_liniuta WITH ;
+		Left = 4, ;
+		Name = "Pict_liniuta4", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 150
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page3.Pict_meniu1' AS pict_meniu WITH ;
+		Left = 2, ;
+		Name = "Pict_meniu1", ;
+		Picture = ..\grafice\f2.jpg, ;
+		Top = 8
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page4.Cw1' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw1", ;
+		nid_cw = 1, ;
+		TabIndex = 1, ;
+		Top = 18, ;
+		Label_item1.Caption = "Introducere", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page4.Cw2' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw2", ;
+		nid_cw = 2, ;
+		TabIndex = 2, ;
+		Top = 40, ;
+		Visible = .T., ;
+		Label_item1.AutoSize = .F., ;
+		Label_item1.Caption = "Preluare din contabilitate", ;
+		Label_item1.Height = 37, ;
+		Label_item1.Left = 5, ;
+		Label_item1.Name = "Label_item1", ;
+		Label_item1.Top = 3, ;
+		Label_item1.Width = 173, ;
+		Label_item1.WordWrap = .T.
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page4.Cw3' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw3", ;
+		nid_cw = 3, ;
+		TabIndex = 3, ;
+		Top = 71, ;
+		Label_item1.Caption = "Vizualizare", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page4.Cw4' AS cw WITH ;
+		Left = 5, ;
+		Name = "Cw4", ;
+		nid_cw = 5, ;
+		TabIndex = 4, ;
+		Top = 104, ;
+		Label_item1.Caption = "Rapoarte", ;
+		Label_item1.Name = "Label_item1"
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Page4.Pict_liniuta2' AS pict_liniuta WITH ;
+		Left = 4, ;
+		Name = "Pict_liniuta2", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 63
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page4.Pict_liniuta3' AS pict_liniuta WITH ;
+		Left = 4, ;
+		Name = "Pict_liniuta3", ;
+		Picture = ..\grafice\f3.jpg, ;
+		Top = 93
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Page4.Pict_meniu1' AS pict_meniu WITH ;
+		Left = 2, ;
+		Name = "Pict_meniu1", ;
+		Picture = ..\grafice\f2.jpg, ;
+		Top = 8
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+	
+	PROCEDURE Page1.Cw2.do_actiune
+		DO viz_jurnal IN oproceduri_imob
+	ENDPROC
+
+	PROCEDURE Page1.Cw3.do_actiune
+		Local lnFiscala, lnOptiune
+		*:Global felul
+		felul="' '"
+		lnOptiune = xmenu('Amortizare \<contabila;Amortizare \<fiscala')
+		IF EMPTY(m.lnOptiune)
+			RETURN
+		ENDIF 
+		lnFiscala = IIF(m.lnOptiune = 1, 0, 1)
+		DO rulaj_amortizment WITH m.lnFiscala
+	ENDPROC
+
+	PROCEDURE Page1.Cw4.do_actiune
+		Local lnFiscala, lnOptiune
+		*:Global felul
+		felul="' '"
+		lnOptiune = xmenu('Amortizare \<contabila;Amortizare \<fiscala')
+		IF EMPTY(m.lnOptiune)
+			RETURN
+		ENDIF 
+		lnFiscala = IIF(m.lnOptiune = 1, 0, 1)
+		DO total_amortizment WITH m.lnFiscala
+	ENDPROC
+
+	PROCEDURE Page1.Cw5.do_actiune
+		felul="' ','N'"
+		DO sitana.mpr
+	ENDPROC
+
+	PROCEDURE Page2.Cw1.do_actiune
+		DO introducere_imob_corp IN oproceduri_imob.prg
+	ENDPROC
+
+	PROCEDURE Page2.Cw2.do_actiune
+		Do preluare_imob with 1 in oproceduri_imob.prg
+	ENDPROC
+
+	PROCEDURE Page2.Cw3.do_actiune
+		Local lnFiscal
+		lnFiscal = 0
+		Do vizualizare_lista_imob_corp With m.lnFiscal In oproceduri_imob.prg
+		
+	ENDPROC
+
+	PROCEDURE Page2.Cw4.do_actiune
+		DO listcorp.mpr
+	ENDPROC
+
+	PROCEDURE Page2.Cw5.do_actiune
+		Local lnFiscal
+		lnFiscal = 1
+		Do vizualizare_lista_imob_corp With m.lnFiscal In oproceduri_imob.prg
+		
+	ENDPROC
+
+	PROCEDURE Page2.Cw6.do_actiune
+		DO viz_bunuri_capital IN oproceduri_imob.prg
+	ENDPROC
+
+	PROCEDURE Page3.Cw1.do_actiune
+		DO introducere_imob_necorp IN oproceduri_imob.prg
+	ENDPROC
+
+	PROCEDURE Page3.Cw2.do_actiune
+		Do preluare_imob with 2 in oproceduri_imob.prg
+	ENDPROC
+
+	PROCEDURE Page3.Cw3.do_actiune
+		Local lnFiscal
+		lnFiscal = 0
+		Do vizualizare_lista_imob_necorp With m.lnFiscal In oproceduri_imob.prg
+	ENDPROC
+
+	PROCEDURE Page3.Cw4.do_actiune
+		DO listnecorp.mpr
+	ENDPROC
+
+	PROCEDURE Page3.Cw5.do_actiune
+		Local lnFiscal
+		lnFiscal = 1
+		Do vizualizare_lista_imob_necorp With m.lnFiscal In oproceduri_imob.prg
+	ENDPROC
+
+	PROCEDURE Page4.Cw1.do_actiune
+		DO introducere_imob_in_curs IN oproceduri_imob.prg
+	ENDPROC
+
+	PROCEDURE Page4.Cw2.do_actiune
+		Do preluare_imob with 3 in oproceduri_imob.prg
+	ENDPROC
+
+	PROCEDURE Page4.Cw3.do_actiune
+		DO vizualizare_lista_imob_in_curs IN oproceduri_imob.prg
+	ENDPROC
+
+	PROCEDURE Page4.Cw4.do_actiune
+		DO listincurs.mpr
+		
+	ENDPROC
+
+ENDDEFINE

Clase/onom_imob.vc2

@@ -0,0 +1,202 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="onom_imob.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS frm_norme 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="ole_grupe" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Clb_dns_an" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Clb_dns_luni" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="_oleimagelist1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*p: ccod_mf
+		*p: nnorma_max
+		*p: nnorma_maxl
+		*p: nnorma_min
+		*p: nnorma_minl
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		ccod_mf = 
+		DoCreate = .T.
+		Height = 457
+		Name = "frm_norme"
+		nnorma_max = 0
+		nnorma_maxl = 0
+		nnorma_min = 0
+		nnorma_minl = 0
+		Width = 684
+		WindowState = 2
+		_shape1.Anchor = 10
+		_shape1.Height = 29
+		_shape1.Left = 0
+		_shape1.Name = "_shape1"
+		_shape1.Top = 0
+		_shape1.Width = 684
+		_shape2.Anchor = 9
+		_shape2.Height = 29
+		_shape2.Left = 612
+		_shape2.Name = "_shape2"
+		_shape2.Top = 0
+		_shape2.Width = 72
+		Lb_titlu_alb_b121.Caption = "CATALOG GRUPE DE AMORTIZARE"
+		Lb_titlu_alb_b121.FontBold = .T.
+		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
+		Lb_titlu_alb_b121.TabIndex = 3
+		BUT_TERMIN1.Anchor = 9
+		BUT_TERMIN1.Left = 650
+		BUT_TERMIN1.Name = "BUT_TERMIN1"
+		BUT_TERMIN1.TabIndex = 2
+		BUT_TERMIN1.Top = 1
+		Gridsort1.Name = "Gridsort1"
+	*</PropValue>
+
+	ADD OBJECT '_oleimagelist1' AS _oleimagelist WITH ;
+		Height = 38, ;
+		Left = 600, ;
+		Name = "_oleimagelist1", ;
+		Top = 36, ;
+		Width = 38
+		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAyi2NmNsgBAwAAAEABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAD0AAAAAAAAABAAAAAIAAAD+/////v////7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////8jfyQskYXREbFqAMDwKDYoIUM0EggAAADtAwAA7QMAAIB+4eYAAAYAIAAAAAAAAADAwMAA//8AAAHvzasAAAUAXAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAACQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RS04NUZFLTExZDEtOEJFMy0wMDAwRjg3NTREQTFEAEEAOABEADgARgAtADkARAA2AEEALQAxADAAMQBCAC0AQQABAACADAAAAEltYWdlSGVpZ2h0AAkAAABJCgAAAAAAAAALAAAASW1hZ2VXaWR0aAAJAAAASQoAAAAAAAAAAHMAmLseAAYAAAD/////BQAAgAAAAAAAAAAAAAAAAC4AbwBjAHgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
+
+	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
+		Anchor = 9, ;
+		Left = 618, ;
+		Name = "But_renunt1", ;
+		Top = 1
+		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'Clb_dns_an' AS clb_nr_intre WITH ;
+		Anchor = 12, ;
+		Left = 83, ;
+		Name = "Clb_dns_an", ;
+		TabIndex = 4, ;
+		TabStop = .F., ;
+		Top = 408, ;
+		tx_n1.ControlSource = "thisform.nnorma_min", ;
+		tx_n1.FontBold = .T., ;
+		tx_n1.Name = "tx_n1", ;
+		tx_n1.ReadOnly = .T., ;
+		Lb_simplu1.Caption = "D.N.S. (ani)", ;
+		Lb_simplu1.Name = "Lb_simplu1", ;
+		tx_n2.ControlSource = "thisform.nnorma_max", ;
+		tx_n2.FontBold = .T., ;
+		tx_n2.Name = "tx_n2", ;
+		tx_n2.ReadOnly = .T.
+		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Clb_dns_luni' AS clb_nr_intre WITH ;
+		Anchor = 12, ;
+		Left = 372, ;
+		Name = "Clb_dns_luni", ;
+		TabIndex = 4, ;
+		TabStop = .F., ;
+		Top = 408, ;
+		tx_n1.ControlSource = "thisform.nnorma_minl", ;
+		tx_n1.FontBold = .T., ;
+		tx_n1.Name = "tx_n1", ;
+		tx_n1.ReadOnly = .T., ;
+		Lb_simplu1.Caption = "D.N.S. (luni)", ;
+		Lb_simplu1.Name = "Lb_simplu1", ;
+		tx_n2.ControlSource = "thisform.nnorma_maxl", ;
+		tx_n2.FontBold = .T., ;
+		tx_n2.Name = "tx_n2", ;
+		tx_n2.ReadOnly = .T.
+		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
+
+	ADD OBJECT 'ole_grupe' AS _olecontrol WITH ;
+		Anchor = 15, ;
+		Height = 348, ;
+		Left = 26, ;
+		Name = "ole_grupe", ;
+		TabIndex = 1, ;
+		Top = 48, ;
+		Width = 633
+		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAyi2NmNsgBAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAagAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAO4AAAAAAAAABAAAAAIAAAD+////BQAAAP7///8GAAAABwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+2kEHHiYXREbFqAMDwKDYoIUM0EggAAABsQQAA+CMAALE8wWoBAAYAIgAAAJwAAADtAwAACAAAAMlSHgAB782rXAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAACQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RS04NUZFLTExZDEtOEJFMy0wMDAwRjg3NTREQTFmAHQAIABXAGkAbgBkAG8AdwBzACAAUgBlAHAAbwByAHQAIAABAACADgAAAEhpZGVTZWxlY3Rpb24ABQAAAEwBAAAADAAAAEluZGVudGF0aW9uABEAAABODQAAAAcAAAAAAAAAAAAFAJhUHgAGAAAAAAAAAAUAAIDk6RIAAQAAAC4AH97svQEABQAo6hIATgBUAFwAUwB5AHMAdABlAG0AMwAyAAAAQ0AKAAAATGluZVN0eWxlAAkAAABJCgAAAAAAAAANAAAATW91c2VQb2ludGVyAAkAAABJCgAAAAAAAAAOAAAAUGF0aFNlcGFyYXRvcgAKAAAASAAAAAABAAAALgYAAABTdHlsZQAJAAAASQoAAAAHAAAADAAAAE9MRURyYWdNb2RlAAkAAABJCgAAAAAAAAAMAAAAT0xFRHJvcE1vZGUACQAAAEkKAAAAAAAAABYAAAAAAAkEAAAAAAAAAAAAAA==" />
+	
+	PROCEDURE Destroy
+		If Used('v_norme')
+			Use In v_norme
+		Endif
+	ENDPROC
+
+	PROCEDURE inainte_de_do_termin
+		If Thisform.nnorma_min=0 And Thisform.nnorma_max=0
+			aMessagebox("Nu ati ales codul!",0+48,"Atentie")
+			Thisform.ole_grupe.SetFocus()
+			plreturn=.F.
+		Else
+			pnnorma_max=Thisform.nnorma_max
+			pnnorma_min=Thisform.nnorma_min
+			pccod_mf=Thisform.ccod_mf
+			plreturn=.T.
+		Endif
+		Return plreturn
+		
+	ENDPROC
+
+	PROCEDURE Init
+		Dimension a(10)
+		Select v_norme
+		With Thisform.ole_grupe.Nodes
+			Scan
+				a(nivel)=Alltrim(cod_mf)
+				lcCheie=Chr(64+nivel)+Alltrim(cod_mf)
+		&&		lcNorma=Iif(norma_min+norma_max<>0," "+Alltrim(Str(norma_min))+" - "+Alltrim(Str(norma_max))+" ani",'')
+				lcNorma=""
+				lcText=Alltrim(explicatia)+lcNorma
+				If nivel=1
+					.Add(,,lcCheie,lcText)				&&	1
+				Else
+					lcText=Alltrim(cod_mf)+" "+lcText
+					lcCod=Chr(64+nivel-1)+a(nivel-1)
+					If frunza=1
+						.Add(lcCod,4,lcCheie,lcText)	&&	2
+					Else
+						.Add(lcCod,4,lcCheie,lcText)	&&	1
+					Endif
+				Endif
+			Endscan
+		Endwith
+	ENDPROC
+
+	PROCEDURE Clb_dns_an.tx_n1.Valid
+		*
+	ENDPROC
+
+	PROCEDURE Clb_dns_an.tx_n2.Valid
+		*
+	ENDPROC
+
+	PROCEDURE Clb_dns_luni.tx_n1.Valid
+		*
+	ENDPROC
+
+	PROCEDURE Clb_dns_luni.tx_n2.Valid
+		*
+	ENDPROC
+
+	PROCEDURE ole_grupe.NodeClick
+		*** ActiveX Control Event ***
+		Lparameters Node
+		lcCheie=Substr(Node.Key,2)
+		Select v_norme
+		Locate For cod_mf=lcCheie
+		If Found()
+			Thisform.ccod_mf=cod_mf
+			Thisform.nnorma_min=norma_min
+			Thisform.nnorma_max=norma_max
+			Thisform.clb_dns_an.Refresh()
+			Thisform.nnorma_minl=norma_min*12
+			Thisform.nnorma_maxl=norma_max*12
+			Thisform.clb_dns_luni.Refresh()
+		Endif
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/FISA.sc2

@@ -0,0 +1,596 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="fisa.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 "..\..\contab\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="Shape2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text13" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		DoCreate = .T.
+		Height = 440
+		Name = "Ffergen1"
+		Width = 387
+		Line1.Name = "Line1"
+	*</PropValue>
+
+	ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
+		Left = 49, ;
+		Name = "Cmdlist1", ;
+		Top = 403
+		*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
+		Left = 157, ;
+		Name = "CMDRENUNT1", ;
+		Top = 403
+		*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
+		Left = 253, ;
+		Name = "CMDTERMIN1", ;
+		Top = 403
+		*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'Label11' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Durata de amortizare", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label11", ;
+		TabIndex = 4, ;
+		Top = 236, ;
+		Width = 123, ;
+		ZOrderSet = 22
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label12' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Uzura", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label12", ;
+		TabIndex = 6, ;
+		Top = 259, ;
+		Width = 36, ;
+		ZOrderSet = 24
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label13' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Tip de amortizare", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label13", ;
+		TabIndex = 8, ;
+		Top = 284, ;
+		Width = 102, ;
+		ZOrderSet = 26
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label14' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Gestiunea", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label14", ;
+		TabIndex = 10, ;
+		Top = 308, ;
+		Width = 61, ;
+		ZOrderSet = 28
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label15' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Responsabil", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label15", ;
+		TabIndex = 12, ;
+		Top = 333, ;
+		Width = 73, ;
+		ZOrderSet = 30
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label16' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Caracteristici", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 31, ;
+		Name = "Label16", ;
+		TabIndex = 14, ;
+		Top = 357, ;
+		Width = 78, ;
+		ZOrderSet = 32
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label17' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Nr. inventar", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label17", ;
+		TabIndex = 17, ;
+		Top = 212, ;
+		Width = 67, ;
+		ZOrderSet = 20
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Fisa mijlocului fix", ;
+		FontBold = .F., ;
+		FontName = "BankGothic Md BT", ;
+		FontShadow = .F., ;
+		FontSize = 12, ;
+		ForeColor = 0,0,0, ;
+		Height = 19, ;
+		Left = 28, ;
+		Name = "Label2", ;
+		TabIndex = 5, ;
+		Top = 11, ;
+		Width = 167, ;
+		ZOrderSet = 6
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label3' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Nr. document achizitie", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label3", ;
+		TabIndex = 7, ;
+		Top = 42, ;
+		Width = 132, ;
+		ZOrderSet = 8
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label4' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Data document achizitie", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label4", ;
+		TabIndex = 9, ;
+		Top = 67, ;
+		Width = 142, ;
+		ZOrderSet = 10
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label5' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Denumire ", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label5", ;
+		TabIndex = 11, ;
+		Top = 91, ;
+		Width = 61, ;
+		ZOrderSet = 12
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label6' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Valoare de achizitie", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label6", ;
+		TabIndex = 13, ;
+		Top = 116, ;
+		Width = 116, ;
+		ZOrderSet = 14
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label7' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Data punerii in functiune", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label7", ;
+		TabIndex = 15, ;
+		Top = 140, ;
+		Width = 141, ;
+		ZOrderSet = 16
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label8' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Nr. p.i.f.", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label8", ;
+		TabIndex = 16, ;
+		Top = 165, ;
+		Width = 48, ;
+		ZOrderSet = 18
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label9' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Cod", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 30, ;
+		Name = "Label9", ;
+		TabIndex = 18, ;
+		Top = 189, ;
+		Width = 25, ;
+		ZOrderSet = 20
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Shape2' AS shape WITH ;
+		Height = 372, ;
+		Left = 12, ;
+		Name = "Shape2", ;
+		SpecialEffect = 0, ;
+		Top = 17, ;
+		Width = 360, ;
+		ZOrderSet = 5
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		Alignment = 3, ;
+		BorderStyle = 1, ;
+		ControlSource = "m.nract", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text1", ;
+		ReadOnly = .F., ;
+		TabIndex = 20, ;
+		Top = 40, ;
+		Width = 180, ;
+		ZOrderSet = 7
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text10' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.tipamort", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text10", ;
+		ReadOnly = .F., ;
+		TabIndex = 30, ;
+		Top = 282, ;
+		Width = 180, ;
+		ZOrderSet = 25
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text11' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.NUMEgest", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text11", ;
+		ReadOnly = .F., ;
+		TabIndex = 31, ;
+		Top = 306, ;
+		Width = 180, ;
+		ZOrderSet = 27
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text12' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.respons", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text12", ;
+		ReadOnly = .F., ;
+		TabIndex = 32, ;
+		Top = 331, ;
+		Width = 180, ;
+		ZOrderSet = 29
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text13' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.caract", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text13", ;
+		ReadOnly = .F., ;
+		TabIndex = 33, ;
+		Top = 355, ;
+		Width = 180, ;
+		ZOrderSet = 31
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text14' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.nrinv", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text14", ;
+		ReadOnly = .F., ;
+		TabIndex = 27, ;
+		Top = 210, ;
+		Width = 180, ;
+		ZOrderSet = 19
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		Alignment = 3, ;
+		BorderStyle = 1, ;
+		ControlSource = "m.dataact", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text2", ;
+		ReadOnly = .F., ;
+		TabIndex = 21, ;
+		Top = 65, ;
+		Width = 180, ;
+		ZOrderSet = 9
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text3' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.denumire", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text3", ;
+		ReadOnly = .F., ;
+		TabIndex = 22, ;
+		Top = 89, ;
+		Width = 180, ;
+		ZOrderSet = 11
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text4' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.valoare", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text4", ;
+		ReadOnly = .F., ;
+		TabIndex = 23, ;
+		Top = 114, ;
+		Width = 180, ;
+		ZOrderSet = 13
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text5' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.datapif", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text5", ;
+		ReadOnly = .F., ;
+		TabIndex = 24, ;
+		Top = 138, ;
+		Width = 180, ;
+		ZOrderSet = 15
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text6' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.nrpif", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text6", ;
+		ReadOnly = .F., ;
+		TabIndex = 25, ;
+		Top = 163, ;
+		Width = 180, ;
+		ZOrderSet = 17
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text7' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.codmf", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text7", ;
+		ReadOnly = .F., ;
+		TabIndex = 26, ;
+		Top = 187, ;
+		Width = 180, ;
+		ZOrderSet = 19
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text8' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.normat", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text8", ;
+		ReadOnly = .F., ;
+		TabIndex = 28, ;
+		Top = 234, ;
+		Width = 180, ;
+		ZOrderSet = 21
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text9' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.uzura", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 172, ;
+		Name = "Text9", ;
+		ReadOnly = .F., ;
+		TabIndex = 29, ;
+		Top = 257, ;
+		Width = 180, ;
+		ZOrderSet = 23
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE Text11.GotFocus
+		thisform.cmdtermin1.enabled=.f.
+		thisform.cmdrenunt1.enabled=.f.
+		thisform.cmdlist1.enabled=.f.
+		DO CAUT_ALF WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST'
+		thisform.cmdtermin1.enabled=.t.
+		thisform.cmdrenunt1.enabled=.t.
+		thisform.cmdlist1.enabled=.t.
+		SELE NUMEGEST
+		LOCATE FOR NUMEGEST=M.NUMEGEST
+		SCATTER MEMVAR
+	ENDPROC
+
+	PROCEDURE Text12.GotFocus
+		thisform.cmdtermin1.enabled=.f.
+		thisform.cmdrenunt1.enabled=.f.
+		thisform.cmdlist1.enabled=.f.
+		DO CAUT_ALF WITH "respons","nume_2",'NUMELE RESPONSABILULUI','M.NUME_2'
+		thisform.cmdtermin1.enabled=.t.
+		thisform.cmdrenunt1.enabled=.t.
+		thisform.cmdlist1.enabled=.t.
+		M.RESPONS=M.NUME_2
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/FUNDALMF.sc2

@@ -0,0 +1,44 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="fundalmf.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 "..\..\contab\clase\ferestrebaza.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<PropValue>
+		AutoCenter = .T.
+		DoCreate = .T.
+		Height = 593
+		Name = "Ffergen1"
+		Picture = ..\..\contab\grafice\pozafundal.bmp
+		Visible = .F.
+		Width = 793
+		WindowState = 2
+		WindowType = 0
+		Line1.Name = "Line1"
+	*</PropValue>
+	
+	PROCEDURE Activate
+		DO MFIX2000.MPR
+		do totvMF
+		
+	ENDPROC
+
+	PROCEDURE Init
+		public v
+		v=''
+		
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/INTROD.sc2

@@ -0,0 +1,858 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="introd.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="Label18" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column4.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text14" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text13" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cmdlist1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text16" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text17" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		DoCreate = .T.
+		Height = 480
+		Name = "Ffergen1"
+		Width = 721
+		WindowState = 0
+		Line1.Left = 0
+		Line1.Name = "Line1"
+		Line1.Top = 472
+		Line1.ZOrderSet = 1
+	*</PropValue>
+
+	ADD OBJECT 'Cmdlist1' AS cmdlist WITH ;
+		Enabled = .F., ;
+		Left = 408, ;
+		Name = "Cmdlist1", ;
+		TabIndex = 36, ;
+		Top = 435, ;
+		Width = 90
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
+		Left = 505, ;
+		Name = "CMDRENUNT1", ;
+		TabIndex = 35, ;
+		Top = 435, ;
+		Width = 90
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
+		Left = 600, ;
+		Name = "CMDTERMIN1", ;
+		TabIndex = 34, ;
+		Top = 435, ;
+		Width = 90, ;
+		ZOrderSet = 34
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'Grid1' AS grid WITH ;
+		BackColor = 192,192,192, ;
+		ColumnCount = 4, ;
+		DeleteMark = .F., ;
+		FontName = "Arial Narrow", ;
+		GridLines = 0, ;
+		Height = 336, ;
+		Left = 24, ;
+		Name = "Grid1", ;
+		Panel = 1, ;
+		ReadOnly = .T., ;
+		RecordSource = "actcs", ;
+		TabIndex = 19, ;
+		Top = 69, ;
+		View = 0, ;
+		Width = 300, ;
+		ZOrderSet = 4, ;
+		Column1.BackColor = 192,192,192, ;
+		Column1.ControlSource = "nract", ;
+		Column1.FontName = "Arial Narrow", ;
+		Column1.Name = "Column1", ;
+		Column1.ReadOnly = .T., ;
+		Column1.Width = 59, ;
+		Column2.BackColor = 192,192,192, ;
+		Column2.ControlSource = "dataact", ;
+		Column2.FontName = "Arial Narrow", ;
+		Column2.Name = "Column2", ;
+		Column2.ReadOnly = .T., ;
+		Column2.Width = 61, ;
+		Column3.BackColor = 192,192,192, ;
+		Column3.ColumnOrder = 4, ;
+		Column3.ControlSource = "nume", ;
+		Column3.FontName = "Arial Narrow", ;
+		Column3.Name = "Column3", ;
+		Column3.ReadOnly = .T., ;
+		Column3.Width = 123, ;
+		Column4.BackColor = 192,192,192, ;
+		Column4.ColumnOrder = 3, ;
+		Column4.ControlSource = "explicatia", ;
+		Column4.FontName = "Arial Narrow", ;
+		Column4.Name = "Column4", ;
+		Column4.ReadOnly = .T., ;
+		Column4.Width = 148
+		*< END OBJECT: BaseClass="grid" />
+
+	ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
+		Caption = "Nr.Act", ;
+		FontName = "Arial Narrow", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
+		BackColor = 192,192,192, ;
+		BorderStyle = 0, ;
+		FontName = "Arial Narrow", ;
+		ForeColor = 0,0,0, ;
+		Margin = 0, ;
+		Name = "Text1", ;
+		ReadOnly = .T.
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
+		Caption = "Data", ;
+		FontName = "Arial Narrow", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
+		BackColor = 192,192,192, ;
+		BorderStyle = 0, ;
+		FontName = "Arial Narrow", ;
+		ForeColor = 0,0,0, ;
+		Margin = 0, ;
+		Name = "Text1", ;
+		ReadOnly = .T.
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
+		Caption = "Furnizor", ;
+		FontName = "Arial Narrow", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
+		BackColor = 192,192,192, ;
+		BorderStyle = 0, ;
+		FontName = "Arial Narrow", ;
+		ForeColor = 0,0,0, ;
+		Margin = 0, ;
+		Name = "Text1", ;
+		ReadOnly = .T.
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Grid1.Column4.Header1' AS header WITH ;
+		Caption = "Explicatia", ;
+		FontName = "Arial Narrow", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
+		BackColor = 192,192,192, ;
+		BorderStyle = 0, ;
+		FontName = "Arial Narrow", ;
+		ForeColor = 0,0,0, ;
+		Margin = 0, ;
+		Name = "Text1"
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Lista documentelor de achizitie", ;
+		FontBold = .F., ;
+		FontName = "BankGothic Md BT", ;
+		FontShadow = .F., ;
+		FontSize = 12, ;
+		ForeColor = 0,0,0, ;
+		Height = 19, ;
+		Left = 24, ;
+		Name = "Label1", ;
+		TabIndex = 3, ;
+		Top = 39, ;
+		Width = 287, ;
+		ZOrderSet = 3
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label10' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "INTRODUCERE MIJLOACE FIXE in luna", ;
+		FontBold = .T., ;
+		FontName = "BankGothic Md BT", ;
+		FontShadow = .F., ;
+		FontSize = 12, ;
+		ForeColor = 255,255,255, ;
+		Height = 19, ;
+		Left = 11, ;
+		Name = "Label10", ;
+		TabIndex = 2, ;
+		Top = 8, ;
+		Width = 386, ;
+		ZOrderSet = 2
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label11' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Durata de amortizare", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label11", ;
+		TabIndex = 4, ;
+		Top = 264, ;
+		Width = 123, ;
+		ZOrderSet = 22
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label12' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Uzura", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label12", ;
+		TabIndex = 6, ;
+		Top = 287, ;
+		Width = 36, ;
+		ZOrderSet = 24
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label13' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Tip de amortizare", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label13", ;
+		TabIndex = 8, ;
+		Top = 312, ;
+		Width = 102, ;
+		ZOrderSet = 26
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label14' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Gestiunea", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label14", ;
+		TabIndex = 10, ;
+		Top = 336, ;
+		Width = 61, ;
+		ZOrderSet = 28
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label15' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Responsabil", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label15", ;
+		TabIndex = 12, ;
+		Top = 361, ;
+		Width = 73, ;
+		ZOrderSet = 30
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label16' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Caracteristici", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 367, ;
+		Name = "Label16", ;
+		TabIndex = 14, ;
+		Top = 385, ;
+		Width = 78, ;
+		ZOrderSet = 32
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label17' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Nr. inventar", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label17", ;
+		TabIndex = 17, ;
+		Top = 240, ;
+		Width = 67, ;
+		ZOrderSet = 20
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label18' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "", ;
+		FontBold = .T., ;
+		FontName = "BankGothic Md BT", ;
+		FontShadow = .F., ;
+		FontSize = 12, ;
+		ForeColor = 255,255,255, ;
+		Height = 19, ;
+		Left = 19, ;
+		Name = "Label18", ;
+		TabIndex = 1, ;
+		Top = 15, ;
+		Width = 2, ;
+		ZOrderSet = 2
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Fisa mijlocului fix", ;
+		FontBold = .F., ;
+		FontName = "BankGothic Md BT", ;
+		FontShadow = .F., ;
+		FontSize = 12, ;
+		ForeColor = 0,0,0, ;
+		Height = 19, ;
+		Left = 364, ;
+		Name = "Label2", ;
+		TabIndex = 5, ;
+		Top = 39, ;
+		Width = 167, ;
+		ZOrderSet = 6
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label3' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Nr. document achizitie", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label3", ;
+		TabIndex = 7, ;
+		Top = 70, ;
+		Width = 132, ;
+		ZOrderSet = 8
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label4' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Data document achizitie", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label4", ;
+		TabIndex = 9, ;
+		Top = 95, ;
+		Width = 142, ;
+		ZOrderSet = 10
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label5' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Denumire ", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label5", ;
+		TabIndex = 11, ;
+		Top = 119, ;
+		Width = 61, ;
+		ZOrderSet = 12
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label6' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Valoare de achizitie", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label6", ;
+		TabIndex = 13, ;
+		Top = 144, ;
+		Width = 116, ;
+		ZOrderSet = 14
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label7' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Data punerii in functiune", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label7", ;
+		TabIndex = 15, ;
+		Top = 168, ;
+		Width = 141, ;
+		ZOrderSet = 16
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label8' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Nr. p.i.f.", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label8", ;
+		TabIndex = 16, ;
+		Top = 193, ;
+		Width = 48, ;
+		ZOrderSet = 18
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label9' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "Cod", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 366, ;
+		Name = "Label9", ;
+		TabIndex = 18, ;
+		Top = 217, ;
+		Width = 25, ;
+		ZOrderSet = 20
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Shape1' AS shape WITH ;
+		Height = 372, ;
+		Left = 12, ;
+		Name = "Shape1", ;
+		SpecialEffect = 0, ;
+		Top = 45, ;
+		Width = 324, ;
+		ZOrderSet = 0
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Shape2' AS shape WITH ;
+		Height = 372, ;
+		Left = 348, ;
+		Name = "Shape2", ;
+		SpecialEffect = 0, ;
+		Top = 45, ;
+		Width = 360, ;
+		ZOrderSet = 5
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Shape3' AS shape WITH ;
+		Height = 48, ;
+		Left = 12, ;
+		Name = "Shape3", ;
+		SpecialEffect = 0, ;
+		Top = 424, ;
+		Width = 696, ;
+		ZOrderSet = 33
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		Alignment = 3, ;
+		BorderStyle = 1, ;
+		ControlSource = "m.nract", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text1", ;
+		ReadOnly = .T., ;
+		TabIndex = 20, ;
+		Top = 68, ;
+		Width = 180, ;
+		ZOrderSet = 7
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text10' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.tipamort", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text10", ;
+		TabIndex = 30, ;
+		Top = 310, ;
+		Width = 180, ;
+		ZOrderSet = 25
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text11' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.NUMEgest", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text11", ;
+		ReadOnly = .T., ;
+		TabIndex = 31, ;
+		Top = 334, ;
+		Width = 180, ;
+		ZOrderSet = 27
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text12' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.respons", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text12", ;
+		ReadOnly = .T., ;
+		TabIndex = 32, ;
+		Top = 359, ;
+		Width = 180, ;
+		ZOrderSet = 29
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text13' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.caract", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text13", ;
+		TabIndex = 33, ;
+		Top = 383, ;
+		Width = 180, ;
+		ZOrderSet = 31
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text14' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.nrinv", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text14", ;
+		TabIndex = 27, ;
+		Top = 238, ;
+		Width = 180, ;
+		ZOrderSet = 19
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text16' AS textbox WITH ;
+		BorderStyle = 0, ;
+		ControlSource = "m.nl", ;
+		FontBold = .T., ;
+		FontName = "BankGothic Md BT", ;
+		FontSize = 12, ;
+		ForeColor = 255,255,255, ;
+		Height = 23, ;
+		Left = 404, ;
+		Name = "Text16", ;
+		ReadOnly = .T., ;
+		TabIndex = 37, ;
+		Top = 6, ;
+		Width = 36
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text17' AS textbox WITH ;
+		Alignment = 0, ;
+		BorderStyle = 0, ;
+		ControlSource = "m.an", ;
+		FontBold = .T., ;
+		FontName = "BankGothic Md BT", ;
+		FontSize = 12, ;
+		ForeColor = 255,255,255, ;
+		Height = 23, ;
+		Left = 446, ;
+		Name = "Text17", ;
+		ReadOnly = .T., ;
+		TabIndex = 38, ;
+		Top = 6, ;
+		Width = 80
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		Alignment = 3, ;
+		BorderStyle = 1, ;
+		ControlSource = "m.dataact", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text2", ;
+		ReadOnly = .T., ;
+		TabIndex = 21, ;
+		Top = 93, ;
+		Width = 180, ;
+		ZOrderSet = 9
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text3' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.denumire", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text3", ;
+		TabIndex = 22, ;
+		Top = 117, ;
+		Width = 180, ;
+		ZOrderSet = 11
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text4' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.valoare", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text4", ;
+		TabIndex = 23, ;
+		Top = 142, ;
+		Width = 180, ;
+		ZOrderSet = 13
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text5' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.datapif", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text5", ;
+		TabIndex = 24, ;
+		Top = 166, ;
+		Width = 180, ;
+		ZOrderSet = 15
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text6' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.nrpif", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text6", ;
+		TabIndex = 25, ;
+		Top = 191, ;
+		Width = 180, ;
+		ZOrderSet = 17
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text7' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.codmf", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text7", ;
+		TabIndex = 26, ;
+		Top = 215, ;
+		Width = 180, ;
+		ZOrderSet = 19
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text8' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.normat", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text8", ;
+		TabIndex = 28, ;
+		Top = 262, ;
+		Width = 180, ;
+		ZOrderSet = 21
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text9' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.uzura", ;
+		Enabled = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 508, ;
+		Name = "Text9", ;
+		TabIndex = 29, ;
+		Top = 285, ;
+		Width = 180, ;
+		ZOrderSet = 23
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE Init
+		sele act
+		set filter to left(scc,3)='404' 
+	ENDPROC
+
+	PROCEDURE CMDTERMIN1.Valid
+		sele mf
+		appe blank
+		gather memvar
+		
+	ENDPROC
+
+	PROCEDURE Grid1.AfterRowColChange
+		LPARAMETERS nColIndex
+		local i,t
+		
+		sele actcs
+		scatter memvar
+		for i=1 to 14
+		t='thisform.text'+alltrim(str(i))+'.enabled=.t.'
+		&t
+		next
+		
+		M.DENUMIRE=M.EXPLICATIA
+		thisform.text1.refresh
+		thisform.text2.refresh
+		thisform.text3.refresh
+	ENDPROC
+
+	PROCEDURE Text11.GotFocus
+		thisform.cmdtermin1.enabled=.f.
+		thisform.cmdrenunt1.enabled=.f.
+		thisform.cmdlist1.enabled=.f.
+		DO CAUT_ALF WITH "NUMEGEST","NUMEGEST",'NUMELE GESTIUNII','M.NUMEGEST'
+		thisform.cmdtermin1.enabled=.t.
+		thisform.cmdrenunt1.enabled=.t.
+		thisform.cmdlist1.enabled=.t.
+		SELE NUMEGEST
+		LOCATE FOR NUMEGEST=M.NUMEGEST
+		SCATTER MEMVAR
+	ENDPROC
+
+	PROCEDURE Text12.GotFocus
+		thisform.cmdtermin1.enabled=.f.
+		thisform.cmdrenunt1.enabled=.f.
+		thisform.cmdlist1.enabled=.f.
+		DO CAUT_ALF WITH "respons","nume_2",'NUMELE RESPONSABILULUI','M.NUME_2'
+		thisform.cmdtermin1.enabled=.t.
+		thisform.cmdrenunt1.enabled=.t.
+		thisform.cmdlist1.enabled=.t.
+		M.RESPONS=M.NUME_2
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/QCKSTART.sc2

@@ -0,0 +1,92 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="qckstart.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="2" />
+
+	*<PropValue>
+		Name = "Dataenvironment"
+	*</PropValue>
+
+ENDDEFINE
+
+DEFINE CLASS wzquickstartform AS wzquickstartform OF "..\..\vfp\wizards\appwiz.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<PropValue>
+		DoCreate = .T.
+		Name = "wzquickstartform"
+		WindowType = 1
+		Image2.Height = 58
+		Image2.Name = "Image2"
+		Image2.Width = 52
+		Image4.Height = 58
+		Image4.Name = "Image4"
+		Image4.Width = 52
+		Image6.Height = 58
+		Image6.Name = "Image6"
+		Image6.Width = 52
+		Image7.Height = 58
+		Image7.Name = "Image7"
+		Image7.Width = 52
+		Image1.Height = 58
+		Image1.Name = "Image1"
+		Image1.Width = 52
+		Image3.Height = 58
+		Image3.Name = "Image3"
+		Image3.Width = 52
+		Image5.Height = 58
+		Image5.Name = "Image5"
+		Image5.Width = 52
+		Image8.Height = 58
+		Image8.Name = "Image8"
+		Image8.Width = 52
+		Image9.Height = 58
+		Image9.Name = "Image9"
+		Image9.Width = 52
+		Image12.Height = 58
+		Image12.Name = "Image12"
+		Image12.Width = 52
+		Image13.Height = 58
+		Image13.Name = "Image13"
+		Image13.Width = 52
+		Image16.Height = 58
+		Image16.Name = "Image16"
+		Image16.Width = 52
+		Image17.Height = 58
+		Image17.Name = "Image17"
+		Image17.Width = 52
+		Image20.Height = 58
+		Image20.Name = "Image20"
+		Image20.Width = 52
+		Image21.Height = 58
+		Image21.Name = "Image21"
+		Image21.Width = 52
+		Image24.Height = 58
+		Image24.Name = "Image24"
+		Image24.Width = 52
+		Image25.Height = 58
+		Image25.Name = "Image25"
+		Image25.Width = 52
+		Image26.Height = 58
+		Image26.Name = "Image26"
+		Image26.Width = 52
+		Image27.Height = 58
+		Image27.Name = "Image27"
+		Image27.Width = 52
+		Image28.Height = 58
+		Image28.Name = "Image28"
+		Image28.Width = 52
+		Image29.Height = 58
+		Image29.Name = "Image29"
+		Image29.Width = 52
+		lblForms.Name = "lblForms"
+		lstForms.Name = "lstForms"
+		cmdRun.Name = "cmdRun"
+		cmdClose.Name = "cmdClose"
+	*</PropValue>
+
+ENDDEFINE

Ferestre/Vechi/about.sc2

@@ -0,0 +1,155 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="about.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 wzaboutdialog AS wzaboutdialog OF "..\clase\appwiz.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lb_version" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*p: dat
+		*p: timp
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BackColor = 255,255,255
+		BorderStyle = 1
+		Closable = .T.
+		ControlBox = .T.
+		DoCreate = .T.
+		HalfHeightCaption = .T.
+		Height = 156
+		Icon = ..\grafice\mfix.ico
+		Name = "wzaboutdialog"
+		Width = 370
+		Shape1.BackStyle = 0
+		Shape1.Height = 135
+		Shape1.Left = 8
+		Shape1.Name = "Shape1"
+		Shape1.Top = 9
+		Shape1.Width = 352
+		Shape2.Name = "Shape2"
+		CMDTERMIN1.Command1.Name = "Command1"
+		CMDTERMIN1.Imbuton1.Height = 27
+		CMDTERMIN1.Imbuton1.Name = "Imbuton1"
+		CMDTERMIN1.Imbuton1.Width = 30
+		CMDTERMIN1.Left = 300
+		CMDTERMIN1.Name = "CMDTERMIN1"
+		CMDTERMIN1.Top = 195
+		Image1.Name = "Image1"
+		Image1.Picture = ..\..\comun\grafice\iconite\imob2003.ico
+		Label2.BackStyle = 0
+		Label2.Name = "Label2"
+		Label1.BackStyle = 0
+		Label1.Caption = "Imob2003"
+		Label1.FontBold = .T.
+		Label1.FontItalic = .T.
+		Label1.FontSize = 12
+		Label1.Left = 168
+		Label1.Name = "Label1"
+		Label1.Top = 27
+		Label3.BackStyle = 0
+		Label3.Name = "Label3"
+	*</PropValue>
+
+	ADD OBJECT 'Image2' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 20, ;
+		Left = 25, ;
+		Name = "Image2", ;
+		Picture = ..\..\contab\grafice\siglaromfast.bmp, ;
+		Stretch = 2, ;
+		Top = 108, ;
+		Width = 108
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image3' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 22, ;
+		Left = 265, ;
+		Name = "Image3", ;
+		Picture = ..\grafice\c.ico, ;
+		Stretch = 1, ;
+		Top = 25, ;
+		Width = 13
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Label5' AS label WITH ;
+		BackStyle = 0, ;
+		Caption = "Programul   ", ;
+		Height = 17, ;
+		Left = 101, ;
+		Name = "Label5", ;
+		Top = 33, ;
+		Width = 67
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'lb_version' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Ver.", ;
+		Height = 17, ;
+		Left = 149, ;
+		Name = "lb_version", ;
+		Top = 115, ;
+		Width = 23
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		Alignment = 0, ;
+		BackStyle = 0, ;
+		BorderStyle = 0, ;
+		ControlSource = "thisform.dat", ;
+		Height = 20, ;
+		Left = 209, ;
+		Name = "Text1", ;
+		ReadOnly = .T., ;
+		TabStop = .F., ;
+		Top = 112, ;
+		Width = 68
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		Alignment = 0, ;
+		BackStyle = 0, ;
+		BorderStyle = 0, ;
+		ControlSource = "thisform.timp", ;
+		Height = 20, ;
+		Left = 280, ;
+		Name = "Text2", ;
+		ReadOnly = .T., ;
+		TabStop = .F., ;
+		Top = 112, ;
+		Width = 104
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE Init
+		thisform.dat=fdate('&dirgen\IMOB2003\IMOB2003.exe')
+		thisform.timp=ftime('&dirgen\IMOB2003\IMOB2003.exe')
+		
+	ENDPROC
+
+	PROCEDURE lb_version.Init
+		this.Caption = "ver. " + get_version() 
+		
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/contamort.sc2

@@ -0,0 +1,204 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="contamort.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="BANDA21" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Titlu1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Gridb1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Gridb1.Column3.Combo1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Verif1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		BorderStyle = 1
+		DoCreate = .T.
+		Height = 305
+		Name = "Ffergen1"
+		Width = 284
+		Line1.Name = "Line1"
+		Line1.ZOrderSet = 1
+	*</PropValue>
+
+	ADD OBJECT 'BANDA21' AS banda2 WITH ;
+		Height = 30, ;
+		Left = 0, ;
+		Name = "BANDA21", ;
+		Top = 0, ;
+		Width = 217, ;
+		ZOrderSet = 0
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
+
+	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
+		Left = 251, ;
+		Name = "Cmdtermin1", ;
+		Top = 0, ;
+		ZOrderSet = 3, ;
+		IMBUTON1.Height = 27, ;
+		IMBUTON1.Name = "IMBUTON1", ;
+		IMBUTON1.Width = 30, ;
+		COMMAND1.Name = "COMMAND1"
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Command1' AS commandbutton WITH ;
+		Caption = "LINIE NOUA", ;
+		FontBold = .F., ;
+		Height = 27, ;
+		Left = 372, ;
+		Name = "Command1", ;
+		Top = 264, ;
+		Width = 84, ;
+		ZOrderSet = 5
+		*< END OBJECT: BaseClass="commandbutton" />
+
+	ADD OBJECT 'Gridb1' AS gridb WITH ;
+		ColumnCount = 3, ;
+		Height = 253, ;
+		Left = 11, ;
+		listaord = 1,2,3, ;
+		Name = "Gridb1", ;
+		ordine = 1, ;
+		Panel = 1, ;
+		ReadOnly = .F., ;
+		RecordSource = "contamort", ;
+		Top = 43, ;
+		Width = 262, ;
+		Column1.ControlSource = "cont_imob", ;
+		Column1.Header1.Alignment = 2, ;
+		Column1.Header1.Caption = "Cont imob.", ;
+		Column1.Header1.FontName = "Arial Narrow", ;
+		Column1.Header1.FontSize = 10, ;
+		Column1.Header1.Name = "Header1", ;
+		Column1.Name = "Column1", ;
+		Column1.ReadOnly = .T., ;
+		Column1.Text1.Name = "Text1", ;
+		Column1.Text1.ReadOnly = .T., ;
+		Column1.Width = 66, ;
+		Column2.ControlSource = "cont_amort", ;
+		Column2.Name = "Column2", ;
+		Column2.ReadOnly = .T., ;
+		Column2.Width = 73, ;
+		Column3.ControlSource = "fel_imob", ;
+		Column3.CurrentControl = "Combo1", ;
+		Column3.FontName = "Arial Narrow", ;
+		Column3.FontSize = 9, ;
+		Column3.Name = "Column3", ;
+		Column3.ReadOnly = .T., ;
+		Column3.Sparse = .F., ;
+		Column3.Width = 90
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="grid" />
+
+	ADD OBJECT 'Gridb1.Column2.Header1' AS header WITH ;
+		Alignment = 2, ;
+		Caption = "Cont amort.", ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Gridb1.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 'Gridb1.Column3.Combo1' AS combobox WITH ;
+		BorderStyle = 0, ;
+		ColumnCount = 2, ;
+		ColumnLines = .F., ;
+		ColumnWidths = "90,0", ;
+		ControlSource = "fel_imob", ;
+		FontName = "Arial Narrow", ;
+		FontSize = 9, ;
+		Height = 24, ;
+		Left = 47, ;
+		Name = "Combo1", ;
+		ReadOnly = .F., ;
+		RowSource = "Corporala,1,Necorporala,2,In curs,3", ;
+		RowSourceType = 1, ;
+		SpecialEffect = 1, ;
+		Style = 2, ;
+		Top = 40, ;
+		Width = 100
+		*< END OBJECT: BaseClass="combobox" />
+
+	ADD OBJECT 'Gridb1.Column3.Header1' AS header WITH ;
+		Alignment = 2, ;
+		Caption = "Tip imobilizare", ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Gridb1.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 'Titlu1' AS titlu WITH ;
+		Caption = "CONTURI DE AMORTIZARE", ;
+		ForeColor = 255,255,255, ;
+		Height = 27, ;
+		Left = 4, ;
+		Name = "Titlu1", ;
+		Top = 7, ;
+		Width = 181, ;
+		ZOrderSet = 2
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="label" />
+
+	ADD OBJECT 'Verif1' AS verif WITH ;
+		Left = 220, ;
+		Name = "Verif1", ;
+		Top = 0, ;
+		IMBUTON1.Height = 27, ;
+		IMBUTON1.Name = "IMBUTON1", ;
+		IMBUTON1.Width = 30, ;
+		COMMAND1.Name = "COMMAND1", ;
+		COMMAND1.ToolTipText = "Actualizare fisier"
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
+	
+	PROCEDURE Command1.Click
+		SELECT CONTAMORT
+		APPEND BLANK
+		THISFORM.GRIDb1.REFRESH
+	ENDPROC
+
+	PROCEDURE Gridb1.Column2.Header1.Click
+		this.Parent.Parent.headerclick(this.Parent.ColumnOrder)
+	ENDPROC
+
+	PROCEDURE Gridb1.Column3.Header1.Click
+		this.Parent.Parent.headerclick(this.Parent.ColumnOrder)
+	ENDPROC
+
+	PROCEDURE Verif1.COMMAND1.Click
+		DO ACTUALIZARE_FISIER WITH 'CONTAMORT'
+		THISFORM.Refresh 
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/conversie.sc2

@@ -0,0 +1,268 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="conversie.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="BANDA21" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Titlu1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column4.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="NOU1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		BorderStyle = 1
+		DoCreate = .T.
+		Height = 334
+		Name = "Ffergen1"
+		Width = 785
+	*</PropValue>
+
+	ADD OBJECT 'BANDA21' AS banda2 WITH ;
+		Height = 30, ;
+		Left = -3, ;
+		Name = "BANDA21", ;
+		Top = 0, ;
+		Width = 816, ;
+		ZOrderSet = 0
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
+
+	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
+		Left = 756, ;
+		Name = "Cmdtermin1", ;
+		Top = 0, ;
+		ZOrderSet = 5, ;
+		IMBUTON1.Height = 27, ;
+		IMBUTON1.Name = "IMBUTON1", ;
+		IMBUTON1.Width = 30, ;
+		COMMAND1.Name = "COMMAND1"
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Command1' AS commandbutton WITH ;
+		Caption = "LINIE NOUA", ;
+		FontBold = .F., ;
+		Height = 27, ;
+		Left = 624, ;
+		Name = "Command1", ;
+		Top = 276, ;
+		Visible = .F., ;
+		Width = 84, ;
+		WordWrap = .F., ;
+		ZOrderSet = 4
+		*< END OBJECT: BaseClass="commandbutton" />
+
+	ADD OBJECT 'Command2' AS commandbutton WITH ;
+		Caption = "CONVERSIE !", ;
+		FontBold = .T., ;
+		ForeColor = 128,128,255, ;
+		Height = 27, ;
+		Left = 556, ;
+		Name = "Command2", ;
+		Top = 2, ;
+		Width = 84, ;
+		ZOrderSet = 6
+		*< END OBJECT: BaseClass="commandbutton" />
+
+	ADD OBJECT 'Command3' AS commandbutton WITH ;
+		Caption = "REVENIRE!", ;
+		FontBold = .T., ;
+		ForeColor = 255,128,64, ;
+		Height = 27, ;
+		Left = 641, ;
+		Name = "Command3", ;
+		Top = 2, ;
+		Width = 84, ;
+		ZOrderSet = 7
+		*< END OBJECT: BaseClass="commandbutton" />
+
+	ADD OBJECT 'Grid1' AS grid WITH ;
+		ColumnCount = 4, ;
+		Height = 276, ;
+		Left = 11, ;
+		Name = "Grid1", ;
+		Panel = 1, ;
+		RecordSource = "CONVERSIE", ;
+		Top = 48, ;
+		Width = 769, ;
+		ZOrderSet = 3, ;
+		Column1.ControlSource = "cont2001", ;
+		Column1.Name = "Column1", ;
+		Column1.Width = 45, ;
+		Column2.ControlSource = "denum2001", ;
+		Column2.Name = "Column2", ;
+		Column2.Width = 317, ;
+		Column3.ControlSource = "cont2002", ;
+		Column3.Name = "Column3", ;
+		Column3.Width = 51, ;
+		Column4.ControlSource = "denum2002", ;
+		Column4.Name = "Column4", ;
+		Column4.Width = 312
+		*< END OBJECT: BaseClass="grid" />
+
+	ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
+		Caption = "Cont 1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.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 'Grid1.Column2.Header1' AS header WITH ;
+		Caption = "Denumire 1", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.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 'Grid1.Column3.Header1' AS header WITH ;
+		Caption = "Cont 2", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.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 'Grid1.Column4.Header1' AS header WITH ;
+		Caption = "Denumire 2", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.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 'NOU1' AS nou WITH ;
+		Left = 725, ;
+		Name = "NOU1", ;
+		Top = 0, ;
+		IMBUTON1.Height = 27, ;
+		IMBUTON1.Name = "IMBUTON1", ;
+		IMBUTON1.Width = 30, ;
+		COMMAND1.Name = "COMMAND1"
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Titlu1' AS titlu WITH ;
+		Caption = "OPTIUNI DE CONVERSIE", ;
+		FontSize = 10, ;
+		Left = 10, ;
+		Name = "Titlu1", ;
+		Top = 4, ;
+		ZOrderSet = 2
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="label" />
+	
+	PROCEDURE Load
+		If !File('&CALEFIRMA\DATEAN\CONVERSIE.DBF')
+			Copy File &gcAppPath\Date\Datean\CONVERSIE.* To &CALEFIRMA\DATEAN\CONVERSIE.Dbf
+		Endif
+		
+		Use &CALEFIRMA\DATEAN\CONVERSIE.Dbf In 0 Alias CONVERSIE
+		Select CONVERSIE
+		Set Filter To Inlist(Val(Left(CONT2002,2)),20,21)
+		
+		
+	ENDPROC
+
+	PROCEDURE Release
+		USE IN CONVERSIE
+	ENDPROC
+
+	PROCEDURE Command1.Click
+		SELECT CONVERSIE
+		APPEND BLANK
+		REPLACE CONT2001 WITH '2'
+		THISFORM.GRID1.REFRESH
+	ENDPROC
+
+	PROCEDURE Command2.Click
+		Select Distinct CONT2001 As CONT_VECHI,CONT2002 As CONT_NOU From CONVERSIE Into Cursor FFF
+		Local M.CONT_NOU,M.CONT_VECHI
+		Store '' To M.CONT_NOU,M.CONT_VECHI
+		
+		Select FFF
+		Scan
+			Scatter Memv
+		
+			Select MF
+			If Flock()
+				Replace All SCD With M.CONT_NOU For SCD=M.CONT_VECHI
+			Endif
+			Unlock
+		
+			Select FFF
+		Endscan
+		
+		Do MESAJ With 'CONVERSIA S-A INCHEIAT',''
+		
+	ENDPROC
+
+	PROCEDURE Command3.Click
+		SELECT DISTINCT CONT2001 AS CONT_VECHI,CONT2002 AS CONT_NOU FROM CONVERSIE INTO CURSOR FFF
+		LOCAL M.CONT_NOU,M.CONT_VECHI
+		STORE '' TO M.CONT_NOU,M.CONT_VECHI
+		
+		SELECT FFF
+		SCAN 
+		SCATTER MEMV
+		
+		SELECT MF
+		IF FLOCK()
+		REPLACE ALL SCD WITH M.CONT_VECHI FOR SCD=M.CONT_NOU
+		ENDIF
+		UNLOCK
+		
+		SELECT FFF
+		ENDSCAN
+		
+		DO MESAJ WITH 'CONVERSIA S-A INCHEIAT',''
+		
+	ENDPROC
+
+	PROCEDURE NOU1.COMMAND1.Click
+		thisform.comMAND1.Click 
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/conversie_2005.sc2

@@ -0,0 +1,266 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="conversie_2005.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="BANDA21" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Titlu1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column4.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		BorderStyle = 1
+		DoCreate = .T.
+		Height = 334
+		Name = "Ffergen1"
+		Width = 785
+	*</PropValue>
+
+	ADD OBJECT 'BANDA21' AS banda2 WITH ;
+		Height = 30, ;
+		Left = -3, ;
+		Name = "BANDA21", ;
+		Top = 0, ;
+		Width = 816, ;
+		ZOrderSet = 0
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
+
+	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
+		Left = 756, ;
+		Name = "Cmdtermin1", ;
+		Top = 0, ;
+		ZOrderSet = 5, ;
+		IMBUTON1.Height = 27, ;
+		IMBUTON1.Name = "IMBUTON1", ;
+		IMBUTON1.Width = 30, ;
+		COMMAND1.Name = "COMMAND1"
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Command2' AS commandbutton WITH ;
+		Caption = "CONVERSIE !", ;
+		FontBold = .T., ;
+		ForeColor = 128,128,255, ;
+		Height = 27, ;
+		Left = 556, ;
+		Name = "Command2", ;
+		Top = 2, ;
+		Width = 84, ;
+		ZOrderSet = 6
+		*< END OBJECT: BaseClass="commandbutton" />
+
+	ADD OBJECT 'Command3' AS commandbutton WITH ;
+		Caption = "REVENIRE!", ;
+		FontBold = .T., ;
+		ForeColor = 255,128,64, ;
+		Height = 27, ;
+		Left = 641, ;
+		Name = "Command3", ;
+		Top = 2, ;
+		Width = 84, ;
+		ZOrderSet = 7
+		*< END OBJECT: BaseClass="commandbutton" />
+
+	ADD OBJECT 'Grid1' AS grid WITH ;
+		ColumnCount = 4, ;
+		DeleteMark = .F., ;
+		FontName = "Arial Narrow", ;
+		Height = 276, ;
+		Left = 11, ;
+		Name = "Grid1", ;
+		Panel = 1, ;
+		RecordMark = .F., ;
+		RecordSource = "CONVERSIE_2005", ;
+		Top = 48, ;
+		Width = 769, ;
+		ZOrderSet = 3, ;
+		Column1.ControlSource = "cod_vechi", ;
+		Column1.FontName = "Arial Narrow", ;
+		Column1.Name = "Column1", ;
+		Column1.Width = 58, ;
+		Column2.ControlSource = "text_vechi", ;
+		Column2.FontName = "Arial Narrow", ;
+		Column2.Name = "Column2", ;
+		Column2.Width = 317, ;
+		Column3.ControlSource = "cod_nou", ;
+		Column3.FontName = "Arial Narrow", ;
+		Column3.Name = "Column3", ;
+		Column3.Width = 51, ;
+		Column4.ControlSource = "text_nou", ;
+		Column4.FontName = "Arial Narrow", ;
+		Column4.Name = "Column4", ;
+		Column4.Width = 312
+		*< END OBJECT: BaseClass="grid" />
+
+	ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
+		Alignment = 2, ;
+		Caption = "Cod vechi", ;
+		FontName = "Arial Narrow", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.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 'Grid1.Column2.Header1' AS header WITH ;
+		Alignment = 2, ;
+		Caption = "Denumire cod vechi", ;
+		FontName = "Arial Narrow", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.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 'Grid1.Column3.Header1' AS header WITH ;
+		Alignment = 2, ;
+		Caption = "Cod nou", ;
+		FontName = "Arial Narrow", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.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 'Grid1.Column4.Header1' AS header WITH ;
+		Alignment = 2, ;
+		Caption = "Denumire cod nou", ;
+		FontName = "Arial Narrow", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.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 'Titlu1' AS titlu WITH ;
+		Caption = "CONVERSIE CODURI", ;
+		FontSize = 10, ;
+		Left = 10, ;
+		Name = "Titlu1", ;
+		Top = 4, ;
+		ZOrderSet = 2
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="label" />
+	
+	PROCEDURE Load
+		*!*	IF !FILE('&CALEFIRMA\DATEAN\CONVERSIE_2005.DBF')
+		*!*	COPY FILE &DIRGEN\imob2005\DATE\CONVERSIE_2005.dbf TO &CALEFIRMA\DATEAN\CONVERSIE_2005.DBF
+		*!*	ENDIF
+		
+		*!*	USE &CALEFIRMA\DATEAN\CONVERSIE_2005.DBF IN 0 ALIAS CONVERSIE_2005
+		*!*	SELECT CONVERSIE_2005
+		*!*	GO TOP 
+		
+		USE &gcAppPath\DATE\datean\CONVERSIE_2005.DBF IN 0 ALIAS CONVERSIE_2005 SHARED 
+		SELECT CONVERSIE_2005
+		GO TOP 
+	ENDPROC
+
+	PROCEDURE Release
+		USE IN CONVERSIE_2005
+	ENDPROC
+
+	PROCEDURE Command2.Click
+		LOCAL lcCod_vechi, lcCod_nou
+		STORE "" TO lcCod_vechi, lcCod_nou
+		
+		Select Distinct cod_vechi, cod_nou From conversie_2005 Into Cursor cConversie
+		
+		Select cConversie
+		Scan
+			lcCod_vechi = cod_vechi
+			lcCod_nou = cod_nou
+		
+			Select mf
+			If Flock()
+				Replace All codmf With lcCod_nou For codmf = lcCod_vechi AND !inactiv
+			Endif
+			Unlock
+		
+			Select cConversie
+		Endscan
+		
+		IF USED("cConversie")
+			USE IN cConversie
+		ENDIF 
+		
+		Do mesaj With 'CONVERSIA S-A INCHEIAT',''
+		
+	ENDPROC
+
+	PROCEDURE Command3.Click
+		LOCAL lcCod_vechi, lcCod_nou
+		STORE "" TO lcCod_vechi, lcCod_nou
+		 
+		Select Distinct cod_vechi, cod_nou From conversie_2005 Into Cursor cConversie
+		
+		Select cConversie
+		Scan
+			Scatter Memv
+			lcCod_vechi = cod_vechi
+			lcCod_nou = cod_nou
+			
+			Select mf
+			If Flock()
+				Replace All codmf With lcCod_vechi For codmf = lcCod_nou 
+			Endif
+			Unlock
+		
+			Select cConversie
+		Endscan
+		
+		IF USED("cConversie")
+			USE IN cConversie
+		ENDIF 
+		
+		Do mesaj With 'CONVERSIA S-A INCHEIAT',''
+		
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/frm_calcul.sc2

@@ -0,0 +1,328 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_calcul.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 formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*p: valoare
+		*p: valram
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BackColor = 192,192,192
+		BorderStyle = 1
+		DataSession = 1
+		DoCreate = .T.
+		Height = 279
+		Name = "FORMTERMIN12"
+		valoare = 0
+		valram = 0
+		Width = 411
+		SHAPE1.Height = 35
+		SHAPE1.Left = 0
+		SHAPE1.Name = "SHAPE1"
+		SHAPE1.Top = 0
+		SHAPE1.Width = 360
+		TERMINAT1.COMMAND1.Name = "COMMAND1"
+		TERMINAT1.IMBUTON1.Height = 27
+		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
+		TERMINAT1.IMBUTON1.Width = 30
+		TERMINAT1.Left = 368
+		TERMINAT1.Name = "TERMINAT1"
+		TERMINAT1.TabIndex = 5
+		TERMINAT1.Top = 3
+		TITLUFRUMOS1.Caption = "Calculul amortizarii"
+		TITLUFRUMOS1.Height = 32
+		TITLUFRUMOS1.Left = 7
+		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
+		TITLUFRUMOS1.TabIndex = 8
+		TITLUFRUMOS1.Top = 5
+		TITLUFRUMOS1.Width = 184
+	*</PropValue>
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea de calcul Vc =", ;
+		Height = 17, ;
+		Left = 146, ;
+		Name = "Label1", ;
+		TabIndex = 10, ;
+		Top = 98, ;
+		Width = 129
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label10' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea reziduala Vrez =", ;
+		Height = 17, ;
+		Left = 135, ;
+		Name = "Label10", ;
+		TabIndex = 10, ;
+		Top = 73, ;
+		Width = 140
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Cota c = 100 / DNSc =", ;
+		Height = 17, ;
+		Left = 153, ;
+		Name = "Label2", ;
+		TabIndex = 10, ;
+		Top = 175, ;
+		Width = 122
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label3' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Amortizment lunar A = c x Vc =", ;
+		Height = 17, ;
+		Left = 111, ;
+		Name = "Label3", ;
+		TabIndex = 10, ;
+		Top = 201, ;
+		Width = 164
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label4' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Durata de calcul DNSc =", ;
+		Height = 17, ;
+		Left = 139, ;
+		Name = "Label4", ;
+		TabIndex = 10, ;
+		Top = 148, ;
+		Width = 136
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label5' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "%", ;
+		Height = 17, ;
+		Left = 397, ;
+		Name = "Label5", ;
+		TabIndex = 10, ;
+		Top = 173, ;
+		Width = 13
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label6' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea de intrare Vi =", ;
+		Height = 17, ;
+		Left = 146, ;
+		Name = "Label6", ;
+		TabIndex = 10, ;
+		Top = 48, ;
+		Width = 129
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label7' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Total amortizare precedenta Ap =", ;
+		Height = 17, ;
+		Left = 93, ;
+		Name = "Label7", ;
+		TabIndex = 10, ;
+		Top = 123, ;
+		Width = 182
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label8' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea ramasa de amortizat Vr = Vi - Vrez - At =", ;
+		Height = 17, ;
+		Left = 7, ;
+		Name = "Label8", ;
+		TabIndex = 10, ;
+		Top = 248, ;
+		Width = 267
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label9' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Total amortizare At = Ap + A =", ;
+		Height = 17, ;
+		Left = 114, ;
+		Name = "Label9", ;
+		TabIndex = 10, ;
+		Top = 226, ;
+		Width = 160
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		ControlSource = "m.valramasa", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 280, ;
+		Name = "Text1", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 95, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		ControlSource = "m.normat2", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 280, ;
+		Name = "Text2", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 145, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text3' AS textbox WITH ;
+		ControlSource = "m.cota", ;
+		Format = "r", ;
+		Height = 23, ;
+		InputMask = "9999.99", ;
+		Left = 280, ;
+		Name = "Text3", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 170, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text4' AS textbox WITH ;
+		ControlSource = "m.amortlun", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 280, ;
+		Name = "Text4", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 195, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text5' AS textbox WITH ;
+		ControlSource = "thisform.valram", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 280, ;
+		Name = "Text5", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 245, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text6' AS textbox WITH ;
+		ControlSource = "m.valin", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 280, ;
+		Name = "Text6", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 45, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text7' AS textbox WITH ;
+		ControlSource = "m.amortprec", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 280, ;
+		Name = "Text7", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 120, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text8' AS textbox WITH ;
+		ControlSource = "m.amorttot", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 280, ;
+		Name = "Text8", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 220, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text9' AS textbox WITH ;
+		ControlSource = "m.valrez", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 280, ;
+		Name = "Text9", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 70, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE Load
+		thisform.valram=m.valin-m.amorttot-m.valrez
+		
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/frm_calcul_reevaluare.sc2

@@ -0,0 +1,589 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_calcul_reevaluare.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 formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" 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="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*m: avertizare
+		*m: calcul_dr
+		*p: normat2lun
+		*p: uzura
+		*p: valoare
+		*p: valram
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BorderStyle = 1
+		DataSession = 1
+		DoCreate = .T.
+		Height = 339
+		Name = "FORMTERMIN12"
+		normat2lun = 0
+		uzura = 0
+		valoare = 0
+		valram = 0
+		Width = 355
+		SHAPE1.Height = 35
+		SHAPE1.Left = 0
+		SHAPE1.Name = "SHAPE1"
+		SHAPE1.Top = 0
+		SHAPE1.Width = 291
+		TERMINAT1.COMMAND1.Name = "COMMAND1"
+		TERMINAT1.IMBUTON1.Height = 27
+		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
+		TERMINAT1.IMBUTON1.Width = 30
+		TERMINAT1.Left = 323
+		TERMINAT1.Name = "TERMINAT1"
+		TERMINAT1.TabIndex = 9
+		TERMINAT1.Top = 3
+		TITLUFRUMOS1.Caption = "Calcul reevaluare"
+		TITLUFRUMOS1.Height = 32
+		TITLUFRUMOS1.Left = 7
+		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
+		TITLUFRUMOS1.TabIndex = 15
+		TITLUFRUMOS1.Top = 5
+		TITLUFRUMOS1.Width = 184
+	*</PropValue>
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Uzura precedenta MF", ;
+		Height = 17, ;
+		Left = 20, ;
+		Name = "Label1", ;
+		TabIndex = 27, ;
+		Top = 129, ;
+		Visible = .F., ;
+		Width = 118
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label10' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "luni", ;
+		Height = 17, ;
+		Left = 323, ;
+		Name = "Label10", ;
+		TabIndex = 22, ;
+		Top = 276, ;
+		Visible = .T., ;
+		Width = 22
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label11' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "DNS de calcul actual", ;
+		Height = 17, ;
+		Left = 19, ;
+		Name = "Label11", ;
+		TabIndex = 23, ;
+		Top = 185, ;
+		Visible = .T., ;
+		Width = 116
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label12' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "ani=", ;
+		Height = 17, ;
+		Left = 251, ;
+		Name = "Label12", ;
+		TabIndex = 19, ;
+		Top = 183, ;
+		Visible = .T., ;
+		Width = 26
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label13' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "luni", ;
+		Height = 17, ;
+		Left = 323, ;
+		Name = "Label13", ;
+		TabIndex = 16, ;
+		Top = 184, ;
+		Visible = .T., ;
+		Width = 22
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label14' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Uzura la data reevaluarii", ;
+		Height = 17, ;
+		Left = 19, ;
+		Name = "Label14", ;
+		TabIndex = 24, ;
+		Top = 211, ;
+		Visible = .T., ;
+		Width = 134
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label15' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "luni", ;
+		Height = 17, ;
+		Left = 323, ;
+		Name = "Label15", ;
+		TabIndex = 20, ;
+		Top = 210, ;
+		Visible = .T., ;
+		Width = 22
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea adaugata (majorare)", ;
+		Height = 17, ;
+		Left = 19, ;
+		Name = "Label2", ;
+		TabIndex = 29, ;
+		Top = 237, ;
+		Visible = .F., ;
+		Width = 167
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label3' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Noua valuare de calcul", ;
+		Height = 17, ;
+		Left = 19, ;
+		Name = "Label3", ;
+		TabIndex = 30, ;
+		Top = 302, ;
+		Visible = .T., ;
+		Width = 127
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label4' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Amortizare reevaluata", ;
+		FontShadow = .F., ;
+		Height = 17, ;
+		Left = 19, ;
+		Name = "Label4", ;
+		TabIndex = 18, ;
+		Top = 74, ;
+		Visible = .T., ;
+		Width = 120
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label5' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Data reevaluare", ;
+		Height = 17, ;
+		Left = 20, ;
+		Name = "Label5", ;
+		TabIndex = 28, ;
+		Top = 156, ;
+		Width = 89
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label6' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea de intrare", ;
+		Height = 17, ;
+		Left = 19, ;
+		Name = "Label6", ;
+		TabIndex = 26, ;
+		Top = 48, ;
+		Width = 106
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label7' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea ramasa reevaluata", ;
+		Height = 17, ;
+		Left = 19, ;
+		Name = "Label7", ;
+		TabIndex = 25, ;
+		Top = 101, ;
+		Width = 155, ;
+		WordWrap = .T.
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label8' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Noul DNS de calcul", ;
+		Height = 17, ;
+		Left = 19, ;
+		Name = "Label8", ;
+		TabIndex = 17, ;
+		Top = 277, ;
+		Visible = .T., ;
+		Width = 109
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label9' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "ani=", ;
+		Height = 17, ;
+		Left = 251, ;
+		Name = "Label9", ;
+		TabIndex = 21, ;
+		Top = 275, ;
+		Visible = .T., ;
+		Width = 26
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Line1' AS line WITH ;
+		Height = 0, ;
+		Left = 15, ;
+		Name = "Line1", ;
+		Top = 264, ;
+		Width = 328
+		*< END OBJECT: BaseClass="line" />
+
+	ADD OBJECT 'RENUNT1' AS renunt WITH ;
+		Left = 292, ;
+		Name = "RENUNT1", ;
+		TabIndex = 10, ;
+		Top = 3, ;
+		IMBUTON1.Height = 27, ;
+		IMBUTON1.Name = "IMBUTON1", ;
+		IMBUTON1.Width = 30, ;
+		COMMAND1.Name = "COMMAND1"
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		ControlSource = "pnUzuraprec", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 210, ;
+		Name = "Text1", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 3, ;
+		Top = 126, ;
+		Visible = .F., ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text10' AS textbox WITH ;
+		ControlSource = "omf.normat2", ;
+		Height = 23, ;
+		InputMask = "999.999", ;
+		Left = 210, ;
+		Name = "Text10", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 13, ;
+		Top = 180, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text11' AS textbox WITH ;
+		ControlSource = "omf.normat2lun", ;
+		Height = 23, ;
+		InputMask = "99999", ;
+		Left = 280, ;
+		Name = "Text11", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 11, ;
+		Top = 180, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text12' AS textbox WITH ;
+		ControlSource = "thisform.uzura", ;
+		Height = 23, ;
+		InputMask = "99999", ;
+		Left = 280, ;
+		Name = "Text12", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 12, ;
+		Top = 206, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		ControlSource = "pnAmortprec", ;
+		FontShadow = .F., ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 210, ;
+		Name = "Text2", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 1, ;
+		Top = 72, ;
+		Visible = .T., ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text3' AS textbox WITH ;
+		ControlSource = "thisform.valoare", ;
+		Format = "k", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 210, ;
+		Name = "Text3", ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 234, ;
+		Visible = .F., ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text4' AS textbox WITH ;
+		ControlSource = "pnValramasa", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 210, ;
+		Name = "Text4", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 8, ;
+		Top = 302, ;
+		Visible = .T., ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text5' AS textbox WITH ;
+		ControlSource = "pnDataeval", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 210, ;
+		Name = "Text5", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 4, ;
+		Top = 153, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text6' AS textbox WITH ;
+		ControlSource = "omf.valin", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 210, ;
+		Name = "Text6", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 14, ;
+		Top = 45, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text7' AS textbox WITH ;
+		ControlSource = "pnValramasa", ;
+		FontShadow = .F., ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 210, ;
+		Name = "Text7", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 2, ;
+		Top = 99, ;
+		Visible = .T., ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text8' AS textbox WITH ;
+		ControlSource = "pnNormat2", ;
+		Height = 23, ;
+		InputMask = "999.999", ;
+		Left = 210, ;
+		Name = "Text8", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 5, ;
+		Top = 272, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text9' AS textbox WITH ;
+		ControlSource = "pnNormat2lun", ;
+		Height = 23, ;
+		InputMask = "99999", ;
+		Left = 280, ;
+		Name = "Text9", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 6, ;
+		Top = 272, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE avertizare
+		otext=CREATEOBJECT('textr')
+		otext.label2.caption='Noua valoare de calcul este '+ALLTRIM(TRANSFORM(pnValramasa,get_mask(12,gnZ)))+' !'
+		otext.label3.caption='Noul DNS calculat este de '+ALLTRIM(STR(pnNormat2lun))+' luni !'
+		otext.show(1)
+		
+		IF buton=2
+			RETURN
+		ELSE 
+			thisform.Release 
+		ENDIF 
+		
+		
+	ENDPROC
+
+	PROCEDURE calcul_dr
+		*!*	nrLuniDif = VAL(m.an)*12 + VAL(m.nl) - (YEAR(pnDataEval)*12 + MONTH(pnDataeval)) && dif dintre luna curenta si data reevaluarii
+		*!*	lnUzura = omf.uzura - nrLuniDif          && uzura la data reevaluarii 
+		*!*	thisform.uzura = lnUzura
+		*!*	pnNormat2Lun = omf.normat - lnUzura  && Durata ramasa (in luni)
+		*!*	pnNormat2=ROUND(pnNormat2lun/12,3)
+		
+		lnUzura = (YEAR(pnDataEval)*12 + MONTH(pnDataeval)) - (YEAR(omf.DataEval)*12 + MONTH(omf.Dataeval))
+		pnNormat2Lun = omf.normat2lun - lnUzura  && Durata ramasa (in luni)
+		pnNormat2=ROUND(pnNormat2lun/12,3)
+		
+		thisform.text4.refresh
+		thisform.text8.refresh
+		thisform.text9.refresh
+		thisform.text12.refresh
+	ENDPROC
+
+	PROCEDURE Load
+		IF VAL(m.an)>= 2004
+			lnValRez = 0
+		ELSE 
+			lnValRez = omf.valrez
+		ENDIF 
+		
+		*thisform.valram = omf.valin - omf.amortprec - lnValRez
+		pnValramasa = omf.valin - pnAmortprec - lnValRez
+		thisform.normat2lun = pnNormat2lun
+		
+		*thisform.Height=thisform.line1.Top 
+		
+		
+	ENDPROC
+
+	PROCEDURE TERMINAT1.COMMAND1.Click
+		thisform.avertizare
+	ENDPROC
+
+	PROCEDURE Text1.Valid
+		thisform.calcul_dr
+		
+	ENDPROC
+
+	PROCEDURE Text2.LostFocus
+		IF VAL(m.an)>= 2004
+			lnValRez = 0
+		ELSE 
+			lnValRez = omf.valrez
+		ENDIF 
+		
+		pnValramasa = omf.valin - pnAmortprec - lnValRez
+	ENDPROC
+
+	PROCEDURE Text3.Valid
+		*m.valramasa=THISFORM.VALRAM + thisform.valoare
+		*m.valin=omf.valin+thisform.valoare
+		*m.valramasa= m.valin - omf.amortprec - omf.valrez
+		
+		
+		*!*	thisform.label3.Visible=.t.
+		*!*	thisform.label4.Visible=.t.
+		*!*	thisform.text2.Visible=.t.
+		*!*	thisform.text4.Visible=.t.
+		
+		m.valramasa=THISFORM.VALRAM
+		
+		thisform.Height=thisform.text4.Top+30
+		thisform.text2.refresh
+		thisform.text4.refresh
+		
+		
+	ENDPROC
+
+	PROCEDURE Text5.Valid
+		*!*	IF !EMPTY(omf.dataeval)
+		*!*		thisform.uzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
+		*!*		m.normat2lun= thisform.normat2lun-thisform.Uzura
+		*!*		m.normat2=ROUND(m.normat2lun/12,3)
+		*!*	ENDIF 
+		*!*	m.valramasa=THISFORM.VALRAM
+		
+		thisform.calcul_dr
+		
+	ENDPROC
+
+	PROCEDURE Text7.Valid
+		*!*	m.valramasa=THISFORM.VALRAM
+		
+		*!*	thisform.Height=thisform.text4.Top+30
+		*!*	thisform.text4.refresh
+	ENDPROC
+
+	PROCEDURE Text9.LostFocus
+		pnNormat2=ROUND(pnNormat2lun/12,3)
+		thisform.text8.Refresh 
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/frm_filtru_numar.sc2

@@ -0,0 +1,215 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_filtru_numar.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 formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Criteriu2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Criteriu1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*p: camp_nume
+		*p: filtru
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BorderStyle = 1
+		DataSession = 1
+		DoCreate = .T.
+		filtru = 
+		Height = 122
+		Name = "Formtermin12"
+		Width = 313
+		Shape1.Height = 34
+		Shape1.Left = -1
+		Shape1.Name = "Shape1"
+		Shape1.Top = 0
+		Shape1.Width = 278
+		Terminat1.Command1.Name = "Command1"
+		Terminat1.Imbuton1.Height = 27
+		Terminat1.Imbuton1.Name = "Imbuton1"
+		Terminat1.Imbuton1.Width = 30
+		Terminat1.Left = 280
+		Terminat1.Name = "Terminat1"
+		Terminat1.TabIndex = 3
+		Terminat1.Top = 2
+		Titlufrumos1.Height = 32
+		Titlufrumos1.Left = 7
+		Titlufrumos1.Name = "Titlufrumos1"
+		Titlufrumos1.TabIndex = 4
+		Titlufrumos1.Top = 4
+		Titlufrumos1.Width = 221
+	*</PropValue>
+
+	ADD OBJECT 'Criteriu1' AS combobox WITH ;
+		BorderStyle = 0, ;
+		BoundColumn = 2, ;
+		BoundTo = .T., ;
+		ColumnCount = 2, ;
+		ColumnLines = .F., ;
+		ColumnWidths = "72,0", ;
+		FontSize = 10, ;
+		Height = 24, ;
+		Left = 28, ;
+		Name = "Criteriu1", ;
+		ReadOnly = .F., ;
+		RowSource = "> = ,1,< = ,2, = ,3, # ,4, > ,5, < ,6", ;
+		RowSourceType = 1, ;
+		SpecialEffect = 2, ;
+		Style = 2, ;
+		TabIndex = 5, ;
+		ToolTipText = "Selectati criteriul de comparare", ;
+		Top = 47, ;
+		Width = 55
+		*< END OBJECT: BaseClass="combobox" />
+
+	ADD OBJECT 'Criteriu2' AS combobox WITH ;
+		BorderStyle = 0, ;
+		BoundColumn = 2, ;
+		BoundTo = .T., ;
+		ColumnCount = 2, ;
+		ColumnLines = .F., ;
+		ColumnWidths = "72,0", ;
+		FontSize = 10, ;
+		Height = 24, ;
+		Left = 28, ;
+		Name = "Criteriu2", ;
+		ReadOnly = .F., ;
+		RowSource = "> = ,1,< = ,2, = ,3, # ,4, > ,5, < ,6", ;
+		RowSourceType = 1, ;
+		SpecialEffect = 2, ;
+		Style = 2, ;
+		TabIndex = 6, ;
+		ToolTipText = "Selectati criteriul de comparare", ;
+		Top = 80, ;
+		Width = 55
+		*< END OBJECT: BaseClass="combobox" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		Alignment = 1, ;
+		Format = "k", ;
+		Height = 25, ;
+		InputMask = "999 999 999 999", ;
+		Left = 83, ;
+		Name = "Text1", ;
+		TabIndex = 1, ;
+		ToolTipText = "", ;
+		Top = 47, ;
+		Value = 0, ;
+		Width = 191
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		Alignment = 1, ;
+		Format = "k", ;
+		Height = 25, ;
+		InputMask = "999 999 999 999", ;
+		Left = 83, ;
+		Name = "Text2", ;
+		TabIndex = 2, ;
+		ToolTipText = "", ;
+		Top = 80, ;
+		Value = 0, ;
+		Width = 191
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE Destroy
+		WITH this 
+			LOCAL lnCriteriu1, lnCriteriu2, lcNumar1, lcNumar2, lcSemn1, lcSemn2
+			lnCriteriu1 = .criteriu1.Value
+			lnCriteriu2 = .criteriu2.Value
+			lcNumar1 = ALLTRIM(STR(.text1.value))
+			lcNumar2 = ALLTRIM(STR(.text2.value))
+			IF EMPTY(lnCriteriu1) AND EMPTY(lnCriteriu2)
+				.filtru = ""
+				RETURN 
+			ENDIF
+			DO CASE 
+				CASE lnCriteriu1 = 1
+					lcsemn1 = [>=]
+				CASE lnCriteriu1 = 2
+					lcsemn1 = [<=]
+				CASE lnCriteriu1 = 3
+					lcsemn1 = [=]
+				CASE lnCriteriu1 = 4
+					lcsemn1 = [#]
+				CASE lnCriteriu1 = 5
+					lcsemn1 = [>]
+				CASE lnCriteriu1 = 6
+					lcsemn1 = [<]
+			ENDCASE 
+			DO CASE 
+				CASE lnCriteriu2 = 1
+					lcsemn2 = [>=]
+				CASE lnCriteriu2 = 2
+					lcsemn2 = [<=]
+				CASE lnCriteriu2 = 3
+					lcsemn2 = [=]
+				CASE lnCriteriu2 = 4
+					lcsemn2 = [#]
+				CASE lnCriteriu2 = 5
+					lcsemn2 = [>]
+				CASE lnCriteriu2 = 6
+					lcsemn2 = [<]
+			ENDCASE 
+			.filtru = .camp_nume + lcsemn1 + lcNumar1 + [ and ] + .camp_nume + lcsemn2 + lcNumar2
+		ENDWITH 
+	ENDPROC
+
+	PROCEDURE Init
+		LPARAMETERS lcCampNume,lcTitlu,lnCriteriu1,lnCriteriu2
+		
+		DODEFAULT()
+		lctitlu=STRTRAN(lcTitlu,'\<','')
+		WITH this
+			.criteriu1.value = lnCriteriu1
+			.criteriu2.value = lnCriteriu2
+			.camp_nume = lcCampNume
+			.titlufrumos1.Caption=UPPER(lcTitlu)
+		*	.text1.ToolTipText='Introduceti expresia cu care se compara ' + lower(lcTitlu)
+			IF EMPTY(lccampnume)
+				.text1.Enabled = .F.
+				.text2.Enabled = .F.
+				.criteriu1.Enabled = .F.
+				.criteriu2.Enabled = .F.
+			ENDIF 
+		ENDWITH 
+	ENDPROC
+
+	PROCEDURE Unload
+		RETURN this.filtru 
+	ENDPROC
+
+	PROCEDURE Criteriu1.InteractiveChange
+		thisform.text1.SetFocus 
+	ENDPROC
+
+	PROCEDURE Criteriu2.InteractiveChange
+		thisform.text2.SetFocus 
+	ENDPROC
+
+	PROCEDURE Text1.LostFocus
+		thisform.text2.Value=this.Value 
+	ENDPROC
+
+	PROCEDURE Text2.LostFocus
+		
+		
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/frm_filtru_text.sc2

@@ -0,0 +1,34 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_filtru_text.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 frm_filtru_text12 AS frm_filtru_text OF "cont2003\clase\caut.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<PropValue>
+		DataSession = 1
+		DoCreate = .T.
+		Name = "Frm_filtru_text12"
+		Shape1.Name = "Shape1"
+		Terminat1.Command1.Name = "Command1"
+		Terminat1.Imbuton1.Height = 27
+		Terminat1.Imbuton1.Name = "Imbuton1"
+		Terminat1.Imbuton1.Width = 30
+		Terminat1.Name = "Terminat1"
+		Titlufrumos1.Name = "Titlufrumos1"
+		Criteriu.Name = "Criteriu"
+		Text.Name = "Text"
+	*</PropValue>
+
+ENDDEFINE

Ferestre/Vechi/frm_introd_titlu.sc2

@@ -0,0 +1,81 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_introd_titlu.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 formtermin1 AS formtermin OF "..\..\comun\clase\baza.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		BackColor = 255,255,255
+		BorderStyle = 1
+		DoCreate = .T.
+		Height = 76
+		Name = "Formtermin1"
+		Width = 524
+		Shape1.Height = 36
+		Shape1.Left = -3
+		Shape1.Name = "Shape1"
+		Shape1.Top = 0
+		Shape1.Width = 494
+		Shape1.ZOrderSet = 0
+		Terminat1.Command1.Name = "Command1"
+		Terminat1.Imbuton1.Height = 27
+		Terminat1.Imbuton1.Name = "Imbuton1"
+		Terminat1.Imbuton1.Width = 30
+		Terminat1.Left = 493
+		Terminat1.Name = "Terminat1"
+		Terminat1.TabIndex = 2
+		Terminat1.Top = 3
+		Terminat1.ZOrderSet = 1
+		TITLUFRUMOS1.AutoSize = .T.
+		TITLUFRUMOS1.Caption = "Titlu raport"
+		TITLUFRUMOS1.FontName = "Arial"
+		TITLUFRUMOS1.Height = 18
+		TITLUFRUMOS1.Left = 7
+		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
+		TITLUFRUMOS1.TabIndex = 3
+		TITLUFRUMOS1.Top = 9
+		TITLUFRUMOS1.Width = 61
+		TITLUFRUMOS1.ZOrderSet = 4
+	*</PropValue>
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Introduceti titlu raport", ;
+		Height = 17, ;
+		Left = 10, ;
+		Name = "Label1", ;
+		TabIndex = 4, ;
+		Top = 50, ;
+		Width = 116, ;
+		ZOrderSet = 2
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		ControlSource = "pcTitluA", ;
+		Height = 23, ;
+		Left = 137, ;
+		Name = "Text1", ;
+		TabIndex = 1, ;
+		Top = 44, ;
+		Width = 355, ;
+		ZOrderSet = 3
+		*< END OBJECT: BaseClass="textbox" />
+
+ENDDEFINE

Ferestre/Vechi/frm_major_valoare.sc2

@@ -0,0 +1,527 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_major_valoare.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 formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" 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="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*m: avertizare
+		*p: normat2lun
+		*p: uzura
+		*p: valoare
+		*p: valram
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BorderStyle = 1
+		DataSession = 1
+		DoCreate = .T.
+		Height = 340
+		Name = "FORMTERMIN12"
+		normat2lun = 0
+		ScrollBars = 0
+		uzura = 0
+		valoare = 0
+		valram = 0
+		Width = 364
+		SHAPE1.Height = 35
+		SHAPE1.Left = 0
+		SHAPE1.Name = "SHAPE1"
+		SHAPE1.Top = 0
+		SHAPE1.Width = 291
+		TERMINAT1.COMMAND1.Name = "COMMAND1"
+		TERMINAT1.IMBUTON1.Height = 27
+		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
+		TERMINAT1.IMBUTON1.Width = 30
+		TERMINAT1.Left = 323
+		TERMINAT1.Name = "TERMINAT1"
+		TERMINAT1.TabIndex = 8
+		TERMINAT1.Top = 3
+		TITLUFRUMOS1.Caption = "Majorarea valorii de inventar"
+		TITLUFRUMOS1.Height = 32
+		TITLUFRUMOS1.Left = 7
+		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
+		TITLUFRUMOS1.TabIndex = 15
+		TITLUFRUMOS1.Top = 5
+		TITLUFRUMOS1.Width = 184
+	*</PropValue>
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea de calcul", ;
+		Height = 17, ;
+		Left = 27, ;
+		Name = "Label1", ;
+		TabIndex = 27, ;
+		Top = 76, ;
+		Width = 103
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label10' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "luni", ;
+		Height = 17, ;
+		Left = 326, ;
+		Name = "Label10", ;
+		TabIndex = 22, ;
+		Top = 258, ;
+		Visible = .T., ;
+		Width = 22
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label11' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "DNS de calcul actual", ;
+		Height = 17, ;
+		Left = 26, ;
+		Name = "Label11", ;
+		TabIndex = 23, ;
+		Top = 193, ;
+		Visible = .T., ;
+		Width = 116
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label12' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "ani=", ;
+		Height = 17, ;
+		Left = 255, ;
+		Name = "Label12", ;
+		TabIndex = 19, ;
+		Top = 191, ;
+		Visible = .T., ;
+		Width = 26
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label13' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "luni", ;
+		Height = 17, ;
+		Left = 325, ;
+		Name = "Label13", ;
+		TabIndex = 16, ;
+		Top = 191, ;
+		Visible = .T., ;
+		Width = 22
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label14' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Uzura pana la data majorarii", ;
+		Height = 17, ;
+		Left = 26, ;
+		Name = "Label14", ;
+		TabIndex = 24, ;
+		Top = 218, ;
+		Visible = .T., ;
+		Width = 157
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label15' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "luni", ;
+		Height = 17, ;
+		Left = 325, ;
+		Name = "Label15", ;
+		TabIndex = 20, ;
+		Top = 216, ;
+		Visible = .T., ;
+		Width = 22
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea adaugata (majorare)", ;
+		Height = 17, ;
+		Left = 27, ;
+		Name = "Label2", ;
+		TabIndex = 29, ;
+		Top = 164, ;
+		Width = 167
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label3' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Noua valuare de calcul", ;
+		Height = 17, ;
+		Left = 27, ;
+		Name = "Label3", ;
+		TabIndex = 30, ;
+		Top = 308, ;
+		Visible = .T., ;
+		Width = 127
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label4' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Noua valoare de intrare", ;
+		Height = 17, ;
+		Left = 27, ;
+		Name = "Label4", ;
+		TabIndex = 18, ;
+		Top = 284, ;
+		Visible = .T., ;
+		Width = 130
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label5' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Data majorarii", ;
+		Height = 17, ;
+		Left = 27, ;
+		Name = "Label5", ;
+		TabIndex = 28, ;
+		Top = 102, ;
+		Width = 80
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label6' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea de intrare veche", ;
+		Height = 17, ;
+		Left = 27, ;
+		Name = "Label6", ;
+		TabIndex = 26, ;
+		Top = 48, ;
+		Width = 141
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label7' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea ramasa de amortizat la data majorarii", ;
+		Height = 32, ;
+		Left = 27, ;
+		Name = "Label7", ;
+		TabIndex = 25, ;
+		Top = 122, ;
+		Width = 167, ;
+		WordWrap = .T.
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label8' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Noul DNS de calcul", ;
+		Height = 17, ;
+		Left = 27, ;
+		Name = "Label8", ;
+		TabIndex = 17, ;
+		Top = 258, ;
+		Visible = .T., ;
+		Width = 109
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label9' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "ani=", ;
+		Height = 17, ;
+		Left = 256, ;
+		Name = "Label9", ;
+		TabIndex = 21, ;
+		Top = 258, ;
+		Visible = .T., ;
+		Width = 26
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Line1' AS line WITH ;
+		Height = 0, ;
+		Left = 22, ;
+		Name = "Line1", ;
+		Top = 246, ;
+		Width = 327
+		*< END OBJECT: BaseClass="line" />
+
+	ADD OBJECT 'RENUNT1' AS renunt WITH ;
+		Left = 292, ;
+		Name = "RENUNT1", ;
+		TabIndex = 12, ;
+		Top = 3, ;
+		IMBUTON1.Height = 27, ;
+		IMBUTON1.Name = "IMBUTON1", ;
+		IMBUTON1.Width = 30, ;
+		COMMAND1.Name = "COMMAND1"
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		ControlSource = "omf.valramasa", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 215, ;
+		Name = "Text1", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 13, ;
+		Top = 73, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text10' AS textbox WITH ;
+		ControlSource = "omf.normat2", ;
+		Height = 23, ;
+		InputMask = "999.99", ;
+		Left = 214, ;
+		Name = "Text10", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 9, ;
+		Top = 188, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text11' AS textbox WITH ;
+		ControlSource = "omf.normat2lun", ;
+		Height = 23, ;
+		InputMask = "99999", ;
+		Left = 283, ;
+		Name = "Text11", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 11, ;
+		Top = 188, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text12' AS textbox WITH ;
+		ControlSource = "thisform.uzura", ;
+		Height = 23, ;
+		InputMask = "99999", ;
+		Left = 283, ;
+		Name = "Text12", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 10, ;
+		Top = 213, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		ControlSource = "m.valin", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 215, ;
+		Name = "Text2", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 6, ;
+		Top = 281, ;
+		Visible = .T., ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text3' AS textbox WITH ;
+		ControlSource = "thisform.valoare", ;
+		Format = "k", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 214, ;
+		Name = "Text3", ;
+		SpecialEffect = 1, ;
+		TabIndex = 3, ;
+		Top = 161, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text4' AS textbox WITH ;
+		ControlSource = "m.valramasa", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 215, ;
+		Name = "Text4", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 308, ;
+		Visible = .T., ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text5' AS textbox WITH ;
+		ControlSource = "m.dataeval", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 215, ;
+		Name = "Text5", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 1, ;
+		Top = 99, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text6' AS textbox WITH ;
+		ControlSource = "omf.valin", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 215, ;
+		Name = "Text6", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 14, ;
+		Top = 45, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text7' AS textbox WITH ;
+		ControlSource = "thisform.valram", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 214, ;
+		Name = "Text7", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 2, ;
+		Top = 127, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text8' AS textbox WITH ;
+		ControlSource = "m.normat2", ;
+		Height = 23, ;
+		InputMask = "999.99", ;
+		Left = 215, ;
+		Name = "Text8", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 4, ;
+		Top = 255, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text9' AS textbox WITH ;
+		ControlSource = "m.normat2lun", ;
+		Height = 23, ;
+		InputMask = "99999", ;
+		Left = 284, ;
+		Name = "Text9", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 5, ;
+		Top = 255, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE avertizare
+		otext=CREATEOBJECT('textr')
+		otext.label2.caption='Noua valoare de calcul este '+ALLTRIM(STR(m.valramasa))+' !'
+		otext.label3.caption='Noul DNS calculat este de '+ALLTRIM(STR(ROUND(m.normat2,0)))+' ani !'
+		otext.show(1)
+		
+		IF buton=2
+			RETURN
+		ELSE 
+			thisform.Release 
+		ENDIF 
+		
+		
+	ENDPROC
+
+	PROCEDURE Init
+		thisform.valram = omf.valin - omf.amortprec - omf.valrez
+		thisform.normat2lun=omf.normat2lun
+		*thisform.Height=thisform.line1.Top 
+	ENDPROC
+
+	PROCEDURE TERMINAT1.COMMAND1.Click
+		thisform.avertizare
+		
+	ENDPROC
+
+	PROCEDURE Text3.Valid
+		*m.valramasa=omf.valramasa+thisform.valoare
+		m.valin=omf.valin+thisform.valoare
+		*m.valramasa= m.valin - omf.amortprec - omf.valrez
+		m.valramasa = thisform.valoare + thisform.valram
+		
+		*!*	thisform.label3.Visible=.t.
+		*!*	thisform.label4.Visible=.t.
+		*!*	thisform.text2.Visible=.t.
+		*!*	thisform.text4.Visible=.t.
+		thisform.Height=thisform.text4.Top+30
+		thisform.text2.refresh
+		thisform.text4.refresh
+		
+		
+		
+		
+	ENDPROC
+
+	PROCEDURE Text5.Valid
+		IF !EMPTY(omf.dataeval)
+			thisform.Uzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
+			m.normat2lun= thisform.normat2lun-thisform.Uzura
+			m.normat2=ROUND(m.normat2lun/12,2)
+		ENDIF 
+		thisform.text8.refresh
+		thisform.text9.refresh
+		thisform.text12.refresh
+		
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/frm_sch_valoare.sc2

@@ -0,0 +1,525 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_sch_valoare.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 formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" 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="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text11" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text12" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*m: avertizare
+		*p: normat2lun
+		*p: uzura
+		*p: valoare
+		*p: valram
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BorderStyle = 1
+		DataSession = 1
+		DoCreate = .T.
+		Height = 352
+		Name = "FORMTERMIN12"
+		normat2lun = 0
+		uzura = 0
+		valoare = 0
+		valram = 0
+		Width = 359
+		SHAPE1.Height = 35
+		SHAPE1.Left = 0
+		SHAPE1.Name = "SHAPE1"
+		SHAPE1.Top = 0
+		SHAPE1.Width = 288
+		TERMINAT1.COMMAND1.Name = "COMMAND1"
+		TERMINAT1.IMBUTON1.Height = 27
+		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
+		TERMINAT1.IMBUTON1.Width = 30
+		TERMINAT1.Left = 323
+		TERMINAT1.Name = "TERMINAT1"
+		TERMINAT1.TabIndex = 8
+		TERMINAT1.Top = 3
+		TITLUFRUMOS1.Caption = "Reevaluare"
+		TITLUFRUMOS1.Height = 32
+		TITLUFRUMOS1.Left = 7
+		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
+		TITLUFRUMOS1.TabIndex = 15
+		TITLUFRUMOS1.Top = 5
+		TITLUFRUMOS1.Width = 184
+	*</PropValue>
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea de calcul", ;
+		Height = 17, ;
+		Left = 24, ;
+		Name = "Label1", ;
+		TabIndex = 27, ;
+		Top = 76, ;
+		Width = 103
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label10' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "luni", ;
+		Height = 17, ;
+		Left = 328, ;
+		Name = "Label10", ;
+		TabIndex = 22, ;
+		Top = 265, ;
+		Visible = .T., ;
+		Width = 22
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label11' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "DNS de calcul actual", ;
+		Height = 17, ;
+		Left = 24, ;
+		Name = "Label11", ;
+		TabIndex = 23, ;
+		Top = 195, ;
+		Visible = .T., ;
+		Width = 116
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label12' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "ani=", ;
+		Height = 17, ;
+		Left = 256, ;
+		Name = "Label12", ;
+		TabIndex = 19, ;
+		Top = 193, ;
+		Visible = .T., ;
+		Width = 26
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label13' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "luni", ;
+		Height = 17, ;
+		Left = 328, ;
+		Name = "Label13", ;
+		TabIndex = 16, ;
+		Top = 193, ;
+		Visible = .T., ;
+		Width = 22
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label14' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Uzura pana la data reevaluarii", ;
+		Height = 17, ;
+		Left = 24, ;
+		Name = "Label14", ;
+		TabIndex = 24, ;
+		Top = 220, ;
+		Visible = .T., ;
+		Width = 165
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label15' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "luni", ;
+		Height = 17, ;
+		Left = 328, ;
+		Name = "Label15", ;
+		TabIndex = 20, ;
+		Top = 218, ;
+		Visible = .T., ;
+		Width = 22
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea adaugata (majorare)", ;
+		Height = 17, ;
+		Left = 24, ;
+		Name = "Label2", ;
+		TabIndex = 29, ;
+		Top = 166, ;
+		Width = 167
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label3' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Noua valuare de calcul", ;
+		Height = 17, ;
+		Left = 24, ;
+		Name = "Label3", ;
+		TabIndex = 30, ;
+		Top = 316, ;
+		Visible = .T., ;
+		Width = 127
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label4' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Noua valoare de intrare", ;
+		Height = 17, ;
+		Left = 24, ;
+		Name = "Label4", ;
+		TabIndex = 18, ;
+		Top = 293, ;
+		Visible = .T., ;
+		Width = 130
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label5' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Data reevaluare", ;
+		Height = 17, ;
+		Left = 24, ;
+		Name = "Label5", ;
+		TabIndex = 28, ;
+		Top = 103, ;
+		Width = 89
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label6' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea de intrare veche", ;
+		Height = 17, ;
+		Left = 24, ;
+		Name = "Label6", ;
+		TabIndex = 26, ;
+		Top = 48, ;
+		Width = 141
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label7' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea ramasa de amortizat la data reevaluarii", ;
+		Height = 32, ;
+		Left = 24, ;
+		Name = "Label7", ;
+		TabIndex = 25, ;
+		Top = 126, ;
+		Width = 180, ;
+		WordWrap = .T.
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label8' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Noul DNS de calcul", ;
+		Height = 17, ;
+		Left = 24, ;
+		Name = "Label8", ;
+		TabIndex = 17, ;
+		Top = 267, ;
+		Visible = .T., ;
+		Width = 109
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label9' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "ani=", ;
+		Height = 17, ;
+		Left = 256, ;
+		Name = "Label9", ;
+		TabIndex = 21, ;
+		Top = 265, ;
+		Visible = .T., ;
+		Width = 26
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Line1' AS line WITH ;
+		Height = 0, ;
+		Left = 20, ;
+		Name = "Line1", ;
+		Top = 248, ;
+		Width = 328
+		*< END OBJECT: BaseClass="line" />
+
+	ADD OBJECT 'RENUNT1' AS renunt WITH ;
+		Left = 292, ;
+		Name = "RENUNT1", ;
+		TabIndex = 9, ;
+		Top = 3, ;
+		IMBUTON1.Height = 27, ;
+		IMBUTON1.Name = "IMBUTON1", ;
+		IMBUTON1.Width = 30, ;
+		COMMAND1.Name = "COMMAND1"
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		ControlSource = "omf.valramasa", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 215, ;
+		Name = "Text1", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 13, ;
+		Top = 73, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text10' AS textbox WITH ;
+		ControlSource = "omf.normat2", ;
+		Height = 23, ;
+		InputMask = "999.99", ;
+		Left = 215, ;
+		Name = "Text10", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 12, ;
+		Top = 190, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text11' AS textbox WITH ;
+		ControlSource = "omf.normat2lun", ;
+		Height = 23, ;
+		InputMask = "99999", ;
+		Left = 285, ;
+		Name = "Text11", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 10, ;
+		Top = 190, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text12' AS textbox WITH ;
+		ControlSource = "thisform.uzura", ;
+		Height = 23, ;
+		InputMask = "99999", ;
+		Left = 285, ;
+		Name = "Text12", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 11, ;
+		Top = 215, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		ControlSource = "m.valin", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 215, ;
+		Name = "Text2", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 6, ;
+		Top = 288, ;
+		Visible = .T., ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text3' AS textbox WITH ;
+		ControlSource = "thisform.valoare", ;
+		Format = "k", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 215, ;
+		Name = "Text3", ;
+		SpecialEffect = 1, ;
+		TabIndex = 3, ;
+		Top = 163, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text4' AS textbox WITH ;
+		ControlSource = "m.valramasa", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 215, ;
+		Name = "Text4", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 316, ;
+		Visible = .T., ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text5' AS textbox WITH ;
+		ControlSource = "m.dataeval", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 215, ;
+		Name = "Text5", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 1, ;
+		Top = 100, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text6' AS textbox WITH ;
+		ControlSource = "omf.valin", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 215, ;
+		Name = "Text6", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 14, ;
+		Top = 45, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text7' AS textbox WITH ;
+		ControlSource = "thisform.valram", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 215, ;
+		Name = "Text7", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 2, ;
+		Top = 131, ;
+		Width = 117
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text8' AS textbox WITH ;
+		ControlSource = "m.normat2", ;
+		Height = 23, ;
+		InputMask = "999.99", ;
+		Left = 215, ;
+		Name = "Text8", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 4, ;
+		Top = 262, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text9' AS textbox WITH ;
+		ControlSource = "m.normat2lun", ;
+		Height = 23, ;
+		InputMask = "99999", ;
+		Left = 285, ;
+		Name = "Text9", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 5, ;
+		Top = 262, ;
+		Visible = .T., ;
+		Width = 40
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE avertizare
+		otext=CREATEOBJECT('textr')
+		otext.label2.caption='Noua valoare de calcul este '+ALLTRIM(STR(m.valramasa))+' !'
+		otext.label3.caption='Noul DNS calculat este de '+ALLTRIM(STR(ROUND(m.normat2,0)))+' ani !'
+		otext.show(1)
+		
+		IF buton=2
+			RETURN
+		ELSE 
+			thisform.Release 
+		ENDIF 
+		
+		
+	ENDPROC
+
+	PROCEDURE Load
+		thisform.valram=omf.valin-omf.amortprec-omf.valrez
+		thisform.normat2lun=m.normat2lun
+		*thisform.Height=thisform.line1.Top 
+		
+		
+	ENDPROC
+
+	PROCEDURE TERMINAT1.COMMAND1.Click
+		thisform.avertizare
+	ENDPROC
+
+	PROCEDURE Text3.Valid
+		m.valramasa=THISFORM.VALRAM + thisform.valoare
+		m.valin=omf.valin+thisform.valoare
+		*m.valramasa= m.valin - omf.amortprec - omf.valrez
+		
+		
+		*!*	thisform.label3.Visible=.t.
+		*!*	thisform.label4.Visible=.t.
+		*!*	thisform.text2.Visible=.t.
+		*!*	thisform.text4.Visible=.t.
+		
+		thisform.Height=thisform.text4.Top+30
+		thisform.text2.refresh
+		thisform.text4.refresh
+		
+		
+	ENDPROC
+
+	PROCEDURE Text5.Valid
+		IF !EMPTY(omf.dataeval)
+			LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
+			m.normat2lun= thisform.normat2lun-LnUzura
+			m.normat2=ROUND(m.normat2lun/12,2)
+		ENDIF 
+		thisform.text8.refresh
+		thisform.text9.refresh
+		thisform.text12.refresh
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/frm_schimb_dns.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_schimb_dns.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 frm_schimb_dns1 AS frm_schimb_dns OF "..\clase\imob_2005.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<PropValue>
+		DoCreate = .T.
+		Name = "Frm_schimb_dns1"
+		Shape2.Name = "Shape2"
+		Shape1.Name = "Shape1"
+		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
+		TERMINAT1.Command1.Name = "Command1"
+		TERMINAT1.Imbuton1.Height = 27
+		TERMINAT1.Imbuton1.Name = "Imbuton1"
+		TERMINAT1.Imbuton1.Width = 30
+		TERMINAT1.Name = "TERMINAT1"
+		Shape3.Name = "Shape3"
+		TEXT7.Name = "TEXT7"
+		TEXT8.Name = "TEXT8"
+		LABEL11.Name = "LABEL11"
+		Label25.Name = "Label25"
+		t21.Name = "t21"
+		Text1.Name = "Text1"
+		Label1.Name = "Label1"
+		Label2.Name = "Label2"
+		Text2.Name = "Text2"
+		TEXT3.Name = "TEXT3"
+		LABEL9.Name = "LABEL9"
+		Label3.Name = "Label3"
+		txtNorma_min.Name = "txtNorma_min"
+		txtNorma_max.Name = "txtNorma_max"
+		Label10.Name = "Label10"
+		LABEL14.Name = "LABEL14"
+		LABEL12.Name = "LABEL12"
+		LABEL5.Name = "LABEL5"
+		txtDataEval.Name = "txtDataEval"
+		Label4.Name = "Label4"
+		txtDR.Name = "txtDR"
+		LABEL6.Name = "LABEL6"
+		txtUzuraPrec.Name = "txtUzuraPrec"
+		Label7.Name = "Label7"
+		TEXT9.Name = "TEXT9"
+		LABEL8.Name = "LABEL8"
+		txtDRani.Name = "txtDRani"
+		RENUNT1.Command1.Name = "Command1"
+		RENUNT1.Imbuton1.Height = 27
+		RENUNT1.Imbuton1.Name = "Imbuton1"
+		RENUNT1.Imbuton1.Width = 30
+		RENUNT1.Name = "RENUNT1"
+	*</PropValue>
+
+ENDDEFINE

Ferestre/Vechi/frm_schimb_dns_o.sc2

@@ -0,0 +1,683 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_schimb_dns_o.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 formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label25" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="t21" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtNorma_min" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtNorma_max" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtDataEval" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtDR" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtUzuraPrec" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtDRani" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*p: ddataeval
+		*p: ndns
+		*p: ndnsani
+		*p: ndr
+		*p: ndrani
+		*p: nlim_max
+		*p: nlim_min
+		*p: nuzuraprec
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BorderStyle = 3
+		ddataeval = 01/01/2005
+		DoCreate = .T.
+		Height = 292
+		Name = "FORMTERMIN12"
+		ndns = 0
+		ndnsani = 0.00
+		ndr = 0
+		ndrani = 0.00
+		nlim_max = 0
+		nlim_min = 0
+		nuzuraprec = 0
+		Width = 414
+		SHAPE1.Height = 35
+		SHAPE1.Left = 0
+		SHAPE1.Name = "SHAPE1"
+		SHAPE1.Top = 0
+		SHAPE1.Width = 351
+		SHAPE1.ZOrderSet = 2
+		TERMINAT1.COMMAND1.Name = "COMMAND1"
+		TERMINAT1.IMBUTON1.Height = 27
+		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
+		TERMINAT1.IMBUTON1.Width = 30
+		TERMINAT1.Left = 382
+		TERMINAT1.Name = "TERMINAT1"
+		TERMINAT1.TabIndex = 11
+		TERMINAT1.Top = 3
+		TERMINAT1.ZOrderSet = 3
+		TITLUFRUMOS1.Caption = "Schimbare DNS de calcul"
+		TITLUFRUMOS1.Height = 30
+		TITLUFRUMOS1.Left = 7
+		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
+		TITLUFRUMOS1.TabIndex = 15
+		TITLUFRUMOS1.Top = 6
+		TITLUFRUMOS1.Width = 332
+		TITLUFRUMOS1.ZOrderSet = 4
+	*</PropValue>
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Durata normala de serviciu (DNS de calcul)", ;
+		FontBold = .F., ;
+		FontItalic = .F., ;
+		FontName = "Arial Narrow", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 8, ;
+		Name = "Label1", ;
+		TabIndex = 16, ;
+		Top = 75, ;
+		Width = 207, ;
+		ZOrderSet = 12
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label10' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Limitele DNS:", ;
+		FontBold = .F., ;
+		FontItalic = .F., ;
+		FontName = "Arial Narrow", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 151, ;
+		Name = "Label10", ;
+		TabIndex = 17, ;
+		Top = 134, ;
+		Width = 65, ;
+		ZOrderSet = 8
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label11' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Durata normala de serviciu schimbata (DNS)", ;
+		FontBold = .F., ;
+		FontItalic = .F., ;
+		FontName = "Arial Narrow", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 8, ;
+		Name = "Label11", ;
+		TabIndex = 17, ;
+		Top = 159, ;
+		Width = 212, ;
+		ZOrderSet = 8
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label12' AS label WITH ;
+		AutoSize = .F., ;
+		BackStyle = 0, ;
+		Caption = "ani =                   luni", ;
+		FontBold = .T., ;
+		ForeColor = 0,0,187, ;
+		Height = 17, ;
+		Left = 264, ;
+		Name = "Label12", ;
+		TabIndex = 25, ;
+		Top = 214, ;
+		Width = 106, ;
+		ZOrderSet = 9
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label14' AS label WITH ;
+		BackStyle = 0, ;
+		Caption = "ani", ;
+		Height = 17, ;
+		Left = 300, ;
+		Name = "Label14", ;
+		TabIndex = 25, ;
+		Top = 135, ;
+		Width = 19, ;
+		ZOrderSet = 9
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		AutoSize = .F., ;
+		BackStyle = 0, ;
+		Caption = "ani =                   luni", ;
+		Height = 17, ;
+		Left = 264, ;
+		Name = "Label2", ;
+		TabIndex = 20, ;
+		Top = 76, ;
+		Width = 106, ;
+		ZOrderSet = 13
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label25' AS label WITH ;
+		AutoSize = .F., ;
+		BackStyle = 0, ;
+		Caption = "ani =                   luni", ;
+		Height = 17, ;
+		Left = 264, ;
+		Name = "Label25", ;
+		TabIndex = 25, ;
+		Top = 160, ;
+		Width = 106, ;
+		ZOrderSet = 9
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label3' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Cod vechi", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 8, ;
+		Name = "Label3", ;
+		TabIndex = 19, ;
+		Top = 50, ;
+		Width = 58, ;
+		ZOrderSet = 15
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label4' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Durata ramasa la ianuarie 2005", ;
+		FontBold = .T., ;
+		ForeColor = 0,0,187, ;
+		Height = 17, ;
+		Left = 8, ;
+		Name = "Label4", ;
+		TabIndex = 23, ;
+		Top = 214, ;
+		Width = 180
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label5' AS label WITH ;
+		AutoSize = .T., ;
+		BackColor = 0,0,187, ;
+		BackStyle = 0, ;
+		Caption = "Data schimbarii duratei ramase", ;
+		Height = 17, ;
+		Left = 8, ;
+		Name = "Label5", ;
+		TabIndex = 21, ;
+		Top = 189, ;
+		Width = 176
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label6' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Uzura precedenta", ;
+		Height = 17, ;
+		Left = 8, ;
+		Name = "Label6", ;
+		TabIndex = 22, ;
+		Top = 239, ;
+		Width = 99
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label7' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Amortizarea precedenta", ;
+		Height = 17, ;
+		Left = 8, ;
+		Name = "Label7", ;
+		TabIndex = 24, ;
+		Top = 264, ;
+		Width = 132
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label8' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "-", ;
+		Height = 17, ;
+		Left = 257, ;
+		Name = "Label8", ;
+		Top = 135, ;
+		Width = 6
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label9' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Cod nou", ;
+		FontBold = .F., ;
+		FontName = "Arial", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 8, ;
+		Name = "Label9", ;
+		TabIndex = 18, ;
+		Top = 111, ;
+		Width = 50, ;
+		ZOrderSet = 6
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'RENUNT1' AS renunt WITH ;
+		Left = 352, ;
+		Name = "RENUNT1", ;
+		TabIndex = 12, ;
+		Top = 3, ;
+		ZOrderSet = 16, ;
+		IMBUTON1.Height = 27, ;
+		IMBUTON1.Name = "IMBUTON1", ;
+		IMBUTON1.Width = 30, ;
+		COMMAND1.Name = "COMMAND1"
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Shape2' AS shape WITH ;
+		BackStyle = 0, ;
+		BorderColor = 128,128,128, ;
+		Height = 61, ;
+		Left = 5, ;
+		Name = "Shape2", ;
+		Top = 41, ;
+		Width = 405, ;
+		ZOrderSet = 1
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Shape3' AS shape WITH ;
+		BackStyle = 0, ;
+		BorderColor = 128,128,128, ;
+		Height = 76, ;
+		Left = 5, ;
+		Name = "Shape3", ;
+		Top = 105, ;
+		Width = 405, ;
+		ZOrderSet = 0
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 't21' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "thisform.nDNS", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Format = "rk", ;
+		Height = 22, ;
+		InputMask = "9999", ;
+		Left = 300, ;
+		Name = "t21", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 6, ;
+		Top = 155, ;
+		Width = 39, ;
+		ZOrderSet = 10
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "omf.normat2", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Format = "k", ;
+		Height = 22, ;
+		InputMask = "999.999", ;
+		Left = 222, ;
+		Name = "Text1", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 2, ;
+		TabIndex = 2, ;
+		TabStop = .F., ;
+		Top = 73, ;
+		Width = 37, ;
+		ZOrderSet = 11
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "omf.normat2lun", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Format = "k", ;
+		Height = 22, ;
+		Left = 300, ;
+		Name = "Text2", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 2, ;
+		TabIndex = 3, ;
+		TabStop = .F., ;
+		Top = 73, ;
+		Width = 36, ;
+		ZOrderSet = 14
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text3' AS textbox WITH ;
+		ControlSource = "omf.codmf", ;
+		FontName = "Arial Narrow", ;
+		Height = 22, ;
+		Left = 222, ;
+		Name = "Text3", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 2, ;
+		TabIndex = 1, ;
+		Top = 48, ;
+		Width = 180, ;
+		ZOrderSet = 17
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text7' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.codmf", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Format = "k", ;
+		Height = 22, ;
+		Left = 222, ;
+		Name = "Text7", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 2, ;
+		TabIndex = 4, ;
+		Top = 109, ;
+		Width = 180, ;
+		ZOrderSet = 5
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text8' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "thisform.nDNSani", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Format = "k", ;
+		Height = 22, ;
+		InputMask = "99.99", ;
+		Left = 222, ;
+		Name = "Text8", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 5, ;
+		Top = 155, ;
+		Width = 40, ;
+		ZOrderSet = 7
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text9' AS textbox WITH ;
+		ControlSource = "omf.amortprec", ;
+		FontName = "Arial Narrow", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 222, ;
+		Name = "Text9", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 10, ;
+		Top = 261, ;
+		Width = 102
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'txtDataEval' AS textbox WITH ;
+		ControlSource = "thisform.dDataEval", ;
+		FontName = "Arial Narrow", ;
+		Format = "", ;
+		Height = 23, ;
+		Left = 222, ;
+		Name = "txtDataEval", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 186, ;
+		Width = 66
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'txtDR' AS textbox WITH ;
+		ControlSource = "thisform.nDR", ;
+		FontName = "Arial Narrow", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "999 999", ;
+		Left = 300, ;
+		Name = "txtDR", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 8, ;
+		Top = 211, ;
+		Width = 38
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'txtDRani' AS textbox WITH ;
+		ControlSource = "thisform.nDRani", ;
+		FontName = "Arial Narrow", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99.99", ;
+		Left = 222, ;
+		Name = "txtDRani", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 8, ;
+		Top = 211, ;
+		Width = 38
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'txtNorma_max' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.norma_max", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Format = "k", ;
+		Height = 20, ;
+		InputMask = "999", ;
+		Left = 265, ;
+		Name = "txtNorma_max", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 14, ;
+		TabStop = .F., ;
+		Top = 133, ;
+		Width = 32, ;
+		ZOrderSet = 7
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'txtNorma_min' AS textbox WITH ;
+		Alignment = 3, ;
+		ControlSource = "m.norma_min", ;
+		Enabled = .T., ;
+		FontName = "Arial Narrow", ;
+		Format = "k", ;
+		Height = 20, ;
+		InputMask = "999", ;
+		Left = 222, ;
+		Name = "txtNorma_min", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 13, ;
+		TabStop = .F., ;
+		Top = 133, ;
+		Width = 32, ;
+		ZOrderSet = 7
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'txtUzuraPrec' AS textbox WITH ;
+		ControlSource = "thisform.nUzuraPrec", ;
+		FontName = "Arial Narrow", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "999 999", ;
+		Left = 222, ;
+		Name = "txtUzuraPrec", ;
+		SpecialEffect = 1, ;
+		TabIndex = 9, ;
+		Top = 236, ;
+		Width = 66
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE inainte_de_do_termin
+		IF (m.norma_min <= thisform.nDNSani AND thisform.nDNSani <= m.norma_max)
+		ELSE
+			DO mesaj WITH "Durata normala de serviciu schimbata (DNS)","nu este din interval"
+			RETURN .F.
+		ENDIF 
+	ENDPROC
+
+	PROCEDURE Text7.GotFocus
+		LOCAL den
+		den=m.denumire
+		
+		LOCAL SALV1,SALV2,salv3
+		SALV1=M.NORMAT
+		SALV2=M.NORMAAN
+		salv3=m.codmf
+		
+		OCA=CREATEOBJECT("NORMATREE_2005")
+		OCA.SHOW(1)
+		
+		IF buton=2
+			IF TYPE('M.NORMAT')='C'
+				m.NORMAT=STR(SALV1)
+				m.NORMAAN=STR(SALV2)
+				m.codmf=salv3
+			ENDIF
+			RETURN
+		ENDIF
+		
+		SELE norma_2005
+		SCAT MEMV
+		
+		THISFORM.txtNorma_min.REFRESH
+		THISFORM.txtNorma_max.REFRESH
+		
+		
+		
+	ENDPROC
+
+	PROCEDURE Text8.LostFocus
+		LOCAL lnUzura 
+		lnUzura = 0
+		thisform.nDNS = this.Value*12  
+		  
+		DO CASE && aici calculez DR !!!
+		CASE omf.dataeval = omf.datapif
+			lnUzura = omf.uzura - (VAL(m.an)*12+VAL(m.nl) - 2005*12+1) - 1
+		OTHERWISE  && uzura = datacrt - dataeval
+			lnUzura = (VAL(m.an)*12+VAL(m.nl)) - (YEAR(dataeval)*12+MONTH(dataeval))
+		ENDCASE 
+		
+		thisform.nDR = (1-lnUzura/omf.normat2lun) * this.Value * 12
+		thisform.nDRani = thisform.nDR/12
+		
+		thisform.nUzuraPrec = (VAL(m.an)*12+VAL(m.nl) - (2005*12+1))
+		thisform.Refresh 
+		
+		
+	ENDPROC
+
+	PROCEDURE Text8.Valid
+		IF (m.norma_min <= this.Value AND this.Value <= m.norma_max)
+		ELSE
+			DO mesaj WITH "Durata introdusa nu este din interval",""
+			RETURN 0
+		ENDIF 
+	ENDPROC
+
+	PROCEDURE Text9.Valid
+		*!*	IF !EMPTY(omf.dataeval)
+		*!*		LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
+		*!*		m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec
+		*!*	ENDIF 
+		*!*	m.normat2=ROUND(m.normat2lun/12,2)
+		
+	ENDPROC
+
+	PROCEDURE txtDataEval.Init
+		LOCAL lcData, ldUltimaZi 
+		
+		lcData = "01/"+m.nl+"/"+m.an
+		ldUltimaZi = GOMONTH(CTOD(lcData),1)-1
+		
+		thisform.dDataeval = ldUltimaZi 
+		this.Refresh 
+		
+	ENDPROC
+
+	PROCEDURE txtDataEval.LostFocus
+		thisform.nUzuraPrec = (YEAR(thisform.dDataEval)*12+MONTH(thisform.dDataEval)-(2005*12+1))
+		thisform.txtUzuraPrec.Refresh 
+	ENDPROC
+
+	PROCEDURE txtDataEval.Valid
+		*!*	IF !EMPTY(omf.dataeval)
+		*!*		LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
+		*!*		m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec
+		*!*	ENDIF 
+		*!*	m.normat2=ROUND(m.normat2lun/12,2)
+		
+	ENDPROC
+
+	PROCEDURE txtDR.Valid
+		*!*	IF !EMPTY(omf.dataeval)
+		*!*		LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
+		*!*		m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec
+		*!*	ENDIF 
+		*!*	m.normat2=ROUND(m.normat2lun/12,2)
+		
+	ENDPROC
+
+	PROCEDURE txtDRani.Valid
+		*!*	IF !EMPTY(omf.dataeval)
+		*!*		LnUzura=(YEAR(m.dataeval)*12+MONTH(m.dataeval))-(YEAR(omf.dataeval)*12+MONTH(omf.dataeval))
+		*!*		m.normat2lun= m.normat2lun-LnUzura-omf.uzuraprec
+		*!*	ENDIF 
+		*!*	m.normat2=ROUND(m.normat2lun/12,2)
+		
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/frm_schimb_valoare.sc2

@@ -0,0 +1,215 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_schimb_valoare.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 formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*m: calcul_dr
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BorderStyle = 1
+		DataSession = 1
+		DoCreate = .T.
+		Height = 217
+		Name = "FORMTERMIN12"
+		Width = 346
+		SHAPE1.Height = 35
+		SHAPE1.Left = 0
+		SHAPE1.Name = "SHAPE1"
+		SHAPE1.Top = 0
+		SHAPE1.Width = 276
+		TERMINAT1.COMMAND1.Name = "COMMAND1"
+		TERMINAT1.IMBUTON1.Height = 27
+		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
+		TERMINAT1.IMBUTON1.Width = 30
+		TERMINAT1.Left = 313
+		TERMINAT1.Name = "TERMINAT1"
+		TERMINAT1.TabIndex = 4
+		TERMINAT1.Top = 3
+		TITLUFRUMOS1.Caption = "Reevaluarea valorii de intrare"
+		TITLUFRUMOS1.Height = 37
+		TITLUFRUMOS1.Left = 6
+		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
+		TITLUFRUMOS1.TabIndex = 8
+		TITLUFRUMOS1.Top = 4
+		TITLUFRUMOS1.Width = 221
+	*</PropValue>
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea de intrare veche", ;
+		Height = 17, ;
+		Left = 17, ;
+		Name = "Label1", ;
+		TabIndex = 10, ;
+		Top = 65, ;
+		Width = 141
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Amortizare veche", ;
+		Height = 17, ;
+		Left = 17, ;
+		Name = "Label2", ;
+		TabIndex = 9, ;
+		Top = 128, ;
+		Width = 95
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label3' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea de intrare reevaluata", ;
+		Height = 17, ;
+		Left = 17, ;
+		Name = "Label3", ;
+		TabIndex = 11, ;
+		Top = 94, ;
+		Width = 166
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label4' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Amortizare reevaluata", ;
+		Height = 17, ;
+		Left = 17, ;
+		Name = "Label4", ;
+		TabIndex = 12, ;
+		Top = 158, ;
+		Width = 120
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label5' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Data reevaluare", ;
+		Height = 17, ;
+		Left = 17, ;
+		Name = "Label5", ;
+		TabIndex = 13, ;
+		Top = 185, ;
+		Visible = .T., ;
+		Width = 89
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'RENUNT1' AS renunt WITH ;
+		Left = 281, ;
+		Name = "RENUNT1", ;
+		TabIndex = 5, ;
+		Top = 3, ;
+		IMBUTON1.Height = 27, ;
+		IMBUTON1.Name = "IMBUTON1", ;
+		IMBUTON1.Width = 30, ;
+		COMMAND1.Name = "COMMAND1"
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		ControlSource = "omf.valIN", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 196, ;
+		Name = "Text1", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 6, ;
+		Top = 62, ;
+		Width = 129
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		ControlSource = "omf.amorttot", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 196, ;
+		Name = "Text2", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 7, ;
+		Top = 126, ;
+		Width = 129
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text3' AS textbox WITH ;
+		ControlSource = "pnValIN", ;
+		Format = "k", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 196, ;
+		Name = "Text3", ;
+		SpecialEffect = 1, ;
+		TabIndex = 1, ;
+		Top = 91, ;
+		Width = 129
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text4' AS textbox WITH ;
+		ControlSource = "pnAmortTot", ;
+		Format = "k", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 196, ;
+		Name = "Text4", ;
+		SpecialEffect = 1, ;
+		TabIndex = 2, ;
+		Top = 155, ;
+		Width = 129
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text5' AS textbox WITH ;
+		ControlSource = "pnDataeval", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 196, ;
+		Name = "Text5", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 3, ;
+		Top = 184, ;
+		Visible = .T., ;
+		Width = 129
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE calcul_dr
+		lnUzura = (YEAR(pnDataEval)*12 + MONTH(pnDataeval)) - (YEAR(omf.DataEval)*12 + MONTH(omf.Dataeval))
+		pnNormat2Lun = omf.normat2lun - lnUzura  && Durata ramasa (in luni)
+		pnNormat2=ROUND(pnNormat2lun/12,3)
+	ENDPROC
+
+	PROCEDURE Text5.Valid
+		thisform.calcul_dr
+		
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/frm_schimb_valoare2.sc2

@@ -0,0 +1,200 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_schimb_valoare2.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 formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="RENUNT1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*m: calcul_dr
+		*p: valoare
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BorderStyle = 1
+		DataSession = 1
+		DoCreate = .T.
+		Height = 188
+		Name = "FORMTERMIN12"
+		valoare = 0
+		Width = 329
+		SHAPE1.Height = 35
+		SHAPE1.Left = 0
+		SHAPE1.Name = "SHAPE1"
+		SHAPE1.Top = 0
+		SHAPE1.Width = 261
+		TERMINAT1.COMMAND1.Name = "COMMAND1"
+		TERMINAT1.IMBUTON1.Height = 27
+		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
+		TERMINAT1.IMBUTON1.Width = 30
+		TERMINAT1.Left = 295
+		TERMINAT1.Name = "TERMINAT1"
+		TERMINAT1.TabIndex = 4
+		TERMINAT1.Top = 3
+		TITLUFRUMOS1.Caption = "Majorarea valorii de intrare"
+		TITLUFRUMOS1.Height = 37
+		TITLUFRUMOS1.Left = 6
+		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
+		TITLUFRUMOS1.TabIndex = 7
+		TITLUFRUMOS1.Top = 4
+		TITLUFRUMOS1.Width = 221
+	*</PropValue>
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea de intrare veche", ;
+		Height = 17, ;
+		Left = 21, ;
+		Name = "Label1", ;
+		TabIndex = 8, ;
+		Top = 65, ;
+		Width = 141
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Majorare", ;
+		Height = 17, ;
+		Left = 21, ;
+		Name = "Label2", ;
+		TabIndex = 10, ;
+		Top = 96, ;
+		Width = 50
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label3' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Valoarea de intrare noua", ;
+		Height = 17, ;
+		Left = 21, ;
+		Name = "Label3", ;
+		TabIndex = 9, ;
+		Top = 125, ;
+		Width = 137
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label5' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Data reevaluare", ;
+		Height = 17, ;
+		Left = 21, ;
+		Name = "Label5", ;
+		TabIndex = 11, ;
+		Top = 153, ;
+		Visible = .T., ;
+		Width = 89
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'RENUNT1' AS renunt WITH ;
+		Left = 263, ;
+		Name = "RENUNT1", ;
+		TabIndex = 5, ;
+		Top = 3, ;
+		IMBUTON1.Height = 27, ;
+		IMBUTON1.Name = "IMBUTON1", ;
+		IMBUTON1.Width = 30, ;
+		COMMAND1.Name = "COMMAND1"
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		ControlSource = "omf.valIN", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 184, ;
+		Name = "Text1", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 6, ;
+		Top = 62, ;
+		Width = 129
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		ControlSource = "thisform.valoare", ;
+		Format = "k", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 184, ;
+		Name = "Text2", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 1, ;
+		Top = 93, ;
+		Width = 129
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text3' AS textbox WITH ;
+		ControlSource = "pnValIN", ;
+		Format = "k", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 184, ;
+		Name = "Text3", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		TabIndex = 2, ;
+		Top = 122, ;
+		Width = 129
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text5' AS textbox WITH ;
+		ControlSource = "pnDataeval", ;
+		Format = "", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 184, ;
+		Name = "Text5", ;
+		ReadOnly = .F., ;
+		SpecialEffect = 1, ;
+		TabIndex = 3, ;
+		Top = 152, ;
+		Visible = .T., ;
+		Width = 129
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE calcul_dr
+		lnUzura = (YEAR(pnDataEval)*12 + MONTH(pnDataeval)) - (YEAR(omf.DataEval)*12 + MONTH(omf.Dataeval))
+		pnNormat2Lun = omf.normat2lun - lnUzura  && Durata ramasa (in luni)
+		pnNormat2=ROUND(pnNormat2lun/12,3)
+	ENDPROC
+
+	PROCEDURE Init
+		pnValin = omf.valin+thisform.valoare
+	ENDPROC
+
+	PROCEDURE Text2.Valid
+		pnValin=omf.valin+thisform.valoare
+	ENDPROC
+
+	PROCEDURE Text5.Valid
+		thisform.calcul_dr
+		
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/fundal.sc2

@@ -0,0 +1,80 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (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>
+		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="Image1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		AlwaysOnTop = .F.
+		AutoCenter = .T.
+		BackColor = 255,255,255
+		BorderStyle = 0
+		DoCreate = .T.
+		Enabled = .T.
+		Height = 337
+		Name = "Ffergen1"
+		Picture = ..\..\..\standarde\
+		Width = 700
+		WindowState = 0
+		WindowType = 0
+	*</PropValue>
+
+	ADD OBJECT 'Image1' AS image WITH ;
+		Height = 189, ;
+		Left = 68, ;
+		Name = "Image1", ;
+		Picture = ..\grafice\conimob.bmp, ;
+		Stretch = 0, ;
+		Top = 9, ;
+		Width = 563
+		*< END OBJECT: BaseClass="image" />
+	
+	PROCEDURE Activate
+		IF PRIMADATA
+			Do ce_windows In pmenu.prg
+		*!*	PUBLIC op_imob
+		*!*		op_imob=Crea('p_imob')
+			DO alegeprogram
+			DO FORM START00
+			OSTART=CREATEOBJ('START00')
+			PRIMADATA=.F.
+			op_imob.Show
+		ENDIF
+	ENDPROC
+
+	PROCEDURE Init
+		*thisform.image1.height=thisform.height
+		*thisform.image1.width=thisform.width
+	ENDPROC
+
+	PROCEDURE Release
+		OSTART.RELEASE
+		
+	ENDPROC
+
+	PROCEDURE RightClick
+		DO FORM START00
+		*OSTART.SHOW(1)
+	ENDPROC
+
+	PROCEDURE Image1.RightClick
+		thisform.rightclick
+		
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/inchidluni.sc2

@@ -0,0 +1,219 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="inchidluni.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>
+		Height = 200
+		Left = 1
+		Name = "Dataenvironment"
+		Top = 220
+		Width = 520
+	*</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="Grid1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column3.Check1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*p: c
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		AutoCenter = .T.
+		BorderStyle = 3
+		c = oo
+		DoCreate = .T.
+		Height = 478
+		Name = "Ffergen1"
+		Width = 359
+	*</PropValue>
+
+	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
+		Left = 311, ;
+		Name = "Cmdtermin1", ;
+		TabIndex = 3, ;
+		Top = 13, ;
+		Imbuton1.Height = 27, ;
+		Imbuton1.Name = "Imbuton1", ;
+		Imbuton1.Width = 30, ;
+		Command1.Name = "Command1"
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Grid1' AS grid WITH ;
+		BackColor = 254,255,240, ;
+		ColumnCount = 3, ;
+		DeleteMark = .F., ;
+		GridLineColor = 192,192,192, ;
+		GridLines = 3, ;
+		Height = 324, ;
+		Left = 27, ;
+		Name = "Grid1", ;
+		Panel = 1, ;
+		ReadOnly = .T., ;
+		RecordSource = "calendar", ;
+		TabIndex = 4, ;
+		Top = 129, ;
+		Width = 300, ;
+		ZOrderSet = 1, ;
+		Column1.Alignment = 0, ;
+		Column1.BackColor = 254,255,240, ;
+		Column1.ColumnOrder = 2, ;
+		Column1.ControlSource = "nl", ;
+		Column1.Name = "Column1", ;
+		Column1.ReadOnly = .T., ;
+		Column1.Width = 75, ;
+		Column2.BackColor = 254,255,240, ;
+		Column2.ColumnOrder = 1, ;
+		Column2.ControlSource = "an", ;
+		Column2.Name = "Column2", ;
+		Column2.ReadOnly = .T., ;
+		Column2.Width = 84, ;
+		Column3.Alignment = 0, ;
+		Column3.BackColor = 254,255,240, ;
+		Column3.ControlSource = "smf", ;
+		Column3.CurrentControl = "Check1", ;
+		Column3.Name = "Column3", ;
+		Column3.ReadOnly = .F., ;
+		Column3.Sparse = .F., ;
+		Column3.Width = 81
+		*< END OBJECT: BaseClass="grid" />
+
+	ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
+		Alignment = 0, ;
+		Caption = "Luna", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
+		Alignment = 0, ;
+		BackColor = 254,255,240, ;
+		BorderStyle = 0, ;
+		ForeColor = 0,0,0, ;
+		Margin = 0, ;
+		Name = "Text1", ;
+		ReadOnly = .T.
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
+		Alignment = 0, ;
+		Caption = "Anul", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
+		Alignment = 0, ;
+		BackColor = 254,255,240, ;
+		BorderStyle = 0, ;
+		ForeColor = 0,0,0, ;
+		Margin = 0, ;
+		Name = "Text1", ;
+		ReadOnly = .T.
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Grid1.Column3.Check1' AS checkbox WITH ;
+		Alignment = 0, ;
+		Caption = "", ;
+		Height = 17, ;
+		Left = 27, ;
+		Name = "Check1", ;
+		ReadOnly = .F., ;
+		Top = 26, ;
+		Width = 60
+		*< END OBJECT: BaseClass="checkbox" />
+
+	ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
+		Alignment = 0, ;
+		Caption = "Luna inchisa", ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
+		BackColor = 254,255,240, ;
+		BorderStyle = 0, ;
+		ControlSource = "", ;
+		ForeColor = 255,255,240, ;
+		Margin = 0, ;
+		Name = "Text1", ;
+		Value =
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .F., ;
+		Caption = "In continuare datele din aceste luni vor putea fi vizualizate, dar nu si modificate. De asemenea nu vor fi permise noi introduceri de date/documente in aceste luni contabile.", ;
+		Height = 61, ;
+		Left = 28, ;
+		Name = "Label1", ;
+		TabIndex = 6, ;
+		Top = 63, ;
+		Width = 300, ;
+		WordWrap = .T.
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label10' AS label WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		Caption = "BLOCARE DE LUNA", ;
+		FontBold = .T., ;
+		FontName = "BankGothic Md BT", ;
+		FontShadow = .F., ;
+		FontSize = 12, ;
+		ForeColor = 255,255,255, ;
+		Height = 22, ;
+		Left = 25, ;
+		Name = "Label10", ;
+		TabIndex = 5, ;
+		Top = 18, ;
+		Width = 169, ;
+		ZOrderSet = 9
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		AutoSize = .F., ;
+		Caption = "Bifati lunile pe care le doriti inchise.", ;
+		Height = 22, ;
+		Left = 28, ;
+		Name = "Label2", ;
+		TabIndex = 6, ;
+		Top = 45, ;
+		Width = 300, ;
+		WordWrap = .T.
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Shape1' AS shape WITH ;
+		Height = 460, ;
+		Left = 11, ;
+		Name = "Shape1", ;
+		SpecialEffect = 0, ;
+		Top = 6, ;
+		Width = 337, ;
+		ZOrderSet = 0
+		*< END OBJECT: BaseClass="shape" />
+	
+	PROCEDURE Cmdtermin1.Command1.Valid
+		sele calendar
+		loca for nl=m.nl and an=m.an
+		luna_inchisa = smf
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/ingest.sc2

@@ -0,0 +1,119 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="ingest.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 form1 AS form 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cmdrenunt1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		AutoCenter = .T.
+		BackColor = 255,255,255
+		BorderStyle = 1
+		Caption = "Form1"
+		DoCreate = .T.
+		Height = 137
+		Name = "Form1"
+		TitleBar = 0
+		Width = 353
+		WindowType = 1
+	*</PropValue>
+
+	ADD OBJECT 'Banda21' AS banda2 WITH ;
+		Height = 34, ;
+		Left = -28, ;
+		Name = "Banda21", ;
+		Top = 0, ;
+		Width = 454
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
+
+	ADD OBJECT 'Cmdrenunt1' AS cmdrenunt WITH ;
+		Left = 284, ;
+		Name = "Cmdrenunt1", ;
+		Top = 2, ;
+		Imbuton1.Height = 27, ;
+		Imbuton1.Name = "Imbuton1", ;
+		Imbuton1.Width = 30, ;
+		Command1.Name = "Command1"
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
+		Left = 320, ;
+		Name = "CMDTERMIN1", ;
+		Top = 2, ;
+		Imbuton1.Height = 27, ;
+		Imbuton1.Name = "Imbuton1", ;
+		Imbuton1.Width = 30, ;
+		Command1.Name = "Command1"
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .F., ;
+		BackStyle = 0, ;
+		Caption = "Label1", ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		Height = 36, ;
+		Left = 26, ;
+		Name = "Label1", ;
+		Top = 52, ;
+		Width = 300, ;
+		WordWrap = .T.
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		AutoSize = .F., ;
+		BackStyle = 0, ;
+		Caption = "Label2", ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		Height = 17, ;
+		Left = 10, ;
+		Name = "Label2", ;
+		Top = 100, ;
+		Width = 203, ;
+		WordWrap = .T.
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Shape1' AS shape WITH ;
+		BackStyle = 0, ;
+		Height = 89, ;
+		Left = 3, ;
+		Name = "Shape1", ;
+		SpecialEffect = 0, ;
+		Top = 40, ;
+		Width = 346
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		ControlSource = "m.cauza", ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		Height = 23, ;
+		Left = 216, ;
+		Name = "Text1", ;
+		SpecialEffect = 2, ;
+		Top = 98, ;
+		Width = 127
+		*< END OBJECT: BaseClass="textbox" />
+
+ENDDEFINE

Ferestre/Vechi/optiuni.sc2

@@ -0,0 +1,96 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="optiuni.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 formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="LABEL_ITEM1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*p: amo
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BorderStyle = 3
+		DataSession = 1
+		DoCreate = .T.
+		Height = 129
+		Name = "Formtermin12"
+		Width = 327
+		SHAPE1.Name = "SHAPE1"
+		TERMINAT1.COMMAND1.Name = "COMMAND1"
+		TERMINAT1.IMBUTON1.Height = 27
+		TERMINAT1.IMBUTON1.Name = "IMBUTON1"
+		TERMINAT1.IMBUTON1.Width = 30
+		TERMINAT1.Left = 295
+		TERMINAT1.Name = "TERMINAT1"
+		TERMINAT1.Top = 3
+		TITLUFRUMOS1.Caption = "OPTIUNI"
+		TITLUFRUMOS1.Height = 37
+		TITLUFRUMOS1.Left = 7
+		TITLUFRUMOS1.Name = "TITLUFRUMOS1"
+		TITLUFRUMOS1.Top = 6
+		TITLUFRUMOS1.Width = 271
+	*</PropValue>
+
+	ADD OBJECT 'Check1' AS checkbox WITH ;
+		BackStyle = 0, ;
+		Caption = "Da", ;
+		Height = 17, ;
+		Left = 252, ;
+		Name = "Check1", ;
+		Top = 60, ;
+		Value = 0, ;
+		Width = 60
+		*< END OBJECT: BaseClass="checkbox" />
+
+	ADD OBJECT 'LABEL_ITEM1' AS label_item WITH ;
+		AutoSize = .F., ;
+		BackStyle = 0, ;
+		Height = 60, ;
+		Left = 12, ;
+		Name = "LABEL_ITEM1", ;
+		Top = 48, ;
+		Width = 180
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
+	
+	PROCEDURE Init
+		sele optiuniS
+		loca for optiune='AMORTISMENT'
+		IF !FOUND()
+		APPE BLAN
+		REPL OPTIUNE WITH 'AMORTISMENT'
+		REPL DA WITH .F.
+		ENDIF
+		THISFORM.CHECK1.Value=IIF(DA,1,0)
+		thisform.amo=optiunis.da
+	ENDPROC
+
+	PROCEDURE Check1.Valid
+		thisform.amo=IIF(THIS.Value=1,.t.,.f.)
+		
+	ENDPROC
+
+	PROCEDURE TERMINAT1.COMMAND1.Click
+		sele optiuniS
+		loca for optiune='AMORTISMENT'
+		REPL DA WITH THISFORM.AMO
+		thisform.Release 
+		
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/start00.sc2

@@ -0,0 +1,590 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="start00.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="img_start" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="img_ter_al" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="cboLuna" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="cboFirma" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lblFirma" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lblLuna" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lblAnul" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="img_start_al" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="cboAnul" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*m: cindmaus
+		*m: go
+		*m: lasfirsit
+		*m: validfirma
+		*m: validluna
+		*p: tt1
+		*p: tt2
+		*p: tt3
+		*p: ttanul
+		*p: ttdata
+		*p: ttfirma
+		*p: ttluna
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		AutoCenter = .T.
+		BackColor = 255,255,255
+		BorderStyle = 0
+		DoCreate = .T.
+		Height = 153
+		Name = "Ffergen1"
+		Picture = ..\grafice\backgrnd.bmp
+		TabStop = .F.
+		tt1 = ""
+		tt2 = ""
+		tt3 = ""
+		ttanul = ""
+		ttdata = ""
+		ttfirma = ""
+		ttluna = "
+		Width = 529
+		WindowState = 0
+		WindowType = 1
+	*</PropValue>
+
+	ADD OBJECT 'cboAnul' AS combobox WITH ;
+		Alignment = 0, ;
+		BackColor = 255,255,255, ;
+		BorderStyle = 0, ;
+		ControlSource = "thisform.ttAnul", ;
+		FontName = "Arial", ;
+		FontSize = 9, ;
+		ForeColor = 0,0,0, ;
+		Format = "", ;
+		Height = 20, ;
+		Left = 267, ;
+		Name = "cboAnul", ;
+		RowSource = "1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020", ;
+		RowSourceType = 1, ;
+		SpecialEffect = 2, ;
+		Style = 2, ;
+		TabIndex = 2, ;
+		TabStop = .F., ;
+		Top = 47, ;
+		Value = 2000, ;
+		Visible = .T., ;
+		Width = 247, ;
+		ZOrderSet = 35
+		*< END OBJECT: BaseClass="combobox" />
+
+	ADD OBJECT 'cboFirma' AS combobox WITH ;
+		BackColor = 255,255,255, ;
+		BorderStyle = 0, ;
+		ControlSource = "thisform.ttFirma", ;
+		FontName = "Arial", ;
+		FontSize = 9, ;
+		ForeColor = 0,0,0, ;
+		Format = "", ;
+		Height = 20, ;
+		InputMask = "", ;
+		Left = 267, ;
+		Name = "cboFirma", ;
+		RowSource = "firma.firma", ;
+		RowSourceType = 2, ;
+		SpecialEffect = 2, ;
+		Style = 2, ;
+		TabIndex = 1, ;
+		TabStop = .F., ;
+		Top = 10, ;
+		Visible = .T., ;
+		Width = 247, ;
+		ZOrderSet = 17
+		*< END OBJECT: BaseClass="combobox" />
+
+	ADD OBJECT 'cboLuna' AS combobox WITH ;
+		BackColor = 255,255,255, ;
+		BorderStyle = 0, ;
+		ControlSource = "thisform.ttluna", ;
+		FontName = "Arial", ;
+		FontSize = 9, ;
+		ForeColor = 0,0,0, ;
+		Format = "", ;
+		Height = 20, ;
+		Left = 267, ;
+		Name = "cboLuna", ;
+		RowSource = "lunilean.numeluna", ;
+		RowSourceType = 6, ;
+		SpecialEffect = 2, ;
+		Style = 2, ;
+		TabIndex = 3, ;
+		TabStop = .F., ;
+		Top = 85, ;
+		Visible = .T., ;
+		Width = 247, ;
+		ZOrderSet = 27
+		*< END OBJECT: BaseClass="combobox" />
+
+	ADD OBJECT 'img_start' AS image WITH ;
+		Height = 156, ;
+		Left = 0, ;
+		Name = "img_start", ;
+		Picture = ..\grafice\start.bmp, ;
+		Stretch = 2, ;
+		Top = 0, ;
+		Width = 529, ;
+		ZOrderSet = 0
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'img_start_al' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 28, ;
+		Left = 80, ;
+		Name = "img_start_al", ;
+		Picture = ..\grafice\start_albastru.bmp, ;
+		Stretch = 2, ;
+		Top = 120, ;
+		Width = 108, ;
+		ZOrderSet = 21
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'img_ter_al' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 34, ;
+		Left = 336, ;
+		Name = "img_ter_al", ;
+		Picture = ..\grafice\terminat_a.bmp, ;
+		Stretch = 2, ;
+		Top = 116, ;
+		Width = 128, ;
+		ZOrderSet = 2
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'lblAnul' AS label WITH ;
+		Alignment = 1, ;
+		AutoSize = .T., ;
+		BackColor = 255,255,255, ;
+		BackStyle = 0, ;
+		Caption = "Anul:", ;
+		FontBold = .T., ;
+		FontName = "Courier New", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 209, ;
+		Name = "lblAnul", ;
+		TabIndex = 6, ;
+		Top = 49, ;
+		Width = 42, ;
+		ZOrderSet = 20
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'lblFirma' AS label WITH ;
+		Alignment = 1, ;
+		AutoSize = .T., ;
+		BackColor = 255,255,255, ;
+		BackStyle = 0, ;
+		Caption = "Firma:", ;
+		FontBold = .T., ;
+		FontName = "Courier New", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 201, ;
+		Name = "lblFirma", ;
+		TabIndex = 5, ;
+		Top = 13, ;
+		Width = 50, ;
+		ZOrderSet = 18
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'lblLuna' AS label WITH ;
+		Alignment = 1, ;
+		AutoSize = .T., ;
+		BackColor = 255,255,255, ;
+		BackStyle = 0, ;
+		Caption = "Luna contabila:", ;
+		FontBold = .T., ;
+		FontName = "Courier New", ;
+		FontShadow = .F., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 18, ;
+		Left = 129, ;
+		Name = "lblLuna", ;
+		TabIndex = 4, ;
+		Top = 87, ;
+		Width = 122, ;
+		ZOrderSet = 6
+		*< END OBJECT: BaseClass="label" />
+	
+	PROCEDURE Activate
+		*
+	ENDPROC
+
+	PROCEDURE cindmaus
+	ENDPROC
+
+	PROCEDURE go
+		IF THISFORM.VALIDLUNA()
+		 THISFORM.VISIBLE=.F.
+		
+		 THISFORM.LASFIRSIT
+		
+		
+		 do totv
+		
+		 DO INIT_OPTIUNI
+		
+		 THISFORM.RELEASE
+		ENDIF
+		
+		
+	ENDPROC
+
+	PROCEDURE Init
+		CLOSE DATABASES 
+		calefirma=dirgen
+		Do des With 'FIRMA' IN totv.prg
+		
+		Sele FIRMA
+		Go Top
+		If !Eof()
+			Local II,ESTE
+			II=1
+			ESTE=.F.
+			For II = 1 To Fcount( )
+				If Allt(Field(II))='PERMIS'
+					ESTE=.T.
+				Endif
+			Next
+			If ESTE
+				Sele FIRMA
+				Repl All PERMIS With '*' For Empty(PERMIS)
+				UTILIZATOR=Allt(UTILIZATOR)
+				Set Filter To Allt(PERMIS)='*' Or Like('*'+UTILIZATOR+'*',PERMIS) And !Empty(Allt(PERMIS))
+			Endif
+			Sele FIRMA
+			Go Top
+			m.flung=FIRMA
+			thisform.ttfirma=ALLTRIM(firma)
+			m.antet=Alltrim(M.flung)
+			nfscurt=Alltrim(fscurt)
+			m.CALEFIRM=ADDBS(Alltrim(CALEFIRM))
+			calefirma=M.CALEFIRM
+			IF !Start_Nou()
+				LOC=ALLT(LOCTEMPO)
+			ELSE
+				LOC = ADDBS(gcTempPath)
+			ENDIF
+			If ESERVER And !Empty(CALES)
+				calefirma=ADDBS(STRTRAN(CALES+'\'+nfscurt,"\\","\"))
+		
+			Endif
+		
+		Else
+			Do Form STARTFIRMA
+			Do mesaj With 'Pentru initializare programul trebuie restartat',''
+			QUIT 
+		Endif
+		
+		*** compar calendarmf.dbf cu calendar.dbf
+		DO compar_calendare WITH 'calendarmf','calendar'
+		
+		*** aleg ultima luna deschisa
+		Do des With 'CALENDAR' IN totv.prg
+		SELECT calendar
+		Go Bottom
+		Scatter Memvar
+		thisform.ttanul=an
+		lc_luna=nl
+		lc_anul=an
+		
+		
+		Do des With 'LUNILEAN' IN totv.prg
+		Seek(lc_luna)
+		Scatter Memvar
+		m.luna=numeluna
+		thisform.ttluna=numeluna
+		
+		
+		THIS.CBOFirma.SetFocus
+		
+		
+		
+	ENDPROC
+
+	PROCEDURE KeyPress
+		LPARAMETERS nKeyCode, nShiftAltCtrl
+		if nkeycode=13
+			this.go()
+		ELSE
+			DODEFAULT ()
+		endif
+	ENDPROC
+
+	PROCEDURE lasfirsit
+		
+		*capapl="CONT2000      Firma "+numefirma+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN+"  "
+		SELECT lunilean
+		LOCATE FOR nl=m.nl
+		m.luna=numeluna
+		
+		
+		
+		
+		&&ESTE CUMVA LUNA BLOCATA?
+		SELE calendar
+		LOCA for nl=m.nl and AN=m.AN
+		SCAT memv
+		luna_inchisa=smf
+		
+		&&ESTE CUMVA LUNA NEPLATITA?
+		*sele calendar
+		*loca for nl=m.nl and an=m.an
+		*SKIP
+		*IF EOF()
+		IF e_ultima_luna()
+		*	SELE 0
+		*	USE &DIRGEN\_ALFA\DATEAN\CUL ALIAS CUL
+			DO DES WITH 'CUL' IN totv.prg
+			IF SERIA_LUNARA_E_CORECTA()
+				LUNA_NEPLATITA=.F.
+			ELSE
+				LUNA_NEPLATITA=.T.
+			ENDIF
+			SELE cul
+			USE
+		ELSE
+			LUNA_NEPLATITA=.F.
+		ENDIF
+		
+		Select FIRMA
+		Scatter Name poFirma && OBIECT GLOBAL
+		
+		Select calendar
+		Scatter Name poCalendar && OBIECT GLOBAL
+		
+		NUMEFIRMA=UPPER(rTRIM(poFirma.firma))
+		*NUMEPROGRAM=UPPER(ALLTRIM(PCNUMEAPP))
+		
+		capapl=NUMEPROGRAM+"      Firma "+NUMEFIRMA+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN+"  "
+		goApp.SetCaption(capapl)
+		
+	ENDPROC
+
+	PROCEDURE validfirma
+		Sele FIRMA
+		*Loca For FIRMA=M.FLUNG
+		Scatter Memvar
+		
+		antet=ALLTRIM(M.FLUNG)
+		NFSCURT=Alltrim(m.FSCURT)
+		CALEFIRMA=Alltrim(M.CALEFIRM)
+		IF !Start_Nou()
+			LOC=ALLT(LOCTEMPO)
+		ELSE
+			LOC = ADDBS(gcTempPath)
+		ENDIF
+		DIRFIRM=addbs(loc)+nfscurt+"\"
+		
+		If ESERVER And !Empty(CALES)
+			CALEFIRMA=CALES+'\'+NFSCURT
+		Endif
+		
+		*daca firma a fost creata in sal2000__________
+		*!*	If !File('&CALEFIRMA\datean\calendar.DBF') And File('&CALEFIRMA\datean\calensal.DBF')
+		*!*		Do firmadinsal
+		*!*		Do DES With 'LUNILEAN'
+		*!*		Do DES With 'CALENDAR'
+		*!*	Endif
+		
+		IF USED('CALENDAR')
+			USE IN calendar
+		ENDIF
+		
+		*** compar calendarmf.dbf cu calendar.dbf
+		DO compar_calendare WITH 'calendarmf','calendar'
+		
+		*** aleg ultima luna deschisa
+		Do DES With 'CALENDAR'
+		Sele calendar
+		Go Bottom
+		Scatter Memvar
+		THIS.TTAnul=AN
+		
+		Sele lunilean
+		Seek(m.nl)
+		Scatter Memvar
+		m.luna=m.numeluna
+		THIS.TTLUNA=LUNA
+		
+		THIS.CBOAnul.Refresh
+		THIS.CBOLuna.Refresh 
+	ENDPROC
+
+	PROCEDURE validluna
+		local amin,amax,lmin,lmax,_an,_luna
+		*m.an=thisform.ttanul
+		_AN = THIS.TTANUL 
+		_LUNA = THIS.TTLUNA 
+		m.an = THIS.TTANUL 
+		SELECT lunilean
+		SCATTER MEMVAR
+		_NL=NL
+		*!*	m.luna=numeluna
+		
+		
+		
+		sele calendar
+		LOCATE FOR !EMPTY(an) AND !EMPTY(nl)
+		IF FOUND()
+			amin=an
+			lmin=nl
+		endif
+		
+		go bottom
+		amax=an
+		lmax=nl
+		
+		&& verific daca luna aleasa este mai mica decat luna maxima deschisa inscrisa in tabelul start_meniuri
+		 
+		lnLunaC = VAL(m.an)*12+VAL(m.nl)
+		lcCaleFirma = ADDBS(calefirma)
+		lcFscurt = ALLTRIM(nfscurt)
+		lcLunaS = Citeste_Firma_Luna(lcCaleFirma,lcFscurt) && proceduri_verificare_luna.prg
+		lcLuna = m.nl
+		lcAn = m.an
+		lnPos = AT("\",lcLunaS)
+		IF lnPos = 0
+			lnLunaS = 0
+		ELSE 
+			lcAn = LEFT(lcLunaS,lnPos - 1)
+			lcLuna = SUBSTR(lcLunaS,lnPos+1)
+			lnLunaS = VAL(lcAn)*12 + VAL(lcLuna)
+		ENDIF
+		IF lnLunaC>lnLunaS
+			DO mesaj WITH "Ultima luna deschisa este: "+lcLuna+" "+lcAn,""
+			sele calendar
+			LOCATE FOR VAL(an) = VAL(lcAn) AND VAL(nl) = VAL(lCLuna)
+			IF FOUND()
+				scatter memvar
+				sele lunilean
+				seek(m.nl)
+				m.luna=numeluna
+				THIS.TTANUL  = m.an
+			ENDIF 
+			RETURN .F.
+		ENDIF 
+		&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
+		
+		
+		*daca luna nu e dechisa___________
+		if VAL(_an)*12+VAL(_NL)>VAL(amax)*12+VAL(lmax)
+			do mesaj with "Luna "+rtrim(_NL)+" "+_an+" nu a fost deschisa!","Ultima luna deschisa este: "+lmax+" "+amax
+			*WAIT WINDOW "Ultima luna deschisa este: "+lmax+" "+amax
+			sele calendar
+			go bottom
+			scatter memvar
+			thisform.ttanul=an
+			
+			sele lunilean
+			seek(M.nl)
+			IF FOUND()
+				m.luna=numeluna
+				THISFORM.TTLUNA=NUMELUNA
+			ENDIF 
+			THIS.CBOAnul.Refresh
+			THIS.CBOLuna.Refresh 
+			RETURN .F.
+		endif
+		
+		*daca luna nu exista_________________
+		if VAL(_an)*12+VAL(_NL)<VAL(amin)*12+VAL(lmin)
+			do mesaj with "Nu sunt inregistrate date in luna  "+rtrim(_NL)+" "+_an+" !",;
+				"Prima luna deschisa a fost: "+lmin+" "+amin
+			sele calendar
+			go bottom
+			scatter memvar
+			thisform.ttanul=an
+			
+			sele lunilean
+			seek(M.nl)
+			IF FOUND()
+				m.luna=numeluna
+				THISFORM.TTLUNA=NUMELUNA
+			ENDIF 
+			THIS.CBOAnul.Refresh
+			THIS.CBOLuna.Refresh 
+			RETURN .F.
+		endif
+		m.nl=_NL
+		m.an=_an
+		
+		
+		
+	ENDPROC
+
+	PROCEDURE cboAnul.Valid
+		
+		
+		
+	ENDPROC
+
+	PROCEDURE cboFirma.Valid
+		thisform.validfirma()
+	ENDPROC
+
+	PROCEDURE cboLuna.Valid
+		
+		
+		
+		
+		
+		
+		
+	ENDPROC
+
+	PROCEDURE img_start_al.Click
+		thisform.go()
+		
+	ENDPROC
+
+	PROCEDURE img_start_al.MouseEnter
+		LPARAMETERS nButton, nShift, nXCoord, nYCoord
+		this.Picture=addbs(gcAppPath)+'GRAFICE\START_GALBEN.BMP'
+		
+	ENDPROC
+
+	PROCEDURE img_start_al.MouseLeave
+		LPARAMETERS nButton, nShift, nXCoord, nYCoord
+		this.Picture=addbs(gcAppPath)+'GRAFICE\start_albastru.bmp'
+	ENDPROC
+
+	PROCEDURE img_ter_al.Click
+		quit
+	ENDPROC
+
+	PROCEDURE img_ter_al.MouseEnter
+		LPARAMETERS nButton, nShift, nXCoord, nYCoord
+		this.Picture=addbs(gcAppPath)+'GRAFICE\terminat_g.BMP'
+	ENDPROC
+
+	PROCEDURE img_ter_al.MouseLeave
+		LPARAMETERS nButton, nShift, nXCoord, nYCoord
+		this.Picture=addbs(gcAppPath)+'GRAFICE\terminat_a.BMP'
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/startfirma.sc2

@@ -0,0 +1,726 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (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="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="Banda21" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Titlufrumos1" 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 = 1
+		DoCreate = .T.
+		Height = 422
+		Name = "Ffergen1"
+		Picture = ..\..\
+		Width = 500
+		WindowType = 1
+	*</PropValue>
+
+	ADD OBJECT 'Banda21' AS banda2 WITH ;
+		Height = 34, ;
+		Left = 0, ;
+		Name = "Banda21", ;
+		Top = 0, ;
+		Width = 428
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
+
+	ADD OBJECT 'Cmdrenunt1' AS cmdrenunt WITH ;
+		Left = 432, ;
+		Name = "Cmdrenunt1", ;
+		TabIndex = 12, ;
+		Top = 2, ;
+		Imbuton1.Height = 27, ;
+		Imbuton1.Name = "Imbuton1", ;
+		Imbuton1.Width = 30, ;
+		Command1.Name = "Command1"
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
+		Left = 468, ;
+		Name = "Cmdtermin1", ;
+		TabIndex = 11, ;
+		Top = 2, ;
+		Imbuton1.Height = 27, ;
+		Imbuton1.Name = "Imbuton1", ;
+		Imbuton1.Width = 30, ;
+		Command1.Name = "Command1"
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
+
+	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 = 41, ;
+		Width = 128, ;
+		ZOrderSet = 1
+		*< 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 = 132, ;
+		Name = "Label11", ;
+		TabIndex = 16, ;
+		Top = 384, ;
+		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 = 111, ;
+		Name = "Label12", ;
+		TabIndex = 19, ;
+		Top = 276, ;
+		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 = 94, ;
+		Name = "Label13", ;
+		TabIndex = 17, ;
+		Top = 302, ;
+		Width = 74, ;
+		ZOrderSet = 20
+		*< 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 = 354, ;
+		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 = 131, ;
+		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 = 158, ;
+		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 = 118, ;
+		Name = "Label6", ;
+		TabIndex = 21, ;
+		Top = 185, ;
+		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 = 56, ;
+		Name = "Label7", ;
+		TabIndex = 15, ;
+		Top = 211, ;
+		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 = 64, ;
+		Name = "Label8", ;
+		TabIndex = 18, ;
+		Top = 250, ;
+		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 = 103, ;
+		Width = 122, ;
+		ZOrderSet = 1
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Shape1' AS shape WITH ;
+		BackStyle = 0, ;
+		Height = 373, ;
+		Left = 11, ;
+		Name = "Shape1", ;
+		SpecialEffect = 0, ;
+		Top = 42, ;
+		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 = 337, ;
+		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 = 12, ;
+		Format = "K", ;
+		Height = 23, ;
+		Left = 192, ;
+		Name = "Text1", ;
+		ReadOnly = .F., ;
+		TabIndex = 2, ;
+		Top = 129, ;
+		Value = , ;
+		Width = 225, ;
+		ZOrderSet = 25
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text10' AS textbox WITH ;
+		Alignment = 0, ;
+		BackColor = 254,255,240, ;
+		BackStyle = 0, ;
+		BorderStyle = 1, ;
+		ControlSource = "m.numar", ;
+		FontName = "BankGothic Md BT", ;
+		FontSize = 12, ;
+		Format = "K", ;
+		Height = 23, ;
+		Left = 192, ;
+		Name = "Text10", ;
+		ReadOnly = .F., ;
+		TabIndex = 8, ;
+		Top = 300, ;
+		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 = 12, ;
+		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 = 352, ;
+		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 = 12, ;
+		Format = "K", ;
+		Height = 23, ;
+		Left = 192, ;
+		Name = "Text3", ;
+		ReadOnly = .F., ;
+		TabIndex = 10, ;
+		ToolTipText = "Introduceti anul (inclusiv secolul).", ;
+		Top = 382, ;
+		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 = 12, ;
+		Format = "K", ;
+		Height = 23, ;
+		Left = 192, ;
+		Name = "Text4", ;
+		ReadOnly = .F., ;
+		TabIndex = 1, ;
+		ToolTipText = "Introduceti numele complet al noii firme", ;
+		Top = 101, ;
+		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 = 12, ;
+		Format = "K", ;
+		Height = 23, ;
+		Left = 192, ;
+		Name = "Text5", ;
+		ReadOnly = .F., ;
+		TabIndex = 3, ;
+		Top = 156, ;
+		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 = 12, ;
+		Format = "K", ;
+		Height = 23, ;
+		Left = 192, ;
+		Name = "Text6", ;
+		ReadOnly = .F., ;
+		TabIndex = 4, ;
+		Top = 183, ;
+		Value = , ;
+		Width = 225, ;
+		ZOrderSet = 25
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text7' AS textbox WITH ;
+		Alignment = 0, ;
+		BackColor = 254,255,240, ;
+		BackStyle = 0, ;
+		BorderStyle = 1, ;
+		ControlSource = "m.cont_banca", ;
+		FontName = "BankGothic Md BT", ;
+		FontSize = 12, ;
+		Format = "K", ;
+		Height = 23, ;
+		Left = 192, ;
+		Name = "Text7", ;
+		ReadOnly = .F., ;
+		TabIndex = 5, ;
+		Top = 209, ;
+		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 = 12, ;
+		Format = "K", ;
+		Height = 23, ;
+		Left = 192, ;
+		Name = "Text8", ;
+		ReadOnly = .F., ;
+		TabIndex = 6, ;
+		Top = 248, ;
+		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 = 12, ;
+		Format = "K", ;
+		Height = 23, ;
+		Left = 192, ;
+		Name = "Text9", ;
+		ReadOnly = .F., ;
+		TabIndex = 7, ;
+		Top = 274, ;
+		Value = , ;
+		Width = 225, ;
+		ZOrderSet = 25
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
+		Caption = "CONTAFIN IMOBILIZARI", ;
+		FontSize = 13, ;
+		Left = 8, ;
+		Name = "Titlufrumos1", ;
+		Top = 5
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
+	
+	PROCEDURE Activate
+		*public M.AN
+		
+		M.LUU=''
+		m.luU=STR(MONTH(DATE()))
+		M.AN=ALLTRIM(STR(YEAR(DATE())))
+		m.LUU=RIGHT('0'+ALLTRIM(m.lUU),2)
+		M.NL=M.LUU
+		*M.AN=XXAN
+		
+		*thisform.ttfirma="Acest program poate lucra cu mai multe firme. Introduceti numele complet al noii firme."
+		*thisform.ttluna="Introduceti (in cifre) numarul lunii contabile cu care doriti sa incepeti."
+		*thisform.ttanul="Introduceti anul (inclusiv secolul)."
+		
+	ENDPROC
+
+	PROCEDURE seriadebaza
+		DO seriadebaza IN proceduri.prg
+		
+	ENDPROC
+
+	PROCEDURE Cmdtermin1.Click
+		*DO NOT RELEASE
+	ENDPROC
+
+	PROCEDURE Cmdtermin1.Command1.Click
+		*
+	ENDPROC
+
+	PROCEDURE Cmdtermin1.Command1.Valid
+		PRIVATE LAN,LLUN
+		LOCAL I,J,NI
+		
+		LAN='AN'+M.AN
+		LLUN='DATE'+M.NL
+		I=.F.
+		
+		*SCRIE NUMELE SCURT AL FIRMEI___________________
+		SELECT 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
+		
+		
+		*DACA FIRMA NU EXISTA DEJA_______________
+		IF !I
+			APPE BLANK
+			NFSCURT=M.FSCURT
+			m.calefirm=dirgen+'\'+NFSCURT
+			calefirma=m.calefirm
+			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
+			CD &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
+			CD &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\*.*
+		
+			CD &NFSCURT\&LAN\&LLUN
+			RENAME ACT.DBF TO ACT_.DBF
+			RENAME ACT.CDX TO ACT_.CDX
+			DELETE FILE ACT.*
+		
+		*SCRIU IN CALENDAR___________________
+			DIRFIRM=dirgen+NFSCURT
+			SELE 0
+			USE &calefirma\DATEAN\CALENDAR IN 0 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
+		
+		USE &calefirma\DATEAN\CUL IN 0 ALIAS CUL
+		THISFORM.SERIADEBAZA
+		USE IN CUL
+		DO TOTV
+		
+		
+		SELE LUNILEAN
+		SEEK (M.NL)
+		m.LUNA=NUMELUNA
+		
+		*schimb titlul__________________
+		capapl="CONTAFIN IMOBILIZARI     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

Ferestre/Vechi/valoare.sc2

@@ -0,0 +1,319 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="valoare.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 ffergen12 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="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Urmator1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		BorderStyle = 1
+		DataSession = 1
+		DoCreate = .T.
+		Height = 273
+		KeyPreview = .T.
+		Name = "Ffergen12"
+		Width = 452
+	*</PropValue>
+
+	ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
+		Height = 27, ;
+		Left = 388, ;
+		Name = "CMDRENUNT1", ;
+		Top = 3, ;
+		Width = 30, ;
+		ZOrderSet = 9, ;
+		Imbuton1.Height = 27, ;
+		Imbuton1.Name = "Imbuton1", ;
+		Imbuton1.Width = 30, ;
+		Command1.Name = "Command1"
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
+		Height = 24, ;
+		Left = 12, ;
+		Name = "Cmdtermin1", ;
+		TabIndex = 2, ;
+		Top = 240, ;
+		Visible = .F., ;
+		Width = 29, ;
+		ZOrderSet = 8, ;
+		Imbuton1.Height = 27, ;
+		Imbuton1.Name = "Imbuton1", ;
+		Imbuton1.Width = 30, ;
+		Command1.Name = "Command1"
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Grid1' AS grid WITH ;
+		ColumnCount = 3, ;
+		DeleteMark = .F., ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		Height = 189, ;
+		Left = 11, ;
+		Name = "Grid1", ;
+		Panel = 1, ;
+		RecordSource = "tmf", ;
+		RowHeight = 19, ;
+		TabIndex = 1, ;
+		Top = 43, ;
+		Width = 426, ;
+		ZOrderSet = 4, ;
+		Column1.BackColor = 255,255,255, ;
+		Column1.ControlSource = "denumire", ;
+		Column1.FontName = "Arial Narrow", ;
+		Column1.FontSize = 10, ;
+		Column1.Name = "Column1", ;
+		Column1.ReadOnly = .T., ;
+		Column1.Width = 173, ;
+		Column2.BackColor = 255,255,255, ;
+		Column2.ControlSource = "valini", ;
+		Column2.FontName = "Arial Narrow", ;
+		Column2.FontSize = 10, ;
+		Column2.InputMask = (GET_MASK(14,gnZ)), ;
+		Column2.Name = "Column2", ;
+		Column2.ReadOnly = .T., ;
+		Column2.Width = 108, ;
+		Column3.BackColor = 232,255,255, ;
+		Column3.ControlSource = "valtrans", ;
+		Column3.FontName = "Arial Narrow", ;
+		Column3.FontSize = 10, ;
+		Column3.Format = "rk", ;
+		Column3.InputMask = (GET_MASK(14,gnZ)), ;
+		Column3.Name = "Column3", ;
+		Column3.Width = 113
+		*< END OBJECT: BaseClass="grid" />
+
+	ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
+		Alignment = 2, ;
+		Caption = "Denumire", ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
+		BackColor = 255,255,255, ;
+		BorderStyle = 0, ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Margin = 0, ;
+		Name = "Text1", ;
+		ReadOnly = .T.
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
+		Alignment = 2, ;
+		Caption = "Valoarea initiala", ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
+		BackColor = 255,255,255, ;
+		BorderStyle = 0, ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Margin = 0, ;
+		Name = "Text1", ;
+		ReadOnly = .T.
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
+		Alignment = 2, ;
+		Caption = "Valoarea retinuta", ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		Name = "Header1"
+		*< END OBJECT: BaseClass="header" />
+
+	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
+		BackColor = 232,255,255, ;
+		BorderStyle = 0, ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Margin = 0, ;
+		Name = "Text1"
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .F., ;
+		BackStyle = 0, ;
+		Caption = "Introduceti valorile care se transforma in mijloc fix ", ;
+		FontSize = 10, ;
+		Height = 22, ;
+		Left = 15, ;
+		Name = "Label1", ;
+		TabIndex = 4, ;
+		Top = 16, ;
+		Width = 287, ;
+		WordWrap = .T., ;
+		ZOrderSet = 3
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label3' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Total valoare retinuta", ;
+		Height = 17, ;
+		Left = 184, ;
+		Name = "Label3", ;
+		TabIndex = 5, ;
+		Top = 240, ;
+		Width = 116, ;
+		ZOrderSet = 5
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Shape1' AS shape WITH ;
+		BackStyle = 0, ;
+		Height = 229, ;
+		Left = 4, ;
+		Name = "Shape1", ;
+		SpecialEffect = 0, ;
+		Top = 38, ;
+		Width = 443, ;
+		ZOrderSet = 0
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Shape2' AS shape WITH ;
+		BackColor = 0,64,128, ;
+		BorderStyle = 0, ;
+		BorderWidth = 0, ;
+		Height = 33, ;
+		Left = -1, ;
+		Name = "Shape2", ;
+		Top = 0, ;
+		Width = 385, ;
+		ZOrderSet = 6
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		BackColor = 255,255,255, ;
+		ControlSource = "total", ;
+		DisabledBackColor = 255,255,255, ;
+		FontName = "Arial Narrow", ;
+		FontSize = 10, ;
+		Format = "rk", ;
+		Height = 23, ;
+		InputMask = (GET_MASK(14,gnZ)), ;
+		Left = 302, ;
+		Name = "Text2", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 2, ;
+		TabIndex = 3, ;
+		Top = 237, ;
+		Width = 119, ;
+		ZOrderSet = 2
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
+		Caption = "Introduceti valoarea care se transforma in mijloc fix", ;
+		Height = 37, ;
+		Left = 4, ;
+		Name = "Titlufrumos1", ;
+		Top = 9, ;
+		Width = 323, ;
+		ZOrderSet = 7
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
+
+	ADD OBJECT 'Urmator1' AS urmator WITH ;
+		Height = 27, ;
+		Left = 420, ;
+		Name = "Urmator1", ;
+		Top = 3, ;
+		Width = 30, ;
+		Imbuton1.Height = 27, ;
+		Imbuton1.Name = "Imbuton1", ;
+		Imbuton1.Width = 30, ;
+		Command1.Name = "Command1"
+		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
+	
+	PROCEDURE Init
+		PUBLIC total
+		
+	ENDPROC
+
+	PROCEDURE KeyPress
+		LPARAMETERS nKeyCode, nShiftAltCtrl
+		*!*		IF nkeycode=13
+		*!*			IF UPPER(this.ActiveControl.name)="GRID1"
+		*!*				NODEFAULT 
+		*!*				SELECT TMF
+		*!*				SKIP
+		*!*				THIS.GRID1.SetFocus
+		*!*				
+		*!*			ENDIF
+		*!*		ENDIF 
+	ENDPROC
+
+	PROCEDURE Cmdtermin1.Command1.GotFocus
+		thisform.text2.Refresh 
+	ENDPROC
+
+	PROCEDURE Grid1.AfterRowColChange
+		LPARAMETERS nColIndex
+		r=RECNO()
+		SELECT tmf
+		SUM valtrans TO total
+		thisform.text2.Refresh 
+		GO r
+	ENDPROC
+
+	PROCEDURE Grid1.BeforeRowColChange
+		LPARAMETERS nColIndex
+		
+	ENDPROC
+
+	PROCEDURE Grid1.Column3.Text1.KeyPress
+		LPARAMETERS nKeyCode, nShiftAltCtrl
+	ENDPROC
+
+	PROCEDURE Grid1.Column3.Text1.Valid
+		IF valtrans>valini
+		DO mesaj WITH "Valoarea transformata este mai mare decat ",'valoarea initiala !'
+		RETURN 0
+		ENDIF 
+	ENDPROC
+
+	PROCEDURE Urmator1.Command1.Click
+		BUTON=1
+		THISFORM.release 
+	ENDPROC
+
+	PROCEDURE Urmator1.Command1.GotFocus
+		thisform.text2.Refresh 
+	ENDPROC
+
+ENDDEFINE

Ferestre/Vechi/valori.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="valori.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 ffergen12 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="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+
+	*<PropValue>
+		DataSession = 1
+		DoCreate = .T.
+		Height = 145
+		Name = "Ffergen12"
+		Width = 315
+		Line1.Name = "Line1"
+		Line1.ZOrderSet = 1
+	*</PropValue>
+
+	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
+		Caption = "\<CONTINUARE", ;
+		Height = 25, ;
+		Left = 206, ;
+		Name = "Cmdtermin1", ;
+		TabIndex = 2, ;
+		Top = 113, ;
+		Width = 89, ;
+		ZOrderSet = 4
+		*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .F., ;
+		Caption = "Introduceti valoarea care se transforma in mijloc fix pentru imobilizarea:", ;
+		Height = 41, ;
+		Left = 12, ;
+		Name = "Label1", ;
+		Top = 7, ;
+		Width = 287, ;
+		WordWrap = .T., ;
+		ZOrderSet = 5
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		AutoSize = .T., ;
+		Caption = "Valoarea initiala", ;
+		Height = 17, ;
+		Left = 15, ;
+		Name = "Label2", ;
+		Top = 58, ;
+		Width = 90, ;
+		ZOrderSet = 7
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Shape1' AS shape WITH ;
+		Height = 139, ;
+		Left = 2, ;
+		Name = "Shape1", ;
+		SpecialEffect = 0, ;
+		Top = 3, ;
+		Width = 309, ;
+		ZOrderSet = 0
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		ControlSource = "m.valoare", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 15, ;
+		Name = "Text1", ;
+		ReadOnly = .T., ;
+		TabIndex = 3, ;
+		Top = 78, ;
+		Width = 136, ;
+		ZOrderSet = 2
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		ControlSource = "valtrans", ;
+		Format = "rk", ;
+		Height = 23, ;
+		InputMask = "99 999 999 999 999", ;
+		Left = 159, ;
+		Name = "Text2", ;
+		TabIndex = 1, ;
+		Top = 79, ;
+		Width = 136, ;
+		ZOrderSet = 3
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text3' AS textbox WITH ;
+		BorderStyle = 0, ;
+		ControlSource = "m.denumire", ;
+		FontBold = .T., ;
+		Height = 18, ;
+		Left = 124, ;
+		Name = "Text3", ;
+		ReadOnly = .T., ;
+		SpecialEffect = 1, ;
+		Top = 21, ;
+		Width = 181, ;
+		ZOrderSet = 6
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE Text2.Valid
+		IF valtrans>m.valoare
+		DO mesaj WITH "Valoarea transformata este mai mare decat ",'valoarea initiala'
+		RETURN
+		ENDIF 
+	ENDPROC
+
+ENDDEFINE

Ferestre/frm_modificare.sc2

@@ -0,0 +1,136 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="frm_modificare.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_modificare12 AS frm_modificare OF "..\clase\oimobilizari.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*<PropValue>
+		DataSession = 1
+		DoCreate = .T.
+		Name = "Frm_modificare12"
+		Shape3.Name = "Shape3"
+		Shape1.Name = "Shape1"
+		Shape2.Name = "Shape2"
+		Shape4.Name = "Shape4"
+		_shape1.Name = "_shape1"
+		_shape2.Name = "_shape2"
+		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
+		Clb_nract.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_nract.Name = "Clb_nract"
+		Clb_nract.Text_simplu1.Name = "Text_simplu1"
+		Clb_dataact.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_dataact.Name = "Clb_dataact"
+		Clb_dataact.Text_simplu1.Name = "Text_simplu1"
+		Clb_nrpif.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_nrpif.Name = "Clb_nrpif"
+		Clb_nrpif.Text_simplu1.Name = "Text_simplu1"
+		Cb_tx_simplu1.Name = "Cb_tx_simplu1"
+		Cb_tx_simplu1._cbbase1.Name = "_cbbase1"
+		Cb_tx_simplu1._lbbase1.Name = "_lbbase1"
+		Cb_tip_amortizare.Name = "Cb_tip_amortizare"
+		Cb_tip_amortizare._cbbase1.Name = "_cbbase1"
+		Cb_tip_amortizare._lbbase1.Name = "_lbbase1"
+		Clb_procent.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_procent.Name = "Clb_procent"
+		Clb_procent.Text_simplu1.Name = "Text_simplu1"
+		Clb_datapif.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_datapif.Name = "Clb_datapif"
+		Clb_datapif.Text_simplu1.Name = "Text_simplu1"
+		Cb_coeficient.Name = "Cb_coeficient"
+		Cb_coeficient._cbbase1.Name = "_cbbase1"
+		Cb_coeficient._lbbase1.Name = "_lbbase1"
+		Ed_denumire.Name = "Ed_denumire"
+		Ed_denumire._edbase1.Name = "_edbase1"
+		Ed_denumire._lbbase1.Name = "_lbbase1"
+		Ed_tx_simplu1.Name = "Ed_tx_simplu1"
+		Ed_tx_simplu1._edbase1.Name = "_edbase1"
+		Ed_tx_simplu1._lbbase1.Name = "_lbbase1"
+		BUT_TERMIN1.Name = "BUT_TERMIN1"
+		Label1.Name = "Label1"
+		Label2.Name = "Label2"
+		Clb_nr_inventar.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_nr_inventar.Name = "Clb_nr_inventar"
+		Clb_nr_inventar.Text_simplu1.Name = "Text_simplu1"
+		Clb_cod.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_cod.Name = "Clb_cod"
+		Clb_cod.Text_simplu1.Name = "Text_simplu1"
+		Clb_dns.lb_luni.Name = "lb_luni"
+		Clb_dns.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_dns.Name = "Clb_dns"
+		Clb_dns.Text_simplu1.Name = "Text_simplu1"
+		Clb_sectie.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_sectie.Name = "Clb_sectie"
+		Clb_sectie.Text_simplu1.Name = "Text_simplu1"
+		Clb_lucrare.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_lucrare.Name = "Clb_lucrare"
+		Clb_lucrare.Text_simplu1.Name = "Text_simplu1"
+		Clb_gestiune.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_gestiune.Name = "Clb_gestiune"
+		Clb_gestiune.Text_simplu1.Name = "Text_simplu1"
+		Clb_responsabil.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_responsabil.Name = "Clb_responsabil"
+		Clb_responsabil.Text_simplu1.Name = "Text_simplu1"
+		Clb_cont.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_cont.Name = "Clb_cont"
+		Clb_cont.Text_simplu1.Name = "Text_simplu1"
+		Clb_acont.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_acont.Name = "Clb_acont"
+		Clb_acont.Text_simplu1.Name = "Text_simplu1"
+		Clb_valoare.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_valoare.Name = "Clb_valoare"
+		Clb_valoare.Text_simplu1.Name = "Text_simplu1"
+		Clb_uzura.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_uzura.Name = "Clb_uzura"
+		Clb_uzura.Text_simplu1.Name = "Text_simplu1"
+		Clb_val_ramasa.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_val_ramasa.Name = "Clb_val_ramasa"
+		Clb_val_ramasa.Text_simplu1.Name = "Text_simplu1"
+		Clb_dns_ramas.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_dns_ramas.Name = "Clb_dns_ramas"
+		Clb_dns_ramas.Text_simplu1.Name = "Text_simplu1"
+		Label3.Name = "Label3"
+		Clb_dataop.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_dataop.Name = "Clb_dataop"
+		Clb_dataop.Text_simplu1.Name = "Text_simplu1"
+		Label4.Name = "Label4"
+		Clb_rata.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_rata.Name = "Clb_rata"
+		Clb_rata.Text_simplu1.Name = "Text_simplu1"
+		Clb_cota_an.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_cota_an.Name = "Clb_cota_an"
+		Clb_cota_an.Text_simplu1.Name = "Text_simplu1"
+		Clb_ultima_rata.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_ultima_rata.Name = "Clb_ultima_rata"
+		Clb_ultima_rata.Text_simplu1.Name = "Text_simplu1"
+		Clb_data_ultima_rata.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_data_ultima_rata.Name = "Clb_data_ultima_rata"
+		Clb_data_ultima_rata.Text_simplu1.Name = "Text_simplu1"
+		But_renunt1.Name = "But_renunt1"
+		Clb_lperioada_rata.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_lperioada_rata.Name = "Clb_lperioada_rata"
+		Clb_lperioada_rata.tx_n1.Name = "tx_n1"
+		Clb_lperioada_rata.tx_n2.Name = "tx_n2"
+		Clb_luna_intre1.Lb_simplu1.Name = "Lb_simplu1"
+		Clb_luna_intre1.Name = "Clb_luna_intre1"
+		Clb_luna_intre1.tx_n1.Name = "tx_n1"
+		Clb_luna_intre1.tx_n2.Name = "tx_n2"
+	*</PropValue>
+
+ENDDEFINE

Ferestre/fundal.sc2

@@ -0,0 +1,560 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (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="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Imagine1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Imagine2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Imagine3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="chkExperimental" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*m: jurnal
+		*m: nexperimental_assign
+		*p: nexperimental		&& Mod experimental. se citeste optiunea din  optiuni_utilizator
+		*p: nlb_activ
+		*p: npagina
+		*p: _memberdata		&& XML Metadata for customizable properties
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		AlwaysOnBottom = .T.
+		AutoCenter = .T.
+		BackColor = 255,255,255
+		BorderStyle = 0
+		Caption = ""
+		Closable = .F.
+		ControlBox = .F.
+		DoCreate = .T.
+		Enabled = .T.
+		FillColor = 0,0,0
+		FontCharSet = 238
+		HalfHeightCaption = .F.
+		Height = 429
+		MaxButton = .F.
+		MinButton = .F.
+		Movable = .F.
+		Name = "FORM1"
+		nexperimental = 0
+		nlb_activ = 0
+		npagina = 0
+		Picture = ..\..\
+		ShowTips = .T.
+		Width = 797
+		WindowState = 2
+		_memberdata = <VFPData>
+			<memberdata name="nexperimental" display="nExperimental"/>
+			<memberdata name="nexperimental_assign" display="nExperimental_Assign"/>
+		</VFPData>
+	*</PropValue>
+
+	ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ;
+		ErasePage = .T., ;
+		Height = 457, ;
+		Left = -2, ;
+		Name = "_pgfrmbase1", ;
+		Top = 60, ;
+		Page1.Cw2.Label_item1.Name = "Label_item1", ;
+		Page1.Cw2.Name = "Cw2", ;
+		Page1.Cw3.Label_item1.Name = "Label_item1", ;
+		Page1.Cw3.Name = "Cw3", ;
+		Page1.Cw4.Label_item1.Name = "Label_item1", ;
+		Page1.Cw4.Name = "Cw4", ;
+		Page1.CW5.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
+		Page1.CW5.Name = "CW5", ;
+		Page1.Name = "Page1", ;
+		Page1.Pict_liniuta1.Name = "Pict_liniuta1", ;
+		Page1.Pict_liniuta1.Picture = ..\grafice\f3.jpg, ;
+		Page1.Pict_liniuta2.Name = "Pict_liniuta2", ;
+		Page1.Pict_liniuta2.Picture = ..\grafice\f3.jpg, ;
+		Page1.Pict_liniuta3.Name = "Pict_liniuta3", ;
+		Page1.Pict_meniu1.Name = "Pict_meniu1", ;
+		Page1.Pict_meniu1.Picture = ..\grafice\f2.jpg, ;
+		Page2.Cw1.Label_item1.Name = "Label_item1", ;
+		Page2.Cw1.Name = "Cw1", ;
+		Page2.Cw2.Label_item1.Name = "Label_item1", ;
+		Page2.Cw2.Name = "Cw2", ;
+		Page2.CW3.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
+		Page2.CW3.Name = "CW3", ;
+		Page2.CW4.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
+		Page2.CW4.Name = "CW4", ;
+		Page2.Cw5.Label_item1.Name = "Label_item1", ;
+		Page2.Cw5.Name = "Cw5", ;
+		Page2.Cw6.Label_item1.Name = "Label_item1", ;
+		Page2.Cw6.Name = "Cw6", ;
+		Page2.Name = "Page2", ;
+		Page2.Pict_liniuta1.Name = "Pict_liniuta1", ;
+		Page2.Pict_liniuta2.Name = "Pict_liniuta2", ;
+		Page2.Pict_liniuta3.Name = "Pict_liniuta3", ;
+		Page2.Pict_liniuta4.Name = "Pict_liniuta4", ;
+		Page2.Pict_meniu1.Name = "Pict_meniu1", ;
+		Page3.Cw1.Label_item1.Name = "Label_item1", ;
+		Page3.Cw1.Name = "Cw1", ;
+		Page3.Cw2.Label_item1.Name = "Label_item1", ;
+		Page3.Cw2.Name = "Cw2", ;
+		Page3.CW3.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
+		Page3.CW3.Name = "CW3", ;
+		Page3.CW4.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
+		Page3.CW4.Name = "CW4", ;
+		Page3.Cw5.Label_item1.Name = "Label_item1", ;
+		Page3.Cw5.Name = "Cw5", ;
+		Page3.Name = "Page3", ;
+		Page3.Pict_liniuta1.Name = "Pict_liniuta1", ;
+		Page3.Pict_liniuta2.Name = "Pict_liniuta2", ;
+		Page3.Pict_liniuta4.Name = "Pict_liniuta4", ;
+		Page3.Pict_meniu1.Name = "Pict_meniu1", ;
+		Page4.CW1.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
+		Page4.CW1.Name = "CW1", ;
+		Page4.CW2.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
+		Page4.CW2.Name = "CW2", ;
+		Page4.CW3.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
+		Page4.CW3.Name = "CW3", ;
+		Page4.CW4.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
+		Page4.CW4.Name = "CW4", ;
+		Page4.Name = "Page4", ;
+		Page4.Pict_liniuta2.Name = "Pict_liniuta2", ;
+		Page4.Pict_liniuta3.Name = "Pict_liniuta3", ;
+		Page4.Pict_meniu1.Name = "Pict_meniu1"
+		*< END OBJECT: ClassLib="..\clase\ofundal_imob.vcx" BaseClass="pageframe" />
+
+	ADD OBJECT 'chkExperimental' AS _checkbox WITH ;
+		Alignment = 0, ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Experimental", ;
+		ControlSource = "thisform.nExperimental", ;
+		ForeColor = 255,255,255, ;
+		Height = 18, ;
+		Left = 204, ;
+		Name = "chkExperimental", ;
+		ReadOnly = .T., ;
+		ToolTipText = "Un mod mai rapid de calcul amortizari (10.06.2020). Se foloseste la vizualizare amortizare si la rapoarte.", ;
+		Top = 31, ;
+		Value = 0, ;
+		Visible = .F., ;
+		Width = 95
+		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
+
+	ADD OBJECT 'Image1' AS image WITH ;
+		BackStyle = 0, ;
+		Height = 220, ;
+		Left = 228, ;
+		Name = "Image1", ;
+		Picture = ..\grafice\roaimob.bmp, ;
+		Stretch = 0, ;
+		Top = 180, ;
+		Width = 556
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Image2' AS image WITH ;
+		Height = 63, ;
+		Left = 0, ;
+		Name = "Image2", ;
+		Picture = ..\grafice\f1.jpg, ;
+		Stretch = 2, ;
+		Top = 0, ;
+		Width = 851
+		*< END OBJECT: BaseClass="image" />
+
+	ADD OBJECT 'Imagine1' AS imagine WITH ;
+		ccod = B01;C01;D01, ;
+		Height = 48, ;
+		Left = 7, ;
+		Name = "Imagine1", ;
+		nid_img = 1, ;
+		Picture = ..\grafice\gene1.bmp, ;
+		picturedown = d:\contafin_oracle\roaimob\grafice\gene2.bmp, ;
+		pictureup = d:\contafin_oracle\roaimob\grafice\gene1.bmp, ;
+		ToolTipText = "Introducere", ;
+		Top = 7, ;
+		Width = 60
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Imagine2' AS imagine WITH ;
+		ccod = B02;C02;D02, ;
+		Height = 48, ;
+		Left = 76, ;
+		Name = "Imagine2", ;
+		Picture = ..\grafice\fact1.bmp, ;
+		picturedown = d:\contafin_oracle\roaimob\grafice\fact2.bmp, ;
+		pictureup = d:\contafin_oracle\roaimob\grafice\fact1.bmp, ;
+		ToolTipText = "Preluare din contabilitate", ;
+		Top = 7, ;
+		Width = 60
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Imagine3' AS imagine WITH ;
+		ccod = B03;B04;C03;C04;D03, ;
+		Height = 48, ;
+		Left = 141, ;
+		Name = "Imagine3", ;
+		Picture = ..\grafice\viz1.bmp, ;
+		picturedown = d:\contafin_oracle\roaimob\grafice\viz2.bmp, ;
+		pictureup = d:\contafin_oracle\roaimob\grafice\viz1.bmp, ;
+		ToolTipText = "Vizualizare", ;
+		Top = 7, ;
+		Width = 60
+		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Operator:", ;
+		FontItalic = .T., ;
+		ForeColor = 0,0,128, ;
+		Height = 17, ;
+		Left = 7, ;
+		Name = "Label1", ;
+		Top = 381, ;
+		Width = 53
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Nivel de acces:", ;
+		FontItalic = .T., ;
+		ForeColor = 0,0,128, ;
+		Height = 17, ;
+		Left = 7, ;
+		Name = "Label2", ;
+		Top = 401, ;
+		Width = 85
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
+		Anchor = 9, ;
+		Caption = "Operator:", ;
+		FontItalic = .T., ;
+		ForeColor = 255,255,255, ;
+		Left = 482, ;
+		Name = "lb_utilizator", ;
+		Top = 8
+		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
+
+	ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
+		Anchor = 9, ;
+		Caption = "nume_utilizator", ;
+		FontBold = .T., ;
+		FontItalic = .T., ;
+		ForeColor = 255,255,255, ;
+		Left = 536, ;
+		Name = "lb_utilizator1", ;
+		Top = 8, ;
+		Visible = .F.
+		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
+
+	ADD OBJECT 'Text1' AS textbox WITH ;
+		BackStyle = 0, ;
+		BorderStyle = 0, ;
+		ControlSource = "utilizator", ;
+		FontBold = .T., ;
+		FontItalic = .T., ;
+		ForeColor = 0,0,128, ;
+		Height = 23, ;
+		Left = 62, ;
+		Name = "Text1", ;
+		ReadOnly = .T., ;
+		TabStop = .F., ;
+		Top = 380, ;
+		Width = 147
+		*< END OBJECT: BaseClass="textbox" />
+
+	ADD OBJECT 'Text2' AS textbox WITH ;
+		BackStyle = 0, ;
+		BorderStyle = 0, ;
+		ControlSource = "m.nivel", ;
+		FontBold = .T., ;
+		FontItalic = .T., ;
+		ForeColor = 0,0,128, ;
+		Height = 23, ;
+		Left = 93, ;
+		Name = "Text2", ;
+		ReadOnly = .T., ;
+		TabStop = .F., ;
+		Top = 400, ;
+		Width = 28
+		*< END OBJECT: BaseClass="textbox" />
+	
+	PROCEDURE Activate
+		*!* 10.06.2020
+		*!* initializez variabila gnExperimental pentru calcul experimental
+		
+		*!*	THISFORM.AUTOCENTER=.T.
+		
+		LOCAL lnScrH,lnScrW 
+		lnScrW = _screen.Width
+		lnScrH = _screen.Height
+		
+		thisform.image1.Top  = lnScrH - thisform.image1.Height - 50
+		thisform.image1.Left = lnScrW - thisform.image1.Width - 30
+		thisform.image2.Width = lnScrW + 30
+		thisform._pgfrmbase1.Width = lnScrW
+		thisform._pgfrmbase1.Height = thisform.Height-thisform.image2.Height 
+		thisform._pgfrmbase1.page1.Pict_meniu1.Height = thisform._pgfrmbase1.Height
+		thisform._pgfrmbase1.page2.Pict_meniu1.Height = thisform._pgfrmbase1.Height
+		thisform._pgfrmbase1.page3.Pict_meniu1.Height = thisform._pgfrmbase1.Height
+		thisform._pgfrmbase1.page4.Pict_meniu1.Height = thisform._pgfrmbase1.Height
+		
+		
+		* Experimental
+		lcValoare = citeste_optiune_utilizator('IMOB_EXPERIMENTAL')
+		Thisform.nExperimental = INT(VAL(m.lcValoare))
+		
+		
+	ENDPROC
+
+	PROCEDURE Init
+		*!*	THISFORM.AUTOCENTER=.T.
+		*!* Locale
+		IF TYPE('goLocale') = 'O'AND TYPE('glTraducere') = 'L'
+			IF glTraducere
+				golocale.SetLocale( thisform )
+			EndIf 
+		ENDIF 	
+		*!* Locale ^
+		
+		Local lcValoare
+		Thisform.chkExperimental.ToolTipText = '* 10.06.2020 un mod rapid de calcul situatie lunara amortizari. Se foloseste la vizualizare amortizari si rapoarte.'
+		
+		lcValoare = citeste_optiune_utilizator('IMOB_EXPERIMENTAL')
+		Thisform.nExperimental = Int(Val(m.lcValoare))
+		* 25.11.2021
+		Thisform.nExperimental = 1
+	ENDPROC
+
+	PROCEDURE jurnal
+	ENDPROC
+
+	PROCEDURE KeyPress
+		Lparameters nKeyCode, nShiftAltCtrl
+		If nKeyCode==-1	&&F2
+			Quit
+		Endif
+		*!*	lnLbActiv=Thisform.nlb_activ
+		*!*	Thisform.npagina=Thisform._pgfrmbase1.ActivePage
+		*!*	lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
+		*!*	Do Case
+		*!*	Case nKeyCode==-1		&& F2
+		*!*		Quit
+		*!*	Case nKeyCode=5	And lnLbActiv>0			&& sageata sus
+		*!*		Thisform.nlb_activ=Thisform.nlb_activ-1
+		*!*		lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseEnter"
+		*!*		lcEventLeave=lcLabel+Alltrim(Str(lnLbActiv))+".MouseLeave"
+		*!*		&lcEventLeave
+		*!*		&lcEventEnter
+		*!*	Case nKeyCode=24 And lnLbActiv>0		&& sageata jos
+		*!*		Thisform.nlb_activ=Thisform.nlb_activ+1
+		*!*		lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseEnter"
+		*!*		lcEventLeave=lcLabel+Alltrim(Str(lnLbActiv))+".MouseLeave"
+		*!*		&lcEventLeave
+		*!*		&lcEventEnter
+		*!*	Case nKeyCode=24 And lnLbActiv=0		&& sageata jos
+		*!*		Thisform.nlb_activ=1
+		*!*		lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseEnter"
+		*!*		&lcEventEnter
+		*!*	Case nKeyCode=13 And lnLbActiv>0		&&	enter
+		*!*		lcEventClick=lcLabel+Alltrim(Str(lnLbActiv))+".Click"
+		*!*		&lcEventClick
+		*!*		lcEventLeave=lcLabel+Alltrim(Str(lnLbActiv))+".MouseLeave"
+		*!*		&lcEventLeave
+		*!*		Thisform.nlb_activ=0
+		*!*	Endcase
+	ENDPROC
+
+	PROCEDURE nexperimental_assign
+		lparameters tnExperimental
+		* 25.11.2021
+		tnExperimental = 1
+		
+		This.nExperimental = tnExperimental
+		
+		IF tnExperimental = 1
+			this.chkExperimental.Value = 1
+			this.chkExperimental.BackStyle = 1  && OPAC
+			this.chkExperimental.BackColor = RGB(255,0,0) && ROSU
+		ELSE
+			this.chkExperimental.Value = 0
+			this.chkExperimental.BackStyle = 0 && TRANSPARENT
+			this.chkExperimental.BackColor = RGB(240,240,240)
+		ENDIF 
+		
+		
+		goApp.nExperimental = m.tnExperimental
+		
+	ENDPROC
+
+	PROCEDURE RightClick
+		Do start_firma In ostartfirma.prg
+		verifica_drepturi('gofundal','_pgfrmbase1')
+		*!*	Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
+		
+	ENDPROC
+
+	PROCEDURE Show
+		LPARAMETERS nStyle
+		DODEFAULT(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
+		
+		DO start_firma IN ostartfirma.prg 	
+		primadata = .F.
+		verifica_drepturi('gofundal','_pgfrmbase1')
+		Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
+		Thisform.lb_utilizator1.Visible=.T.
+		DO lansare_toolbar IN oproceduri_comune.prg
+		DO lansare_help IN oproceduri_comune.prg
+		
+	ENDPROC
+
+	PROCEDURE chkExperimental.Valid
+		Local lcValoare
+		lcValoare = Alltrim(Str(Thisform.nExperimental))
+		lnSucces = scrie_optiune_utilizator('IMOB_EXPERIMENTAL', m.lcValoare, '1 = MOD EXPERIMENTAL IMOBILIZARI, 0 = STANDARD')
+		IF m.lnSucces <= 0
+			lcValoare = citeste_optiune_utilizator('IMOB_EXPERIMENTAL')
+			Thisform.nExperimental = Int(Val(m.lcValoare))
+		ENDIF 
+	ENDPROC
+
+	PROCEDURE Image1.RightClick
+		thisform.rightclick
+	ENDPROC
+
+	PROCEDURE Imagine1.do_actiune
+		lnActivePg = thisform._pgfrmbase1.ActivePage
+		DO CASE 
+			CASE lnActivePg = 2 OR lnActivePg = 3
+				DO introducere_imob WITH lnActivePg-1 IN oproceduri_imob.prg
+			CASE lnActivePg = 4
+				DO introducere_imob_in_curs
+			OTHERWISE 
+			*
+		ENDCASE 
+	ENDPROC
+
+	PROCEDURE Imagine2.do_actiune
+		lnActivePg = thisform._pgfrmbase1.ActivePage
+		DO CASE 
+			CASE lnActivePg = 2
+				*DO preluare_corporale IN oproceduri_imob.prg
+			CASE lnActivePg = 3
+				*DO preluare_necorporale IN oproceduri_imob.prg
+			CASE lnActivePg = 4
+				*DO preluare_incurs
+			OTHERWISE 
+			*
+		ENDCASE 
+	ENDPROC
+
+	PROCEDURE Imagine3.do_actiune
+		lnActivePg = thisform._pgfrmbase1.ActivePage
+		DO CASE 
+			CASE lnActivePg = 2 OR lnActivePg = 3
+				DO vizualizare_lista_imob WITH lnActivePg-1 IN oproceduri_imob.prg
+			CASE lnActivePg = 4
+				DO vizualizare_lista_imob_in_curs
+			OTHERWISE 
+			*
+		ENDCASE 
+	ENDPROC
+
+	PROCEDURE lb_utilizator.RightClick
+		Thisform.RightClick
+	ENDPROC
+
+	PROCEDURE lb_utilizator1.RightClick
+		thisform.rightclick
+	ENDPROC
+
+	PROCEDURE _pgfrmbase1.Page1.Activate
+		*!*	If Thisform.npagina!=0 And Thisform.nlb_activ!=0
+		*!*		lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
+		*!*		lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseLeave"
+		*!*		&lcEventLeave
+		*!*	Endif
+		*!*	Thisform.nlb_activ=0
+	ENDPROC
+
+	PROCEDURE _pgfrmbase1.Page1.RightClick
+		DO start_firma IN ostartfirma.prg 	
+		verifica_drepturi('gofundal','_pgfrmbase1')
+		*!*	Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
+	ENDPROC
+
+	PROCEDURE _pgfrmbase1.Page2.RightClick
+		DO start_firma IN ostartfirma.prg 	
+		verifica_drepturi('gofundal','_pgfrmbase1')
+		*!*	Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
+	ENDPROC
+
+	PROCEDURE _pgfrmbase1.Page3.Activate
+		*!*	If Thisform.npagina!=0 And Thisform.nlb_activ!=0
+		*!*		lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
+		*!*		lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseLeave"
+		*!*		&lcEventLeave
+		*!*	Endif
+		*!*	Thisform.nlb_activ=0
+	ENDPROC
+
+	PROCEDURE _pgfrmbase1.Page3.RightClick
+		DO start_firma IN ostartfirma.prg 	
+		verifica_drepturi('gofundal','_pgfrmbase1')
+		*!*	Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
+		
+	ENDPROC
+
+	PROCEDURE _pgfrmbase1.Page4.Activate
+		*!*	If Thisform.npagina!=0 And Thisform.nlb_activ!=0
+		*!*		lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
+		*!*		lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseLeave"
+		*!*		&lcEventLeave
+		*!*	Endif
+		*!*	Thisform.nlb_activ=0
+	ENDPROC
+
+	PROCEDURE _pgfrmbase1.Page4.RightClick
+		DO start_firma IN ostartfirma.prg 	
+		verifica_drepturi('gofundal','_pgfrmbase1')
+		*!*	Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
+		
+	ENDPROC
+
+ENDDEFINE

Ferestre/rap_lista_inventar.sc2

@@ -0,0 +1,797 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="rap_lista_inventar.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_termin_renunt12 AS _frmbase OF "..\comun\clase\_frm_base.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtFiltru3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtFiltru2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtFiltru" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="edt_titlu" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtData" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="cboGrupare2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="cboGrupare" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="cboModel" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtFiltru4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="But_cautare1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="But_cautare2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="But_cautare3" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="optOrdonare" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*m: do_cauta_gestiune
+		*m: do_cauta_responsabil
+		*m: do_cauta_sectie
+		*p: ccont		&& Filtru dupa cont
+		*p: ccursor		&& Numele cursorului cu lista de imobilizari. Daca este completat se face selectie din cursor in loc de baza de date
+		*p: ctitlu
+		*p: ddata_inv
+		*p: nfiscala
+		*p: ntip
+		*p: ogestiune
+		*p: oresponsabil
+		*p: orezult
+		*p: osectie
+		*p: pcvalue_txt
+		*p: pcvalue_txt2
+		*p: pcvalue_txt3
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		BorderStyle = 1
+		ccont = 
+		ccursor = 
+		ctitlu = 
+		DataSession = 1
+		ddata_inv = 
+		DoCreate = .T.
+		Height = 430
+		Name = "Frm_termin_renunt12"
+		nfiscala = 0
+		ntip = 0
+		ogestiune = .NULL.
+		oresponsabil = .NULL.
+		orezult = 
+		osectie = .NULL.
+		pcvalue_txt = 
+		pcvalue_txt2 = 
+		pcvalue_txt3 = 
+		Width = 371
+		_memberdata = <VFPData>
+			<memberdata name="ogestiune" display="oGestiune"/>
+			<memberdata name="osectie" display="oSectie"/>
+			<memberdata name="oresponsabil" display="oResponsabil"/>
+			<memberdata name="ccursor" display="cCursor"/>
+			<memberdata name="ccont" display="cCont"/>
+		</VFPData>
+		_SHAPE1.Height = 29
+		_SHAPE1.Left = 0
+		_SHAPE1.Name = "_SHAPE1"
+		_SHAPE1.Top = 0
+		_SHAPE1.Width = 516
+		_SHAPE1.ZOrderSet = 1
+		_SHAPE2.Height = 29
+		_SHAPE2.Left = 306
+		_SHAPE2.Name = "_SHAPE2"
+		_SHAPE2.Top = 0
+		_SHAPE2.Width = 66
+		_SHAPE2.ZOrderSet = 3
+		LB_TITLU_ALB_B121.Caption = "Alegeti parametri raportului"
+		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
+		LB_TITLU_ALB_B121.TabIndex = 15
+		LB_TITLU_ALB_B121.ZOrderSet = 4
+		BUT_TERMIN1.Anchor = 8
+		BUT_TERMIN1.Left = 341
+		BUT_TERMIN1.Name = "BUT_TERMIN1"
+		BUT_TERMIN1.TabIndex = 14
+		BUT_TERMIN1.Top = 1
+		BUT_TERMIN1.ZOrderSet = 5
+		GRIDSORT1.Left = 9
+		GRIDSORT1.Name = "GRIDSORT1"
+		GRIDSORT1.Top = 24
+	*</PropValue>
+
+	ADD OBJECT 'But_cautare1' AS but_cautare WITH ;
+		caction = do_cauta_gestiune, ;
+		Left = 331, ;
+		Name = "But_cautare1", ;
+		TabIndex = 7, ;
+		TabStop = .F., ;
+		Top = 243
+		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'But_cautare2' AS but_cautare WITH ;
+		caction = do_cauta_sectie, ;
+		Left = 331, ;
+		Name = "But_cautare2", ;
+		TabIndex = 9, ;
+		TabStop = .F., ;
+		Top = 275
+		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'But_cautare3' AS but_cautare WITH ;
+		caction = do_cauta_responsabil, ;
+		Left = 331, ;
+		Name = "But_cautare3", ;
+		TabIndex = 11, ;
+		TabStop = .F., ;
+		Top = 305
+		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'But_listare1' AS but_listare WITH ;
+		Anchor = 8, ;
+		Left = 308, ;
+		Name = "But_listare1", ;
+		TabIndex = 25, ;
+		Top = 1
+		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'cboGrupare' AS combobox WITH ;
+		FontSize = 10, ;
+		Height = 24, ;
+		Left = 27, ;
+		Name = "cboGrupare", ;
+		RowSource = "crsGrupare1.criteriu", ;
+		RowSourceType = 2, ;
+		Style = 2, ;
+		TabIndex = 4, ;
+		Top = 162, ;
+		Value = Gestiune, ;
+		Width = 204, ;
+		ZOrderSet = 13
+		*< END OBJECT: BaseClass="combobox" />
+
+	ADD OBJECT 'cboGrupare2' AS combobox WITH ;
+		FontSize = 10, ;
+		Height = 24, ;
+		Left = 27, ;
+		Name = "cboGrupare2", ;
+		RowSource = "crsGrupare2.criteriu", ;
+		RowSourceType = 2, ;
+		Style = 2, ;
+		TabIndex = 5, ;
+		Top = 192, ;
+		Value = Cont, ;
+		Width = 204, ;
+		ZOrderSet = 13
+		*< END OBJECT: BaseClass="combobox" />
+
+	ADD OBJECT 'cboModel' AS combobox WITH ;
+		FontSize = 10, ;
+		Height = 24, ;
+		Left = 12, ;
+		Name = "cboModel", ;
+		RowSource = "Model 1,Model 2", ;
+		RowSourceType = 1, ;
+		Style = 2, ;
+		TabIndex = 2, ;
+		Top = 85, ;
+		Value = Model 1, ;
+		Width = 132, ;
+		ZOrderSet = 14
+		*< END OBJECT: BaseClass="combobox" />
+
+	ADD OBJECT 'edt_titlu' AS ed_tx_simplu WITH ;
+		Height = 33, ;
+		Left = 7, ;
+		Name = "edt_titlu", ;
+		TabIndex = 1, ;
+		Top = 46, ;
+		Width = 360, ;
+		ZOrderSet = 10, ;
+		_edbase1.ControlSource = "thisform.ctitlu", ;
+		_edbase1.FontSize = 10, ;
+		_edbase1.Format = "k", ;
+		_edbase1.Height = 27, ;
+		_edbase1.Left = 89, ;
+		_edbase1.Name = "_edbase1", ;
+		_edbase1.TabIndex = 1, ;
+		_edbase1.Top = 3, ;
+		_edbase1.Width = 266, ;
+		_lbbase1.Caption = "Titlu raport", ;
+		_lbbase1.FontSize = 10, ;
+		_lbbase1.Left = 11, ;
+		_lbbase1.Name = "_lbbase1", ;
+		_lbbase1.TabIndex = 2, ;
+		_lbbase1.Top = 7
+		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		Alignment = 2, ;
+		AutoSize = .T., ;
+		BackColor = 255,255,255, ;
+		Caption = "Grupat dupa", ;
+		Comment = "*:OnResize=LT", ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 15, ;
+		Name = "Label1", ;
+		TabIndex = 18, ;
+		Top = 146, ;
+		Width = 73, ;
+		ZOrderSet = 11
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		Alignment = 2, ;
+		AutoSize = .T., ;
+		BackColor = 255,255,255, ;
+		Caption = "Selectie", ;
+		Comment = "*:OnResize=LT", ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 15, ;
+		Name = "Label2", ;
+		TabIndex = 16, ;
+		Top = 227, ;
+		Width = 49, ;
+		ZOrderSet = 11
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label3' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "I", ;
+		FontBold = .T., ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 13, ;
+		Name = "Label3", ;
+		TabIndex = 22, ;
+		Top = 167, ;
+		Width = 6
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label4' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "II", ;
+		FontBold = .T., ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 13, ;
+		Name = "Label4", ;
+		TabIndex = 24, ;
+		Top = 197, ;
+		Width = 10
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label5' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Gestiune", ;
+		FontBold = .F., ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 24, ;
+		Name = "Label5", ;
+		TabIndex = 19, ;
+		Top = 252, ;
+		Width = 54
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label6' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Sectie", ;
+		FontBold = .F., ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 24, ;
+		Name = "Label6", ;
+		TabIndex = 23, ;
+		Top = 281, ;
+		Width = 39
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label7' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Responsabil", ;
+		FontBold = .F., ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 24, ;
+		Name = "Label7", ;
+		TabIndex = 21, ;
+		Top = 311, ;
+		Width = 73
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label8' AS label WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		Caption = "Cont", ;
+		FontBold = .F., ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 24, ;
+		Name = "Label8", ;
+		TabIndex = 20, ;
+		Top = 338, ;
+		Width = 29
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label9' AS label WITH ;
+		Alignment = 2, ;
+		AutoSize = .T., ;
+		BackColor = 255,255,255, ;
+		Caption = "Ordonat dupa", ;
+		Comment = "*:OnResize=LT", ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 15, ;
+		Name = "Label9", ;
+		TabIndex = 17, ;
+		Top = 369, ;
+		Width = 80, ;
+		ZOrderSet = 11
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'optOrdonare' AS _optiongrup WITH ;
+		AutoSize = .F., ;
+		ButtonCount = 3, ;
+		Height = 28, ;
+		Left = 18, ;
+		Name = "optOrdonare", ;
+		TabIndex = 13, ;
+		Top = 388, ;
+		Width = 343, ;
+		Option1.AutoSize = .T., ;
+		Option1.Caption = "Nr. inventar", ;
+		Option1.Left = 5, ;
+		Option1.Name = "Option1", ;
+		Option1.Top = 5, ;
+		Option2.AutoSize = .T., ;
+		Option2.Caption = "Denumire", ;
+		Option2.Left = 92, ;
+		Option2.Name = "Option2", ;
+		Option2.Top = 5, ;
+		Option3.AutoSize = .T., ;
+		Option3.BackStyle = 0, ;
+		Option3.Caption = "Data PIF", ;
+		Option3.Height = 17, ;
+		Option3.Left = 174, ;
+		Option3.Name = "Option3", ;
+		Option3.Top = 5, ;
+		Option3.Width = 65
+		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />
+
+	ADD OBJECT 'Shape1' AS shape WITH ;
+		BackStyle = 0, ;
+		Height = 68, ;
+		Left = 7, ;
+		Name = "Shape1", ;
+		Top = 156, ;
+		Width = 360, ;
+		ZOrderSet = 2
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Shape2' AS shape WITH ;
+		BackStyle = 0, ;
+		Height = 38, ;
+		Left = 7, ;
+		Name = "Shape2", ;
+		Top = 78, ;
+		Width = 360, ;
+		ZOrderSet = 0
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Shape3' AS shape WITH ;
+		BackStyle = 0, ;
+		Height = 126, ;
+		Left = 7, ;
+		Name = "Shape3", ;
+		Top = 237, ;
+		Width = 360, ;
+		ZOrderSet = 2
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Shape4' AS shape WITH ;
+		BackStyle = 0, ;
+		Height = 41, ;
+		Left = 7, ;
+		Name = "Shape4", ;
+		Top = 379, ;
+		Width = 360, ;
+		ZOrderSet = 2
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'txtData' AS clb_tx_simplu WITH ;
+		Height = 29, ;
+		Left = 7, ;
+		Name = "txtData", ;
+		TabIndex = 3, ;
+		Top = 115, ;
+		Width = 360, ;
+		ZOrderSet = 12, ;
+		TEXT_SIMPLU1.ControlSource = "thisform.ddata_inv", ;
+		TEXT_SIMPLU1.FontSize = 10, ;
+		TEXT_SIMPLU1.Height = 23, ;
+		TEXT_SIMPLU1.Left = 131, ;
+		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
+		TEXT_SIMPLU1.Top = 3, ;
+		TEXT_SIMPLU1.Width = 224, ;
+		LB_SIMPLU1.Caption = "Data inventariere", ;
+		LB_SIMPLU1.FontSize = 10, ;
+		LB_SIMPLU1.Name = "LB_SIMPLU1"
+		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
+
+	ADD OBJECT 'txtFiltru' AS _textbox WITH ;
+		ControlSource = "thisform.pcvalue_txt", ;
+		DisabledForeColor = 0,0,0, ;
+		Enabled = .F., ;
+		FontItalic = .T., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 22, ;
+		Left = 109, ;
+		Name = "txtFiltru", ;
+		TabIndex = 6, ;
+		TabStop = .F., ;
+		Top = 246, ;
+		Width = 215, ;
+		ZOrderSet = 8
+		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
+
+	ADD OBJECT 'txtFiltru2' AS _textbox WITH ;
+		ControlSource = "thisform.pcvalue_txt2", ;
+		DisabledForeColor = 0,0,0, ;
+		Enabled = .F., ;
+		FontItalic = .T., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 22, ;
+		Left = 109, ;
+		Name = "txtFiltru2", ;
+		TabIndex = 8, ;
+		TabStop = .F., ;
+		Top = 278, ;
+		Width = 215, ;
+		ZOrderSet = 8
+		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
+
+	ADD OBJECT 'txtFiltru3' AS _textbox WITH ;
+		ControlSource = "thisform.pcvalue_txt3", ;
+		DisabledForeColor = 0,0,0, ;
+		Enabled = .F., ;
+		FontItalic = .T., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 22, ;
+		Left = 109, ;
+		Name = "txtFiltru3", ;
+		TabIndex = 10, ;
+		TabStop = .F., ;
+		Top = 308, ;
+		Width = 215, ;
+		ZOrderSet = 8
+		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
+
+	ADD OBJECT 'txtFiltru4' AS _textbox WITH ;
+		ControlSource = "thisform.cCont", ;
+		DisabledForeColor = 0,0,0, ;
+		Enabled = .T., ;
+		FontItalic = .T., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Format = "K", ;
+		Height = 22, ;
+		Left = 109, ;
+		Name = "txtFiltru4", ;
+		TabIndex = 12, ;
+		TabStop = .F., ;
+		Top = 336, ;
+		Width = 66, ;
+		ZOrderSet = 8
+		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
+	
+	PROCEDURE Destroy
+		USE IN (SELECT('crsGrupare1'))
+		USE IN (SELECT('crsGrupare2'))
+		USE IN (SELECT('crsFiltru'))
+	ENDPROC
+
+	PROCEDURE do_cauta
+		LPARAMETERS tcOptiune
+		
+		Private locauta
+		Store [] To locauta
+		lcOptiune = UPPER(tcOptiune)
+		
+		Do Case
+			Case lcOptiune = 'GESTIUNE'
+				loCauta = caut_gestiune()
+				This.pcvalue_txt = locauta.nume_gestiune
+				This.oGestiune = locauta
+			Case lcOptiune = 'SECTIE'
+				loCauta = caut_sectie()
+				This.pcvalue_txt2 = locauta.sectie
+				This.oSectie = locauta
+			Case lcOptiune = 'RESPONSABIL'
+				locauta = caut_responsabil()
+				This.pcvalue_txt3 = locauta.nume
+				This.oResponsabil = locauta
+		Endcase
+		
+		THIS.txtFiltru.Refresh()
+		THIS.txtFiltru2.Refresh()
+		THIS.txtFiltru3.Refresh()
+	ENDPROC
+
+	PROCEDURE do_cauta_gestiune
+		This.do_cauta('GESTIUNE')
+	ENDPROC
+
+	PROCEDURE do_cauta_responsabil
+		This.do_cauta('RESPONSABIL')
+	ENDPROC
+
+	PROCEDURE do_cauta_sectie
+		This.do_cauta('SECTIE')
+	ENDPROC
+
+	PROCEDURE do_listare
+		*!* 26.01.2011
+		*!*	marius.mutu
+		*!*	filtrare concomitenta dupa gestiune, sectie, responsabil
+		
+		Private pcGrup1, pcHeaderGrup1, pcGrup2, pcHeaderGrup2, pcDataOra
+		Local lcCursor, lcGrupare2, lcRaport, lcSel, llExperimental, llSucces
+		Local llUsed
+		Local lcOrdonare
+		*:Global pcCond, pdData, pdDataF, pdDataI, pnFiscala
+		pcGrup1 = "EOF()"
+		pcHeaderGrup1 = ""
+		pcGrup2 = "EOF()"
+		pcHeaderGrup2 = ""
+		
+		Private pcTitlu, pcSubtitlu
+		pcTitlu = ""
+		pcSubtitlu = ""
+		
+		Private pnIdGestiune, pnIdSectie, pnIdResponsabil, pcCont, pnTip
+		pnIdGestiune = 0
+		pnIdSectie = 0
+		pnIdResponsabil = 0
+		pcCont = ""
+		
+		Local lcSelect, lcFiltru, lcOrder, loGestiune, loSectie, loResponsabil, lcFiltruOriginal, lcGrupare
+		Store "" To  lcSelect, lcFiltru, lcOrder, lcFiltruOriginal, lcGrupare
+		
+		lcOrdonare = IIF(this.optOrdonare.Value = 1, 'nrinv1', IIF(this.optOrdonare.Value = 2, 'denumire', 'datapif1'))
+		
+		loGestiune = This.oGestiune
+		loSectie = This.oSectie
+		loResponsabil = This.oResponsabil
+		
+		pnTip = This.nTip
+		lcFiltruOriginal = [id_tip_imobilizare=?pnTip and iesit_din_gest=0]
+		
+		lcGrupare = Upper(Alltrim(This.cboGrupare.Value))
+		lcGrupare2 = Upper(Alltrim(This.cboGrupare2.Value))
+		
+		Do Case
+			Case lcGrupare = 'GESTIUNE'
+				pcGrup1 = [gestiune]
+				lcOrder = lcOrder + [,gestiune]
+				pcHeaderGrup1 = [Gestiune : ]
+			Case lcGrupare = 'RESPONSABIL'
+				pcGrup1 = [responsabil]
+				lcOrder = lcOrder + [,responsabil]
+				pcHeaderGrup1 = [Responsabil : ]
+			Case lcGrupare = 'SECTIE'
+				pcGrup1 = [sectie]
+				lcOrder = lcOrder + [,sectie]
+				pcHeaderGrup1 = [Sectia : ]
+			Case lcGrupare = 'CONT'
+				pcGrup1 = [cont]
+				lcOrder = lcOrder + [,cont,acont]
+				pcHeaderGrup1 = [Cont : ]
+		Endcase
+		
+		Do Case
+			Case lcGrupare2 = 'GESTIUNE'
+				pcGrup2 = [gestiune]
+				lcOrder = lcOrder + [,gestiune]
+				pcHeaderGrup2 = [Gestiune : ]
+			Case lcGrupare2 = 'RESPONSABIL'
+				pcGrup2 = [responsabil]
+				lcOrder = lcOrder + [,responsabil]
+				pcHeaderGrup2 = [Responsabil : ]
+			Case lcGrupare2 = 'SECTIE'
+				pcGrup2 = [sectie]
+				lcOrder = lcOrder + [,sectie]
+				pcHeaderGrup2 = [Sectia : ]
+			Case lcGrupare2 = 'CONT'
+				pcGrup2 = [cont]
+				lcOrder = lcOrder + [,cont,acont]
+				pcHeaderGrup2 = [Cont : ]
+		Endcase
+		
+		*!* 26.01.2011
+		If Type('loGestiune') = 'O' And Type('loGestiune.id_gestiune') = 'N' And !Empty(loGestiune.id_gestiune)
+			pnIdGestiune = loGestiune.id_gestiune
+			lcFiltruOriginal = lcFiltruOriginal + [ and id_gestiune = ?pnIdGestiune]
+			pcSubtitlu = pcSubtitlu + ' Gestiune "' + Alltrim(This.pcvalue_txt) + '"'
+		Endif
+		
+		If Type('loSectie') = 'O' And Type('loSectie.id_sectie') = 'N' And !Empty(loSectie.id_sectie)
+			pnIdSectie = loSectie.id_sectie
+			lcFiltruOriginal = lcFiltruOriginal + [ and id_sectie = ?pnIdSectie]
+			pcSubtitlu = pcSubtitlu + ' Sectie "' + Alltrim(This.pcvalue_txt2) + '"'
+		Endif
+		
+		If Type('loResponsabil') = 'O' And Type('loResponsabil.id_responsabil') = 'N' And !Empty(loResponsabil.id_responsabil)
+			pnIdResponsabil = loResponsabil.id_responsabil
+			lcFiltruOriginal = lcFiltruOriginal + [ and id_responsabil = ?pnIdResponsabil]
+			pcSubtitlu = pcSubtitlu + ' Responsabil "' + Alltrim(This.pcvalue_txt3) + '"'
+		Endif
+		*!* 26.01.2011 ^
+		pcCont = ALLTRIM(NVL(this.cCont, ''))
+		If !EMPTY(m.pcCont)
+			lcFiltruOriginal = lcFiltruOriginal + [ and cont = ?pcCont]
+			pcSubtitlu = pcSubtitlu + ' Cont "' + m.pcCont + '"'
+		ENDIF
+		
+		IF LEFT(m.lcOrder,1) = ','
+			lcOrder = Substr(lcOrder, 2)
+		ENDIF 	
+		
+		pdDataI = Date(gnAn, gnLuna, 1)
+		pdDataF = pdDataI
+		pcCond = [1=1]
+		pnFiscala = Thisform.nFiscala
+		lcCursor = 'crslista'
+		
+		llExperimental = .T. && 25.11.2021 llExperimental = (goApp.nExperimental = 1)
+		lcFiltru = [id_tip_imobilizare = ?pnTip and iesit_din_gest=0] + ;
+			Iif(!Empty(m.pnIdGestiune), [ and id_gestiune = ] + Alltrim(Str(m.pnIdGestiune)), []) + ;
+			Iif(!Empty(m.pnIdSectie), [ and id_sectie = ] + Alltrim(Str(m.pnIdSectie)), []) + ;
+			Iif(!Empty(m.pnIdResponsabil), [ and id_responsabil = ] + Alltrim(Str(m.pnIdResponsabil )), []) + ;
+			Iif(!Empty(m.pcCont), [ and cont = ?pcCont], []) + ;	
+			m.gcCondSucursala
+		
+		llUsed = Used(m.lcCursor)
+		Do Case
+			Case !Empty(This.cCursor) And Used(This.cCursor)
+				lcCursor = This.cCursor
+				llSucces = .T.
+			Case  m.llExperimental
+				* EXPERIMENTAL SELECTIE DIN IMOB_VSITUATIE_LUNARA IN LOC DE PACK_IMOB.CALCUL_SITUATIE_LUNARA()
+				* Setez luna pentru view
+				llSucces = goExecutor.oExecuta('begin pack_imob.setlunacurenta(?pdDataI); end;')
+				If m.llSucces
+					lcSel = [SELECT * FROM ] + Iif(m.pnFiscala = 0, [imob_vsituatie_lunara], [imobf_vsituatie_lunara]) + [ WHERE ] + m.lcFiltru
+					llSucces = goExecutor.oExecuta(m.lcSel, m.lcCursor)
+				Endif
+			Otherwise
+				lcSel = [{call pack_imob.CALCUL_SITUATIE_LUNARA(?pdDataI,?pdDataF,?pcCond,?pnFiscala,?gnIdSucursala)}]
+				llSucces = goExecutor.oExecuta(lcSel, lcCursor)
+		Endcase
+		If !m.llSucces
+			Return .F.
+		Endif
+		
+		pcTitlu = Thisform.ctitlu
+		pdData = This.ddata_inv
+		
+		*!* 19.01.2008
+		*1* era indexat cursorul si se strica ordinea
+		lcOrder = lcOrder + IIF(!EMPTY(m.lcOrder), ',', '') + m.lcOrdonare
+		*!* 19.01.2008 ^
+		Select *, Dtos(data_pif) As datapif1, Str(nr_inventar) As nrinv1 From (m.lcCursor) With (Buffering = .T.) Where &lcFiltruOriginal Into Cursor crs_rap Order By &lcOrder
+		
+		If !m.llUsed
+			Use In (Select(m.lcCursor))
+		Endif
+		
+		If Reccount('crs_rap') > 0
+			pcDataOra = get_Ora(2)
+			Select crs_rap
+			Thisform.AlwaysOnTop = .F.
+			lcRaport = Iif(Upper(This.cboModel.Value) = "MODEL 1", "NOTA_INV_M1.FRX", "NOTA_INV_M2.frx")
+			*	Report Format &lcRaport To Printer Prompt Noconsole Preview
+			goExport.export2frx([crs_rap], m.lcRaport, , , , , , .T.)
+		
+			Thisform.AlwaysOnTop = .T.
+		Else
+			aMessagebox("Nu exista inregistrari pentru listare!", 48, "Atentie")
+		Endif
+		Use In (SELECT('crs_rap'))
+		
+		
+		 
+	ENDPROC
+
+	PROCEDURE Init
+		Parameters tnTip, tnFiscala, tcCursor
+		* tcCursor: (optional) numele cursorului cu lista de imobilizari. Daca este completat, fac selectie din cursor in loc de baza de date
+		* tcCursor este completat daca este apelat din frm_lista.do_listare
+		Thisform.ntip = m.tnTip
+		This.nfiscala = m.tnFiscala
+		this.cCursor = m.tcCursor
+		DoDefault()
+		
+	ENDPROC
+
+	PROCEDURE Load
+		CREATE CURSOR crsGrupare1 (criteriu c(20))
+		CREATE CURSOR crsGrupare2 (criteriu c(20))
+		CREATE CURSOR crsFiltru (criteriu c(20))
+		
+		INSERT INTO crsGrupare1 (criteriu) VALUES (SPACE(20))
+		INSERT INTO crsGrupare1 (criteriu) VALUES ('Gestiune')
+		INSERT INTO crsGrupare1 (criteriu) VALUES ('Sectie')
+		INSERT INTO crsGrupare1 (criteriu) VALUES ('Responsabil')
+		INSERT INTO crsGrupare1 (criteriu) VALUES ('Cont')
+		
+		
+		INSERT INTO crsGrupare2 (criteriu) VALUES (SPACE(20))
+		INSERT INTO crsGrupare2 (criteriu) VALUES ('Gestiune')
+		INSERT INTO crsGrupare2 (criteriu) VALUES ('Sectie')
+		INSERT INTO crsGrupare2 (criteriu) VALUES ('Responsabil')
+		INSERT INTO crsGrupare2 (criteriu) VALUES ('Cont')
+		
+		
+		INSERT INTO crsFiltru (criteriu) VALUES (SPACE(20))
+		INSERT INTO crsFiltru (criteriu) VALUES ('Gestiune')
+		INSERT INTO crsFiltru (criteriu) VALUES ('Sectie')
+		INSERT INTO crsFiltru (criteriu) VALUES ('Responsabil')
+		
+	ENDPROC
+
+	PROCEDURE Show
+		LPARAMETERS nStyle
+		this.ctitlu="LISTA INVENTARIERE IMOBILIZARI "+IIF(this.nTip=1,"CORPORALE","NECORPORALE")
+		this.ddata_inv = GOMONTH(DATE(gnAn, gnLuna, 1),1)-1
+		THIS.edt_titlu.Refresh()
+		this.txtData.Refresh()
+		
+	ENDPROC
+
+	PROCEDURE cboGrupare.Init
+		THIS.Value = "Gestiune"
+	ENDPROC
+
+	PROCEDURE cboGrupare2.Init
+		THIS.Value = "Cont"
+	ENDPROC
+
+	PROCEDURE cboModel.Init
+		this.Value = "Model 1"
+	ENDPROC
+
+ENDDEFINE

Ferestre/rap_situatie_lunara.sc2

@@ -0,0 +1,491 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="rap_situatie_lunara.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_termin_renunt12 AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="_txtgestiuni" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="But_cautare1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Ed_tx_simplu1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="OptCont" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="optgestiuni" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="OptResponsabil" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="OptSectii" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*p: ctitlu
+		*p: nfiscala
+		*p: ntip
+		*p: orezult
+		*p: pcvalue_txt
+	*</DefinedPropArrayMethod>
+
+	*<PropValue>
+		ctitlu = 
+		DataSession = 1
+		DoCreate = .T.
+		Height = 236
+		Name = "Frm_termin_renunt12"
+		nfiscala = 0
+		ntip = 1
+		orezult = 
+		pcvalue_txt = 
+		Width = 388
+		_SHAPE1.Height = 29
+		_SHAPE1.Left = 0
+		_SHAPE1.Name = "_SHAPE1"
+		_SHAPE1.Top = 0
+		_SHAPE1.Width = 388
+		_SHAPE2.Height = 29
+		_SHAPE2.Left = 324
+		_SHAPE2.Name = "_SHAPE2"
+		_SHAPE2.Top = 0
+		_SHAPE2.Width = 64
+		LB_TITLU_ALB_B121.Caption = "Alegeti parametrii raportului"
+		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
+		BUT_TERMIN1.Left = 356
+		BUT_TERMIN1.Name = "BUT_TERMIN1"
+		BUT_TERMIN1.Top = 1
+		GRIDSORT1.Name = "GRIDSORT1"
+		But_renunt1.Left = 327
+		But_renunt1.Name = "But_renunt1"
+		But_renunt1.Top = 1
+	*</PropValue>
+
+	ADD OBJECT '_txtgestiuni' AS _textbox WITH ;
+		ControlSource = "thisform.pcvalue_txt", ;
+		DisabledForeColor = 0,0,0, ;
+		Enabled = .F., ;
+		FontItalic = .T., ;
+		FontSize = 10, ;
+		ForeColor = 0,0,0, ;
+		Height = 22, ;
+		Left = 119, ;
+		Name = "_txtgestiuni", ;
+		TabIndex = 9, ;
+		Top = 118, ;
+		Width = 215, ;
+		ZOrderSet = 8
+		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
+
+	ADD OBJECT 'But_cautare1' AS but_cautare WITH ;
+		Left = 335, ;
+		Name = "But_cautare1", ;
+		TabIndex = 12, ;
+		Top = 114
+		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
+
+	ADD OBJECT 'Ed_tx_simplu1' AS ed_tx_simplu WITH ;
+		Height = 33, ;
+		Left = 15, ;
+		Name = "Ed_tx_simplu1", ;
+		TabIndex = 1, ;
+		Top = 42, ;
+		Width = 360, ;
+		_edbase1.ControlSource = "thisform.ctitlu", ;
+		_edbase1.FontName = "Arial Narrow", ;
+		_edbase1.FontSize = 10, ;
+		_edbase1.Format = "k", ;
+		_edbase1.Height = 27, ;
+		_edbase1.Left = 76, ;
+		_edbase1.Name = "_edbase1", ;
+		_edbase1.TabIndex = 1, ;
+		_edbase1.Top = 3, ;
+		_edbase1.Width = 278, ;
+		_lbbase1.Caption = "Titlu raport", ;
+		_lbbase1.FontSize = 10, ;
+		_lbbase1.Left = 11, ;
+		_lbbase1.Name = "_lbbase1", ;
+		_lbbase1.TabIndex = 2, ;
+		_lbbase1.Top = 7
+		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
+
+	ADD OBJECT 'Label1' AS label WITH ;
+		Alignment = 2, ;
+		AutoSize = .F., ;
+		BackColor = 255,255,255, ;
+		Caption = "Grupat dupa", ;
+		Comment = "*:OnResize=LT", ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 23, ;
+		Name = "Label1", ;
+		TabIndex = 11, ;
+		Top = 76, ;
+		Width = 73, ;
+		ZOrderSet = 16
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'Label2' AS label WITH ;
+		Alignment = 2, ;
+		AutoSize = .T., ;
+		BackColor = 255,255,255, ;
+		Caption = "Subgrupat dupa", ;
+		Comment = "*:OnResize=LT", ;
+		FontSize = 10, ;
+		Height = 18, ;
+		Left = 23, ;
+		Name = "Label2", ;
+		TabIndex = 10, ;
+		Top = 175, ;
+		Width = 93, ;
+		ZOrderSet = 19
+		*< END OBJECT: BaseClass="label" />
+
+	ADD OBJECT 'OptCont' AS optiongroup WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		BorderStyle = 0, ;
+		ButtonCount = 1, ;
+		Height = 28, ;
+		Left = 20, ;
+		Name = "OptCont", ;
+		SpecialEffect = 1, ;
+		TabIndex = 3, ;
+		Top = 193, ;
+		Value = 0, ;
+		Width = 56, ;
+		ZOrderSet = 17, ;
+		Option1.AutoSize = .T., ;
+		Option1.BackStyle = 0, ;
+		Option1.Caption = "Cont", ;
+		Option1.FontSize = 10, ;
+		Option1.Height = 18, ;
+		Option1.Left = 5, ;
+		Option1.Name = "Option1", ;
+		Option1.Top = 5, ;
+		Option1.Value = 0, ;
+		Option1.Width = 46
+		*< END OBJECT: BaseClass="optiongroup" />
+
+	ADD OBJECT 'optgestiuni' AS optiongroup WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		BorderStyle = 0, ;
+		ButtonCount = 1, ;
+		Height = 28, ;
+		Left = 19, ;
+		Name = "optgestiuni", ;
+		SpecialEffect = 1, ;
+		TabIndex = 2, ;
+		Top = 94, ;
+		Value = 0, ;
+		Width = 81, ;
+		ZOrderSet = 15, ;
+		Option1.AutoSize = .T., ;
+		Option1.BackStyle = 0, ;
+		Option1.Caption = "Gestiune", ;
+		Option1.FontSize = 10, ;
+		Option1.Height = 18, ;
+		Option1.Left = 5, ;
+		Option1.Name = "Option1", ;
+		Option1.Top = 5, ;
+		Option1.Value = 0, ;
+		Option1.Width = 71
+		*< END OBJECT: BaseClass="optiongroup" />
+
+	ADD OBJECT 'OptResponsabil' AS optiongroup WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		BorderStyle = 0, ;
+		ButtonCount = 1, ;
+		Height = 28, ;
+		Left = 19, ;
+		Name = "OptResponsabil", ;
+		SpecialEffect = 1, ;
+		TabIndex = 2, ;
+		Top = 117, ;
+		Value = 0, ;
+		Width = 100, ;
+		ZOrderSet = 15, ;
+		Option1.AutoSize = .T., ;
+		Option1.BackStyle = 0, ;
+		Option1.Caption = "Responsabil", ;
+		Option1.FontSize = 10, ;
+		Option1.Height = 18, ;
+		Option1.Left = 5, ;
+		Option1.Name = "Option1", ;
+		Option1.Top = 5, ;
+		Option1.Value = 0, ;
+		Option1.Width = 90
+		*< END OBJECT: BaseClass="optiongroup" />
+
+	ADD OBJECT 'OptSectii' AS optiongroup WITH ;
+		AutoSize = .T., ;
+		BackStyle = 0, ;
+		BorderStyle = 0, ;
+		ButtonCount = 1, ;
+		Height = 28, ;
+		Left = 19, ;
+		Name = "OptSectii", ;
+		SpecialEffect = 1, ;
+		TabIndex = 2, ;
+		Top = 140, ;
+		Value = 0, ;
+		Width = 66, ;
+		ZOrderSet = 15, ;
+		Option1.AutoSize = .T., ;
+		Option1.BackStyle = 0, ;
+		Option1.Caption = "Sectie", ;
+		Option1.FontSize = 10, ;
+		Option1.Height = 18, ;
+		Option1.Left = 5, ;
+		Option1.Name = "Option1", ;
+		Option1.Top = 5, ;
+		Option1.Value = 0, ;
+		Option1.Width = 56
+		*< END OBJECT: BaseClass="optiongroup" />
+
+	ADD OBJECT 'Shape1' AS shape WITH ;
+		BackStyle = 0, ;
+		Height = 85, ;
+		Left = 15, ;
+		Name = "Shape1", ;
+		Top = 86, ;
+		Width = 360, ;
+		ZOrderSet = 1
+		*< END OBJECT: BaseClass="shape" />
+
+	ADD OBJECT 'Shape2' AS shape WITH ;
+		BackStyle = 0, ;
+		Height = 38, ;
+		Left = 15, ;
+		Name = "Shape2", ;
+		Top = 185, ;
+		Width = 360, ;
+		ZOrderSet = 0
+		*< END OBJECT: BaseClass="shape" />
+	
+	PROCEDURE do_cauta
+		IF THIS.optgestiuni.VALUE = 1
+			pcselect = [select * from ] + gcs + [.vnom_GESTIUNI]
+			pcFiltruOrig = [inactiv = 0 ]
+			pcfiltru = [2=2]
+			pcschema = ['']
+			pcorder = [nume_gestiune]
+			pccoloane = [nume_gestiune,cgest]
+			pcTitlu = [Alegeti gestiunea]
+			pcTitluColoane = [Gestiune,Indicativ]
+			locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.T.,pcFiltruOrig)
+			THIS.pcvalue_txt = locauta.nume_gestiune
+		ENDIF
+		
+		IF THIS.optResponsabil.VALUE = 1
+			pcselect = [select * from ] + gcs + [.vNom_responsabili]
+			pcFiltruOrig = [inactiv = 0]
+			pcfiltru = [2=2]
+			pcschema = ['']
+			pcorder = [nume]
+			pccoloane = [nume]
+			pcTitlu = [Alegeti responsabilul]
+			pcTitluColoane = [Responsabil]
+			locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.T.,pcFiltruOrig)
+			THIS.pcvalue_txt = locauta.nume
+		ENDIF
+		
+		IF THIS.optSectii.VALUE = 1
+			pcselect = [select * from ] + gcs + [.vnom_sectii]
+			pcFiltruOrig = [inactiv = 0 ]
+			pcfiltru = [2=2]
+			pcschema = ['']
+			pcorder = [sectie,csectie]
+			pccoloane = [sectie,csectie]
+			pcTitlu = [Alegeti sectia]
+			pcTitluColoane = [Sectie,Indicativ]
+			locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.T.,pcFiltruOrig)
+			THIS.pcvalue_txt = locauta.sectie
+		ENDIF
+		
+		THIS._txtgestiuni.REFRESH
+		THIS.orezult = locauta
+		
+	ENDPROC
+
+	PROCEDURE inainte_de_do_termin
+		Private postocuri, pcschema, pcselect, pcfiltru, pcorder, osel, pcFiltruOriginal, pcGrupCont, pcGrupAcont
+		Local lcCursor, lcFiltru, lcOrder, lcRaport, lcSchema, lcSel, llExperimental, llSucces
+		PRIVATE nGest, nResp, nSectie, pcCond, pcDataora, pcGrup1, pcGrup2, pcHeaderGrup, pcHeaderGrup1
+		PRIVATE pcHeaderGrup2, pcTitlu, pdDataF, pdDataI, pnFiscala, pnTip
+		Store [] To postocuri, pcFiltruOriginal, pcHeaderGrup
+		
+		nGest = 0
+		nResp = 0
+		nSectie = 0
+		
+		osel = This.orezult
+		pnTip = This.ntip
+		pcFiltruOriginal = [id_tip_imobilizare=?pnTip and iesit_din_gest=0]
+		lcOrder = []
+		pcGrup1 = [EOF()]
+		pcGrup2 = [EOF()]
+		pcHeaderGrup1 = []
+		pcHeaderGrup2 = []
+		
+		If This.optgestiuni.Value = 1
+		*!*		If Type('osel') # 'O'
+		*!*			aMessagebox('Alegeti gestiunea', 0 + 48)
+		*!*			Return .F.
+		*!*		Endif
+		
+			If Type('osel') = 'O' AND Alltrim(osel.nume_gestiune) # [<TOATE INREGISTRARILE>]
+				nGest = osel.id_gestiune
+				pcFiltruOriginal = pcFiltruOriginal + [ and id_gestiune = ?nGest]
+			Endif
+			pcGrup1 = [gestiune]
+			lcOrder = lcOrder + [,gestiune]
+			pcHeaderGrup1 = [Gestiune : ]
+		Endif
+		
+		If This.optResponsabil.Value = 1
+		*!*		If Type('osel') # 'O'
+		*!*			aMessagebox('Alegeti Responsabilul', 0 + 48)
+		*!*			Return .F.
+		*!*		Endif
+			If Type('osel') = 'O' AND Alltrim(osel.nume) # [<TOATE INREGISTRARILE>]
+				nResp = osel.id_responsabil
+				pcFiltruOriginal = pcFiltruOriginal + [ and id_responsabil=?nResp]
+			Endif
+			pcGrup1 = [responsabil]
+			lcOrder = lcOrder + [,responsabil]
+			pcHeaderGrup1 = [Responsabil : ]
+		Endif
+		
+		If This.optSectii.Value = 1
+		*!*		If Type('osel') # 'O'
+		*!*			aMessagebox('Alegeti sectia', 0 + 48)
+		*!*			Return .F.
+		*!*		Endif
+			If Type('osel') = 'O' AND Alltrim(osel.sectie) # [<TOATE INREGISTRARILE>]
+				nSectie = osel.id_sectie
+				pcFiltruOriginal = pcFiltruOriginal + [ and id_sectie = ?nSectie]
+			Endif
+			pcGrup1 = [sectie]
+			lcOrder = lcOrder + [,sectie]
+			pcHeaderGrup1 = [Sectia : ]
+		Endif
+		
+		If This.optCont.Value = 1
+			pcGrup2 = [cont]
+			lcOrder = lcOrder + [,cont,acont]
+			pcHeaderGrup2 = [Cont : ]
+		Endif
+		
+		lcOrder = lcOrder + [,data_pif,nr_pif,denumire,cod_mf]
+		lcOrder = Substr(lcOrder, 2)
+		
+		pdDataI = Date(gnAn, gnLuna, 1)
+		pdDataF = pdDataI
+		pcCond = [1=1]
+		pnFiscala = Thisform.nFiscala
+		lcSchema = ['']
+		lcCursor = 'crslista'
+		
+		llExperimental = .T. && 25.11.2021 llExperimental = (goApp.nExperimental = 1)
+		If m.llExperimental
+			* EXPERIMENTAL SELECTIE DIN IMOB_VSITUATIE_LUNARA IN LOC DE PACK_IMOB.CALCUL_SITUATIE_LUNARA()
+			* Setez luna pentru view
+			lcFiltru = m.pcFiltruOriginal + m.gcCondSucursala
+		
+			llSucces = goExecutor.oExecuta('begin pack_imob.setlunacurenta(?pdDataI); end;')
+			If m.llSucces
+				lcSel = [SELECT * FROM ] + Iif(m.pnFiscala = 0, [imob_vsituatie_lunara], [imobf_vsituatie_lunara]) + [ WHERE ] + m.lcFiltru
+				llSucces = goExecutor.oExecuta(m.lcSel, m.lcCursor)
+			Endif
+		Else
+			lcSel = [{call pack_imob.CALCUL_SITUATIE_LUNARA(?pdDataI,?pdDataF,?pcCond,?pnFiscala,?gnIdSucursala)}]
+			llSucces = goExecutor.oExecuta(lcSel, lcCursor)
+		Endif
+		
+		If !m.llSucces
+			Return .F.
+		Endif
+		*Select * from crslista order by data_operatie,nr_inventar into crslista 
+		
+		pcTitlu = Thisform.ctitlu
+		
+		Select * From crslista With (Buffering = .T.) Where &pcFiltruOriginal Into Cursor crs_rap Order By &lcOrder
+		If Used('crsLista')
+			Use In crslista
+		Endif
+		Select crs_rap
+		*!*	modificare	 v 2.0.7
+		*!*	Index on DTOS(data_PIF)+STR(nr_inventar) tag ordine
+		*!*	modificare	 v 2.0.7	^
+		If Reccount('crs_rap') > 0
+			pcDataora = get_Ora(2)
+			Select crs_rap
+			Thisform.AlwaysOnTop = .F.
+			lcRaport = [list_mfgrup.frx]
+			goExport.export2frx([crs_rap], m.lcRaport, , , , , , .T.)	
+			*Report Format &lcRaport To Printer Prompt Noconsole Preview
+			Thisform.AlwaysOnTop = .T.
+		Else
+			aMessagebox("Nu exista inregistrari pentru listare!", 48, "Atentie")
+		Endif
+		Use In crs_rap
+		
+		Return .F.
+		
+	ENDPROC
+
+	PROCEDURE Init
+		PARAMETERS tnTip, tnFiscala
+		thisform.ntip = tnTip
+		this.nfiscala = tnFiscala
+		DODEFAULT()
+	ENDPROC
+
+	PROCEDURE Show
+		LPARAMETERS nStyle
+		this.ctitlu="LISTA IMOBILIZARILOR "+IIF(this.nTip=1,"CORPORALE","NECORPORALE")+" IN LUNA " + allt(str(gnLuna)) + ' / ' + allt(str(gnAn))
+		this.Ed_tx_simplu1.Refresh 
+		
+	ENDPROC
+
+	PROCEDURE optgestiuni.InteractiveChange
+		thisform.pcvalue_txt = []
+		thisform.optResponsabil.Value = 0
+		thisform.optSectii.Value = 0
+		thisform._txtgestiuni.refresh
+		thisform.ResetToDefault('orezult')
+	ENDPROC
+
+	PROCEDURE OptResponsabil.InteractiveChange
+		thisform.pcvalue_txt = []
+		thisform._txtgestiuni.refresh
+		thisform.optGestiuni.Value = 0
+		thisform.optSectii.Value = 0
+		thisform.ResetToDefault('orezult')
+	ENDPROC
+
+	PROCEDURE OptSectii.InteractiveChange
+		thisform.pcvalue_txt = []
+		thisform._txtgestiuni.refresh
+		thisform.optGestiuni.Value = 0
+		thisform.optResponsabil.Value = 0
+		thisform.ResetToDefault('orezult')
+	ENDPROC
+
+ENDDEFINE