pre cutover push
This commit is contained in:
@ -132,8 +132,8 @@ FOR I = 1 TO CCnt
|
||||
SAPDelNo = ThisCOCRec<COC_SAP_DEL_NO$>
|
||||
ProdOrdNo = WORec<WO_LOG_PROD_ORD_NO$>
|
||||
|
||||
PO = WORec<WO_LOG_CUST_PO_NO$>
|
||||
CustNo = WORec<WO_LOG_CUST_NO$>
|
||||
PO = WORec<WO_LOG_CUST_PO_NO$>
|
||||
CustNo = Xlate('COC', ShipNo, 'WO_CUST_NO_EX', 'X')
|
||||
|
||||
CustRec = XLATE('COMPANY',CustNo,'','X')
|
||||
|
||||
@ -172,9 +172,9 @@ FOR I = 1 TO CCnt
|
||||
ShipWOStepKey = WORec<WO_LOG_WO_STEP_KEY$>[-1,'B':@VM]
|
||||
|
||||
ShipPSN = XLATE('WO_STEP',ShipWOStepKey,1,'X') ;* Get Last Step PS_NO
|
||||
|
||||
EpiPartNo = WORec<WO_LOG_EPI_PART_NO$>
|
||||
CustEpiPartRec = Xlate('CUST_EPI_PART',CustNO:'*':EpiPartNo,'','X')
|
||||
|
||||
EpiPartNo = Xlate('COC', ShipNo, 'EPI_PART_NO_EX', 'X')
|
||||
CustEpiPartRec = Xlate('CUST_EPI_PART',CustNO:'*':EpiPartNo,'','X')
|
||||
|
||||
CustSpecIDs = CustEpiPartRec<CUST_EPI_PART_SPEC_NO$>
|
||||
CustSpecRevs = CustEpiPartRec<CUST_EPI_PART_SPEC_REV$>
|
||||
@ -213,7 +213,13 @@ FOR I = 1 TO CCnt
|
||||
|
||||
|
||||
LotNos<1,I> = WOMatRec<WO_MAT_LOT_NO$>
|
||||
PartNos<1,I> = WOMatRec<WO_MAT_CUST_PART_NO$>
|
||||
|
||||
If WOMatRec<WO_MAT_RESHIP_CUST_PART_NO$> NE '' then
|
||||
PartNos<1, I> = WOMatRec<WO_MAT_RESHIP_CUST_PART_NO$>
|
||||
end else
|
||||
PartNos<1, I> = WOMatRec<WO_MAT_CUST_PART_NO$>
|
||||
end
|
||||
|
||||
SubPartNo = WOMatRec<WO_MAT_SUB_PART_NO$>
|
||||
|
||||
IF VendCd NE '' THEN
|
||||
@ -625,5 +631,3 @@ FOR I = 1 TO CCnt
|
||||
NEXT I
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user