Fastbase Accounting System - Online Manual

Delivery Label (text)

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

form 25,80

header {}
footer {}

body 1,1 1,1 {
variable options

# NLQ
# normal height
# reverse LF 1/6"
# emphasized on
text "\x1b\x78\x31\x1b\x77\x30\x1b\x6a\x24\x1b\x45SENDER:" 1,1
field login::company(NAME) 2,1 40

set branch_address [split $login::branch(ADDRESS) \n]
text [lindex $branch_address 0] 3,1
text "[lindex $branch_address 1] PHONE $login::branch(PHONE_NO)" 4,1

text "\x1b\x77\x31" 5,1 ;# double height
text "\x1b\x57\x31" 5,10 ;# double width

if {$options(-copies) > 1} {
text "TO: $copy OF $options(-copies)" 7,1
} else {
text "TO:" 7,1
}

field del_name 9,1 40

set addr [split $del_address \n]
text [lindex $addr 0] 11,1
text [lindex $addr 1] 13,1
text [lindex $addr 2] 15,1
text [lindex $addr 3] 17,1

if {$options(-attn) != ""} {
text "Attn: $del_attn" 18,1
}

text "\x1b\x77\x30" 20,1 ;# normal height
text "\x1b\x57\x30" 20,10 ;# normal width
}