home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / business / ii62.zip / II62.EXE / POSFOOT.FRM < prev    next >
Text File  |  1993-06-18  |  1KB  |  12 lines

  1. ┌[payment]─────────────────────────────────┬[charges]──────┬─────────────────┐
  2. │~pad(aPaid[1],42)~│        taxable│     ~pos->taxable~ │
  3. │~pad(aPaid[2],42)~│    non-taxable│     ~pos->non_taxabl~ │
  4. │~pad(aPaid[3],42)~│   ~if(empty(M_tax1rate),space(12)+"│"+space(16),"("+str(m_tax1rate,5,2)+"%) tax│  "+str(pos->tax1,14,2))~ │
  5. │~pad(aPaid[4],42)~│   ~if(empty(M_tax2rate),space(12)+"│"+space(16),"("+str(M_tax2rate,5,2)+"%) tax│  "+str(pos->tax2,14,2))~ │
  6. │~pad(aPaid[5],42)~│       shipping│     ~pos->freight~ │
  7. │~pad(aPaid[6],42)~│      T O T A L│     ~POS->total~ │
  8. ├[amount tendered]─┬[change due]───────────┼[PAYMENT DUE]──┼[B A L A N C E]──┤
  9. │~pos->amt_tender~       │~pos->change_due~                │~if(empty(pos->bal_due),"N/A"+space(7),pos->pay_due)~     │     ~pos->bal_due~ │
  10. └──────────────────┴───────────────────────┴───────────────┴─────────────────┘ 
  11. ~if(empty(pos->bal_due),"","Please pay from this Invoice:  No statement will be issued.")~
  12. ~if(!empty(pos->savings)," Y O U R  S A V I N G S -> $"+STR(POS->SAVINGS)+IF(!EMPTY(POS->TOTAL),str((1-(pos->total-pos->tax1-pos->tax2)/(pos->savings+pos->total-pos->tax1-pos->tax2))*100,6,2)+"%","")," T H A N K  Y O U  F O R  Y O U R  O R D E R !")~