neu

2020-09-23 07:23:26 +02:00
parent 81905f2f44
commit bead6bad6d
34 changed files with 1873 additions and 878 deletions
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -192,6 +192,7 @@ Public Class frmHauptfenster
        cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
        cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
        cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
+        cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB"))
        cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
        cboGrenzstelle.changeItem("")

@@ -211,6 +212,7 @@ Public Class frmHauptfenster
        cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
        cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
        cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
+        cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMB", "AMB"))
        cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
        cboMy_Grenzstelle.changeItem("")

@@ -219,6 +221,9 @@ Public Class frmHauptfenster
        cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
        cboMyAvisoAnzeige.changeItem("Benutzer")

+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
+            StandortWechselnToolStripMenuItem.Visible = True
+        End If

        'MyComboBox2.Items.Clear()
        'MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
@@ -265,8 +270,9 @@ Public Class frmHauptfenster
                    Case Else : lblAkte.Text = zeilen & " Akte vom Arbeitsplatz übernommen"
                End Select

-                If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
-                    cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
+                If Not (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then
+                    ' cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
+                    cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
                End If
        End Select

@@ -288,14 +294,16 @@ Public Class frmHauptfenster
            AdministrationToolStripMenuItem.Visible = True
            lblMitarbeiter.Text += " (Admin)"
            Button3.Visible = True
+
+        End If
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
            Button12.Visible = True
            Label22.Visible = True
-            Label22.Text = "XX"
+            initEAviso()
        End If
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MESSENGER", "AVISO") Then
            picAVISOMessenger.Visible = True
        End If
-
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG", "SDL") Then
            btnFakturierung.Visible = True
        End If
@@ -331,11 +339,11 @@ Public Class frmHauptfenster
            'btnGenerelleGestellungen.Visible = False
            btnSpedBuch.Visible = False
            btnDienstplan.Visible = True
-            btnNeu.Enabled = False
-            SplitContainer2.Visible = False
+            'btnNeu.Enabled = False
+            ' SplitContainer2.Visible = False
            btnDrucken.Visible = False
            'SplitContainer2.Panel2Collapsed = True
-            splitMain.Panel2Collapsed = True
+            '   splitMain.Panel2Collapsed = True
        End If

        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN", "AVISO") Then
@@ -453,6 +461,12 @@ Public Class frmHauptfenster

    End Sub

+    Sub initEAviso()
+        Label22.Text = VERAGSQL.getValueTxtBySql("SELECT count(*) FROM [tblNCTS_TR] where ncts_AVISO_einarbeitet=0 AND ncts_Partnersystem='ATEZ'", "FMZOLL") '"XX"
+        If Label22.Text = "0" Then Label22.Text = ""
+        Label22.Visible = Label22.Text <> ""
+        Label22.BringToFront()
+    End Sub
    Public Sub setAktDetails(id, showSendungsdetails)
        Details_anzeigen(id) ', showSendungsdetails)
    End Sub
@@ -1865,7 +1879,6 @@ Public Class frmHauptfenster
            sped.Show()
            Me.Cursor = Cursors.Default
        End If
-
    End Sub

    Private Declare Function ShowWindow Lib "user32" _
@@ -1972,6 +1985,7 @@ Public Class frmHauptfenster
            If Not Grid_aktiv Then Exit Sub
            Details_aktiv = False

+            initEAviso()

            If Aviso_anzeigenBool Then Aviso_anzeigen("", False) ': meineAviso_anzeigen()

@@ -2463,6 +2477,13 @@ Public Class frmHauptfenster

    End Function
    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+
+        Dim cRKSV_DE As New VERAG_PROG_ALLGEMEIN.cRKSV_DE
+
+        cRKSV_DE.SignRKSV_DE()
+
+
+        Exit Sub
        'Me.Cursor = Cursors.WaitCursor

        Dim firma = ""
@@ -3041,7 +3062,9 @@ Public Class frmHauptfenster
    End Sub

    Private Sub BerechtigungenNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BerechtigungenNeuLadenToolStripMenuItem.Click
-        VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
+        showMeNew()
+        'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
+        'cADMIN.checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
    End Sub

    Private Sub LeereRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LeereRechnungToolStripMenuItem.Click
@@ -3303,60 +3326,60 @@ Public Class frmHauptfenster
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht_EV)
    End Sub

-    Private Sub TESTToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TESTToolStripMenuItem.Click
-        'VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({"C:\Users\DEVELOPER1\Desktop\Reiter.pdf"})
-        ' VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder("C:\Users\DEVELOPER1\Desktop\20191017092932604.pdf", 489919001, 1234)
+    'Private Sub TESTToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TESTToolStripMenuItem.Click
+    '    'VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({"C:\Users\DEVELOPER1\Desktop\Reiter.pdf"})
+    '    ' VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder("C:\Users\DEVELOPER1\Desktop\20191017092932604.pdf", 489919001, 1234)

-        TryPDF()
-    End Sub
+    '    TryPDF()
+    'End Sub

-    Shared Sub TryPDF()
-        '  Spire.License.LicenseProvider.SetLicenseKey("0xMEMAEABRiC6jPC4G3HMNAremyuZ15w8z1KmLKr9LnNmK8HaKpB6Q2+qrwh1uG0h5ui52KoJSRMg1suH9cs+IW+GtPapLk/UMMWbBlil6FmO/3TvpVJeLs3UetAz3YYCThbpPViCAY/6vBZrGePq9jMpST0Ln3PgEAVK6Obm4NELOjk9GNUdQGXgdCQ7ry9QIXR5DPYOSi2gSkQ+WihEx9K1hS5bl6VYOmIeAg109mcPIzdlja8O8z8wvIrqBwdivQXCN88B0NzEoBr7EiKl3mQEIcm1W8B3ppWmYPeZt3xfkR9H+xdVVfRnK8AEEgfB+/YEA9K2hQZpTPhaz3cHq31hHqeS2/NgQxaTx0/QghmPaLnoxqR2v2dDRe2oOxfXqmeHTI5e9cl8nWcgYl2fRhaDSvYYOs7GeO8tmiOlgMCdg+JO3EMQByyQ+AACEKRuTB8TI7OIU9POPs6dWaEZyu3YuWSDk4rGnCmdpJ3gHCJ7Qy9qoBtv+psnJAe/ylQCbqdvejSAKKtUonSpolK2zhqFljWqsWclgxk4NdvOd4tphER9c7H5sr2cn/SZgCXRftpk+G6zT/JPcY7LH5OP4kgQR9pH3g7O67C0YPCE7+20gLsTNaPfv7/mGoIMzTbUoteJN5D9jTLipYtfh8eLaEsLWL1rJ+sqr+MQvoYDNeWq6oG8bjkTyFe2GQkOZlBZEmpmR7W2QliMC7uSfbuJe6XHpM3dgROIluQHJQDAKge+LlYOd+QU5QPsI754noJZttSNKthzPxI9rP/FN+otlvvG8nddbx8v+PZAJ6KovIvexH7lWITw/Xrak4wzzaXCoeC5wUM2M5Y/4PL8tbKM+qIrH0kMZPHAdGIM4wJ8PA1UoEqB9Hgml6ggzk69WA1zY88W0y03js/7a/tWgwa+sEK9YK+cJXy54FpsLRFqkpSA0mOcJa3ukST9wnCOzVdN+Z4K4mCUzR++VJPVNkAA+KxEHrOOWG5kaUwUAk0sVRB8j8pjB83InevzxZJGX0+F+agjZJHQpzPdF1blS9WQqrW9p80fco3YI63i9+K78Q5TIuSlHOlPTLvuC1dxglzD3WkLsxnBd9woA5zQLVMdfYTfGntOuAEiBYqyVIMo35J/ese8SxczTqKOCcxBdLYCtE4S23yik6gL1YifmvjboavpRl6BPEf9M8iLe2xLRiJ+63rXTnexITUUYsq2XqCOj2YDdDnQywjMfnQ74WRQfD1vrGu7xcCTDCDkfql8uF2f8w00kqCS9UgpnsEuw5FoElVrgPNLvOlDSgqLdHOG0yiL9wwzPxtUZBiq6vNxkEkc+w0ZaQr012bHQoDyR/uMKPoLgmANaCb7qnsWLeoo+IrhfjwpUW6dXnIo7ENAFS0U6kjwGMrWDJU2JaH3M+8Iz//HLDO3Yr3eWC+wtt/I3Ii48Ra6CgPYTOfeRL3L+NkEBYfCVdxpQ==")
+    'Shared Sub TryPDF()
+    '    '  Spire.License.LicenseProvider.SetLicenseKey("0xMEMAEABRiC6jPC4G3HMNAremyuZ15w8z1KmLKr9LnNmK8HaKpB6Q2+qrwh1uG0h5ui52KoJSRMg1suH9cs+IW+GtPapLk/UMMWbBlil6FmO/3TvpVJeLs3UetAz3YYCThbpPViCAY/6vBZrGePq9jMpST0Ln3PgEAVK6Obm4NELOjk9GNUdQGXgdCQ7ry9QIXR5DPYOSi2gSkQ+WihEx9K1hS5bl6VYOmIeAg109mcPIzdlja8O8z8wvIrqBwdivQXCN88B0NzEoBr7EiKl3mQEIcm1W8B3ppWmYPeZt3xfkR9H+xdVVfRnK8AEEgfB+/YEA9K2hQZpTPhaz3cHq31hHqeS2/NgQxaTx0/QghmPaLnoxqR2v2dDRe2oOxfXqmeHTI5e9cl8nWcgYl2fRhaDSvYYOs7GeO8tmiOlgMCdg+JO3EMQByyQ+AACEKRuTB8TI7OIU9POPs6dWaEZyu3YuWSDk4rGnCmdpJ3gHCJ7Qy9qoBtv+psnJAe/ylQCbqdvejSAKKtUonSpolK2zhqFljWqsWclgxk4NdvOd4tphER9c7H5sr2cn/SZgCXRftpk+G6zT/JPcY7LH5OP4kgQR9pH3g7O67C0YPCE7+20gLsTNaPfv7/mGoIMzTbUoteJN5D9jTLipYtfh8eLaEsLWL1rJ+sqr+MQvoYDNeWq6oG8bjkTyFe2GQkOZlBZEmpmR7W2QliMC7uSfbuJe6XHpM3dgROIluQHJQDAKge+LlYOd+QU5QPsI754noJZttSNKthzPxI9rP/FN+otlvvG8nddbx8v+PZAJ6KovIvexH7lWITw/Xrak4wzzaXCoeC5wUM2M5Y/4PL8tbKM+qIrH0kMZPHAdGIM4wJ8PA1UoEqB9Hgml6ggzk69WA1zY88W0y03js/7a/tWgwa+sEK9YK+cJXy54FpsLRFqkpSA0mOcJa3ukST9wnCOzVdN+Z4K4mCUzR++VJPVNkAA+KxEHrOOWG5kaUwUAk0sVRB8j8pjB83InevzxZJGX0+F+agjZJHQpzPdF1blS9WQqrW9p80fco3YI63i9+K78Q5TIuSlHOlPTLvuC1dxglzD3WkLsxnBd9woA5zQLVMdfYTfGntOuAEiBYqyVIMo35J/ese8SxczTqKOCcxBdLYCtE4S23yik6gL1YifmvjboavpRl6BPEf9M8iLe2xLRiJ+63rXTnexITUUYsq2XqCOj2YDdDnQywjMfnQ74WRQfD1vrGu7xcCTDCDkfql8uF2f8w00kqCS9UgpnsEuw5FoElVrgPNLvOlDSgqLdHOG0yiL9wwzPxtUZBiq6vNxkEkc+w0ZaQr012bHQoDyR/uMKPoLgmANaCb7qnsWLeoo+IrhfjwpUW6dXnIo7ENAFS0U6kjwGMrWDJU2JaH3M+8Iz//HLDO3Yr3eWC+wtt/I3Ii48Ra6CgPYTOfeRL3L+NkEBYfCVdxpQ==")

-        Dim tmpFile = "C:\Users\DEVELOPER1\Desktop\Base\" & "27 AVN 83.pdf"
-        'Test file: 16 AST 87 AVIS.PDF'
-        Dim oldPdf As New Spire.Pdf.PdfDocument()
-        oldPdf.LoadFromFile(tmpFile)
-        For i As Integer = 0 To oldPdf.Pages.Count - 1
-            extractFirstPage(tmpFile, i)
-        Next i
-    End Sub
+    '    Dim tmpFile = "C:\Users\DEVELOPER1\Desktop\Base\" & "27 AVN 83.pdf"
+    '    'Test file: 16 AST 87 AVIS.PDF'
+    '    Dim oldPdf As New Spire.Pdf.PdfDocument()
+    '    oldPdf.LoadFromFile(tmpFile)
+    '    For i As Integer = 0 To oldPdf.Pages.Count - 1
+    '        extractFirstPage(tmpFile, i)
+    '    Next i
+    'End Sub

-    Shared Sub extractFirstPage(ByRef TmpFile, i)
-        Dim oldPdf As New Spire.Pdf.PdfDocument()
-        oldPdf.LoadFromFile(TmpFile)
+    'Shared Sub extractFirstPage(ByRef TmpFile, i)
+    '    Dim oldPdf As New Spire.Pdf.PdfDocument()
+    '    oldPdf.LoadFromFile(TmpFile)

-        Dim SplitPdf As New Spire.Pdf.PdfDocument()
-        Dim page1 As Spire.Pdf.PdfPageBase
-        page1 = SplitPdf.Pages.Add(oldPdf.Pages(0).Size, New Spire.Pdf.Graphics.PdfMargins(0))
-        oldPdf.Pages(0).CreateTemplate().Draw(page1, New PointF(0, 0))
-        Dim result As String = String.Format("C:\Users\DEVELOPER1\Desktop\Base\" & "output2\SplitOutput{0}.pdf", i)
-        SplitPdf.SaveToFile(result, Spire.Pdf.FileFormat.PDF)
+    '    Dim SplitPdf As New Spire.Pdf.PdfDocument()
+    '    Dim page1 As Spire.Pdf.PdfPageBase
+    '    page1 = SplitPdf.Pages.Add(oldPdf.Pages(0).Size, New Spire.Pdf.Graphics.PdfMargins(0))
+    '    oldPdf.Pages(0).CreateTemplate().Draw(page1, New PointF(0, 0))
+    '    Dim result As String = String.Format("C:\Users\DEVELOPER1\Desktop\Base\" & "output2\SplitOutput{0}.pdf", i)
+    '    SplitPdf.SaveToFile(result, Spire.Pdf.FileFormat.PDF)


-        Dim pdfNew As New Spire.Pdf.PdfDocument()
-        Dim page As Spire.Pdf.PdfPageBase
+    '    Dim pdfNew As New Spire.Pdf.PdfDocument()
+    '    Dim page As Spire.Pdf.PdfPageBase

-        For j As Integer = 1 To oldPdf.Pages.Count - 1
-            Dim pageOLD As Spire.Pdf.PdfPageBase = oldPdf.Pages(j)
-            If pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle90 Then
-                page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
-            ElseIf pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle270 Then
-                page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
-            Else
-                page = pdfNew.Pages.Add(pageOLD.Size, New Spire.Pdf.Graphics.PdfMargins(0))
-            End If
-            oldPdf.Pages(j).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
+    '    For j As Integer = 1 To oldPdf.Pages.Count - 1
+    '        Dim pageOLD As Spire.Pdf.PdfPageBase = oldPdf.Pages(j)
+    '        If pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle90 Then
+    '            page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
+    '        ElseIf pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle270 Then
+    '            page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
+    '        Else
+    '            page = pdfNew.Pages.Add(pageOLD.Size, New Spire.Pdf.Graphics.PdfMargins(0))
+    '        End If
+    '        oldPdf.Pages(j).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))

-        Next
+    '    Next

-        pdfNew.SaveToFile("C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf")
+    '    pdfNew.SaveToFile("C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf")

-        pdfNew.Dispose()
-        System.IO.File.Delete(TmpFile)
-        TmpFile = "C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf"
+    '    pdfNew.Dispose()
+    '    System.IO.File.Delete(TmpFile)
+    '    TmpFile = "C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf"

-    End Sub
+    'End Sub

    Private Sub cboTeams_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTeams.SelectedIndexChanged
        If Grid_aktiv Then
@@ -3485,7 +3508,31 @@ Public Class frmHauptfenster
        Me.Cursor = Cursors.Default
    End Sub

+    Private Sub FRONTOFFICEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FRONTOFFICEToolStripMenuItem.Click
+        If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "FRONTOFFICE")) Then
+            showMeNew()
+        Else
+            MsgBox("Keine Berechtigung!")
+        End If
+    End Sub

+    Private Sub VERIMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERIMEXToolStripMenuItem.Click
+        If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "VERIMEX")) Then
+            showMeNew()
+        Else
+            MsgBox("Keine Berechtigung!")
+        End If
+    End Sub
+
+    Private Sub SUBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SUBToolStripMenuItem.Click, SBGToolStripMenuItem.Click, WAIToolStripMenuItem.Click, NKDToolStripMenuItem.Click, NEUToolStripMenuItem.Click, AMBToolStripMenuItem.Click
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
+            VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = sender.text
+            VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = sender.text 'Nochmal, sonst wird es durch MA geändert 
+            showMeNew()
+        Else
+            MsgBox("Keine Berechtigung!")
+        End If
+    End Sub
 End Class

 Public Class AvisoStatusFunctions
@@ -3592,6 +3639,21 @@ Public Class AvisoStatusFunctions
            SendAnkunftEmail(Aviso)
        End If

+
+        'Ticket Drucken, wenn parameter 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Then
+            Dim rpt As New rptQRAviso(Aviso)
+            Dim printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
+            If printer <> "" Then
+                SDL.cProgramFunctions.printRpt(rpt, printer, True)
+            Else
+                SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
+            End If
+
+        End If
+
+
+
        'Wenn Atilla, dann Eintrag anzeigen, um zu korrigieren und Aktendeckel auszudrucken
        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then 'And VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Then
            Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
@@ -3808,10 +3870,10 @@ Public Class AvisoStatusFunctions
    End Function

    Public Function setVorbereitet(AvisoID) As Boolean
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
-            MsgBox("Keine Berechtigung!")
-            Return False
-        End If
+        'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+        '    MsgBox("Keine Berechtigung!")
+        '    Return False
+        'End If

        'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
        If AvisoID <= 0 Then
@@ -4037,21 +4099,35 @@ Public Class AvisoStatusFunctions
            Next
        End If

-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "VERAG", "ATILLA"
+        vermerkVorgeschreiben(AvisoID)
+        'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        '    Case "VERAG", "ATILLA"

-                Dim frmInsertVermerkFach As New frmInsertVermerkFach(Aviso.AvisoID)
-                frmInsertVermerkFach.ShowDialog()
+        '        Dim frmInsertVermerkFach As New frmInsertVermerkFach(Aviso.AvisoID)
+        '        frmInsertVermerkFach.ShowDialog()

-                'Case "IMEX"
-                '    Dim frmInsertVermerkFach As New frmInsertVermerkFachIMEX(Aviso.AvisoID)
-                '    frmInsertVermerkFach.ShowDialog()
-        End Select
+        '        'Case "IMEX"
+        '        '    Dim frmInsertVermerkFach As New frmInsertVermerkFachIMEX(Aviso.AvisoID)
+        '        '    frmInsertVermerkFach.ShowDialog()
+        'End Select


        Return (tmpid > 0)
    End Function

+
+    Sub vermerkVorgeschreiben(AvisoID)
+        Dim VermerkeDAL As New cVermerkeDAL
+        Dim myVermerk As New cVermerk
+        myVermerk.AvisoID = AvisoID
+        myVermerk.Datum = Now
+        myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter : myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
+        myVermerk.Hinweis_Vermerk = "Akt vorgeschrieben" : myVermerk.VermerkCodeId = 35
+        VermerkeDAL.SpeichernVermerk(myVermerk)
+
+    End Sub
+
+
    Public Function setErfasst(AvisoID) As Boolean
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
            MsgBox("Keine Berechtigung!")
@@ -4555,10 +4631,10 @@ Public Class AvisoStatusFunctions
    End Sub
    Public Function AktUebernehmen(AvisoID, Optional askSendungenUebernehmen = False, Optional checkStatus = True, Optional nurLeereSendungenUebernehmen = False) As Boolean

-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
-            MsgBox("Keine Berechtigung!")
-            Return False
-        End If
+        'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+        '    MsgBox("Keine Berechtigung!")
+        '    Return False
+        'End If

        'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
        If AvisoID <= 0 Then
@@ -4685,10 +4761,10 @@ Public Class AvisoStatusFunctions
    Public Function AktUebernehmen_Zuruecksetzen(AvisoID) As Boolean
        Try

-            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
-                MsgBox("Keine Berechtigung!")
-                Return False
-            End If
+            'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+            '    MsgBox("Keine Berechtigung!")
+            '    Return False
+            'End If

            'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
            If AvisoID <= 0 Then
@@ -4700,7 +4776,7 @@ Public Class AvisoStatusFunctions
            Dim Aviso As New cAviso
            Aviso = AvisoDAL.LesenAviso(AvisoID, "")
            If Aviso Is Nothing Then Return False
-            If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
+            If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False



@@ -5445,7 +5521,7 @@ Public Class AvisoStatusFunctions

    End Sub

-    Shared Sub insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "")
+    Shared Sub insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing)
        'Daten zuweisen und speichern
        Dim myVermerk As New cVermerk
        myVermerk.VermerkID = 0
@@ -5456,6 +5532,7 @@ Public Class AvisoStatusFunctions
        myVermerk.Hinweis_Vermerk = Text
        myVermerk.VermerkCodeId = VermerkCodeId
        myVermerk.SendungID = SendungID
+        If VorauskasseId IsNot Nothing AndAlso VorauskasseId IsNot DBNull.Value Then myVermerk.VorauskasseId = VorauskasseId
        myVermerk.VermerkArt = "S"
        Dim VermerkeDAL As New cVermerkeDAL