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

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
2026-08-23 18:00:57 +03:00
commit 77e98d73e9
94 changed files with 62872 additions and 0 deletions
--- a/Meniuri/firmanoua.mn2
+++ b/Meniuri/firmanoua.mn2
@@ -0,0 +1,323 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="firmanoua.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 "\<Deschidere de firma"
+ON SELECTION BAR 1 OF Shortcut DO BAR_1_OF_Shortcut_FB2P
+
+DEFINE BAR 2 OF Shortcut PROMPT "\-"
+ON BAR 2 OF Shortcut ACTIVATE POPUP NewItem
+
+	*----------------------------------
+	DEFINE POPUP NewItem SHORTCUT RELATIVE
+DEFINE BAR 3 OF Shortcut PROMPT "\<Preluare de date"
+ON BAR 3 OF Shortcut ACTIVATE POPUP _1mj0sbbn6
+
+	*----------------------------------
+	DEFINE POPUP _1mj0sbbn6 SHORTCUT RELATIVE
+	DEFINE BAR 1 OF _1mj0sbbn6 PROMPT "Situatii \<analitice"
+	ON BAR 1 OF _1mj0sbbn6 ACTIVATE POPUP _1mj0sbjsk
+
+		*----------------------------------
+		DEFINE POPUP _1mj0sbjsk SHORTCUT RELATIVE
+		DEFINE BAR 1 OF _1mj0sbjsk PROMPT "\<Furnizori"
+		ON SELECTION BAR 1 OF _1mj0sbjsk DO BAR_1_OF__1mj0sbjsk_FB2P
+
+		DEFINE BAR 2 OF _1mj0sbjsk PROMPT "\<Clienti"
+		ON SELECTION BAR 2 OF _1mj0sbjsk DO BAR_2_OF__1mj0sbjsk_FB2P
+
+		DEFINE BAR 3 OF _1mj0sbjsk PROMPT "Cr\<editori"
+		ON SELECTION BAR 3 OF _1mj0sbjsk DO BAR_3_OF__1mj0sbjsk_FB2P
+
+		DEFINE BAR 4 OF _1mj0sbjsk PROMPT "\<Debitori"
+		ON SELECTION BAR 4 OF _1mj0sbjsk DO BAR_4_OF__1mj0sbjsk_FB2P
+
+		DEFINE BAR 5 OF _1mj0sbjsk PROMPT "\<Achizitori"
+		ON SELECTION BAR 5 OF _1mj0sbjsk DO BAR_5_OF__1mj0sbjsk_FB2P
+
+		DEFINE BAR 6 OF _1mj0sbjsk PROMPT "Act\<ionari"
+		ON SELECTION BAR 6 OF _1mj0sbjsk DO BAR_6_OF__1mj0sbjsk_FB2P
+
+	DEFINE BAR 2 OF _1mj0sbbn6 PROMPT "\-"
+	ON BAR 2 OF _1mj0sbbn6 ACTIVATE POPUP _1mj0sbpef
+
+		*----------------------------------
+		DEFINE POPUP _1mj0sbpef SHORTCUT RELATIVE
+	DEFINE BAR 3 OF _1mj0sbbn6 PROMPT "\<Balanta"
+	ON SELECTION BAR 3 OF _1mj0sbbn6 DO BAR_3_OF__1mj0sbbn6_FB2P
+ACTIVATE POPUP Shortcut
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF_Shortcut_FB2P
+	*!*	ll2=m.nl
+	*!*	aa2=m.an
+	
+	*!*	do form startfirma
+	*!*	IF buton=2
+	*!*	m.an=aa2
+	*!*	m.nl=ll2
+	*!*	endif
+ENDPROC && BAR_1_OF_Shortcut_FB2P
+
+PROCEDURE BAR_1_OF__1mj0sbjsk_FB2P
+	*!*	sele act
+	*!*	copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX
+	
+	*!*	sele 0
+	*!*	use &loc\&nfscurt\tempo\ytemp alias ytemp
+	*!*	sele ytemp
+	*!*	BUTON=1
+	*!*	mmm=crea('modiffact')
+	*!*	mmm.decare='FURN'
+	*!*	MMM.SHOW(1)
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	USE IN YTEMP
+	*!*	RETURN
+	*!*	ENDIF
+	
+	*!*	SELE YTEMP
+	*!*	SCAN
+	*!*	SCAT MEMV
+	*!*	SELE ACT
+	*!*	IF FLOCK()
+	*!*	appe blan
+	*!*	gath memv
+	*!*	endif
+	*!*	unlock
+	*!*	SELE ACTan
+	*!*	IF FLOCK()
+	*!*	appe blan
+	*!*	gath memv
+	*!*	endif
+	*!*	unlock
+	*!*	endscan
+	
+	*!*	USE IN YTEMP
+	*!*	wait wind 'Se inregistreaza in analiticul de furnizori...' nowait
+	*!*	DO TOTV
+	*!*	DO REFBAL
+	*!*	DO REFFURNIZOR
+	*!*	wait wind 'Se inregistreaza in registrul de cumparari...' nowait
+	*!*	DO TOTV
+	*!*	DO REFCUMP
+	*!*	wait wind 'Se inregistreaza in situatia facturilor de furnizori...' nowait
+	*!*	do totv
+	*!*	DO REFCUMPLUN
+	*!*	DO TOTV
+	*!*	wait clear
+ENDPROC && BAR_1_OF__1mj0sbjsk_FB2P
+
+PROCEDURE BAR_2_OF__1mj0sbjsk_FB2P
+	*!*	sele act
+	*!*	copy struct to &loc\&nfscurt\tempo\ytemp WITH CDX
+	
+	*!*	sele 0
+	*!*	use &loc\&nfscurt\tempo\ytemp alias ytemp
+	*!*	sele ytemp
+	*!*	BUTON=1
+	*!*	mmm=crea('modiffact')
+	*!*	mmm.decare='CLI'
+	*!*	MMM.SHOW(1)
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	USE IN YTEMP
+	*!*	RETURN
+	*!*	ENDIF
+	
+	*!*	SELE YTEMP
+	*!*	SCAN
+	*!*	SCAT MEMV
+	*!*	SELE ACT
+	*!*	IF FLOCK()
+	*!*	appe blan
+	*!*	gath memv
+	*!*	endif
+	*!*	unlock
+	*!*	SELE ACTan
+	*!*	IF FLOCK()
+	*!*	appe blan
+	*!*	gath memv
+	*!*	endif
+	*!*	unlock
+	*!*	endscan
+	
+	*!*	USE IN YTEMP
+	*!*	wait wind 'Se inregistreaza in analiticul de clienti...' nowait
+	*!*	DO TOTV
+	*!*	DO REFBAL
+	*!*	DO REFCLIENTI
+	*!*	wait wind 'Se inregistreaza in registrul de vanzari...' nowait
+	*!*	DO TOTV
+	*!*	DO REFVANZ
+	*!*	wait wind 'Se inregistreaza in situatia facturilor de clienti...' nowait
+	*!*	do totv
+	*!*	DO REFVANZLUN
+	*!*	DO TOTV
+	*!*	wait clear
+ENDPROC && BAR_2_OF__1mj0sbjsk_FB2P
+
+PROCEDURE BAR_3_OF__1mj0sbjsk_FB2P
+	*!*	LOCAL m.SUM1,M.SUM2,M.SUM3
+	
+	*!*	SELECT CREDITOR
+	*!*	SET FILTER TO !DELETED()
+	*!*	sum LUAT,DAT to m.SUM1,M.SUM2
+	*!*	M.SUM3=M.SUM1-M.SUM2
+	
+	*!*	SELE BAL
+	*!*	SEEK '462 '
+	*!*	SCATTER MEMVAR
+	*!*	IF M.SOLDcred # M.SUM3
+	*!*	do mesajval with 'Diferenta soldului cont.462 este de: ',M.SOLDCRED-M.SUM3
+	*!*	endif
+	
+	
+	*!*	     
+	*!*	m.cont='462 '
+	*!*	cn=m.cont
+	
+	*!*	SELECT CREDITOR.NUME,CREDITOR.luat as deb,CREDITOR.dat as cred;
+	*!*		 from CREDITOR where !deleted() ;
+	*!*		 into TABLE &LOC\&nfscurt\tempo\xtemp
+	*!*		 
+	*!*	*	 rename column luat TO deb;
+	*!*	*	 rename column dat TO cred;
+	
+	*!*	if file('&LOC\&nfscurt\tempo\xtemp.dbf')
+	*!*	sele xtemp
+	*!*	alter table xtemp ADD COLUMN CONT C(4)
+	*!*	repl all cont with m.cont
+	
+	*!*	sele xtemp
+	*!*	index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
+	
+	*!*	OVIZ=CREATEOBJECT("afsitanalitX")
+	*!*	WITH OVIZ
+	*!*		.command5.visible=.f.
+	*!*		.LABEL10.CAPTION='SITUATIA ANALITICA - CREDITORI'
+	*!*		.GRID1.COLUMN2.VISIBLE=.F.
+	*!*		.GRID1.COLUMN2.WIDTH=0
+	*!*		.GRID1.COLUMN8.VISIBLE=.F.
+	*!*		.GRID1.COLUMN8.WIDTH=0
+	*!*	ENDWITH
+	*!*	OVIZ.SHOW(1)
+	*!*	use in xtemp
+	*!*	endif
+ENDPROC && BAR_3_OF__1mj0sbjsk_FB2P
+
+PROCEDURE BAR_4_OF__1mj0sbjsk_FB2P
+	*!*	SELECT debitor
+	*!*	SET FILTER TO !DELETED()
+	
+	*!*	SELECT debitor
+	*!*	sum LUAT,DAT to m.SUM1,M.SUM2
+	*!*	M.SUM3=M.SUM1-M.SUM2
+	*!*	SELE BAL
+	*!*	SEEK '461 '
+	*!*	SCATTER MEMVAR
+	*!*	IF M.SOLDDEB # M.SUM3
+	*!*	do mesajval with 'Diferenta soldului cont.461 este de: ',M.SOLDDEB-M.SUM3
+	*!*	endif
+	
+	
+	*!*	SELECT debitor.NUME,debitor.luat as deb,debitor.dat as cred;
+	*!*		 from debitor where !deleted() ;
+	*!*		 into TABLE &LOC\&nfscurt\tempo\xtemp
+	*!*	*alter table xtemp;
+	*!*	*	 rename column luat TO DEB;
+	*!*	*	 rename column dat TO CRED;
+	
+	*!*	sele xtemp
+	*!*	index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
+	
+	*!*	do creaT_analitX with 'SITUATIE ANALITICA - DEBITORI','Incasat','Restituit'
+	*!*	use in xtemp
+ENDPROC && BAR_4_OF__1mj0sbjsk_FB2P
+
+PROCEDURE BAR_5_OF__1mj0sbjsk_FB2P
+	*!*	local m.sum1,m.sum2,m.sum3
+	*!*	set safety off
+	
+	*!*	SELECT ACHIT542
+	*!*	SET FILTER TO !DELETED()
+	*!*	sum LUAT,DAT to m.SUM1,M.SUM2
+	*!*	M.SUM3=M.SUM1-M.SUM2
+	
+	*!*	SELE BAL
+	*!*	SEEK '542 '
+	*!*	SCATTER MEMVAR
+	*!*	IF M.SOLDDEB # M.SUM3
+	
+	*!*	ot=createobj('textval')
+	*!*	ot.label2.caption= 'Diferenta soldului este de: '
+	*!*	ot.valoare=M.SOLDDEB-M.SUM3
+	*!*	ot.show(1)
+	*!*	ENDIF
+	
+	*!*	m.cont='542  '
+	*!*	cn=m.cont
+	*!*	      
+	*!*	SELECT ACHIT542.NUME_2 as nume,achit542.luat as deb,achit542.dat as cred;
+	*!*		 from achit542 where !deleted();
+	*!*		 into TABLE &LOC\&nfscurt\tempo\xtemp
+	
+	*!*	**	 rename column nume_2 TO nume;
+	*!*	*	 rename column luat TO deb;
+	*!*	*	 rename column dat TO cred;
+	*!*		 
+	*!*	if file('&LOC\&nfscurt\tempo\xtemp.dbf')
+	*!*	sele xtemp
+	*!*	alter table xtemp ADD COLUMN CONT C(4)
+	*!*	repl all cont with m.cont
+	*!*	index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
+	
+	*!*	OVIZ=CREATEOBJECT("afsitanalitX")
+	*!*	WITH OVIZ
+	*!*		.command5.visible=.f.
+	*!*		.LABEL10.CAPTION='SITUATIA ANALITICA - ACHIZITORI'
+	*!*		.GRID1.COLUMN2.VISIBLE=.F.
+	*!*		.GRID1.COLUMN2.WIDTH=0
+	*!*		.GRID1.COLUMN8.VISIBLE=.F.
+	*!*		.GRID1.COLUMN8.WIDTH=0
+	*!*	ENDWITH
+	*!*	OVIZ.SHOW(1)
+	*!*	use in xtemp
+	*!*	endif
+ENDPROC && BAR_5_OF__1mj0sbjsk_FB2P
+
+PROCEDURE BAR_6_OF__1mj0sbjsk_FB2P
+	*!*	SELECT actionar
+	*!*	SET FILTER TO !DELETED()
+	*!*	sum LUAT,DAT to m.SUM1,M.SUM2
+	*!*	M.SUM3=M.SUM1-M.SUM2
+	*!*	     
+	
+	*!*	SELECT actionar.NUME,actionar.luat as deb,actionar.dat as cred;
+	*!*		 from actionar where !deleted() ;
+	*!*		 into TABLE &LOC\&nfscurt\tempo\xtemp
+	*!*	*alter table xtemp;
+	*!*	*	 rename column luat TO deb;
+	*!*	*	 rename column dat TO cred;
+	
+	*!*	sele xtemp
+	*!*	index on nume tag nume of &LOC\&nfscurt\tempo\xtemp
+	
+	*!*	do creaT_analitX with 'SITUATIE ANALITICA - ACTIONARI','Luat','Dat'
+	*!*	use in xtemp
+ENDPROC && BAR_6_OF__1mj0sbjsk_FB2P
+
+PROCEDURE BAR_3_OF__1mj0sbbn6_FB2P
+	*!*	sele bal
+	*!*	do form afisbalx
+ENDPROC && BAR_3_OF__1mj0sbbn6_FB2P
+
+*</Procedures>