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

*<MenuCode>
DEFINE POPUP Shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Shortcut PROMPT "Materiale primite" ;
	MESSAGE ' X :4511'
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P

DEFINE BAR 2 OF Shortcut PROMPT "Materiale livrate" ;
	MESSAGE ' 4511 : X'
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P

DEFINE BAR 3 OF Shortcut PROMPT "\-"
ON BAR 3 OF Shortcut ACTIVATE POPUP _1920lzdtu

	*----------------------------------
	DEFINE POPUP _1920lzdtu SHORTCUT RELATIVE
DEFINE BAR 4 OF Shortcut PROMPT "Clienti" ;
	MESSAGE ' 4511 : 4111'
ON SELECTION BAR 4 OF Shortcut lans(10527)

DEFINE BAR 5 OF Shortcut PROMPT "\-"
ON BAR 5 OF Shortcut ACTIVATE POPUP _21g0x5gtc

	*----------------------------------
	DEFINE POPUP _21g0x5gtc SHORTCUT RELATIVE
DEFINE BAR 6 OF Shortcut PROMPT "Decontari intre subunitati"
ON BAR 6 OF Shortcut ACTIVATE POPUP Decontarii

	*----------------------------------
	DEFINE POPUP Decontarii SHORTCUT RELATIVE
	DEFINE BAR 1 OF Decontarii PROMPT "Venituri"
	ON SELECTION BAR 1 OF Decontarii DO BAR_1_OF_Decontarii_FB2P

	DEFINE BAR 2 OF Decontarii PROMPT "Cheltuieli"
	ON SELECTION BAR 2 OF Decontarii DO BAR_2_OF_Decontarii_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
	LOCAL lnRaspuns
	lnRaspuns = 6
	
	DO WHILE lnRaspuns = 6
		 lans(10521)
		if buton = 2
			return
		ENDIF
		DO introducere_compacta WITH 'achi_mat','','4511',.t.,.f.,'DECONTARI IN CADRUL GRUPULUI - PRIMIRE','4426',10521
	
		IF buton=1
			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
		else
			lnRaspuns = 7
		ENDIF 
	ENDDO
ENDPROC && BAR_1_OF_Shortcut_FB2P

PROCEDURE BAR_2_OF_Shortcut_FB2P
	LOCAL lnRaspuns
	lnRaspuns = 6
	
	DO WHILE lnRaspuns = 6
		lans(10520)
		if buton = 2
			return
		ENDIF 
		DO introducere_compacta WITH 'achi_mat','4511','',.t.,.f.,'DECONTARI IN CADRUL GRUPULUI - PRIMIRE','4427',10520	
		IF buton=1
			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
		else
			lnRaspuns = 7	
		ENDIF 
	ENDDO 
ENDPROC && BAR_2_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_Decontarii_FB2P
	LOCAL lnRaspuns
	lnRaspuns = 6
	
	DO WHILE lnRaspuns = 6
		lans(10573)
		if buton = 2
			return
		ENDIF 
		DO introducere_compacta WITH 'achi_mat','482',,.t.,.f.,'DECONTARI INTRE SUBUNITATI','4427',10573
		IF buton=1
			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
		else
			lnRaspuns = 7	
		ENDIF 
	ENDDO 
ENDPROC && BAR_1_OF_Decontarii_FB2P

PROCEDURE BAR_2_OF_Decontarii_FB2P
	LOCAL lnRaspuns
	lnRaspuns = 6
	
	DO WHILE lnRaspuns = 6
		lans(10574)
		if buton = 2
			return
		ENDIF 
		DO introducere_compacta WITH 'achi_mat',,'482',.t.,.f.,'DECONTARI INTRE SUBUNITATI','4426',10574
		IF buton=1
			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
		else
			lnRaspuns = 7	
		ENDIF 
	ENDDO 
ENDPROC && BAR_2_OF_Decontarii_FB2P

*</Procedures>
