From 44691ccfeabd897ba729d53a72a62e7391462b50 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 16 Apr 2026 10:31:47 +0200 Subject: [PATCH] Warenort_ Anhang --- Aviso/ATEZ/frmATEZ_EZA.Designer.vb | 4 ++-- Aviso/AvisoStatusFunctions.vb | 13 +++++++------ Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmHauptfenster.vb | 2 +- Aviso/frmLaufzettel.vb | 2 +- Aviso/usrcntlAktDetails.vb | 28 +++++++++++++++++++++------- 6 files changed, 34 insertions(+), 19 deletions(-) diff --git a/Aviso/ATEZ/frmATEZ_EZA.Designer.vb b/Aviso/ATEZ/frmATEZ_EZA.Designer.vb index 25f27f0..9105049 100644 --- a/Aviso/ATEZ/frmATEZ_EZA.Designer.vb +++ b/Aviso/ATEZ/frmATEZ_EZA.Designer.vb @@ -378,12 +378,12 @@ Partial Class frmATEZ_EZA ' 'btnPrio_CommInv ' - Me.btnPrio_CommInv.BackColor = System.Drawing.Color.DeepSkyBlue + Me.btnPrio_CommInv.BackColor = System.Drawing.Color.White Me.btnPrio_CommInv.Location = New System.Drawing.Point(76, 28) Me.btnPrio_CommInv.Name = "btnPrio_CommInv" Me.btnPrio_CommInv.Size = New System.Drawing.Size(116, 23) Me.btnPrio_CommInv.TabIndex = 159 - Me.btnPrio_CommInv.Tag = "1" + Me.btnPrio_CommInv.Tag = "0" Me.btnPrio_CommInv.Text = "Handelsrechnung" Me.btnPrio_CommInv.UseVisualStyleBackColor = False ' diff --git a/Aviso/AvisoStatusFunctions.vb b/Aviso/AvisoStatusFunctions.vb index ff2ce7c..82275ee 100644 --- a/Aviso/AvisoStatusFunctions.vb +++ b/Aviso/AvisoStatusFunctions.vb @@ -1182,7 +1182,7 @@ Public Class AvisoStatusFunctions End Function - Public Function setNichtEingeftroffen(AvisoID, Optional geloescht = False) As Boolean + Public Function setNichtEingeftroffen(AvisoID, Optional geloescht = False, Optional auto = False) As Boolean If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then MsgBox("Keine Berechtigung!") Return False @@ -1220,18 +1220,19 @@ Public Class AvisoStatusFunctions Return False End If Dim tmpid = -1 + Dim mitarbeiter = If(auto, "AUTO", VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter) ' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cglobal.Status_Erfasst Then Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen - Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + Aviso.letzterMitarbeiter = Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId tmpid = AvisoDAL.SpeichernAviso(Aviso) If geloescht Then - Aviso.Änderungen = "auf 'Gelöscht' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - AvisoDAL.addAenderung(tmpid, "auf 'Gelöscht' gesetzt", "auf 'Gelöscht' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + Aviso.Änderungen = "auf 'Gelöscht' gesetzt von " & mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + AvisoDAL.addAenderung(tmpid, "auf 'Gelöscht' gesetzt", "auf 'Gelöscht' gesetzt von " & mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) Else - Aviso.Änderungen = "auf LKW nicht eingetroffen gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) - AvisoDAL.addAenderung(tmpid, "auf LKW nicht eingetroffen gesetzt", "auf LKW nicht eingetroffen gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) + Aviso.Änderungen = "auf LKW nicht eingetroffen gesetzt von " & mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) + AvisoDAL.addAenderung(tmpid, "auf LKW nicht eingetroffen gesetzt", "auf LKW nicht eingetroffen gesetzt von " & mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) End If ' End If diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index ed0a218..b709e56 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 6a30126..7a1b411 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -613,7 +613,7 @@ Public Class frmHauptfenster 'zuerst noch prüfen, ob unerledigte Aviso auf nicht eingetroffen gesetzt werden können If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then 'Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " And dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE() and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') " - Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' and ((Transportmittelart = 'CONTAINER' and dateadd(DAY,20,VoraussichtlichesEintreffen) < GETDATE()) or (Transportmittelart <> 'CONTAINER' and dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE()))" + Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-28)) & " AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' and ((Transportmittelart = 'CONTAINER' and dateadd(DAY,20,VoraussichtlichesEintreffen) < GETDATE()) or (Transportmittelart <> 'CONTAINER' and dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE()))" 'dateadd(DAY,10,VoraussichtlichesEintreffen) --> Voraussichtliches Eintreffen muss zudem um 10 Tage überschritten sein --> Container/Hafen haben lange Vorlaufzeiten Dim anz As Integer = AvisoDAL.Check_Nicht_eingetroffen(hSQL) If anz > 0 Then diff --git a/Aviso/frmLaufzettel.vb b/Aviso/frmLaufzettel.vb index b8d3024..1b463b4 100644 --- a/Aviso/frmLaufzettel.vb +++ b/Aviso/frmLaufzettel.vb @@ -423,7 +423,7 @@ Public Class frmLaufzettel tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) Case "DTB" Mail.To = "poststelle.za-dettelbach@zoll.bund.de" - tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_DTB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) Case "WAI" Mail.To = "" tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_WAI", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 5484d2a..f783e74 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -1,12 +1,12 @@ -Imports VERAG_PROG_ALLGEMEIN -Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO - -Imports System.IO 'Imports Gemeinsames.cDatenbank Imports System.Drawing -Imports Microsoft.Office.Interop +Imports System.IO Imports System.Security.Cryptography Imports GrapeCity.DataVisualization.TypeScript +Imports Microsoft.Office.Interop +Imports Microsoft.Reporting.WinForms +Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO Public Class usrcntlAktDetails @@ -361,7 +361,7 @@ Public Class usrcntlAktDetails btnOptionen.Enabled = False btnLkwBeleg.Visible = False 'tbcntlVermerke.TabPages.Remove(tbAnhang) - Button18.Visible = False + Button18.Visible = True ' Berechtigung freigegben 16.04.26 btnDipoListeEmail.Visible = False btnLZDruckDIGITAL.Visible = False @@ -3729,8 +3729,22 @@ Public Class usrcntlAktDetails Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True) If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True) + If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("EPSON", True) - rpt.Document.Printer.PaperKind = Printing.PaperKind.Custom + 'If printer <> "" Then + + ' 'rpt.PageSettings.PaperKind = Drawing.Printing.PaperKind.Custom + ' 'rpt.PageSettings.PaperName = "BON80X200" + ' 'rpt.PageSettings.PaperWidth = 3.15F + ' 'rpt.PageSettings.PaperHeight = 7.87F + ' 'rpt.Document.Printer.PrinterName = printername + + ' ' rpt.Document.Printer.PaperSize = New GrapeCity.ActiveReports.Printing.PaperSize("Custom", 800, 2500) + ' ' rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize + + 'End If + ''rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize + 'rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize = New GrapeCity.ActiveReports.Printing.PaperSize("Custom", 800, 2500) ' ps.PaperSize '.SetPageSettings(ps) If sender Is Button8 OrElse printer = "" Then SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)