>> Fastbase Business Software Ltd

Fastbase Accounting System - Online Manual

Order/Packing Slip (text)

Document 102765/1

Entered Mon, 13 Jan 2003 17:16 by Peter Campbell
Updated Mon, 13 Jan 2003 17:20
Previous


form 66,147

header {
text "\x1b\x4d*** FASTBASE SALES ORDER ***" 3,32

field login::company(NAME) 5,1 40
field login::branch(ADDRESS) 6,1 40,3
text "Telephone $login::branch(PHONE_NO)" 9,1

text "Customer No :" 5,50
field customer(PART) 5,65 10

text "Page No :" 6,50
field page_no 6,64 2.0

text "Order Date :" 7,50
field order_header(ORDER_DATE) 7,65 D10

text "Print Date : [date::display [date::today]]" 8,50

text "Operator :" 9,50
field operator(NAME) 9,65 25

text "Customer Ref : $order_header(ORDER_NO)" 13,1

text "Order Ref :" 13,50
field order_header(REF) 13,65 10

if {$pslip != ""} {
text "Packing Slip :" 14,50
field pslip 14,65 10
}

text "Postal Address:" 16,1
field customer(NAME) 17,1 40
field customer(ADDRESS) 18,1 40,4

text "DELIVER TO:" 16,50
field order_header(DELIVERY_NAME) 17,50 40
field order_header(DELIVERY_ADDRESS) 18,50 40,4

text "\x0fPart No" 24,1
text "Description" 24,15
text "Make & Model" 24,56
text "Loc. ORD B/O SUP Price Ext" 24,101

text "-------------------------------------------------------------------------------------------------------------------------------------------" 25,1
}

body 26,14 49,87 {
field part(PART) 1 12
field part(NAME) 14 40
field part(NAME2) 55 40

# find the stock location for this part/branch
set location [lindex [lindex [sql "SELECT WAREHOUSE_LOCATION FROM STOCK_QTY
where COMPANY_ID = '$login::company_id'
and PART = $part(NUMBER)
and BRANCH = '$order_header(BRANCH)'"] 0] 0]
text $location 100

field order_line(QTY_REQUIRED) 104 6.0
field order_line(QTY_BACKORDERED) 110 6.0
field order_line(QTY_SUPPLIED) 116 6.0

field order_line(NET_PRICE) 122 8.2
field order_line(ORDER_VALUE) 130 10.2
}

footer {
text "\x1b\x4d" 50,1
field order_header(DELIVERY_INSTRUCTIONS) 52,5 50,4

text "Picked By : ______________________________" 56,5

text "Checked By : ______________________________" 58,5

# packing slip? print the delivery method
if {$pslip != ""} {
set delivery [lindex [lindex [sql "SELECT NAME FROM COURIER
where COMPANY_ID = '$login::company_id'
and CODE = '$packing_slip(COURIER)'"] 0] 0]
text $delivery 54,5
}

set order_header(ORDER_VALUE) [expr {$order_header(ORDER_VALUE) + $packing_slip(FREIGHT)}]
text "Freight" 54,70
field packing_slip(FREIGHT) 54,83 10.2

text "Subtotal" 56,70
field order_header(ORDER_VALUE) 56,83 10.2

set TOTAL [expr {$order_header(ORDER_VALUE) * 1.125}]
set GST [expr {$TOTAL - $order_header(ORDER_VALUE)}]

text "GST" 57,70
field GST 57,83 10.2

text "TOTAL" 58,70
field TOTAL 58,83 10.2
text "\x12" 59,1
}


Online documentation: enter keywords to search for: