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