Procházet zdrojové kódy

The stid in these files now gets pulled from the database

master
Daniel Covington před 2 dny
rodič
revize
2a376a561e
4 změnil soubory, kde provedl 7 přidání a 5 odebrání
  1. +3
    -2
      App/Controllers/Jurisdiction/JurisdictionController.asp
  2. +2
    -1
      App/DomainModels/KitLabelsRepository.asp
  3. +2
    -2
      App/app.config.asp
  4. binární
      docs/Old inbound stid.png

+ 3
- 2
App/Controllers/Jurisdiction/JurisdictionController.asp Zobrazit soubor

@@ -649,7 +649,7 @@ Class JurisdictionController
End Function End Function


Private Function BuildIMBDigits(mailerId, zipPlusFour) Private Function BuildIMBDigits(mailerId, zipPlusFour)
Dim cleanMailerId, cleanZip
Dim cleanMailerId, cleanZip, inboundStid


cleanMailerId = DigitsOnly(mailerId) cleanMailerId = DigitsOnly(mailerId)
cleanZip = DigitsOnly(zipPlusFour) cleanZip = DigitsOnly(zipPlusFour)
@@ -657,7 +657,8 @@ Class JurisdictionController
If Len(cleanMailerId) = 0 Or Len(cleanZip) = 0 Then If Len(cleanMailerId) = 0 Or Len(cleanZip) = 0 Then
BuildIMBDigits = "" BuildIMBDigits = ""
Else Else
BuildIMBDigits = "00778" & cleanMailerId & "000000" & cleanZip
inboundStid = SettingsRepository.FindByName("Inbound STID")
BuildIMBDigits = inboundStid & cleanMailerId & "000000" & cleanZip
End If End If
End Function End Function




+ 2
- 1
App/DomainModels/KitLabelsRepository.asp Zobrazit soubor

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


+ 2
- 2
App/app.config.asp Zobrazit soubor

@@ -11,9 +11,9 @@ dev = true
dim ExportDirectory dim ExportDirectory
select case dev select case dev
case "local" case "local"
ExportDirectory = "F:\Development\Tracking_Kits\uploads\"
ExportDirectory = "D:\Development\Tracking_Kits\uploads"
case true case true
ExportDirectory = "C:\Share\TrackingDataExport\"
ExportDirectory = "D:\Development\Tracking_Kits\uploads"
case else case else
ExportDirectory ="\\kci-syn-cl01\PC Transfer\TrackingDataExport\" ExportDirectory ="\\kci-syn-cl01\PC Transfer\TrackingDataExport\"




binární
docs/Old inbound stid.png Zobrazit soubor

Před Za
Šířka: 1671  |  Výška: 854  |  Velikost: 44KB

Načítá se…
Zrušit
Uložit

Powered by TurnKey Linux.