|
|
@@ -210,7 +210,7 @@ Class KitLabelsRepository_Class |
|
|
|
s = s + 1 |
|
|
|
NewKitLabel.OutboundSerial = PadLeft(SerialStart + i,9,"0") |
|
|
|
NewKitLabel.InBoundSerial = PadLeft(SerialStart + i + 1,9,"0") |
|
|
|
NewKitLabel.OutboundIMBDigits ="00716" & MailingID & NewKitLabel.OutboundSerial & "000000000" |
|
|
|
NewKitLabel.OutboundIMBDigits ="00716" & MailingID & NewKitLabel.OutboundSerial |
|
|
|
NewKitLabel.InBoundIMBDigits = "00778" & MailingID & NewKitLabel.InBoundSerial & right(Jurisdiction.IMB_Digits,9) |
|
|
|
dim imbJson : imbJson = rest.FullRequestNoBody("get","/ppro-tools-api/imb/encode?imb=" & NewKitLabel.OutboundIMBDigits) |
|
|
|
|
|
|
|