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.