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

ATB

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-03-07 17:00:06 +01:00
parent 9759683a6f
commit 18a10620e8
10 changed files with 347 additions and 220 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Aviso/frmLaufzettel.vb
View File

@@ -8,6 +8,7 @@ Public Class frmLaufzettel
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
Dim SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen) = Nothing
Dim DIGITAL_T1 As Boolean = False
Dim DIGITAL_FISKAL_DE As Boolean = False
Dim DIGITAL_Rg As Boolean = False
Dim jeVP As Boolean = False
Sub New()
@@ -18,7 +19,7 @@ Public Class frmLaufzettel
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(AvisoID As Integer, SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), DIGITAL As Boolean, DIGITAL_T1 As Boolean, DIGITAL_rg As Boolean, jeVP As Boolean)
Sub New(AvisoID As Integer, SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), DIGITAL As Boolean, DIGITAL_T1 As Boolean, DIGITAL_rg As Boolean, DIGITAL_FISKAL_DE As Boolean, jeVP As Boolean)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -28,12 +29,13 @@ Public Class frmLaufzettel
AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoID)
Me.SENDUNG_LIST = SENDUNG_LIST
Me.DIGITAL = DIGITAL
Me.DIGITAL_T1 = DIGITAL_T1genl
Me.DIGITAL_T1 = DIGITAL_T1
Me.DIGITAL_FISKAL_DE = DIGITAL_FISKAL_DE
Me.DIGITAL_Rg = DIGITAL_rg
Me.jeVP = jeVP
End Sub
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), DIGITAL As Boolean, DIGITAL_T1 As Boolean, DIGITAL_rg As Boolean, jeVP As Boolean)
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG_LIST As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), DIGITAL As Boolean, DIGITAL_T1 As Boolean, DIGITAL_rg As Boolean, DIGITAL_FISKAL_DE As Boolean, jeVP As Boolean)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@@ -45,6 +47,7 @@ Public Class frmLaufzettel
Me.DIGITAL = DIGITAL
Me.DIGITAL_T1 = DIGITAL_T1
Me.DIGITAL_Rg = DIGITAL_rg
Me.DIGITAL_FISKAL_DE = DIGITAL_FISKAL_DE
Me.jeVP = jeVP
End Sub
@@ -121,8 +124,24 @@ Public Class frmLaufzettel
Next
End If
If DIGITAL_Rg Then
If DIGITAL_FISKAL_DE Then
For Each s In SENDUNG_LIST
Select Case s.tblSnd_Abfertigungsart_ID
'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt
Case "28" ' DE-FISK
Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST_SND
Select Case l.anh_Art.ToString.ToUpper
Case "RECHNUNG", "HANDELSRECHNUNG", "CMR"
dgvDigitalMailanfügen.Rows.Add(l.anh_id, l.anh_Name, l.anh_docId)
End Select
Next
End Select
Next
ElseIf DIGITAL_Rg Then
For Each s In SENDUNG_LIST
Select Case s.tblSnd_Abfertigungsart_ID
'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt
Case "5", "45", "28", "26", "38" 'T1, Ü-T1, DE-FISK
@@ -139,6 +158,7 @@ Public Class frmLaufzettel
Next
End If
'Markierte Anhänge
For Each l In ANH_LIST
'Markierte:
@@ -401,6 +421,9 @@ Public Class frmLaufzettel
Mail.To = "abfertigung.za-suben@zoll.bund.de"
End If
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Case "DTB"
Mail.To = "poststelle.za-dettelbach@zoll.bund.de"
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Case "WAI"
Mail.To = ""
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_WAI", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)