home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ACASH_1.DMS / in.adf / Rexx / Account / PrintList.acash
Encoding:
Text File  |  1994-04-10  |  609 b   |  35 lines
  1. /*ACash pro Print List normal*/
  2.  
  3. OPTIONS RESULTS
  4. address ACASH_REXX
  5.  
  6. getprtfile
  7. file=result
  8.  
  9. if Open('temp',file,'w') then do
  10.     x=1
  11.     Getaccdata '"acc"'
  12.     
  13.     call writeln('temp',"Account   : "||acc.nr||"-"||acc.name)
  14.     call writeln('temp',"Startsaldo: "||acc.saldo)
  15.     call writeln('temp',"Remark    : "||acc.remark)
  16.     
  17.     
  18.     
  19.     do while x>0
  20.         
  21.         NEXTENTRY '"entry"'
  22.         if (result=="1") then do
  23.             x=1
  24.             call writeln('temp',entry.date.day||"-"||entry.date.mon||"-"||entry.date.year||" "||entry.customer||" "||entry.remark||" "||entry.In||" "||entry.out)
  25.         end
  26.         else do
  27.          x=0
  28.         end
  29.     end
  30.     Call Close('temp')
  31. end
  32.  
  33. exit 0
  34.  
  35.