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

Verwahrung

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-10-29 09:46:30 +01:00
parent 7c38e6b4a8
commit 25495ef2b6
11 changed files with 6463 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

122
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -1,6 +1,7 @@
Imports System.IO
Imports System.Xml
Imports DAKOSY_Worker
Imports DAKOSY_Worker.SumAVerwahrungsinfo_009
Imports Renci.SshNet
Public Class frmDYNachrichtenVerarbeitung
@@ -396,7 +397,36 @@ Public Class frmDYNachrichtenVerarbeitung
End If
'------------------------------------------
'------------------ Verwahrung/ Gestellung (NCTS) ------------------
'------------------------------------------
'VW: UngueltigkeitSicherheitenNCTSDE
If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then
Select Case VERSION
Case False
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d) <> "" Then found = True
End Select
End If
'VW: SumAErledigungsinformationVorpapier
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then
Select Case VERSION
Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(d) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True
Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True
End Select
End If
'VW: SumAErledigungsinformationCDXWare
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationCDXWare(doc, VERSION) Then
Select Case VERSION
Case False
Case Else : If readEZA_SumAErledigungsinformationCDXWare007(d) <> "" Then found = True
End Select
End If
'------------------------------------------
'------------------ EZA ------------------
@@ -443,14 +473,12 @@ Public Class frmDYNachrichtenVerarbeitung
End If
'EZA: SumAErledigungsinformationVorpapier
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then
Select Case VERSION
Case "005" : If readEZA_SumAErledigungsinformationVorpapier_005(d) <> "" Then found = True
Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True
Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True
End Select
End If
'EZA: SumAErledigungsinformationVorpapier ' --> TEIL DER VERWAHRUNG
'
'
'
'
'
'EZA: Abgabenbescheid
If Not found And cGetMsgType.isEZA_Abgabenbescheid(doc, VERSION) Then
@@ -7973,85 +8001,7 @@ Public Class frmDYNachrichtenVerarbeitung
readEZA_SumAErledigungsinformationVorpapier_004 = ""
End Try
End Function
Function readEZA_SumAErledigungsinformationVorpapier_005(d) As String
Try
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d)
Dim ART = ""
' Dim details = ""
Dim zp As Object = Nothing
Dim regNR = ""
Dim division = ""
readEZA_SumAErledigungsinformationVorpapier_005 = ""
If EZA IsNot Nothing Then
If EZA.Transaktion IsNot Nothing Then
If EZA.Transaktion.IODivision3 IsNot Nothing Then
division = EZA.Transaktion.IODivision3
ElseIf EZA.Transaktion.IODivision1 IsNot Nothing Then
division = EZA.Transaktion.IODivision1
End If
End If
If EZA.EinzelSumAErledigungsinformation IsNot Nothing Then
If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung IsNot Nothing Then
If EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName IsNot Nothing Then
readEZA_SumAErledigungsinformationVorpapier_005 = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName
End If
zp = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
End If
If EZA.EinzelSumAErledigungsinformation.KopfDaten IsNot Nothing Then
If EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung IsNot Nothing Then
ART = EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung
End If
If EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then
regNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise
End If
End If
End If
End If
' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
If readEZA_SumAErledigungsinformationVorpapier_005 <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readEZA_SumAErledigungsinformationVorpapier_005
STATUS.dySt_artMitteilung = "EVP"
STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_42 '???
STATUS.dySt_ergZeitpunkt = zp
' STATUS.dySt_ergDetails = details
'EINTRAG IN tblDakosy_Zollanmeldungen
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA
'???????? REGNR
If regNR <> "" Then
STATUS.dySt_ergCode = "REGNr"
STATUS.dySt_ergMitteilung = regNR
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNR)
Else
STATUS.dySt_ergCode = "ART"
If ART <> "" Then STATUS.dySt_ergMitteilung = ART
EZA_TMP = saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
End If
SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division)
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()
addDGVEinarbeitung("EZA: Erledigungsinformation-Vorpapier", STATUS.dySt_BezugsNr)
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readEZA_SumAErledigungsinformationVorpapier_005 = ""
End Try
End Function
Function readEZA_NichtAbschliessendeFestsetzung(d) As String