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

Tilrettelige EDB-systemers betydning for revisor 78
6.8 Efterbehandlingskode
Udskrift af efterbehandlingskode for kartoteket SalgsLinie:
Efterbeh.kode 37 Rettet d. 04-12-94 8.26.31
PCC7,AA
Interne var.
B Navn Type Kartotek Læn Dim1 Dim2 Dim3
Hoved Record SalgsHoved
RegnskabsData Record RegnskabsData
FinansKonto Record FinansKonto
Vare Record Vare
VareTekst Record VareTekst
VareBogfGr Record VareBogf.Gr
DebBogfGr Record DebitorBogf.Gr
DebVareRabat Record Deb.VareRabat
MængdeRabat Record VareSalgsMængde
Moms Record Moms
VareSalgsPris Record VareSalgsPris
VP Record VarePost
Ressource Record Ressource
ResBogfGr Record Res.Bogf.Gr
ResSalgsPris Record Res.SalgsPris
ResKostPris Record Res.KostPris
ArbejdsType Record ArbejdsType
xArt Heltal
xNummer Kode 20
PrisIValuta JaNej
PrisInklMoms JaNej
SagsPost Record SagsPost
VareGruppe Record VareGruppe
Beskrivelse
OPRET SalgsLinie
dbLOCKFILE(SalgsLinie);
Hoved.Nummer := ’’;
HentHoved;
SLET SalgsLinie
dbTESTFIELD("Lev.EjFak.(antal)",0);
SPECIALRELATION SalgsLinie
IF (FeltNr = dbFIELDNO(UdlignLøbeNr)) OR (FeltNr = dbFIELDNO(SerieNr)) THEN
IF Art=2 THEN BEGIN {VareLinie}
dbSELECTKEY(VP.VareNr,VP.Åben);
dbSETRANGE(VP.VareNr,Nummer);
dbSETRANGE(VP.Åben,TRUE);
IF callWINDOW(63,VP) THEN BEGIN
IF FeltNr = dbFIELDNO(UdlignLøbeNr) THEN
UdlignLøbeNr := VP.LøbeNr;
LokationsKode := VP.LokationsKode;
SerieNr := VP.SerieNr;
END;
END;
IF (FeltNr = dbFIELDNO(SagsPostLøbeNr)) OR (FeltNr = dbFIELDNO(SagsUdligningsID)) THEN BEGIN
dbSELECTKEY(SagsPost.SagsNr,SagsPost.Åben,SagsPost.Positiv,SagsPost.Dato);
dbSETRANGE(SagsPost.SagsNr,SagsNr);
dbSETRANGE(SagsPost.Åben,TRUE);