home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ACASH_1.DMS / in.adf / Rexx / Entry / DruckeEEinAusgang.acash < prev    next >
Encoding:
Text File  |  1994-09-05  |  2.7 KB  |  116 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.             call writeln('temp',"    "||proj.Owner)
  39.             call writeln('temp',"    "||proj.street)
  40.             call writeln('temp',"    "||proj.zip||" "||proj.city)
  41.             if (length(proj.tel)>0) then do
  42.                 call writeln('temp',"    "||"Tel1: "||proj.tel)
  43.                 end
  44.             else do
  45.                 call writeln('temp',"")
  46.                 end
  47.             if (length(proj.fax)>0) then do
  48.                 call writeln('temp',"    "||"Tel2: "||proj.fax)
  49.                 end
  50.             else do
  51.                 call writeln('temp',"")
  52.                 end
  53.             
  54.             call writeln('temp',"")
  55.  
  56.             if (entry.in>0) then do       /*Eingang*/
  57.                 
  58.  
  59.  
  60.                 call writeln('temp',"    Einzahlung"||left(" ",50)||", am "||entry.date.day||"."||entry.date.mon||"."||entry.date.year)
  61.                 call writeln('temp',"")
  62.                 call writeln('temp',"                 durch: "||entry.customer)
  63.                 call writeln('temp',"                        "||cust.i.street)
  64.                 call writeln('temp',"                        "||cust.i.zip||" "||cust.i.city)
  65.  
  66.                 call writeln('temp',"")
  67.  
  68.                 call writeln('temp',"                Betrag: "||Right(entry.in,13))
  69.  
  70.                 call writeln('temp',"")
  71.  
  72.                 call writeln('temp',"                 Zweck: "||entry.remark)
  73.  
  74.                 call writeln('temp',"")
  75.                 call writeln('temp',"")
  76.                 call writeln('temp',"")
  77.  
  78.                 call writeln('temp',"                           Unterschrift: _____________________________")
  79.  
  80.                 end
  81.             else do                       /*Ausgang*/
  82.  
  83.  
  84.                 call writeln('temp',"    Auszahlung"||left(" ",50)||", am "||entry.date.day||"."||entry.date.mon||"."||entry.date.year)
  85.                 call writeln('temp',"")
  86.                 call writeln('temp',"                    an: "||entry.customer)
  87.                 call writeln('temp',"                        "||cust.i.street)
  88.                 call writeln('temp',"                        "||cust.i.zip||" "||cust.i.city)
  89.  
  90.                 call writeln('temp',"")
  91.  
  92.                 call writeln('temp',"                Betrag: "||Right(entry.out,13))
  93.  
  94.                 call writeln('temp',"")
  95.  
  96.                 call writeln('temp',"                 Zweck: "||entry.remark)
  97.  
  98.                 call writeln('temp',"")
  99.                 call writeln('temp',"")
  100.                 call writeln('temp',"")
  101.  
  102.                 call writeln('temp',"                           Unterschrift: _____________________________")
  103.  
  104.                 end
  105.  
  106.             call writeln('temp',"")
  107.  
  108.             end
  109.         
  110.     end
  111.     Call Close('temp')
  112. end
  113.  
  114. exit 0
  115.  
  116.