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

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
2026-07-16 11:22:03 +03:00
commit 7ae0c39d5e
204 changed files with 66147 additions and 0 deletions
--- a/Meniuri/list5.mn2
+++ b/Meniuri/list5.mn2
@@ -0,0 +1,321 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="list5.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 "\<NIR"
+ON BAR 1 OF Shortcut ACTIVATE POPUP NIRdupanum
+
+	*----------------------------------
+	DEFINE POPUP NIRdupanum SHORTCUT RELATIVE
+	DEFINE BAR 1 OF NIRdupanum PROMPT "\<NIR de la numar la numar"
+	ON SELECTION BAR 1 OF NIRdupanum DO BAR_1_OF_NIRdupanum_FB2P
+
+	DEFINE BAR 2 OF NIRdupanum PROMPT "NIR-uri \<pe Gestiuni"
+	ON SELECTION BAR 2 OF NIRdupanum DO BAR_2_OF_NIRdupanum_FB2P
+
+DEFINE BAR 2 OF Shortcut PROMPT "NIR \<RATC"
+ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
+
+DEFINE BAR 3 OF Shortcut PROMPT "NIR din \<Aviz Transfer" ;
+	MESSAGE 'Lstare aviz de transfer sub forma de NIR'
+ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
+
+DEFINE BAR 4 OF Shortcut PROMPT "\-"
+ON BAR 4 OF Shortcut ACTIVATE POPUP _1020qz893
+
+	*----------------------------------
+	DEFINE POPUP _1020qz893 SHORTCUT RELATIVE
+DEFINE BAR 5 OF Shortcut PROMPT "\<Protocol"
+ON SELECTION BAR 5 OF Shortcut DO BAR_5_OF_Shortcut_FB2P
+
+DEFINE BAR 6 OF Shortcut PROMPT "\<Transferuri"
+ON BAR 6 OF Shortcut ACTIVATE POPUP Transferur
+
+	*----------------------------------
+	DEFINE POPUP Transferur SHORTCUT RELATIVE
+	DEFINE BAR 1 OF Transferur PROMPT "\<Catre o gestiune la pret de achizitie"
+	ON SELECTION BAR 1 OF Transferur DO BAR_1_OF_Transferur_FB2P
+
+	DEFINE BAR 2 OF Transferur PROMPT "\<Catre o gestiune la pret de vanzare"
+	ON SELECTION BAR 2 OF Transferur DO BAR_2_OF_Transferur_FB2P
+
+DEFINE BAR 7 OF Shortcut PROMPT "\-"
+ON BAR 7 OF Shortcut ACTIVATE POPUP _1020r95mz
+
+	*----------------------------------
+	DEFINE POPUP _1020r95mz SHORTCUT RELATIVE
+DEFINE BAR 8 OF Shortcut PROMPT "\<Aviz de expeditie / aviz de retur"
+ON SELECTION BAR 8 OF Shortcut DO BAR_8_OF_Shortcut_FB2P
+
+DEFINE BAR 9 OF Shortcut PROMPT "\<Factura de vanzare"
+ON SELECTION BAR 9 OF Shortcut DO BAR_9_OF_Shortcut_FB2P
+
+DEFINE BAR 10 OF Shortcut PROMPT "Retur de la gestiune valorica - aviz de expeditie"
+ON SELECTION BAR 10 OF Shortcut DO BAR_10_OF_Shortcut_FB2P
+
+DEFINE BAR 11 OF Shortcut PROMPT "\-"
+ON BAR 11 OF Shortcut ACTIVATE POPUP _1020qwge1
+
+	*----------------------------------
+	DEFINE POPUP _1020qwge1 SHORTCUT RELATIVE
+DEFINE BAR 12 OF Shortcut PROMPT "\<Raport de gestiune"
+ON SELECTION BAR 12 OF Shortcut DO BAR_12_OF_Shortcut_FB2P
+
+DEFINE BAR 13 OF Shortcut PROMPT "Raport de gestiune \<centralizator"
+ON SELECTION BAR 13 OF Shortcut DO BAR_13_OF_Shortcut_FB2P
+
+DEFINE BAR 14 OF Shortcut PROMPT "\<P.V. schimbare pret vanzare"
+ON SELECTION BAR 14 OF Shortcut DO BAR_14_OF_Shortcut_FB2P
+
+DEFINE BAR 15 OF Shortcut PROMPT "\-"
+ON BAR 15 OF Shortcut ACTIVATE POPUP _1020r0q7d
+
+	*----------------------------------
+	DEFINE POPUP _1020r0q7d SHORTCUT RELATIVE
+DEFINE BAR 16 OF Shortcut PROMPT "\<Stocuri"
+ON SELECTION BAR 16 OF Shortcut DO BAR_16_OF_Shortcut_FB2P
+
+DEFINE BAR 17 OF Shortcut PROMPT "Fisa de \<magazie"
+ON SELECTION BAR 17 OF Shortcut DO BAR_17_OF_Shortcut_FB2P
+
+DEFINE BAR 18 OF Shortcut PROMPT "\-"
+ON BAR 18 OF Shortcut ACTIVATE POPUP _2f20vtiu6
+
+	*----------------------------------
+	DEFINE POPUP _2f20vtiu6 SHORTCUT RELATIVE
+DEFINE BAR 19 OF Shortcut PROMPT "Centralizator valoric pe subgrupe de produse"
+ON SELECTION BAR 19 OF Shortcut DO BAR_19_OF_Shortcut_FB2P
+
+DEFINE BAR 20 OF Shortcut PROMPT "Centralizator valoric pe subgrupe de produse, gestiune"
+ON SELECTION BAR 20 OF Shortcut DO BAR_20_OF_Shortcut_FB2P
+
+DEFINE BAR 21 OF Shortcut PROMPT "Centralizator articole procese verbale schimbare pret"
+ON SELECTION BAR 21 OF Shortcut DO BAR_21_OF_Shortcut_FB2P
+
+DEFINE BAR 22 OF Shortcut PROMPT "\-"
+ON BAR 22 OF Shortcut ACTIVATE POPUP _2k610w3wl
+
+	*----------------------------------
+	DEFINE POPUP _2k610w3wl SHORTCUT RELATIVE
+DEFINE BAR 23 OF Shortcut PROMPT "Centralizator procese verbale de schimbare pret"
+ON SELECTION BAR 23 OF Shortcut DO BAR_23_OF_Shortcut_FB2P
+ACTIVATE POPUP Shortcut
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF_NIRdupanum_FB2P
+	*!*	13.01.2015
+	*!*	PRIVATE pnNr
+	*!*	STORE 0 TO pnNr
+	
+	*!*	DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr
+	*!*	IF gnButon = 1
+	*!*		lnTip = gnTipGest
+	*!*		DO listare_nir WITH pnNr, lnTip
+	*!*	ENDIF 
+	
+	PRIVATE pnNr1, pnNr2
+	LOCAL lnTip, lnNr1, lnNr2
+	pnNr1 = 0
+	pnNr2 = 0
+	
+	lnTip = gnTipGest
+	DO FORM frm_cere_text WITH 'Numar NIR 1','pnNr1','Numar NIR 1' TO lnNr1
+	IF gnButon = 1
+		pnNr2 = m.pnNr1
+		DO FORM frm_cere_text WITH 'Numar NIR 2','pnNr2','Numar NIR 2' TO lnNr2
+	
+	*!*		DO listare_bon_tot WITH m.pnNr1, m.pnNr2, m.lnTip
+		DO listare_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip
+	ENDIF 
+	*!*	13.01.2015 ^
+	
+	
+	*!*	Ointre=CREATEOBJECT("CAUTintre")
+	*!*		WITH Ointre
+	*!*			.CAPTION="Numarul NIR-ului"
+	*!*			.label1.caption="Nr.="
+	*!*			.label2.visible=.f.
+	*!*			.text1.controlsource="m.nract1"
+	*!*			.text2.visible=.f.
+	*!*		endwith
+	*!*		ointre.show(1)
+	
+	*!*	DO LIST_NIR WITH ALLTRIM(STR(M.NRACT1)),2
+ENDPROC && BAR_1_OF_NIRdupanum_FB2P
+
+PROCEDURE BAR_2_OF_NIRdupanum_FB2P
+	lnTip = gnTipGest
+	DO list_total_NIR WITH lnTip && in oproceduri_listari.prg
+ENDPROC && BAR_2_OF_NIRdupanum_FB2P
+
+PROCEDURE BAR_2_OF_Shortcut_FB2P
+	PRIVATE pnNr
+	STORE 0 TO pnNr
+	
+	DO FORM frm_cere_text WITH 'Numarul NIR-ului','pnNr','Numarul NIR-ului' TO lnNr
+	IF gnButon = 1
+		lnTip = gnTipGest
+		DO listare_nir WITH pnNr, 17
+	ENDIF 
+ENDPROC && BAR_2_OF_Shortcut_FB2P
+
+PROCEDURE BAR_3_OF_Shortcut_FB2P
+	* listare transfer ca un NIR
+	PRIVATE pnNr1, pnNr2
+	LOCAL lnTip, lnNr1, lnNr2
+	pnNr1 = 0
+	pnNr2 = 0
+	
+	lnTip = gnTipGest
+	DO FORM frm_cere_text WITH 'Numar NIR 1','pnNr1','Numar NIR 1' TO lnNr1
+	IF gnButon = 1
+		pnNr2 = m.pnNr1
+		DO FORM frm_cere_text WITH 'Numar NIR 2','pnNr2','Numar NIR 2' TO lnNr2
+	
+		DO listare_nir_tot WITH m.pnNr1, m.pnNr2, m.lnTip, .F., .F., 1
+	ENDIF 
+ENDPROC && BAR_3_OF_Shortcut_FB2P
+
+PROCEDURE BAR_5_OF_Shortcut_FB2P
+	PRIVATE pnNr
+	STORE 0 TO pnNr
+	
+	DO FORM frm_cere_text WITH 'Numarul avizului','pnNr','Numarul avizului' TO lnNr
+	IF gnButon = 1
+		DO listare_protocol WITH pnNr
+	ENDIF 
+ENDPROC && BAR_5_OF_Shortcut_FB2P
+
+PROCEDURE BAR_1_OF_Transferur_FB2P
+	PRIVATE pnNr
+	STORE 0 TO pnNr
+	
+	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
+	IF gnButon = 1
+		lnTip = gnTipGest
+		DO LISTARE_TRANSFER WITH pnNr, lnTip
+	ENDIF 
+	
+	*!*	store 0 to m.nract1
+	*!*	Ointre=CREATEOBJECT("CAUTintre")
+	*!*		WITH Ointre
+	*!*			.CAPTION="Numarul notei de transfer"
+	*!*			.label1.caption="Nr. nota:"
+	*!*			.label2.visible=.f.
+	*!*			.text1.controlsource="m.nract1"
+	*!*			.text2.visible=.f.
+	*!*		endwith
+	*!*		ointre.show(1)
+	
+	*!*	DO LIST_TRANSFER WITH M.NRACT1,18
+	
+	
+	
+ENDPROC && BAR_1_OF_Transferur_FB2P
+
+PROCEDURE BAR_2_OF_Transferur_FB2P
+	PRIVATE pnNr
+	STORE 0 TO pnNr
+	
+	DO FORM frm_cere_text WITH 'Nr. nota:','pnNr','Numarul notei de transfer' TO lnNr
+	IF gnButon = 1
+		lnTip = 6
+		DO LISTARE_TRANSFER WITH pnNr, lnTip
+	ENDIF 
+	
+	*!*	store 0 to m.nract1
+	*!*	Ointre=CREATEOBJECT("CAUTintre")
+	*!*		WITH Ointre
+	*!*			.CAPTION="Numarul notei de transfer"
+	*!*			.label1.caption="Nr. nota:"
+	*!*			.label2.visible=.f.
+	*!*			.text1.controlsource="m.nract1"
+	*!*			.text2.visible=.f.
+	*!*		endwith
+	*!*		ointre.show(1)
+	
+	*!*	DO LIST_TRANSFER WITH M.NRACT1,17
+ENDPROC && BAR_2_OF_Transferur_FB2P
+
+PROCEDURE BAR_8_OF_Shortcut_FB2P
+	Private pnNrAct,pcSerie
+	Store 0 To pnNr
+	Store "" To pcSerie
+	
+	Do Form frm_cere_nrserie With 'Nr. aviz'
+	If gnButon = 1
+		Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,1 In ofacturare_stoc.prg
+	Endif
+	Release pnNrAct,pcSerie
+ENDPROC && BAR_8_OF_Shortcut_FB2P
+
+PROCEDURE BAR_9_OF_Shortcut_FB2P
+	Private pnNrAct,pcSerie
+	Store 0 To pnNr
+	Store "" To pcSerie
+	
+	Do Form frm_cere_nrserie With 'Nr. factura'
+	If gnButon = 1
+		Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,2 In ofacturare_stoc.prg
+	Endif
+	Release pnNrAct,pcSerie
+ENDPROC && BAR_9_OF_Shortcut_FB2P
+
+PROCEDURE BAR_10_OF_Shortcut_FB2P
+	Private pnNrAct,pcSerie
+	Store 0 To pnNr
+	Store "" To pcSerie
+	
+	Do Form frm_cere_nrserie With 'Nr. aviz'
+	If gnButon = 1
+		Do relisteaza_ofacturare_stoc With pnNrAct,pcSerie,-6 In ofacturare_stoc.prg
+	Endif
+	Release pnNrAct,pcSerie
+ENDPROC && BAR_10_OF_Shortcut_FB2P
+
+PROCEDURE BAR_12_OF_Shortcut_FB2P
+	DO list_raport_gestiuni WITH gnTipGest IN oproceduri_listari.prg
+ENDPROC && BAR_12_OF_Shortcut_FB2P
+
+PROCEDURE BAR_13_OF_Shortcut_FB2P
+	DO list_raport_gestiuni_centralizator WITH gnTipGest IN oproceduri_listari.prg
+ENDPROC && BAR_13_OF_Shortcut_FB2P
+
+PROCEDURE BAR_14_OF_Shortcut_FB2P
+	Do relisteaza_schimbare_pret In oschimbare_pret.prg
+ENDPROC && BAR_14_OF_Shortcut_FB2P
+
+PROCEDURE BAR_16_OF_Shortcut_FB2P
+	ostoc=CREATEOBJECT('frm_raport_stoc')
+	ostoc.show(1)
+ENDPROC && BAR_16_OF_Shortcut_FB2P
+
+PROCEDURE BAR_17_OF_Shortcut_FB2P
+	DO fisa_magazie_FIFO WITH gnTipGest IN orapoarte.prg
+ENDPROC && BAR_17_OF_Shortcut_FB2P
+
+PROCEDURE BAR_19_OF_Shortcut_FB2P
+	Do list_centr_valoric_subgr in oproceduri_listari.prg
+ENDPROC && BAR_19_OF_Shortcut_FB2P
+
+PROCEDURE BAR_20_OF_Shortcut_FB2P
+	Do list_centr_valoric_subgr WITH 2 in oproceduri_listari.prg
+ENDPROC && BAR_20_OF_Shortcut_FB2P
+
+PROCEDURE BAR_21_OF_Shortcut_FB2P
+	Do centralizator_articole_schimbpret in oschimbare_pret.prg
+ENDPROC && BAR_21_OF_Shortcut_FB2P
+
+PROCEDURE BAR_23_OF_Shortcut_FB2P
+	Do listeaza_centralizator_schimbpret in oschimbare_pret.prg WITH gnTipGest
+ENDPROC && BAR_23_OF_Shortcut_FB2P
+
+*</Procedures>