| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354 |
- DEF VAR i1 AS INT NO-UNDO.
- DEF VAR i2 AS INT NO-UNDO.
- DEF VAR cName AS CHAR NO-UNDO.
- OUTPUT TO 'C:\temp\Versicherungsliste1000.txt' NO-ECHO NO-MAP NO-CONVERT.
- FOR EACH Debst USE-INDEX Debst-k1
- WHERE Debst.Firma = '1000'
- AND Debst.Aktiv = TRUE NO-LOCK,
- FIRST Adresse USE-INDEX Adresse-k1
- WHERE Adresse.Firma = '1000'
- AND Adresse.Knr = Debst.Knr
- AND Adresse.Aktiv = TRUE NO-LOCK
- BREAK BY Debst.Ku_Grp
- BY Debst.Knr :
- IF FIRST-OF ( Debst.Ku_Grp ) THEN DO:
- IF NOT FIRST ( Debst.Ku_Grp ) THEN PUT CONTROL '£' CHR(10).
- FIND Tabel USE-INDEX Tabel-k1
- WHERE Tabel.Firma = Debst.Firma
- AND Tabel.RecArt = 'KUNDGRP'
- AND Tabel.CodeC = ''
- AND Tabel.CodeI = Debst.Ku_Grp
- AND Tabel.Sprcd = 1 NO-LOCK NO-ERROR.
- PUT CONTROL STRING(Debst.Ku_Grp,'999 ').
- IF AVAILABLE Tabel THEN PUT CONTROL Tabel.Bez1.
- PUT CONTROL CHR(10).
- END.
- cName = TRIM(Adresse.Firma1 + ' ' + Adresse.Firma2).
- IF cName <> '' AND
- Adresse.NAME <> '' THEN cName = cName + ', '.
- cName = cName + TRIM(Adresse.NAME + ' ' + Adresse.Vorname).
- cName = TRIM(cName).
- PUT CONTROL '£'
- STRING(Debst.Knr,'999999') '£'
- cName '£'
- Adresse.Strasse '£'
- Adresse.Plz '£'
- Adresse.Ort '£'.
- DO i1 = 2001 TO 2004:
- FIND DebUms USE-INDEX DebUms-k1
- WHERE DebUms.Firma = Debst.Firma
- AND DebUms.Jahr = i1
- AND DebUms.Knr = Debst.Knr
- AND DebUms.Ums_Grp = 999 NO-LOCK NO-ERROR.
- IF AVAILABLE DebUms THEN PUT CONTROL TRIM(STRING(DebUms.Vp_Kum,'->>>>>>>>9')).
- PUT CONTROL '£'.
- END.
- PUT CONTROL TRIM(STRING(Debst.Saldo,'->>>>>>>>99')) CHR(10).
- END.
- OUTPUT CLOSE.
|
