From b168f394f49ab9f11b2c5878ae5240a212315159 Mon Sep 17 00:00:00 2001 From: Daniel Covington Date: Tue, 11 Jun 2024 08:25:38 -0400 Subject: [PATCH] Remove trailing zeros on decimal imb --- ImportService/TrackingDataImport.vbs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ImportService/TrackingDataImport.vbs b/ImportService/TrackingDataImport.vbs index 77a882c..c3b643e 100644 --- a/ImportService/TrackingDataImport.vbs +++ b/ImportService/TrackingDataImport.vbs @@ -319,11 +319,11 @@ While Not InkjetRs.EOF If Step = 1 Then oConn.Execute("INSERT INTO KitLabels (KitID,OutboundSerial,OutboundIMBDigits) " &_ - "VALUES(" & KitID & ",'" & serialStart & "','" & KitRs("OutBoundSTID").Value & Mid & serialStart & "000000000" & "');") + "VALUES(" & KitID & ",'" & serialStart & "','" & KitRs("OutBoundSTID").Value & Mid & serialStart & "');") Else oConn.Execute "INSERT INTO KitLabels (KitID,OutboundSerial,InBoundSerial,OutboundIMBDigits,InBoundIMBDigits) " &_ - "VALUES(" & KitID & ",'" & serialStart & "','" & serialStart + 1 & "','" & KitRs("OutBoundSTID").Value & Mid & serialStart & "000000000" & "','" & KitRs("InboundSTID").Value & serialStart + 1 & Jcode & "');" + "VALUES(" & KitID & ",'" & serialStart & "','" & serialStart + 1 & "','" & KitRs("OutBoundSTID").Value & Mid & serialStart & "','" & KitRs("InboundSTID").Value & serialStart + 1 & Jcode & "');" End If Set KitLabelRs = oConn.Execute("SELECT TOP 1 [ID] FROM KitLabels ORDER BY ID DESC"):KitLabelID = KitLabelRs("ID").Value