DCP_REDABAS4__Progra.. - Das ist die Eingangsseite, an der ...

MODIFY COMMAND progkunl
auf. Sie befinden sich im REDABAS-4-Texteditor. Druecken Sie
die Tastenkombination und anschliessend . Das ist
ein Befehl des Texteditors zum Einlesen bzw. Einfuegen einer
Datei. Wir moechten die Programmdatei "prog2" uebernehmen und
geben auf die Aufforderung "Dateiname eingeben: " den vollstaendigen
Dateinamen ein:
prog2.prg
Das Programm "p rog2 11 wird damit nach "progkunl " kopiert.
("prog2" bleibt trotzdem erhalten). Wir brauchen nun nur noch
einige Befehle einzufuegen bzw. die Stellung einiger Befehle zu
veraendern.
Bild 88 zeigt das aus "prog2" abgeleitete und modifizierte
Programm "progkunl " .
* Programm Kundenbeleg
1
SET TALK OFF && Unterdruecken der Meldungen
1
SELECT 2
1
USE ~uftrag INDEX kunrauf ALIAS auf
1
SELECT 1
1
USE kunden ALIAS ku
1
SET RELATION TO kunr INTO auf
1
weiter :'IJ'I
1
DO WHILE UPPER(weiter) "Nil
1
CLEAR
SET DEVICE TO PRINTER
1
1
@ 1,22 SAY "Kundenbeleg"
1
ACCEPT "Bitt~ Namen eingeben: " TO Sname
1
ACCEPT "Bitte Vornamen eingeben: 11 TO Svorname
1
LOCATE FOR (Sname$name .AND. Svorname$vorname)
@ 2,0 CLEAR
@ 5,5 SAY TRIM(name)+", "+vorname
1
1
1
@ 7,5 SAY "Kundennummer:"+" "+kunr
1
@ 7,30 SAY strasse
@ 8,30 SAY ort
@ 9,30 SAY pIz
1
1
1
@ 12,5 SAY "letzter Auftrag vom:"+" "+DTOC(auf->datum) 1
@ 14,5 SAY t'Betrag:"+STR(auf->betrag,e,2)+" "+"M "
WArT I'Fuer weite~e Kundenbelege , sonst N druecken!
1
"; I
TO weiter
1
ENDDO
CLEAR AtL
SET DEVICE TO SCREEN
SET TALK ON
1
1
1
1
RETqRN 1
____________________________________________________________ 1
Bild 88
Programm "progkunl" zur Erstellung von Kundenbelegen
mit Programmschleife realisiert
Wieder sollen einige unbekannte Befehle bzw. Funktionen erlaeutert
werden.
Das Durchlaufen der DO WHILE-Schleife wird hier vom Inhalt
einer Speichervariablen abhaengig gemacht. Um die Schleife
- 130 -