home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / applications / databases / databasepro / lohnbuchhaltung / bn1.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-10  |  2KB  |  41 lines
  1. /* Laden der für die Beitragsnachweisung erforderlichen Daten */
  2. /* aus der Datei Lohn_AT.db */
  3.  
  4. /* Als aktuellen datei muß "BN.db" geladen sein */
  5. /* Dies könnte auch automatisch über ARexx erfolgen    */
  6.  
  7. Options Results
  8.  
  9. ADDRESS DATABASE
  10.  
  11. CurrentBase                         /* Aktuelle Base-Nummer merken */
  12. oldbase = RC
  13.  
  14. Base 5                              /* Auf die 5. Base schalten    */
  15.                                     /* Achtung! Eine evtl. dort vorhandende Datei geht erloren */
  16.  
  17. Open "LohnBuchhaltung/Lohn_AT.db"   /* Nun wird die Datei geladen, */
  18. IF RC ~= 0 THEN EXIT 5
  19. RightTotal                          /* an das Ende gesprungen,            */
  20. GetData $F16                        /* der Inhalt aus Feld 16 gelesen und */
  21. KV1 = RESULT                        /* in der Varibalen KVx gespeichert,  */
  22. GetData $F17                        /* usw. mit Feld 17 und 18,           */
  23. RV1 = result
  24. GetData $F18
  25. ALV1 = result
  26. GetData $F10
  27. Lohn1 = result
  28. Close                               /* und anschließend die Datei wieder geschlossen */
  29.  
  30.  
  31. Base oldbase                        /* Züruck zur ursprünglichen Datei, in der die Daten */
  32.                                     /* zusammen getragen werden sollen       */
  33. ADD                                 /* Neuen Datensatz erzeugen              */
  34. PutData $F1 KV1                     /* Schreiben der gelesenden Daten in die */
  35. PutData $F2 RV1                     /* entsprechenden Felder                 */
  36. PutData $F3 ALV1
  37. PutData $F13 Lohn1
  38.  
  39. ADDRESS
  40.  
  41.