/* Neukunde aufnehmen
*/
/*
** Copyright © by Friedrich Siekmeier
** Version 1.01 vom 22.02.1999
** Erweiterung zum WordWorth-Assistenten
** WW-Rechnung und ...-PS
*/

OPTIONS RESULTS
ADDRESS AREXX

IF ~SHOW(L,'rexxreqtools.library') THEN DO
    ADDLIB('rexxreqtools.library',0,-30,0)
END

NKD=rtgetstring(,'Bitte Neukunden eingeben...ohne Umlaute äöü')
IF NKD < 1 THEN EXIT

OPEN(Auswahl,'Kunden:/Auswahl',R)
OPEN(KDAuswahl,'RAM:KDAuswahl',W)
DO FOREVER
	Lesen=READLN(Auswahl)
		IF INDEX(Lesen,NKD) ~= 0 THEN CALL ENDFILE
		IF Lesen='/*_neu_*/' THEN LEAVE
	WRITELN(KDAuswahl,Lesen)
END

NLN='IF KUNDENWAHL = "Kunden:/'NKD'" THEN CALL "Kunden:/'NKD'"'
WRITELN(KDAuswahl,NLN)
NLN='/*_neu_*/'
WRITELN(KDAuswahl,NLN)
NLN=''
WRITELN(KDAuswahl,NLN)
NLN='EXIT'
WRITELN(KDAuswahl,NLN)

CLOSE(Auswahl)
CLOSE(KDAuswahl)

OPEN(NKD,'Ram:'NKD,W)

rtezrequest('Alle folgenden Eingaben in'||'0A'x||'die Hochkommata setzen!')

WRITELN(NKD,'/* Kunde */')
WRITELN(NKD,'')
WRITELN(NKD,'')

NLN=rtgetstring('Text ''''','Anrede eingeben:')
IF NLN < 1 THEN EXIT
WRITELN(NKD,NLN)

NLN='NewParagraph'
WRITELN(NKD,NLN)

NLN=rtgetstring('Text ''''','Vorname und Name:')
IF NLN < 1 THEN EXIT
WRITELN(NKD,NLN)

NLN='NewParagraph'
WRITELN(NKD,NLN)

NLN=rtgetstring('Text ''''','Zusatz:')
IF NLN < 1 THEN EXIT
WRITELN(NKD,NLN)

NLN='NewParagraph'
WRITELN(NKD,NLN)

NLN=rtgetstring('Text ''''','Straße Hausnr. oder Postfach:')
IF NLN < 1 THEN EXIT
WRITELN(NKD,NLN)

NLN='NewParagraph'
WRITELN(NKD,NLN)

NLN='NewParagraph'
WRITELN(NKD,NLN)

NLN=rtgetstring('Text ''''','Postleitzahl:')
IF NLN < 1 THEN EXIT
WRITELN(NKD,NLN)

NLN='Text '''  ''''
WRITELN(NKD,NLN)

NLN='Bold'
WRITELN(NKD,NLN)

NLN='SingleUnderLine'
WRITELN(NKD,NLN)

NLN=rtgetstring('Text ''''','Ort:')
IF NLN < 1 THEN EXIT
WRITELN(NKD,NLN)

NLN='RETURN'
WRITELN(NKD,NLN)

CLOSE(NKD)
CLOSE(KDAuswahl)

ADDRESS COMMAND 'C:Delete >NIL: Kunden:/Auswahl.bak'

ADDRESS COMMAND 'C:Wait 3 secs'

ADDRESS COMMAND 'C:Rename Kunden:/Auswahl Kunden:/Auswahl.bak'
ADDRESS COMMAND 'C:Copy RAM:KDAuswahl Kunden:/Auswahl CLONE'
ADDRESS COMMAND 'C:Copy RAM:'NKD' Kunden:'

ADDRESS COMMAND 'C:Wait 3 secs'

ADDRESS COMMAND 'C:Delete >NIL: RAM:KDAuswahl'
ADDRESS COMMAND 'C:Delete >NIL: RAM:'NKD

rtezrequest('Sie haben nun den Neukunden eingetragen!')

EXIT

ENDFILE:

rtezrequest('Dieser Kundenname ist bereits'||'0A'x||'in der Auswahl enthalten.'||'0A'x||'Bitte neu eintragen!')

CLOSE(KDAuswahl)

ADDRESS COMMAND 'C:Delete >NIL: RAM:KDAuswahl'

EXIT