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
// Check for VRM SAP part number conversion record
Open 'DICT.EPI_PART' to hDictEpiPart then
IntEpiPartNo = ''
Flag = ''
Option = 'E' ; // Suppress error messages
SearchString = 'VARM_PART_NO':@VM:EpiPartNo:@FM
Btree.Extract(SearchString, 'EPI_PART', hDictEpiPart, IntEpiPartNo, '', Flag)
If Flag EQ 0 then
If IntEpiPartNo NE '' then
// Transate Varm part no to IFX part no
EpiPartNo = IntEpiPartNo
end
end else
ErrCnt += 1
ErrFields<1,ErrCnt> = 'Btree.Extract'
ErrDescs<1,ErrCnt> = 'EPI_PART lookup failed.'
ErrValues<1,ErrCnt> = IntEpiPartNo
end
end
* Open 'DICT.EPI_PART' to hDictEpiPart then
* IntEpiPartNo = ''
* Flag = ''
* Option = 'E' ; // Suppress error messages
* SearchString = 'VARM_PART_NO':@VM:EpiPartNo:@FM
* Btree.Extract(SearchString, 'EPI_PART', hDictEpiPart, IntEpiPartNo, '', Flag)
* If Flag EQ 0 then
* If IntEpiPartNo NE '' then
* // Transate Varm part no to IFX part no
* EpiPartNo = IntEpiPartNo
* end
* end else
* ErrCnt += 1
* ErrFields<1,ErrCnt> = 'Btree.Extract'
* ErrDescs<1,ErrCnt> = 'EPI_PART lookup failed.'
* ErrValues<1,ErrCnt> = IntEpiPartNo
* end
* end
EpiPartRec = XLATE('EPI_PART',EpiPartNo,'','X')
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
* Add rest of WO fields
debug
CustNo = ProdVerRec<PROD_VER_CUST_NO$>
EpiPN = ProdVerRec<PROD_VER_EPI_PART_NO$>
@ -3016,3 +3016,4 @@ RETURN