home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / applications / databases / databasepro / arexx / lesen.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-10  |  3KB  |  64 lines
  1. /* Mit diesem ARexx-Skript werden Daten aus der Kundenkartei gelesen          */
  2. /* und in die Datei 'Rechung' übertragen.                                     */
  3.  
  4. Options results
  5.  
  6. ADDRESS DataBase
  7.  
  8. CurrentBase                          /* aktuelle Base-Nr. merken              */
  9. oldbase = RC
  10.  
  11. /* Wenn hier nun                                                              */
  12. /* Display OFF                                                                */
  13. /* folgt, wird die nachfolgende Bildschirmaktualisierung ausgeschaltet.       */
  14. /* Das Wechseln auf eine andere Base ist dann z.B. nicht mehr sichtbar        */
  15. /* Am Ende muß dann noch 'Display On' und 'Show' folgen um den Bildschirm     */
  16. /* wieder zu aktualiesieren.                                                  */
  17.  
  18. FindBase 'kundenkartei.db'           /* gibt die Base-Nr. zurück, in der die  */
  19. newbase = RC                         /* Datei geladen ist.                    */
  20.  
  21. IF newbase > 0 THEN                  /* Ist die Datei vorhanden, dann         */
  22.   Base newbase                       /* auf die neue Base umschalten          */
  23. ELSE                                 /* wenn nicht,                           */
  24.   DO                                 /* dann                                  */
  25.   Base 5                             /* auf Base 5 umschalten                 */
  26.   OPEN "DBFaktura/kundenkartei.db"   /* Datei Kundenkartei.db laden           */
  27. END
  28.  
  29. RequestText "Kundennummer eingeben!" /* Eingaberequester öffnen               */
  30. N1 = RESULT                          /* eingegebenen Text in RESULT speichern */
  31. klick1 = RC                          /* In RC wird das selektierte Gadget     */
  32.                                      /* gespeichert.                          */
  33.                                      /* 0 falls OK, 5 falls Abbruch           */
  34.  
  35. IF Klick1 = 0 THEN
  36.   DO
  37.   LeftTotal                          /* an den Anfang der Datei springen      */
  38.   Search N1 CASE                     /* eingegeben Suchbegriff suchen         */
  39. END
  40.  
  41. GetData $F1                          /* Inhalt aus Feld 1 lesen               */
  42. Anr = RESULT                         /* und in der Variablen 'Anr' speichern  */
  43. GetData $F2
  44. Nm1 = RESULT
  45. GetData $F3
  46. Nm2 = RESULT
  47.  
  48. Base oldbase                         /* auf vorherige Base zurückschalten     */
  49.  
  50. RightTotal                           /* ans Ende der Datei springen           */
  51. ADD                                  /* neuen Datensatz erzeugen              */
  52. PutData $F1 Anr                      /* Inhalt aus Variablen 'Anr' in Feld 1 übertragen */
  53. PutData $F2 Nm1
  54. PutData $F3 Nm2
  55.  
  56. /* Wurde zuvor 'Display Off' verwendet, muß nun               */
  57. /* Display On                                                 */
  58. /* Show                                                       */
  59. /* folgen, um die Bildschirmausgabe wieder zu aktualiesieren. */
  60.  
  61. ADDRESS
  62.  
  63.  
  64.