home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ACASH_1.DMS / in.adf / Rexx / Entry / PrintEntry.acash < prev   
Encoding:
Text File  |  1994-04-10  |  435 b   |  21 lines
  1. /*ACash pro Print Entry 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.     setscrtitle '"Fetching data ..."'
  11.     getactiveENTRY '"entry"'
  12.     if (result=="1") then do
  13.         setscrtitle '"Rendering..."'
  14.         call writeln('temp',entry.date.day||"-"||entry.date.mon||"-"||entry.date.year||" "||entry.customer||" "||entry.remark||" "||entry.In||" "||entry.out)
  15.     end
  16.     Call Close('temp')
  17. end
  18.  
  19. exit 0
  20.  
  21.