EDB-systems betydning for revisors arbejde - Peter Havskov ...
EDB-systems betydning for revisors arbejde - Peter Havskov ...
EDB-systems betydning for revisors arbejde - Peter Havskov ...
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Tilrettelige <strong>EDB</strong>-systemers <strong>betydning</strong> <strong>for</strong> revisor 83<br />
Apris := ROUND(Apris,0.00001);<br />
HentResKostPris() SalgsLinie<br />
dbINITREC(ResKostPris);<br />
ResKostPris.Kode := Nummer;<br />
ResKostPris.ArbejdsTypeKode := ArbejdsTypeKode;<br />
callFUNCTION(220,ResKostPris);<br />
KostPris := ResKostPris.KostPris;<br />
BeregnNettoBrutto() SalgsLinie<br />
dbTESTFIELD(Art);<br />
HentHoved;<br />
NettoBeløb := ROUND(Antal*Apris)-RabatBeløb;<br />
BruttoBeløb := NettoBeløb;<br />
IF Hoved.BruttoPriser THEN<br />
NettoBeløb := ROUND(BruttoBeløb/(1+"Moms%"/100),0.00001)<br />
ELSE<br />
BruttoBeløb := ROUND(NettoBeløb*(1+"Moms%"/100),0.00001);<br />
IF Antal 0 THEN BEGIN<br />
"RestOrdre(beløb)" := ROUND(BruttoBeløb * "RestOrdre(antal)"/Antal);<br />
"Lev.EjFak.(beløb)" := ROUND(BruttoBeløb * "Lev.EjFak.(antal)"/Antal);<br />
END ELSE BEGIN<br />
"RestOrdre(beløb)" := 0;<br />
"Lev.EjFak.(beløb)" := 0;<br />
END;