home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / eupm2_24.zip / PrintTax.cmd < prev    next >
OS/2 REXX Batch file  |  1999-09-19  |  2KB  |  57 lines
  1. /* liefert die Gebührendaten - Version 0.03 (ab EuraPM2 Paket 0.24) */
  2. /* Wenn ein Datum als Parameter angegeben wird, werden die Daten ab diesem Datum geliefert */
  3. /* Das Datum muß im Format dd.mm.yyyy vorliegen */
  4.  
  5. call RxFuncAdd SysLoadFuncs, RexxUtil, SysLoadFuncs
  6. call SysLoadFuncs
  7.  
  8. call RxFuncAdd 'DbRxLoadFuncs', CaTable, 'DbRxLoadFuncs' 
  9. call DbRxLoadFuncs
  10.  
  11. call RxFuncAdd 'ErxLoadFuncs', 'EClient', 'ErxLoadFuncs' 
  12. call ErxLoadFuncs
  13.  
  14. parse arg DateStart
  15.  
  16. if length( DateStart )>0 then
  17.    DateStart = ErxGetDays( DateStart )  /* Datum in Anzahl Tage umwandeln */
  18.  else
  19.    DateStart = 0                        /* alle Datensätze ausgeben */
  20.  
  21. rc = ErxOpenTaxDb( 'ulCount' )
  22. if rc>0 then 
  23. do 
  24.    say ErxGetErrorText( rc ) 'bei open'
  25.    exit rc
  26. end /* do */
  27.  
  28. say ulCount 'Datensätze'
  29. ulCount = ulCount - 1
  30.  
  31. do i=0 to ulCount
  32.    rc = ErxGetTaxDbData( i, 'Data', 'TRNVODZdGg' )   
  33. /*
  34.    rc = ErxGetTaxDbData( i, 'Data', 'TtMRNVODZdSQKGgPpIi' )   
  35.    rc = ErxGetTaxDbData( i, 'Data', 'RGgPpIi' )
  36.    rc = ErxGetTaxDbData( i, 'Data' )
  37. */
  38.    if rc==0 then
  39.    do 
  40.       Datum = ErxSubCol( Data, 6, '; ' )    /* Spalte 8 (Datum) aus Data extrahieren */
  41.       Datum = ErxGetDays( Datum )           /* Datum in Anzahl Tage umwandeln */
  42.       if Datum >= DateStart then
  43.       do 
  44.          say Data
  45.       end /* do */
  46.    end /* do */
  47.    else
  48.    do 
  49.       say ErxGetErrorText( rc ) 'bei ErxGetTaxDbData'
  50.       leave
  51.    end /* do */
  52. end /* do */
  53.  
  54. call ErxCloseTaxDb
  55.  
  56.  
  57.