home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / SELLMOR2.ZIP / INVOICE2.RPT < prev    next >
Encoding:
Text File  |  1992-07-10  |  1.7 KB  |  52 lines
  1. *#store .t. #to debug_on
  2. #@  9,30 #say boldon+"STATEMENT OF SUPPLY"+boldoff
  3. #@ 14,1  #say dtoc(invoice->date)
  4. #@ 18,1  #say trim(clients->salutation)+" "+trim(clients->fname)+" "+trim(clients->lname)
  5. #if ""#trim(clients->title)
  6. #@ fmrow+1,1  #say clients->title
  7. #endif
  8. #@ fmrow+1,1  #say clients->company
  9. #@ fmrow+1,1  #say clients->add1
  10. #if ""#trim(clients->add2)
  11. #@ fmrow+1,1  #say clients->add2
  12. #endif
  13. #@ fmrow+1,1  #say TRIM(clients->city)+", "+clients->state+"  "+clients->zip
  14.  
  15. #@ 28,1  #say "Your request, as listed under, has been despatched:"
  16. #@ 30,1  #say ""
  17.  
  18. #store invoice->invoice #to minvoice
  19. #store 1         #to mpage
  20. #store 0         #to ttl1
  21. #select events
  22. #seek minvoice
  23.  
  24. #doWHILE events->inv_num=minvoice .and. .not. eof()
  25.    #@ fmrow+1,1 #say tran(hours,"9999") + " copy @ " + tran(rate,"99999.99") + " " + descrip
  26.    #store ttl1 + hours * rate #to ttl1
  27.    #skip 1
  28.    #IF FMRow >= 41 .and. events->inv_num=minvoice .and. .not. eof()
  29.     #FORMPRINT
  30.     #EJECT
  31.     #FORMCLEAR 31, 66
  32.     #store mpage+1 #to mpage
  33.     #@ 30,1 #say ""
  34.    #ENDIF
  35. #enddo
  36. #select invoice
  37. #@ 46,1 #say "Total:   " + tran(ttl1,"99999999.99") + " Statement No " + minvoice
  38.  
  39. #@ 48,1 #say "Account No to Debit: " + invoice->po_num
  40. #@ 51,1 #say "Thank you for your interest in an Asset Control Technology"
  41. #@ 52,1 #say "product.  Enclosed is our current product and price list for your"
  42. #@ 53,1 #say "perusal.  Payment for manuals has been transferred from your"
  43. #@ 54,1 #say "account and the appropriate Transfer Voucher will be sent to you"
  44. #@ 55,1 #say "in due course."
  45.  
  46. #@ 57,1 #say "R Gerke"
  47. #@ 58,1 #say "Manager"
  48. #@ 59,1 #say "Asset Control Technology"
  49. #formprint
  50. #eject
  51.  
  52.