803 lines
24 KiB
Plaintext
803 lines
24 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP _09c0r6h54 SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF _09c0r6h54 PROMPT "Terenuri 211"
|
|
ON BAR 1 OF _09c0r6h54 ACTIVATE POPUP Terenuri21
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Terenuri21 SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Terenuri21 PROMPT "Achizitie"
|
|
ON BAR 1 OF Terenuri21 ACTIVATE POPUP Achizitie
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Achizitie SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Achizitie PROMPT "De la furnizori" ;
|
|
MESSAGE '2111:404 ;4426:404 '
|
|
ON SELECTION BAR 1 OF Achizitie DO BAR_1_OF_Achizitie_FB2P
|
|
|
|
DEFINE BAR 2 OF Achizitie PROMPT "De la furnizori-taxa inversa" ;
|
|
MESSAGE '2111:404'
|
|
ON SELECTION BAR 2 OF Achizitie DO BAR_2_OF_Achizitie_FB2P
|
|
|
|
DEFINE BAR 3 OF Achizitie PROMPT "Aport asociati" ;
|
|
MESSAGE '2111:456 '
|
|
ON SELECTION BAR 3 OF Achizitie DO BAR_3_OF_Achizitie_FB2P
|
|
|
|
DEFINE BAR 4 OF Achizitie PROMPT "\-"
|
|
ON BAR 4 OF Achizitie ACTIVATE POPUP _2vb0y05pw
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _2vb0y05pw SHORTCUT RELATIVE
|
|
DEFINE BAR 5 OF Achizitie PROMPT "Primite cu titlu gratuit, prin donatie (subventie) 131" ;
|
|
MESSAGE '2111:131 '
|
|
ON SELECTION BAR 5 OF Achizitie DO BAR_5_OF_Achizitie_FB2P
|
|
|
|
DEFINE BAR 6 OF Achizitie PROMPT "Subventii pentru investitii 4751" ;
|
|
MESSAGE '2111:4751'
|
|
ON SELECTION BAR 6 OF Achizitie lans_generic(10604,'2111',,'4751')
|
|
|
|
DEFINE BAR 7 OF Achizitie PROMPT "Primite cu titlu gratuit 4753" ;
|
|
MESSAGE '2111:4753'
|
|
ON SELECTION BAR 7 OF Achizitie lans_generic(10604,'2111',,'4753')
|
|
|
|
DEFINE BAR 2 OF Terenuri21 PROMPT "Vanzare"
|
|
ON BAR 2 OF Terenuri21 ACTIVATE POPUP Vanzare
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Vanzare SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Vanzare PROMPT "Propriu zisa" ;
|
|
MESSAGE '461:7583;461 :4427'
|
|
ON SELECTION BAR 1 OF Vanzare DO BAR_1_OF_Vanzare_FB2P
|
|
|
|
DEFINE BAR 2 OF Vanzare PROMPT "Scadere din gestiune a terenurilor vandute" ;
|
|
MESSAGE '6583:2111'
|
|
ON SELECTION BAR 2 OF Vanzare DO BAR_2_OF_Vanzare_FB2P
|
|
|
|
DEFINE BAR 3 OF Terenuri21 PROMPT "Retragere asociat" ;
|
|
MESSAGE '456 :211 '
|
|
ON SELECTION BAR 3 OF Terenuri21 DO BAR_3_OF_Terenuri21_FB2P
|
|
|
|
DEFINE BAR 2 OF _09c0r6h54 PROMPT "Constructii 212"
|
|
ON BAR 2 OF _09c0r6h54 ACTIVATE POPUP _0u60pi7rd
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60pi7rd SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60pi7rd PROMPT "Achizitie"
|
|
ON BAR 1 OF _0u60pi7rd ACTIVATE POPUP _0u60pirxi
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60pirxi SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60pirxi PROMPT "De la furnizori" ;
|
|
MESSAGE '212 :404 ;4426:404 '
|
|
ON SELECTION BAR 1 OF _0u60pirxi DO BAR_1_OF__0u60pirxi_FB2P
|
|
|
|
DEFINE BAR 2 OF _0u60pirxi PROMPT "De la furnizori-taxa inversa" ;
|
|
MESSAGE '212 :404 '
|
|
ON SELECTION BAR 2 OF _0u60pirxi DO BAR_2_OF__0u60pirxi_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60pirxi PROMPT "Aport asociati" ;
|
|
MESSAGE '212 :456 '
|
|
ON SELECTION BAR 3 OF _0u60pirxi DO BAR_3_OF__0u60pirxi_FB2P
|
|
|
|
DEFINE BAR 4 OF _0u60pirxi PROMPT "Din productia proprie" ;
|
|
MESSAGE '212 :722 '
|
|
ON SELECTION BAR 4 OF _0u60pirxi DO BAR_4_OF__0u60pirxi_FB2P
|
|
|
|
DEFINE BAR 5 OF _0u60pirxi PROMPT "\-"
|
|
ON BAR 5 OF _0u60pirxi ACTIVATE POPUP _2vb0y2500
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _2vb0y2500 SHORTCUT RELATIVE
|
|
DEFINE BAR 6 OF _0u60pirxi PROMPT "Donatii cu titlu gratuit 131" ;
|
|
MESSAGE '212 :131 '
|
|
ON SELECTION BAR 6 OF _0u60pirxi DO BAR_6_OF__0u60pirxi_FB2P
|
|
|
|
DEFINE BAR 7 OF _0u60pirxi PROMPT "Subventii pentru investitii 4751" ;
|
|
MESSAGE '212 :4751'
|
|
ON SELECTION BAR 7 OF _0u60pirxi lans_generic(10604,'212',,'4751')
|
|
|
|
DEFINE BAR 8 OF _0u60pirxi PROMPT "Cu titlu gratuit 4753" ;
|
|
MESSAGE '212 :4753'
|
|
ON SELECTION BAR 8 OF _0u60pirxi lans_generic(10604,'212',,'4753')
|
|
|
|
DEFINE BAR 2 OF _0u60pi7rd PROMPT "Vanzare" ;
|
|
MESSAGE '461 :7583;461 :4427'
|
|
ON SELECTION BAR 2 OF _0u60pi7rd DO BAR_2_OF__0u60pi7rd_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60pi7rd PROMPT "Scoatere din gestiune"
|
|
ON BAR 3 OF _0u60pi7rd ACTIVATE POPUP _0u60pngsi
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60pngsi SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60pngsi PROMPT "Amortizare integrala" ;
|
|
MESSAGE '281 :212 '
|
|
ON SELECTION BAR 1 OF _0u60pngsi DO BAR_1_OF__0u60pngsi_FB2P
|
|
|
|
DEFINE BAR 2 OF _0u60pngsi PROMPT "Amortizare partiala" ;
|
|
MESSAGE '281 :212 ;6583:212 '
|
|
ON SELECTION BAR 2 OF _0u60pngsi DO BAR_2_OF__0u60pngsi_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60pngsi PROMPT "Restituire catre asociati" ;
|
|
MESSAGE '456 :212 '
|
|
ON SELECTION BAR 3 OF _0u60pngsi DO BAR_3_OF__0u60pngsi_FB2P
|
|
|
|
DEFINE BAR 3 OF _09c0r6h54 PROMPT "Echipamente tehnologice 2131"
|
|
ON BAR 3 OF _09c0r6h54 ACTIVATE POPUP _0u60prr10
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60prr10 SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60prr10 PROMPT "Achizitie"
|
|
ON BAR 1 OF _0u60prr10 ACTIVATE POPUP _0u60pwbws
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60pwbws SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60pwbws PROMPT "De la furnizori" ;
|
|
MESSAGE '2131:404 ;4426:404 '
|
|
ON SELECTION BAR 1 OF _0u60pwbws DO BAR_1_OF__0u60pwbws_FB2P
|
|
|
|
DEFINE BAR 2 OF _0u60pwbws PROMPT "Aport asociati" ;
|
|
MESSAGE '2131:456 '
|
|
ON SELECTION BAR 2 OF _0u60pwbws DO BAR_2_OF__0u60pwbws_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60pwbws PROMPT "Din productia proprie" ;
|
|
MESSAGE '2131:722 '
|
|
ON SELECTION BAR 3 OF _0u60pwbws DO BAR_3_OF__0u60pwbws_FB2P
|
|
|
|
DEFINE BAR 4 OF _0u60pwbws PROMPT "\-"
|
|
ON BAR 4 OF _0u60pwbws ACTIVATE POPUP _2vb0y5yvk
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _2vb0y5yvk SHORTCUT RELATIVE
|
|
DEFINE BAR 5 OF _0u60pwbws PROMPT "Donatii cu titlu gratuit 131" ;
|
|
MESSAGE '2131:131 '
|
|
ON SELECTION BAR 5 OF _0u60pwbws DO BAR_5_OF__0u60pwbws_FB2P
|
|
|
|
DEFINE BAR 6 OF _0u60pwbws PROMPT "Subventii pentru investitii 4751" ;
|
|
MESSAGE '2131:4751'
|
|
ON SELECTION BAR 6 OF _0u60pwbws lans_generic(10604,'2131',,'4751')
|
|
|
|
DEFINE BAR 7 OF _0u60pwbws PROMPT "Cu titlu gratuit 4753" ;
|
|
MESSAGE '2131:4753'
|
|
ON SELECTION BAR 7 OF _0u60pwbws lans_generic(10604,'2131',,'4753')
|
|
|
|
DEFINE BAR 2 OF _0u60prr10 PROMPT " Vanzare" ;
|
|
MESSAGE '461 :7583;461 :4427'
|
|
ON SELECTION BAR 2 OF _0u60prr10 DO BAR_2_OF__0u60prr10_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60prr10 PROMPT "Scoatere din gestiune"
|
|
ON BAR 3 OF _0u60prr10 ACTIVATE POPUP _0u60q5p9b
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60q5p9b SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60q5p9b PROMPT "Amortizare integrala" ;
|
|
MESSAGE '281 :2131'
|
|
ON SELECTION BAR 1 OF _0u60q5p9b DO BAR_1_OF__0u60q5p9b_FB2P
|
|
|
|
DEFINE BAR 2 OF _0u60q5p9b PROMPT "Amortizare partiala" ;
|
|
MESSAGE '281 :2131;6583:2131'
|
|
ON SELECTION BAR 2 OF _0u60q5p9b DO BAR_2_OF__0u60q5p9b_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60q5p9b PROMPT "Restituire catre asociati" ;
|
|
MESSAGE '456 :2131'
|
|
ON SELECTION BAR 3 OF _0u60q5p9b DO BAR_3_OF__0u60q5p9b_FB2P
|
|
|
|
DEFINE BAR 4 OF _09c0r6h54 PROMPT "Aparate de masura 2132"
|
|
ON BAR 4 OF _09c0r6h54 ACTIVATE POPUP _0u60qd0ny
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60qd0ny SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60qd0ny PROMPT "Achizitie"
|
|
ON BAR 1 OF _0u60qd0ny ACTIVATE POPUP _0u60qe5ej
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60qe5ej SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60qe5ej PROMPT "De la furnizori" ;
|
|
MESSAGE '2132:404 ;4426:404 '
|
|
ON SELECTION BAR 1 OF _0u60qe5ej DO BAR_1_OF__0u60qe5ej_FB2P
|
|
|
|
DEFINE BAR 2 OF _0u60qe5ej PROMPT "Aport asociati" ;
|
|
MESSAGE '2132:456 '
|
|
ON SELECTION BAR 2 OF _0u60qe5ej DO BAR_2_OF__0u60qe5ej_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60qe5ej PROMPT "Din productia proprie" ;
|
|
MESSAGE '2132:722 '
|
|
ON SELECTION BAR 3 OF _0u60qe5ej DO BAR_3_OF__0u60qe5ej_FB2P
|
|
|
|
DEFINE BAR 4 OF _0u60qe5ej PROMPT "\-"
|
|
ON BAR 4 OF _0u60qe5ej ACTIVATE POPUP _2vb0y72bk
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _2vb0y72bk SHORTCUT RELATIVE
|
|
DEFINE BAR 5 OF _0u60qe5ej PROMPT "Donatii cu titlu gratuit 131" ;
|
|
MESSAGE '2132:131 '
|
|
ON SELECTION BAR 5 OF _0u60qe5ej DO BAR_5_OF__0u60qe5ej_FB2P
|
|
|
|
DEFINE BAR 6 OF _0u60qe5ej PROMPT "Subventii pentru investii 4751" ;
|
|
MESSAGE '2132:4751'
|
|
ON SELECTION BAR 6 OF _0u60qe5ej lans_generic(10577,'2132',,'4751')
|
|
|
|
DEFINE BAR 7 OF _0u60qe5ej PROMPT "Cu titlu gratuit 4753" ;
|
|
MESSAGE '2132:4753'
|
|
ON SELECTION BAR 7 OF _0u60qe5ej lans_generic(10577,'2132',,'4753')
|
|
|
|
DEFINE BAR 2 OF _0u60qd0ny PROMPT "Vanzare" ;
|
|
MESSAGE '461 :7583;461 :4427'
|
|
ON SELECTION BAR 2 OF _0u60qd0ny DO BAR_2_OF__0u60qd0ny_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60qd0ny PROMPT "Scoatere din gestiune"
|
|
ON BAR 3 OF _0u60qd0ny ACTIVATE POPUP _0u60qpa2l
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60qpa2l SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60qpa2l PROMPT "Amortizare integrala" ;
|
|
MESSAGE '281 :2132'
|
|
ON SELECTION BAR 1 OF _0u60qpa2l DO BAR_1_OF__0u60qpa2l_FB2P
|
|
|
|
DEFINE BAR 2 OF _0u60qpa2l PROMPT "Amortizare partiala" ;
|
|
MESSAGE '281 :2132;6583:2132'
|
|
ON SELECTION BAR 2 OF _0u60qpa2l DO BAR_2_OF__0u60qpa2l_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60qpa2l PROMPT "Restituire catre asociati" ;
|
|
MESSAGE '456 :2132'
|
|
ON SELECTION BAR 3 OF _0u60qpa2l DO BAR_3_OF__0u60qpa2l_FB2P
|
|
|
|
DEFINE BAR 5 OF _09c0r6h54 PROMPT "Mijloace de transport 2133"
|
|
ON BAR 5 OF _09c0r6h54 ACTIVATE POPUP _0u60quxkz
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60quxkz SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60quxkz PROMPT "Achizitie"
|
|
ON BAR 1 OF _0u60quxkz ACTIVATE POPUP _0u60qv453
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60qv453 SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60qv453 PROMPT "De la furnizori" ;
|
|
MESSAGE '2133:404 ;4426:404 '
|
|
ON SELECTION BAR 1 OF _0u60qv453 DO BAR_1_OF__0u60qv453_FB2P
|
|
|
|
DEFINE BAR 2 OF _0u60qv453 PROMPT "De la furnizori-taxa inversa" ;
|
|
MESSAGE '2133:404'
|
|
ON SELECTION BAR 2 OF _0u60qv453 DO BAR_2_OF__0u60qv453_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60qv453 PROMPT "Aport asociati" ;
|
|
MESSAGE '2133:456 '
|
|
ON SELECTION BAR 3 OF _0u60qv453 DO BAR_3_OF__0u60qv453_FB2P
|
|
|
|
DEFINE BAR 4 OF _0u60qv453 PROMPT "Din productia proprie" ;
|
|
MESSAGE '2133:722 '
|
|
ON SELECTION BAR 4 OF _0u60qv453 DO BAR_4_OF__0u60qv453_FB2P
|
|
|
|
DEFINE BAR 5 OF _0u60qv453 PROMPT "\-"
|
|
ON BAR 5 OF _0u60qv453 ACTIVATE POPUP _2vb0zwc5z
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _2vb0zwc5z SHORTCUT RELATIVE
|
|
DEFINE BAR 6 OF _0u60qv453 PROMPT "Donatii cu titlu gratuit 131" ;
|
|
MESSAGE '2133:131 '
|
|
ON SELECTION BAR 6 OF _0u60qv453 DO BAR_6_OF__0u60qv453_FB2P
|
|
|
|
DEFINE BAR 7 OF _0u60qv453 PROMPT "Subventii pentru investii 4751" ;
|
|
MESSAGE '2133:4751'
|
|
ON SELECTION BAR 7 OF _0u60qv453 lans_generic(10604,'2132',,'4751')
|
|
|
|
DEFINE BAR 8 OF _0u60qv453 PROMPT "Cu titlu gratuit 4753" ;
|
|
MESSAGE '2133:4753'
|
|
ON SELECTION BAR 8 OF _0u60qv453 lans_generic(10604,'2132',,'4753')
|
|
|
|
DEFINE BAR 2 OF _0u60quxkz PROMPT "Vanzare" ;
|
|
MESSAGE '461 :7583;461 :4427'
|
|
ON SELECTION BAR 2 OF _0u60quxkz DO BAR_2_OF__0u60quxkz_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60quxkz PROMPT "Scoatere din gestiune"
|
|
ON BAR 3 OF _0u60quxkz ACTIVATE POPUP Scoateredi
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Scoateredi SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Scoateredi PROMPT "Amortizare integrala" ;
|
|
MESSAGE '281 :2133'
|
|
ON SELECTION BAR 1 OF Scoateredi DO BAR_1_OF_Scoateredi_FB2P
|
|
|
|
DEFINE BAR 2 OF Scoateredi PROMPT "Amortizare partiala" ;
|
|
MESSAGE '281 :2133;6583:2133'
|
|
ON SELECTION BAR 2 OF Scoateredi DO BAR_2_OF_Scoateredi_FB2P
|
|
|
|
DEFINE BAR 3 OF Scoateredi PROMPT "Restituire catre asociati" ;
|
|
MESSAGE '456 :2133'
|
|
ON SELECTION BAR 3 OF Scoateredi DO BAR_3_OF_Scoateredi_FB2P
|
|
|
|
DEFINE BAR 6 OF _09c0r6h54 PROMPT "Mobilier birotica 214"
|
|
ON BAR 6 OF _09c0r6h54 ACTIVATE POPUP _0u60r4hxo
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60r4hxo SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60r4hxo PROMPT "Achizitie"
|
|
ON BAR 1 OF _0u60r4hxo ACTIVATE POPUP _0u60r4pla
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60r4pla SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60r4pla PROMPT "De la furnizori" ;
|
|
MESSAGE '214 :404 ;4426:404 '
|
|
ON SELECTION BAR 1 OF _0u60r4pla DO BAR_1_OF__0u60r4pla_FB2P
|
|
|
|
DEFINE BAR 2 OF _0u60r4pla PROMPT "Aport asociati" ;
|
|
MESSAGE '214 :456 '
|
|
ON SELECTION BAR 2 OF _0u60r4pla DO BAR_2_OF__0u60r4pla_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60r4pla PROMPT "Din productia proprie" ;
|
|
MESSAGE '214 :722 '
|
|
ON SELECTION BAR 3 OF _0u60r4pla DO BAR_3_OF__0u60r4pla_FB2P
|
|
|
|
DEFINE BAR 4 OF _0u60r4pla PROMPT "\-"
|
|
ON BAR 4 OF _0u60r4pla ACTIVATE POPUP _2vb104ksz
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _2vb104ksz SHORTCUT RELATIVE
|
|
DEFINE BAR 5 OF _0u60r4pla PROMPT "Donatii cu titlu gratuit" ;
|
|
MESSAGE '214 :131 '
|
|
ON SELECTION BAR 5 OF _0u60r4pla DO BAR_5_OF__0u60r4pla_FB2P
|
|
|
|
DEFINE BAR 6 OF _0u60r4pla PROMPT "Subventii pentru investitii 4751" ;
|
|
MESSAGE '214 :4751'
|
|
ON SELECTION BAR 6 OF _0u60r4pla lans_generic(10604,'214',,'4751')
|
|
|
|
DEFINE BAR 7 OF _0u60r4pla PROMPT "Cu titlu gratuit 4753" ;
|
|
MESSAGE '214 :4753'
|
|
ON SELECTION BAR 7 OF _0u60r4pla lans_generic(10604,'214',,'4753')
|
|
|
|
DEFINE BAR 2 OF _0u60r4hxo PROMPT "Vanzare" ;
|
|
MESSAGE '461 :7583;461 :4427'
|
|
ON SELECTION BAR 2 OF _0u60r4hxo DO BAR_2_OF__0u60r4hxo_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60r4hxo PROMPT "Scoatere din gestiune"
|
|
ON BAR 3 OF _0u60r4hxo ACTIVATE POPUP _0u60rb80y
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0u60rb80y SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0u60rb80y PROMPT "Amortizare integrala" ;
|
|
MESSAGE '281 :214 '
|
|
ON SELECTION BAR 1 OF _0u60rb80y DO BAR_1_OF__0u60rb80y_FB2P
|
|
|
|
DEFINE BAR 2 OF _0u60rb80y PROMPT "Amortizare partiala" ;
|
|
MESSAGE '281 :214 ;6583:214 '
|
|
ON SELECTION BAR 2 OF _0u60rb80y DO BAR_2_OF__0u60rb80y_FB2P
|
|
|
|
DEFINE BAR 3 OF _0u60rb80y PROMPT "Restituire catre asociati" ;
|
|
MESSAGE '456 :214 '
|
|
ON SELECTION BAR 3 OF _0u60rb80y DO BAR_3_OF__0u60rb80y_FB2P
|
|
ACTIVATE POPUP _09c0r6h54
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Achizitie_FB2P
|
|
lans(10080)
|
|
ENDPROC && BAR_1_OF_Achizitie_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Achizitie_FB2P
|
|
lans(10586)
|
|
ENDPROC && BAR_2_OF_Achizitie_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Achizitie_FB2P
|
|
*DO ABC1 WITH '2111',"456 "
|
|
lans(10081)
|
|
ENDPROC && BAR_3_OF_Achizitie_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Achizitie_FB2P
|
|
*DO ABC1 WITH '2111',"131 "
|
|
lans(10082)
|
|
ENDPROC && BAR_5_OF_Achizitie_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Vanzare_FB2P
|
|
*!*vvv DO ABC2 WITH '461 ',"7721","461 ","4427"
|
|
*DO ABC2 WITH '461 ',"7583","461 ","4427"
|
|
lans(10083)
|
|
ENDPROC && BAR_1_OF_Vanzare_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Vanzare_FB2P
|
|
*!* DO ABC1 WITH '6721',"2111"
|
|
*DO ABC1 WITH '6583',"2111"
|
|
lans(10084)
|
|
ENDPROC && BAR_2_OF_Vanzare_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Terenuri21_FB2P
|
|
*DO ABC1 WITH '456 ',"211 "
|
|
lans(10085)
|
|
ENDPROC && BAR_3_OF_Terenuri21_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__0u60pirxi_FB2P
|
|
lans(10086)
|
|
ENDPROC && BAR_1_OF__0u60pirxi_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60pirxi_FB2P
|
|
lans(10587)
|
|
ENDPROC && BAR_2_OF__0u60pirxi_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__0u60pirxi_FB2P
|
|
*DO ABC1 WITH '212 ',"456 "
|
|
lans(10087)
|
|
ENDPROC && BAR_3_OF__0u60pirxi_FB2P
|
|
|
|
PROCEDURE BAR_4_OF__0u60pirxi_FB2P
|
|
*DO ABC1 WITH '212 ',"722 "
|
|
lans(10089)
|
|
ENDPROC && BAR_4_OF__0u60pirxi_FB2P
|
|
|
|
PROCEDURE BAR_6_OF__0u60pirxi_FB2P
|
|
*DO ABC1 WITH '212 ',"131 "
|
|
lans(10088)
|
|
ENDPROC && BAR_6_OF__0u60pirxi_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60pi7rd_FB2P
|
|
*DO ABC2 WITH '461 ',"7583","461 ","4427"
|
|
lans(10090)
|
|
ENDPROC && BAR_2_OF__0u60pi7rd_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__0u60pngsi_FB2P
|
|
*DO ABC1 WITH '281 ',"212 "
|
|
lans(10091)
|
|
ENDPROC && BAR_1_OF__0u60pngsi_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60pngsi_FB2P
|
|
*!* *DO ABC2 WITH '281 ',"212 ","6583","212 "
|
|
*!* DO abc1 WITH '2812','212'
|
|
*!* ss=m.suma
|
|
*!* *m.suma=round((m.ctva-1)*ss,0)
|
|
*!* DO abc1 WITH '6583','212'
|
|
|
|
lans(10121)
|
|
ENDPROC && BAR_2_OF__0u60pngsi_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__0u60pngsi_FB2P
|
|
*DO ABC1 WITH '456 ',"212 "
|
|
lans(10092)
|
|
ENDPROC && BAR_3_OF__0u60pngsi_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__0u60pwbws_FB2P
|
|
*!* *DO ABC2 WITH '2131',"404 ","4426","404 "
|
|
|
|
*!* DEB='2131'
|
|
*!* M.SCD=DEB
|
|
*!* M.SCD1=DEB
|
|
*!* SCC1='404 '
|
|
*!* SCD2='4426'
|
|
*!* SCC2=SCC1
|
|
|
|
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
|
*!* CLASAACT='ACTFIX404'
|
|
*!* OA=CREA(CLASAACT)
|
|
*!* OA.SHOW(1)
|
|
*!* *
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* DO CODARE
|
|
*!* do pnir
|
|
|
|
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
|
|
*!* ***********
|
|
*!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT
|
|
*!* *************
|
|
*!* IF m.NEIMPOZAB>0
|
|
*!* m.num=m.nume_2
|
|
*!* m.nume_2='NEIMPOZABIL '
|
|
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT
|
|
*!* M.NUME_2=M.NUM
|
|
*!* ENDIF
|
|
*!* IF m.totftvaI>0
|
|
*!* m.num=m.nume_2
|
|
|
|
*!* m.nume_2='TVA '+str(m.ctvai,5,2)
|
|
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT
|
|
*!* M.NUME_2=M.NUM
|
|
*!* ENDIF
|
|
*!* IF m.totftvaM>0
|
|
*!* m.num=m.nume_2
|
|
|
|
*!* m.nume_2='TVA '+str(m.ctvaM,5,2)
|
|
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT
|
|
*!* M.NUME_2=M.NUM
|
|
*!* ENDIF
|
|
*!* SELE FURNIZ404
|
|
*!* set filter to
|
|
*!* loca for allt(nume)=allt(m.nume)
|
|
*!* if flock()
|
|
*!* repl furnizor.achizit with furnizor.achizit+M.TOTCTVA
|
|
*!* endif
|
|
*!* unlock
|
|
*!* DO ADCUMP404
|
|
*!* **********
|
|
*!* DO STERGE
|
|
lans(10093)
|
|
ENDPROC && BAR_1_OF__0u60pwbws_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60pwbws_FB2P
|
|
*DO ABC1 WITH '2131',"456 "
|
|
lans(10094)
|
|
ENDPROC && BAR_2_OF__0u60pwbws_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__0u60pwbws_FB2P
|
|
*DO ABC1 WITH '2131','722 '
|
|
lans(10096)
|
|
ENDPROC && BAR_3_OF__0u60pwbws_FB2P
|
|
|
|
PROCEDURE BAR_5_OF__0u60pwbws_FB2P
|
|
*DO ABC1 WITH '2131',"131 "
|
|
lans(10095)
|
|
ENDPROC && BAR_5_OF__0u60pwbws_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60prr10_FB2P
|
|
*DO ABC2 WITH '461 ',"7583","461 ","4427"
|
|
lans(10097)
|
|
ENDPROC && BAR_2_OF__0u60prr10_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__0u60q5p9b_FB2P
|
|
*DO ABC1 WITH '281 ',"2131"
|
|
lans(10098)
|
|
ENDPROC && BAR_1_OF__0u60q5p9b_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60q5p9b_FB2P
|
|
*!* *DO ABC2 WITH '281',"2131",'6583',"2131"
|
|
*!* DO abc1 WITH '2813','2131'
|
|
*!* ss=m.suma
|
|
*!* *m.suma=round((m.ctva-1)*ss,0)
|
|
*!* DO abc1 WITH '6583','2131'
|
|
lans(10122)
|
|
ENDPROC && BAR_2_OF__0u60q5p9b_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__0u60q5p9b_FB2P
|
|
*DO ABC1 WITH '456 ',"2131"
|
|
lans(10099)
|
|
ENDPROC && BAR_3_OF__0u60q5p9b_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__0u60qe5ej_FB2P
|
|
lans(10100)
|
|
*!* *DO ABC2 WITH '2132',"404 ",'4426',"404 "
|
|
*!* DEB='2132'
|
|
*!* M.SCD=DEB
|
|
*!* M.SCD1=DEB
|
|
*!* SCC1='404 '
|
|
*!* SCD2='4426'
|
|
*!* SCC2=SCC1
|
|
|
|
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
|
*!* CLASAACT='ACTFIX404'
|
|
*!* OA=CREA(CLASAACT)
|
|
*!* OA.SHOW(1)
|
|
*!* *
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* DO CODARE
|
|
*!* do pnir
|
|
|
|
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
|
|
*!* ***********
|
|
*!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT
|
|
*!* *************
|
|
*!* IF m.NEIMPOZAB>0
|
|
*!* m.num=m.nume_2
|
|
*!* m.nume_2='NEIMPOZABIL '
|
|
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT
|
|
*!* M.NUME_2=M.NUM
|
|
*!* ENDIF
|
|
*!* IF m.totftvaI>0
|
|
*!* m.num=m.nume_2
|
|
|
|
*!* m.nume_2='TVA '+str(m.ctvai,5,2)
|
|
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT
|
|
*!* M.NUME_2=M.NUM
|
|
*!* ENDIF
|
|
*!* IF m.totftvaM>0
|
|
*!* m.num=m.nume_2
|
|
|
|
*!* m.nume_2='TVA '+str(m.ctvaM,5,2)
|
|
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT
|
|
*!* M.NUME_2=M.NUM
|
|
*!* ENDIF
|
|
*!* SELE FURNIZ404
|
|
*!* set filter to
|
|
*!* loca for allt(nume)=allt(m.nume)
|
|
*!* if flock()
|
|
*!* repl achizit with achizit+M.TOTCTVA
|
|
*!* endif
|
|
*!* unlock
|
|
*!* DO ADCUMP404
|
|
*!* **********
|
|
*!* DO STERGE
|
|
ENDPROC && BAR_1_OF__0u60qe5ej_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60qe5ej_FB2P
|
|
*DO ABC1 WITH '2132',"456 "
|
|
lans(10101)
|
|
ENDPROC && BAR_2_OF__0u60qe5ej_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__0u60qe5ej_FB2P
|
|
*DO ABC1 WITH '2132','722 '
|
|
lans(10103)
|
|
ENDPROC && BAR_3_OF__0u60qe5ej_FB2P
|
|
|
|
PROCEDURE BAR_5_OF__0u60qe5ej_FB2P
|
|
*DO ABC1 WITH '2132',"131 "
|
|
lans(10102)
|
|
ENDPROC && BAR_5_OF__0u60qe5ej_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60qd0ny_FB2P
|
|
*DO ABC2 WITH '461','7583','461 ','4427'
|
|
lans(10104)
|
|
ENDPROC && BAR_2_OF__0u60qd0ny_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__0u60qpa2l_FB2P
|
|
*DO ABC1 WITH '281 ','2132'
|
|
lans(10105)
|
|
ENDPROC && BAR_1_OF__0u60qpa2l_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60qpa2l_FB2P
|
|
*!* *DO ABC2 WITH '281 ','2132','6583','2132'
|
|
*!* DO abc1 WITH '2813','2132'
|
|
*!* ss=m.suma
|
|
*!* *m.suma=round((m.ctva-1)*ss,0)
|
|
*!* DO abc1 WITH '6583','2132'
|
|
lans(10123)
|
|
ENDPROC && BAR_2_OF__0u60qpa2l_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__0u60qpa2l_FB2P
|
|
*DO ABC1 WITH '456 ','2132'
|
|
lans(10106)
|
|
ENDPROC && BAR_3_OF__0u60qpa2l_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__0u60qv453_FB2P
|
|
lans(10107)
|
|
ENDPROC && BAR_1_OF__0u60qv453_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60qv453_FB2P
|
|
lans(10588)
|
|
ENDPROC && BAR_2_OF__0u60qv453_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__0u60qv453_FB2P
|
|
*DO ABC1 WITH '2133','456 '
|
|
lans(10108)
|
|
ENDPROC && BAR_3_OF__0u60qv453_FB2P
|
|
|
|
PROCEDURE BAR_4_OF__0u60qv453_FB2P
|
|
*DO ABC1 WITH '2133','722 '
|
|
lans(10110)
|
|
ENDPROC && BAR_4_OF__0u60qv453_FB2P
|
|
|
|
PROCEDURE BAR_6_OF__0u60qv453_FB2P
|
|
*DO ABC1 WITH '2133','131 '
|
|
lans(10109)
|
|
ENDPROC && BAR_6_OF__0u60qv453_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60quxkz_FB2P
|
|
*DO ABC2 WITH '461 ','7583','461 ','4427'
|
|
lans(10111)
|
|
ENDPROC && BAR_2_OF__0u60quxkz_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Scoateredi_FB2P
|
|
*DO ABC1 WITH '281 ','2133'
|
|
laNS(10112)
|
|
ENDPROC && BAR_1_OF_Scoateredi_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Scoateredi_FB2P
|
|
*!* *DO ABC2 WITH '281 ','2133','6583','2133'
|
|
*!* DO abc1 WITH '2813','2133'
|
|
*!* ss=m.suma
|
|
*!* *m.suma=round((m.ctva-1)*ss,0)
|
|
*!* DO abc1 WITH '6583','2133'
|
|
lans(10124)
|
|
ENDPROC && BAR_2_OF_Scoateredi_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Scoateredi_FB2P
|
|
*DO ABC1 WITH '456 ','2133'
|
|
lans(10113)
|
|
ENDPROC && BAR_3_OF_Scoateredi_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__0u60r4pla_FB2P
|
|
lans(10114)
|
|
*!* *DO ABC2 WITH '214 ','404 ','4426','404 '
|
|
|
|
*!* DEB='214 '
|
|
*!* M.SCD=DEB
|
|
*!* M.SCD1=DEB
|
|
*!* SCC1='404 '
|
|
*!* SCD2='4426 '
|
|
*!* SCC2=SCC1
|
|
|
|
*!* ***DO ACTFIX.SPR &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
|
|
*!* CLASAACT='ACTFIX404'
|
|
*!* OA=CREA(CLASAACT)
|
|
*!* OA.SHOW(1)
|
|
*!* *
|
|
*!* IF BUTON=2
|
|
*!* DO STERGE
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* DO CODARE
|
|
*!* do pnir
|
|
|
|
*!* M.TOTCTVA=M.TOTFTVA+M.TOTTVA
|
|
*!* ***********
|
|
*!* DO CONTABILIZEAZA WITH SCD1,SCC1,M.TOTFTVA ,CLASAACT
|
|
*!* *************
|
|
*!* IF m.NEIMPOZAB>0
|
|
*!* m.num=m.nume_2
|
|
*!* m.nume_2='NEIMPOZABIL '
|
|
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,0 ,CLASAACT
|
|
*!* M.NUME_2=M.NUM
|
|
*!* ENDIF
|
|
*!* IF m.totftvaI>0
|
|
*!* m.num=m.nume_2
|
|
|
|
*!* m.nume_2='TVA '+str(m.ctvai,5,2)
|
|
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAI ,CLASAACT
|
|
*!* M.NUME_2=M.NUM
|
|
*!* ENDIF
|
|
*!* IF m.totftvaM>0
|
|
*!* m.num=m.nume_2
|
|
|
|
*!* m.nume_2='TVA '+str(m.ctvaM,5,2)
|
|
*!* DO CONTABILIZEAZA WITH SCD2,SCC2,M.TVAM ,CLASAACT
|
|
*!* M.NUME_2=M.NUM
|
|
*!* ENDIF
|
|
*!* SELE FURNIZ404
|
|
*!* set filter to
|
|
*!* loca for allt(nume)=allt(m.nume)
|
|
*!* if flock()
|
|
*!* repl achizit with achizit+M.TOTCTVA
|
|
*!* endif
|
|
*!* unlock
|
|
*!* DO ADCUMP404
|
|
*!* **********
|
|
*!* DO STERGE
|
|
ENDPROC && BAR_1_OF__0u60r4pla_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60r4pla_FB2P
|
|
*DO ABC1 WITH '214 ','456 '
|
|
lans(10115)
|
|
ENDPROC && BAR_2_OF__0u60r4pla_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__0u60r4pla_FB2P
|
|
*DO ABC1 WITH '214 ','722 '
|
|
lans(10117)
|
|
ENDPROC && BAR_3_OF__0u60r4pla_FB2P
|
|
|
|
PROCEDURE BAR_5_OF__0u60r4pla_FB2P
|
|
*DO ABC1 WITH '214 ','131 '
|
|
lans(10116)
|
|
ENDPROC && BAR_5_OF__0u60r4pla_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60r4hxo_FB2P
|
|
*DO ABC2 WITH '461 ','7583','461 ','4427'
|
|
lans(10118)
|
|
ENDPROC && BAR_2_OF__0u60r4hxo_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__0u60rb80y_FB2P
|
|
*DO ABC1 WITH '281 ','214 '
|
|
lans(10119)
|
|
ENDPROC && BAR_1_OF__0u60rb80y_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0u60rb80y_FB2P
|
|
*!* *DO ABC2 WITH '281 ','214 ','6583','214 '
|
|
*!* DO abc1 WITH '2814','214'
|
|
*!* ss=m.suma
|
|
*!* *m.suma=round((m.ctva-1)*ss,0)
|
|
*!* DO abc1 WITH '6583','214'
|
|
lans(10125)
|
|
ENDPROC && BAR_2_OF__0u60rb80y_FB2P
|
|
|
|
PROCEDURE BAR_3_OF__0u60rb80y_FB2P
|
|
*DO ABC1 WITH '456 ','214 '
|
|
lans(10120)
|
|
ENDPROC && BAR_3_OF__0u60rb80y_FB2P
|
|
|
|
*</Procedures>
|