edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Proj. , ATDE-FislCheck

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-31 12:23:30 +02:00
parent ce28d7f09b
commit b50e0ebd3f
3 changed files with 398 additions and 397 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -172,7 +172,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
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
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)
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
@@ -218,7 +218,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
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
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)
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
@@ -254,34 +254,34 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
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
'--------------------------------------------------------------------------------------------------------------------------------------------------------
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)
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
Select Case SND.tblSnd_Abfertigungsart_ID
Case 26 ' --> AT FISKAL
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
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 Select
Next
End If
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------------------------------------------------
insertVermerk("AT Zoll eingereicht", 19)
insertVermerk("AT Zoll eingereicht", 19)
'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
' Try