99 lines
2.9 KiB
Plaintext
99 lines
2.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="listgen.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 "Evidenta comenzilor"
|
|
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "Lista de inventariere"
|
|
ON BAR 2 OF Shortcut ACTIVATE POPUP Listadeinv
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Listadeinv SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Listadeinv PROMPT "Model 1"
|
|
ON SELECTION BAR 1 OF Listadeinv DO BAR_1_OF_Listadeinv_FB2P
|
|
|
|
DEFINE BAR 2 OF Listadeinv PROMPT "Model 2"
|
|
ON SELECTION BAR 2 OF Listadeinv DO BAR_2_OF_Listadeinv_FB2P
|
|
|
|
DEFINE BAR 3 OF Shortcut PROMPT "Achizitie material pe furnizori"
|
|
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
|
*!* DO evidenta_comenzi
|
|
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Listadeinv_FB2P
|
|
*!* do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST"
|
|
*!* SELE NUMEGEST
|
|
*!* LOCATE FOR NUMEGEST==M.NUMEGEST
|
|
*!* SCATTER MEMVAR
|
|
|
|
*!* ***DO NCONT.SPR
|
|
*!* SELE BAL
|
|
|
|
*!* DO FORM selecont
|
|
|
|
*!* SELECT bal
|
|
*!* SET FILTER TO
|
|
|
|
*!* IF BUTON=2
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
|
|
*!* SELE stoc
|
|
*!* INDEX ON STR(gest)+scd+denumire TAG scdgestden OF &loc\&nfscurt\tempo\STOCINV
|
|
|
|
*!* *SET ORDER TO tag scd
|
|
*!* REPORT FORM nota_inv_mic.frx TO PRINTER PROMPT PREVIEW
|
|
|
|
*!* SELE stoc
|
|
*!* SET ORDER TO tag DENUMIRE
|
|
*!* SET FILTER TO
|
|
ENDPROC && BAR_1_OF_Listadeinv_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Listadeinv_FB2P
|
|
*!* do caut_alfa_cursor with "NUMEGEST","NUMEGEST","NUMELE GESTIUNII","M.NUMEGEST"
|
|
*!* SELE NUMEGEST
|
|
*!* LOCATE FOR NUMEGEST==M.NUMEGEST
|
|
*!* SCATTER MEMVAR
|
|
|
|
*!* ***DO NCONT.SPR
|
|
*!* SELE BAL
|
|
|
|
*!* DO FORM selecont
|
|
|
|
*!* SELECT bal
|
|
*!* SET FILTER TO
|
|
|
|
*!* IF BUTON=2
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
|
|
*!* SELE stoc
|
|
*!* INDEX ON STR(gest)+scd+denumire TAG scdgestden OF &loc\&nfscurt\tempo\STOCINV
|
|
|
|
*!* *SET ORDER TO tag scd
|
|
*!* REPORT FORM nota_inv_mic2.frx TO PRINTER PROMPT PREVIEW
|
|
|
|
*!* SELE stoc
|
|
*!* SET ORDER TO tag DENUMIRE
|
|
*!* SET FILTER TO
|
|
ENDPROC && BAR_2_OF_Listadeinv_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Shortcut_FB2P
|
|
*!* DO raport_material_furnizor IN gestiuni.prg
|
|
ENDPROC && BAR_3_OF_Shortcut_FB2P
|
|
|
|
*</Procedures>
|