/* Fakturierung Kundennummer zeigen */

OPTIONS RESULTS

outdev = 1 /* 1 für CON:    2 für MultiView */

IF outdev = 1 THEN
  device = "CON:0/14/640/200/Aufträge/WAIT/CLOSE/SCREENDataBase"
ELSE
  device = "T:Auftrag"

ADDRESS DataBase

CurrentBase
oldbase = RC

DBtoFront

RequestText "Name des Kunden eingeben"
kunde = RESULT
IF RC = 5 THEN EXIT

Display OFF

FindBase 'Kunden.db'
newbase = RC
IF newbase > 0 THEN
  Base newbase
ELSE
  DO
  Base 1
  OPEN "ProFaktDEMO/Kunden/Kunden.db"
END

SETSEARCH CASE FIELD COMPLETE SIMILAR
SEARCHFIELD $F3

SEARCH kunde

IF RC = 5 THEN DO
  Base oldbase
  Display On
  Request "_Ok" "Suchbegriff nicht gefunden"
  EXIT
END

weiter = 0
count = 0

DO WHILE weiter = 0
  count = count + 1
  GetData $F3
  nname.count = Left(RESULT,15)
  GetData $F4
  vname.count = Left(RESULT,15)
  GetData $F9
  ort.count = Left(RESULT,15)
  GetData $F1
  kdnr.count = Left(RESULT,10)
  SearchNext kunde
  weiter = RC
END
Base oldbase
Display On

idx = 1
ok = Open(out,device,W)
ok = WriteLn(out,"Name            | Vorname         | Ort             | Kd.Nr")
ok = WriteLn(out,"----------------------------------------------------------------")
DO WHILE idx <= count
  ok = WriteLn(out,nname.idx || "   " || vname.idx || "   " || ort.idx || "   " || kdnr.idx )
  idx = idx + 1
END
ok = Close(out)

IF outdev = 2 THEN DO
  ADDRESS COMMAND
  'SYS:Utilities/Multiview PUBSCREEN DataBase ' || device
END

ADDRESS