first commit

2026-07-14 00:41:31 -05:00
commit 7905c43278
248 changed files with 38068 additions and 0 deletions
@@ -0,0 +1,50 @@
+// 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
+
+
+