198 lines
7.7 KiB
Plaintext
198 lines
7.7 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="vizfurn2.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>4</MenuType>
|
|
*<MenuLocation>REPLACE</MenuLocation>
|
|
|
|
*<MenuCode>
|
|
DEFINE POPUP Furnizori SHORTCUT RELATIVE FROM MROW(),MCOL()
|
|
DEFINE BAR 1 OF Furnizori PROMPT "F\<acturi Cumparari (401)"
|
|
ON BAR 1 OF Furnizori ACTIVATE POPUP FacturiCum
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP FacturiCum SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF FacturiCum PROMPT "Cu test"
|
|
ON SELECTION BAR 1 OF FacturiCum DO BAR_1_OF_FacturiCum_FB2P
|
|
|
|
DEFINE BAR 2 OF FacturiCum PROMPT "Fara test"
|
|
ON SELECTION BAR 2 OF FacturiCum DO BAR_2_OF_FacturiCum_FB2P
|
|
|
|
DEFINE BAR 2 OF Furnizori PROMPT "Facturi Cumparari (404)"
|
|
ON BAR 2 OF Furnizori ACTIVATE POPUP _0zm11awzq
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _0zm11awzq SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _0zm11awzq PROMPT "Cu test"
|
|
ON SELECTION BAR 1 OF _0zm11awzq DO BAR_1_OF__0zm11awzq_FB2P
|
|
|
|
DEFINE BAR 2 OF _0zm11awzq PROMPT "Fara test"
|
|
ON SELECTION BAR 2 OF _0zm11awzq DO BAR_2_OF__0zm11awzq_FB2P
|
|
|
|
DEFINE BAR 3 OF Furnizori PROMPT "\<Facturi nesosite (408)"
|
|
ON BAR 3 OF Furnizori ACTIVATE POPUP Facturines
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Facturines SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Facturines PROMPT "Cu test"
|
|
ON SELECTION BAR 1 OF Facturines DO BAR_1_OF_Facturines_FB2P
|
|
|
|
DEFINE BAR 2 OF Facturines PROMPT "Fara test"
|
|
ON SELECTION BAR 2 OF Facturines DO BAR_2_OF_Facturines_FB2P
|
|
|
|
DEFINE BAR 4 OF Furnizori PROMPT "\<Avansuri (409)"
|
|
ON BAR 4 OF Furnizori ACTIVATE POPUP Avansuri40
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Avansuri40 SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Avansuri40 PROMPT "Cu test"
|
|
ON SELECTION BAR 1 OF Avansuri40 DO BAR_1_OF_Avansuri40_FB2P
|
|
|
|
DEFINE BAR 2 OF Avansuri40 PROMPT "Fara test"
|
|
ON SELECTION BAR 2 OF Avansuri40 DO BAR_2_OF_Avansuri40_FB2P
|
|
|
|
DEFINE BAR 5 OF Furnizori PROMPT "\-"
|
|
ON BAR 5 OF Furnizori ACTIVATE POPUP _54c0y69xu
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _54c0y69xu SHORTCUT RELATIVE
|
|
DEFINE BAR 6 OF Furnizori PROMPT "\<Efecte comerciale (403)"
|
|
ON BAR 6 OF Furnizori 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.,'403',.F.
|
|
|
|
DEFINE BAR 2 OF Efectecome PROMPT "Fara test"
|
|
ON SELECTION BAR 2 OF Efectecome DO lans_ireg_parteneri WITH .F.,'403',.F.
|
|
|
|
DEFINE BAR 7 OF Furnizori PROMPT "\<Efecte comerciale imobilizari (405)"
|
|
ON BAR 7 OF Furnizori ACTIVATE POPUP _54c0y12ul
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _54c0y12ul SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _54c0y12ul PROMPT "Cu test"
|
|
ON SELECTION BAR 1 OF _54c0y12ul DO lans_ireg_parteneri WITH .T.,'405',.F.
|
|
|
|
DEFINE BAR 2 OF _54c0y12ul PROMPT "Fara test"
|
|
ON SELECTION BAR 2 OF _54c0y12ul DO lans_ireg_parteneri WITH .F.,'405',.F.
|
|
|
|
DEFINE BAR 8 OF Furnizori PROMPT "\-"
|
|
ON SELECTION BAR 8 OF Furnizori
|
|
|
|
DEFINE BAR 9 OF Furnizori PROMPT "Situatie operativa furnizori (401)"
|
|
ON BAR 9 OF Furnizori ACTIVATE POPUP _11n15fvwe
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _11n15fvwe SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _11n15fvwe PROMPT "In luna curenta"
|
|
ON SELECTION BAR 1 OF _11n15fvwe DO BAR_1_OF__11n15fvwe_FB2P
|
|
|
|
DEFINE BAR 2 OF _11n15fvwe PROMPT "Istoric"
|
|
ON SELECTION BAR 2 OF _11n15fvwe DO BAR_2_OF__11n15fvwe_FB2P
|
|
|
|
DEFINE BAR 10 OF Furnizori PROMPT "Situatie operativa furnizori de imobilizari (404)"
|
|
ON BAR 10 OF Furnizori ACTIVATE POPUP _11n15fyq7
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _11n15fyq7 SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF _11n15fyq7 PROMPT "In luna curenta"
|
|
ON SELECTION BAR 1 OF _11n15fyq7 DO BAR_1_OF__11n15fyq7_FB2P
|
|
|
|
DEFINE BAR 2 OF _11n15fyq7 PROMPT "Istoric"
|
|
ON SELECTION BAR 2 OF _11n15fyq7 DO BAR_2_OF__11n15fyq7_FB2P
|
|
ACTIVATE POPUP Furnizori
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_FacturiCum_FB2P
|
|
*DO viz_facturi WITH 'furnizor','cumplun',401,.t.,.t.,'Situatie lunara facturi cumparari','platit','achizit'
|
|
DO lans_ireg_parteneri WITH .T.,'401',.F.
|
|
ENDPROC && BAR_1_OF_FacturiCum_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_FacturiCum_FB2P
|
|
*DO viz_facturi WITH 'furnizor','cumplun',401,.f.,.t.,'Situatie lunara facturi cumparari','platit','achizit'
|
|
DO lans_ireg_parteneri WITH .F.,'401',.F.
|
|
|
|
ENDPROC && BAR_2_OF_FacturiCum_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__0zm11awzq_FB2P
|
|
*DO viz_facturi WITH 'furniz404','cumplun404',404,.t.,.t.,'Situatie lunara facturi cumparari-404','platit','achizit'
|
|
DO lans_ireg_parteneri WITH .T.,'404',.F.
|
|
|
|
ENDPROC && BAR_1_OF__0zm11awzq_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__0zm11awzq_FB2P
|
|
*DO viz_facturi WITH 'furniz404','cumplun404',404,.f.,.t.,'Situatie lunara facturi cumparari-404','platit','achizit'
|
|
DO lans_ireg_parteneri WITH .F.,'404',.F.
|
|
ENDPROC && BAR_2_OF__0zm11awzq_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Facturines_FB2P
|
|
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
|
*DO viz_facturi WITH 'ana408','fact408',408,.t.,.t.,'Situatie Lunara Facturi Nesosite','platit','achizit'
|
|
DO lans_ireg_parteneri WITH .T.,'408',.F.
|
|
|
|
ENDPROC && BAR_1_OF_Facturines_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Facturines_FB2P
|
|
&& PARAMETRII tcFis1,tcFis2,tnCont,tlCuTest,tlVisible,tcTitlu,TcColDeb,TcColCred
|
|
*DO viz_facturi WITH 'ana408','fact408',408,.f.,.t.,'Situatie Lunara Facturi Nesosite','platit','achizit'
|
|
DO lans_ireg_parteneri WITH .F.,'408',.F.
|
|
|
|
ENDPROC && BAR_2_OF_Facturines_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Avansuri40_FB2P
|
|
DO lans_ireg_parteneri WITH .T.,'409,4091,4092,4093,4094',.T.
|
|
ENDPROC && BAR_1_OF_Avansuri40_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Avansuri40_FB2P
|
|
*!* IF USED('avans')
|
|
*!* USE IN avans
|
|
*!* ENDIF
|
|
|
|
*!* use &date\avans409 in 0 again alias avans
|
|
|
|
*!* SELECT avans
|
|
*!* oav=crea('avans')
|
|
*!* oav.label9.caption='Avansuri furnizori'
|
|
*!* oav.cmdlist2.visible=.f.
|
|
*!* oav.show(1)
|
|
|
|
*!* use in avans
|
|
|
|
DO lans_ireg_parteneri WITH .F.,'409,4091,4092,4093,4094',.T.
|
|
ENDPROC && BAR_2_OF_Avansuri40_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__11n15fvwe_FB2P
|
|
**parametrii:
|
|
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
|
|
|
DO PrepareRptSitOp IN osituatii_operative.prg WITH '401',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna"
|
|
ENDPROC && BAR_1_OF__11n15fvwe_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__11n15fvwe_FB2P
|
|
**parametrii:
|
|
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
|
|
|
DO PrepareRptSitOp IN osituatii_operative.prg WITH '401',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada"
|
|
|
|
ENDPROC && BAR_2_OF__11n15fvwe_FB2P
|
|
|
|
PROCEDURE BAR_1_OF__11n15fyq7_FB2P
|
|
**parametrii:
|
|
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
|
|
|
DO PrepareRptSitOp IN osituatii_operative.prg WITH '404',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "luna"
|
|
ENDPROC && BAR_1_OF__11n15fyq7_FB2P
|
|
|
|
PROCEDURE BAR_2_OF__11n15fyq7_FB2P
|
|
**parametrii:
|
|
**tcCont,tlActiv,tlTitlu,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcRaport_sau_Vizualizare,tc_NumeForma
|
|
DO PrepareRptSitOp IN osituatii_operative.prg WITH '404',.F.,"",.T.,.T.,"Vizualizare","frm_viz_sit_op", "perioada"
|
|
ENDPROC && BAR_2_OF__11n15fyq7_FB2P
|
|
|
|
*</Procedures>
|