MSÄnderungen

SchaumKommiCollo/KommiCollo/frmMain.vb

@@ -125,7 +125,11 @@ Public Class frmMain
             End Try
             If _EDV_no <> String.Empty And _LS_no <> String.Empty Then
                 Dim sql = String.Format("SELECT MIN(GUID) FROM VKKOPF WHERE vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}'", _EDV_no, _LS_no)
-                Dim GUID As Integer = ClassDatabase.Execute_Scalar_CS(sql, My.Settings.ConfigConnStringMercator, True)
+                Dim GUID = ClassDatabase.Execute_Scalar_CS(sql, My.Settings.ConfigConnStringMercator, True)
+                If IsDBNull(GUID) Then
+                    MsgBox("Für diese Kombination aus Lieferschein und EDV-Nr existieren keine Daten!", MsgBoxStyle.Exclamation)
+                    Return False
+                End If
                 Dim getMERC_SELECT = String.Format("select TOP 1 vkkopf_kunde FROM VKKOPF WHERE vkkopf_bestellnr = '{0}' and [vkkopf_eingang_nr] = '{1}' AND GUID = {2}", _EDV_no, _LS_no, GUID)
                 Dim MERC_KDNR = ClassDatabase.Execute_Scalar_CS(getMERC_SELECT, My.Settings.ConfigConnStringMercator, True)
                 If MERC_KDNR Is Nothing Then
@@ -650,6 +654,7 @@ Public Class frmMain
                         aktLHM_SDG_ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBKOMMCOLLI_SDG_LHM", True)
                         If aktLHM_SDG_ID > 0 Then
                             btnPalfertig.Text = "Palette (" & aktLHM_SDG_ID.ToString & ", " & cmbLHM.Text & ") fertig"
+                            Refresh_LHM(CURRENT_SENDUNG)
                             'ins = String.Format("INSERT INTO TBKOMMCOLLI_SDGPOSITIONEN (SENDUNGNR,SDG_LHM_ID,ERSTELLTWER) VALUES ({0},{1},'{2}')", CURRENT_SENDUNG, aktLHM_SDG_ID, Environment.UserName)
                             'If ClassDatabase.Execute_non_Query(ins, True) = False Then
                             'cmbLHM.Enabled = False
@@ -674,6 +679,10 @@ Public Class frmMain
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        If IsNothing(CURR_IP_PRINTER) Then
+            MsgBox("Bitte wählen Sie den Versendertyp aus! (HuP oder GLS)", MsgBoxStyle.Information)
+            Exit Sub
+        End If
         'frmLabel.ShowDialog()
         frmPrintOptions.ShowDialog()
 
@@ -762,4 +771,22 @@ Public Class frmMain
             MsgBox("Error in GridViewLHM.CellValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
+
+    Private Sub txtHinweistext_TextChanged(sender As Object, e As EventArgs) Handles txtHinweistext.TextChanged
+        If txtHinweistext.Text <> String.Empty Then
+            If txtHinweistext.Text.Length > 35 Then
+                Dim text = txtHinweistext.Text
+                text = txtHinweistext.Text.Substring(0, 35)
+                txtHinweistext.Text = text
+                txtHinweistext.SelectionStart = 36
+                MsgBox("Achtung, hier sind nur 35 Zeichen erlaubt!",MsgBoxStyle.Information)
+            End If
+        End If
+    End Sub
+
+    Private Sub pnlHuP_VisibleChanged(sender As Object, e As EventArgs) Handles pnlHuP.VisibleChanged
+        If pnlHuP.Visible = True Then
+            txtFreitext.Text = ""
+        End If
+    End Sub
 End Class

SchaumKommiCollo/KommiCollo/frmPrintOptions.vb

@@ -94,7 +94,7 @@ Public Class frmPrintOptions
             pText.AppendLine("^AU^FO150,610^CI27^^FD" & empStrasse & "^FS")
             pText.AppendLine("^AU^FO80,610^CI27^^FDDE-" & empPLZ & " " & empOrt & "^FS")
             pText.AppendLine("^XZ") 'Every Format must end with this command
-
+            Dim tempZPL = pText.ToString
             Try
                 'Open Connection
                 Dim client As New System.Net.Sockets.TcpClient

SchaumKommiCollo/SetupWix/obj/Debug/SetupWix.wixproj.FileList.txt

@@ -2,9 +2,9 @@ E:\JenneJ\Visual Studio\SchaumKommi\SetupWix\bin\Debug\KommiCollo-x86-1.0.0.0.ms
 E:\JenneJ\Visual Studio\SchaumKommi\SetupWix\bin\Debug\KommiCollo-x86-1.0.0.0.wixpdb
 E:\SchreiberM\Visual Studio\GIT\SetupWix\bin\Debug\KommiCollo-x86-2.0.0.0.msi
 E:\SchreiberM\Visual Studio\GIT\SetupWix\bin\Debug\KommiCollo-x86-2.0.0.0.wixpdb
+E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\SetupWix\bin\Debug\KommiCollo-x86-2.0.0.1.msi
+E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\SetupWix\bin\Debug\KommiCollo-x86-2.0.0.1.wixpdb
 obj\Debug\Product.wixobj
 obj\Debug\SetupWix.wixproj.BindContentsFileListde-DE.txt
 obj\Debug\SetupWix.wixproj.BindOutputsFileListde-DE.txt
 obj\Debug\SetupWix.wixproj.BindBuiltOutputsFileListde-DE.txt
-E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\SetupWix\bin\Debug\KommiCollo-x86-2.0.0.1.msi
-E:\SchreiberM\Visual Studio\GIT\SchaumKommi\SchaumKommiCollo\SetupWix\bin\Debug\KommiCollo-x86-2.0.0.1.wixpdb