home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / applications / databaseprodemo2.lha / LohnBuchhaltung / BN3.rexx < prev    next >
OS/2 REXX Batch file  |  1994-11-25  |  2KB  |  74 lines
  1. /* Laden der für die Beitragsnachweisung erforderlichen Daten */
  2. /* aus mehreren Dateien bei mehreren Beschäftigten */
  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 werden nacheinander die 3 Dateien 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. Open "LohnBuchhaltung/Lohn_AT.Meier.db"
  31. IF RC ~= 0 THEN EXIT 5
  32. RightTotal                         /* Wenn die Dateinamen durchnummeriert sind */
  33. GetData $F16                       /* könnte eine Schleife verwendet werden    */
  34. KV2 = result
  35. GetData $F17
  36. RV2 = result
  37. GetData $F18
  38. ALV2 = result
  39. GetData $F10
  40. Lohn2 = result
  41. Close
  42.  
  43. Open "LohnBuchhaltung/Lohn_AT.Müller.db"
  44. IF RC ~= 0 THEN EXIT 5
  45. RightTotal
  46. GetData $F16
  47. KV3 = result
  48. GetData $F17
  49. RV3 = result
  50. GetData $F18
  51. ALV3 = result
  52. GetData $F10
  53. Lohn3 = result
  54. Close
  55.  
  56. Base oldbase                       /* Züruck zur ursprünglichen Datei, in der  */
  57.                                    /* die Daten zusammen getragen werden sollen*/
  58. ADD                                /* Neuen Datensatz erzeugen                 */
  59. PutData $F1 KV1                    /* Schreiben der gelesenden Daten in die    */
  60. PutData $F2 RV1                    /* entsprechenden Felder                    */
  61. PutData $F3 ALV1
  62. PutData $F4 KV2
  63. PutData $F5 RV2
  64. PutData $F6 ALV2
  65. PutData $F7 KV3
  66. PutData $F8 RV3
  67. PutData $F9 ALV3
  68. PutData $F13 Lohn1
  69. PutData $F14 Lohn2
  70. PutData $F15 Lohn3
  71.  
  72. ADDRESS
  73.  
  74.