Verwahrung
This commit is contained in:
@@ -137,6 +137,7 @@
|
||||
<Compile Include="cATEZWorker.vb" />
|
||||
<Compile Include="cOREGONWorker.vb" />
|
||||
<Compile Include="cMAVIWorker.vb" />
|
||||
<Compile Include="cWorker_Verwahrung.vb" />
|
||||
<Compile Include="frmNachrichtenVerarbeitung_MDM_divers.Designer.vb">
|
||||
<DependentUpon>frmNachrichtenVerarbeitung_MDM_divers.vb</DependentUpon>
|
||||
</Compile>
|
||||
|
||||
@@ -136,6 +136,20 @@ Public Class cGetMsgType
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function isNCTS_SumAVerwahrungsinfo(doc As XmlDocument, ByRef version As String) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("SumAVerwahrungsinfo").Count > 0 Then
|
||||
|
||||
If doc.GetElementsByTagName("Version").Count > 0 Then
|
||||
version = doc.GetElementsByTagName("Version")(0).InnerText
|
||||
End If
|
||||
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function isAES_DEXPSD(doc As XmlDocument) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
@@ -302,6 +316,18 @@ Public Class cGetMsgType
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function isEZA_SumAErledigungsinformationCDXWare(doc As XmlDocument, ByRef VERSION As String) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("SumAErledigungsinformationCDXWare").Count > 0 Then
|
||||
If doc.GetElementsByTagName("Version").Count > 0 Then
|
||||
VERSION = doc.GetElementsByTagName("Version")(0).InnerText
|
||||
End If
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function isEZA_SumAErledigungsinformationVorpapier(doc As XmlDocument) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
|
||||
243
initATLASAufschubkonten/cWorker_Verwahrung.vb
Normal file
243
initATLASAufschubkonten/cWorker_Verwahrung.vb
Normal file
@@ -0,0 +1,243 @@
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports System.Xml
|
||||
Imports DAKOSY_Worker
|
||||
Imports DocumentFormat.OpenXml
|
||||
Imports DocumentFormat.OpenXml.Spreadsheet
|
||||
Imports iTextSharp.text.pdf
|
||||
|
||||
Public Class cWorker_Verwahrung
|
||||
Public Shared Dateiname = ""
|
||||
|
||||
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
|
||||
|
||||
Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Try
|
||||
|
||||
Dim NCTS As DAKOSY_Worker.ErledigungsmeldungNCTSDE.ErledigungsmeldungMOTyp = DAKOSY_Worker.ErledigungsmeldungNCTSDE.ErledigungsmeldungMOTyp.LoadFromFile(d)
|
||||
Dim MRN = ""
|
||||
Dim tstmp As Object = Nothing
|
||||
readVW_SumAVerwahrungsinfo = ""
|
||||
If NCTS IsNot Nothing Then
|
||||
If NCTS.EinzelErledigungsmeldung IsNot Nothing Then
|
||||
If NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung IsNot Nothing Then
|
||||
If NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then
|
||||
readVW_SumAVerwahrungsinfo = NCTS.EinzelErledigungsmeldung.ObjektIdentifizierung.ObjektName
|
||||
End If
|
||||
End If
|
||||
If NCTS.EinzelErledigungsmeldung.KopfDaten IsNot Nothing Then
|
||||
If NCTS.EinzelErledigungsmeldung.KopfDaten.MRN IsNot Nothing Then
|
||||
MRN = NCTS.EinzelErledigungsmeldung.KopfDaten.MRN
|
||||
End If
|
||||
If NCTS.EinzelErledigungsmeldung.KopfDaten.ZeitpunktErledigung > "01.01.2000" Then
|
||||
tstmp = NCTS.EinzelErledigungsmeldung.KopfDaten.ZeitpunktErledigung
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If readVW_SumAVerwahrungsinfo <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readVW_SumAVerwahrungsinfo
|
||||
STATUS.dySt_artMitteilung = "VW_INFO"
|
||||
STATUS.dySt_dyArt = "VW" '"NCTS" 'T1/T2
|
||||
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_50
|
||||
STATUS.dySt_ergCode = "TSTMP"
|
||||
STATUS.dySt_ergMitteilung = ""
|
||||
If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp
|
||||
|
||||
STATUS.SAVE()
|
||||
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
|
||||
'Verwahrung ANSCHREIBUNG
|
||||
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
|
||||
FORM.addDGVEinarbeitung("VW: Verwahrungsinfo", 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)
|
||||
readVW_SumAVerwahrungsinfo = ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String) 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 = FORM.getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readEZA_SumAErledigungsinformationVorpapier_005
|
||||
STATUS.dySt_artMitteilung = "VW_EVP"
|
||||
STATUS.dySt_dyArt = "VW" '"EZA" 'T1/T2
|
||||
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_60
|
||||
STATUS.dySt_ergZeitpunkt = zp
|
||||
|
||||
|
||||
' STATUS.dySt_ergDetails = details
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.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 = FORM.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 = FORM.saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit))
|
||||
'End If
|
||||
|
||||
'FORM.SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division)
|
||||
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
|
||||
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
|
||||
'Verwahrung ABSCHREIBUNG
|
||||
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
|
||||
FORM.addDGVEinarbeitung("VW: 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
|
||||
|
||||
Shared Function readEZA_SumAErledigungsinformationCDXWare007(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Try
|
||||
|
||||
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationCDXWare_007.SumAErledigungsinformationCDXWareSCTyp = DAKOSY_Worker.SumAErledigungsinformationCDXWare_007.SumAErledigungsinformationCDXWareSCTyp.LoadFromFile(d)
|
||||
Dim ART = ""
|
||||
' Dim details = ""
|
||||
|
||||
Dim zp As Object = Nothing
|
||||
Dim regNR = ""
|
||||
Dim division = ""
|
||||
|
||||
readEZA_SumAErledigungsinformationCDXWare007 = ""
|
||||
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.EinzelSumAErledigungsinformationCDXWare IsNot Nothing Then
|
||||
If EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung IsNot Nothing Then
|
||||
If EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung.ObjektName IsNot Nothing Then
|
||||
readEZA_SumAErledigungsinformationCDXWare007 = EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung.ObjektName
|
||||
End If
|
||||
zp = EZA.EinzelSumAErledigungsinformationCDXWare.ObjektIdentifizierung.ZeitpunktNachrichteneingang
|
||||
End If
|
||||
If EZA.EinzelSumAErledigungsinformationCDXWare.KopfDaten IsNot Nothing Then
|
||||
|
||||
If EZA.EinzelSumAErledigungsinformationCDXWare.KopfDaten.RegNrATLAS IsNot Nothing Then
|
||||
regNR = EZA.EinzelSumAErledigungsinformationCDXWare.KopfDaten.RegNrATLAS
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
' EZA.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
|
||||
|
||||
If readEZA_SumAErledigungsinformationCDXWare007 <> "" Then 'BEZUGSNR vorhanden
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(EZA.Transaktion.IOReferenz, EZA.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readEZA_SumAErledigungsinformationCDXWare007
|
||||
STATUS.dySt_artMitteilung = "VW_EVP_CDX"
|
||||
STATUS.dySt_dyArt = "VW" '"EZA" 'T1/T2
|
||||
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_60 '???
|
||||
STATUS.dySt_ergZeitpunkt = zp
|
||||
|
||||
|
||||
' STATUS.dySt_ergDetails = details
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
|
||||
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
|
||||
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
|
||||
'Verwahrung ABSCHREIBUNG
|
||||
|
||||
|
||||
'----------------------------------------------------------------
|
||||
|
||||
FORM.addDGVEinarbeitung("VW: Erledigungsinformation-Vorpapier CDX", 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_SumAErledigungsinformationCDXWare007 = ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user