瀏覽代碼

The stid in these files now gets pulled from the database

master
Daniel Covington 2 天之前
父節點
當前提交
2a376a561e
共有 4 個檔案被更改,包括 7 行新增5 行删除
  1. +3
    -2
      App/Controllers/Jurisdiction/JurisdictionController.asp
  2. +2
    -1
      App/DomainModels/KitLabelsRepository.asp
  3. +2
    -2
      App/app.config.asp
  4. 二進制
      docs/Old inbound stid.png

+ 3
- 2
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



+ 2
- 1
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)


+ 2
- 2
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\"



二進制
docs/Old inbound stid.png 查看文件

Before After
Width: 1671  |  Height: 854  |  Size: 44KB

Loading…
取消
儲存

Powered by TurnKey Linux.