Abgaben EZA nach POS; Beleg Mail Abs+Empf
This commit is contained in:
@@ -10258,6 +10258,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Dim zp As Object = Nothing
|
||||
Dim EDIFACTNachrichtenNr = ""
|
||||
Dim AUFSCHUB As List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub) = Nothing
|
||||
Dim AUFSCHUB_POS As List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub) = Nothing
|
||||
|
||||
Dim division = ""
|
||||
|
||||
readEZA_Abgabenbescheid012 = ""
|
||||
@@ -10321,66 +10323,104 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
'End Select
|
||||
AUFSCHUB.Add(a)
|
||||
Next
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
AUFSCHUB_POS = New List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub)
|
||||
If EZA.EinzelAbgabenbescheid.Position IsNot Nothing Then
|
||||
For Each EZA_POS In EZA.EinzelAbgabenbescheid.Position
|
||||
|
||||
If EZA_POS.Abgaben IsNot Nothing Then
|
||||
For Each ABG In EZA_POS.Abgaben
|
||||
Dim a As New DAKOSY_Worker.cDakosy_EZA_Aufschub
|
||||
a.ezaAfb_PositionsNummer = EZA_POS.PositionsNr
|
||||
a.ezaAfb_Abgabenbetrag = ABG.Abgabenbetrag
|
||||
a.ezaAfb_AbgabeArt = ABG.AbgabeArt
|
||||
If ABG.EinzelAbgabenSatz IsNot Nothing And ABG.EinzelAbgabenSatz.Count = 1 Then
|
||||
a.[ezaAfb_Prozentsatz] = ABG.EinzelAbgabenSatz(0).Abgabensatz
|
||||
End If
|
||||
|
||||
|
||||
AUFSCHUB_POS.Add(a)
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
If readEZA_Abgabenbescheid012 <> "" Then 'BEZUGSNR vorhanden
|
||||
STATUS.dySt_BezugsNr = readEZA_Abgabenbescheid012
|
||||
STATUS.dySt_artMitteilung = "AB"
|
||||
STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2
|
||||
' MsgBox(erledigung)
|
||||
STATUS.dySt_BezugsNr = readEZA_Abgabenbescheid012
|
||||
STATUS.dySt_artMitteilung = "AB"
|
||||
STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2
|
||||
' MsgBox(erledigung)
|
||||
|
||||
Select Case erledigung
|
||||
Case "0" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig
|
||||
Case "1" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig
|
||||
Case "2" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig
|
||||
Case "3" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_99 'unwirksam
|
||||
Case "4" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid
|
||||
Case "5" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60
|
||||
Case "6" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60
|
||||
Case "7" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_68 'Abgabe HZS
|
||||
Case "8" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_61 'Erledigung außerhalb d. SB
|
||||
End Select
|
||||
Select Case erledigung
|
||||
Case "0" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig
|
||||
Case "1" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig
|
||||
Case "2" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig
|
||||
Case "3" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_99 'unwirksam
|
||||
Case "4" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid
|
||||
Case "5" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60
|
||||
Case "6" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60
|
||||
Case "7" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_68 'Abgabe HZS
|
||||
Case "8" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_61 'Erledigung außerhalb d. SB
|
||||
End Select
|
||||
|
||||
STATUS.dySt_ergCode = "REGNr"
|
||||
STATUS.dySt_ergMitteilung = regNr
|
||||
STATUS.dySt_ergZeitpunkt = zp
|
||||
STATUS.dySt_ergZoellner = zoellner
|
||||
STATUS.dySt_ergDetails = details
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
STATUS.dySt_ergCode = "REGNr"
|
||||
STATUS.dySt_ergMitteilung = regNr
|
||||
STATUS.dySt_ergZeitpunkt = zp
|
||||
STATUS.dySt_ergZoellner = zoellner
|
||||
STATUS.dySt_ergDetails = details
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
|
||||
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA
|
||||
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA
|
||||
|
||||
|
||||
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
|
||||
|
||||
If regNr <> "" Then
|
||||
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNr)
|
||||
Else
|
||||
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
|
||||
End If
|
||||
EZA_TMP.loadAll()
|
||||
If regNr <> "" Then
|
||||
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNr)
|
||||
Else
|
||||
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
|
||||
End If
|
||||
EZA_TMP.loadAll()
|
||||
|
||||
Dim firma = ""
|
||||
Dim nl = ""
|
||||
SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division, firma, nl)
|
||||
Dim firma = ""
|
||||
Dim nl = ""
|
||||
SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division, firma, nl)
|
||||
|
||||
If AUFSCHUB IsNot Nothing And EZA_TMP IsNot Nothing Then
|
||||
EZA_TMP.eza_AUFSCHUB.Clear()
|
||||
For Each a In AUFSCHUB
|
||||
a.ezaAfb_EZAId = EZA_TMP.eza_Id
|
||||
Next
|
||||
EZA_TMP.eza_AUFSCHUB = AUFSCHUB
|
||||
EZA_TMP.SAVE_Aufschub()
|
||||
If AUFSCHUB IsNot Nothing And EZA_TMP IsNot Nothing Then
|
||||
EZA_TMP.eza_AUFSCHUB.Clear()
|
||||
For Each a In AUFSCHUB
|
||||
a.ezaAfb_EZAId = EZA_TMP.eza_Id
|
||||
Next
|
||||
EZA_TMP.eza_AUFSCHUB = AUFSCHUB
|
||||
EZA_TMP.SAVE_Aufschub()
|
||||
|
||||
cVERAG_out_eza.copyFileFTP_VERAGEZA_DY(EZA_TMP, DY_TMP) ' SCHNITTSTELLE FTP BEREITSTELLEN
|
||||
'RAISE-API-EVENT/TRIGGER ??
|
||||
End If
|
||||
|
||||
' ------------------------------------------------------------------------------
|
||||
' wenn nicht abschliebender Abgabenbescheid --> Infomail an die Zollbüros!
|
||||
Select Case erledigung
|
||||
cVERAG_out_eza.copyFileFTP_VERAGEZA_DY(EZA_TMP, DY_TMP) ' SCHNITTSTELLE FTP BEREITSTELLEN
|
||||
|
||||
'RAISE-API-EVENT/TRIGGER ??
|
||||
'Aufschub nach Position speichern!
|
||||
If AUFSCHUB_POS IsNot Nothing And EZA_TMP IsNot Nothing Then
|
||||
' EZA_TMP.eza_AUFSCHUB.Clear()
|
||||
For Each a In AUFSCHUB_POS
|
||||
a.ezaAfb_EZAId = EZA_TMP.eza_Id
|
||||
EZA_TMP.eza_AUFSCHUB.Add(a)
|
||||
Next
|
||||
EZA_TMP.SAVE_Aufschub()
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
' ------------------------------------------------------------------------------
|
||||
' wenn nicht abschliebender Abgabenbescheid --> Infomail an die Zollbüros!
|
||||
Select Case erledigung
|
||||
Case "4"
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_55 'nicht abschleißender Bescheid
|
||||
Dim MailTo = "eu@verag.ag"
|
||||
|
||||
Reference in New Issue
Block a user