Merge branch 'master' of https://git.it.verag.ag/edv/AVISO

Aviso/App.config

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
   <configSections>
     <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.2.5.2")>
+<Assembly: AssemblyVersion("4.2.5.4")>
-<Assembly: AssemblyFileVersion("4.2.5.2")>
+<Assembly: AssemblyFileVersion("4.2.5.4")>

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -68,6 +68,7 @@ Public Class frmGesamtsicherheitenMenuNEU
 
     Public Function LoadDGV()
         Dim sqladdon As String = ""
+        Dim sqlWhere As String = ""
         Dim sqlSicherheitssaldo As String = ""
         If chkOffen.Checked Then sqlSicherheitssaldo &= " HAVING
                                                             (   COALESCE(MAX(SicherheitsSaldo.gs_SicherheitsSaldo), 0) + 
@@ -77,6 +78,24 @@ Public Class frmGesamtsicherheitenMenuNEU
         If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'"
         If cbxAUTO.Checked Then sqladdon &= " AND CAST(gs_dakoyimport AS INT) = 1"
 
+
+        If txtSuchbegriff.Text <> "" Then
+
+            sqlWhere = " AND ( gs.gs_freitext LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
+                                        gs.gs_abfertigungsNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
+                                        gs.gs_avisoId LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
+                                        gs.gs_ATBNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
+                                        gs.gs_VeralteteWeitereRegistriernummer LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
+                                        gs.gs_MRNNr LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
+                                        gs.gs_LKWKZ LIKE '%" & txtSuchbegriff.Text.Trim() & "%' OR
+                                        gs.gs_warenort LIKE '%" & txtSuchbegriff.Text.Trim() & "%'
+                                    )"
+
+
+
+
+        End If
+
         'Dim sqlstring As String =
         '    " select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, MIN(gs_avisoId) as gs_avisoId,
         '             max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT(
@@ -145,17 +164,10 @@ Public Class frmGesamtsicherheitenMenuNEU
                                     tblGesamtsicherheit gs
                                 LEFT JOIN SicherheitsSaldo ON gs.gs_gsnr = SicherheitsSaldo.gs_gsnr
                                 LEFT JOIN PositionenSaldo ON gs.gs_gsnr = PositionenSaldo.gsp_gsnr
-                                WHERE
+                                WHERE gs.gs_gsnr <> 2030 AND
                                     gs.gs_standort = '" & Standort & "' " & sqladdon & "
-                                    AND gs.gs_datum BETWEEN '" & Date.Parse(txtDatVon.Text) & "' AND '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'
+                                    AND gs.gs_datum BETWEEN '" & Date.Parse(txtDatVon.Text) & "' AND '" & Date.Parse(txtDatBis.Text).AddDays(1).AddSeconds(-1) & "'" & sqlWhere & " 
-                                    AND (
+                                    
-                                        gs.gs_freitext LIKE '%" & txtSuchbegriff.Text & "%' OR
-                                        gs.gs_abfertigungsNr LIKE '%" & txtSuchbegriff.Text & "%' OR
-                                        gs.gs_avisoId LIKE '%" & txtSuchbegriff.Text & "%' OR
-                                        gs.gs_ATBNr LIKE '%" & txtSuchbegriff.Text & "%' OR
-                                        gs.gs_LKWKZ LIKE '%" & txtSuchbegriff.Text & "%' OR
-                                        gs.gs_warenort LIKE '%" & txtSuchbegriff.Text & "%'
-                                    )
                                 GROUP BY
                                     gs.gs_gsnr " & sqlSicherheitssaldo &
                                 "ORDER BY
@@ -472,7 +484,7 @@ Public Class frmGesamtsicherheitenMenuNEU
                                     WHEN gs_art = 'Open' THEN -gs_sicherheitsbetrag
                                     WHEN gs_art = 'Close' THEN gs_sicherheitsbetrag
                                 END) AS gs_SicherheitsSaldo
-                            FROM tblGesamtsicherheit
+                            FROM tblGesamtsicherheit WHERE gs_gsnr <> 2030
                             GROUP BY gs_gsnr
                         ),
                         PositionenSaldo AS (
@@ -482,7 +494,7 @@ Public Class frmGesamtsicherheitenMenuNEU
                                     WHEN gsp_art = 'Open' THEN -gsp_sicherheitsbetrag
                                     WHEN gsp_art = 'Close' THEN gsp_sicherheitsbetrag
                                 END) AS gsp_SicherheitsSaldo
-                            FROM tblGesamtsicherheitsPositionen
+                            FROM tblGesamtsicherheitsPositionen WHERE gsp_gsnr <> 2030
                             GROUP BY gsp_gsnr
                         )
                         SELECT 
@@ -497,7 +509,7 @@ Public Class frmGesamtsicherheitenMenuNEU
                             FROM tblGesamtsicherheit gs
                             LEFT JOIN SicherheitsSaldo ON gs.gs_gsnr = SicherheitsSaldo.gs_gsnr
                             LEFT JOIN PositionenSaldo ON gs.gs_gsnr = PositionenSaldo.gsp_gsnr
-                            WHERE gs.gs_standort = '" & Standort & "'
+                            WHERE gs.gs_standort = '" & Standort & "' AND gs.gs_gsnr <> 2030
                             AND gs.gs_datum < '" & Date.Now().AddDays(-85) & "'
                             GROUP BY gs.gs_gsnr
                         ) AS meh2

Aviso/frmGesamtsicherheitenNEU.vb

@@ -80,12 +80,7 @@ Public Class frmGesamtsicherheitenNEU
 
             cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
 
-            If warenortPrefix <> "" Then
+            setcboWarenort(True)
-                cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1  AND wo_ze = 1 AND LEFT([wo_warenort],2) = " & warenortPrefix & " ORDER BY [wo_reihenfolge]  ", True, "AVISO", True)
-            Else
-                cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1  AND wo_ze = 1 AND [wo_firma] = " & firmaId & " ORDER BY [wo_reihenfolge]  ", True, "AVISO", True) '
-            End If
-
 
 
             If datum = Nothing Then datum = Date.Now
@@ -94,28 +89,6 @@ Public Class frmGesamtsicherheitenNEU
 
             txtlkwIdSearch.initSearchBox(Me.FindForm, "  LKW_Nr, AvisoID, CAST(Datum as Date) as Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoID", "AVISO",, 250, 200)
 
-            If Standort = "AMBAR GmbH" Then
-                For i As Integer = 0 To cboFiliale.Items.Count - 1
-                    If cboFiliale.Items(i).ToString().Contains("5701") Then
-                        cboFiliale.SelectedIndex = i
-                        Exit For
-                    End If
-                Next
-                For i As Integer = 0 To cboWarenort.Items.Count - 1
-                    If cboWarenort.Items(i).ToString().Contains("AMBAR") Then
-                        cboWarenort.SelectedIndex = i
-                        Exit For
-                    End If
-                Next
-            ElseIf grenzstelle <> "" Then
-
-                For i As Integer = 0 To cboWarenort.Items.Count - 1
-                    If cboWarenort.Items(i).ToString().Contains(grenzstelle) Then
-                        cboWarenort.SelectedIndex = i
-                        Exit For
-                    End If
-                Next
-            End If
 
         Else
             LoadDGVSicherheiten(True)
@@ -2339,4 +2312,58 @@ Public Class frmGesamtsicherheitenNEU
 
     End Sub
 
+    Private Sub setcboWarenort(setDefaultValue As Boolean)
+
+        Dim whereWarenort As String = " WHERE [wo_aktiv] = 1  AND wo_ze = 1"
+
+
+        If Standort = "Atilla GmbH" Then
+
+            '----'nicht unisped und cs und ambar aber alle anderen - laut j.Siener am 23.03.2026
+
+            whereWarenort &= " AND [wo_firma] not in (24, 21,22,23, 11)"
+
+        Else
+            If warenortPrefix <> "" Then
+                whereWarenort &= " AND LEFT([wo_warenort],2) = " & warenortPrefix & ""
+            Else
+                whereWarenort &= " AND [wo_firma] = " & firmaId
+            End If
+
+        End If
+
+        cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] " & whereWarenort, True, "AVISO", True)
+
+
+        If setDefaultValue AndAlso cboWarenort.Items.Count > 0 Then
+
+            If Standort = "AMBAR GmbH" Then
+                For i As Integer = 0 To cboFiliale.Items.Count - 1
+                    If cboFiliale.Items(i).ToString().Contains("5701") Then
+                        cboFiliale.SelectedIndex = i
+                        Exit For
+                    End If
+                Next
+                For i As Integer = 0 To cboWarenort.Items.Count - 1
+                    If cboWarenort.Items(i).ToString().Contains("AMBAR") Then
+                        cboWarenort.SelectedIndex = i
+                        Exit For
+                    End If
+                Next
+            ElseIf grenzstelle <> "" Then
+
+                For i As Integer = 0 To cboWarenort.Items.Count - 1
+                    If cboWarenort.Items(i).ToString().Contains(grenzstelle) Then
+                        cboWarenort.SelectedIndex = i
+                        Exit For
+                    End If
+                Next
+            End If
+
+        End If
+
+
+
+    End Sub
+
 End Class

Aviso/frmSendungsdetailsNEU.resx

@@ -1402,9 +1402,6 @@
         BXidk8YAAAAAAElFTkSuQmCC
 </value>
   </data>
-  <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>296, 17</value>
-  </metadata>
   <data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAH1JREFUOE/V
@@ -1923,9 +1920,6 @@
   <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>174, 17</value>
   </metadata>
-  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>404, 17</value>
-  </metadata>
   <metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>596, 17</value>
   </metadata>

Aviso/frmSendungsdetailsNEU.vb

@@ -2607,6 +2607,12 @@ Public Class frmSendungsdetailsNEU
             Case "44"
                 pnlT1.Controls.Add(usrcntl_ATB)
 
+                cboVorpapier._value = ""
+                cboVorpapier2._value = ""
+                cboVorpapier3._value = ""
+                txtVorpapierPos.Text = ""
+                txtVorpapier2Pos.Text = ""
+                txtVorpapier3Pos.Text = ""
                 cboVorpapier.Enabled = False
                 cboVorpapier2.Enabled = False
                 cboVorpapier3.Enabled = False
@@ -7899,4 +7905,22 @@ Public Class frmSendungsdetailsNEU
             initAnhang()
         End If
     End Sub
+
+    Private Sub txtVorpapierPos_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtVorpapierPos.KeyPress, txtVorpapier2Pos.KeyPress, txtVorpapier3Pos.KeyPress
+        If Char.IsControl(e.KeyChar) Then
+            Return
+        End If
+
+        If Char.IsDigit(e.KeyChar) OrElse e.KeyChar = ","c OrElse e.KeyChar = "+"c OrElse e.KeyChar = " "c Then
+            Return
+        End If
+
+        e.Handled = True
+    End Sub
+
+    Private Sub txtVorpapierPos_KeyDown(sender As Object, e As KeyEventArgs) Handles txtVorpapierPos.KeyDown, txtVorpapier2Pos.KeyDown, txtVorpapier3Pos.KeyDown
+        If e.Control AndAlso e.KeyCode = Keys.V Then
+            e.SuppressKeyPress = True
+        End If
+    End Sub
 End Class

Aviso/usrCntlSND_ATBGestellung.Designer.vb

@@ -24,18 +24,18 @@ Partial Class usrCntlSND_ATBGestellung
     Private Sub InitializeComponent()
         Me.pnlT1 = New System.Windows.Forms.Panel()
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
-        Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.btnGesSicherheit = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox()
-        Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.Label33 = New System.Windows.Forms.Label()
+        Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.pnlT1.SuspendLayout()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -64,37 +64,12 @@ Partial Class usrCntlSND_ATBGestellung
         '
         Me.PictureBox5.BackgroundImage = Global.AVISO.My.Resources.Resources.fragezeichen1
         Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox5.Location = New System.Drawing.Point(0, 8)
+        Me.PictureBox5.Location = New System.Drawing.Point(2, 8)
         Me.PictureBox5.Name = "PictureBox5"
         Me.PictureBox5.Size = New System.Drawing.Size(18, 19)
         Me.PictureBox5.TabIndex = 132
         Me.PictureBox5.TabStop = False
         '
-        'txtT1Datum
-        '
-        Me.txtT1Datum._DateTimeOnly = False
-        Me.txtT1Datum._numbersOnly = False
-        Me.txtT1Datum._numbersOnlyKommastellen = ""
-        Me.txtT1Datum._numbersOnlyTrennzeichen = True
-        Me.txtT1Datum._Prozent = False
-        Me.txtT1Datum._ShortDateNew = True
-        Me.txtT1Datum._ShortDateOnly = False
-        Me.txtT1Datum._TimeOnly = False
-        Me.txtT1Datum._TimeOnly_Seconds = False
-        Me.txtT1Datum._value = ""
-        Me.txtT1Datum._Waehrung = False
-        Me.txtT1Datum._WaehrungZeichen = True
-        Me.txtT1Datum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtT1Datum.ForeColor = System.Drawing.Color.Black
-        Me.txtT1Datum.Location = New System.Drawing.Point(272, 33)
-        Me.txtT1Datum.MaxLength = 10
-        Me.txtT1Datum.MaxLineLength = -1
-        Me.txtT1Datum.MaxLines_Warning = ""
-        Me.txtT1Datum.MaxLines_Warning_Label = Nothing
-        Me.txtT1Datum.Name = "txtT1Datum"
-        Me.txtT1Datum.Size = New System.Drawing.Size(83, 20)
-        Me.txtT1Datum.TabIndex = 38
-        '
         'DateTimePicker1
         '
         Me.DateTimePicker1.CustomFormat = "''"
@@ -150,6 +125,60 @@ Partial Class usrCntlSND_ATBGestellung
         Me.cbxATBFakturieren.ThreeState = True
         Me.cbxATBFakturieren.UseVisualStyleBackColor = True
         '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.Location = New System.Drawing.Point(23, 59)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(92, 13)
+        Me.Label4.TabIndex = 20
+        Me.Label4.Text = "ATB / Gestellung:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(23, 81)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(51, 13)
+        Me.Label3.TabIndex = 15
+        Me.Label3.Text = "Zollstelle:"
+        '
+        'Label33
+        '
+        Me.Label33.AutoSize = True
+        Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label33.Location = New System.Drawing.Point(23, 14)
+        Me.Label33.Name = "Label33"
+        Me.Label33.Size = New System.Drawing.Size(79, 13)
+        Me.Label33.TabIndex = 3
+        Me.Label33.Text = "Vorpapier / T1:"
+        '
+        'txtT1Datum
+        '
+        Me.txtT1Datum._DateTimeOnly = False
+        Me.txtT1Datum._numbersOnly = False
+        Me.txtT1Datum._numbersOnlyKommastellen = ""
+        Me.txtT1Datum._numbersOnlyTrennzeichen = True
+        Me.txtT1Datum._Prozent = False
+        Me.txtT1Datum._ShortDateNew = True
+        Me.txtT1Datum._ShortDateOnly = False
+        Me.txtT1Datum._TimeOnly = False
+        Me.txtT1Datum._TimeOnly_Seconds = False
+        Me.txtT1Datum._value = ""
+        Me.txtT1Datum._Waehrung = False
+        Me.txtT1Datum._WaehrungZeichen = True
+        Me.txtT1Datum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtT1Datum.ForeColor = System.Drawing.Color.Black
+        Me.txtT1Datum.Location = New System.Drawing.Point(272, 33)
+        Me.txtT1Datum.MaxLength = 10
+        Me.txtT1Datum.MaxLineLength = -1
+        Me.txtT1Datum.MaxLines_Warning = ""
+        Me.txtT1Datum.MaxLines_Warning_Label = Nothing
+        Me.txtT1Datum.Name = "txtT1Datum"
+        Me.txtT1Datum.Size = New System.Drawing.Size(83, 20)
+        Me.txtT1Datum.TabIndex = 38
+        '
         'txtATBNr
         '
         Me.txtATBNr._DateTimeOnly = False
@@ -196,25 +225,6 @@ Partial Class usrCntlSND_ATBGestellung
         Me.txtATBT1.Size = New System.Drawing.Size(269, 20)
         Me.txtATBT1.TabIndex = 22
         '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(23, 59)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(92, 13)
-        Me.Label4.TabIndex = 20
-        Me.Label4.Text = "ATB / Gestellung:"
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(23, 81)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(51, 13)
-        Me.Label3.TabIndex = 15
-        Me.Label3.Text = "Zollstelle:"
-        '
         'txtT1VerzollungsadresseBestimmungszollstelle
         '
         Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False
@@ -241,16 +251,6 @@ Partial Class usrCntlSND_ATBGestellung
         Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 16
         Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing
         '
-        'Label33
-        '
-        Me.Label33.AutoSize = True
-        Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label33.Location = New System.Drawing.Point(23, 14)
-        Me.Label33.Name = "Label33"
-        Me.Label33.Size = New System.Drawing.Size(79, 13)
-        Me.Label33.TabIndex = 3
-        Me.Label33.Text = "Vorpapier / T1:"
-        '
         'usrCntlSND_ATBGestellung
         '
         Me.Controls.Add(Me.pnlT1)