Verwahrung
This commit is contained in:
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
|
||||
Reference in New Issue
Block a user