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

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
         '

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

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

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)

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
@@ -3717,6 +3717,8 @@ Public Class usrcntlAktDetails
     End Sub
 
     Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click, Button8.Click, btnQRVerwahrung.Click
+        Try
+
             Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
 
             If dgvSendungen.SelectedRows.Count > 0 Then
@@ -3727,7 +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)
 
+            '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)
@@ -3735,6 +3752,10 @@ Public Class usrcntlAktDetails
                 SDL.cProgramFunctions.printRpt(rpt, printer, True)
             End If
 
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
     End Sub
 
     Private Sub btnAnVerimex_Click(sender As Object, e As EventArgs) Handles btnAnVerimex.Click