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

*<MenuCode>
DEFINE POPUP Debitori SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF Debitori PROMPT "\<Balanta Debitori"
ON SELECTION BAR 1 OF Debitori DO BAR_1_OF_Debitori_FB2P

DEFINE BAR 2 OF Debitori PROMPT "\<Inregistrari debitori"
ON BAR 2 OF Debitori 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

DEFINE BAR 3 OF Debitori PROMPT "\-"
ON BAR 3 OF Debitori ACTIVATE POPUP _0z30zmyyk

	*----------------------------------
	DEFINE POPUP _0z30zmyyk SHORTCUT RELATIVE
DEFINE BAR 4 OF Debitori PROMPT "Situatie operativa (461)"
ON BAR 4 OF Debitori ACTIVATE POPUP _0z30zlgl1

	*----------------------------------
	DEFINE POPUP _0z30zlgl1 SHORTCUT RELATIVE
	DEFINE BAR 1 OF _0z30zlgl1 PROMPT "In luna curenta"
	ON SELECTION BAR 1 OF _0z30zlgl1 DO BAR_1_OF__0z30zlgl1_FB2P

	DEFINE BAR 2 OF _0z30zlgl1 PROMPT "Istoric"
	ON SELECTION BAR 2 OF _0z30zlgl1 DO BAR_2_OF__0z30zlgl1_FB2P
ACTIVATE POPUP Debitori

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_OF_Debitori_FB2P
	*osetviz.tbrprim.butondeb.click
	DO lans_balanta_parteneri WITH "461",.T. IN oparteneri.prg
ENDPROC && BAR_1_OF_Debitori_FB2P

PROCEDURE BAR_1_OF_Inregistra_FB2P
	&&          PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
	*DO viz_facturi WITH 'debitor','deblun',461,.t.,.t.,'Inregistrari debitori','debit','credit'
	
	*!*	DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
	DO lans_ireg_parteneri WITH .T.,'461',.T.
	
	
ENDPROC && BAR_1_OF_Inregistra_FB2P

PROCEDURE BAR_2_OF_Inregistra_FB2P
	&&          PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
	*DO viz_facturi WITH 'debitor','deblun',461,.f.,.t.,'Inregistrari debitori','debit','credit'
	
	*!*	DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
	DO lans_ireg_parteneri WITH .F.,'461',.T.
ENDPROC && BAR_2_OF_Inregistra_FB2P

PROCEDURE BAR_1_OF__0z30zlgl1_FB2P
	**parametrii:
	**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
	
	DO PrepareRptSitOp IN osituatii_operative.prg WITH '461',.T.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna"
ENDPROC && BAR_1_OF__0z30zlgl1_FB2P

PROCEDURE BAR_2_OF__0z30zlgl1_FB2P
	**parametrii:
	**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
	
	DO PrepareRptSitOp IN osituatii_operative.prg WITH '461',.T.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada"
ENDPROC && BAR_2_OF__0z30zlgl1_FB2P

*</Procedures>