Werbung
ARBEITEN MIT MEHREREN DATEIEN
Lager
Verkaufsstatistik
Hereinkommende
Lieferungen
36
Wir können auch ohne viel Mühe eine Prozedur definieren, die uns einen Überblick
über den Lagerbestand gibt.
Proz
Lager
Leeren
zeigen
Tab 2i "POSTEN"i
zeigen
Tab 20i
zeigen
Tab 40i
zeigen
setzen
tota
L=O
aktiv
"La"
aLL e
setzen
k=Länge(bezeichnung$)
wenn k>10
zeigen
bezeichnung$(bis
sonst
zeigen
bezeichnung$i
endewenn
zei gen Tab 11 i La. Lager
zei gen Tab 20i Menge i
zeigen
Tab 31i"DM "iV
setzen
totaL=totaL+V-Preis*Menge
endealle
zeigen
zeigen
"Lagerwert
freibild
EndeProz
Um einen Verkauf zu registrieren, wird die Anzahl der verkauften Warenposten aus dem
entsprechenden Datensatz in der Lager-Datei subtrahiert. Auch hier ist es eine gute
Idee, eine Bestätigung einzubauen, um sicherzustellen, daß wir den richtigen Datensatz
vorliegen haben, und ferner, daß der Lagerbestand ausreicht, um die Verkaufsmenge
zu liefern.
Proz
Bestand
anm *****
Vorhandener
anfrage2
zeigen
ei ngabe
"Anzah L? "i num
Leeren
zeigen
* "iLa.Lager
numj "
EndeProz
Proz
Verkauf
anm *****
Vorgang
Bestand
wenn num<=La.Menge
zeigen
"Auftragswert:DM
bestätigen
wenn ja
setzen
La.Menge=La.Menge-num
ersetzen
banzeige:
anm *** aktuaLisierten
endewenn
sonst
zei gen "Warenbestand
endewenn
b i Ld
frei
EndeProz
Unsere nächste Prozedur registriert hereinkommende Lieferungen. Auch hier erfolgt die
Modifikation und Aktualisierung des Datensatzes erst, nachdem Sie die Bestätigung
geben.
Proz
Ei ngang
Bestand
bestätigen
zeigen
wenn ja
zei gen "Akzept
Tab 11i
"CODE"i
"MENGE"i Tab 31 i "PREIS"i
"LAGERWERT"i
10)i
nr$i
_
Pr e i s ; Tab 40i"DM "iV
_
insgesamt
= DM"itotal
Warenbestand
Nr$i"
("iLa.Bezeichnung$i")"
_
verarbeiten
*****
"inum*La.V
_
ni cht
ausrei
chend"
i ert"
Preis*Menge
*****
Preis
Datensatz
vorzeigen
***
(
(
(
3/85
Werbung
Kapitel
