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

Removed SAP Create VARM Part translation logic.

Browse Source
This commit is contained in:
Infineon\Ouellette 2024-09-30 15:57:47 -07:00
parent 9a161f02c8
commit e7e935d190
1 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
LSL2/STPROC/OBJ_WO_LOG.txt
View File

@ -248,24 +248,24 @@ IF thisPromiseShipDt = '' THEN
END END
// Check for VRM SAP part number conversion record // Check for VRM SAP part number conversion record
Open 'DICT.EPI_PART' to hDictEpiPart then * Open 'DICT.EPI_PART' to hDictEpiPart then
IntEpiPartNo = '' * IntEpiPartNo = ''
Flag = '' * Flag = ''
Option = 'E' ; // Suppress error messages * Option = 'E' ; // Suppress error messages
SearchString = 'VARM_PART_NO':@VM:EpiPartNo:@FM * SearchString = 'VARM_PART_NO':@VM:EpiPartNo:@FM
Btree.Extract(SearchString, 'EPI_PART', hDictEpiPart, IntEpiPartNo, '', Flag) * Btree.Extract(SearchString, 'EPI_PART', hDictEpiPart, IntEpiPartNo, '', Flag)
If Flag EQ 0 then * If Flag EQ 0 then
If IntEpiPartNo NE '' then * If IntEpiPartNo NE '' then
// Transate Varm part no to IFX part no * // Transate Varm part no to IFX part no
EpiPartNo = IntEpiPartNo * EpiPartNo = IntEpiPartNo
end * end
end else * end else
ErrCnt += 1 * ErrCnt += 1
ErrFields<1,ErrCnt> = 'Btree.Extract' * ErrFields<1,ErrCnt> = 'Btree.Extract'
ErrDescs<1,ErrCnt> = 'EPI_PART lookup failed.' * ErrDescs<1,ErrCnt> = 'EPI_PART lookup failed.'
ErrValues<1,ErrCnt> = IntEpiPartNo * ErrValues<1,ErrCnt> = IntEpiPartNo
end * end
end * end
EpiPartRec = XLATE('EPI_PART',EpiPartNo,'','X') EpiPartRec = XLATE('EPI_PART',EpiPartNo,'','X')
ProdVerNos = EpiPartRec<EPI_PART_PROD_VER_NO$> ProdVerNos = EpiPartRec<EPI_PART_PROD_VER_NO$>
@ -2521,7 +2521,7 @@ WOLogRec<WO_LOG_OUT_CASS_LOAD_QTY$> = DefWMOCassQty
WOLogRec<WO_LOG_REACT_TYPE$> = ProcPSNReactTypes<1,1> ;* Assumes both steps run on same reactor type WOLogRec<WO_LOG_REACT_TYPE$> = ProcPSNReactTypes<1,1> ;* Assumes both steps run on same reactor type
* Add rest of WO fields * Add rest of WO fields
debug
CustNo = ProdVerRec<PROD_VER_CUST_NO$> CustNo = ProdVerRec<PROD_VER_CUST_NO$>
EpiPN = ProdVerRec<PROD_VER_EPI_PART_NO$> EpiPN = ProdVerRec<PROD_VER_EPI_PART_NO$>
@ -3016,3 +3016,4 @@ RETURN