tldm-universe/CMS/BP.CNV/CMSD.IVD

106 lines
4.7 KiB
Plaintext
Raw Normal View History

2024-09-10 19:25:06 +00:00
*CMSD.IVD - JUNE 22,1992
* ORDER/INVOICE RECORD LAYOUT FOR WGM DISTRIBUTION
*
EQU IVD$ORDER.NUMBER TO 00
EQU IVD$PARTNER TO 01 ;* PM file key:VM:Order number
EQU IVD$STATUS TO 02 ;* progressive order status(A,C,H,D)
* A=ACTIVE(SOME PRODUCTS NOT SHIPPED) C=CREDIT CARD
EQU IVD$BATCH.NUMBER TO 03
EQU IVD$DATE.ORDERED TO 04 ;* (batch date)
EQU IVD$DATE.ENTERED TO 05 ;* (key entry date)
*
EQU IVD$TRACK.ACTION TO 06 ;* (MV) - (ENT,PRT,SHP,HST and etc.)
EQU IVD$TRACK.OPERATOR TO 07 ;* (MV) - (corresponds to action)
EQU IVD$TRACK.DATE TO 08 ;* (MV) - (corresponds to action)
EQU IVD$TRACK.TIME TO 09 ;* (MV) - (corresponds to action)
*
EQU IVD$ITEM TO 10 ;* (MV) - (inventory file keys)
EQU IVD$QTY TO 11 ;* (MV) - (corresponds to item)
EQU IVD$ITEM.STATUS TO 12 ;* (MV) - (progressive item sts B,R,C,S)
* B=BACKORDER R=RELEASED C=CREDIT CARD S=SHIPPED
EQU IVD$ITEM.BO.TAG TO 13 ;* (MV) - (item backorder # tag(-n))
EQU IVD$UNIT.RETAIL TO 14 ;* (MV) - (from inventory file)
EQU IVD$UNIT.COST TO 15 ;* (MV) - (from inventory file)
EQU IVD$LINE.GROSS.AMT TO 16 ;* (MV) - (item gross $ = qty*retail)
EQU IVD$LINE.DISC.AMOUNT TO 17 ;* (MV) - (line discount amount)
EQU IVD$LINE.DISC.PERCENT TO 18 ;* (MV) - (corresponds to item)
EQU IVD$LINE.SALES.TAX.AMT TO 19 ;* (MV) - (item sales tax amount)
EQU IVD$LINE.PAID TO 20 ;* (MV) - (line item amount to pay)
EQU IVD$LINE.PRINT.ORDER TO 21 ;* (MV) - (date*run# of packing sheet)
EQU IVD$LINE.PRINT.COD TO 22 ;* (MV) - (date*run of COD labels)
EQU IVD$LINE.SHIPPED TO 23 ;* (MV) - (date*run of shipped process)
EQU IVD$LINE.PRINT.INVOICE TO 24 ;* (MV) - (date*run printing invoices)
EQU IVD$LINE.NET.AMOUNT TO 25 ;* (MV) - (LINE.GROSS-LINE.DISC+LINE.TAX)
EQU IVD$SALES.TAX.PERCENT TO 26 ;* (applicable tax rate)
EQU IVD$ITEM.CC.AUTH TO 27 ;* (MV) ITEM CC authorization number
EQU IVD$LINE.CC.AUTH TO 27 ;* (MV) ITEM CC authorization number
EQU IVD$NET.ORDER.AMOUNT TO 28 ;* (sum of attr XX-XX)
EQU IVD$NET.DISC.AMOUNT TO 29 ;* (sum of qty*unit.disc.amount)
EQU IVD$GROSS.ORDER.AMOUNT TO 30 ;* (sum of attr XX-XX)
EQU IVD$TOTAL.PAID TO 31
EQU IVD$BALANCE TO 32
EQU IVD$TERMS TO 33 ;* (COD,CC,CASH, and etc.)
EQU IVD$SHIP.MODE TO 34 ;* (UPS,USPS and etc.)
EQU IVD$MISC.CHARGE.TYPE TO 35 ;* (for MISC CHARGES WINDOW)
EQU IVD$MISC.CHARGE.ITEM TO 36 ;* ('')
EQU IVD$MISC.CHARGE.AMOUNT TO 37 ;* ('')
EQU IVD$MISC.CHARGE.PRINT TO 38 ;* ('')
EQU IVD$MISC.CHARGE.AUTH TO 39 ;* ('')
EQU IVD$WAREHOUSE TO 40
EQU IVD$EVENT TO 41 ;* (not used)
EQU IVD$TRAN.TYPE TO 42 ;* (MV) - (same as PM.TRANS type)
EQU IVD$TRAN.AMOUNT TO 43 ;* (MV) - (corresponds to type)
EQU IVD$TRAN.DATE TO 44 ;* (MV) - (corresponds to type)
EQU IVD$REFERENCE.NUMBER TO 45 ;* (MV) - (corresponds to type)
EQU IVD$CHECK.NUMBER TO 46 ;* (MV) - (corresponds to type)
*
EQU IVD$SOLD.TO.NAME TO 47
EQU IVD$SOLD.TO.STREET TO 48
EQU IVD$SOLD.TO.ATTN1 TO 49
EQU IVD$SOLD.TO.ATTN2 TO 50
EQU IVD$SOLD.TO.CITY TO 51
EQU IVD$SOLD.TO.STATE TO 52
EQU IVD$SOLD.TO.ZIP TO 53
EQU IVD$SOLD.TO.COUNTRY TO 54
*
EQU IVD$SHIP.TO.NAME TO 55
* title:VM:fname:VM:mname:VM:lname:VM:suffix:VM:fullname
EQU IVD$SHIP.TO.ADDRESS TO 56
* attn1:VM:attn2:VM:street:VM:city:VM:state:VM:zip:VM:country:VM:geo
EQU IVD$FILLER6 TO 57
EQU IVD$FILLER5 TO 58
EQU IVD$FILLER4 TO 59
EQU IVD$FILLER3 TO 60
EQU IVD$FILLER2 TO 61
EQU IVD$FILLER1 TO 62
*
*EQU IVD$SHIP.TO.STREET TO 56
*EQU IVD$SHIP.TO.ATTN1 TO 57
*EQU IVD$SHIP.TO.ATTN2 TO 58
*EQU IVD$SHIP.TO.CITY TO 59
*EQU IVD$SHIP.TO.STATE TO 60
*EQU IVD$SHIP.TO.ZIP TO 61
*EQU IVD$SHIP.TO.COUNTRY TO 62
*
EQU IVD$BOXES TO 63 ;* (## of boxes shipped)
EQU IVD$SALESPERSON TO 64 ;* (not in use)
EQU IVD$CHANNEL TO 65 ;* (not in use)
EQU IVD$CLUB.ID TO 66 ; * Club ID
EQU IVD$COMMISION TO 67 ;* (Y/N flag)
EQU IVD$COMMISSION TO 67 ;* correct spelling
EQU IVD$COMMENTS TO 68
EQU IVD$BACKORDERS TO 69
EQU IVD$INFORMATION TO 70 ;* user defined MV data
*
EQU IVD$CC.TYPE TO 71
EQU IVD$CC.NUMBER TO 72
EQU IVD$CC.EXP.DATE TO 73
EQU IVD$CC.NAME TO 74 ;* (name on credit card)
EQU IVD$ENTITY TO 75
EQU IVD$CC.INTERBANK TO 76 ;* (mastercard interbank number)
EQU IVD$CC.REJECT.REASON TO 77 ;* CC reject reason
EQU IVD$CC.REJECT.DATE TO 78
*
* End of Order/Invoice Record
*