Neuhaus VW Ablauf

2024-11-04 15:13:17 +01:00
parent 044348dcd6
commit 631b988378
8 changed files with 686 additions and 424 deletions
--- a/Aviso/frmAddAktenvermerkShort.vb
+++ b/Aviso/frmAddAktenvermerkShort.vb
@@ -96,6 +96,7 @@ Public Class frmAddAktenvermerkShort
            btnDEZollDIGITAL.Text = "Zoll DE " & vbNewLine & "fertig"
        End If
        btnLKWFertig.Text = If(myAviso.LKW_fertig, "LKW nicht fertig", "LKW fertig")
+        btnVerwahrung.Text = If(myAviso.VerwahrungStatus = 0, "Verwahrung - kontrolliert", "Verwahrung - NICHT kontrolliert")

        txtFreigabeInfo.Text = If(myAviso.Freigabe_Info, "")

@@ -145,6 +146,7 @@ Public Class frmAddAktenvermerkShort
                If c Is btnAnkunft Then enabledTmp = True
                If c Is btnFreigabe Then enabledTmp = True
                If c Is btnLKWFertig Then enabledTmp = True
+                If c Is btnVerwahrung Then enabledTmp = True
                If c Is btnLKWStandzeitWE Then enabledTmp = True
                If c Is btnLKWStandzeitFeierteage Then enabledTmp = True
                If c Is btnClose Then enabledTmp = True
@@ -160,7 +162,7 @@ Public Class frmAddAktenvermerkShort

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSpaetAvisiert.Click, btnLKWStandzeitWE.Click, btnLKWStandzeitFeierteage.Click, btnZollATEingereicht.Click,
 btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Click, btnQS.Click, btnErfasst.Click, btnVorbereitet.Click, btnVorgeschrieben.Click, btnAnkunft.Click,
- btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click, btnDispoangefordert.Click, btnDEZollDIGITAL.Click, btnLKWumgemeldet.Click
+ btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click, btnDispoangefordert.Click, btnDEZollDIGITAL.Click, btnLKWumgemeldet.Click, btnVerwahrung.Click

        If sender Is Nothing Then
            MsgBox("Es wurde kein Vermerk ausgewählt. Der Datensatz kann nicht gespeichert werden.", vbInformation)
@@ -249,11 +251,11 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
                '--------------------------------------------------------------------------------------------------------------------------------------------------------
                'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
                Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
-                    VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
+                VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN

-                    If SENDUNG_LIST IsNot Nothing Then
+                If SENDUNG_LIST IsNot Nothing Then

-                        For Each SND In SENDUNG_LIST
+                    For Each SND In SENDUNG_LIST
                        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
                            Select Case SND.tblSnd_Abfertigungsart_ID
                                Case 28 ' --> DE FISKAL
@@ -272,20 +274,20 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
                        'VERANLAGUNGSKUNDE
                        If SQL.getValueTxtBySql("SELECT COUNT(*) FROM  [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then

-                                Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
-                                If f.ShowDialog() = DialogResult.OK Then
-                                    If f.cbxEmpf.Checked Then
+                            Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
+                            If f.ShowDialog() = DialogResult.OK Then
+                                If f.cbxEmpf.Checked Then
                                    AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
                                Else
                                    AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
                                End If
-                                Else
-                                    Exit Sub ' --> YOU'RE OUT!
-                                End If
+                            Else
+                                Exit Sub ' --> YOU'RE OUT!
                            End If
-                            '-------------------------------------------------------------------------------------------------------------------------------------------------------- 
-                        Next
-                    End If
+                        End If
+                        '-------------------------------------------------------------------------------------------------------------------------------------------------------- 
+                    Next
+                End If

                '--------------------------------------------------------------------------------------------------------------------------------------------------------

@@ -304,9 +306,9 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
                Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
                VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN

-                    If SENDUNG_LIST IsNot Nothing Then
+                If SENDUNG_LIST IsNot Nothing Then

-                        For Each SND In SENDUNG_LIST
+                    For Each SND In SENDUNG_LIST
                        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
                            'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)

@@ -330,7 +332,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli

                        '-------------------------------------------------------------------------------------------------------------------------------------------------------- 
                        'VERANLAGUNGSKUNDE
-                        If sql.getValueTxtBySql("SELECT COUNT(*) FROM  [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
+                        If SQL.getValueTxtBySql("SELECT COUNT(*) FROM  [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then

                            Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
                            If f.ShowDialog() = DialogResult.OK Then
@@ -353,14 +355,14 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli

                insertVermerk("AT Zoll eingereicht", 19)

-                    'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
-                    '    Try
-                    '        Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(myAviso, "AT")
-                    '        If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
-                    '    Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
-                    'End If
-                End If
-                ElseIf sender Is btnLKWStandzeitWE Then
+                'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
+                '    Try
+                '        Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(myAviso, "AT")
+                '        If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
+                '    Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
+                'End If
+            End If
+        ElseIf sender Is btnLKWStandzeitWE Then
            insertVermerk("LKW Standzeit Wochenende", 21)
        ElseIf sender Is btnLKWStandzeitFeierteage Then
            insertVermerk("LKW Standzeit Feiertag(e)", 22)
@@ -419,6 +421,11 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            End If
+        ElseIf sender Is btnVerwahrung Then
+            If VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.VerwahrungOK(AvisoID) Then
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            End If
        ElseIf sender Is btnSonstiges Then
            insertVermerk(txtSonstiges.Text, 46)
        ElseIf sender Is btnDispoangefordert Then
@@ -485,4 +492,5 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnLKWUmmelden.Click
        cntxt.Show(Cursor.Position)
    End Sub
+
 End Class