Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

Meniuri/verificari_com.mn2

@@ -0,0 +1,121 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (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>