From e7e935d190c82b8c316260079e804274db47a1c7 Mon Sep 17 00:00:00 2001
From: "Infineon\\Ouellette" <jonathan.ouellette@infineon.com>
Date: Mon, 30 Sep 2024 15:57:47 -0700
Subject: [PATCH] Removed SAP Create VARM Part translation logic.

---
 LSL2/STPROC/OBJ_WO_LOG.txt | 39 +++++++++++++++++++-------------------
 1 file changed, 20 insertions(+), 19 deletions(-)

diff --git a/LSL2/STPROC/OBJ_WO_LOG.txt b/LSL2/STPROC/OBJ_WO_LOG.txt
index 72c6aca..3365d0d 100644
--- a/LSL2/STPROC/OBJ_WO_LOG.txt
+++ b/LSL2/STPROC/OBJ_WO_LOG.txt
@@ -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
 
 
 
+