179 lines
6.9 KiB
Plaintext
179 lines
6.9 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="vizcli2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Clienti SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Clienti PROMPT "\<Facturi Vanzari (4111)" ;
|
|
PICTURE "c:\program files\grafice\fact_c.bmp"
|
|
ON BAR 1 OF Clienti ACTIVATE POPUP FacturiVan
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP FacturiVan SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF FacturiVan PROMPT "\<Cu test"
|
|
ON SELECTION BAR 1 OF FacturiVan DO BAR_1_OF_FacturiVan_FB2P
|
|
|
|
DEFINE BAR 2 OF FacturiVan PROMPT "\<Fara test"
|
|
ON SELECTION BAR 2 OF FacturiVan DO BAR_2_OF_FacturiVan_FB2P
|
|
|
|
DEFINE BAR 2 OF Clienti PROMPT "Facturi Vanzari (4118)"
|
|
ON BAR 2 OF Clienti ACTIVATE POPUP NewItem
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP NewItem SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF NewItem PROMPT "Cu test"
|
|
ON SELECTION BAR 1 OF NewItem DO BAR_1_OF_NewItem_FB2P
|
|
|
|
DEFINE BAR 2 OF NewItem PROMPT "Fara test"
|
|
ON SELECTION BAR 2 OF NewItem DO BAR_2_OF_NewItem_FB2P
|
|
|
|
DEFINE BAR 3 OF Clienti PROMPT "Facturi Neintocmite (418)"
|
|
ON BAR 3 OF Clienti ACTIVATE POPUP FacturiNei
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP FacturiNei SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF FacturiNei PROMPT "\<Cu test"
|
|
ON SELECTION BAR 1 OF FacturiNei DO BAR_1_OF_FacturiNei_FB2P
|
|
|
|
DEFINE BAR 2 OF FacturiNei PROMPT "\Fara test"
|
|
ON SELECTION BAR 2 OF FacturiNei DO BAR_2_OF_FacturiNei_FB2P
|
|
|
|
DEFINE BAR 4 OF Clienti PROMPT "\<Avansuri (419)"
|
|
ON BAR 4 OF Clienti ACTIVATE POPUP Avansuri41
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Avansuri41 SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Avansuri41 PROMPT "Cu test"
|
|
ON SELECTION BAR 1 OF Avansuri41 DO BAR_1_OF_Avansuri41_FB2P
|
|
|
|
DEFINE BAR 2 OF Avansuri41 PROMPT "Fara test"
|
|
ON SELECTION BAR 2 OF Avansuri41 DO BAR_2_OF_Avansuri41_FB2P
|
|
|
|
DEFINE BAR 5 OF Clienti PROMPT "\-"
|
|
ON BAR 5 OF Clienti ACTIVATE POPUP _54c0y5yo9
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _54c0y5yo9 SHORTCUT RELATIVE
|
|
DEFINE BAR 6 OF Clienti PROMPT "\<Efecte comerciale (413)"
|
|
ON BAR 6 OF Clienti ACTIVATE POPUP Efectecome
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Efectecome SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Efectecome PROMPT "\<Cu test"
|
|
ON SELECTION BAR 1 OF Efectecome DO lans_ireg_parteneri WITH .T.,'413',.T.
|
|
|
|
DEFINE BAR 2 OF Efectecome PROMPT "\<Fara test"
|
|
ON SELECTION BAR 2 OF Efectecome DO lans_ireg_parteneri WITH .F.,'413',.T.
|
|
|
|
DEFINE BAR 7 OF Clienti PROMPT "\-"
|
|
ON BAR 7 OF Clienti ACTIVATE POPUP _0yk12e938
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0yk12e938 SHORTCUT RELATIVE
|
|
DEFINE BAR 8 OF Clienti PROMPT "\<Situatie operativa clienti (4111)"
|
|
ON BAR 8 OF Clienti ACTIVATE POPUP Situatieop
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Situatieop SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Situatieop PROMPT "In luna curenta"
|
|
ON SELECTION BAR 1 OF Situatieop DO BAR_1_OF_Situatieop_FB2P
|
|
|
|
DEFINE BAR 2 OF Situatieop PROMPT "Istoric"
|
|
ON SELECTION BAR 2 OF Situatieop DO BAR_2_OF_Situatieop_FB2P
|
|
ACTIVATE POPUP Clienti
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_FacturiVan_FB2P
|
|
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
|
*DO viz_facturi WITH 'clienti','vanzlun',411,.t.,.t.,'Situatie Lunara Facturi vanzari','productie','incasat'
|
|
|
|
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
|
DO lans_ireg_parteneri WITH .T.,gcCont411, .T.
|
|
ENDPROC && BAR_1_OF_FacturiVan_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_FacturiVan_FB2P
|
|
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
|
*DO viz_facturi WITH 'clienti','vanzlun',411,.f.,.t.,'Situatie Lunara Facturi vanzari','productie','incasat'
|
|
|
|
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
|
DO lans_ireg_parteneri WITH .F., gcCont411, .T.
|
|
|
|
|
|
ENDPROC && BAR_2_OF_FacturiVan_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_NewItem_FB2P
|
|
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
|
*DO viz_facturi WITH 'client4118','vanzlu4118',4118,.t.,.t.,'Situatie Lunara Facturi Vanzari 4118','productie','incasat'
|
|
|
|
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
|
DO lans_ireg_parteneri WITH .T.,'4118',.T.
|
|
|
|
ENDPROC && BAR_1_OF_NewItem_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_NewItem_FB2P
|
|
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
|
*DO viz_facturi WITH 'client4118','vanzlu4118',4118,.f.,.t.,'Situatie Lunara Facturi Vanzari 4118','productie','incasat'
|
|
|
|
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
|
DO lans_ireg_parteneri WITH .F.,'4118',.T.
|
|
ENDPROC && BAR_2_OF_NewItem_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_FacturiNei_FB2P
|
|
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
|
*DO viz_facturi WITH 'ana418','fact418',418,.t.,.f.,'Situatie Lunara Facturi Neintocmite','productie','incasat'
|
|
|
|
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
|
*DO lans_ireg_parteneri WITH .F.,'411',.T.
|
|
|
|
*!* DO lans_ireg_parteneri WITH tlTest,tcCont,tlActiv
|
|
DO lans_ireg_parteneri WITH .T.,'418',.T.
|
|
|
|
|
|
|
|
ENDPROC && BAR_1_OF_FacturiNei_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_FacturiNei_FB2P
|
|
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
|
DO lans_ireg_parteneri WITH .T.,'418',.F.
|
|
ENDPROC && BAR_2_OF_FacturiNei_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Avansuri41_FB2P
|
|
DO lans_ireg_parteneri WITH .T.,'419',.F.
|
|
ENDPROC && BAR_1_OF_Avansuri41_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Avansuri41_FB2P
|
|
*!* If Used('avans')
|
|
*!* Use In avans
|
|
*!* Endif
|
|
*!* Use &Date\avans419 In 0 Again Alias avans
|
|
*!* Sele avans
|
|
*!* oav=Crea('avans')
|
|
*!* oav.label9.Caption='Avansuri clienti'
|
|
*!* oav.Show(1)
|
|
*!* Use In avans
|
|
|
|
DO lans_ireg_parteneri WITH .F.,'419',.F.
|
|
ENDPROC && BAR_2_OF_Avansuri41_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Situatieop_FB2P
|
|
**parametrii:
|
|
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
|
|
|
DO PrepareRptSitOp IN osituatii_operative.prg WITH gcCont411, .T.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna"
|
|
ENDPROC && BAR_1_OF_Situatieop_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Situatieop_FB2P
|
|
**parametrii:
|
|
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
|
|
|
DO PrepareRptSitOp IN osituatii_operative.prg WITH gcCont411,.T.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada"
|
|
ENDPROC && BAR_2_OF_Situatieop_FB2P
|
|
|
|
*</Procedures>
|