/* Laden der für die Beitragsnachweisung erforderlichen Daten */
/* aus der Datei Lohn_AT.db */

/* 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 wird die Datei 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 */


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 $F13 Lohn1

ADDRESS