*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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ții analitice"
		Page1.Name = "Page1"
		Page2.Caption = "Imobilizări corporale"
		Page2.Name = "Page2"
		Page3.BackColor = 255,255,255
		Page3.Caption = "Imobilizări necorporale"
		Page3.FontCharSet = 238
		Page3.Name = "Page3"
		Page4.BackColor = 255,255,255
		Page4.Caption = "Imobilizări î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ț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ă", ;
		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ă", ;
		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ă", ;
		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ă", ;
		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