*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="furnizori2_.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 "44" OF Furnizori PROMPT "Cheltuieli neplatite"
ON BAR 44 OF Furnizori ACTIVATE POPUP _s8o01v1sp

	*----------------------------------
	DEFINE POPUP _s8o01v1sp SHORTCUT RELATIVE
	DEFINE BAR "44010" OF _s8o01v1sp PROMPT "Materiale nestocate 604" ;
		MESSAGE '604 :401 ;4426:401 '
	ON SELECTION BAR 44010 OF _s8o01v1sp DO BAR_"44010"_OF__s8o01v1sp_FB2P

	DEFINE BAR "44020" OF _s8o01v1sp PROMPT "Energie si apa 605" ;
		MESSAGE '605 :401 ;4426: 401'
	ON SELECTION BAR 44020 OF _s8o01v1sp DO BAR_"44020"_OF__s8o01v1sp_FB2P

	DEFINE BAR "44030" OF _s8o01v1sp PROMPT "Intretinere si reparatii  611" ;
		MESSAGE '611 :401 ;4426:401 '
	ON SELECTION BAR 44030 OF _s8o01v1sp DO BAR_"44030"_OF__s8o01v1sp_FB2P

	DEFINE BAR "44040" OF _s8o01v1sp PROMPT "Locatii si chirii 612" ;
		MESSAGE '612 :401 ;4426:401 '
	ON SELECTION BAR 44040 OF _s8o01v1sp DO BAR_"44040"_OF__s8o01v1sp_FB2P

	DEFINE BAR "44100" OF _s8o01v1sp PROMPT "Prime de asigurare 613" ;
		MESSAGE '613 :401 ;4426:401 '
	ON SELECTION BAR 44100 OF _s8o01v1sp DO BAR_"44100"_OF__s8o01v1sp_FB2P

	DEFINE BAR "44110" OF _s8o01v1sp PROMPT "Studii si cercetari 614" ;
		MESSAGE '614 :401 ;4426:401 '
	ON SELECTION BAR 44110 OF _s8o01v1sp DO BAR_"44110"_OF__s8o01v1sp_FB2P

	DEFINE BAR "44120" OF _s8o01v1sp PROMPT "Colaboratori 621" ;
		MESSAGE '621 :401 ;4426:401 '
	ON SELECTION BAR 44120 OF _s8o01v1sp DO BAR_"44120"_OF__s8o01v1sp_FB2P

	DEFINE BAR "44130" OF _s8o01v1sp PROMPT "Comisioane si onorarii 622" ;
		MESSAGE '622 :401 ;4426:401 '
	ON SELECTION BAR 44130 OF _s8o01v1sp DO BAR_"44130"_OF__s8o01v1sp_FB2P

	DEFINE BAR "44050" OF _s8o01v1sp PROMPT "Protocol  6231" ;
		MESSAGE '6231:401 ;4426:401 '
	ON SELECTION BAR 44050 OF _s8o01v1sp DO BAR_"44050"_OF__s8o01v1sp_FB2P

	DEFINE BAR 10 OF _s8o01v1sp PROMPT "Reclama 6232" ;
		MESSAGE '6232:401 ;4426:401 '
	ON SELECTION BAR 10 OF _s8o01v1sp DO BAR_10_OF__s8o01v1sp_FB2P

	DEFINE BAR "44060" OF _s8o01v1sp PROMPT "Transport bunuri si persoane 624" ;
		MESSAGE '624 :401 ;4426:401 '
	ON SELECTION BAR 44060 OF _s8o01v1sp DO BAR_"44060"_OF__s8o01v1sp_FB2P

	DEFINE BAR "44070" OF _s8o01v1sp PROMPT "Deplasari, detasari 625" ;
		MESSAGE '625 :401 ;4426:401 '
	ON SELECTION BAR 44070 OF _s8o01v1sp DO BAR_"44070"_OF__s8o01v1sp_FB2P

	DEFINE BAR "44080" OF _s8o01v1sp PROMPT "Posta si telecomunicatii 626" ;
		MESSAGE '626 :401 ;4426:401 '
	ON SELECTION BAR 44080 OF _s8o01v1sp DO BAR_"44080"_OF__s8o01v1sp_FB2P

	DEFINE BAR "44090" OF _s8o01v1sp PROMPT "Alte cheltuieli la terti 628" ;
		MESSAGE '628 :401 ;4426:401 '
	ON SELECTION BAR 44090 OF _s8o01v1sp DO BAR_"44090"_OF__s8o01v1sp_FB2P

	DEFINE BAR 15 OF _s8o01v1sp PROMPT "Tichete de masa"
	ON SELECTION BAR 15 OF _s8o01v1sp DO BAR_15_OF__s8o01v1sp_FB2P

	DEFINE BAR "44140" OF _s8o01v1sp PROMPT "Combustibili cu taxa" ;
		MESSAGE '6012:401 ;4426:401 '
	ON SELECTION BAR 44140 OF _s8o01v1sp DO BAR_"44140"_OF__s8o01v1sp_FB2P

	DEFINE BAR 17 OF _s8o01v1sp PROMPT "B.C.F."
	ON SELECTION BAR 17 OF _s8o01v1sp DO BAR_17_OF__s8o01v1sp_FB2P

	DEFINE BAR 18 OF _s8o01v1sp PROMPT "Bonuri valorice"
	ON SELECTION BAR 18 OF _s8o01v1sp DO BAR_18_OF__s8o01v1sp_FB2P

	DEFINE BAR 19 OF _s8o01v1sp PROMPT "\-"
	ON BAR 19 OF _s8o01v1sp ACTIVATE POPUP _0w60k6cc3

		*----------------------------------
		DEFINE POPUP _0w60k6cc3 SHORTCUT RELATIVE
	DEFINE BAR 20 OF _s8o01v1sp PROMPT "Cheltuieli diverse"
	ON SELECTION BAR 20 OF _s8o01v1sp DO BAR_20_OF__s8o01v1sp_FB2P

DEFINE BAR "45" OF Furnizori PROMPT "Cheltuieli platite din casa"
ON BAR 45 OF Furnizori ACTIVATE POPUP _s8o01v1sq

	*----------------------------------
	DEFINE POPUP _s8o01v1sq SHORTCUT RELATIVE
	DEFINE BAR "45010" OF _s8o01v1sq PROMPT "Materiale nestocate 604" ;
		MESSAGE '604 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45010 OF _s8o01v1sq DO BAR_"45010"_OF__s8o01v1sq_FB2P

	DEFINE BAR "45020" OF _s8o01v1sq PROMPT "Energie si apa 605" ;
		MESSAGE '605 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45020 OF _s8o01v1sq DO BAR_"45020"_OF__s8o01v1sq_FB2P

	DEFINE BAR "45030" OF _s8o01v1sq PROMPT "Intretinere si reparatii 611" ;
		MESSAGE '611 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45030 OF _s8o01v1sq DO BAR_"45030"_OF__s8o01v1sq_FB2P

	DEFINE BAR "45040" OF _s8o01v1sq PROMPT "Locatii si chirii 612" ;
		MESSAGE '612 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45040 OF _s8o01v1sq DO BAR_"45040"_OF__s8o01v1sq_FB2P

	DEFINE BAR "45100" OF _s8o01v1sq PROMPT "Prime de asigurare 613" ;
		MESSAGE '613 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45100 OF _s8o01v1sq DO BAR_"45100"_OF__s8o01v1sq_FB2P

	DEFINE BAR "45110" OF _s8o01v1sq PROMPT "Studii si cercetari 614" ;
		MESSAGE '614 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45110 OF _s8o01v1sq DO BAR_"45110"_OF__s8o01v1sq_FB2P

	DEFINE BAR "45120" OF _s8o01v1sq PROMPT "Colaboratori 621" ;
		MESSAGE '621 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45120 OF _s8o01v1sq DO BAR_"45120"_OF__s8o01v1sq_FB2P

	DEFINE BAR "45130" OF _s8o01v1sq PROMPT "Comisioane si onorarii 622" ;
		MESSAGE '622 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45130 OF _s8o01v1sq DO BAR_"45130"_OF__s8o01v1sq_FB2P

	DEFINE BAR "45050" OF _s8o01v1sq PROMPT "Protocol  6231" ;
		MESSAGE '6231:401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45050 OF _s8o01v1sq DO BAR_"45050"_OF__s8o01v1sq_FB2P

	DEFINE BAR 10 OF _s8o01v1sq PROMPT "Reclama 6232" ;
		MESSAGE '6232:401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 10 OF _s8o01v1sq DO BAR_10_OF__s8o01v1sq_FB2P

	DEFINE BAR "45060" OF _s8o01v1sq PROMPT "Transport bunuri si persoane 624" ;
		MESSAGE '624 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45060 OF _s8o01v1sq DO BAR_"45060"_OF__s8o01v1sq_FB2P

	DEFINE BAR "45070" OF _s8o01v1sq PROMPT "Deplasari, detasari 625" ;
		MESSAGE '625 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45070 OF _s8o01v1sq DO BAR_"45070"_OF__s8o01v1sq_FB2P

	DEFINE BAR "45080" OF _s8o01v1sq PROMPT "Posta si telecomunicatii 626" ;
		MESSAGE '625 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45080 OF _s8o01v1sq DO BAR_"45080"_OF__s8o01v1sq_FB2P

	DEFINE BAR "45090" OF _s8o01v1sq PROMPT "Alte cheltuieli la terti 628" ;
		MESSAGE '628 :401 ;4426:401 ;401 :5311'
	ON SELECTION BAR 45090 OF _s8o01v1sq DO BAR_"45090"_OF__s8o01v1sq_FB2P

	DEFINE BAR "45140" OF _s8o01v1sq PROMPT "\Combustibili cu taxa"
	ON SELECTION BAR 45140 OF _s8o01v1sq DO BAR_"45140"_OF__s8o01v1sq_FB2P

	DEFINE BAR 16 OF _s8o01v1sq PROMPT "\Tichete de masa"
	ON SELECTION BAR 16 OF _s8o01v1sq DO BAR_16_OF__s8o01v1sq_FB2P

	DEFINE BAR 17 OF _s8o01v1sq PROMPT "\-"
	ON SELECTION BAR 17 OF _s8o01v1sq

	DEFINE BAR 18 OF _s8o01v1sq PROMPT "Cheltuieli diverse"
	ON SELECTION BAR 18 OF _s8o01v1sq DO BAR_18_OF__s8o01v1sq_FB2P

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

	*----------------------------------
	DEFINE POPUP _s3n000oov SHORTCUT RELATIVE
	DEFINE BAR "46010" OF _s3n000oov PROMPT "Materiale nestocate 604" ;
		MESSAGE '604 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46010 OF _s3n000oov DO BAR_"46010"_OF__s3n000oov_FB2P

	DEFINE BAR "46020" OF _s3n000oov PROMPT "Energie si apa 605" ;
		MESSAGE '605 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46020 OF _s3n000oov DO BAR_"46020"_OF__s3n000oov_FB2P

	DEFINE BAR "46030" OF _s3n000oov PROMPT "Intretinere si reparatii 611" ;
		MESSAGE '611 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46030 OF _s3n000oov DO BAR_"46030"_OF__s3n000oov_FB2P

	DEFINE BAR "46040" OF _s3n000oov PROMPT "Locatii si chirii 612" ;
		MESSAGE '612 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46040 OF _s3n000oov DO BAR_"46040"_OF__s3n000oov_FB2P

	DEFINE BAR "46110" OF _s3n000oov PROMPT "Prime de asigurare 613" ;
		MESSAGE '613 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46110 OF _s3n000oov DO BAR_"46110"_OF__s3n000oov_FB2P

	DEFINE BAR "46100" OF _s3n000oov PROMPT "Studii si cercetari 614" ;
		MESSAGE '614 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46100 OF _s3n000oov DO BAR_"46100"_OF__s3n000oov_FB2P

	DEFINE BAR "46120" OF _s3n000oov PROMPT "Colaboratori 621" ;
		MESSAGE '621 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46120 OF _s3n000oov DO BAR_"46120"_OF__s3n000oov_FB2P

	DEFINE BAR "46130" OF _s3n000oov PROMPT "Comisioane si onorarii 622" ;
		MESSAGE '622 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46130 OF _s3n000oov DO BAR_"46130"_OF__s3n000oov_FB2P

	DEFINE BAR "46050" OF _s3n000oov PROMPT "Protocol 6231" ;
		MESSAGE '6231:401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46050 OF _s3n000oov DO BAR_"46050"_OF__s3n000oov_FB2P

	DEFINE BAR 10 OF _s3n000oov PROMPT "Reclama 6232" ;
		MESSAGE '6232:401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 10 OF _s3n000oov DO BAR_10_OF__s3n000oov_FB2P

	DEFINE BAR "46060" OF _s3n000oov PROMPT "Transport bunuri si persoane 624" ;
		MESSAGE '624 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46060 OF _s3n000oov DO BAR_"46060"_OF__s3n000oov_FB2P

	DEFINE BAR "46070" OF _s3n000oov PROMPT "Deplasari, detasari 625" ;
		MESSAGE '625 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46070 OF _s3n000oov DO BAR_"46070"_OF__s3n000oov_FB2P

	DEFINE BAR "46080" OF _s3n000oov PROMPT "Posta si telecomunicatii 626" ;
		MESSAGE '626 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46080 OF _s3n000oov DO BAR_"46080"_OF__s3n000oov_FB2P

	DEFINE BAR "46090" OF _s3n000oov PROMPT "Alte cheltuieli la teri 628" ;
		MESSAGE '628 :401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46090 OF _s3n000oov DO BAR_"46090"_OF__s3n000oov_FB2P

	DEFINE BAR "46140" OF _s3n000oov PROMPT "\Combustibili cu taxa" ;
		MESSAGE '6012:401 ;4426:401 ;401 :542 '
	ON SELECTION BAR 46140 OF _s3n000oov DO BAR_"46140"_OF__s3n000oov_FB2P

	DEFINE BAR 16 OF _s3n000oov PROMPT "\Tichete de masa"
	ON SELECTION BAR 16 OF _s3n000oov DO BAR_16_OF__s3n000oov_FB2P

	DEFINE BAR 17 OF _s3n000oov PROMPT "\-"
	ON BAR 17 OF _s3n000oov ACTIVATE POPUP _0w60k8bd3

		*----------------------------------
		DEFINE POPUP _0w60k8bd3 SHORTCUT RELATIVE
	DEFINE BAR 18 OF _s3n000oov PROMPT "Cheltuieli diverse"
	ON SELECTION BAR 18 OF _s3n000oov DO BAR_18_OF__s3n000oov_FB2P

DEFINE BAR 4 OF Furnizori PROMPT "\-"
ON BAR 4 OF Furnizori ACTIVATE POPUP _1131460yy

	*----------------------------------
	DEFINE POPUP _1131460yy SHORTCUT RELATIVE
DEFINE BAR 5 OF Furnizori PROMPT "Facturi nesosite"
ON SELECTION BAR 5 OF Furnizori DO BAR_5_OF_Furnizori_FB2P

DEFINE BAR 6 OF Furnizori PROMPT "\-"
ON BAR 6 OF Furnizori ACTIVATE POPUP _0xs0llvv4

	*----------------------------------
	DEFINE POPUP _0xs0llvv4 SHORTCUT RELATIVE
DEFINE BAR 7 OF Furnizori PROMPT "Inregistrare cheltuieli in avans" ;
	MESSAGE '471 :401 ;4426:401 '
ON SELECTION BAR 7 OF Furnizori DO BAR_7_OF_Furnizori_FB2P
ACTIVATE POPUP Furnizori

*</MenuCode>

*<Procedures>
PROCEDURE BAR_"44010"_OF__s8o01v1sp_FB2P
	lans(10228)
	*!*	nr_meniu=44010
	*!*	DO INcindneplatite WITH '604  ','401  ','4426 ','401  ','FACTURI',"actgen02"
ENDPROC && BAR_"44010"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44020"_OF__s8o01v1sp_FB2P
	lans(10229)
	*!*	nr_meniu=44020
	*!*	DO INcindneplatite WITH '605  ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44020"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44030"_OF__s8o01v1sp_FB2P
	*!*	nr_meniu=44030
	*!*	DO INcindneplatite WITH '611  ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
	lans(10230)
ENDPROC && BAR_"44030"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44040"_OF__s8o01v1sp_FB2P
	lans(10231)
	*!*	nr_meniu=44040
	*!*	DO INcindneplatite WITH '612  ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44040"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44100"_OF__s8o01v1sp_FB2P
	lans(10232)
	*!*	nr_meniu=44100
	*!*	DO INcindneplatite WITH '613  ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44100"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44110"_OF__s8o01v1sp_FB2P
	lans(10233)
	*!*	nr_meniu=44110
	*!*	DO INcindneplatite WITH '614  ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44110"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44120"_OF__s8o01v1sp_FB2P
	lans(10234)
	*!*	nr_meniu=44120
	*!*	DO INcindneplatite WITH '621  ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44120"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44130"_OF__s8o01v1sp_FB2P
	lans(10235)
	*!*	nr_meniu=44130
	*!*	DO INcindneplatite WITH '622  ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44130"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44050"_OF__s8o01v1sp_FB2P
	lans(10236)
	*!*	nr_meniu=44050
	*!*	DO INcindneplatite WITH '6231 ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44050"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_10_OF__s8o01v1sp_FB2P
	lans(10237)
	*!*	DO INcindneplatite WITH '6232 ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
ENDPROC && BAR_10_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44060"_OF__s8o01v1sp_FB2P
	lans(10238)
	*!*	nr_meniu=44060
	*!*	DO INcindneplatite WITH '624  ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44060"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44070"_OF__s8o01v1sp_FB2P
	lans(10239)
	*!*	nr_meniu=44070
	*!*	DO INcindneplatite WITH '625  ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44070"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44080"_OF__s8o01v1sp_FB2P
	lans(10240)
	*!*	nr_meniu=44080
	*!*	DO INcindneplatite WITH '626  ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44080"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44090"_OF__s8o01v1sp_FB2P
	lans(10241)
	*!*	nr_meniu=44090
	*!*	DO INcindneplatite WITH '628  ','401  ','4426 ','401  ','FACTURI','ACTGEN02'
ENDPROC && BAR_"44090"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_15_OF__s8o01v1sp_FB2P
	
	clasaact='actverif'
	SCD1='628  '
	SCC1='401  '
	SCD2='4426 '
	SCC2='401  '
	
	OA=CREATEOBJ('BONMASA')
	OA.SHOW(1)
	IF BUTON=2
		DO STERGE
		RETURN
	ENDIF
	DO CODARE
	*******************************************
	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
	M.EXPLICATIA='TICHETE DE MASA'
	DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact
	m.nume_2='NEIMPOZABIL '
	DO CONTABILIZEAZA WITH '4426 ','401  ',0,clasaact
	*************************************************
	SELE FURNIZOR
	repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA 
	M.TOTCTVA=M.TOTCTVA+M.TAXA
	M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB
	DO ADCUMP 
	DO ADCHIND
	DO ADRESPONS
	DO STERGE
	RETURN
ENDPROC && BAR_15_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"44140"_OF__s8o01v1sp_FB2P
	DO MENIU44140
ENDPROC && BAR_"44140"_OF__s8o01v1sp_FB2P

PROCEDURE BAR_17_OF__s8o01v1sp_FB2P
	create table &loc\&nfscurt\tempo\ratelis.dbf free (nrcrt n(2),nume_2 c(30),scd C(4),scc C(4),suma n(12),BIFA l)
	sele ratelis
	index on nrcrt tag nrcrt
	for i=1 to 6
	appe blank
	repl nrcrt with i
	ENDFOR
	SELE RATELIS
	repl nume_2 with "VALOARE COMBUSTIBILI",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=1
	repl nume_2 with "TVA COMBUSTIBILI",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=2
	repl nume_2 with " ",SCD WITH '6022',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=3
	repl nume_2 with "TAXA DE DRUM",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .T. for nrcrt=4
	repl nume_2 with "PRET IMPRIMATE",SCD WITH '604',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=5
	repl nume_2 with "TVA IMPRIMATE",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=6
	
	*brow
	
	titlu='B.C.F.'
	do form ratelis 
	
	if buton=2
	return
	endif
	DO CODARE
	sele ratelis
	scan FOR !EMPTY(SCc) AND !EMPTY(SCd) AND !EMPTY(suma)
	scat memv
	if bifa
		m.neimpozab=m.suma
	else
		m.neimpozab=0
	endif
	do contabilizeaza with m.scd,m.scc,m.suma
	endscan
	
	SELE RATELIS
	SUM SUMA FOR BIFA=.F. AND SCD#'4426' AND scc='401 ' TO M.TOTFTVAM
	SUM SUMA FOR SCD='4426' TO M.TVAM    
	SUM SUMA FOR BIFA=.T. AND scc='401 ' TO M.NEIMPOZAB    
	M.TOTCTVA=M.TOTFTVAM+M.TVAM +m.neimpozab
	
	DO ADCUMP   
	 
	SELE FURNIZOR
	LOCATE FOR NUME=ALLT(M.NUME)
	IF flock()
		REPL FURNIZOR.achizit with FURNIZOR.achizit+m.TOTCTVA
	ENDIF
	unlock
	
	use in ratelis
ENDPROC && BAR_17_OF__s8o01v1sp_FB2P

PROCEDURE BAR_18_OF__s8o01v1sp_FB2P
	create table &loc\&nfscurt\tempo\ratelis.dbf free (nrcrt n(2),nume_2 c(30),scd C(4),scc C(4),suma n(12),BIFA l)
	sele ratelis
	index on nrcrt tag nrcrt
	for i=1 to 5
	appe blank
	repl nrcrt with i
	ENDFOR
	SELE RATELIS
	repl nume_2 with "BONURI VALORICE",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=1
	repl nume_2 with "TVA ",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=2
	repl nume_2 with "FOND SPECIAL",SCD WITH '5328',SCC WITH '401', SUMA WITH 0,BIFA WITH .T. for nrcrt=3
	repl nume_2 with "VALOARE IMPRIMATE",SCD WITH '628',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=4
	repl nume_2 with "TVA IMPRIMATE",SCD WITH '4426',SCC WITH '401', SUMA WITH 0,BIFA WITH .F. for nrcrt=5
	
	*brow
	
	titlu='BONURI VALORICE'
	do form ratelis 
	
	if buton=2
	return
	endif
	DO CODARE
	sele ratelis
	scan FOR !EMPTY(SCc) AND !EMPTY(SCd) AND !EMPTY(suma)
	scat memv
	if bifa
		m.neimpozab=m.suma
	else
		m.neimpozab=0
	endif
	do contabilizeaza with m.scd,m.scc,m.suma
	endscan
	
	SELE RATELIS
	SUM SUMA FOR BIFA=.F. AND SCD#'4426' TO M.TOTFTVAM
	SUM SUMA FOR SCD='4426' TO M.TVAM    
	SUM SUMA FOR BIFA=.T. TO M.NEIMPOZAB    
	M.TOTCTVA=M.TOTFTVAM+M.TVAM +m.neimpozab
	
	DO ADCUMP   
	 
	SELE FURNIZOR
	LOCATE FOR NUME=ALLT(M.NUME)
	IF flock()
		REPL FURNIZOR.achizit with FURNIZOR.achizit+m.TOTCTVA
	ENDIF
	unlock
	
	use in ratelis
ENDPROC && BAR_18_OF__s8o01v1sp_FB2P

PROCEDURE BAR_20_OF__s8o01v1sp_FB2P
	SELECT BAL
	ose=crea('selcont')
	ose.show(1)
	IF buton=2
	RETURN
	ENDIF
	lans(10311)
	*!*	m.scd=CN
	
	*!*	DO INcindneplatite WITH M.SCD,'401 ','4426','401 ','FACTURI',"actgen02"
ENDPROC && BAR_20_OF__s8o01v1sp_FB2P

PROCEDURE BAR_"45010"_OF__s8o01v1sq_FB2P
	lans(10242)
	*!*	nr_meniu=45010
	*!*	DO INcindplatite WITH '604  ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA', 'actgen02PERc'
ENDPROC && BAR_"45010"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45020"_OF__s8o01v1sq_FB2P
	lans(10243)
	*!*	nr_meniu=45020
	*!*	DO INcindplatite WITH '605  ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
ENDPROC && BAR_"45020"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45030"_OF__s8o01v1sq_FB2P
	lans(10244)
	*!*	nr_meniu=45020
	*!*	DO INcindplatite WITH '611  ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
ENDPROC && BAR_"45030"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45040"_OF__s8o01v1sq_FB2P
	lans(10245)
	*!*	nr_meniu=45040
	*!*	DO INcindplatite WITH '612  ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
ENDPROC && BAR_"45040"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45100"_OF__s8o01v1sq_FB2P
	lans(10246)
	*!*	DO INcindplatite WITH '613  ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
ENDPROC && BAR_"45100"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45110"_OF__s8o01v1sq_FB2P
	lans(10247)
	*!*	DO INcindplatite WITH '614  ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
ENDPROC && BAR_"45110"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45120"_OF__s8o01v1sq_FB2P
	*!*	DO INcindplatite WITH '621  ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
	lans(10248)
ENDPROC && BAR_"45120"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45130"_OF__s8o01v1sq_FB2P
	lans(10249)
	*DO INcindplatite WITH '622  ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
ENDPROC && BAR_"45130"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45050"_OF__s8o01v1sq_FB2P
	lans(10250)
	*!*	DO INcindplatite WITH '6231 ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
ENDPROC && BAR_"45050"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_10_OF__s8o01v1sq_FB2P
	lans(10251)
	*DO INcindplatite WITH '6232 ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
ENDPROC && BAR_10_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45060"_OF__s8o01v1sq_FB2P
	lans(10252)
	*!*	DO INcindplatite WITH '624  ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
ENDPROC && BAR_"45060"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45070"_OF__s8o01v1sq_FB2P
	lans(10253)
	*DO INcindplatite WITH '625  ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
ENDPROC && BAR_"45070"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45080"_OF__s8o01v1sq_FB2P
	lans(10254)
	*DO INcindplatite WITH '626  ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
ENDPROC && BAR_"45080"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45090"_OF__s8o01v1sq_FB2P
	lans(10255)
	*DO INcindplatite WITH '628  ','401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA','actgen02PERc' 
ENDPROC && BAR_"45090"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"45140"_OF__s8o01v1sq_FB2P
	DO MENIU45140
	*ACT604
ENDPROC && BAR_"45140"_OF__s8o01v1sq_FB2P

PROCEDURE BAR_16_OF__s8o01v1sq_FB2P
	
	clasaact='actverif'
	SCD1='628 '
	SCC1='401 '
	SCD2='4426'
	SCC2='401 '
	
	OA=CREATEOBJ('BONMASAc')
	OA.SHOW(1)
	IF BUTON=2
		DO STERGE
		RETURN
	ENDIF
	DO CODARE
	*******************************************
	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
	M.EXPLICATIA='TICHETE DE MASA'
	DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact
	M.NUM=M.NUME_2
	m.nume_2='NEIMPOZABIL '
	DO CONTABILIZEAZA WITH '4426','401 ',0,clasaact
	*************************************************
	SELE FURNIZOR
	repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA 
	M.TOTCTVA=M.TOTCTVA+M.TAXA
	M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB
	M.EXPLICATIA='PLATA FURNIZOR'
	M.NUME_2=M.NUM              
	do contabilizeaza with '401 ','5311',m.totctva,clasaact
	
	do PLcasa
	DO ADCUMP 
	DO ADCHIND
	DO ADRESPONS
	DO STERGE
	RETURN
ENDPROC && BAR_16_OF__s8o01v1sq_FB2P

PROCEDURE BAR_18_OF__s8o01v1sq_FB2P
	SELECT BAL
	ose=crea('selcont')
	ose.show(1)
	IF buton=2
	RETURN
	ENDIF
	lans(10312)
	*!*	m.scd=CN
	
	*!*	DO INcindplatite WITH m.scd,'401  ','4426 ','401  ','401  ','5311 ','FACTURI','PLCASA', 'actgen02PERc'
ENDPROC && BAR_18_OF__s8o01v1sq_FB2P

PROCEDURE BAR_"46010"_OF__s3n000oov_FB2P
	lans(10256)
	*!*	nr_meniu=46010
	*!*	DO INcindplatite WITH '604  ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46010"_OF__s3n000oov_FB2P

PROCEDURE BAR_"46020"_OF__s3n000oov_FB2P
	lans(10257)
	*!*	nr_meniu=46020
	*!*	DO INcindplatite WITH '605  ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46020"_OF__s3n000oov_FB2P

PROCEDURE BAR_"46030"_OF__s3n000oov_FB2P
	lans(10258)
	*!*	nr_meniu=46030
	*!*	DO INcindplatite WITH '611  ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46030"_OF__s3n000oov_FB2P

PROCEDURE BAR_"46040"_OF__s3n000oov_FB2P
	lans(10259)
	*!*	nr_meniu=46040
	*!*	DO INcindplatite WITH '612  ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46040"_OF__s3n000oov_FB2P

PROCEDURE BAR_"46110"_OF__s3n000oov_FB2P
	lans(10260)
	*!*	nr_meniu=46110
	*!*	DO INcindplatite WITH '613  ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46110"_OF__s3n000oov_FB2P

PROCEDURE BAR_"46100"_OF__s3n000oov_FB2P
	lans(10261)
	*!*	nr_meniu=46100
	*!*	DO INcindplatite WITH '614  ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46100"_OF__s3n000oov_FB2P

PROCEDURE BAR_"46120"_OF__s3n000oov_FB2P
	lans(10262)
	*!*	nr_meniu=46120
	*!*	DO INcindplatite WITH '621  ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46120"_OF__s3n000oov_FB2P

PROCEDURE BAR_"46130"_OF__s3n000oov_FB2P
	lans(10263)
	*!*	nr_meniu=46130
	*!*	DO INcindplatite WITH '622  ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46130"_OF__s3n000oov_FB2P

PROCEDURE BAR_"46050"_OF__s3n000oov_FB2P
	lans(10264)
	*!*	nr_meniu=46050
	*!*	DO INcindplatite WITH '6231 ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46050"_OF__s3n000oov_FB2P

PROCEDURE BAR_10_OF__s3n000oov_FB2P
	lans(10265)
	*!*	DO INcindplatite WITH '6232 ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_10_OF__s3n000oov_FB2P

PROCEDURE BAR_"46060"_OF__s3n000oov_FB2P
	lans(10266)
	*!*	nr_meniu=46060
	*!*	DO INcindplatite WITH '624  ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46060"_OF__s3n000oov_FB2P

PROCEDURE BAR_"46070"_OF__s3n000oov_FB2P
	lans(10267)
	*!*	nr_meniu=46070
	*!*	DO INcindplatite WITH '625  ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46070"_OF__s3n000oov_FB2P

PROCEDURE BAR_"46080"_OF__s3n000oov_FB2P
	lans(10268)
	*!*	nr_meniu=46080
	*!*	DO INcindplatite WITH '626  ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46080"_OF__s3n000oov_FB2P

PROCEDURE BAR_"46090"_OF__s3n000oov_FB2P
	lans(10269)
	*!*	nr_meniu=46090
	*!*	DO INcindplatite WITH '628  ','401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_"46090"_OF__s3n000oov_FB2P

PROCEDURE BAR_"46140"_OF__s3n000oov_FB2P
	DO MENIU46140
	*ACT604
ENDPROC && BAR_"46140"_OF__s3n000oov_FB2P

PROCEDURE BAR_16_OF__s3n000oov_FB2P
	
	clasaact='actverif'
	SCD1='628 '
	SCC1='401 '
	SCD2='4426'
	SCC2='401 '
	
	OA=CREATEOBJ('BONMASA')
	OA.SHOW(1)
	IF BUTON=2
		DO STERGE
		RETURN
	ENDIF
	DO CODARE
	*******************************************
	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
	M.EXPLICATIA='TICHETE DE MASA'
	DO CONTABILIZEAZA WITH '5328','401 ',M.TAXA,clasaact
	M.NUM=M.NUME_2
	m.nume_2='NEIMPOZABIL '
	DO CONTABILIZEAZA WITH '4426','401 ',0,clasaact
	*************************************************
	SELE FURNIZOR
	repl furnizor.achizit with furnizor.achizit+m.totctva+M.TAXA 
	M.TOTCTVA=M.TOTCTVA+M.TAXA
	M.NEIMPOZAB=M.TAXA+M.NEIMPOZAB
	M.EXPLICATIA='PLATA FURNIZOR'
	M.NUME_2=M.NUM            
	do contabilizeaza with '401 ','542 ',m.totctva,clasaact
	
	do INPLACHIZ
	DO ADCUMP 
	DO ADCHIND
	DO ADRESPONS
	DO STERGE
	RETURN
ENDPROC && BAR_16_OF__s3n000oov_FB2P

PROCEDURE BAR_18_OF__s3n000oov_FB2P
	SELECT BAL
	ose=crea('selcont')
	ose.show(1)
	IF buton=2
	RETURN
	ENDIF
	lans(10313)
	*!*	m.scd=CN
	
	*!*	DO INcindplatite WITH m.scd,'401  ','4426 ','401  ','401  ','542  ','FACTURI','INPLACHIZ','actgen02PER' 
ENDPROC && BAR_18_OF__s3n000oov_FB2P

PROCEDURE BAR_5_OF_Furnizori_FB2P
	
	SELE BAL
	GO TOP
	OS=CREA('SELCONT')
	OS.SHOW(1)
	IF BUTON=2
	RETURN
	ENDIF
	*
	lans(10314)
	*!*	OA=CREA('ACTFIXn')
	*!*	OA.SHOW(1)
	*!*	*
	*!*	IF BUTON=2
	*!*	DO STERGE
	*!*	RETURN
	*!*	ENDIF
	*!*	DO CODARE
	*!*	*do pnir
	
	*!*	SCC1='408  '
	*!*	SCD2='4428 '
	*!*	SCC2=SCC1
	
	*!*	*M.TOTCTVA=M.TOTFTVA+M.TOTTVA
	
	*!*	DO CONTABILIZEAZA WITH CN,SCC1,M.TOTFTVA,CLASAACT 
	
	*!*	IF m.NEIMPOZAB>0
	*!*		m.num=m.nume_2
	*!*		m.nume_2='NEIMPOZABIL '
	*!*		DO CONTABILIZEAZA WITH CN,SCC1,M.NEIMPOZAB,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.TOTTVA,CLASAACT
	*!*		M.NUME_2=M.NUM
	*!*	*ENDIF
	
	
	*!*	DO STERGE
	*!*	RETURN
ENDPROC && BAR_5_OF_Furnizori_FB2P

PROCEDURE BAR_7_OF_Furnizori_FB2P
	*DO cheltinavans WITH '471 ','401 ','4426','401 ','FACTURI',"actgen02"
	lans(10410)
	
ENDPROC && BAR_7_OF_Furnizori_FB2P

*</Procedures>
