Jason Soltys
50 lines
1.1 KiB
Plaintext
50 lines
1.1 KiB
Plaintext
// ufd0450 - don and mike - 03-02-95 LABEL LINE DEFINITIONS
|
|
*************************************************
|
|
|
|
*********************************************************
|
|
* Customer Mailing lables - Cusomter BILLING address. *
|
|
*********************************************************
|
|
FUNCTION BLD_CUSTLBL()
|
|
|
|
LOCAL LBL_LINEARR := {}
|
|
LOCAL EVALLINE
|
|
|
|
EVALLINE := 'COMP_NAME'
|
|
AADD(LBL_LINEARR, EVALLINE)
|
|
|
|
EVALLINE := 'CUST_ADDR'
|
|
AADD(LBL_LINEARR, EVALLINE)
|
|
|
|
EVALLINE := 'CUST_ADDR2'
|
|
AADD(LBL_LINEARR, EVALLINE)
|
|
|
|
EVALLINE := 'TRIM(CUST_CITY)+" "+ CUST_STATE +" " + CUST_ZIP'
|
|
AADD(LBL_LINEARR, EVALLINE)
|
|
|
|
RETURN LBL_LINEARR
|
|
|
|
|
|
**********************************************************
|
|
* Customer Mailing lables - Cusomter SHIPPING address. *
|
|
**********************************************************
|
|
FUNCTION SHP_CUSTLBL()
|
|
|
|
LOCAL LBL_LINEARR := {}
|
|
LOCAL EVALLINE
|
|
|
|
EVALLINE := 'COMP_NAME'
|
|
AADD(LBL_LINEARR, EVALLINE)
|
|
|
|
EVALLINE := 'SHIPADD1'
|
|
AADD(LBL_LINEARR, EVALLINE)
|
|
|
|
**EVALLINE := 'SHIPADD2'
|
|
**AADD(LBL_LINEARR, EVALLINE)
|
|
|
|
EVALLINE := 'TRIM(SHIPADD2)+" "+ SHIPST +" " + SHIPZIP'
|
|
AADD(LBL_LINEARR, EVALLINE)
|
|
|
|
RETURN LBL_LINEARR
|
|
|
|
|
|
|