*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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>
