1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
(*
**********************************************************
**********************************************************
** **
** ls-Warenhaus/gen **
** **
** Version 1.01 **
** **
** **
** (Stand: 30.08.89) **
** **
** **
** **
** Autor: Bruno Pollok, Bielefeld **
** **
** Copyright (C) 1988 Eva Latta-Weber, Bielefeld **
** Copyright (C) 1990 ERGOS GmbH, Siegburg **
** **
**********************************************************
**********************************************************
*)
LET kartenleserkennung = "ls-Warenhaus 0: mit Kartenleser";
baue bildschirm auf;
schicke menukarte ab;
erfrage anpassung;
check off;
warnings off;
insertiere (anpassung);
loesche alle anpassungen;
insertiere ("ls-Warenhaus 1");
insertiere ("ls-Warenhaus 2");
insertiere ("ls-Warenhaus 3");
insertiere ("ls-Warenhaus 4");
insertiere ("ls-Warenhaus 5");
check on;
frage nach grin;
frage nach hauptstelle.
baue bildschirm auf:
page;
cursor (18, 1);
out (invers ("ls-Warenhaus : Automatische Generierung"));
line (3).
erfrage anpassung:
WINDOW VAR w :: window (1, 1, 79, 24);
TEXT VAR anpassung :: boxone (w, alle kartenleser,
"Auswahl einer Interface - Anpassung für den Codekartenleser",
"Wenn kein Kartenleser benutzt wird, <ESC><q> tippen!", FALSE);
IF anpassung = ""
THEN anpassung := "ls-Warenhaus 0: ohne Kartenleser"
FI;
baue bildschirm auf.
alle kartenleser:
infix namen (ALL myself, kartenleserkennung).
loesche alle anpassungen:
command dialogue (FALSE);
forget (infixnamen (ALL myself, "ls-Warenhaus 0"));
forget ("--------------------------------------------------------",quiet);
command dialogue (TRUE).
schicke menukarte ab:
command dialogue (FALSE);
save ("ls-MENUKARTE:Warenhaus", /"ls-MENUKARTEN");
command dialogue (TRUE);
forget ("ls-MENUKARTE:Warenhaus", quiet);
forget ("ls-Warenhaus/gen", quiet).
frage nach grin:
line;
IF yes ("Version für GRIN")
THEN do ("grin (TRUE)")
ELSE do ("grin (FALSE)")
FI.
frage nach hauptstelle:
line (2);
IF yes ("Soll diese Task Warenhaus - Hauptstelle sein")
THEN do ("warenhaus hauptstelle (TRUE)")
ELSE global manager
FI.
;
PROC insertiere (TEXT CONST dateiname):
INT VAR s, z;
out ("'" + dateiname + "'");
get cursor (s, z);
out (" wird insertiert. ");
insert (dateiname);
forget (dateiname, quiet);
cursor (s, z);
out (""4"") ;
line
END PROC insertiere
|
