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 10:54:13 +03:00
commit 09580ad9d6
340 changed files with 334893 additions and 0 deletions
--- a/Meniuri/cheltuieli1.mn2
+++ b/Meniuri/cheltuieli1.mn2
@@ -0,0 +1,198 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="cheltuieli1.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*<MenuType>4</MenuType>
+*<MenuLocation>REPLACE</MenuLocation>
+
+*<MenuCode>
+DEFINE POPUP Cheltuieli SHORTCUT RELATIVE FROM MROW(),MCOL()
+DEFINE BAR "71010" OF Cheltuieli PROMPT "Materii prime 601" ;
+	MESSAGE '601 :301 '
+ON SELECTION BAR 71010 OF Cheltuieli DO BAR_"71010"_OF_Cheltuieli_FB2P
+
+DEFINE BAR "71020" OF Cheltuieli PROMPT "Materiale auxiliare 6021" ;
+	MESSAGE '6021:3021'
+ON SELECTION BAR 71020 OF Cheltuieli DO BAR_"71020"_OF_Cheltuieli_FB2P
+
+DEFINE BAR "71030" OF Cheltuieli PROMPT "Combustibili 6022" ;
+	MESSAGE '6022:3022'
+ON SELECTION BAR 71030 OF Cheltuieli DO BAR_"71030"_OF_Cheltuieli_FB2P
+
+DEFINE BAR "71040" OF Cheltuieli PROMPT "Materiale pt. ambalat 6023" ;
+	MESSAGE '6023:3023'
+ON SELECTION BAR 71040 OF Cheltuieli DO BAR_"71040"_OF_Cheltuieli_FB2P
+
+DEFINE BAR "71050" OF Cheltuieli PROMPT "Piese de schimb 6024" ;
+	MESSAGE '6024:3024'
+ON SELECTION BAR 71050 OF Cheltuieli DO BAR_"71050"_OF_Cheltuieli_FB2P
+
+DEFINE BAR "71090" OF Cheltuieli PROMPT "Alte materiale 6028" ;
+	MESSAGE '6028:3028'
+ON SELECTION BAR 71090 OF Cheltuieli DO BAR_"71090"_OF_Cheltuieli_FB2P
+
+DEFINE BAR 7 OF Cheltuieli PROMPT "\-"
+ON BAR 7 OF Cheltuieli ACTIVATE POPUP _1170vp6f7
+
+	*----------------------------------
+	DEFINE POPUP _1170vp6f7 SHORTCUT RELATIVE
+DEFINE BAR 8 OF Cheltuieli PROMPT "Obiecte de inventar 603" ;
+	MESSAGE '603 :303 '
+ON SELECTION BAR 8 OF Cheltuieli DO BAR_8_OF_Cheltuieli_FB2P
+
+DEFINE BAR 9 OF Cheltuieli PROMPT "\-"
+ON BAR 9 OF Cheltuieli ACTIVATE POPUP _1170vp6f8
+
+	*----------------------------------
+	DEFINE POPUP _1170vp6f8 SHORTCUT RELATIVE
+DEFINE BAR 10 OF Cheltuieli PROMPT "\<Marfuri"
+ON SELECTION BAR 10 OF Cheltuieli DO BAR_10_OF_Cheltuieli_FB2P
+ACTIVATE POPUP Cheltuieli
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_"71010"_OF_Cheltuieli_FB2P
+	*!*	DO BONARE WITH '601  ','301  ','CHELTMAT'
+	lans(10287)
+ENDPROC && BAR_"71010"_OF_Cheltuieli_FB2P
+
+PROCEDURE BAR_"71020"_OF_Cheltuieli_FB2P
+	*DO BONARE WITH '6021 ','3021 ','CHELTMAT'
+	lans(10288)
+ENDPROC && BAR_"71020"_OF_Cheltuieli_FB2P
+
+PROCEDURE BAR_"71030"_OF_Cheltuieli_FB2P
+	lans(10289)
+	*DO BONARE WITH '6022 ','3022 ','CHELTMAT'
+ENDPROC && BAR_"71030"_OF_Cheltuieli_FB2P
+
+PROCEDURE BAR_"71040"_OF_Cheltuieli_FB2P
+	lans(10290)
+	*DO BONARE WITH '6023 ','3023 ','CHELTMAT'
+ENDPROC && BAR_"71040"_OF_Cheltuieli_FB2P
+
+PROCEDURE BAR_"71050"_OF_Cheltuieli_FB2P
+	lans(10291)
+	*DO BONARE WITH '6024 ','3024 ','CHELTMAT'
+ENDPROC && BAR_"71050"_OF_Cheltuieli_FB2P
+
+PROCEDURE BAR_"71090"_OF_Cheltuieli_FB2P
+	lans(10292)
+	*DO BONARE WITH '6028 ','3028 ','CHELTMAT'
+ENDPROC && BAR_"71090"_OF_Cheltuieli_FB2P
+
+PROCEDURE BAR_8_OF_Cheltuieli_FB2P
+	lans(10293)
+	*!*	DO BONARE303 WITH '603 ','303 ','CHELTMAT'
+	
+	*!*	*____________________________________________________________
+	*!*	PROCEDURE bonare303
+	*!*	PARAMETERS m.SCD1,m.SCC1,CLASAACT
+	*!*	*_______________DO CHELTMAT.SPR
+	*!*	oc=createobj(CLASAACT)
+	*!*	oc.show(1)
+	*!*	*
+	*!*	IF BUTON=2
+	*!*		DO STERGE
+	*!*		RETURN
+	*!*	ENDIF
+	*!*	DO CODARE
+	*!*	m.NNIR=M.NRACT
+	*!*	m.SCD=subs(M.SCC1,1,4)
+	
+	*!*	ob=createobj('BON')
+	*!*	ob.show(1)
+	*!*	*do form bon1
+	*!*	*
+	*!*	SELE STOC
+	*!*	SET filter to
+	*!*	m.SCD=M.SCD1
+	*!*	IF BUTON=2
+	*!*		DO STERGE
+	*!*		RETURN
+	*!*	ENDIF
+	
+	*!*	SELECT iesiri
+	*!*	GO top
+	*!*	m.scc1=scd
+	*!*	DO CONTABILIZEAZA WITH m.SCD1,m.SCC1,M.TOTVALOARE,CLASAACT
+	*!*	SELE LUCRARI
+	*!*	*LOCATE FOR nume_2=M.nume
+	*!*	IF !EMPTY(M.NRORD)
+	*!*		LOCATE FOR NRORD=M.NRORD
+	*!*		IF FOUND()
+	*!*			IF flock()
+	*!*				REPLACE LUCRARI.MATERIALE WITH LUCRARI.MATERIALE+M.TOTVALOARE
+	*!*			ENDIF
+	*!*			UNLOCK
+	*!*		ELSE
+	*!*			SELE LUCRARI
+	*!*			IF flock()
+	*!*				APPE BLAN
+	*!*				GATH MEMV
+	*!*			ENDIF
+	*!*			UNLOCK
+	*!*		ENDIF
+	*!*	ENDIF
+	
+	*!*	SELE RESPONS
+	*!*	*LOCATE FOR nume_2=M.nume_2
+	*!*	LOCA FOR NUME_2=M.NRESP
+	*!*	IF flock()
+	*!*		REPLACE RESPONS.MATERIALE WITH RESPONS.MATERIALE+m.TOTVALOARE
+	*!*	ENDIF
+	*!*	UNLOCK
+	*!*	SELE STOC
+	*!*	m.SCD=subs(m.SCC1,1,4)
+	*!*	DO IESTOCURIMAGAZII
+	*!*	m.NNIR=M.NRACT
+	*!*	DO IERULAJMAGAZII
+	
+	*!*	SET SAFETY OFF
+	*!*	SELECT intrari
+	*!*	ZAP
+	
+	*!*	SELECT iesiri
+	*!*	SCAN
+	*!*	SCATTER FIELDS denumire, codmat, cante,pret,gest memv
+	*!*	SELECT intrari
+	*!*	APPEND BLANK
+	*!*	m.cant=m.cante
+	*!*	GATHER FIELDS denumire, codmat, pret,gest,cant memv
+	*!*	SELECT iesiri
+	*!*	endscan
+	
+	*!*	SELECT intrari
+	*!*	REPLACE ALL scd WITH '8039'
+	
+	*!*	DO inrulajmagazii
+	*!*	DO instocurimagazii
+	
+	
+	
+	*!*	DO STERGE
+	*!*	RETURN
+	*!*	*********************************
+ENDPROC && BAR_8_OF_Cheltuieli_FB2P
+
+PROCEDURE BAR_10_OF_Cheltuieli_FB2P
+	LOCAL lnRaspuns
+	lnRaspuns = 6
+	
+	DO WHILE lnRaspuns = 6
+		 lans(10581)
+		if buton = 2
+			return
+		ENDIF
+		DO introducere_compacta WITH 'achi_mat','','',.F.,.F.,'Cheltuieli cu marfa','',10581
+		IF buton=1
+			lnRaspuns = AMESSAGEBOX('Doriti sa continuati cu operatii de acest fel?',4+32)
+		ELSE
+			lnRaspuns = 7	
+		ENDIF 
+	ENDDO 
+ENDPROC && BAR_10_OF_Cheltuieli_FB2P
+
+*</Procedures>