今天協助小三敦化門市印表機問題，有一台分享印表機無法列印
處理方式要在分享印表機的主機上設定 registry + 服務的 printer spooler 重啟
請參考 https://www.youtube.com/watch?v=XouW14RUJxs
 

此次電子發票因為配合財政部政冊,我們做了UNT前後台及Turnkey較體的修正,原定2013/12/31將前後台相關程式上線,
2014/1/2再將Turnkey切換成MIG 3.1版本,但是這次上線後發生了幾個狀況...這和上線前未測試完全有關
1.前台於95 84皆未測試到Repay,上線後才想到,還好在上線當天有完成修正
2.後台未測試發票列印,1/2出貨選擇紙本發票的訂單並未隨貨印出,1/3一早才發現程式並未上線至正式台,立即將他上線
即時的解決方法:
1.Repay因在上線當天就發現,所以在上線後一一測試排除了,但三聯式發票的Bug比較麻煩,無法立即處理
2.1/2未印出的發票,我們寄出了一封通知信給那374位未收到發票的顧客,發票依舊由雅卡西亞託管,並會在3/25為他們對獎,
  且讓無發票印列記錄的訂單皆可在前台點選得到"索取紙本發票",1/25之後由我們每天檢查是否有發票索取

必免未來發生相同的錯誤,以後應該:
1.程式未上線至正式台前,需將程式需求中的每一個項目皆測試到,最好可以做一個測試列表勾選
​ (是不是可以做一個程式有修改的清單,上線前可檢查是否有全數更新到?)
2.只要有關購物車中的購買相關程式,皆需測試到Repay
3.最好能想好程式如果無法如期上線的備案

不知還有麼要注意的,大家給點建議吧!
 

康是美出貨印單犯下的錯誤,這邊寫給未來新進同仁注意,出貨印單時發生訂單明細品項箱數與總數量不相符的問題,
測試之後發現是記錄原始訂單上傳log table [OrderFromCosmed Log] ,在撈出該筆訂單品項資料時,資料庫物件
下select條件時發生失誤,以下是程式碼:有問題的程式碼我以#號標記
               

For I As Int32 = 1 To DT.Rows.Count

                 If order_num_right = DT.Rows(I - 1)("Pid") Then

                     Pid_No = I - 1

                 End If

                 #OFCL.Pid = DT.Rows(I - 1)("Pid")

                 #OFCL.GetDataRowAndReturnSelfOrNothing()

                Dim NewT As String = oT.Result

                NewT = NewT.Replace("#Y#", StartY + (I - 1) * LH)

                NewT = NewT.Replace("#序號#", I.ToString)

                NewT = NewT.Replace("#品號#", OFCL.Pid)

                NewT = NewT.Replace("#品名#", OFCL.Product_Name)

                NewT = NewT.Replace("#包裝#", OFCL.Package)

                NewT = NewT.Replace("#單位#", OFCL.UNIT)

                NewT = NewT.Replace("#數量#", OFCL.Qty)

                NewT = NewT.Replace("#箱數#", OFCL.BOX)

                NewT = NewT.Replace("#總數量#", OFCL.Total)

                NewT = NewT.Replace("#未稅價#", OFCL.Price)

                NewT = NewT.Replace("#總金額#", OFCL.Sum)

                Res &= NewT

            Next

說明:已上程式是在撈出訂單品項資料時要對康是美印單用.txt sample檔裡面的字串作取代最後再列印,發生問題的程式碼,
主要是撈出該筆訂單品項時,使用資料庫物件的方法GetDataRowAndReturnSelfOrNothing()時,只下訂單品項id而沒有下
該筆訂單編號,導致撈出來的資料是其他訂單的同品項資料,進而導致數量箱數不符合的狀況發生!!

主要是使用 Printing.PreviewPrintController 的產生預覽圖片的功能來儲存列印內容, 再把圖片送到印表機, 以保証列印內容和儲存的圖檔是一致的. 值得一提的是, 在預覽時可以使用不同的印表機, 以便讓產生較小的圖檔, 否則有時會發生 GDI+ 的錯誤.

Sample 如下:

Imports System.Drawing.Printing

Namespace X

    Partial Public Class PrintSomething

        Dim PD As PrintDocument

        Dim ppc As New Printing.PreviewPrintController()

        Dim TotalPage As Int32 = 0

        ''' <summary>

        ''' 第幾次列印, 用來控制寫出的圖檔

        ''' </summary>

        ''' <remarks></remarks>

        Dim PrintCount As Int32 = 1

        Dim PageCount As Int32 = 1

            :

            :

            :

      

        Sub New(ByVal oPM As DB.PackingListMain, ByVal dtDetail As DataTable, dtUsedCoupon As DataTable)

            '初始化資料

            :

            :

            :

        End Sub

        Sub InitPrintDocument()

            '在這裡設定 PrintDocument 的紙張, 印表機, 邊界, 橫印或直印

            PD = New PrintDocument

            :

            :

            :

        End Sub

        Sub print()

            InitPrintDocument()

            PD.PrintController = ppc

           

            ' 第一次先把列印結果存在 Printing.PreviewPrintController 中

            AddHandler PD.PrintPage, AddressOf GeneratePreview

            '再來儲存圖片

            AddHandler PD.EndPrint, AddressOf SaveImage

            PD.Print()

        End Sub



        Dim ppi() As Printing.PreviewPageInfo

        Dim PrintPage As Int32 = 0

        Sub SaveImage(ByVal sender As Object, ByVal ev As PrintEventArgs)

            PrintDebug("Save Image Start, " & Now.ToString("yyyy-MM-dd HH:mm:ss.fff"))

            '把圖檔存起來

            Dim TF As String = Now.ToString("yyyyMMddHHmmss") ' DB.SysConfig.Path.LocalDataRoot

            Dim PathLocal As String = "C:\PrintLog\" & TF.Substring(0, 4) & "-" & TF.Substring(4, 2) & "\"

            Dim PathPackingListSheetImage As String = DB.SysConfig.PackingListSheetImage & TF.Substring(0, 4) & "-" & TF.Substring(4, 2) & "\"

            System.IO.Directory.CreateDirectory(PathLocal)

            System.IO.Directory.CreateDirectory(PathPackingListSheetImage)

            Dim LatestImages As String = ""

            ppi = ppc.GetPreviewPageInfo()

            For x As Integer = 0 To ppi.Length - 1

                Dim Filename As String = TF & "_" & Me.oPM.Id & "_" & x & ".png"

                ppi(x).Image.Save(PathLocal & Filename, System.Drawing.Imaging.ImageFormat.Png)

            Next



            '把圖檔印出來

            For x As Integer = 0 To ppi.Length - 1

  '建立新的 PrintDocument

                InitPrintDocument()

                If CST.WebConfig.Server_NAME = "測試主機" Then

                    UW.WU.DebugWriteLine("PrinterName: " & Me.PD.PrinterSettings.PrinterName)

                    UW.WU.DebugWriteLine("PaperSize: " & PD.DefaultPageSettings.PaperSize.PaperName)

                    PD.DocumentName = "PackingList"

                    PD.PrinterSettings.PrintFileName = "C:\PDF\PackingList" & Now.ToString("yyyyMMddHHmmss") & "_" & PrintPage & ".prn"

                    PD.PrinterSettings.PrintToFile = True

                    'PD.PrinterSettings.

                End If

                '很奇怪, 這裡不會分頁, 所以要一張一張印   

                AddHandler PD.PrintPage, AddressOf pd_PrintPage2

                PD.Print()



               PrintPage += 1

            Next

        End Sub

        Private Sub pd_PrintPage2(ByVal sender As Object, ByVal ev As PrintPageEventArgs)

            '很奇怪, 這裡不會分頁, 所以要一張一張印           

            ev.Graphics.DrawImage(ppi(PrintPage).Image, 0, 0)

            ev.HasMorePages = False

        End Sub



        Private Sub GeneratePreview(ByVal sender As Object, ByVal ev As PrintPageEventArgs)

            ' 列印內容

        End Sub

        End Class

    End Class

End Namespace