Vermerke

2026-03-09 13:18:30 +01:00
parent 4cfa876d70
commit 1c8baf3637
5 changed files with 82 additions and 43 deletions
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("4.2.4.2")>
-<Assembly: AssemblyFileVersion("4.2.4.2")>
+<Assembly: AssemblyVersion("4.2.4.3")>
+<Assembly: AssemblyFileVersion("4.2.4.3")>
--- a/Aviso/frmHauptfensterNew.Designer.vb
+++ b/Aviso/frmHauptfensterNew.Designer.vb
@@ -303,13 +303,13 @@ Partial Class frmHauptfensterNew
        Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
        Me.pnlLeft = New System.Windows.Forms.Panel()
+        Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
        Me.Panel5 = New System.Windows.Forms.Panel()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
        Me.Panel7 = New System.Windows.Forms.Panel()
        Me.UidAbfrageService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService()
-        Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
        Me.conMenuAviso.SuspendLayout()
        Me.MenuStrip1.SuspendLayout()
        Me.pnlDetailsRechts.SuspendLayout()
@@ -2543,6 +2543,14 @@ Partial Class frmHauptfensterNew
        Me.pnlLeft.Size = New System.Drawing.Size(367, 741)
        Me.pnlLeft.TabIndex = 88
        '
+        'UsrCntlBenachrichtigungen2
+        '
+        Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10)
+        Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
+        Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(367, 315)
+        Me.UsrCntlBenachrichtigungen2.TabIndex = 5
+        '
        'Panel5
        '
        Me.Panel5.BackColor = System.Drawing.Color.White
@@ -2580,7 +2588,7 @@ Partial Class frmHauptfensterNew
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
        Me.TabPage1.Size = New System.Drawing.Size(359, 275)
        Me.TabPage1.TabIndex = 0
-        Me.TabPage1.Text = "TabPage1"
+        Me.TabPage1.Text = "Chat"
        Me.TabPage1.UseVisualStyleBackColor = True
        '
        'TabPage2
@@ -2608,14 +2616,6 @@ Partial Class frmHauptfensterNew
        Me.UidAbfrageService1.Url = "https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/"
        Me.UidAbfrageService1.UseDefaultCredentials = False
        '
-        'UsrCntlBenachrichtigungen2
-        '
-        Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10)
-        Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
-        Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(367, 315)
-        Me.UsrCntlBenachrichtigungen2.TabIndex = 5
-        '
        'frmHauptfensterNew
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/Aviso/frmHauptfensterNew.vb
+++ b/Aviso/frmHauptfensterNew.vb
@@ -64,7 +64,7 @@ Public Class frmHauptfensterNew



-    Dim SEARCH_AVISO As New usrCntlHauptfenster_Suche_AVISO
+    Dim SEARCH_AVISO As usrCntlHauptfenster_Suche_AVISO = Nothing
    Dim SEARCH_AVISO_AKTIV As String = "AVISO"

    Public Sub New()
@@ -104,11 +104,29 @@ Public Class frmHauptfensterNew
        SEARCH_AVISO_AKTIV = switchTO

        Select Case SEARCH_AVISO_AKTIV
-            Case "AVISO"
-                pnlMain.Controls.Add(SEARCH_AVISO)
-                SEARCH_AVISO.Dock = DockStyle.Fill
-                '  SEARCH_AVISO.init(Me)
+            Case "SND"
+                Dim aaaaa As New usrCntlSND_Ausfuhr
+                pnlMain.Controls.Add(aaaaa)
                initsearch("", False) ': Aviso_anzeigen("")
+
+            Case "AVISO"
+                If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
+
+                pnlMain.Controls.Add(SEARCH_AVISO)
+
+                'SEARCH_AVISO.Dock = DockStyle.Fill
+                SEARCH_AVISO.Visible = True
+                SEARCH_AVISO.BringToFront()
+                SEARCH_AVISO.Width = pnlMain.Width
+                SEARCH_AVISO.Height = pnlMain.Height
+
+                pnlMain.PerformLayout()
+                SEARCH_AVISO.PerformLayout()
+                Application.DoEvents()
+
+
+                MsgBox(pnlMain.Width & " / " & pnlMain.Height)
+                MsgBox(SEARCH_AVISO.Width & " / " & SEARCH_AVISO.Height)
        End Select

    End Sub
@@ -322,30 +340,6 @@ Public Class frmHauptfensterNew
                ' lblErweitereSuche.Visible = False
                MDMParkplatzkartenToolStripMenuItem.Visible = False

-                '  SplitContainer3.Panel1Collapsed = True
-                '  Button10.Visible = False
-
-                'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
-                '    Button10.Visible = True
-                '    SplitContainer3.Panel1Collapsed = True
-                'End If
-            Case Else
-
-                'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
-                '    SplitContainer3.Panel1Collapsed = True
-                'End If
-
-                'AVISO vom PC übernehmen
-                Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName()
-                Select Case zeilen
-                    Case 0 : SEARCH_AVISO.lblAkte.Visible = False
-                    Case 1 : SEARCH_AVISO.lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen"
-                    Case Else : SEARCH_AVISO.lblAkte.Text = zeilen & " Akte vom Arbeitsplatz übernommen"
-                End Select
-
-                If Not (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then
-                    SEARCH_AVISO.cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
-                End If
        End Select


@@ -393,7 +387,6 @@ Public Class frmHauptfensterNew
        End If
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
            BREXITToolStripMenuItem.Visible = True
-            SEARCH_AVISO.cbx_My_Brexit.Checked = True
        End If

        'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
@@ -3827,4 +3820,12 @@ ELSE_ATILLA:
        SEARCH_AVISO.RESET()
        Grid_aktiv = True
    End Sub
+
+    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
+        Grid_aktiv = False
+        SWITCH_SEARCH("SND")
+
+        ' SEARCH_AVISO.RESET()
+        Grid_aktiv = True
+    End Sub
 End Class
--- a/Aviso/usrCntlHauptfenster_Suche_AVISO.vb
+++ b/Aviso/usrCntlHauptfenster_Suche_AVISO.vb
@@ -12,6 +12,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO

    Private AvisoDAL As New cAvisoDAL
    Private FUNC As New AvisoStatusFunctions
+    Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL
+

    Public Sub RESET()
        cboGrenzstelle.SelectedIndex = 0
@@ -157,6 +159,35 @@ Public Class usrCntlHauptfenster_Suche_AVISO
            initEAviso()
        End If

+
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "ATILLA" ' Case "VERAG", "IMEX"
+            Case Else
+
+                'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
+                '    SplitContainer3.Panel1Collapsed = True
+                'End If
+
+                'AVISO vom PC übernehmen
+                Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName()
+
+                Select Case zeilen
+                    Case 0 : lblAkte.Visible = False
+                    Case 1 : lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen"
+                    Case Else : lblAkte.Text = zeilen & " Akte vom Arbeitsplatz übernommen"
+                End Select
+
+                If Not (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then
+                    cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+                End If
+
+        End Select
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
+            cbx_My_Brexit.Checked = True
+        End If
+
+
        tbcntrAvisoLKW.Width = Panel1.Width

        'tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X + getTbControlWidth(tbcntrAvisoLKW) + 80, tbcntrAvisoSND.Location.Y)
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -465,6 +465,7 @@ Public Class usrcntlAktDetails
            .Columns("VorauskasseId").Visible = False     'tblSnd_Empfaengernicht anzeigen
            .Columns("SMSId").Visible = False     'tblSnd_Empfaengernicht anzeigen
            .Columns("VermerkIDAufgehoben").Visible = False     'tblSnd_Empfaengernicht anzeigen
+            .Columns("Kategorie").Visible = False     'tblSnd_Empfaengernicht anzeigen

            .Columns("Datum").Width = 125 '110
            .Columns("Datum").HeaderText = "Datum"
@@ -882,7 +883,7 @@ Public Class usrcntlAktDetails
    End Sub

    Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
-                                " CASE WHEN VermerkeCode IS NULL OR VermerkBezeichnungFixAnzeigen = 1 THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue" &
+                                " CASE WHEN VermerkeCode IS NULL OR VermerkBezeichnungFixAnzeigen = 1 THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue, Kategorie" &
                             " FROM [Vermerke]   LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
                             " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
                             " WHERE AvisoID = [[AvisoId]] [[sendwhere]]  AND HintergrundVermerk =0 " &
@@ -1356,6 +1357,12 @@ Public Class usrcntlAktDetails
                    'r.DefaultCellStyle.ForeColor = Color.White
                    r.DefaultCellStyle.BackColor = Color.Yellow
                End If
+                If gridvermerke.Columns.Contains("Kategorie") Then
+                    Select Case r.Cells("Kategorie").Value.ToString
+                        Case "ZOLL" : r.DefaultCellStyle.BackColor = Color.MistyRose
+                        Case "ZOLL_STORNO" : r.DefaultCellStyle.BackColor = Color.IndianRed
+                    End Select
+                End If
                If CBool(r.Cells("Geloescht").Value) Then
                    r.DefaultCellStyle.Font = New Font(gridvermerke.Font.FontFamily, gridvermerke.Font.Size, FontStyle.Strikeout)
                End If