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

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

Meniuri/imobilizari6.mn2

@@ -0,0 +1,64 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.21" SourceFile="imobilizari6.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*<MenuType>4</MenuType>
+*<MenuLocation>REPLACE</MenuLocation>
+
+*<MenuCode>
+DEFINE POPUP Rate SHORTCUT RELATIVE FROM MROW(),MCOL()
+DEFINE BAR 1 OF Rate PROMPT "\Plata rate"
+ON SELECTION BAR 1 OF Rate DO BAR_1_OF_Rate_FB2P
+ACTIVATE POPUP Rate
+
+*</MenuCode>
+
+*<Procedures>
+PROCEDURE BAR_1_OF_Rate_FB2P
+	
+	
+	
+	*!*	do tva
+	*!*	local s1,s2,s3,s4,s5
+	*!*	store 0 to m.suma,s1,s2,s3,s4,s5
+	*!*	m.explicatia='DIFERENTA CURS VALUTAR'
+	*!*	do abc1 with '665 ','404 '
+	
+	*!*	s1=m.suma
+	*!*	s2=round((m.ctva-1)*s1,0)
+	*!*	m.suma=s2
+	*!*	m.explicatia='TVA'
+	*!*	do abc1 with '4426','404 '
+	
+	*!*	M.SUMA=0
+	*!*	m.explicatia='DOBANDA'
+	*!*	do abc1 with '666 ','404 '
+	
+	*!*	s3=m.suma
+	*!*	m.explicatia='PENALITATI'
+	*!*	do abc1 with '6711','404 '
+	
+	*!*	s4=m.suma
+	*!*	m.explicatia='PRIMA CASCO'
+	*!*	do abc1 with '613 ','404 '
+	*!*	s5=m.suma
+	*!*	M.TOTCTVA=S1+S2+S3+S4+S5
+	*!*	M.TOTFTVAM=S1
+	*!*	M.TVAM=S2
+	*!*	M.NEIMPOZAB=S3+S4+S5
+	
+	*!*	SELE FURNIZ404
+	*!*	SET filter to
+	*!*	LOCA for allt(nume)=allt(m.nume)
+	*!*	IF flock()
+	*!*		REPL achizit with achizit+M.TOTCTVA
+	*!*	ENDIF
+	*!*	UNLOCK
+	*!*	DO ADCUMP404
+	
+	*!*	DO STERGE
+	*!*	RETURN
+ENDPROC && BAR_1_OF_Rate_FB2P
+
+*</Procedures>