*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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)
*
*4
*REPLACE
*
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
*
*
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
*