*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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>
