127 lines
3.7 KiB
Plaintext
127 lines
3.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="listnecorp.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 "Cu Total \<General"
|
|
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "Cu Totaluri pe \<Luni"
|
|
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 3 OF Shortcut PROMPT "Cu Totaluri pe \<Grupe"
|
|
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 4 OF Shortcut PROMPT "Cu Totaluri pe Sectie"
|
|
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 5 OF Shortcut PROMPT "\-"
|
|
ON BAR 5 OF Shortcut ACTIVATE POPUP _11d0ud149
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _11d0ud149 SHORTCUT RELATIVE
|
|
DEFINE BAR 6 OF Shortcut PROMPT "\<Lista fiselor"
|
|
ON SELECTION BAR 6 OF Shortcut DO BAR_6_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 7 OF Shortcut PROMPT "\-"
|
|
ON BAR 7 OF Shortcut ACTIVATE POPUP _1600pa0of
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1600pa0of SHORTCUT RELATIVE
|
|
DEFINE BAR 8 OF Shortcut PROMPT "\<Lista de inventar"
|
|
ON BAR 8 OF Shortcut ACTIVATE POPUP Listadeinv
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Listadeinv SHORTCUT RELATIVE
|
|
DEFINE BAR 1 OF Listadeinv PROMPT "Model1"
|
|
ON SELECTION BAR 1 OF Listadeinv DO BAR_1_OF_Listadeinv_FB2P
|
|
|
|
DEFINE BAR 2 OF Listadeinv PROMPT "Model2"
|
|
ON SELECTION BAR 2 OF Listadeinv DO BAR_2_OF_Listadeinv_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
|
DO list_necorp_general
|
|
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
|
DO list_necorp_peluni
|
|
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Shortcut_FB2P
|
|
DO list_necorp_pegrup
|
|
ENDPROC && BAR_3_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_Shortcut_FB2P
|
|
DO list_corp_peSECTII WITH 'N'
|
|
ENDPROC && BAR_4_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_6_OF_Shortcut_FB2P
|
|
DO lista_fiselor_necorp
|
|
ENDPROC && BAR_6_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Listadeinv_FB2P
|
|
|
|
DO caut_alf WITH 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
|
|
IF buton=2
|
|
RETURN
|
|
ENDIF
|
|
|
|
SELE numegest
|
|
LOCATE FOR numegest=m.numegest
|
|
SCATTER MEMVAR
|
|
|
|
|
|
SELE mf
|
|
IF m.gest=-1
|
|
SET FILTER TO UPPER(fel)='N' AND !CASAT AND !INACTIV
|
|
ELSE
|
|
SET FILTER TO gest=m.gest AND UPPER(fel)='N' AND !CASAT AND !INACTIV
|
|
ENDIF
|
|
SET ORDER TO scdden
|
|
|
|
REPORT FORM listmf_inv TO PRINTER PROMPT PREVIEW
|
|
|
|
SELECT mf
|
|
SET FILTER TO
|
|
ENDPROC && BAR_1_OF_Listadeinv_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Listadeinv_FB2P
|
|
Private pddata
|
|
|
|
ldatacrt = "01/" + m.nl + "/" + m.an
|
|
pddata = Gomonth(Ctod(ldatacrt),1) - 1
|
|
|
|
Do caut_alf With 'Numegest','numegest','NUMELE GESTIUNII','M.NUMEGEST'
|
|
If buton=2
|
|
Return
|
|
Endif
|
|
|
|
Sele numegest
|
|
Locate For numegest=m.numegest
|
|
Scatter Memvar
|
|
|
|
Sele mf
|
|
If m.gest=-1
|
|
Set Filter To fel="N" And !CASAT AND !INACTIV
|
|
Else
|
|
Set Filter To gest=m.gest And fel="N" And !CASAT AND !INACTIV
|
|
Endif
|
|
|
|
Set Order To scdden
|
|
|
|
Report Form nota_inv2005 To Printer Prompt Preview
|
|
Select mf
|
|
Set Filter To
|
|
ENDPROC && BAR_2_OF_Listadeinv_FB2P
|
|
|
|
*</Procedures>
|