home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ACASH_1.DMS / in.adf / Rexx / Entry / DruckeELastschrift.acash < prev    next >
Encoding:
Text File  |  1994-09-05  |  2.0 KB  |  113 lines
  1. /*ACash pro Print Entry normal*/
  2.  
  3. OPTIONS RESULTS
  4. address ACASH_REXX
  5.  
  6. /*Nötige Daten besorgen: Empfängerliste, Projektinfo, aktives konto*/
  7.  
  8. GetAttrs '"CUSTOMERS"' '"CUST"'
  9.  
  10. GetAttrs '"PROJECT"' '"PROJ"'
  11.  
  12. GetAccData '"ACC"'
  13.  
  14. getprtfile
  15. file=result
  16.  
  17. if Open('temp',file,'w') then do
  18.     setscrtitle '"Fetching data ..."'
  19.     getactiveENTRY '"entry"'
  20.     if (result=="1") then do
  21.         setscrtitle '"Rendering..."'
  22.  
  23.         i=0
  24.         x=-1
  25.         do while i<cust.count
  26.             namen=""
  27.             namen=cust.i.name||" "||cust.i.surename
  28.  
  29.             if (namen=entry.customer) then do
  30.                 x=i
  31.                 break
  32.                 end
  33.             if (x>-1) then break
  34.             i=i+1
  35.         end
  36.         if (x>-1) then do
  37.  
  38.             ename=""
  39.             ektonr=""
  40.             eblz=""
  41.             zweck=""
  42.             btr=0
  43.             zname=""
  44.             zkto=""
  45.  
  46.             if (entry.in>0) then do       /*Eingang*/
  47.  
  48.                 ename=left(entry.customer,27)
  49.                 ektonr=cust.i.accnr
  50.                 eblz=cust.i.bankcode
  51.  
  52.                 zweck=entry.remark
  53.  
  54.                 btr=entry.in
  55.  
  56.                 zname=Left(proj.owner,27)
  57.                 zkto=acc.accnr
  58.  
  59.                 end
  60.             else do                           /*Ausgang*/
  61.  
  62.                 ename=Left(proj.owner,27)
  63.                 ektonr=acc.accnr
  64.                 eblz=acc.bankcode
  65.  
  66.                 zweck=entry.remark
  67.  
  68.                 btr=entry.out
  69.  
  70.                 zname=left(entry.customer,27)
  71.                 zkto=cust.i.accnr
  72.  
  73.                 end
  74.  
  75.             call writeln('temp',"")
  76.             call writeln('temp',"")
  77.             call writeln('temp',"")
  78.  
  79.             call writeln('temp',"")
  80.  
  81.             call writeln('temp',"   "||ename)
  82.             call writeln('temp',"")
  83.             call writeln('temp',"   "||left(ektonr,19)||Left(" ",18)||eblz)
  84.             call writeln('temp',"")
  85.             call writeln('temp',"")
  86.             call writeln('temp',"")
  87.  
  88.             call writeln('temp',Left(" ",32)||Right(btr,22,'-'))
  89.             call writeln('temp',"")
  90.             call writeln('temp',"   "||zweck)
  91.             call writeln('temp',"")
  92.             call writeln('temp',"")
  93.             call writeln('temp',"")
  94.             call writeln('temp',"   "||zname)
  95.             call writeln('temp',"")
  96.             call writeln('temp',"   "||Left(zkto,19))
  97.  
  98.             call writeln('temp',"")
  99.             call writeln('temp',"")
  100.             call writeln('temp',"")
  101.             call writeln('temp',"")
  102.             call writeln('temp',"")
  103.             call writeln('temp',"")
  104.  
  105.             end
  106.         
  107.     end
  108.     Call Close('temp')
  109. end
  110.  
  111. exit 0
  112.  
  113.