65 lines
1.8 KiB
Plaintext
65 lines
1.8 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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>
|