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/casa3.mn2
+++ b/Meniuri/casa3.mn2
@@ -0,0 +1,513 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="casa3.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*<MenuType>4</MenuType>
+*<MenuLocation>REPLACE</MenuLocation>
+
+*<MenuCode>
+DEFINE POPUP Casainvalu SHORTCUT RELATIVE FROM MROW(),MCOL()
+DEFINE BAR 1 OF Casainvalu PROMPT "\<Incasari"
+ON BAR 1 OF Casainvalu ACTIVATE POPUP _08x0o1q7r
+
+	*----------------------------------
+	DEFINE POPUP _08x0o1q7r SHORTCUT RELATIVE
+	DEFINE BAR 1 OF _08x0o1q7r PROMPT "Ridicat numerar din banca" ;
+		MESSAGE '5314: 581; 581:5124'
+	ON SELECTION BAR 1 OF _08x0o1q7r DO BAR_1_OF__08x0o1q7r_FB2P
+
+	DEFINE BAR 2 OF _08x0o1q7r PROMPT "Restituire avans materiale" ;
+		MESSAGE '5314: 542'
+	ON SELECTION BAR 2 OF _08x0o1q7r DO BAR_2_OF__08x0o1q7r_FB2P
+
+	DEFINE BAR 3 OF _08x0o1q7r PROMPT "Creditori diversi" ;
+		MESSAGE '5314: 462'
+	ON SELECTION BAR 3 OF _08x0o1q7r DO BAR_3_OF__08x0o1q7r_FB2P
+
+	DEFINE BAR 4 OF _08x0o1q7r PROMPT "Asociati cont curent" ;
+		MESSAGE ' 5314 : 4551'
+	ON SELECTION BAR 4 OF _08x0o1q7r lans(10528)
+
+	DEFINE BAR 5 OF _08x0o1q7r PROMPT "Cumparare valuta" ;
+		MESSAGE '5314 : 581; 581 : 5311'
+	ON SELECTION BAR 5 OF _08x0o1q7r lans(10541)
+
+	DEFINE BAR 6 OF _08x0o1q7r PROMPT "\-"
+	ON BAR 6 OF _08x0o1q7r ACTIVATE POPUP _1600zs4h9
+
+		*----------------------------------
+		DEFINE POPUP _1600zs4h9 SHORTCUT RELATIVE
+	DEFINE BAR 7 OF _08x0o1q7r PROMPT "Incasare clienti" ;
+		MESSAGE '5314: 4111'
+	ON SELECTION BAR 7 OF _08x0o1q7r DO BAR_7_OF__08x0o1q7r_FB2P
+
+	DEFINE BAR 8 OF _08x0o1q7r PROMPT "Incasare avans clienti" ;
+		MESSAGE '5314: 419'
+	ON SELECTION BAR 8 OF _08x0o1q7r DO BAR_8_OF__08x0o1q7r_FB2P
+
+	DEFINE BAR 9 OF _08x0o1q7r PROMPT "Incasare debitori diversi" ;
+		MESSAGE '5314: 461'
+	ON SELECTION BAR 9 OF _08x0o1q7r DO BAR_9_OF__08x0o1q7r_FB2P
+
+DEFINE BAR 2 OF Casainvalu PROMPT "\<Plati"
+ON BAR 2 OF Casainvalu ACTIVATE POPUP _08x0o1q7s
+
+	*----------------------------------
+	DEFINE POPUP _08x0o1q7s SHORTCUT RELATIVE
+	DEFINE BAR 1 OF _08x0o1q7s PROMPT "Depunere numerar" ;
+		MESSAGE '581 :5314;5124: 581'
+	ON SELECTION BAR 1 OF _08x0o1q7s DO BAR_1_OF__08x0o1q7s_FB2P
+
+	DEFINE BAR 2 OF _08x0o1q7s PROMPT "Acordare avans materiale" ;
+		MESSAGE '542 :5314'
+	ON SELECTION BAR 2 OF _08x0o1q7s DO BAR_2_OF__08x0o1q7s_FB2P
+
+	DEFINE BAR 3 OF _08x0o1q7s PROMPT "Vanzare valuta" ;
+		MESSAGE '5311:581 ; 581:5314'
+	ON SELECTION BAR 3 OF _08x0o1q7s DO BAR_3_OF__08x0o1q7s_FB2P
+
+	DEFINE BAR 4 OF _08x0o1q7s PROMPT "Plata deplasari" ;
+		MESSAGE '625 : 5314'
+	ON SELECTION BAR 4 OF _08x0o1q7s DO BAR_4_OF__08x0o1q7s_FB2P
+
+	DEFINE BAR 5 OF _08x0o1q7s PROMPT "Debitori diversi" ;
+		MESSAGE '461 : 5314'
+	ON SELECTION BAR 5 OF _08x0o1q7s DO BAR_5_OF__08x0o1q7s_FB2P
+
+	DEFINE BAR 6 OF _08x0o1q7s PROMPT "Asociati conturi curente" ;
+		MESSAGE '4551:5314'
+	ON SELECTION BAR 6 OF _08x0o1q7s lans(10529)
+
+	DEFINE BAR 7 OF _08x0o1q7s PROMPT "\-"
+	ON BAR 7 OF _08x0o1q7s ACTIVATE POPUP _15s0ksn23
+
+		*----------------------------------
+		DEFINE POPUP _15s0ksn23 SHORTCUT RELATIVE
+	DEFINE BAR 8 OF _08x0o1q7s PROMPT "Plata furnizori 401" ;
+		MESSAGE '401 :5314'
+	ON SELECTION BAR 8 OF _08x0o1q7s DO BAR_8_OF__08x0o1q7s_FB2P
+
+	DEFINE BAR 9 OF _08x0o1q7s PROMPT "Plata furnizori imobilizari 404" ;
+		MESSAGE '404 :5314'
+	ON SELECTION BAR 9 OF _08x0o1q7s DO BAR_9_OF__08x0o1q7s_FB2P
+
+	DEFINE BAR 10 OF _08x0o1q7s PROMPT "Plata avansuri furnizori 409" ;
+		MESSAGE '409 :5314'
+	ON SELECTION BAR 10 OF _08x0o1q7s DO BAR_10_OF__08x0o1q7s_FB2P
+
+	DEFINE BAR 11 OF _08x0o1q7s PROMPT "Plata creditori diversi" ;
+		MESSAGE '462 : 5314'
+	ON SELECTION BAR 11 OF _08x0o1q7s DO BAR_11_OF__08x0o1q7s_FB2P
+ACTIVATE POPUP Casainvalu
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF__08x0o1q7r_FB2P
+	*____________________________________________________________________________________________
+	*PROCEDURE MENIU81010
+	
+	lans(10427)
+	*!*	m.scd='5314 '
+	*!*	m.scc='581  '
+	
+	*!*	do alfabeta with;
+	*!*	 'casaV','NUMELE CASEI IN VALUTA','CASVNUME','NUME_5',;
+	*!*	 "NUMELE BANCII IN VALUTA","BANVNUME","NUME_3",;
+	*!*	 'CURSUL VALUTAR','',"","DO CURS.SPR"
+	*!*	*
+	
+	*!*	M.NUME=''
+	*!*	M.NUME_2=''
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	RETURN
+	*!*	ENDIF
+	*!*	DO CODARE
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	*!*	do INVALCASA
+	*!*	m.scd='581  '
+	*!*	m.scc='5124 '
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	*!*	DO PLVALBANCA
+	*!*	do sterge
+	*!*	RETURN
+	
+ENDPROC && BAR_1_OF__08x0o1q7r_FB2P
+
+PROCEDURE BAR_2_OF__08x0o1q7r_FB2P
+	lans(10430)
+	*!*	m.scd='5314'
+	*!*	m.scc='542 '
+	
+	*!*	do alfabeta with;
+	*!*	 'casaV',;
+	*!*	 "NUMELE ACHIZITORULUI","ACHIT542","NUME_2",;
+	*!*	 'CASA IN VALUTA','CASVNUME','NUME_5',;
+	*!*	  'CURSUL VALUTAR','','',  ;
+	*!*	'do curs.spr'
+	*!*	m.nume_3=m.nume_2
+	*!*	M.NUME_2=''
+	*!*	*
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	RETURN
+	*!*	ENDIF
+	*!*	DO CODARE
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	*!*	do inVALCASA
+	
+	*!*	SELE ACHIT542
+	*!*	REPLACE DAT WITH DAT+m.suma
+	
+	*!*	SELE ACT
+	*!*	do sterge
+	*!*	RETURN
+	
+ENDPROC && BAR_2_OF__08x0o1q7r_FB2P
+
+PROCEDURE BAR_3_OF__08x0o1q7r_FB2P
+	*____________________________________________________________________________________________
+	*PROCEDURE MENIU81060
+	lans(10501)
+	*!*	m.scd='5314 '
+	*!*	m.scc='462  '
+	
+	*!*	do alfabeta with;
+	*!*	 'casaV',;
+	*!*	 "NUMELE CREDITORULUI","CREDITOR","NUME",;
+	*!*	 'CASA IN VALUTA','CASVNUME','NUME_5',;
+	*!*	  'CURSUL VALUTAR','','',  ;
+	*!*	'do curs.spr'
+	*!*	*
+	*!*	M.NUME_2=''
+	*!*	*
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	RETURN
+	*!*	ENDIF
+	*!*	DO CODARE
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	*!*	do inVALCASA
+	*!*	SELE CREDITOR
+	*!*	REPLACE LUAT WITH LUAT +m.suma
+	*!*	SELE ACT
+	*!*	do sterge
+	*!*	RETURN
+	
+ENDPROC && BAR_3_OF__08x0o1q7r_FB2P
+
+PROCEDURE BAR_7_OF__08x0o1q7r_FB2P
+	lans(10426)
+	*!*	*____________________________________________________________________________________________
+	*!*	*PROCEDURE MENIU86140
+	*!*	local sumacorecta,diferente
+	*!*	sTore 0 to sumacorecta,diferente
+	*!*	m.scd='5314 '
+	*!*	m.scc='411  '
+	
+	*!*	do alfabetaper with;
+	*!*	 'casaPERVAL',;
+	*!*	 "NUMELE CLIENTULUI","CLIEnti","NUME",   ;
+	*!*	 "NUMELE CASEI IN VALUTA","CASvNUME","NUME_5",  ;
+	*!*	 'CURSUL VALUTAR','','',  ;
+	*!*	'do curs.spr','v'
+	*!*	*
+	*!*	sumacorecta=m.suma*m.cursvechi/m.cursschimb
+	*!*	diferente=m.suma-sumacorecta
+	
+	
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	RETURN
+	*!*	ENDIF
+	*!*	DO CODARE
+	
+	*!*	*M.NUME_3=M.NUME_2
+	*!*	M.NUME_2=''
+	
+	*!*	LOCAL C
+	*!*	C=M.CURSSCHIMB
+	*!*	M.CURSSCHIMB=M.CURSVECHI
+	*!*	M.SUMA_3=M.CURSVECHI
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,sumacorecta,CLASAACT
+	*!*	M.CASA=M.NUME_5
+	*!*	DO INVALCASA
+	
+	
+	*!*	DO CASE
+	*!*	CASE diferente>0
+	*!*		m.explicatia='DIFERENTE FAVORABILE'
+	*!*		M.SUMA_3=C
+	*!*		M.CURSSCHIMB=C
+	*!*		M.SUMA_2=0
+	*!*		DO CONTABILIZEAZA WITH '5314','765 ',diferente,CLASAACT
+	*!*		M.SUMAVAL=0
+	*!*		DO INVALBANCA
+	*!*	CASE diferente<0
+	*!*		m.explicatia='DIFERENTE NEFAVORABILE'
+	*!*		M.SUMA_3=C
+	*!*		M.CURSSCHIMB=C
+	*!*		M.SUMA_2=0
+	*!*		DO CONTABILIZEAZA WITH '665 ','411',-diferente,CLASAACT
+	*!*		M.SUMAVAL=0
+	*!*		DO PLVALBANCA
+	*!*	endCASE
+	
+	
+	
+	
+	*!*	SELE CLIEnti
+	*!*	REPLACE CLIEnti.incasat WITH CLIEnti.incasat+m.suma
+	
+	*!*	do sterge
+	*!*	RETURN
+	
+	
+ENDPROC && BAR_7_OF__08x0o1q7r_FB2P
+
+PROCEDURE BAR_8_OF__08x0o1q7r_FB2P
+	*____________________________________________________________________________________________
+	*PROCEDURE MENIU86150
+	lans(10428)
+	*!*	m.scd='5314'
+	*!*	m.scc='419 '
+	
+	*!*	do alfabeta with;
+	*!*	 'casAV',;
+	*!*	 "NUMELE CLIENTULUI","CLIEnti","NUME",   ;
+	*!*	 "NUMELE CASEI IN VALUTA","CASvNUME","NUME_5",  ;
+	*!*	 'CURSUL VALUTAR','','',  ;
+	*!*	'do curs.spr'
+	*!*	*
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	RETURN
+	*!*	ENDIF
+	*!*	*M.NUME_3=M.NUME_2
+	*!*	M.NUME_2=''
+	*!*	DO CODARE
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	
+	*!*	M.CASA=M.NUME_5
+	*!*	DO INVALCASA
+	*!*	SELE clienti
+	*!*	REPLACE clienti.incasat WITH clienti.incasat+m.suma
+	*!*	do sterge
+ENDPROC && BAR_8_OF__08x0o1q7r_FB2P
+
+PROCEDURE BAR_9_OF__08x0o1q7r_FB2P
+	*____________________________________________________________________________________________
+	*PROCEDURE MENIU81050
+	*lans(10429)
+	lans(10503)
+	*!*	m.scd='5314'
+	*!*	m.scc='461 '
+	*!*	***do casa.spr
+	*!*	do alfabeta with;
+	*!*	 'casaV',;
+	*!*	 "NUMELE DEBITORULUI","DEBITOR","NUME",;
+	*!*	 'CASA IN VALUTA','CASVNUME','NUME_5',;
+	*!*	  'CURSUL VALUTAR','','',  ;
+	*!*	'do curs.spr'
+	*!*	*
+	*!*	M.NUME_2=''
+	
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	RETURN
+	*!*	ENDIF
+	*!*	DO CODARE
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	*!*	do inVALCASA
+	*!*	SELE DEBITOR
+	*!*	REPLACE DAT WITH DAT +m.suma
+	*!*	SELE ACT
+	*!*	do sterge
+	*!*	RETURN
+ENDPROC && BAR_9_OF__08x0o1q7r_FB2P
+
+PROCEDURE BAR_1_OF__08x0o1q7s_FB2P
+	*____________________________________________________________________________________________
+	*PROCEDURE MENIU82010
+	lans(10431)
+	*!*	m.scd='581 '
+	*!*	m.scc='5314'
+	*!*	***do casa.spr
+	*!*	do alfabeta with;
+	*!*	 'casaV',;
+	*!*	 'CASA IN VALUTA','CASVNUME','NUME_5',;
+	*!*	 "BANCA IN VALUTA","BANVNUME","NUME_3",;
+	*!*	 'CURSUL VALUTAR','',"","DO CURS.SPR"
+	*!*	 
+	*!*	 
+	*!*	*
+	*!*	M.NUME=''
+	*!*	M.NUME_2=''
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	RETURN
+	*!*	ENDIF
+	*!*	DO CODARE
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	*!*	M.CASA=M.NUME_5
+	*!*	do PLVALCASA
+	*!*	m.scd='5124'
+	*!*	m.scc='581 '
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	*!*	M.BANCA=M.NUME_3
+	*!*	DO INVALBANCA
+	*!*	do sterge
+ENDPROC && BAR_1_OF__08x0o1q7s_FB2P
+
+PROCEDURE BAR_2_OF__08x0o1q7s_FB2P
+	lans(10432)
+	*!*	m.scd='542  '
+	*!*	m.scc='5314'
+	
+	*!*	do alfabeta with;
+	*!*	 'casaV',;
+	*!*	 "NUMELE ACHIZITORULUI","ACHIT542","NUME_2",;
+	*!*	 'CASA IN VALUTA','CASVNUME','NUME_5',;
+	*!*	 'CURSUL VALUTAR','',"",;
+	*!*	"DO CURS.SPR"
+	*!*	*
+	
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	RETURN
+	*!*	ENDIF
+	*!*	M.NUME=M.NUME_2
+	*!*	M.NUME_2=''
+	*!*	DO CODARE
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	*!*	do plVALCASA
+	*!*	repl ACHIT542.LUAT with ACHIT542.LUAT+m.suma
+	*!*	do sterge
+	*!*	RETURN
+ENDPROC && BAR_2_OF__08x0o1q7s_FB2P
+
+PROCEDURE BAR_3_OF__08x0o1q7s_FB2P
+	*____________________________________________________________________________________________
+	*PROCEDURE MENIU86240
+	lans(10437)
+	*!*	m.scd='5311 '
+	*!*	m.scc='581  '
+	*!*	***do CASA.spr
+	*!*	do alfabeta with;
+	*!*	 'CASAV',;
+	*!*	 "CASA IN VALUTA","CASVNUME","NUME_5",   ;
+	*!*	 "CASA IN LEI","CASANUME","CASA",  ;
+	*!*	 'CURSUL VALUTAR','','',  ;
+	*!*	'do curs.spr'
+	*!*	*
+	
+	*!*	M.NUME_3=M.CASA
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	RETURN
+	*!*	ENDIF
+	*!*	m.nume_2=''
+	*!*	m.nume=''
+	*!*	DO CODARE
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	*!*	*M.CASA=M.NUME_3
+	*!*	DO INCASA
+	*!*	m.scd='581  '
+	*!*	m.scc='5314 '
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	*!*	M.CASA=M.NUME_5
+	*!*	DO PLVALCASA
+	*!*	do sterge
+	*!*	RETURN
+ENDPROC && BAR_3_OF__08x0o1q7s_FB2P
+
+PROCEDURE BAR_4_OF__08x0o1q7s_FB2P
+	lans(10486)
+ENDPROC && BAR_4_OF__08x0o1q7s_FB2P
+
+PROCEDURE BAR_5_OF__08x0o1q7s_FB2P
+	lans(10502)
+ENDPROC && BAR_5_OF__08x0o1q7s_FB2P
+
+PROCEDURE BAR_8_OF__08x0o1q7s_FB2P
+	*____________________________________________________________________________________________
+	*PROCEDURE MENIU86210
+	lans(10434)
+	*!*	m.scd='401 '
+	*!*	m.scc='5314'
+	*!*	***do BANCA.spr
+	*!*	do alfabetaper with;
+	*!*	 'CASAperval',;
+	*!*	 "NUMELE FURNIZORULUI","FURNIZOR","NUME",   ;
+	*!*	 "NUMELE CASEI IN VALUTA","CASVNUME","NUME_5",  ;
+	*!*	 'CURSUL VALUTAR','','',  ;
+	*!*	'do curs.spr','c'
+	*!*	*
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	RETURN
+	*!*	ENDIF
+	*!*	m.nume_3=''
+	*!*	m.nume_2=''
+	*!*	DO CODARE
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	*!*	M.CASA=M.NUME_5
+	*!*	do plVALCASA
+	
+	*!*	SELE FURNIZOR
+	*!*	repl furnizor.platit with furnizor.platit+m.suma
+	*!*	do sterge
+	*!*	RETURN
+ENDPROC && BAR_8_OF__08x0o1q7s_FB2P
+
+PROCEDURE BAR_9_OF__08x0o1q7s_FB2P
+	lans(10435)
+	*!*	m.scd='404  '
+	*!*	m.scc='5314 '
+	
+	*!*	do alfabetaper with;
+	*!*	 'CASAperval',;
+	*!*	 "NUMELE FURNIZORULUI","FURNIZ404","NUME",   ;
+	*!*	 "NUMELE CASEI IN VALUTA","CASVNUME","NUME_5",  ;
+	*!*	 'CURSUL VALUTAR','','',  ;
+	*!*	'do curs.spr','p'
+	*!*	*
+	*!*	IF BUTON=2
+	*!*	DO STERGE
+	*!*	RETURN
+	*!*	ENDIF
+	*!*	m.nume_3=''
+	*!*	m.nume_2=''
+	*!*	DO CODARE
+	*!*	DO CONTABILIZEAZA WITH m.scd,m.scc,M.suma,CLASAACT
+	*!*	M.CASA=M.NUME_5
+	*!*	do plVALCASA
+	
+	*!*	SELE FURNIZ404
+	*!*	repl platit with platit+m.suma
+	*!*	do sterge
+ENDPROC && BAR_9_OF__08x0o1q7s_FB2P
+
+PROCEDURE BAR_10_OF__08x0o1q7s_FB2P
+	PRIVATE pcACN, CN
+	loCont = ret_cont("Selectati contul",'409') &&,4091,4092')
+	IF TYPE('loCont') # 'O'
+		RETURN
+	ENDIF 
+	IF buton = 2
+		RELEASE loCont
+		RETURN 
+	ENDIF 
+	
+	CN = locont.cont
+	PcACN = loCont.Acont
+	lans(10436)
+ENDPROC && BAR_10_OF__08x0o1q7s_FB2P
+
+PROCEDURE BAR_11_OF__08x0o1q7s_FB2P
+	Lans(10504)
+ENDPROC && BAR_11_OF__08x0o1q7s_FB2P
+
+*</Procedures>