소스 검색

Label and Report Changes

master
Daniel Covington 1 개월 전
부모
커밋
32a86b6532
4개의 변경된 파일116개의 추가작업 그리고 35개의 파일을 삭제
  1. +2
    -1
      .gitignore
  2. +6
    -1
      App/Controllers/Kit/KitController.asp
  3. +108
    -33
      Data/Proofs.rep
  4. BIN
      ImportService/TrackingDataImport.vbs

+ 2
- 1
.gitignore 파일 보기

@@ -9,4 +9,5 @@ gittoken.txt
/bmad_output /bmad_output
/.agents /.agents
/.claude /.claude
/uploads
/uploads
PSL Custom Proofs/*

+ 6
- 1
App/Controllers/Kit/KitController.asp 파일 보기

@@ -158,6 +158,11 @@ Class KitController
Exit Sub Exit Sub
End If End If


dim officeCopiesAmount : officeCopiesAmount = 0
If IsNumeric(kitInfo.OfficeCopiesAmount) Then
officeCopiesAmount = CLng(kitInfo.OfficeCopiesAmount)
End If

dim appPath : appPath = Request.ServerVariables("APPL_PHYSICAL_PATH") dim appPath : appPath = Request.ServerVariables("APPL_PHYSICAL_PATH")
dim labelsTemplatePath : labelsTemplatePath = appPath & "Data\Delivery_Labels.rep" dim labelsTemplatePath : labelsTemplatePath = appPath & "Data\Delivery_Labels.rep"
dim packingSlipTemplatePath : packingSlipTemplatePath = appPath & "Data\Delivery_PackingSlip.rep" dim packingSlipTemplatePath : packingSlipTemplatePath = appPath & "Data\Delivery_PackingSlip.rep"
@@ -172,7 +177,7 @@ Class KitController
Exit Sub Exit Sub
End If End If


dim totalBoxes : totalBoxes = Int((inkjetCount + 1099) / 1100)
dim totalBoxes : totalBoxes = Int((inkjetCount + officeCopiesAmount + 1099) / 1000)
If totalBoxes <= 0 Then If totalBoxes <= 0 Then
Flash.AddError "Delivery paperwork cannot be generated because no shipping boxes were calculated." Flash.AddError "Delivery paperwork cannot be generated because no shipping boxes were calculated."
MVC.RedirectToActionExt "SwitchBoardPurpleEnvelopeEdit", Array("Id", kitId) MVC.RedirectToActionExt "SwitchBoardPurpleEnvelopeEdit", Array("Id", kitId)


+ 108
- 33
Data/Proofs.rep 파일 보기

@@ -122,7 +122,32 @@ object TRpReport
item item
Alias = 'JURISDICTION' Alias = 'JURISDICTION'
DatabaseAlias = 'WEBDATA' DatabaseAlias = 'WEBDATA'
SQL = 'SELECT * FROM JURISDICTION WHERE JCode =PBJCODE'
SQL =
'SELECT'#13#10' q.JCode,'#13#10' CStr(q.[OrigName]) AS [Name],'#13#10#13#10' C' +
'Str('#13#10' Left('#13#10' IIf('#13#10' InStr(1, ' +
'q.OrigMailingAddress, "PO BOX", 1) > 0'#13#10' AND Len(' +
'Trim(Left(q.OrigMailingAddress, InStr(1, q.OrigMailingAddress, "' +
'PO BOX", 1) - 1))) > 0,'#13#10' Trim(Left(q.OrigMailing' +
'Address, InStr(1, q.OrigMailingAddress, "PO BOX", 1) - 1)),'#13#10' ' +
' q.OrigMailingAddress'#13#10' ),'#13#10' 2' +
'55'#13#10' )'#13#10' ) AS [Mailing_Address],'#13#10#13#10' CStr('#13#10' ' +
' Left('#13#10' IIf('#13#10' InStr(1, q.OrigMailing' +
'Address, "PO BOX", 1) > 0'#13#10' AND Len(Trim(Left(q.O' +
'rigMailingAddress, InStr(1, q.OrigMailingAddress, "PO BOX", 1) -' +
' 1))) > 0,'#13#10' Trim(Mid(q.OrigMailingAddress, InStr' +
'(1, q.OrigMailingAddress, "PO BOX", 1))),'#13#10' q.CSZ' +
#13#10' ),'#13#10' 255'#13#10' )'#13#10' ) AS [CSZ],'#13#10#13 +
#10' CStr('#13#10' Left('#13#10' IIf('#13#10' InS' +
'tr(1, q.OrigMailingAddress, "PO BOX", 1) > 0'#13#10' AN' +
'D Len(Trim(Left(q.OrigMailingAddress, InStr(1, q.OrigMailingAddr' +
'ess, "PO BOX", 1) - 1))) > 0,'#13#10' q.CSZ,'#13#10' ' +
' ""'#13#10' ),'#13#10' 255'#13#10' )'#13#10' ) AS ' +
'[Over_Flow],'#13#10#13#10' CStr(q.IMB) AS [IMB],'#13#10' CStr(q.IMB_Digits' +
') AS [IMB_Digits]'#13#10#13#10'FROM'#13#10' ('#13#10' SELECT'#13#10' JC' +
'ode,'#13#10' [Name] AS OrigName,'#13#10' Mailing_Addre' +
'ss AS OrigMailingAddress,'#13#10' CSZ,'#13#10' IMB,'#13#10' ' +
' IMB_Digits'#13#10' FROM Jurisdiction'#13#10' ) AS q'#13#10'WH' +
'ERE'#13#10' JCode = PBJCODE;'
end end
item item
Alias = 'CONTACTS' Alias = 'CONTACTS'
@@ -153,7 +178,7 @@ object TRpReport
item item
Name = 'PBKITID' Name = 'PBKITID'
AllowNulls = False AllowNulls = False
Value = 208
Value = 733
ParamType = rpParamInteger ParamType = rpParamInteger
Datasets.Strings = ( Datasets.Strings = (
'KIT' 'KIT'
@@ -170,7 +195,7 @@ object TRpReport
item item
Name = 'PBJCODE' Name = 'PBJCODE'
AllowNulls = False AllowNulls = False
Value = '34000'
Value = '81920'
Datasets.Strings = ( Datasets.Strings = (
'JURISDICTION' 'JURISDICTION'
'CONTACTS') 'CONTACTS')
@@ -183,7 +208,7 @@ object TRpReport
item item
Name = 'PBMIN' Name = 'PBMIN'
AllowNulls = False AllowNulls = False
Value = 346103
Value = 2363859
ParamType = rpParamInteger ParamType = rpParamInteger
Datasets.Strings = ( Datasets.Strings = (
'KITLABELS') 'KITLABELS')
@@ -196,7 +221,7 @@ object TRpReport
item item
Name = 'PBMAX' Name = 'PBMAX'
AllowNulls = False AllowNulls = False
Value = 347342
Value = 2364882
ParamType = rpParamInteger ParamType = rpParamInteger
Datasets.Strings = ( Datasets.Strings = (
'KITLABELS') 'KITLABELS')
@@ -246,6 +271,9 @@ object TRpReport
end end
item item
Component = TRpExpression19 Component = TRpExpression19
end
item
Component = TRpExpression23
end> end>
ExternalTable = 'REPMAN_REPORTS' ExternalTable = 'REPMAN_REPORTS'
ExternalField = 'REPORT' ExternalField = 'REPORT'
@@ -1981,6 +2009,9 @@ object TRpReport
end end
item item
Component = TRpImage0 Component = TRpImage0
end
item
Component = TRpExpression24
end> end>
ExternalTable = 'REPMAN_REPORTS' ExternalTable = 'REPMAN_REPORTS'
ExternalField = 'REPORT' ExternalField = 'REPORT'
@@ -7626,7 +7657,7 @@ object TRpReport
PosX = 8055 PosX = 8055
PosY = 5865 PosY = 5865
Modul = 17 Modul = 17
Ratio = 3.00000000000000000
Ratio = 3.000000000000000000
Typ = bcCode39 Typ = bcCode39
NumColumns = 1 NumColumns = 1
NumRows = 1 NumRows = 1
@@ -7825,8 +7856,8 @@ object TRpReport
object TRpExpression2: TRpExpression object TRpExpression2: TRpExpression
Width = 4200 Width = 4200
Height = 264 Height = 264
PosX = 7540
PosY = 6090
PosX = 7710
PosY = 5890
Type1Font = poHelvetica Type1Font = poHelvetica
AutoExpand = False AutoExpand = False
AutoContract = False AutoContract = False
@@ -7847,8 +7878,8 @@ object TRpReport
object TRpExpression3: TRpExpression object TRpExpression3: TRpExpression
Width = 4200 Width = 4200
Height = 264 Height = 264
PosX = 7540
PosY = 6555
PosX = 7710
PosY = 6355
Type1Font = poHelvetica Type1Font = poHelvetica
AutoExpand = False AutoExpand = False
AutoContract = False AutoContract = False
@@ -7869,8 +7900,8 @@ object TRpReport
object TRpExpression19: TRpExpression object TRpExpression19: TRpExpression
Width = 4200 Width = 4200
Height = 264 Height = 264
PosX = 7540
PosY = 5840
PosX = 7710
PosY = 5640
Type1Font = poHelvetica Type1Font = poHelvetica
AutoExpand = False AutoExpand = False
AutoContract = False AutoContract = False
@@ -7891,8 +7922,8 @@ object TRpReport
object TRpExpression1: TRpExpression object TRpExpression1: TRpExpression
Width = 4200 Width = 4200
Height = 264 Height = 264
PosX = 7540
PosY = 6330
PosX = 7710
PosY = 6130
Type1Font = poHelvetica Type1Font = poHelvetica
AutoExpand = False AutoExpand = False
AutoContract = False AutoContract = False
@@ -7932,11 +7963,11 @@ object TRpReport
AgIniValue = '0' AgIniValue = '0'
ExportExpression = '' ExportExpression = ''
end end
object TRpExpression20: TRpExpression
object TRpExpression21: TRpExpression
Width = 4200 Width = 4200
Height = 264 Height = 264
PosX = 8055 PosX = 8055
PosY = 5080
PosY = 4365
Type1Font = poHelvetica Type1Font = poHelvetica
AutoExpand = False AutoExpand = False
AutoContract = False AutoContract = False
@@ -7948,17 +7979,17 @@ object TRpReport
DoAfterPrint = '' DoAfterPrint = ''
WFontName = 'Arial' WFontName = 'Arial'
LFontName = 'Helvetica' LFontName = 'Helvetica'
Expression = 'JURISDICTION.CSZ'
Expression = 'CONTACTS.TITLE'
DisplayFormat = '' DisplayFormat = ''
ExportDisplayFormat = '' ExportDisplayFormat = ''
AgIniValue = '0' AgIniValue = '0'
ExportExpression = '' ExportExpression = ''
end end
object TRpExpression21: TRpExpression
object TRpExpression22: TRpExpression
Width = 4200 Width = 4200
Height = 264 Height = 264
PosX = 8055 PosX = 8055
PosY = 4365
PosY = 4855
Type1Font = poHelvetica Type1Font = poHelvetica
AutoExpand = False AutoExpand = False
AutoContract = False AutoContract = False
@@ -7970,17 +8001,54 @@ object TRpReport
DoAfterPrint = '' DoAfterPrint = ''
WFontName = 'Arial' WFontName = 'Arial'
LFontName = 'Helvetica' LFontName = 'Helvetica'
Expression = 'CONTACTS.TITLE'
Expression = 'JURISDICTION.Mailing_Address'
DisplayFormat = '' DisplayFormat = ''
ExportDisplayFormat = '' ExportDisplayFormat = ''
AgIniValue = '0' AgIniValue = '0'
ExportExpression = '' ExportExpression = ''
end end
object TRpExpression22: TRpExpression
object TRpImage0: TRpImage
Width = 4245
Height = 240
PosX = 8055
PosY = 5616
DrawStyle = rpDrawTiledpi
CachedImage = rpCachedVariable
PrintCondition = ''
DoBeforePrint = ''
DoAfterPrint = ''
Expression =
#39'\\kci1\inkjet\BMP\Purple_ballot_envelopes\'#39' + KITLABELS.ColorN' +
'ame + '#39'.bmp'#39
Stream = {0000000000000000}
end
object TRpExpression23: TRpExpression
Width = 4245
Height = 270
PosX = 7710
PosY = 6604
Type1Font = poHelvetica
AutoExpand = False
AutoContract = False
ExportPosition = 0
ExportSize = 1
ExportDoNewLine = False
PrintCondition = ''
DoBeforePrint = ''
DoAfterPrint = ''
WFontName = 'Arial'
LFontName = 'Helvetica'
Expression = 'JURISDICTION.Over_Flow'
DisplayFormat = ''
ExportDisplayFormat = ''
AgIniValue = '0'
ExportExpression = ''
end
object TRpExpression20: TRpExpression
Width = 4200 Width = 4200
Height = 264 Height = 264
PosX = 8055 PosX = 8055
PosY = 4855
PosY = 5080
Type1Font = poHelvetica Type1Font = poHelvetica
AutoExpand = False AutoExpand = False
AutoContract = False AutoContract = False
@@ -7992,25 +8060,32 @@ object TRpReport
DoAfterPrint = '' DoAfterPrint = ''
WFontName = 'Arial' WFontName = 'Arial'
LFontName = 'Helvetica' LFontName = 'Helvetica'
Expression = 'JURISDICTION.Mailing_Address'
Expression = 'JURISDICTION.CSZ'
DisplayFormat = '' DisplayFormat = ''
ExportDisplayFormat = '' ExportDisplayFormat = ''
AgIniValue = '0' AgIniValue = '0'
ExportExpression = '' ExportExpression = ''
end end
object TRpImage0: TRpImage
Width = 4245
Height = 240
object TRpExpression24: TRpExpression
Width = 4200
Height = 264
PosX = 8055 PosX = 8055
PosY = 5400
DrawStyle = rpDrawTiledpi
CachedImage = rpCachedVariable
PosY = 5328
Type1Font = poHelvetica
AutoExpand = False
AutoContract = False
ExportPosition = 0
ExportSize = 1
ExportDoNewLine = False
PrintCondition = '' PrintCondition = ''
DoBeforePrint = '' DoBeforePrint = ''
DoAfterPrint = '' DoAfterPrint = ''
Expression =
#39'\\kci1\inkjet\BMP\Purple_ballot_envelopes\'#39' + KITLABELS.ColorN' +
'ame + '#39'.bmp'#39
Stream = {0000000000000000}
WFontName = 'Arial'
LFontName = 'Helvetica'
Expression = 'JURISDICTION.Over_Flow'
DisplayFormat = ''
ExportDisplayFormat = ''
AgIniValue = '0'
ExportExpression = ''
end end
end end

BIN
ImportService/TrackingDataImport.vbs 파일 보기


불러오는 중...
취소
저장

Powered by TurnKey Linux.