AppCustom/SchaumKommi
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-01-08 17:19:09 +01:00
parent 6c661e5c84
commit 62a3cc3eb8
53 changed files with 1961 additions and 1125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
SchaumKommiCollo/KommiCollo/frmPrintOptions.vb
View File

@@ -22,10 +22,10 @@ Public Class frmPrintOptions
Dim SQL = "SELECT * FROM TBKOMMCOLLI_SENDUNGEN where GUID = " & CURRENT_SENDUNG
Dim DTSENDUNG As DataTable = ClassDatabase.Return_Datatable(SQL)
If DTSENDUNG.Rows.Count = 1 Then
SQL = "SELECT * FROM TBKOMMCOLLI_SDGPOSITIONEN where SENDUNGNR = " & CURRENT_SENDUNG
Dim DTPOS As DataTable = ClassDatabase.Return_Datatable(SQL)
If DTPOS.Rows.Count > 0 Then
For Each row As DataRow In DTPOS.Rows
SQL = "SELECT * FROM TBKOMMCOLLI_SDG_LHM where SENDUNGNR = " & CURRENT_SENDUNG
Dim DTKOMMCOLLI_SDG_LHM As DataTable = ClassDatabase.Return_Datatable(SQL)
If DTKOMMCOLLI_SDG_LHM.Rows.Count > 0 Then
For Each row As DataRow In DTKOMMCOLLI_SDG_LHM.Rows
Dim NAME1 = DTSENDUNG.Rows(0).Item("NAME1").ToString.Trim
Dim STRASSE = DTSENDUNG.Rows(0).Item("STRASSE").ToString.Trim
Dim PLZ = DTSENDUNG.Rows(0).Item("PLZ").ToString.Trim
@@ -107,14 +107,14 @@ Public Class frmPrintOptions
Catch ex As Exception
' MsgBox("1: " & ex.Message, MsgBoxStyle.Critical)
'Catch Exception Here
End Try
RawPrinter.SendToPrinter("NVE-Etikett", pText.ToString, IP)
Catch ex As Exception
MsgBox("2:" & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -128,7 +128,7 @@ Public Class frmPrintOptions
Private Sub btnUebernahme_Click(sender As Object, e As EventArgs) Handles btnUebernahme.Click
Try
Me.VWHUP_REPORT1TableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
Me.VWHUP_REPORT1TableAdapter.Fill(Me.MyDataset.VWHUP_REPORT1, True)
Me.VWHUP_REPORT1TableAdapter.Fill(Me.MyDataset.VWHUP_REPORT1, True, False)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try