From ff67d788f686935062b7d2c4c0a06f1b42fe019c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 28 Sep 2026 16:23:26 +0200 Subject: [PATCH] =?UTF-8?q?div.=20=C3=84nderungen=20Spedbuch,=20etc.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Nacherfassung/frmNacherfassungNEU.vb | 8 +++----- SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb | 10 +++------- VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb | 3 +++ 3 files changed, 9 insertions(+), 12 deletions(-) diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb index d6e8d50f..050ab1d6 100644 --- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb +++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb @@ -620,16 +620,13 @@ Public Class frmNacherfassungNEU Case Else : where = " AND mit_firma NOT IN ('IMEX','UNISPED','AMBAR','FRONTOFFICE') " End Select - ' cboQuickStopMa.fillWithSQL("SELECT ID,cast(ID as nvarchar(3)) +' ' + Name as Name FROM Personal WHERE [Status]<>'L' ORDER BY Name ", False, "FMZOLL", True) - cboQuickStopMa.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " & - " FROM [tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & where & " order by name", False, "ADMIN", True) - - 'ComboBox1.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", True, "FMZOLL") + cboQuickStopMa.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] + ' ('+ mit_abteilung + ')' as NAME FROM [tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_ChatBenutzer = 1 and ISNULL(mit_TESTonly,0) = 0 AND [mit_gekuendigt]=0 and mit_abteilung in ('ZOLL', 'QS') " & where & " order by name", False, "ADMIN", True) Dim LänderSql = "SELECT LandKz as Kz,cast(LandKz as nvarchar(8)) + ' - ' + LandBez as Bez FROM [Länderverzeichnis für die Außenhandelsstatistik] " & " union " & " SELECT RIGHT('00'+CAST(LänderNr AS VARCHAR(2)),2) as Kz,RIGHT('00'+CAST(LänderNr AS VARCHAR(2)),2) + ' - ' + [LänderBez] as Bez FROM [Länder der Bundesrepublik Deutschland] " & " ORDER BY Kz " + cboVersendungsland.fillWithSQL(LänderSql, False, "FMZOLL", True) cboBestimmungsland.fillWithSQL(LänderSql, False, "FMZOLL", True) cbxWaehrung.fillWithSQL(" SELECT LandNr, isnull(Währungscode + ' - ' ,'') + LandBez + ' (' + cast(LandNr as varchar(8)) + ')' FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY case when Währungscode is null then 1 else 0 end,LandBez ", False, "FMZOLL", True) @@ -1801,6 +1798,7 @@ Class cSpedBuch_Aktendeckel VALUES.VG_MA = SQL.DLookup("[Name]", "Personal", "ID='" & SPEDBUCH.Personalnummer & "'", "FMZOLL", "") + VALUES.QS_MA = SQL.DLookup("mit_vname + ' ' + mit_nname", "tblMitarbeiter", "mit_id='" & SPEDBUCH.PersonalnummerQS & "'", "ADMIN", "") diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index b6145670..0bffba57 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -530,11 +530,10 @@ Public Class usrCntlSpeditionsBuchSuche ''' Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"} End Select - cboSB_Qs.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " & - " FROM [tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & where & " order by name", False, "ADMIN", True) + cboSB_Qs.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] + ' ('+ mit_abteilung + ')' as NAME FROM [tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben') AND [mit_gekuendigt]=0 and mit_ChatBenutzer = 1 and ISNULL(mit_TESTonly,0) = 0 " & where & " order by name", False, "ADMIN", True) + + cboSB_TR.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME FROM [tblMitarbeiter] WHERE mit_firma IN ('VERIMEX') AND [mit_gekuendigt]=0 order by name", False, "ADMIN", True) - cboSB_TR.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " & - " FROM [tblMitarbeiter] WHERE mit_firma IN ('VERIMEX') AND [mit_gekuendigt]=0 order by name", False, "ADMIN", True) btnDetailsuche.PerformClick() cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", "VermittlerKundenNr")) @@ -592,9 +591,6 @@ Public Class usrCntlSpeditionsBuchSuche End If - - - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen_Erlöse", "SDL") Then btnSpedBuchEinnahmen.Visible = True End If diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb index dbc44b3c..ee804c1b 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb @@ -1039,6 +1039,7 @@ Public Class cTimasAPI dt.Columns.Add("Geschlecht", GetType(String)) dt.Columns.Add("Ausweis-Nr", GetType(Integer)) dt.Columns.Add("Info", GetType(String)) + 'dt.Columns.Add("AVISO-ID", GetType(Integer)) End If dt.Clear() @@ -1055,6 +1056,8 @@ Public Class cTimasAPI R("Geschlecht") = employee.StringOf("gender") R("Ausweis-Nr") = employee.IntOf("card") R("Info") = employee.StringOf("info") + 'R("AVISO-ID") = employee.IntOf("externid") + dt.Rows.Add(R) j = j + 1 End While