diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj
index 11f9275..0f4bf3b 100644
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -263,17 +263,17 @@
..\..\..\dll\NumericBox.dll
-
+
False
- ..\..\..\dll\Spire.PDF\2022\Spire.License.dll
+ ..\..\..\dll\Spire.PDF\2023\Spire.License.dll
-
+
False
- ..\..\..\dll\Spire.PDF\2022\Spire.Pdf.dll
+ ..\..\..\dll\Spire.PDF\2023\Spire.Pdf.dll
-
+
False
- ..\..\..\dll\Spire.PDF\2022\Spire.PdfViewer.Forms.dll
+ ..\..\..\dll\Spire.PDF\2023\Spire.PdfViewer.Forms.dll
diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index d9b1a04..ae94481 100644
--- a/Aviso/My Project/AssemblyInfo.vb
+++ b/Aviso/My Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
'
-
-
+
+
diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index 480097d..e984839 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -209,6 +209,7 @@ Public Class frmHauptfenster
Else
cboGrenzstelle.Items.Clear()
cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
+ cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO"))
cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
End If
@@ -249,6 +250,7 @@ Public Class frmHauptfenster
''''End If
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True, False, "ALLE")
+ cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
cboMy_Grenzstelle.changeItem("")
''''cboMy_Grenzstelle.changeItem("ALLE_BACK") 'greift nur wenn verfügbar..
@@ -928,12 +930,16 @@ Public Class frmHauptfenster
hSQL &= datumseinschr
+ If cboGrenzstelle._value = "ALLE_WO" Then
+ hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) ) "
- ' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'"
- If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'"
- ' Bestimmungs.ZST
- If cboGrenzstelle._value = "???" And txtBestimmungszollstelle._value <> "" Then
- hSQL += " AND Zollstelle = '" & txtBestimmungszollstelle._value & "'"
+ Else
+ ' If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'"
+ If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'"
+ ' Bestimmungs.ZST
+ If cboGrenzstelle._value = "???" And txtBestimmungszollstelle._value <> "" Then
+ hSQL += " AND Zollstelle = '" & txtBestimmungszollstelle._value & "'"
+ End If
End If
@@ -1237,26 +1243,33 @@ Public Class frmHauptfenster
" FROM Aviso " &
" WHERE ( Status IN (0, 3, 4, 5,6,7) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) "
- If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
+ 'If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
+
+ If cboMy_Grenzstelle._value = "ALLE_WO" Then
+ sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) ) "
+ ElseIf cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then
+ sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
+
+ End If
sqlStr &= " ORDER BY case " &
- " when [Status] =3 then 0 " &
- " when [Status] =6 then 0.5 " &
- " when [Status] =7 then 0.5 " &
- " when [Status] =0 then 1 " &
- " when [Status] =99 then 2 " &
- " when [Status] =4 then 3 " &
- " when [Status] =1 then 4 " &
- " when [Status] =5 then 4 " &
- " when [Status] =0 then 5 " &
- " END, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
- Else
+ " when [Status] =3 then 0 " &
+ " when [Status] =6 then 0.5 " &
+ " when [Status] =7 then 0.5 " &
+ " when [Status] =0 then 1 " &
+ " when [Status] =99 then 2 " &
+ " when [Status] =4 then 3 " &
+ " when [Status] =1 then 4 " &
+ " when [Status] =5 then 4 " &
+ " when [Status] =0 then 5 " &
+ " END, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
+ Else
- '----------------------------------------------------------------------------------------------------------------------------------
- '--- Sendung ---
- '----------------------------------------------------------------------------------------------------------------------------------
- Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer"
+ '----------------------------------------------------------------------------------------------------------------------------------
+ '--- Sendung ---
+ '----------------------------------------------------------------------------------------------------------------------------------
+ Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer"
If cboMyAvisoAnzeige._value <> "" Then
If cboMyAvisoAnzeige._value = "ALLE" Then
' inBearbeitungSQL = " 1=1 " 'ALLE
@@ -1286,8 +1299,15 @@ Public Class frmHauptfenster
Case CheckState.Unchecked : sqlStr &= " AND tblSnd_Vorbereitet is null "
' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null "
End Select
- If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
- If cboMy_Grenzstelle._value = "ALLE_BACK" Then sqlStr &= " AND FilialenNr NOT IN ('7001','7002','7003') "
+ If cboMy_Grenzstelle._value = "ALLE_WO" Then
+ sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) ) "
+ Else
+
+ If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
+ If cboMy_Grenzstelle._value = "ALLE_BACK" Then sqlStr &= " AND FilialenNr NOT IN ('7001','7002','7003') "
+
+ End If
+
If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then sqlStr &= " AND FilialenNr NOT IN ('7001','7002','7003') "
'Farbe