Implemented bug fix for comparing sub lot nos beginning and ending with numbers
This commit is contained in:
@ -752,32 +752,28 @@ end service
|
|||||||
|
|
||||||
|
|
||||||
Service IsValidSubLot(RDSNo, RDSType, SupplierLot)
|
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$
|
IsValid = False$
|
||||||
rec = ''
|
|
||||||
Begin Case
|
Begin Case
|
||||||
|
|
||||||
Case RDSType EQ 'SIC'
|
Case RDSType EQ 'SIC'
|
||||||
compareLot = XLATE('RDS', RDSNo, RDS_LOT_NUM$, 'X')
|
CompareLot = Xlate('RDS', RDSNo, RDS_LOT_NUM$, 'X')
|
||||||
if compareLot EQ SupplierLot then
|
If Quote(CompareLot) EQ Quote(SupplierLot) then IsValid = True$
|
||||||
IsValid = True$
|
|
||||||
end
|
|
||||||
|
|
||||||
Case RDSType EQ 'EPP'
|
Case RDSType EQ 'EPP'
|
||||||
CONVERT '.' TO '*' IN RDSNo
|
Convert '.' to '*' in RDSNo
|
||||||
compareLot = XLATE('WM_IN', RDSNo, 'LOT_NO', 'X')
|
CompareLot = Xlate('WM_IN', RDSNo, 'LOT_NO', 'X')
|
||||||
if compareLot EQ SupplierLot then
|
If Quote(CompareLot) EQ Quote(SupplierLot) then IsValid = True$
|
||||||
IsValid = True$
|
|
||||||
end
|
|
||||||
|
|
||||||
Case RDSType EQ 'GAN'
|
Case RDSType EQ 'GAN'
|
||||||
CONVERT '.' TO '*' IN RDSNo
|
Convert '.' to '*' in RDSNo
|
||||||
compareLot = XLATE('WO_MAT', RDSNo, WO_MAT_LOT_NO$, 'X')
|
CompareLot = Xlate('WO_MAT', RDSNo, WO_MAT_LOT_NO$, 'X')
|
||||||
if compareLot EQ SupplierLot then
|
If Quote(CompareLot) EQ Quote(SupplierLot) then IsValid = True$
|
||||||
IsValid = True$
|
|
||||||
end
|
|
||||||
|
|
||||||
End Case
|
End Case
|
||||||
|
|
||||||
Response = IsValid
|
Response = IsValid
|
||||||
|
|
||||||
end service
|
end service
|
||||||
@ -3390,5 +3386,3 @@ ClearCursors:
|
|||||||
|
|
||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user