mergeauflösung

Aviso/Aviso.vbproj

@@ -108,7 +108,7 @@
     <PlatformTarget>x64</PlatformTarget>
   </PropertyGroup>
   <PropertyGroup>
-    <AssemblyOriginatorKeyFile>LME.pfx</AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyFile>Aviso_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />

Aviso/My Project/app.manifest

@@ -19,8 +19,8 @@
         <requestedExecutionLevel level="asInvoker" uiAccess="false" />
       </requestedPrivileges>
       <applicationRequestMinimum>
-        <PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
         <defaultAssemblyRequest permissionSetReference="Custom" />
+        <PermissionSet ID="Custom" SameSite="site" Unrestricted="true" />
       </applicationRequestMinimum>
     </security>
   </trustInfo>

Aviso/frmAddAktenvermerkShort.vb

@@ -170,6 +170,33 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
                 insertVermerk("DE Zoll fertig", 18)
                 If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
             Else
+
+                '--------------------------------------------------------------------------------------------------------------------------------------------------------
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AT_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)
+                    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
+
+                        For Each SND In SENDUNG_LIST
+                            Select Case SND.tblSnd_Abfertigungsart_ID
+                                Case 28 ' --> DE FISKAL
+
+                                    Dim f As New frmATZollEingereichtSetzen(myAviso, SND)
+                                    If f.ShowDialog() = DialogResult.OK Then
+                                        'Passt scho..
+                                        AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Fiskal-Checkliste - OK", 100)
+                                    Else
+                                        Exit Sub ' --> YOU'RE OUT!
+                                    End If
+
+                            End Select
+                        Next
+                    End If
+                End If
+                '--------------------------------------------------------------------------------------------------------------------------------------------------------
+
+
                 insertVermerk("DE Zoll eingereicht", 17)
 
                 'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
@@ -189,18 +216,9 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
                 AvisoStatusFunctions.printFinish(myAviso)
 
             Else
-                insertVermerk("DE Zoll DIGITAL eingereicht", 82)
-                SQL.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=1  where avisoid=" & AvisoID, "AVISO")
-            End If
-            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-        ElseIf sender Is btnZollATEingereicht Then
-            If sender.tag = "SWITCH" Then
-                insertVermerk("AT Zoll fertig", 20)
-                If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-            Else
+
+                '--------------------------------------------------------------------------------------------------------------------------------------------------------
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AT_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)
                     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
@@ -209,7 +227,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
 
                         For Each SND In SENDUNG_LIST
                             Select Case SND.tblSnd_Abfertigungsart_ID
-                                Case 26, 28
+                                Case 28 ' --> DE FISKAL
 
                                     Dim f As New frmATZollEingereichtSetzen(myAviso, SND)
                                     If f.ShowDialog() = DialogResult.OK Then
@@ -221,11 +239,48 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
 
                             End Select
                         Next
+                    End If
+                End If
+                '--------------------------------------------------------------------------------------------------------------------------------------------------------
 
+                insertVermerk("DE Zoll DIGITAL eingereicht", 82)
+                SQL.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=1  where avisoid=" & AvisoID, "AVISO")
+            End If
+            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        ElseIf sender Is btnZollATEingereicht Then
+            If sender.tag = "SWITCH" Then
+                insertVermerk("AT Zoll fertig", 20)
+                If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            Else
+
+
+            '--------------------------------------------------------------------------------------------------------------------------------------------------------
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AT_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)
+                    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
+
+                    For Each SND In SENDUNG_LIST
+                        Select Case SND.tblSnd_Abfertigungsart_ID
+                            Case 26 ' --> AT FISKAL
+
+                                Dim f As New frmATZollEingereichtSetzen(myAviso, SND)
+                                If f.ShowDialog() = DialogResult.OK Then
+                                    'Passt scho..
+                                    AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Fiskal-Checkliste - OK", 100)
+                                Else
+                                    Exit Sub ' --> YOU'RE OUT!
                                 End If
 
-
+                        End Select
+                    Next
                 End If
+            End If
+            '-------------------------------------------------------------------------------------------------------------------------------------------------------- 
+
+
             insertVermerk("AT Zoll eingereicht", 19)
 
                     'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then