*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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>
