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

DY Abgaben

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-09 10:59:38 +02:00
parent ede797ddc3
commit a9dbb8c784
3 changed files with 86 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -10285,9 +10285,9 @@ Public Class frmDYNachrichtenVerarbeitung
'End If
If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing AndAlso EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt.Count > 0 Then
Dim a As New DAKOSY_Worker.cDakosy_EZA_Aufschub
AUFSCHUB = New List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub)
For Each ABG In EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt
Dim a As New DAKOSY_Worker.cDakosy_EZA_Aufschub
a.ezaAfb_ArtAufschubantrag = ABG.ArtAufschubAntrag
a.ezaAfb_AufschubnehmerEORI = ABG.AufschubnehmerTIN
a.ezaAfb_HZA = ABG.KennBuchstabenAufschub
@@ -10301,12 +10301,9 @@ Public Class frmDYNachrichtenVerarbeitung
' Case "B0000" 'EUST
' Case "B0000" 'EUST
'End Select
AUFSCHUB.Add(a)
Next
AUFSCHUB.Add(a)
End If
End If
If readEZA_Abgabenbescheid012 <> "" Then 'BEZUGSNR vorhanden