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:55:38 +03:00
commit 2f59024385
1271 changed files with 820556 additions and 0 deletions
--- a/meniuri/introdgen.mn2
+++ b/meniuri/introdgen.mn2
@@ -0,0 +1,114 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="introdgen.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 "LISTA INVENTAR"
+ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
+
+DEFINE BAR 2 OF Shortcut PROMPT "\<Nota de inventariere si constatare diferente"
+ON SELECTION BAR 2 OF Shortcut DO BAR_2_OF_Shortcut_FB2P
+
+DEFINE BAR 3 OF Shortcut PROMPT "\<Nota inventariere obiecte inventar 8039"
+ON SELECTION BAR 3 OF Shortcut DO BAR_3_OF_Shortcut_FB2P
+ACTIVATE POPUP Shortcut
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF_Shortcut_FB2P
+	Do lista_inventar In ointroduceri.prg
+ENDPROC && BAR_1_OF_Shortcut_FB2P
+
+PROCEDURE BAR_2_OF_Shortcut_FB2P
+	DO nota_inventar IN ointroduceri.prg
+	
+	*!*	buton=2
+	*!*	If File('&loc\&nfscurt\tempo\difstoc.DBF')
+	*!*		Do danu With 'Doriti sa continuati nota inceputa?'
+	*!*	Endif
+	
+	*!*	If buton=1
+	*!*		Use &loc\&nfscurt\tempo\difstoc.Dbf In 0 Exclusive Alias difstoc
+	*!*	Else
+	*!*		Do stoc_data In PROCEDURI.PRG
+	
+	*!*		Use &loc\&nfscurt\tempo\inloc In 0 Alias inloc
+	
+	*!*		Select *,cants+cant-cante As stocf,cants-cants As Dif,pret*0 As valdif;
+	*!*			FROM inloc Into Table &loc\&nfscurt\tempo\difstoc.Dbf Order By denumire
+	*!*	Endif
+	
+	*!*	Do sterge
+	*!*	buton=2
+	
+	*!*	PRIVATE PcNrgrupa
+	*!*	STORE '' TO PcNrgrupa
+	
+	*!*	Select difstoc
+	*!*	Do Form difinventar
+	
+	*!*	If buton=2
+	*!*		IF USED('inloc')
+	*!*			Use In inloc
+	*!*		endif
+	*!*		Use In difstoc
+	*!*		Return
+	*!*	Endif
+	
+	*!*	Do codare
+	*!*	m.id_set=90101
+	*!*	Select * From difstoc Where Dif#0 Into Table &loc\&nfscurt\tempo\aaa.Dbf
+	
+	*!*	*SELECT aaa
+	*!*	Replace All cante With Dif
+	
+	
+	*!*	Select iesiri
+	*!*	Zap
+	*!*	Append From &loc\&nfscurt\tempo\aaa.Dbf
+	*!*	m.nnir=ALLTRIM(STR(m.NRACT))
+	
+	*!*	Select  iesiri
+	*!*	Replace All nnir With m.nnir,cod With m.cod,dataact With m.dataact,dataout WITH m.dataact
+	*!*	*BROWSE
+	
+	*!*	*Do contabilizeaza_ana With m.scd,m.scc,m.ascd,m.ascc,m.suma
+	*!*	IF USED('actactan')
+	*!*		USE IN actactan
+	*!*	ENDIF 
+	
+	
+	*!*	SELECT ACT
+	*!*	COPY STRUCTURE TO &loc\&nfscurt\tempo\actactan WITH CDX 
+	*!*	USE &loc\&nfscurt\tempo\actactan IN 0 SHARED ALIAS ACTACTAN 
+	
+	*!*	SELECT ACTACTAN
+	*!*	APPEND BLANK
+	*!*	GATHER MEMVAR 
+	
+	*!*	DO FORM verificare
+	*!*	IF buton = 1
+	*!*		SCRIE_IN_FISIERE('BON')
+	*!*	ENDIF 
+	
+	*!*	Use In difstoc
+	*!*	Use In aaa
+	*!*	IF USED('inloc')
+	*!*		Use In inloc
+	*!*	ENDIF
+	*!*	IF USED('actactan')
+	*!*		USE IN actactan
+	*!*	ENDIF 
+ENDPROC && BAR_2_OF_Shortcut_FB2P
+
+PROCEDURE BAR_3_OF_Shortcut_FB2P
+	DO nota_inventar WITH .T. IN ointroduceri.prg
+ENDPROC && BAR_3_OF_Shortcut_FB2P
+
+*</Procedures>