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

Implemented bug fix for comparing sub lot nos beginning and ending with numbers

Browse Source
This commit is contained in:
Infineon\StieberD
2025-09-30 10:02:27 -07:00
parent af279541ae
commit a2c467e9cb
1 changed files with 13 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
LSL2/STPROC/RDS_SERVICES.txt
View File

@ -752,32 +752,28 @@ end service
Service IsValidSubLot(RDSNo, RDSType, SupplierLot)
// Note: We need to use the Quote function before comparing values because OpenInsight
// fails to compare strings that start with numbers.
IsValid = False$
rec = ''
Begin Case
Case RDSType EQ 'SIC'
compareLot = XLATE('RDS', RDSNo, RDS_LOT_NUM$, 'X')
if compareLot EQ SupplierLot then
IsValid = True$
end
CompareLot = Xlate('RDS', RDSNo, RDS_LOT_NUM$, 'X')
If Quote(CompareLot) EQ Quote(SupplierLot) then IsValid = True$
Case RDSType EQ 'EPP'
CONVERT '.' TO '*' IN RDSNo
compareLot = XLATE('WM_IN', RDSNo, 'LOT_NO', 'X')
if compareLot EQ SupplierLot then
IsValid = True$
end
Convert '.' to '*' in RDSNo
CompareLot = Xlate('WM_IN', RDSNo, 'LOT_NO', 'X')
If Quote(CompareLot) EQ Quote(SupplierLot) then IsValid = True$
Case RDSType EQ 'GAN'
CONVERT '.' TO '*' IN RDSNo
compareLot = XLATE('WO_MAT', RDSNo, WO_MAT_LOT_NO$, 'X')
if compareLot EQ SupplierLot then
IsValid = True$
end
Convert '.' to '*' in RDSNo
CompareLot = Xlate('WO_MAT', RDSNo, WO_MAT_LOT_NO$, 'X')
If Quote(CompareLot) EQ Quote(SupplierLot) then IsValid = True$
End Case
End Case
Response = IsValid
end service
@ -3390,5 +3386,3 @@ ClearCursors:
return