*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="achi1.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 "\<Balanta achizitori 542"
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P

DEFINE BAR 2 OF Shortcut PROMPT "\<Inregistrari achizitori"
ON BAR 2 OF Shortcut ACTIVATE POPUP Inregistra

	*----------------------------------
	DEFINE POPUP Inregistra SHORTCUT RELATIVE
	DEFINE BAR 1 OF Inregistra PROMPT "Cu test"
	ON SELECTION BAR 1 OF Inregistra DO BAR_1_OF_Inregistra_FB2P

	DEFINE BAR 2 OF Inregistra PROMPT "Fara test"
	ON SELECTION BAR 2 OF Inregistra DO BAR_2_OF_Inregistra_FB2P
ACTIVATE POPUP Shortcut

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Shortcut_FB2P
	*osetviz.tbrprim.butonachi.click
	DO lans_balanta_parteneri WITH "542",.T. IN OPARTENERI.prg
ENDPROC && BAR_1_OF_Shortcut_FB2P

PROCEDURE BAR_1_OF_Inregistra_FB2P
	*!*	*PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
	*!*	pcTotctva='Incasat'
	*!*	pcAchitat='Justificat'
	*!*	pcSumaTotal='Suma incasata'
	*!*	pcSumaAchi='Suma justificata'
	*!*	DO viz_facturi WITH 'achit542','achilun',542,.t.,.t.,'Situatie Lunara 542','debit','credit'
	DO lans_ireg_parteneri WITH .T.,'542',.T.
ENDPROC && BAR_1_OF_Inregistra_FB2P

PROCEDURE BAR_2_OF_Inregistra_FB2P
	*PARAMETERS tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
	*!*	pcTotctva='Incasat'
	*!*	pcAchitat='Justificat'
	*!*	pcSumaTotal='Suma incasata'
	*!*	pcSumaAchi='Suma justificata'
	*DO viz_facturi WITH 'achit542','achilun',542,.f.,.t.,'Situatie Lunara 542','debit','credit'
	DO lans_ireg_parteneri WITH .F.,'542',.T.
ENDPROC && BAR_2_OF_Inregistra_FB2P

*</Procedures>
