phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
LSL2/STPROC/PRINT_PACKING_SLIP.txt
View File

@ -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