Crystal Report報表開發(七)_缺列補空白_Runtime參數設置_公式設置_避免多浪費空白頁的後端程式修正

-

 

在很久之前由於接獲需要用水報翻升廠內用ActiveX舊版報表程式

因而遇到有點挑戰的報表程式設計




特徵:

有格子框住頁首頁尾

每頁20筆(缺列補空白)

轉用水晶報表

有格子框住頁首頁尾 ==>可插入方塊




問題1.每頁20筆(缺列補空白)

這裡就先解決空白列問題，由於Crystal Report 設定細目(詳細資料)
資料源頭時候，主要透過ReportDocument物件SetDataSource的
方法，其中一個overload型態可以Assign DataTable。
這裡自定義一個回傳DataTable的Function，命名為
GetTableWithInSufficientEmptyRow
(考量到當只有一頁或不只一頁的問題)

傳入原本兜好資料的DataTable(可能11筆or55筆這種...剛好不足
每頁預顯示的基數的)
傳入每頁預指定顯示的資料筆數(目前驗證
當每頁水晶報表只有一個Grid時候最大可設到22，這裡設定20)==>設定每頁顯示列數請參考上一篇針對細目的公式設定


程式
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
''' <summary>
    ''' 自動湊滿每頁N筆，缺列補空白列
    ''' </summary>
    ''' <param name="tbGridData"></param>
    ''' <param name="RowCountEachPage"></param>
    ''' <returns></returns>
    Function GetTableWithInSufficientEmptyRow(tbGridData As DataTable, RowCountEachPage As Integer) As DataTable
        Dim TotalDataRowNum As Integer = tbGridData.Rows.Count
        Dim TotalPageNum As Integer = Math.Ceiling(TotalDataRowNum / 20) ' 55 / 20 = 2.75 -> 3 
        'Math.Ceiling(2.5) -> 3
        'Math.Ceiling(2.3) -> 3

        '新增一個新的DataTable,所有Column DataType 都是string格式
        Dim tbNewGridData As New DataTable
        Dim arrDataCol(tbGridData.Columns.Count - 1) As DataColumn
        tbGridData.Columns.CopyTo(arrDataCol, 0)
        For idxColName As Integer = 0 To UBound(arrDataCol)
            tbNewGridData.Columns.Add(tbGridData.Columns.Item(idxColName).ColumnName, GetType(String))
        Next
        '將原先有不同dataType的資料表存入新定義的All-String Type DataTable
        Dim idxRow As Integer = -1
        For Each rowOrig As DataRow In tbGridData.Rows
            idxRow += 1
            Dim drTmp As DataRow = tbNewGridData.NewRow()
            Dim idxCol As Integer = -1
            For Each itemData As Object In rowOrig.ItemArray
                idxCol += 1
                drTmp.Item(tbNewGridData.Columns.Item(idxCol).ColumnName) = If((IsNothing(itemData) Or IsDBNull(itemData)), " ", itemData.ToString())
            Next
            tbNewGridData.Rows.Add(drTmp)
        Next

        '不足的資料列用空字串塞入確保每頁都有20列(缺項補空白資料項)
        '若總共只有11筆則補足到20 -> 補9列空白
        '若總共只有55筆則補足到60 -> 補5列空白 ....依此類推
        Dim InSufficientRowCount As Integer = 0
        If TotalPageNum = 1 Then
            If tbGridData.Rows.Count < RowCountEachPage Then
                InSufficientRowCount = RowCountEachPage - TotalDataRowNum
            End If
        Else
            '(RowCountEachPage * TotalPageNum) = 20 * 3 - 55
            InSufficientRowCount = (RowCountEachPage * TotalPageNum) - TotalDataRowNum
        End If
        For idxInSufficRow As Integer = 0 To InSufficientRowCount - 1
            Dim drTmp As DataRow = tbNewGridData.NewRow()
            For idxCol As Integer = 0 To UBound(arrDataCol)
                drTmp.Item(tbNewGridData.Columns.Item(idxCol).ColumnName) = " "
            Next
            tbNewGridData.Rows.Add(drTmp)
        Next

        Return tbNewGridData
    End Function


所以新回傳的DataTable主要會將原始資料的DataTable物件
轉為全部Column Data Type皆需要是字串的型態(備註:在.NET由於型態敏感，因
空白列若要指定空字串一定都要先轉Data Type)
而當補充空白列的時候又會有資料錄編號把空白列也自動編號的問題產生。






問題2.空白列也會產生出自動列號

接著遇到的問題目前邏輯撈到的資料就只有11筆(這裡自動編號採用特殊欄位==>資料錄編號)

這方法會有個問題空白列也會產生出自動列號!!!




這裡需要用到水晶報表兩個技巧
(1)Runtime設定參數
選擇.rpt報表設計的定義專案後=>到欄位總管下的參數欄位
新增自定義參數，這裡型態我設成數字，由於後續公式中要拿來做數字比對。




我們希望水晶報表在Runtime期間接收實際原始資料真實資列列總數(尚未補足空白列)
這邊務必要注意SetParameterValue一定要放在SetDataSource之後，不然會跳要人輸入的窗。






(2)設定公式
對資料錄(特殊欄位)右鍵選物件格式=>切分頁看到抑制顯示後面的x-2點按進去編寫公式
回傳true代表使其在特定條件不會顯示內容
設定完要記得先按儲存關閉然後確定(有兩次要按!!!!)






問題3.多印出空白浪費的紙張頁


看起來一切都很安穩了結果放上去運行幾個月就有特殊異常發生

多印出空白頁

因此只能想一下修正方法

原來是因為品名(該欄位有設置CanGrow)有的太長導致頁面多跑出一張空白的....>~<

思路首先我要先有辦法得知目前水報給我自動弄出來的總頁數是幾張



透過ReportViewer當中可以跳至最後一頁的方法

我們在去取該頁碼即可得知Total Page Count


之後是處理浪費頁的校正函數

透過遞迴查檢扣掉多餘(補)的資料列

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub ProcessWastePage(ByVal RealRecordNum As Integer, ByVal PerPageNum As Integer,
                         ByVal TotalReportPageInRunTime As Integer,
                         ByVal docReport As ReportDocument,
                         ByVal tbDetail As DataTable,
                         ByVal dicParam As Dictionary(Of String, Object),
                         ByVal RpttViewer As CrystalDecisions.Web.CrystalReportViewer,
                         Optional ByVal IsHaveParam As Boolean = False)
        Dim ReportPageWaste As Boolean = False
        '判斷[總頁數若不只一張] 且 [倒數第二頁資料筆數不滿實際資料筆數]
        If TotalReportPageInRunTime > 1 And RealRecordNum < PerPageNum Then
            '原本拿捏是每頁13列(缺列捕空白)，若資料只有8列就補5列空白Record給Detail Section。
            'Case1.兩張的情況
            'Page1 -> 8筆資料(補4列空白列)
            'Page2 -> 1筆空白列
            Dim NewPerPageNum As Integer = PerPageNum - 1
            Dim tbReimburseDetailWithEmptyNew As DataTable = GetTableWithInSufficientEmptyRow(tbDetail, NewPerPageNum)
            docReport.SetDataSource(tbReimburseDetailWithEmptyNew)

            If IsHaveParam Then
                If dicParam.Keys.Count > 0 Then
                    For Each itemParam As KeyValuePair(Of String, Object) In dicParam
                        docReport.SetParameterValue(itemParam.Key, itemParam.Value)
                    Next
                End If
            End If
            IsHaveParam = dicParam.Count > 0
            RpttViewer.ReportSource = docReport
            RpttViewer.ShowLastPage()
            Dim TotalPageNum As Integer = RpttViewer.ViewInfo.PageNumber
            ProcessWastePage(tbDetail.Rows.Count, NewPerPageNum, TotalPageNum, docReport, tbDetail, dicParam, RpttViewer, IsHaveParam)
        End If
    End Sub



留言

張貼留言

這個網誌中的熱門文章

何謂淨重(Net Weight)、皮重(Tare Weight)與毛重(Gross Weight)

-
圖片
當談到貨物的重量時，往往會分成所謂的淨重(Net Weight)與毛重(Gross Weight)。 會有以下公式關係存在 淨重=毛重-皮重(包裝物的重量) 毛重=淨重+皮重 淨重( Net Weight 縮寫為N.W.) 指物品本身的重量，不包括容器或包裝材料的重量。 凈重是國際貿易中最常見的計重辦法。 例如，如果運輸原材料，原材料的重量就是所運輸貨物的淨重。包裝原材料的容器或包裝不計入淨重。同樣地，當我們考慮一罐豆子時，罐子內所含物品的重量就算作淨重。因此，淨重將包括豆子、罐頭里的任何液體，以及保存豆子所含的物品。 大多數 以重量為計價的貨物買賣 ，採用此計價方法。 若合同中並未明確規範以何種方式計量和計價時，按慣例以凈重計價。 毛重( Gross Weight 縮寫G.W.) 貨物連同它的包裝的重量，是你托運的所有物品的總重量。 皮重(Tare Weight) 指商品外包裝材料的重量(即運輸包裝的重量)，不包括內包裝材料和襯墊物的重量。 比方一個空的貨櫃、容器、或任何包裝材料的重量。 Net Net Weight純淨重 (指從Net Weight中扣除內包裝後的重量) 進出口商品為了因應運輸及消費需求, 一般都有內包裝與外包裝。 一般在買賣合同與信用狀中,通常只要求於裝箱單上註明Gross Weight和Net Weight即可, 但有些L/C 要求 Net Net Weight,大多是海關徵收從量稅時的依據 運輸重量對於航運業或者航空運輸等各自都通用這些術語 為何特別在意重量? 主要就在於會影響像是傳輸安全乘載限制。 就運輸層面(不同方式的運輸) 航空運輸：對機長而言，毛重包括皮重、產品淨重以及飛機、燃料、乘客和機組人員的重量。 公路/鐵路運輸:對於火車車長而言，毛重包括產品淨重、皮重和運輸車輛的重量。 水路航運運輸：對船長而言，毛重就是淨重和皮重之和。 就公司ERP成本角度 成本一般都會採用 "淨重" 主要是因為若用毛重，可能會有輔材不可控因素存在 比方一個 5cm 固定塑膠件，今天用一個 10cm 紙箱測重，明天用一個 100cm 紙箱測重，那可能就容易導致ERP資料比較會失真。 就物流層面來探討 通常還會有一名詞即所謂「實際重量」(Actual Weight) 根據稱重(過磅)所得到的重量，實際重量分為實際毛重(Gross Weig...
閱讀完整內容

Architecture(架構) 和 Framework(框架) 有何不同?_軟體設計前的事前規劃的藍圖概念

-
圖片
一個應用程式(軟體) 不管是  互動拍照 也好、 投影也好、車牌偵測... 舞台演唱會後方電視牆的互動應用程序、 粒子特效、3D或2D遊戲  等等 開發者通常都需要在一開始做規劃 ㄟ  假設我今天要寫 跟影像有關 可能需要偵測、可能需要提取前景、可能需要偵測圓形 之類的 我有  emgucv 、AForge.Net、 opencv 等等可以用 但是 假設我今天要做的應用程序是需要有視窗介面的~~ emgucv 跟 C# windows form 媒合性 就很高 而且直接在 visual studio 做開發 opencv 我可能還需要依賴 Qt 之類等等  framework 假設我今天是要寫一個 演唱會電視牆互動粒子特效 可能就會挑   openframeworks  、 processing 、kinect 來寫互動 Achitecture  --->全稱 :  Software Architecture   軟體架構 Achitecture   由好多 framework 組成 軟體架構（Software Architecture）是一種軟體在開發前的設計藍圖， 用來告訴軟體的結構，功能，介面，用法，與其他系統的構連以及資料交換等等規範， 但它並沒有叫你要用什麼方式實作， 因此軟體架構通常會產生文件，圖樣，原型以及規格等， 就是沒有可用的程式碼，因為那不是軟體架構應該有的東西， 就像蓋房子時是給你藍圖，而不是一幢蓋好的房子。 軟體框架（Framework):是一個已經成形的方法，而且有程式碼實體 （例如鋼構工法也是要有鋼材才能做），並且會告訴你要如何使用它 （即 Framework Documentation，MSDN Library 即為一最佳例子）
閱讀完整內容

經得起原始碼資安弱點掃描的程式設計習慣培養(五)_Missing HSTS Header

-
圖片
  接續前幾篇系列 經得起原始碼資安弱點掃描的程式設計習慣培養(一)_OWASP Top 10(十大網站安全風險)_學習寫更安全程式碼的網站推薦 經得起原始碼資安弱點掃描的程式設計習慣培養(二)_8.Insecure Deserialization ：不安全的反序列化漏洞ASP.NET處理方式 經得起原始碼資安弱點掃描的程式設計習慣培養(三)_7.Cross Site Scripting(XSS)_Stored XSS_Reflected XSS All Clients 經得起原始碼資安弱點掃描的程式設計習慣培養(四)_1.Injection注入攻擊_SQL Injection)_order by 語句正確參數化套入 最近又遇到被若安掃描到高風險要修正的程式碼啦.... 一看這還真是搞不懂該怎麼修呢 HSTS(HTTP Strict Transport Security)  主要是一份國際標準規格 (RFC 6797) 的網際網路瀏覽安全機制， 用於宣告瀏覽器與伺服器之間通訊方式必須強制採用 TLS/SSL 加密通道。 只要從伺服器端送出一個 Strict-Transport-Security 標頭 (Header) 給瀏覽器，即可告知瀏覽器於未來的某段時間內一律使用 SSL 來和該網站連接 (設定可涵蓋所有子域名網站)， 一旦發生憑證失效情況，使用者將無法再瀏覽該網站，如此一來便可大幅減少中間人攻擊的問題發生。 再更白話一點 HSTS Header 就是負責將 http 強制轉為 https CheckMarx掃碼報告給的說明 ============================================================ 風險: 如果web config沒有設置HSTS表頭、"max-age"(有效期)不足一年， 或沒有設定"includeSubDomains"(包含所有子網域)，可能會使用戶容易遭受中間人攻擊。 發生原因: 許多使用者只要在瀏覽器的網址列輸入網域名稱(Domain Name)即可瀏覽網站， 並沒有輸入協定(Protocol)的名稱。 瀏覽器會自動假設使用者使用的是HTTP協定而不是有加密機制的HTTPS協定。 在第一次發出前往特定網站的請求時，攻擊者可以執行中間人攻擊並將用戶轉址到...
閱讀完整內容