122 lines
4.2 KiB
Plaintext
122 lines
4.2 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="verificari_com.mnx" CPID="1250" /> (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 "\<Comenzi validate in luna curenta"
|
|
ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 2 OF Shortcut PROMPT "\<Total comenzi validate"
|
|
ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 3 OF Shortcut PROMPT "\<Comenzi nevalidate"
|
|
ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 4 OF Shortcut PROMPT "\<Comenzi nefacturate"
|
|
ON SELECTION BAR 4 OF Shortcut DO BAR_4_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 5 OF Shortcut PROMPT "\<Comenzi validate si nefacturate"
|
|
ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 6 OF Shortcut PROMPT "\-"
|
|
ON BAR 6 OF Shortcut ACTIVATE POPUP _1ho0zp71a
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1ho0zp71a SHORTCUT RELATIVE
|
|
DEFINE BAR 7 OF Shortcut PROMPT "\<Comenzi reportate din luna precedenta"
|
|
ON SELECTION BAR 7 OF Shortcut DO BAR_7_OF_Shortcut_FB2P
|
|
|
|
DEFINE BAR 8 OF Shortcut PROMPT "\-"
|
|
ON BAR 8 OF Shortcut ACTIVATE POPUP _1ho0zp71b
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _1ho0zp71b SHORTCUT RELATIVE
|
|
DEFINE BAR 9 OF Shortcut PROMPT "\Comenzi deschise pe zile"
|
|
ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P
|
|
ACTIVATE POPUP Shortcut
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Shortcut_FB2P
|
|
DO ver_valid_lun IN oproceduri_analize.prg
|
|
ENDPROC && BAR_1_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_2_OF_Shortcut_FB2P
|
|
DO ver_valid IN oproceduri_analize.prg
|
|
ENDPROC && BAR_2_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Shortcut_FB2P
|
|
DO ver_nevalid IN oproceduri_analize.prg
|
|
ENDPROC && BAR_3_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_4_OF_Shortcut_FB2P
|
|
DO ver_nefact IN oproceduri_analize.prg
|
|
ENDPROC && BAR_4_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_5_OF_Shortcut_FB2P
|
|
DO ver_valid_nefact IN oproceduri_analize.prg
|
|
ENDPROC && BAR_5_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_7_OF_Shortcut_FB2P
|
|
DO ver_com_rep IN oproceduri_analize.prg
|
|
ENDPROC && BAR_7_OF_Shortcut_FB2P
|
|
|
|
PROCEDURE BAR_9_OF_Shortcut_FB2P
|
|
*!* PUBLIC m.dataact1,m.dataact2
|
|
*!* store date() to m.dataact1,m.dataact2
|
|
*!* Ointre=CREATEOBJECT("CAUTintre")
|
|
*!* WITH Ointre
|
|
*!* .CAPTION="Data de referinta"
|
|
*!* .label1.caption="Data intrarii:"
|
|
*!* .label2.VISIBLE=.F.
|
|
*!* .text1.controlsource="m.dataact1"
|
|
*!* .text2.VISIBLE=.F.
|
|
*!* endwith
|
|
*!* ointre.show(1)
|
|
|
|
*!* public titlu
|
|
*!* set excl on
|
|
*!* titlu='LISTA COMENZILOR DESCHISE IN DATA DE: '+ALLT(DTOC(M.DATAACT1))
|
|
*!* SELE DISTINCT CLIE.NUME,ORDL.NRORD,ORDL.ASIG,ORDL.DATAI,ORDL.NRINMAT,ordl.valoare,ordl.nrfact,ordl.datafact;
|
|
*!* FROM CLIE,ORDL WHERE ORDL.CODC=CLIE.CODC AND ORDL.dataI=m.dataact1;
|
|
*!* INTO CURSOR C1
|
|
*!* SELE DISTINCT MASINI.MARCAM,MASINI.MASINA,C1.*;
|
|
*!* FROM MASINI,C1 WHERE C1.NRINMAT=MASINI.NRINMAT ;
|
|
*!* INTO table &loc\&nfscurt\tempo\C2 order by nrord
|
|
*!* set excl off
|
|
|
|
*!* alter table c2 add column suma n(14) add column nract n(14)
|
|
*!* sele c2
|
|
*!* scan
|
|
*!* scat memv
|
|
*!* sele act
|
|
*!* loca for scc='4111' and scd='5311' and m.datai=dataact and pereche=m.nrfact
|
|
*!* if found()
|
|
*!* scat fiel suma,nract memv
|
|
*!* sele c2
|
|
*!* repl suma with m.suma
|
|
*!* repl nract with m.nract
|
|
*!* endif
|
|
*!* sele c2
|
|
*!* endscan
|
|
|
|
*!* *
|
|
*!* *set filter to dataI>=m.dataact1 and dataI<=m.dataact2
|
|
*!* sele C2
|
|
*!* if reccount()=0
|
|
*!* do mesaj with 'Nu exista inregistrari la aceasta data',''
|
|
*!* return
|
|
*!* endif
|
|
*!* report form comZI to printer prompt preview
|
|
*!* sele ordl
|
|
*!* set filter to
|
|
ENDPROC && BAR_9_OF_Shortcut_FB2P
|
|
|
|
*</Procedures>
|