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 即為一最佳例子）
閱讀完整內容

(2021年度)駕訓學科筆試準備題庫歸納分析_法規是非題

-
圖片
  若是出現 「必須」、「必需」、「...必...」、「應由」、「應先」、「應...」 則很高機率是圈 是非通常只要是如下字眼 「不必」+動詞 、「不需」「不須」、「可不」、「可以不」、「可立即」 有出現或符合的都選叉 (X)1.違規記點又不登記在駕照上，所以可以 不必理會 而任意違反交通規則。 (X)2.發生重大交通事故，為迅速恢復交通，清除現場，可 不必等待 肇事處理機關之指示，即可進行。 (X)3.道路駕駛練習，行車前 不必實施 車輛安全檢查，因為那是駕駛教練的工作。 (X)4.開車前， 不必檢查 機件安全，但在行駛中要隨時注意儀錶功能顯示，確保行車安全。 (X)5.煞車油若經常低於"MIN"線，只要添加即可， 不必到修理廠檢修 。 (X)6.冷卻系統只要副水箱在滿水位，主水箱 不必檢查 也不會有問題。 (X)7.引擎冷卻水內含有防凍液或防銹劑，可 不必更換 。 (X)8.儀錶板上的「燃油油量錶」之指針高度，已經降低至「E」點，橘色的「低油料警示燈」點亮時， 不必急著加油 ，到達目的地後再行補充燃油即可。 (X)9.有安全氣囊裝備的汽車， 不必繫 安全帶。 (X)10.煞車時有異音，是正常的情況， 不必檢修 。 (X)11.汽車定期檢驗 不必檢驗 車輛故障標誌，所以隨車不一定要帶車輛故障標誌。 (X)12.開車時 不必理會 義交之指揮，一切以號誌為主。 (X)13.汽車經過隧道，因隧道內燈光明亮視線良好，為省電可 不必開亮 頭燈。 (X)14.駕駛人只求技術優良，對遵守交通規則 不必太重視 。 (X)15.在開車前， 不必檢查 機件，以免耽誤行車時間。 (X)16.遇幼童專用車、校車、身心障礙者用特製車或教練車， 不必禮讓 。 (X)17.行車 不必攜帶 隨車工具。 (X)18.行車起駛前進， 不必顯示 方向燈。 (X)19.汽車通過鐵路平交道，前後兩車間， 不必保持 距離。 (X)20.夜間將車輛停放在無燈光設備及照明不清之道路時，亦 不必顯示 停車燈光或反光標識。 (X)21.在夜間或有霧靄、雨雪、風沙及晝晦時，把車輛停在路旁， 不必顯示 停車燈光或反光標識。 (X)22.汽車駕駛人，僅需具有優良駕駛技術， 不需 具備急救的常識和技能。 (X)23.汽車車身、引擎、底盤、電系等重要設備變更或調換時， 不需 向公路主管機關申請臨時檢驗。
閱讀完整內容