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

AT DE Fiskal Check

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-30 08:14:50 +02:00
parent 4005fec801
commit ce28d7f09b
2 changed files with 73 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.7.5")>
<Assembly: AssemblyFileVersion("3.8.7.5")>
<Assembly: AssemblyVersion("3.8.7.6")>
<Assembly: AssemblyFileVersion("3.8.7.6")>

87
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -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,12 +239,49 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End Select
Next
End If
End If
insertVermerk("AT Zoll eingereicht", 19)
'--------------------------------------------------------------------------------------------------------------------------------------------------------
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
' Try