/* Laden der für die Beitragsnachweisung erforderlichen Daten */
/* aus mehreren Dateien bei mehreren Beschäftigten */

/* Als aktuellen datei muß "BN.db" geladen sein */
/* Dies könnte auch automatisch über ARexx erfolgen    */

Options Results

ADDRESS DATABASE

CurrentBase                        /* Aktuelle Base-Nummer merken */
oldbase = RC

Base 5                             /* Auf die 5. Base schalten */
                                   /* Achtung! Eine evtl. dort vorhandende Datei geht erloren */

Open "LohnBuchhaltung/Lohn_AT.db"  /* Nun werden nacheinander die 3 Dateien geladen, */
IF RC ~= 0 THEN EXIT 5
RightTotal                         /* an das Ende gesprungen,            */
GetData $F16                       /* der Inhalt aus Feld 16 gelesen und */
KV1 = RESULT                       /* in der Varibalen KVx gespeichert,  */
GetData $F17                       /* usw. mit Feld 17 und 18,           */
RV1 = result
GetData $F18
ALV1 = result
GetData $F10
Lohn1 = result
Close                              /* und anschließend die Datei wieder geschlossen */

Open "LohnBuchhaltung/Lohn_AT.Meier.db"
IF RC ~= 0 THEN EXIT 5
RightTotal                         /* Wenn die Dateinamen durchnummeriert sind */
GetData $F16                       /* könnte eine Schleife verwendet werden    */
KV2 = result
GetData $F17
RV2 = result
GetData $F18
ALV2 = result
GetData $F10
Lohn2 = result
Close

Open "LohnBuchhaltung/Lohn_AT.Müller.db"
IF RC ~= 0 THEN EXIT 5
RightTotal
GetData $F16
KV3 = result
GetData $F17
RV3 = result
GetData $F18
ALV3 = result
GetData $F10
Lohn3 = result
Close

Base oldbase                       /* Züruck zur ursprünglichen Datei, in der  */
                                   /* die Daten zusammen getragen werden sollen*/
ADD                                /* Neuen Datensatz erzeugen                 */
PutData $F1 KV1                    /* Schreiben der gelesenden Daten in die    */
PutData $F2 RV1                    /* entsprechenden Felder                    */
PutData $F3 ALV1
PutData $F4 KV2
PutData $F5 RV2
PutData $F6 ALV2
PutData $F7 KV3
PutData $F8 RV3
PutData $F9 ALV3
PutData $F13 Lohn1
PutData $F14 Lohn2
PutData $F15 Lohn3

ADDRESS