home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Global Amiga Experience
/
globalamigaexperience.iso
/
applications
/
databases
/
databasepro
/
lohnbuchhaltung
/
bn3.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-07-10
|
2KB
|
74 lines
/* 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