73 lines
2.1 KiB
Plaintext
73 lines
2.1 KiB
Plaintext
COMPILE ROUTINE LOAD_CUSTOMER(Dummy)
|
|
ROWDEF (CHARSTR)
|
|
|
|
DECLARE SUBROUTINE SEND_INFO, SEND_DYN, Utility, msg
|
|
|
|
$INSERT CUSTOMER_EQU
|
|
$INSERT COMPANY_EQU
|
|
|
|
|
|
EQU CRLF$ TO \0D0A\
|
|
|
|
OPEN 'COMPANY' TO CompanyTable ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
OPEN 'CUSTOMER' TO CustomerTable ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
debug
|
|
SELECT CustomerTable
|
|
|
|
Done = 0
|
|
LOOP
|
|
READNEXT CustNo ELSE Done = 1
|
|
UNTIL Done
|
|
READ CompanyRec FROM CompanyTable,CustNo THEN
|
|
READ CustRec FROM CustomerTable,CustNo THEN
|
|
|
|
CustRec<CUSTOMER_ENTRY_DATE$> = CompanyRec<COMPANY_ENTRY_DATE$>
|
|
CustRec<CUSTOMER_ENTRY_ID$> = CompanyRec<COMPANY_ENTRY_ID$>
|
|
|
|
CustRec<CUSTOMER_ATTENTION$> = CompanyRec<COMPANY_BILL_TO_ATTN$>
|
|
CustRec<CUSTOMER_COMPANY$> = CompanyRec<COMPANY_BILL_TO_CO$>
|
|
CustRec<CUSTOMER_ADDR$> = CompanyRec<COMPANY_BILL_TO_ADDRESS$>
|
|
CustRec<CUSTOMER_CITY$> = CompanyRec<COMPANY_BILL_TO_CITY$>
|
|
CustRec<CUSTOMER_ST$> = CompanyRec<COMPANY_BILL_TO_STATE$>
|
|
CustRec<CUSTOMER_ZIP$> = CompanyRec<COMPANY_BILL_TO_ZIP$>
|
|
|
|
CustRec<CUSTOMER_COUNTRY$> = CompanyRec<COMPANY_COUNTRY$>
|
|
CustRec<CUSTOMER_ABBREV$> = CompanyRec<COMPANY_ABBREV$>
|
|
CustRec<CUSTOMER_PHONE$> = CompanyRec<COMPANY_PHONES$>
|
|
CustRec<CUSTOMER_PHONE_DESC$> = CompanyRec<COMPANY_PHONE_TYPES$>
|
|
CustRec<CUSTOMER_INTL_PHONE$> = CompanyRec<COMPANY_INTL_PHONES$>
|
|
CustRec<CUSTOMER_INTL_PHONE_DESC$> = CompanyRec<COMPANY_INTL_PHONE_TYPES$>
|
|
CustRec<CUSTOMER_SALES_REP$> = CompanyRec<COMPANY_SALES_REP$>
|
|
CustRec<CUSTOMER_CARRIER_INFO$> = CompanyRec<COMPANY_SHIPPER_INFO$>
|
|
CustRec<CUSTOMER_CARRIER_ACCT$> = CompanyRec<COMPANY_ACCOUNT_NO$>
|
|
CustRec<CUSTOMER_NOTE$> = CompanyRec<COMPANY_NOTE$>
|
|
CustRec<CUSTOMER_TERMS$> = CompanyRec<COMPANY_TERMS$>
|
|
CustRec<CUSTOMER_SHIP_EXPORT_TEMP$> = CompanyRec<COMPANY_SHIPPING_EXPORT_TEMPLATE$>
|
|
CustRec<CUSTOMER_COA_FOLDER$> = CompanyRec<COMPANY_COA_FOLDER$>
|
|
CustRec<CUSTOMER_VISION_CUST_NO$> = CompanyRec<COMPANY_CUST_TO$>
|
|
|
|
WRITE CustRec ON CustomerTable,CustNo ELSE NULL
|
|
|
|
END
|
|
END
|
|
REPEAT
|
|
|
|
|
|
|
|
|
|
*UNLOCK All
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|