83 lines
3.4 KiB
Plaintext
83 lines
3.4 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="creditori.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Creditori SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Creditori PROMPT "Balanta C\<reditori"
|
|
ON SELECTION BAR 1 OF Creditori DO BAR_1_OF_Creditori_FB2P
|
|
|
|
DEFINE BAR 2 OF Creditori PROMPT "\<Inregistrari creditori"
|
|
ON BAR 2 OF Creditori 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 Creditori PROMPT "\-"
|
|
ON BAR 3 OF Creditori ACTIVATE POPUP _0z30tyir5
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0z30tyir5 SHORTCUT RELATIVE
|
|
DEFINE BAR 4 OF Creditori PROMPT "Situatie operativa (462)"
|
|
ON BAR 4 OF Creditori ACTIVATE POPUP _0z30tx7lf
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0z30tx7lf SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0z30tx7lf PROMPT "In luna curenta"
|
|
ON SELECTION BAR 1 OF _0z30tx7lf DO BAR_1_OF__0z30tx7lf_FB2P
|
|
|
|
DEFINE BAR 2 OF _0z30tx7lf PROMPT "Istoric"
|
|
ON SELECTION BAR 2 OF _0z30tx7lf DO BAR_2_OF__0z30tx7lf_FB2P
|
|
ACTIVATE POPUP Creditori
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Creditori_FB2P
|
|
*osetviz.tbrprim.butoncredi.click
|
|
DO lans_balanta_parteneri WITH "462",.F. IN oparteneri.prg
|
|
ENDPROC && BAR_1_OF_Creditori_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Inregistra_FB2P
|
|
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
|
*DO viz_facturi WITH 'creditor','credlun',462,.t.,.t.,'Inregistrari creditori','debit','credit'
|
|
|
|
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
|
DO lans_ireg_parteneri WITH .T.,'462',.F.
|
|
|
|
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 'creditor','credlun',462,.f.,.t.,'Inregistrari creditori','debit','credit'
|
|
|
|
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
|
DO lans_ireg_parteneri WITH .F.,'462',.F.
|
|
|
|
ENDPROC && BAR_2_OF_Inregistra_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__0z30tx7lf_FB2P
|
|
**parametrii:
|
|
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
|
|
|
DO PrepareRptSitOp IN osituatii_operative.prg WITH '462',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna"
|
|
ENDPROC && BAR_1_OF__0z30tx7lf_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0z30tx7lf_FB2P
|
|
**parametrii:
|
|
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
|
|
|
DO PrepareRptSitOp IN osituatii_operative.prg WITH '462',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada"
|
|
ENDPROC && BAR_2_OF__0z30tx7lf_FB2P
|
|
|
|
*</Procedures>
|