EDB-systems betydning for revisors arbejde - Peter Havskov ...

Tilrettelige EDB-systemers betydning for revisor 81
Faktureres := "Leveret(antal)"+Leveres-"Faktureret(antal)";
Apris SalgsLinie
IF (Antal > 10) AND (Antal*Apris > 100) THEN
"Rabat%" := 5
ELSE
"Rabat%" := 0; tilføjet kode
dbCALLFIELDCODE("Rabat%");
MomsKode SalgsLinie
IF MomsKode ’’ THEN BEGIN
dbGETREC(Moms,MomsKode);
dbTESTFIELD(Moms.Art,1);
"Moms%" := Moms."Moms%";
HentHoved;
IF NOT Hoved.MomsPligtig THEN
"Moms%" := 0;
END ELSE
"Moms%" := 0;
BeregnNettoBrutto();
MængdeRabat% SalgsLinie
dbGETREC(RegnskabsData);
IF RegnskabsData.LinieRabatBeregning = 0 THEN {K/V+Mængde}
"Rabat%" := "Deb.VareRabat%"+"MængdeRabat%"
ELSE
"Rabat%" := ROUND(100-(100*(1-"Deb.VareRabat%"/100)*(1-"MængdeRabat%"/100)));
IF "Rabat%" > 100 THEN
"Rabat%" := 100;
dbCALLFIELDCODE("Rabat%");
Rabat% SalgsLinie
RabatBeløb := ROUND(Antal*Apris*"Rabat%"/100);
BeregnNettoBrutto();
RabatBeløb SalgsLinie
dbTESTFIELD(Antal);
BeregnNettoBrutto();
NettoBeløb SalgsLinie
dbTESTFIELD(Art);
dbTESTFIELD(Antal);
BruttoBeløb := ROUND(NettoBeløb*(1+"Moms%"/100),0.00001);
HentHoved();
IF Hoved.BruttoPriser THEN
RabatBeløb := ROUND(Antal*Apris)-BruttoBeløb
ELSE
RabatBeløb := ROUND(Antal*Apris)-NettoBeløb;
"RestOrdre(beløb)" := ROUND(BruttoBeløb * "RestOrdre(antal)"/Antal);
"Lev.EjFak.(beløb)" := ROUND(BruttoBeløb * "Lev.EjFak.(antal)"/Antal);
BruttoBeløb SalgsLinie
dbTESTFIELD(Art);
dbTESTFIELD(Antal);
NettoBeløb := ROUND(BruttoBeløb/(1+"Moms%"/100),0.00001);
HentHoved();
IF Hoved.BruttoPriser THEN
RabatBeløb := ROUND(Antal*Apris)-BruttoBeløb
ELSE
RabatBeløb := ROUND(Antal*Apris)-NettoBeløb;
"RestOrdre(beløb)" := ROUND(BruttoBeløb * "RestOrdre(antal)"/Antal);
"Lev.EjFak.(beløb)" := ROUND(BruttoBeløb * "Lev.EjFak.(antal)"/Antal);
PrisGruppeNr SalgsLinie
IF Art = 2 THEN BEGIN {VareLinie}