*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>4</MenuType>
*<MenuLocation>REPLACE</MenuLocation>

*<MenuCode>
DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Furnizori PROMPT "Factura de achizitie generala"
ON SELECTION BAR 1 OF Furnizori DO BAR_1_OF_Furnizori_FB2P

DEFINE BAR 2 OF Furnizori PROMPT "Factura externa de achizitie"
ON SELECTION BAR 2 OF Furnizori DO BAR_2_OF_Furnizori_FB2P

DEFINE BAR 3 OF Furnizori PROMPT "\-"
ON BAR 3 OF Furnizori ACTIVATE POPUP _13y108f6b

	*----------------------------------
	DEFINE POPUP _13y108f6b SHORTCUT RELATIVE
DEFINE BAR "41" OF Furnizori PROMPT "Materii, materiale neplatite"
ON BAR 41 OF Furnizori ACTIVATE POPUP Materiimat

	*----------------------------------
	DEFINE POPUP Materiimat SHORTCUT RELATIVE
	DEFINE BAR "41010" OF Materiimat PROMPT "Materii prime 301" ;
		MESSAGE 'Note contabile: 301:401; 4426:401'
	ON SELECTION BAR 41010 OF Materiimat DO BAR_"41010"_OF_Materiimat_FB2P

	DEFINE BAR "41020" OF Materiimat PROMPT "Materiale auxiliare 3021" ;
		MESSAGE 'Note contabile: 3021:401; 4426:401'
	ON SELECTION BAR 41020 OF Materiimat DO BAR_"41020"_OF_Materiimat_FB2P

	DEFINE BAR "41030" OF Materiimat PROMPT "Combustibil 3022" ;
		MESSAGE 'Note contabile: 3022:401; 4426:401'
	ON SELECTION BAR 41030 OF Materiimat DO BAR_"41030"_OF_Materiimat_FB2P

	DEFINE BAR 4 OF Materiimat PROMPT "Combustibili (cu accize)" ;
		MESSAGE 'Note contabile: 3022:401; 4426:401; 401-461'
	ON SELECTION BAR 4 OF Materiimat DO BAR_4_OF_Materiimat_FB2P

	DEFINE BAR "41040" OF Materiimat PROMPT "Materiale pentru ambalat 3023" ;
		MESSAGE 'Note contabile: 3023:401; 4426:401'
	ON SELECTION BAR 41040 OF Materiimat DO BAR_"41040"_OF_Materiimat_FB2P

	DEFINE BAR "41050" OF Materiimat PROMPT "Piese de schimb 3024" ;
		MESSAGE 'Note contabile: 3024:401; 4426:401'
	ON SELECTION BAR 41050 OF Materiimat DO BAR_"41050"_OF_Materiimat_FB2P

	DEFINE BAR 7 OF Materiimat PROMPT "Alte materiale 3028" ;
		MESSAGE 'Note contabile: 3028:401; 4426:401'
	ON SELECTION BAR 7 OF Materiimat DO BAR_7_OF_Materiimat_FB2P

	DEFINE BAR "41060" OF Materiimat PROMPT "Obiecte de inventar 303" ;
		MESSAGE 'Note contabile: 303:401; 4426:401'
	ON SELECTION BAR 41060 OF Materiimat DO BAR_"41060"_OF_Materiimat_FB2P

	DEFINE BAR "41080" OF Materiimat PROMPT "Ambalaje 381" ;
		MESSAGE 'Note contabile: 381:401; 4426:401'
	ON SELECTION BAR 41080 OF Materiimat DO BAR_"41080"_OF_Materiimat_FB2P

	DEFINE BAR "41110" OF Materiimat PROMPT "\Mijloace fixe" ;
		MESSAGE 'Note contabile: 212:404; 4426:404'
	ON SELECTION BAR 41110 OF Materiimat DO BAR_"41110"_OF_Materiimat_FB2P

	DEFINE BAR 11 OF Materiimat PROMPT "Marfa 371" ;
		MESSAGE 'Note contabile: 371:401; 4426:401'
	ON SELECTION BAR 11 OF Materiimat lans(10570)

	DEFINE BAR 12 OF Materiimat PROMPT "\-"
	ON BAR 12 OF Materiimat ACTIVATE POPUP _2vb108l5h

		*----------------------------------
		DEFINE POPUP _2vb108l5h SHORTCUT RELATIVE
	DEFINE BAR 13 OF Materiimat PROMPT "In curs de aprovizionare"
	ON BAR 13 OF Materiimat ACTIVATE POPUP Incursdeap

		*----------------------------------
		DEFINE POPUP Incursdeap SHORTCUT RELATIVE
		DEFINE BAR 1 OF Incursdeap PROMPT "Materii prime în curs de aprovizionare 321" ;
			MESSAGE 'Note contabile: 321:401; 4426:401'
		ON SELECTION BAR 1 OF Incursdeap lans_generic(10309,'321')

		DEFINE BAR 2 OF Incursdeap PROMPT "Materii prime finalizare aprovizionare 321" ;
			MESSAGE 'Note contabile: 301:321'
		ON SELECTION BAR 2 OF Incursdeap lans_generic(10604,'301',,'321')

		DEFINE BAR 3 OF Incursdeap PROMPT "\-"
		ON BAR 3 OF Incursdeap ACTIVATE POPUP _2vb10q94c

			*----------------------------------
			DEFINE POPUP _2vb10q94c SHORTCUT RELATIVE
		DEFINE BAR 4 OF Incursdeap PROMPT "Materiale consumabile in curs de aprovizionare 322" ;
			MESSAGE 'Note contabile: 322:401; 4426:401'
		ON SELECTION BAR 4 OF Incursdeap lans_generic(10309,'322')

		DEFINE BAR 5 OF Incursdeap PROMPT "Materiale consumabile finalizare aprovizionare 322" ;
			MESSAGE 'Note contabile: 302:322'
		ON SELECTION BAR 5 OF Incursdeap DO BAR_5_OF_Incursdeap_FB2P

		DEFINE BAR 6 OF Incursdeap PROMPT "\-"
		ON BAR 6 OF Incursdeap ACTIVATE POPUP _2vb10q94d

			*----------------------------------
			DEFINE POPUP _2vb10q94d SHORTCUT RELATIVE
		DEFINE BAR 7 OF Incursdeap PROMPT "Obiecte de inventar in curs de aprovizionare 323" ;
			MESSAGE 'Note contabile: 323:401; 4426:401'
		ON SELECTION BAR 7 OF Incursdeap lans_generic(10309,'323')

		DEFINE BAR 8 OF Incursdeap PROMPT "Obiecte de inventar finalizare aprovizionare 323" ;
			MESSAGE 'Note contabile: 303:323'
		ON SELECTION BAR 8 OF Incursdeap lans_generic(10604,'303',,'323')

		DEFINE BAR 9 OF Incursdeap PROMPT "\-"
		ON BAR 9 OF Incursdeap ACTIVATE POPUP _2vb10q94e

			*----------------------------------
			DEFINE POPUP _2vb10q94e SHORTCUT RELATIVE
		DEFINE BAR 10 OF Incursdeap PROMPT "Animale in curs de aprovizionare 326" ;
			MESSAGE 'Note contabile: 326:401; 4426:401'
		ON SELECTION BAR 10 OF Incursdeap lans_generic(10309,'326')

		DEFINE BAR 11 OF Incursdeap PROMPT "Animale finalizare aprovizionare 326" ;
			MESSAGE 'Note contabile: 361:326'
		ON SELECTION BAR 11 OF Incursdeap lans_generic(10604,'361',,'326')

		DEFINE BAR 12 OF Incursdeap PROMPT "\-"
		ON BAR 12 OF Incursdeap ACTIVATE POPUP _2vb10q94f

			*----------------------------------
			DEFINE POPUP _2vb10q94f SHORTCUT RELATIVE
		DEFINE BAR 13 OF Incursdeap PROMPT "Marfuri in curs de aprovizionare 371" ;
			MESSAGE 'Note contabile: 327:401; 4426:401'
		ON SELECTION BAR 13 OF Incursdeap lans_generic(10309,'327')

		DEFINE BAR 14 OF Incursdeap PROMPT "Marfuri finalizare aprovizionare 327" ;
			MESSAGE 'Note contabile: 371:327'
		ON SELECTION BAR 14 OF Incursdeap lans_generic(10604,'371',,'327')

		DEFINE BAR 15 OF Incursdeap PROMPT "\-"
		ON BAR 15 OF Incursdeap ACTIVATE POPUP _2vb10q94g

			*----------------------------------
			DEFINE POPUP _2vb10q94g SHORTCUT RELATIVE
		DEFINE BAR 16 OF Incursdeap PROMPT "Ambalaje in curs de aprovizionare 328" ;
			MESSAGE 'Note contabile: 328:401; 4426:401'
		ON SELECTION BAR 16 OF Incursdeap lans_generic(10309,'328')

		DEFINE BAR 17 OF Incursdeap PROMPT "Ambalaje finalizare aprovizionare 328" ;
			MESSAGE 'Note contabile: 381:328'
		ON SELECTION BAR 17 OF Incursdeap lans_generic(10604,'381',,'328')

DEFINE BAR "42" OF Furnizori PROMPT "Materii, materale platite din casa"
ON BAR 42 OF Furnizori ACTIVATE POPUP _1370tt6bt

	*----------------------------------
	DEFINE POPUP _1370tt6bt SHORTCUT RELATIVE
	DEFINE BAR "42010" OF _1370tt6bt PROMPT "Materii prime 301" ;
		MESSAGE 'Note contabile: 301:401; 4426:401; 401:5311'
	ON SELECTION BAR 42010 OF _1370tt6bt DO BAR_"42010"_OF__1370tt6bt_FB2P

	DEFINE BAR "42020" OF _1370tt6bt PROMPT "Materiale auxiliare 3021" ;
		MESSAGE 'Note contabile: 3021:401; 4426:401; 401:5311'
	ON SELECTION BAR 42020 OF _1370tt6bt DO BAR_"42020"_OF__1370tt6bt_FB2P

	DEFINE BAR "42030" OF _1370tt6bt PROMPT "Combustibil 3022" ;
		MESSAGE 'Note contabile: 3022:401; 4426:401; 401:5311'
	ON SELECTION BAR 42030 OF _1370tt6bt DO BAR_"42030"_OF__1370tt6bt_FB2P

	DEFINE BAR "42040" OF _1370tt6bt PROMPT "Materiale pt. ambalat 3023" ;
		MESSAGE 'Note contabile: 3023:401; 4426:401; 401:5311'
	ON SELECTION BAR 42040 OF _1370tt6bt DO BAR_"42040"_OF__1370tt6bt_FB2P

	DEFINE BAR "42050" OF _1370tt6bt PROMPT "Piese de schimb 3024" ;
		MESSAGE 'Note contabile: 3024:401; 4426:401; 401:5311'
	ON SELECTION BAR 42050 OF _1370tt6bt DO BAR_"42050"_OF__1370tt6bt_FB2P

	DEFINE BAR 6 OF _1370tt6bt PROMPT "Alte materiale 3028" ;
		MESSAGE 'Note contabile: 3028:401; 4426:401; 401:5311'
	ON SELECTION BAR 6 OF _1370tt6bt DO BAR_6_OF__1370tt6bt_FB2P

	DEFINE BAR "42060" OF _1370tt6bt PROMPT "Obiecte de inventar 303" ;
		MESSAGE 'Note contabile: 303:401; 4426:401; 401:5311'
	ON SELECTION BAR 42060 OF _1370tt6bt DO BAR_"42060"_OF__1370tt6bt_FB2P

	DEFINE BAR "42080" OF _1370tt6bt PROMPT "Ambalaje 381" ;
		MESSAGE 'Note contabile: 381:401; 4426:401; 401:5311'
	ON SELECTION BAR 42080 OF _1370tt6bt DO BAR_"42080"_OF__1370tt6bt_FB2P

	DEFINE BAR 9 OF _1370tt6bt PROMPT "Marfa 371" ;
		MESSAGE 'Note contabile: 371:401; 4426:401; 401:5311'
	ON SELECTION BAR 9 OF _1370tt6bt lans(10571)

DEFINE BAR "43" OF Furnizori PROMPT "Materii, materiale platite din 542"
ON BAR 43 OF Furnizori ACTIVATE POPUP _1370tt6bu

	*----------------------------------
	DEFINE POPUP _1370tt6bu SHORTCUT RELATIVE
	DEFINE BAR "43010" OF _1370tt6bu PROMPT "Materii prime 301" ;
		MESSAGE 'Note contabile: 301:401; 4426:401; 401:542'
	ON SELECTION BAR 43010 OF _1370tt6bu DO BAR_"43010"_OF__1370tt6bu_FB2P

	DEFINE BAR "43020" OF _1370tt6bu PROMPT "Materiale auxiliare 3021" ;
		MESSAGE 'Note contabile: 3021:401; 4426:401; 401:542'
	ON SELECTION BAR 43020 OF _1370tt6bu DO BAR_"43020"_OF__1370tt6bu_FB2P

	DEFINE BAR "43030" OF _1370tt6bu PROMPT "Combustibil 3022" ;
		MESSAGE 'Note contabile: 3022:401; 4426:401; 401:542'
	ON SELECTION BAR 43030 OF _1370tt6bu DO BAR_"43030"_OF__1370tt6bu_FB2P

	DEFINE BAR "43040" OF _1370tt6bu PROMPT "Materiale pt. ambalat 3023" ;
		MESSAGE 'Note contabile: 3023:401; 4426:401; 401:542'
	ON SELECTION BAR 43040 OF _1370tt6bu DO BAR_"43040"_OF__1370tt6bu_FB2P

	DEFINE BAR "43050" OF _1370tt6bu PROMPT "Piese de schimb 3024" ;
		MESSAGE 'Note contabile: 3024:401; 4426:401; 401:542'
	ON SELECTION BAR 43050 OF _1370tt6bu DO BAR_"43050"_OF__1370tt6bu_FB2P

	DEFINE BAR 6 OF _1370tt6bu PROMPT "Alte materiale 3028" ;
		MESSAGE 'Note contabile: 3028:401; 4426:401; 401:542'
	ON SELECTION BAR 6 OF _1370tt6bu DO BAR_6_OF__1370tt6bu_FB2P

	DEFINE BAR "43060" OF _1370tt6bu PROMPT "Obiecte de inventar 303" ;
		MESSAGE 'Note contabile: 303:401; 4426:401; 401:542'
	ON SELECTION BAR 43060 OF _1370tt6bu DO BAR_"43060"_OF__1370tt6bu_FB2P

	DEFINE BAR "43080" OF _1370tt6bu PROMPT "Ambalaje 381" ;
		MESSAGE 'Note contabile: 381:401; 4426:401; 401:542'
	ON SELECTION BAR 43080 OF _1370tt6bu DO BAR_"43080"_OF__1370tt6bu_FB2P

	DEFINE BAR 9 OF _1370tt6bu PROMPT "Marfa 371" ;
		MESSAGE 'Note contabile: 371:401; 4426:401; 401:542'
	ON SELECTION BAR 9 OF _1370tt6bu

DEFINE BAR 7 OF Furnizori PROMPT "\-"
ON BAR 7 OF Furnizori ACTIVATE POPUP _13z0i7h3k

	*----------------------------------
	DEFINE POPUP _13z0i7h3k SHORTCUT RELATIVE
DEFINE BAR 8 OF Furnizori PROMPT "Cheltuieli neplatite"
ON BAR 8 OF Furnizori ACTIVATE POPUP _13z0i78ea

	*----------------------------------
	DEFINE POPUP _13z0i78ea SHORTCUT RELATIVE
	DEFINE BAR 1 OF _13z0i78ea PROMPT "Materiale nestocate 604" ;
		MESSAGE '604 :401 ;4426:401 '
	ON SELECTION BAR 1 OF _13z0i78ea DO BAR_1_OF__13z0i78ea_FB2P

	DEFINE BAR 2 OF _13z0i78ea PROMPT "Energie si apa 605x" ;
		MESSAGE '605x :401 ;4426: 401'
	ON SELECTION BAR 2 OF _13z0i78ea DO BAR_2_OF__13z0i78ea_FB2P

	DEFINE BAR 3 OF _13z0i78ea PROMPT "Intretinere si reparatii  611" ;
		MESSAGE '611 :401 ;4426:401 '
	ON SELECTION BAR 3 OF _13z0i78ea DO BAR_3_OF__13z0i78ea_FB2P

	DEFINE BAR 4 OF _13z0i78ea PROMPT "Locatii si chirii 612" ;
		MESSAGE '612 :401 ;4426:401 '
	ON SELECTION BAR 4 OF _13z0i78ea DO BAR_4_OF__13z0i78ea_FB2P

	DEFINE BAR 5 OF _13z0i78ea PROMPT "Prime de asigurare 613" ;
		MESSAGE '613 :401 ;4426:401 '
	ON SELECTION BAR 5 OF _13z0i78ea DO BAR_5_OF__13z0i78ea_FB2P

	DEFINE BAR 6 OF _13z0i78ea PROMPT "Studii si cercetari 614" ;
		MESSAGE '614 :401 ;4426:401 '
	ON SELECTION BAR 6 OF _13z0i78ea DO BAR_6_OF__13z0i78ea_FB2P

	DEFINE BAR 7 OF _13z0i78ea PROMPT "Colaboratori 621" ;
		MESSAGE '621 :401 ;4426:401 '
	ON SELECTION BAR 7 OF _13z0i78ea DO BAR_7_OF__13z0i78ea_FB2P

	DEFINE BAR 8 OF _13z0i78ea PROMPT "Comisioane si onorarii 622" ;
		MESSAGE '622 :401 ;4426:401 '
	ON SELECTION BAR 8 OF _13z0i78ea DO BAR_8_OF__13z0i78ea_FB2P

	DEFINE BAR 9 OF _13z0i78ea PROMPT "Reclama, Protocol  623" ;
		MESSAGE '623:401 ;4426:401 '
	ON SELECTION BAR 9 OF _13z0i78ea DO BAR_9_OF__13z0i78ea_FB2P

	DEFINE BAR 10 OF _13z0i78ea PROMPT "Transport bunuri si persoane 624" ;
		MESSAGE '624 :401 ;4426:401 '
	ON SELECTION BAR 10 OF _13z0i78ea DO BAR_10_OF__13z0i78ea_FB2P

	DEFINE BAR 11 OF _13z0i78ea PROMPT "Deplasari, detasari 625" ;
		MESSAGE '625 :401 ;4426:401 '
	ON SELECTION BAR 11 OF _13z0i78ea DO BAR_11_OF__13z0i78ea_FB2P

	DEFINE BAR 12 OF _13z0i78ea PROMPT "Posta si telecomunicatii 626" ;
		MESSAGE '626 :401 ;4426:401 '
	ON SELECTION BAR 12 OF _13z0i78ea DO BAR_12_OF__13z0i78ea_FB2P

	DEFINE BAR 13 OF _13z0i78ea PROMPT "Alte cheltuieli la terti 628" ;
		MESSAGE '628 :401 ;4426:401 '
	ON SELECTION BAR 13 OF _13z0i78ea DO BAR_13_OF__13z0i78ea_FB2P

	DEFINE BAR 14 OF _13z0i78ea PROMPT "Cheltuieli diverse 6xx / 4xx" ;
		MESSAGE '6xx :401; 4426:401 '
	ON SELECTION BAR 14 OF _13z0i78ea DO BAR_14_OF__13z0i78ea_FB2P

	DEFINE BAR 15 OF _13z0i78ea PROMPT "Cheltuieli diverse 6xx + servicii in curs de executie 332-712" ;
		MESSAGE '6xx :401; 4426:401; 332:712'
	ON SELECTION BAR 15 OF _13z0i78ea DO BAR_15_OF__13z0i78ea_FB2P

DEFINE BAR 9 OF Furnizori PROMPT "Cheltuieli platite din casa"
ON BAR 9 OF Furnizori ACTIVATE POPUP NewItem

	*----------------------------------
	DEFINE POPUP NewItem SHORTCUT RELATIVE
	DEFINE BAR 1 OF NewItem PROMPT "Materiale nestocate 604" ;
		MESSAGE '604 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P

	DEFINE BAR 2 OF NewItem PROMPT "Energie si apa 605x" ;
		MESSAGE '605x :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P

	DEFINE BAR 3 OF NewItem PROMPT "Intretinere si reparatii 611" ;
		MESSAGE '611 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 3 OF NewItem DO BAR_3_OF_NewItem_FB2P

	DEFINE BAR 4 OF NewItem PROMPT "Locatii si chirii 612" ;
		MESSAGE '612 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 4 OF NewItem DO BAR_4_OF_NewItem_FB2P

	DEFINE BAR 5 OF NewItem PROMPT "Prime de asigurare 613" ;
		MESSAGE '613 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 5 OF NewItem DO BAR_5_OF_NewItem_FB2P

	DEFINE BAR 6 OF NewItem PROMPT "Studii si cercetari 614" ;
		MESSAGE '614 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 6 OF NewItem DO BAR_6_OF_NewItem_FB2P

	DEFINE BAR 7 OF NewItem PROMPT "Colaboratori 621" ;
		MESSAGE '621 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 7 OF NewItem DO BAR_7_OF_NewItem_FB2P

	DEFINE BAR 8 OF NewItem PROMPT "Comisioane si onorarii 622" ;
		MESSAGE '622 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 8 OF NewItem DO BAR_8_OF_NewItem_FB2P

	DEFINE BAR 9 OF NewItem PROMPT "Reclama, Protocol  623" ;
		MESSAGE '623:401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 9 OF NewItem DO BAR_9_OF_NewItem_FB2P

	DEFINE BAR 10 OF NewItem PROMPT "Transport bunuri si persoane 624" ;
		MESSAGE '624 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 10 OF NewItem DO BAR_10_OF_NewItem_FB2P

	DEFINE BAR 11 OF NewItem PROMPT "Deplasari, detasari 625" ;
		MESSAGE '625 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 11 OF NewItem DO BAR_11_OF_NewItem_FB2P

	DEFINE BAR 12 OF NewItem PROMPT "Posta si telecomunicatii 626" ;
		MESSAGE '625 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 12 OF NewItem DO BAR_12_OF_NewItem_FB2P

	DEFINE BAR 13 OF NewItem PROMPT "Alte cheltuieli la terti 628" ;
		MESSAGE '628 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 13 OF NewItem DO BAR_13_OF_NewItem_FB2P

	DEFINE BAR 14 OF NewItem PROMPT "Cheltuieli diverse 6xx" ;
		MESSAGE '6xx :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 14 OF NewItem DO BAR_14_OF_NewItem_FB2P

DEFINE BAR 10 OF Furnizori PROMPT "Cheltuieli platite din 542"
ON BAR 10 OF Furnizori ACTIVATE POPUP Cheltuieli

	*----------------------------------
	DEFINE POPUP Cheltuieli SHORTCUT RELATIVE
	DEFINE BAR 1 OF Cheltuieli PROMPT "Materiale nestocate 604" ;
		MESSAGE '604 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P

	DEFINE BAR 2 OF Cheltuieli PROMPT "Energie si apa 605x" ;
		MESSAGE '605x :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P

	DEFINE BAR 3 OF Cheltuieli PROMPT "Intretinere si reparatii 611" ;
		MESSAGE '611 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 3 OF Cheltuieli DO BAR_3_OF_Cheltuieli_FB2P

	DEFINE BAR 4 OF Cheltuieli PROMPT "Locatii si chirii 612" ;
		MESSAGE '612 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 4 OF Cheltuieli DO BAR_4_OF_Cheltuieli_FB2P

	DEFINE BAR 5 OF Cheltuieli PROMPT "Prime de asigurare 613" ;
		MESSAGE '613 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 5 OF Cheltuieli DO BAR_5_OF_Cheltuieli_FB2P

	DEFINE BAR 6 OF Cheltuieli PROMPT "Studii si cercetari 614" ;
		MESSAGE '614 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 6 OF Cheltuieli DO BAR_6_OF_Cheltuieli_FB2P

	DEFINE BAR 7 OF Cheltuieli PROMPT "Colaboratori 621" ;
		MESSAGE '621 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 7 OF Cheltuieli DO BAR_7_OF_Cheltuieli_FB2P

	DEFINE BAR 8 OF Cheltuieli PROMPT "Comisioane si onorarii 622" ;
		MESSAGE '622 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 8 OF Cheltuieli DO BAR_8_OF_Cheltuieli_FB2P

	DEFINE BAR 9 OF Cheltuieli PROMPT "Reclama, Protocol  623" ;
		MESSAGE '623:401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 9 OF Cheltuieli DO BAR_9_OF_Cheltuieli_FB2P

	DEFINE BAR 10 OF Cheltuieli PROMPT "Transport bunuri si persoane 624" ;
		MESSAGE '624 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 10 OF Cheltuieli DO BAR_10_OF_Cheltuieli_FB2P

	DEFINE BAR 11 OF Cheltuieli PROMPT "Deplasari, detasari 625" ;
		MESSAGE '625 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 11 OF Cheltuieli DO BAR_11_OF_Cheltuieli_FB2P

	DEFINE BAR 12 OF Cheltuieli PROMPT "Posta si telecomunicatii 626" ;
		MESSAGE '626 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 12 OF Cheltuieli DO BAR_12_OF_Cheltuieli_FB2P

	DEFINE BAR 13 OF Cheltuieli PROMPT "Alte cheltuieli la teri 628" ;
		MESSAGE '628 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 13 OF Cheltuieli DO BAR_13_OF_Cheltuieli_FB2P

	DEFINE BAR 14 OF Cheltuieli PROMPT "Cheltuieli diverse 6xx" ;
		MESSAGE '6xx :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 14 OF Cheltuieli DO BAR_14_OF_Cheltuieli_FB2P

DEFINE BAR 11 OF Furnizori PROMPT "Cheltuieli platite din 4281"
ON BAR 11 OF Furnizori ACTIVATE POPUP _5p30ps315

	*----------------------------------
	DEFINE POPUP _5p30ps315 SHORTCUT RELATIVE
	DEFINE BAR 1 OF _5p30ps315 PROMPT "Transport bunuri si persoane 624" ;
		MESSAGE '624 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 1 OF _5p30ps315 lans(10644)

DEFINE BAR 12 OF Furnizori PROMPT "\-"
ON BAR 12 OF Furnizori ACTIVATE POPUP _13y10laif

	*----------------------------------
	DEFINE POPUP _13y10laif SHORTCUT RELATIVE
DEFINE BAR 13 OF Furnizori PROMPT "Inregistrare facturare avansuri 409" ;
	MESSAGE '409 : 401 ; 4426 : 401'
ON SELECTION BAR 13 OF Furnizori DO BAR_13_OF_Furnizori_FB2P

DEFINE BAR 14 OF Furnizori PROMPT "Inregistrare facturare avansuri - taxare inversa 409" ;
	MESSAGE '409 : 401 ; 4426 : 4427'
ON SELECTION BAR 14 OF Furnizori DO BAR_14_OF_Furnizori_FB2P

DEFINE BAR 15 OF Furnizori PROMPT "Inregistrare cheltuieli in avans 471" ;
	MESSAGE '471 : 401; 4426 : 401'
ON SELECTION BAR 15 OF Furnizori DO BAR_15_OF_Furnizori_FB2P

DEFINE BAR 16 OF Furnizori PROMPT "Plata factura achizitie din 461" ;
	MESSAGE '401 : 461'
ON SELECTION BAR 16 OF Furnizori lans(10476)

DEFINE BAR 17 OF Furnizori PROMPT "Constituire garantii 462" ;
	MESSAGE '401 : 462'
ON SELECTION BAR 17 OF Furnizori DO BAR_17_OF_Furnizori_FB2P

DEFINE BAR 18 OF Furnizori PROMPT "Refacturare" ;
	MESSAGE '462 : 401'
ON SELECTION BAR 18 OF Furnizori DO BAR_18_OF_Furnizori_FB2P

DEFINE BAR 19 OF Furnizori PROMPT "\-"
ON BAR 19 OF Furnizori ACTIVATE POPUP _13y10p03a

	*----------------------------------
	DEFINE POPUP _13y10p03a SHORTCUT RELATIVE
DEFINE BAR 20 OF Furnizori PROMPT "Tichete de masa"
ON SELECTION BAR 20 OF Furnizori DO BAR_20_OF_Furnizori_FB2P

DEFINE BAR 21 OF Furnizori PROMPT "Combustibili cu taxa"
ON SELECTION BAR 21 OF Furnizori DO BAR_21_OF_Furnizori_FB2P

DEFINE BAR 22 OF Furnizori PROMPT "Cheltuieli limitare deducere 50%"
ON SELECTION BAR 22 OF Furnizori DO BAR_22_OF_Furnizori_FB2P

DEFINE BAR 23 OF Furnizori PROMPT "Cheltuieli limitare deducere 100%"
ON SELECTION BAR 23 OF Furnizori DO BAR_23_OF_Furnizori_FB2P

DEFINE BAR 24 OF Furnizori PROMPT "B.C.F."
ON SELECTION BAR 24 OF Furnizori DO BAR_24_OF_Furnizori_FB2P

DEFINE BAR 25 OF Furnizori PROMPT "Bonuri valorice"
ON SELECTION BAR 25 OF Furnizori DO BAR_25_OF_Furnizori_FB2P

DEFINE BAR 26 OF Furnizori PROMPT "Taxare inversa"
ON SELECTION BAR 26 OF Furnizori DO BAR_26_OF_Furnizori_FB2P

DEFINE BAR 27 OF Furnizori PROMPT "\-"
ON BAR 27 OF Furnizori ACTIVATE POPUP _6sa0su8ei

	*----------------------------------
	DEFINE POPUP _6sa0su8ei SHORTCUT RELATIVE
DEFINE BAR 28 OF Furnizori PROMPT "Import eFactura primite"
ON SELECTION BAR 28 OF Furnizori do importEfacturaPrimite in import_efactura.prg
ACTIVATE POPUP Furnizori

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Furnizori_FB2P
	LOCAL lnRaspuns, lnDeducere
	lnRaspuns = 6
	
	DO WHILE lnRaspuns = 6
		lnDeducere = 0
		buton = lans(10456,,,,@lnDeducere)
	 
		if buton = 2
			return
		endif 
		DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Factura de achizitie - Furnizori 401','4426',10456,,m.lnDeducere
		IF buton=1
			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
		ELSE
			lnRaspuns = 7
		ENDIF 
	ENDDO 
ENDPROC && BAR_1_OF_Furnizori_FB2P

PROCEDURE BAR_2_OF_Furnizori_FB2P
	PRIVATE pcACN
	loCont = ret_cont("Selectati contul debitor X =  401",'3,4,6')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	
	LANS(10423)
ENDPROC && BAR_2_OF_Furnizori_FB2P

PROCEDURE BAR_"41010"_OF_Materiimat_FB2P
	lans(10208)
ENDPROC && BAR_"41010"_OF_Materiimat_FB2P

PROCEDURE BAR_"41020"_OF_Materiimat_FB2P
	lans(10209)
ENDPROC && BAR_"41020"_OF_Materiimat_FB2P

PROCEDURE BAR_"41030"_OF_Materiimat_FB2P
	lans(10210)
ENDPROC && BAR_"41030"_OF_Materiimat_FB2P

PROCEDURE BAR_4_OF_Materiimat_FB2P
	lans(10475)
ENDPROC && BAR_4_OF_Materiimat_FB2P

PROCEDURE BAR_"41040"_OF_Materiimat_FB2P
	lans(10211)
ENDPROC && BAR_"41040"_OF_Materiimat_FB2P

PROCEDURE BAR_"41050"_OF_Materiimat_FB2P
	lans(10212)
ENDPROC && BAR_"41050"_OF_Materiimat_FB2P

PROCEDURE BAR_7_OF_Materiimat_FB2P
	lans(10213)
ENDPROC && BAR_7_OF_Materiimat_FB2P

PROCEDURE BAR_"41060"_OF_Materiimat_FB2P
	lans(10214)
ENDPROC && BAR_"41060"_OF_Materiimat_FB2P

PROCEDURE BAR_"41080"_OF_Materiimat_FB2P
	lans(10215)
ENDPROC && BAR_"41080"_OF_Materiimat_FB2P

PROCEDURE BAR_"41110"_OF_Materiimat_FB2P
	PUBLIC DEB
	SELE BAL
	OS=CREA('SELCONT')
	OS.SHOW(1)
	IF BUTON=2
		RETURN
	ENDIF
	
	lans(10216)
ENDPROC && BAR_"41110"_OF_Materiimat_FB2P

PROCEDURE BAR_5_OF_Incursdeap_FB2P
	LOCAL loCont
	loCont = ret_cont("Materiale consumabile",'3021,3022,3023,3024,3025,3026,3027,3028,3029')
	If buton = 2
		Release loCont
		Return
	Endif
	
	lans_generic(10604,loCont.Cont, loCont.Acont, '322')
ENDPROC && BAR_5_OF_Incursdeap_FB2P

PROCEDURE BAR_"42010"_OF__1370tt6bt_FB2P
	lans(1)
	*DO INTROD2FURNIZORI WITH '301  ','5311 ','PLCASA','ACTGEN01PERC'
ENDPROC && BAR_"42010"_OF__1370tt6bt_FB2P

PROCEDURE BAR_"42020"_OF__1370tt6bt_FB2P
	*!*	nr_meniu=42020
	*!*	DO INTROD2FURNIZORI WITH '3021 ','5311 ','PLCASA','ACTGEN01PERC'
	lans(10190)
ENDPROC && BAR_"42020"_OF__1370tt6bt_FB2P

PROCEDURE BAR_"42030"_OF__1370tt6bt_FB2P
	*!*	nr_meniu=42030
	*!*	DO INTROD2FURNIZORI WITH '3022 ','5311 ','PLCASA','ACTGEN01PERC'
	lans(10191)
ENDPROC && BAR_"42030"_OF__1370tt6bt_FB2P

PROCEDURE BAR_"42040"_OF__1370tt6bt_FB2P
	*!*	nr_meniu=42040
	*!*	DO INTROD2FURNIZORI WITH '3023 ','5311 ','PLCASA','ACTGEN01PERC'
	lans(10192)
ENDPROC && BAR_"42040"_OF__1370tt6bt_FB2P

PROCEDURE BAR_"42050"_OF__1370tt6bt_FB2P
	*!*	nr_meniu=42050
	*!*	DO INTROD2FURNIZORI WITH '3024 ','5311 ','PLCASA','ACTGEN01PERC'
	lans(10193)
ENDPROC && BAR_"42050"_OF__1370tt6bt_FB2P

PROCEDURE BAR_6_OF__1370tt6bt_FB2P
	*DO INTROD2FURNIZORI WITH '3028 ','5311 ','PLCASA','ACTGEN01PERC'
	lans(10194)
ENDPROC && BAR_6_OF__1370tt6bt_FB2P

PROCEDURE BAR_"42060"_OF__1370tt6bt_FB2P
	*!*	nr_meniu=42060
	*!*	DO INTROD2FURNIZORI WITH '303 ','5311 ','PLCASA','ACTGEN01PERC'
	lans(10195)
ENDPROC && BAR_"42060"_OF__1370tt6bt_FB2P

PROCEDURE BAR_"42080"_OF__1370tt6bt_FB2P
	*!*	nr_meniu=42080
	*!*	DO INTROD2FURNIZORI WITH '381  ','5311 ','PLCASA','ACTGEN01PERC'
	lans(10196)
ENDPROC && BAR_"42080"_OF__1370tt6bt_FB2P

PROCEDURE BAR_"43010"_OF__1370tt6bu_FB2P
	lans(10198)
	*!*	nr_meniu=43010
	*!*	DO INTROD2FURNIZORI WITH '301  ','542  ','INPLACHIZ','ACTGEN01PER'
ENDPROC && BAR_"43010"_OF__1370tt6bu_FB2P

PROCEDURE BAR_"43020"_OF__1370tt6bu_FB2P
	*!*	nr_meniu=43020
	*!*	DO INTROD2FURNIZORI WITH '3021 ','542  ','INPLACHIZ','ACTGEN01PER'
	lans(10199)
ENDPROC && BAR_"43020"_OF__1370tt6bu_FB2P

PROCEDURE BAR_"43030"_OF__1370tt6bu_FB2P
	*!*	nr_meniu=43030
	*!*	DO INTROD2FURNIZORI WITH '3022 ','542  ','INPLACHIZ','ACTGEN01PER'
	lans(10200)
ENDPROC && BAR_"43030"_OF__1370tt6bu_FB2P

PROCEDURE BAR_"43040"_OF__1370tt6bu_FB2P
	*!*	nr_meniu=43040
	*!*	DO INTROD2FURNIZORI WITH '3023 ','542  ','INPLACHIZ','ACTGEN01PER'
	lans(10201)
ENDPROC && BAR_"43040"_OF__1370tt6bu_FB2P

PROCEDURE BAR_"43050"_OF__1370tt6bu_FB2P
	*!*	nr_meniu=43050
	*!*	DO INTROD2FURNIZORI WITH '3024 ','542  ','INPLACHIZ','ACTGEN01PER'
	lans(10202)
ENDPROC && BAR_"43050"_OF__1370tt6bu_FB2P

PROCEDURE BAR_6_OF__1370tt6bu_FB2P
	*DO INTROD2FURNIZORI WITH '3028 ','542  ','INPLACHIZ','ACTGEN01PER'
	lans(10203)
ENDPROC && BAR_6_OF__1370tt6bu_FB2P

PROCEDURE BAR_"43060"_OF__1370tt6bu_FB2P
	lans(10204)
	*!*	nr_meniu=43060
	*!*	DO INTROD2FURNIZORI WITH '303  ','542  ','INPLACHIZ','ACTGEN01PER'
ENDPROC && BAR_"43060"_OF__1370tt6bu_FB2P

PROCEDURE BAR_"43080"_OF__1370tt6bu_FB2P
	lans(10205)
	*!*	nr_meniu=43080
	*!*	DO INTROD2FURNIZORI WITH '381  ','542  ','INPLACHIZ','ACTGEN01PER'
ENDPROC && BAR_"43080"_OF__1370tt6bu_FB2P

PROCEDURE BAR_1_OF__13z0i78ea_FB2P
	lans(10228)
ENDPROC && BAR_1_OF__13z0i78ea_FB2P

PROCEDURE BAR_2_OF__13z0i78ea_FB2P
	* lans(10229)
	
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'605')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	
	lans(10311)
ENDPROC && BAR_2_OF__13z0i78ea_FB2P

PROCEDURE BAR_3_OF__13z0i78ea_FB2P
	lans(10230)
ENDPROC && BAR_3_OF__13z0i78ea_FB2P

PROCEDURE BAR_4_OF__13z0i78ea_FB2P
	lans(10231)
ENDPROC && BAR_4_OF__13z0i78ea_FB2P

PROCEDURE BAR_5_OF__13z0i78ea_FB2P
	lans(10232)
ENDPROC && BAR_5_OF__13z0i78ea_FB2P

PROCEDURE BAR_6_OF__13z0i78ea_FB2P
	lans(10233)
ENDPROC && BAR_6_OF__13z0i78ea_FB2P

PROCEDURE BAR_7_OF__13z0i78ea_FB2P
	lans(10234)
ENDPROC && BAR_7_OF__13z0i78ea_FB2P

PROCEDURE BAR_8_OF__13z0i78ea_FB2P
	lans(10235)
ENDPROC && BAR_8_OF__13z0i78ea_FB2P

PROCEDURE BAR_9_OF__13z0i78ea_FB2P
	lans(10236)
ENDPROC && BAR_9_OF__13z0i78ea_FB2P

PROCEDURE BAR_10_OF__13z0i78ea_FB2P
	lans(10238)
ENDPROC && BAR_10_OF__13z0i78ea_FB2P

PROCEDURE BAR_11_OF__13z0i78ea_FB2P
	lans(10239)
ENDPROC && BAR_11_OF__13z0i78ea_FB2P

PROCEDURE BAR_12_OF__13z0i78ea_FB2P
	lans(10240)
ENDPROC && BAR_12_OF__13z0i78ea_FB2P

PROCEDURE BAR_13_OF__13z0i78ea_FB2P
	lans(10241)
ENDPROC && BAR_13_OF__13z0i78ea_FB2P

PROCEDURE BAR_14_OF__13z0i78ea_FB2P
	*!*	SELECT BAL
	*!*	ose=crea('selcont')
	*!*	ose.show(1)
	*!*	IF buton=2
	*!*	RETURN
	*!*	ENDIF
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'6,4')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	
	lans(10311)
ENDPROC && BAR_14_OF__13z0i78ea_FB2P

PROCEDURE BAR_15_OF__13z0i78ea_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'6')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	
	lans(10646)
ENDPROC && BAR_15_OF__13z0i78ea_FB2P

PROCEDURE BAR_1_OF_NewItem_FB2P
	lans(10242)
ENDPROC && BAR_1_OF_NewItem_FB2P

PROCEDURE BAR_2_OF_NewItem_FB2P
	* lans(10243)
	
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'605')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10312)
ENDPROC && BAR_2_OF_NewItem_FB2P

PROCEDURE BAR_3_OF_NewItem_FB2P
	lans(10244)
ENDPROC && BAR_3_OF_NewItem_FB2P

PROCEDURE BAR_4_OF_NewItem_FB2P
	lans(10245)
ENDPROC && BAR_4_OF_NewItem_FB2P

PROCEDURE BAR_5_OF_NewItem_FB2P
	lans(10246)
ENDPROC && BAR_5_OF_NewItem_FB2P

PROCEDURE BAR_6_OF_NewItem_FB2P
	lans(10247)
ENDPROC && BAR_6_OF_NewItem_FB2P

PROCEDURE BAR_7_OF_NewItem_FB2P
	lans(10248)
ENDPROC && BAR_7_OF_NewItem_FB2P

PROCEDURE BAR_8_OF_NewItem_FB2P
	lans(10249)
ENDPROC && BAR_8_OF_NewItem_FB2P

PROCEDURE BAR_9_OF_NewItem_FB2P
	lans(10250)
ENDPROC && BAR_9_OF_NewItem_FB2P

PROCEDURE BAR_10_OF_NewItem_FB2P
	lans(10252)
ENDPROC && BAR_10_OF_NewItem_FB2P

PROCEDURE BAR_11_OF_NewItem_FB2P
	lans(10253)
ENDPROC && BAR_11_OF_NewItem_FB2P

PROCEDURE BAR_12_OF_NewItem_FB2P
	lans(10254)
ENDPROC && BAR_12_OF_NewItem_FB2P

PROCEDURE BAR_13_OF_NewItem_FB2P
	lans(10255)
ENDPROC && BAR_13_OF_NewItem_FB2P

PROCEDURE BAR_14_OF_NewItem_FB2P
	*!*	SELECT BAL
	*!*	ose=crea('selcont')
	*!*	ose.show(1)
	*!*	IF buton=2
	*!*	RETURN
	*!*	ENDIF
	
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'6')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10312)
ENDPROC && BAR_14_OF_NewItem_FB2P

PROCEDURE BAR_1_OF_Cheltuieli_FB2P
	lans(10256)
ENDPROC && BAR_1_OF_Cheltuieli_FB2P

PROCEDURE BAR_2_OF_Cheltuieli_FB2P
	*lans(10257)
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'605')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10313)
ENDPROC && BAR_2_OF_Cheltuieli_FB2P

PROCEDURE BAR_3_OF_Cheltuieli_FB2P
	lans(10258)
ENDPROC && BAR_3_OF_Cheltuieli_FB2P

PROCEDURE BAR_4_OF_Cheltuieli_FB2P
	lans(10259)
ENDPROC && BAR_4_OF_Cheltuieli_FB2P

PROCEDURE BAR_5_OF_Cheltuieli_FB2P
	lans(10260)
ENDPROC && BAR_5_OF_Cheltuieli_FB2P

PROCEDURE BAR_6_OF_Cheltuieli_FB2P
	lans(10261)
ENDPROC && BAR_6_OF_Cheltuieli_FB2P

PROCEDURE BAR_7_OF_Cheltuieli_FB2P
	lans(10262)
ENDPROC && BAR_7_OF_Cheltuieli_FB2P

PROCEDURE BAR_8_OF_Cheltuieli_FB2P
	lans(10263)
ENDPROC && BAR_8_OF_Cheltuieli_FB2P

PROCEDURE BAR_9_OF_Cheltuieli_FB2P
	lans(10264)
ENDPROC && BAR_9_OF_Cheltuieli_FB2P

PROCEDURE BAR_10_OF_Cheltuieli_FB2P
	lans(10266)
ENDPROC && BAR_10_OF_Cheltuieli_FB2P

PROCEDURE BAR_11_OF_Cheltuieli_FB2P
	lans(10267)
ENDPROC && BAR_11_OF_Cheltuieli_FB2P

PROCEDURE BAR_12_OF_Cheltuieli_FB2P
	lans(10268)
ENDPROC && BAR_12_OF_Cheltuieli_FB2P

PROCEDURE BAR_13_OF_Cheltuieli_FB2P
	lans(10269)
ENDPROC && BAR_13_OF_Cheltuieli_FB2P

PROCEDURE BAR_14_OF_Cheltuieli_FB2P
	*!*	SELECT BAL
	*!*	ose=crea('selcont')
	*!*	ose.show(1)
	*!*	IF buton=2
	*!*	RETURN
	*!*	ENDIF
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'6')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10313)
ENDPROC && BAR_14_OF_Cheltuieli_FB2P

PROCEDURE BAR_13_OF_Furnizori_FB2P
	PRIVATE pcACN, CN
	loCont = ret_cont("Selectati contul",'409')  && ,4091,4092')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton = 2
		RELEASE loCont
		RETURN 
	ENDIF 
	
	CN = locont.cont
	PcACN = loCont.Acont
	lans(10564)
ENDPROC && BAR_13_OF_Furnizori_FB2P

PROCEDURE BAR_14_OF_Furnizori_FB2P
	PRIVATE pcACN, CN
	loCont = ret_cont("Selectati contul",'409')  && ,4091,4092')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton = 2
		RELEASE loCont
		RETURN 
	ENDIF 
	
	CN = locont.cont
	PcACN = loCont.Acont
	lans(10575)
ENDPROC && BAR_14_OF_Furnizori_FB2P

PROCEDURE BAR_15_OF_Furnizori_FB2P
	lans(10410)
ENDPROC && BAR_15_OF_Furnizori_FB2P

PROCEDURE BAR_17_OF_Furnizori_FB2P
	lans(10412)
ENDPROC && BAR_17_OF_Furnizori_FB2P

PROCEDURE BAR_18_OF_Furnizori_FB2P
	
	lans(10539)
ENDPROC && BAR_18_OF_Furnizori_FB2P

PROCEDURE BAR_20_OF_Furnizori_FB2P
	
	LOCAL lnRaspuns
	lnRaspuns = 6
	DO WHILE lnRaspuns = 6
		buton = lans(10459)
		if buton = 2
			return
		endif
	
		DO introducere_compacta WITH 'achi_mat','','401 ',.T.,.T.,'Tichete de masa','4426',10459
		IF buton=1
			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
		ELSE
			lnRaspuns = 7	
		ENDIF 
	
	ENDDO
ENDPROC && BAR_20_OF_Furnizori_FB2P

PROCEDURE BAR_21_OF_Furnizori_FB2P
	LOCAL lnRaspuns
	lnRaspuns = 6
	
	DO WHILE lnRaspuns = 6
		lans(10460)
		if buton = 2
			return
		ENDIF
		
		DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Combustibili cu taxa','4426',10460
		IF buton=1
			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
		ELSE
			lnRaspuns = 7	
		ENDIF 
	ENDDO 
ENDPROC && BAR_21_OF_Furnizori_FB2P

PROCEDURE BAR_22_OF_Furnizori_FB2P
	Local lnDeducere	&&	modificare	v 2.2.20
	LOCAL lnRaspuns
	lnRaspuns = 6
	
	DO WHILE lnRaspuns = 6
		*!*	modificare	v 2.2.20
		lnDeducere = 0
		lans(10609,,,,@lnDeducere)
		*!*	lans(10609)
		*!*	modificare	v 2.2.20	^
		if buton = 2
			return
		ENDIF
	
	*!*	modificare	v 2.2.20	
	*!*		DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Cheltuieli auto 50%','4426',10609
		DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Cheltuieli limitare deducere 50%','4426',10609,,lnDeducere
	*!*	modificare	v 2.2.20	^
		IF buton=1
			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
		ELSE
			lnRaspuns = 7	
		ENDIF 
	ENDDO 
	RELEASE lnDeducere	&&	modificare	v 2.2.20
ENDPROC && BAR_22_OF_Furnizori_FB2P

PROCEDURE BAR_23_OF_Furnizori_FB2P
	Local lnDeducere	&&	modificare	v 2.2.20
	LOCAL lnRaspuns
	lnRaspuns = 6
	
	DO WHILE lnRaspuns = 6
		lnDeducere = 0
		lans(10647,,,,@lnDeducere)
		if buton = 2
			return
		ENDIF
	
		DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.t.,'Cheltuieli limitare deducere 100%','4426',10647,,lnDeducere
		IF buton=1
			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
		ELSE
			lnRaspuns = 7	
		ENDIF 
	ENDDO 
	RELEASE lnDeducere	&&	modificare	v 2.2.20
ENDPROC && BAR_23_OF_Furnizori_FB2P

PROCEDURE BAR_24_OF_Furnizori_FB2P
	LOCAL lnRaspuns, lnDeducere
	lnRaspuns = 6
	
	DO WHILE lnRaspuns = 6
		lnDeducere = 0
		lans(10461,,,,@lnDeducere)
		if buton = 2
			return
		ENDIF	
		DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.F.,'B .C. F. -uri','4426',10461,,lnDeducere
		IF buton=1
			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
		ELSE
			lnRaspuns = 7	
		ENDIF  
	ENDDO 
ENDPROC && BAR_24_OF_Furnizori_FB2P

PROCEDURE BAR_25_OF_Furnizori_FB2P
	LOCAL lnRaspuns
	lnRaspuns = 6
	
	DO WHILE lnRaspuns = 6
		lans(10462)
		if buton = 2
			return
		ENDIF	
		DO introducere_compacta WITH 'achi_mat','','401 ',.t.,.F.,'Bonuri valorice','4426',10462
		IF buton=1
			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
		ELSE
			lnRaspuns = 7	
		ENDIF 
	ENDDO 
ENDPROC && BAR_25_OF_Furnizori_FB2P

PROCEDURE BAR_26_OF_Furnizori_FB2P
	PRIVATE pcACN
	loCont = ret_cont("Selectati contul",'6')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	
	LANS(10565)
ENDPROC && BAR_26_OF_Furnizori_FB2P

*</Procedures>
