|
|
|
@@ -201,6 +201,7 @@ Class KitLabelsRepository_Class |
|
|
|
Dim SerialNumberStart:SerialNumberStart = SettingsRepository.Find(Array("Name =?","SerialNumberStart"),empty).pop().Value |
|
|
|
Dim serialOffset:serialOffset = SettingsRepository.Find(Array("Name =?","SerialOffset"),empty).pop().Value |
|
|
|
Dim SerialStart:SerialStart = CLng(SerialNumberStart) + CLng(serialOffset) |
|
|
|
Dim InboundStid : InboundStid = SettingsRepository.FindByName("Inbound STID") |
|
|
|
dim i,s |
|
|
|
s = 1 |
|
|
|
for i = 0 to (Amount * 2) - 2 Step 2 |
|
|
|
@@ -211,7 +212,7 @@ Class KitLabelsRepository_Class |
|
|
|
NewKitLabel.OutboundSerial = PadLeft(SerialStart + i,9,"0") |
|
|
|
NewKitLabel.InBoundSerial = PadLeft(SerialStart + i + 1,9,"0") |
|
|
|
NewKitLabel.OutboundIMBDigits ="00716" & MailingID & NewKitLabel.OutboundSerial |
|
|
|
NewKitLabel.InBoundIMBDigits = "00778" & MailingID & NewKitLabel.InBoundSerial & right(Jurisdiction.IMB_Digits,9) |
|
|
|
NewKitLabel.InBoundIMBDigits = InboundStid & MailingID & NewKitLabel.InBoundSerial & right(Jurisdiction.IMB_Digits,9) |
|
|
|
dim imbJson : imbJson = rest.FullRequestNoBody("get","/ppro-tools-api/imb/encode?imb=" & NewKitLabel.OutboundIMBDigits) |
|
|
|
|
|
|
|
json.loadJSON(imbJson) |
|
|
|
|