form 64,145
header {
text "\x1b(s12H" 1,1
text "\x1b(s6T" 2,1
text "\x1b(s3B*** TAX INVOICE ***\x1b(s0B" 8,40
text "Invoice No :" 18,10
field header(REF) 18,25 15
text "Invoice Date :" 19,10
field header(DATE) 19,25 D
text "Customer No :" 21,10
field customer(PART) 21,25 15
text "Order No :" 22,10
field header(ORDER_NO) 22,25 20
text "Reference :" 23,10
field header(INTERNAL_REF) 23,25 20
text "Delivery :" 23,50
field header(DELIVERY_METHOD) 23,61 20
text "Page No :" 21,50
field page_no 21,61 4
text "\x1b(s3BINVOICE TO:\x1b(s0B" 10,7
field customer(NAME) 11,7 40
field customer(ADDRESS) 12,7 40,4
text "\x1b(s3BDELIVER TO:\x1b(s0B" 10,60
field header(DELIVERY_NAME) 11,50 40
field header(DELIVERY_ADDRESS) 12,50 40,4
text "\x1b(s3B" 29,1
text "Part No" 30,2
text "Description" 30,14
text "Make & Model" 30,40
text " Qty Price Disc%" 30,66
text "Extension\x1b(s0B" 30,84
text "-------------------------------------------------------------------------------------------" 31,2
}
body 32,14 56,63 {
text "\x1b(s16.66H" 1
field part(PART) 11 12
field part(NAME) 28 35
field part(NAME2) 64 36
field tran(QTY) 100 6.0
field tran(LIST_PRICE) 108 8.2
field tran(DISCOUNT) 118 5.2
field tran(AMOUNT) 128 10.2
text "\x1b(s12H" 138
}
footer {
field header(PERSONAL_MESSAGE) 57,2 50,4
text "GST No. 21-559-587" 61,50
text "Freight" 57,71
field header(FREIGHT) 57,83 10.2
text "Sub Total" 59,71
field header(AMOUNT) 59,83 10.2
set GST [expr $header(TOTAL) - $header(AMOUNT)]
text "GST" 60,71
field GST 60,83 10.2
text "Total" 61,71
field header(TOTAL) 61,83 10.2
}
|
