home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ACASH_1.DMS / in.adf / Rexx / ACashTCExport.acash next >
Encoding:
Text File  |  1994-09-01  |  893 b   |  79 lines
  1. /*ACashbuchungstransfer an TurboCalc*/
  2.  
  3. OPTIONS RESULTS
  4.  
  5.  
  6. /*TurboCalc initialisieren*/
  7.  
  8. address TCALC
  9.  
  10. NEWSHEET '"ACash_Import"'
  11.  
  12. SELECTCELL A1
  13. PUT '"Datum"' 
  14.  
  15. SELECTCELL B1
  16. PUT '"Betrag"' 
  17.  
  18. SELECTCELL C1
  19. PUT '"Klasse"' 
  20.  
  21. SELECTCELL d1
  22. PUT '"Subklasse"' 
  23.  
  24. SELECTCELL E1
  25. PUT '"Empfänger"' 
  26.  
  27. SELECTCELL F1
  28. PUT '"Text"' 
  29.  
  30.  
  31. address ACASH_REXX
  32.  
  33. /* Doppelhochkomma für Strings mit Spaces*/
  34.  
  35. dk='22'x
  36.  
  37.  
  38. i=0
  39. x=1
  40. do while x>0
  41.     NEXTENTRY '"entry"'
  42.     if (result=="1") then do
  43.         x=1
  44.         address TCALC
  45.         
  46.         DOWN 1
  47.         GOTOCOLUMN 1
  48.         
  49.         PUT entry.Date.Day||"."||entry.Date.Mon||"."||entry.Date.Year
  50.         RECHTS 1
  51.         
  52.         if (entry.in>0) then do
  53.             put entry.in
  54.             end
  55.         else do
  56.             put entry.out*-1
  57.         end
  58.         RECHTS 1
  59.  
  60.         PUT entry.class
  61.         RECHTS 1
  62.  
  63.         PUT entry.subclass-entry.class*100
  64.         RECHTS 1
  65.  
  66.         PUT dk||entry.customer||dk
  67.         RECHTS 1
  68.  
  69.         PUT dk||entry.remark||dk
  70.  
  71.         
  72.         address ACASH_REXX
  73.     end
  74.     else do
  75.      x=0
  76.     end
  77. end
  78.  
  79.