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

*<MenuCode>
DEFINE POPUP Cheltuieli SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Cheltuieli PROMPT "Tichete combustibili" ;
	MESSAGE '6022:5328'
ON SELECTION BAR 1 OF Cheltuieli DO BAR_1_OF_Cheltuieli_FB2P

DEFINE BAR 2 OF Cheltuieli PROMPT "Tichete de masa" ;
	MESSAGE '6422:5328'
ON SELECTION BAR 2 OF Cheltuieli DO BAR_2_OF_Cheltuieli_FB2P

DEFINE BAR 3 OF Cheltuieli PROMPT "Alte impozite si taxe"
ON BAR 3 OF Cheltuieli ACTIVATE POPUP Alteimpozi

	*----------------------------------
	DEFINE POPUP Alteimpozi SHORTCUT RELATIVE
	DEFINE BAR 1 OF Alteimpozi PROMPT "Prorata" ;
		MESSAGE '635 : 4426 '
	ON SELECTION BAR 1 OF Alteimpozi DO BAR_1_OF_Alteimpozi_FB2P

	DEFINE BAR 2 OF Alteimpozi PROMPT "TVA colectat" ;
		MESSAGE '635 : 4427'
	ON SELECTION BAR 2 OF Alteimpozi DO BAR_2_OF_Alteimpozi_FB2P

	DEFINE BAR 3 OF Alteimpozi PROMPT "Decontari cu bugetul statului" ;
		MESSAGE '635 : 446'
	ON BAR 3 OF Alteimpozi ACTIVATE POPUP Decontaric

		*----------------------------------
		DEFINE POPUP Decontaric SHORTCUT RELATIVE
		DEFINE BAR 1 OF Decontaric PROMPT "In Lei"
		ON SELECTION BAR 1 OF Decontaric DO BAR_1_OF_Decontaric_FB2P

		DEFINE BAR 2 OF Decontaric PROMPT "In Valuta"
		ON SELECTION BAR 2 OF Decontaric DO BAR_2_OF_Decontaric_FB2P

	DEFINE BAR 4 OF Alteimpozi PROMPT "Taxe si varsaminte asimilate" ;
		MESSAGE '635 : 447'
	ON SELECTION BAR 4 OF Alteimpozi DO BAR_4_OF_Alteimpozi_FB2P

DEFINE BAR 4 OF Cheltuieli PROMPT "Constituire penalitati, amenda" ;
	MESSAGE '6581 : 448X'
ON SELECTION BAR 4 OF Cheltuieli DO BAR_4_OF_Cheltuieli_FB2P

DEFINE BAR 5 OF Cheltuieli PROMPT "\-"
ON BAR 5 OF Cheltuieli ACTIVATE POPUP _0xs0vxqhk

	*----------------------------------
	DEFINE POPUP _0xs0vxqhk SHORTCUT RELATIVE
DEFINE BAR 6 OF Cheltuieli PROMPT " Repunere chetuieli in avans" ;
	MESSAGE '6xx :471 '
ON SELECTION BAR 6 OF Cheltuieli DO BAR_6_OF_Cheltuieli_FB2P

DEFINE BAR 7 OF Cheltuieli PROMPT " Repunere chetuieli in avans - toate cu rate"
ON SELECTION BAR 7 OF Cheltuieli do repunere_venchelt_avans with '471' in ocont2003.prg

DEFINE BAR 8 OF Cheltuieli PROMPT "\-"
ON BAR 8 OF Cheltuieli ACTIVATE POPUP NewItem

	*----------------------------------
	DEFINE POPUP NewItem SHORTCUT RELATIVE
DEFINE BAR 9 OF Cheltuieli PROMPT "Sconturi acordate clientilor 667" ;
	MESSAGE '667-4111'
ON SELECTION BAR 9 OF Cheltuieli lans(10326)

DEFINE BAR 10 OF Cheltuieli PROMPT "Reduceri comerciale acordate 709" ;
	MESSAGE '709-4111; 4111-4427'
ON SELECTION BAR 10 OF Cheltuieli lans(10605)
ACTIVATE POPUP Cheltuieli

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Cheltuieli_FB2P
	lans(10294)
	*!*	DO STERGE
	*!*	m.SCD='6022'
	*!*	m.SCC='5328'
	*!*	***do casa.spr
	*!*	Do alfabeta With;
	*!*		'casa',;
	*!*		"","","", ;
	*!*		'','','',    ;
	*!*		'','','TICHETE COMBUSTIBILI',  ;
	*!*		''
	*!*	*
	*!*	If BUTON=2
	*!*		Do STERGE
	*!*		Return
	*!*	Endif
	*!*	Do CODARE
	*!*	Do CONTABILIZEAZA With m.SCD,m.SCC,M.suma,CLASAACT
	*!*	DO STERGE
ENDPROC && BAR_1_OF_Cheltuieli_FB2P

PROCEDURE BAR_2_OF_Cheltuieli_FB2P
	lans(10295)
	*!*	DO STERGE
	
	*!*	m.SCD='604 '
	*!*	m.SCC='5328'
	*!*	***do casa.spr
	*!*	Do alfabeta With;
	*!*		'casa',;
	*!*		"","","", ;
	*!*		'','','',    ;
	*!*		'','','TICHETE DE MASA',  ;
	*!*		''
	*!*	*
	*!*	If BUTON=2
	*!*		Do STERGE
	*!*		Return
	*!*	Endif
	*!*	Do CODARE
	*!*	Do CONTABILIZEAZA With m.SCD,m.SCC,M.suma,CLASAACT
	*!*	DO STERGE
ENDPROC && BAR_2_OF_Cheltuieli_FB2P

PROCEDURE BAR_1_OF_Alteimpozi_FB2P
	lans(10477)
ENDPROC && BAR_1_OF_Alteimpozi_FB2P

PROCEDURE BAR_2_OF_Alteimpozi_FB2P
	lans(10478)
ENDPROC && BAR_2_OF_Alteimpozi_FB2P

PROCEDURE BAR_1_OF_Decontaric_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'446')  &&,4461,4462,4463,4464,4465,4466,4467,4468,4469')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	
	lans(10479)
ENDPROC && BAR_1_OF_Decontaric_FB2P

PROCEDURE BAR_2_OF_Decontaric_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'446')   &&,4461,4462,4463,4464,4465,4466,4467,4468,4469')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	
	lans(10542)
ENDPROC && BAR_2_OF_Decontaric_FB2P

PROCEDURE BAR_4_OF_Alteimpozi_FB2P
	lans(10480)
ENDPROC && BAR_4_OF_Alteimpozi_FB2P

PROCEDURE BAR_4_OF_Cheltuieli_FB2P
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul",'448')  &&,4481,4482')
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	
	lans(10358)
ENDPROC && BAR_4_OF_Cheltuieli_FB2P

PROCEDURE BAR_6_OF_Cheltuieli_FB2P
	*!*	SELE BAL
	*!*	GO TOP
	*!*	OS=crea('selcont')
	*!*	OS.show(1)
	*!*	IF BUTON=2
	*!*		RETURN
	*!*	ENDIF
	PRIVATE pcACN
	loCont=ret_cont("Selectati contul debitor 6XX = 471",'6')
	
	IF TYPE('loCont') # 'O'
		RETURN
	ENDIF 
	
	IF buton=2
		RELEASE loCont
		RETURN 
	ENDIF 
	CN=locont.cont
	PcACN=loCont.Acont
	lans(10411)
ENDPROC && BAR_6_OF_Cheltuieli_FB2P

*</Procedures>