530 lines
16 KiB
Plaintext
530 lines
16 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (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
|