diff --git a/App/Controllers/Jurisdiction/JurisdictionController.asp b/App/Controllers/Jurisdiction/JurisdictionController.asp index a7a2dbf..5d159f6 100644 --- a/App/Controllers/Jurisdiction/JurisdictionController.asp +++ b/App/Controllers/Jurisdiction/JurisdictionController.asp @@ -649,7 +649,7 @@ Class JurisdictionController End Function Private Function BuildIMBDigits(mailerId, zipPlusFour) - Dim cleanMailerId, cleanZip + Dim cleanMailerId, cleanZip, inboundStid cleanMailerId = DigitsOnly(mailerId) cleanZip = DigitsOnly(zipPlusFour) @@ -657,7 +657,8 @@ Class JurisdictionController If Len(cleanMailerId) = 0 Or Len(cleanZip) = 0 Then BuildIMBDigits = "" Else - BuildIMBDigits = "00778" & cleanMailerId & "000000" & cleanZip + inboundStid = SettingsRepository.FindByName("Inbound STID") + BuildIMBDigits = inboundStid & cleanMailerId & "000000" & cleanZip End If End Function diff --git a/App/DomainModels/KitLabelsRepository.asp b/App/DomainModels/KitLabelsRepository.asp index 934ec0a..6f0b995 100644 --- a/App/DomainModels/KitLabelsRepository.asp +++ b/App/DomainModels/KitLabelsRepository.asp @@ -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) diff --git a/App/app.config.asp b/App/app.config.asp index 98f0582..793dff3 100644 --- a/App/app.config.asp +++ b/App/app.config.asp @@ -11,9 +11,9 @@ dev = true dim ExportDirectory select case dev case "local" - ExportDirectory = "F:\Development\Tracking_Kits\uploads\" + ExportDirectory = "D:\Development\Tracking_Kits\uploads" case true - ExportDirectory = "C:\Share\TrackingDataExport\" + ExportDirectory = "D:\Development\Tracking_Kits\uploads" case else ExportDirectory ="\\kci-syn-cl01\PC Transfer\TrackingDataExport\" diff --git a/docs/Old inbound stid.png b/docs/Old inbound stid.png new file mode 100644 index 0000000..ff73116 Binary files /dev/null and b/docs/Old inbound stid.png differ