Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click If sOption = 0 Then Try Dim f As New BogartMis.Bas.frmPrint Dim rpt As New ReportDocument Dim rptPath As String If chkCHNVER.Checked = True Then rptpath = Application.StartupPath & "\NewReports\FG_CartonLableC.rpt" Else rptpath = Application.StartupPath & "\NewReports\FG_CartonLable.rpt" End If rpt.Load(rptPath) Dim netDs As New DataSet Dim ctnid As String For Each R As DataRow In TmpT.Rows If R("s_select") = 1 Then If Len(ctnid) = 0 Then ctnid = "'" & R("ctnid") & "'" Else ctnid = ctnid & ",'" & R("ctnid") & "'" End If End If Next Dim strCompyC As String If g.gLocation = LocationType.BRUNE Then strCompyC = "Brunet" Else If g.gLocation = LocationType.CHINA_SHENZHEN Then strCompyC = "SHS" Else strCompyC = "Bogart" End If End If Dim StrSql As String = "select a.ctnno,a.pkmeth,a.batchno,(select count(b.bobid) from FG_CartonBobbin b where b.ctnid=a.ctnid) TOTBOB,a.netwgtkg,a.cstpono,a.remark,a.grswgtkg,a.netwgtlb,a.deflenm,a.grslenm,a.netlenm,(case len(rtrim(dbo.FUN_FG_GET_CARTON_BANDNO(a.ctnid))) when 0 then c.deg else c.deg + '-' + dbo.FUN_FG_GET_CARTON_BANDNO(a.ctnid) end) as deg,c.olddeg,c.csprd,c.prddsc,c.cstord,c.clot,c.cordno,c.bicom,c.shcom,c.cscom,c.cstref,c.cscomd,c.prdcom,c.ordunm,c.spproc " StrSql += " from fg_cartondetail a left join dbo.FG_OrderDetail c on a.clot=c.clot and a.cstord=c.cstord and a.deg=c.deg and a.bicom=c.bicom and a.bandno=c.bandno " StrSql += " where a.clot='" & CLOT & "' and a.cstord='" + CSTORD + "' and a.deg='" + DEG + "' and a.bicom='" + BICOM + "' and a.bandno='" + BANDNO + "' and a.ctnid in (" & ctnid & ") " StrSql += " order by a.batchno,a.ctnno " Dim netPrint As DataTable = gData.GetDataTable(StrSql, sqlConn) AddBarcodeImages(netPrint) netDs.Tables.Add(netPrint) netDs.Tables(0).TableName = "Detail" Dim netLogo As OleDb.OleDbDataAdapter = gData.GetCompanyLogo(sqlConn, "", strCompyC) netLogo.Fill(netDs, "mos") rpt.SetDataSource(netDs) f.CrystalReportViewer1.ReportSource = rpt '傳數據給報表打印 f.ShowDialog() Catch ex As Exception System.Console.WriteLine(ex.ToString) Finally gSub.setPrompt("Ready") Me.Cursor = Cursors.Default End Try Else Try Dim f As New BogartMis.Bas.frmPrint Dim rpt As New ReportDocument Dim rptPath As String If chkCHNVER.Checked = True Then rptpath = Application.StartupPath & "\NewReports\FG_BobbinLableC.rpt" Else rptpath = Application.StartupPath & "\NewReports\FG_BobbinLable.rpt" End If rpt.Load(rptPath) Dim netDs As New DataSet Dim bobid As String For Each R As DataRow In TmpT.Rows If R("s_select") = 1 Then If Len(bobid) = 0 Then bobid = "'" & R("bobid") & "'" Else bobid = bobid & ",'" & R("bobid") & "'" End If End If Next Dim strCompyC As String If g.gLocation = LocationType.BRUNE Then strCompyC = "Brunet" Else If g.gLocation = LocationType.CHINA_SHENZHEN Then strCompyC = "SHS" Else strCompyC = "Bogart" End If End If Dim StrSql As String = "select '' as bobtyp,a.bobno,a.batchno,a.webno,a.grswgtkg,a.netwgtkg,a.netwgtlb,a.grslenm,a.deflenm,a.netlenm,a.remark,(case len(rtrim(c.bandno)) when 0 then c.deg else c.deg + '-' + c.bandno end) as deg,c.olddeg,c.cstord,c.cordno,c.clot,c.bicom,c.bandno,c.csprd,c.cstref,c.shcom,c.cscom,c.cscomd,c.ordunm,c.spproc " StrSql += " from fg_bobbindetail a left join dbo.FG_OrderDetail c on a.clot=c.clot and a.cstord=c.cstord and a.deg=c.deg and a.bicom=c.bicom and a.bandno=c.bandno " StrSql += " where a.clot='" & CLOT & "' and a.cstord='" + CSTORD + "' and a.deg='" + DEG + "' and a.bicom='" + BICOM + "' and a.bandno='" + BANDNO + "' and a.bobid in (" & bobid & ") order by bobno " Dim netPrint As DataTable = gData.GetDataTable(StrSql, sqlConn) netDs.Tables.Add(netPrint) netDs.Tables(0).TableName = "Detail" Dim netLogo As OleDb.OleDbDataAdapter = gData.GetCompanyLogo(sqlConn, "", strCompyC) netLogo.Fill(netDs, "mos") rpt.SetDataSource(netDs) f.CrystalReportViewer1.ReportSource = rpt f.ShowDialog() Catch ex As Exception System.Console.WriteLine(ex.ToString) Finally gSub.setPrompt("Ready") Me.Cursor = Cursors.Default End Try End If End Sub Private Sub AddBarcodeImages(ByVal DTab As DataTable) If Not DTab Is Nothing Then DTab.Columns.Add("BCIMAGE", Type.GetType("System.Byte[]")) Dim r As DataRow For Each r In DTab.Rows Try Dim BatchNo As String = r.Item("batchno") & "-" & CStr(r.Item("ctnno")).Trim Dim sFileName As String = "C:\TEMP\" & BatchNo & ".jpg" Shell("Barcode.exe " & BatchNo & " 36", AppWinStyle.NormalFocus, True)'必須安裝.NET Framework v4.0以上版本 Dim fs As IO.FileStream = New IO.FileStream(sFileName, IO.FileMode.Open) Dim fi As IO.FileInfo = New IO.FileInfo(sFileName) Dim fl As Long = fi.Length Dim lung As Integer = Convert.ToInt32(fl) Dim imgBytes As Byte() = New Byte(lung - 1) {} fs.Read(imgBytes, 0, lung) fs.Close() r.Item("BCIMAGE") = imgBytes Dim f As IO.File Try f.Delete(sFileName) Catch ex As Exception Console.WriteLine(ex.ToString) End Try Catch ex As Exception ErrorMsg.Show(ex) End Try Next End If End Sub
