NCTS 5
This commit is contained in:
@@ -841,7 +841,7 @@ Public Class cWorker_NCTS
|
||||
|
||||
|
||||
NCTS.ncts_InlandModeOfTransport = DETPDD.Consignment.inlandModeOfTransport
|
||||
' NCTS.border = DETPDD.Consignment.modeOfTransportAtTheBorder
|
||||
NCTS.ncts_ModeOfTransportAtTheBorder = DETPDD.Consignment.modeOfTransportAtTheBorder
|
||||
|
||||
End If
|
||||
|
||||
@@ -1091,7 +1091,7 @@ Public Class cWorker_NCTS
|
||||
|
||||
|
||||
|
||||
frmDYNachrichtenVerarbeitung.tryGetNCTSBasicData(NCTS) 'Versuchen Daten aus der Vorerfassung zu laden - ansonsten werden diese überschrieben!
|
||||
frmDYNachrichtenVerarbeitung.tryGetNCTS004BasicData(NCTS) 'Versuchen Daten aus der Vorerfassung zu laden - ansonsten werden diese überschrieben!
|
||||
|
||||
frmDYNachrichtenVerarbeitung.tryGetFirmaNiederlassung(NCTS.ncts_firma, NCTS.ncts_niederlassung, If(AnsprechpTMP_Email, "").ToString, readNCTS_VersandanmeldungXML_DETPDD)
|
||||
|
||||
@@ -1983,6 +1983,70 @@ Public Class cWorker_NCTS
|
||||
readNCTS_Versandbestaetigung002 = ""
|
||||
End Try
|
||||
End Function
|
||||
Shared Function readNCTS004_Versandbestaetigung002(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Try
|
||||
|
||||
Dim NCTS As DAKOSY_Worker.VersandbestaetigungNCTSDE_002.VersandbestaetigungMCTyp = DAKOSY_Worker.VersandbestaetigungNCTSDE_002.VersandbestaetigungMCTyp.LoadFromFile(d)
|
||||
Dim anr = ""
|
||||
Dim zp As Object = Nothing
|
||||
Dim division = ""
|
||||
|
||||
readNCTS004_Versandbestaetigung002 = ""
|
||||
If NCTS IsNot Nothing Then
|
||||
|
||||
If NCTS.Transaktion IsNot Nothing Then
|
||||
If NCTS.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = NCTS.Transaktion.IODivision3
|
||||
End If
|
||||
End If
|
||||
|
||||
If NCTS.EinzelVersandbestaetigung IsNot Nothing Then
|
||||
If NCTS.EinzelVersandbestaetigung.ObjektIdentifizierung IsNot Nothing Then
|
||||
If NCTS.EinzelVersandbestaetigung.ObjektIdentifizierung.ObjektName IsNot Nothing Then
|
||||
readNCTS004_Versandbestaetigung002 = NCTS.EinzelVersandbestaetigung.ObjektIdentifizierung.ObjektName
|
||||
End If
|
||||
zp = NCTS.EinzelVersandbestaetigung.ObjektIdentifizierung.ZeitpunktEingang
|
||||
End If
|
||||
If NCTS.EinzelVersandbestaetigung.KopfDaten IsNot Nothing Then
|
||||
If NCTS.EinzelVersandbestaetigung.KopfDaten.ANR IsNot Nothing Then
|
||||
anr = NCTS.EinzelVersandbestaetigung.KopfDaten.ANR
|
||||
' MsgBox(anr)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
|
||||
|
||||
If readNCTS004_Versandbestaetigung002 <> "" Then 'And anr <> "" Then 'BEZUGSNR vorhanden
|
||||
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readNCTS004_Versandbestaetigung002
|
||||
STATUS.dySt_artMitteilung = "VB"
|
||||
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
|
||||
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_41
|
||||
STATUS.dySt_ergCode = "ANR"
|
||||
STATUS.dySt_ergMitteilung = anr
|
||||
STATUS.dySt_ergZeitpunkt = zp
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS")
|
||||
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), anr)
|
||||
|
||||
|
||||
|
||||
SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
|
||||
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Versandbestätigung", 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)
|
||||
readNCTS004_Versandbestaetigung002 = ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
@@ -2017,6 +2081,37 @@ Public Class cWorker_NCTS
|
||||
saveDY_NCTS = NCTS_TMP
|
||||
End Function
|
||||
|
||||
Shared Function saveDY_NCTS004(STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, transID As String, transDate As Date, Optional ANR As String = "", Optional MRN As String = "") As DAKOSY_Worker.cDakosyNCTSOut004
|
||||
'EINTRAG IN tblDakosyNCTSOut
|
||||
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = Nothing
|
||||
NCTS_TMP = DAKOSY_Worker.cDakosyNCTSOut004.LOADByBezugsNr(STATUS.dySt_BezugsNr.ToString, False)
|
||||
If NCTS_TMP Is Nothing Then
|
||||
NCTS_TMP = New DAKOSY_Worker.cDakosyNCTSOut004
|
||||
NCTS_TMP.ncts_ObjectName = STATUS.dySt_BezugsNr
|
||||
If NCTS_TMP IsNot Nothing Then NCTS_TMP.ncts_dyaAnmID = DY_TMP.dy_Id
|
||||
|
||||
If DAKOSY_Worker.cDakosy_Statusmeldungen.isNewestTransaktion(STATUS.dySt_BezugsNr, transID, transDate) Then
|
||||
NCTS_TMP.ncts_Status = DY_TMP.dy_Status 'weil der Status bereit überprüft wurde --> neuste TransaktionsID
|
||||
NCTS_TMP.ncts_Status_KEWILL_Equivalent = DY_TMP.dy_Status 'weil der Status bereit überprüft wurde --> neuste TransaktionsID
|
||||
End If
|
||||
'NCTS_TMP.ncts_Status_KEWILL_Equivalent = STATUS.dySt_status
|
||||
If ANR <> "" Or MRN <> "" Then
|
||||
If ANR <> "" Then NCTS_TMP.ncts_ANR = ANR
|
||||
If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN
|
||||
End If
|
||||
NCTS_TMP.SAVE()
|
||||
'Eintragen
|
||||
Else
|
||||
'Update
|
||||
NCTS_TMP.UPDATE_Status(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID
|
||||
If ANR <> "" Or MRN <> "" Then
|
||||
If ANR <> "" Then NCTS_TMP.ncts_ANR = ANR : NCTS_TMP.SAVE()
|
||||
If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN : NCTS_TMP.SAVE()
|
||||
End If
|
||||
End If
|
||||
saveDY_NCTS004 = NCTS_TMP
|
||||
End Function
|
||||
|
||||
Shared Sub SaveNCTS_FirmaNL(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, division As String)
|
||||
|
||||
If division <> "" Then
|
||||
@@ -2071,6 +2166,57 @@ Public Class cWorker_NCTS
|
||||
|
||||
|
||||
|
||||
Shared Sub SaveNCTS004_FirmaNL(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, division As String)
|
||||
|
||||
If division <> "" Then
|
||||
If (NCTS_TMP.ncts_firma Is Nothing OrElse NCTS_TMP.ncts_firma = "") Or (NCTS_TMP.ncts_niederlassung Is Nothing OrElse NCTS_TMP.ncts_niederlassung = "") Then
|
||||
Select Case division
|
||||
Case "SUW"
|
||||
'VERIMEX!!!! --> Arbeitet bim T1 Vorschreiben mit ATILLA Benutzer
|
||||
frmDYNachrichtenVerarbeitung.tryGetFirmaNiederlassung(NCTS_TMP.ncts_firma, NCTS_TMP.ncts_niederlassung, "", NCTS_TMP.ncts_ObjectName)
|
||||
|
||||
If If(NCTS_TMP.ncts_firma, "") = "" Then NCTS_TMP.ncts_firma = "ATILLA"
|
||||
If If(NCTS_TMP.ncts_niederlassung, "") = "" Then NCTS_TMP.ncts_niederlassung = "SUB"
|
||||
Case "SUB"
|
||||
NCTS_TMP.ncts_firma = "VERAG"
|
||||
NCTS_TMP.ncts_niederlassung = "SUB"
|
||||
Case "DUR"
|
||||
NCTS_TMP.ncts_firma = "ATILLA"
|
||||
NCTS_TMP.ncts_niederlassung = "SBG"
|
||||
Case "NKD"
|
||||
NCTS_TMP.ncts_firma = "VERAG"
|
||||
NCTS_TMP.ncts_niederlassung = "NKD"
|
||||
Case "WAI"
|
||||
NCTS_TMP.ncts_firma = "VERAG"
|
||||
NCTS_TMP.ncts_niederlassung = "WAI"
|
||||
Case "SBG"
|
||||
NCTS_TMP.ncts_firma = "VERAG"
|
||||
NCTS_TMP.ncts_niederlassung = "SBG"
|
||||
Case "IME"
|
||||
NCTS_TMP.ncts_firma = "IMEX"
|
||||
NCTS_TMP.ncts_niederlassung = "SUB"
|
||||
Case "GLO"
|
||||
NCTS_TMP.ncts_firma = "IMEX"
|
||||
NCTS_TMP.ncts_niederlassung = "GLO"
|
||||
Case "AMB"
|
||||
NCTS_TMP.ncts_firma = "AMBAR"
|
||||
NCTS_TMP.ncts_niederlassung = "AMBAR"
|
||||
Case "NEU"
|
||||
NCTS_TMP.ncts_firma = "VERAG"
|
||||
NCTS_TMP.ncts_niederlassung = "NEU"
|
||||
Case "ATSP", "ATSPED"
|
||||
NCTS_TMP.ncts_firma = "UNISPED"
|
||||
NCTS_TMP.ncts_niederlassung = "ATSP"
|
||||
End Select
|
||||
NCTS_TMP.SAVE()
|
||||
End If
|
||||
|
||||
End If
|
||||
If DY_TMP.dy_AvisoId Is Nothing Then
|
||||
DY_TMP.tryFindAviso()
|
||||
DY_TMP.SAVE()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
@@ -2318,6 +2464,126 @@ Public Class cWorker_NCTS
|
||||
|
||||
|
||||
|
||||
Shared Function readNCTS004_StatusmeldungNCTSDE003(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Try
|
||||
|
||||
Dim NCTS As DAKOSY_Worker.StatusmeldungNCTSDE_003.StatusmeldungMSTyp = DAKOSY_Worker.StatusmeldungNCTSDE_003.StatusmeldungMSTyp.LoadFromFile(d)
|
||||
Dim MRN = ""
|
||||
Dim division = ""
|
||||
Dim tstmp As Object = Nothing
|
||||
Dim grund As String = ""
|
||||
Dim status_DY As String = ""
|
||||
|
||||
Dim EntgegennahmeDatumZeit As Object = Nothing
|
||||
Dim EntscheidungAnnahmeDatumZeit As Object = Nothing
|
||||
Dim EntscheidungUeberlassungDatumZeit As Object = Nothing
|
||||
Dim EntscheidungStornierungDatumZeit As Object = Nothing
|
||||
Dim ZeitpunktAnrechnungReferenzbetraege As Object = Nothing
|
||||
readNCTS004_StatusmeldungNCTSDE003 = ""
|
||||
If NCTS IsNot Nothing Then
|
||||
If NCTS.Transaktion IsNot Nothing Then
|
||||
If NCTS.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = NCTS.Transaktion.IODivision3
|
||||
End If
|
||||
End If
|
||||
|
||||
If NCTS.EinzelStatusmeldung IsNot Nothing Then
|
||||
If NCTS.EinzelStatusmeldung.ObjektIdentifizierung IsNot Nothing Then
|
||||
If NCTS.EinzelStatusmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then
|
||||
readNCTS004_StatusmeldungNCTSDE003 = NCTS.EinzelStatusmeldung.ObjektIdentifizierung.ObjektName
|
||||
|
||||
End If
|
||||
End If
|
||||
If NCTS.EinzelStatusmeldung.KopfDaten IsNot Nothing Then
|
||||
If NCTS.EinzelStatusmeldung.KopfDaten.MRN IsNot Nothing Then
|
||||
MRN = NCTS.EinzelStatusmeldung.KopfDaten.MRN
|
||||
End If
|
||||
|
||||
If NCTS.EinzelStatusmeldung.KopfDaten.WeiterverarbeitungAusserhalbATLASDatumZeit > "01.01.2000" Then
|
||||
tstmp = NCTS.EinzelStatusmeldung.KopfDaten.WeiterverarbeitungAusserhalbATLASDatumZeit '00:00:00
|
||||
End If
|
||||
|
||||
|
||||
If NCTS.EinzelStatusmeldung.KopfDaten.EntgegennahmeDatumZeit > "01.01.2000" Then
|
||||
EntgegennahmeDatumZeit = NCTS.EinzelStatusmeldung.KopfDaten.EntgegennahmeDatumZeit '00:00:00
|
||||
End If
|
||||
If NCTS.EinzelStatusmeldung.KopfDaten.EntscheidungAnnahmeDatumZeit > "01.01.2000" Then
|
||||
EntscheidungAnnahmeDatumZeit = NCTS.EinzelStatusmeldung.KopfDaten.EntscheidungAnnahmeDatumZeit '00:00:00
|
||||
End If
|
||||
If NCTS.EinzelStatusmeldung.KopfDaten.EntscheidungUeberlassungDatumZeit > "01.01.2000" Then
|
||||
EntscheidungUeberlassungDatumZeit = NCTS.EinzelStatusmeldung.KopfDaten.EntscheidungUeberlassungDatumZeit '00:00:00
|
||||
End If
|
||||
If NCTS.EinzelStatusmeldung.KopfDaten.EntscheidungStornierungDatumZeit > "01.01.2000" Then
|
||||
EntscheidungStornierungDatumZeit = NCTS.EinzelStatusmeldung.KopfDaten.EntscheidungStornierungDatumZeit '00:00:00
|
||||
End If
|
||||
If NCTS.EinzelStatusmeldung.KopfDaten.ZeitpunktAnrechnungReferenzbetraege > "01.01.2000" Then
|
||||
ZeitpunktAnrechnungReferenzbetraege = NCTS.EinzelStatusmeldung.KopfDaten.ZeitpunktAnrechnungReferenzbetraege '00:00:00
|
||||
End If
|
||||
|
||||
'tstmp = NCTS.EinzelStatusmeldung.KopfDaten.WeiterverarbeitungAusserhalbATLASDatumZeit '00:00:00
|
||||
If NCTS.EinzelStatusmeldung.KopfDaten.Grund IsNot Nothing Then grund = NCTS.EinzelStatusmeldung.KopfDaten.Grund
|
||||
status_DY = NCTS.EinzelStatusmeldung.KopfDaten.StatusUeberwachung
|
||||
|
||||
If NCTS.EinzelStatusmeldung.KopfDaten.Fehlermeldung IsNot Nothing Then
|
||||
For Each F In NCTS.EinzelStatusmeldung.KopfDaten.Fehlermeldung
|
||||
'???
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If readNCTS004_StatusmeldungNCTSDE003 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readNCTS004_StatusmeldungNCTSDE003
|
||||
STATUS.dySt_artMitteilung = "STAT"
|
||||
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
|
||||
|
||||
Select Case status_DY
|
||||
Case "13", "14", "15", "16", "31", "34", "35", "37", "38" : tstmp = If(EntscheidungAnnahmeDatumZeit, tstmp)
|
||||
Case "15", "31", "34", "35", "37", "38" : tstmp = If(EntscheidungUeberlassungDatumZeit, tstmp)
|
||||
Case "38" : tstmp = If(EntscheidungStornierungDatumZeit, tstmp)
|
||||
Case "34", "35", "37", "38" : tstmp = If(ZeitpunktAnrechnungReferenzbetraege, tstmp)
|
||||
End Select
|
||||
Select Case status_DY
|
||||
Case "13" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_13
|
||||
Case "14" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_14
|
||||
Case "16" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_16
|
||||
Case "31" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_31
|
||||
Case "38" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_38
|
||||
Case "39" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_39
|
||||
Case Else
|
||||
STATUS.dySt_status = -1
|
||||
'UNBEKANNT ?????
|
||||
End Select
|
||||
STATUS.dySt_ergCode = "DY_" & status_DY
|
||||
STATUS.dySt_ergMitteilung = MRN & grund
|
||||
If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "NCTS")
|
||||
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, , "") 'MRN)
|
||||
|
||||
|
||||
SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
|
||||
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: StatusmeldungNCTSDE", 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)
|
||||
readNCTS004_StatusmeldungNCTSDE003 = ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -2616,6 +2882,79 @@ Public Class cWorker_NCTS
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function readNCTS004_UngueltigkeitSicherheitenNCTSDE004(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Try
|
||||
|
||||
Dim NCTS As DAKOSY_Worker.UngueltigkeitSicherheitenNCTSDE_004.UngueltigkeitSicherheitenMITyp = DAKOSY_Worker.UngueltigkeitSicherheitenNCTSDE_004.UngueltigkeitSicherheitenMITyp.LoadFromFile(d)
|
||||
Dim ANR = ""
|
||||
Dim tstmp As Object = Nothing
|
||||
Dim grund As String = ""
|
||||
Dim sicherheit As String = ""
|
||||
|
||||
readNCTS004_UngueltigkeitSicherheitenNCTSDE004 = ""
|
||||
If NCTS IsNot Nothing Then
|
||||
If NCTS.EinzelUngueltigkeitSicherheiten IsNot Nothing Then
|
||||
If NCTS.EinzelUngueltigkeitSicherheiten.ObjektIdentifizierung IsNot Nothing Then
|
||||
If NCTS.EinzelUngueltigkeitSicherheiten.ObjektIdentifizierung.ObjektName IsNot Nothing Then
|
||||
readNCTS004_UngueltigkeitSicherheitenNCTSDE004 = NCTS.EinzelUngueltigkeitSicherheiten.ObjektIdentifizierung.ObjektName
|
||||
End If
|
||||
End If
|
||||
If NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten IsNot Nothing Then
|
||||
If NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Arbeitsnummer IsNot Nothing Then
|
||||
ANR = NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Arbeitsnummer
|
||||
End If
|
||||
If NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.ZeitpunktUngueltigkeitUnwirksamkeit > "01.01.2000" Then
|
||||
tstmp = NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.ZeitpunktUngueltigkeitUnwirksamkeit
|
||||
End If
|
||||
grund = NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Grund
|
||||
|
||||
If NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Sicherheit IsNot Nothing Then
|
||||
For Each s In NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Sicherheit
|
||||
If s.GRN IsNot Nothing Then
|
||||
sicherheit &= s.GRN & " "
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Fehlermeldung IsNot Nothing Then
|
||||
For Each F In NCTS.EinzelUngueltigkeitSicherheiten.KopfDaten.Fehlermeldung
|
||||
'???
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
sicherheit = sicherheit.Trim
|
||||
|
||||
If readNCTS004_UngueltigkeitSicherheitenNCTSDE004 <> "" And ANR <> "" Then 'BEZUGSNR vorhanden
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readNCTS004_UngueltigkeitSicherheitenNCTSDE004
|
||||
STATUS.dySt_artMitteilung = "UNG"
|
||||
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
|
||||
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_15
|
||||
STATUS.dySt_ergCode = "UN"
|
||||
STATUS.dySt_ergMitteilung = grund
|
||||
If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), "NCTS")
|
||||
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), ANR)
|
||||
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: UngueltigkeitSicherheitenNCTSDE_004", 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)
|
||||
readNCTS004_UngueltigkeitSicherheitenNCTSDE004 = ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function readNCTS_Erledigungsmeldung(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Try
|
||||
@@ -2748,19 +3087,85 @@ Public Class cWorker_NCTS
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function readNCTS004_Erledigungsmeldung003(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Try
|
||||
|
||||
Shared Function readNCTS_Erledigungsmeldung001(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Dim NCTS As DAKOSY_Worker.ErledigungsmeldungNCTSDE_003.ErledigungsmeldungMOTyp = DAKOSY_Worker.ErledigungsmeldungNCTSDE_003.ErledigungsmeldungMOTyp.LoadFromFile(d)
|
||||
Dim MRN = ""
|
||||
Dim tstmp As Object = Nothing
|
||||
readNCTS004_Erledigungsmeldung003 = ""
|
||||
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
|
||||
readNCTS004_Erledigungsmeldung003 = 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 readNCTS004_Erledigungsmeldung003 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readNCTS004_Erledigungsmeldung003
|
||||
STATUS.dySt_artMitteilung = "EM"
|
||||
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
|
||||
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_60
|
||||
STATUS.dySt_ergCode = "TSTMP"
|
||||
STATUS.dySt_ergMitteilung = ""
|
||||
If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), "NCTS")
|
||||
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), , MRN)
|
||||
|
||||
NCTS_TMP.ncts_Erledigung = tstmp
|
||||
'Gestellung eintragen, falls nochnicht geschehen
|
||||
If Not NCTS_TMP.ncts_Gestellt Then
|
||||
NCTS_TMP.ncts_Gestellt = True
|
||||
End If
|
||||
NCTS_TMP.SAVE()
|
||||
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
|
||||
'=======BEREITSTELLUNG DER DATEN AN FREMDSYSTEME=======
|
||||
cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP)
|
||||
'======================================================
|
||||
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung 003", 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)
|
||||
readNCTS004_Erledigungsmeldung003 = ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function readNCTS_Ereignismitteilung(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Try
|
||||
|
||||
Dim NCTS As DAKOSY_Worker.EreignismitteilungNCTSDE_001.EreignismitteilungMETyp = DAKOSY_Worker.EreignismitteilungNCTSDE_001.EreignismitteilungMETyp.LoadFromFile(d)
|
||||
Dim MRN = ""
|
||||
Dim tstmp As Object = Nothing
|
||||
readNCTS_Erledigungsmeldung001 = ""
|
||||
readNCTS_Ereignismitteilung = ""
|
||||
If NCTS IsNot Nothing Then
|
||||
If NCTS.EinzelEreignismitteilung IsNot Nothing Then
|
||||
If NCTS.EinzelEreignismitteilung.ObjektIdentifizierung IsNot Nothing Then
|
||||
If NCTS.EinzelEreignismitteilung.ObjektIdentifizierung.ObjektName IsNot Nothing Then
|
||||
readNCTS_Erledigungsmeldung001 = NCTS.EinzelEreignismitteilung.ObjektIdentifizierung.ObjektName
|
||||
readNCTS_Ereignismitteilung = NCTS.EinzelEreignismitteilung.ObjektIdentifizierung.ObjektName
|
||||
End If
|
||||
End If
|
||||
If NCTS.EinzelEreignismitteilung.TransitOperation IsNot Nothing Then
|
||||
@@ -2776,9 +3181,9 @@ Public Class cWorker_NCTS
|
||||
End If
|
||||
End If
|
||||
|
||||
If readNCTS_Erledigungsmeldung001 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
||||
If readNCTS_Ereignismitteilung <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readNCTS_Erledigungsmeldung001
|
||||
STATUS.dySt_BezugsNr = readNCTS_Ereignismitteilung
|
||||
STATUS.dySt_artMitteilung = "EGM"
|
||||
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
|
||||
|
||||
@@ -2788,31 +3193,32 @@ Public Class cWorker_NCTS
|
||||
If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), "NCTS")
|
||||
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = saveDY_NCTS(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), , MRN)
|
||||
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), , MRN)
|
||||
|
||||
NCTS_TMP.ncts_Erledigung = tstmp
|
||||
'Gestellung eintragen, falls nochnicht geschehen
|
||||
If Not NCTS_TMP.ncts_Gestellt Then
|
||||
NCTS_TMP.ncts_Gestellt = True
|
||||
NCTS_TMP.SAVE()
|
||||
End If
|
||||
NCTS_TMP.SAVE()
|
||||
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
|
||||
'=======BEREITSTELLUNG DER DATEN AN FREMDSYSTEME=======
|
||||
cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP)
|
||||
cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP)
|
||||
'======================================================
|
||||
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Erledigungsmeldung001", STATUS.dySt_BezugsNr)
|
||||
FORM.addDGVEinarbeitung("NCTS: Ereignismitteilung001", 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)
|
||||
readNCTS_Erledigungsmeldung001 = ""
|
||||
readNCTS_Ereignismitteilung = ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
@@ -3227,6 +3633,130 @@ Public Class cWorker_NCTS
|
||||
readNCTS_Ueberlassungsmeldung008 = ""
|
||||
End Try
|
||||
End Function
|
||||
Shared Function readNCTS004_Ueberlassungsmeldung008(FORM As frmDYNachrichtenVerarbeitung, d As String, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String
|
||||
Try
|
||||
' Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp.LoadFromFile(d)
|
||||
Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_008.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_008.UeberlassungsmeldungMRTyp.LoadFromFile(d)
|
||||
Dim MRN = ""
|
||||
Dim division = ""
|
||||
Dim Wiedergestellungsdatum As Object = Nothing
|
||||
' Dim bearbeiter = ""
|
||||
Dim zp As Object = Nothing
|
||||
Dim Verschluss_Art = ""
|
||||
Dim Verschluss_Anzahl = 0
|
||||
Dim Verschluss_Zeichen As New List(Of String)
|
||||
|
||||
|
||||
readNCTS004_Ueberlassungsmeldung008 = ""
|
||||
If NCTS IsNot Nothing Then
|
||||
If NCTS.Transaktion IsNot Nothing Then
|
||||
If NCTS.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = NCTS.Transaktion.IODivision3
|
||||
End If
|
||||
End If
|
||||
If NCTS.EinzelUeberlassungsmeldung IsNot Nothing Then
|
||||
If NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung IsNot Nothing Then
|
||||
If NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ObjektName IsNot Nothing Then
|
||||
readNCTS004_Ueberlassungsmeldung008 = NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ObjektName
|
||||
End If
|
||||
If NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ZeitpunktEingang > "01.01.2000" Then
|
||||
zp = NCTS.EinzelUeberlassungsmeldung.ObjektIdentifizierung.ZeitpunktEingang
|
||||
End If
|
||||
End If
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten IsNot Nothing Then
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.MRN IsNot Nothing Then
|
||||
MRN = NCTS.EinzelUeberlassungsmeldung.KopfDaten.MRN
|
||||
End If
|
||||
|
||||
|
||||
Wiedergestellungsdatum = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Wiedergestellungsdatum
|
||||
' bearbeiter=NCTS.EinzelUeberlassungsmeldung.KopfDaten.
|
||||
|
||||
'Verschluesse
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse IsNot Nothing Then
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl > 0 Then
|
||||
Verschluss_Art = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Art
|
||||
Verschluss_Anzahl = NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Anzahl
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen IsNot Nothing Then
|
||||
If NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen.Count > 0 Then
|
||||
For Each z In NCTS.EinzelUeberlassungsmeldung.KopfDaten.Verschluesse.Zeichen
|
||||
Verschluss_Zeichen.Add(z)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
|
||||
|
||||
If readNCTS004_Ueberlassungsmeldung008 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readNCTS004_Ueberlassungsmeldung008
|
||||
STATUS.dySt_artMitteilung = "UEM"
|
||||
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
|
||||
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_50
|
||||
STATUS.dySt_ergCode = "MRN"
|
||||
STATUS.dySt_ergMitteilung = MRN
|
||||
STATUS.dySt_ergZeitpunkt = zp
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), "NCTS")
|
||||
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN)
|
||||
|
||||
|
||||
NCTS_TMP.ncts_Eroeffnung = zp
|
||||
'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT
|
||||
' If TE.nctsTE_NumberOfSeals > 0 Then
|
||||
|
||||
' End If
|
||||
'Next
|
||||
|
||||
'If Verschluss_Anzahl > 0 Then
|
||||
' NCTS_TMP.ncts_Verschluss_Anzahl = Verschluss_Anzahl
|
||||
' NCTS_TMP.ncts_Verschluss_ArtCode = Verschluss_Art
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen1 = If(Verschluss_Zeichen.Count > 0, Verschluss_Zeichen(0), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen2 = If(Verschluss_Zeichen.Count > 1, Verschluss_Zeichen(1), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen3 = If(Verschluss_Zeichen.Count > 2, Verschluss_Zeichen(2), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen4 = If(Verschluss_Zeichen.Count > 3, Verschluss_Zeichen(3), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen5 = If(Verschluss_Zeichen.Count > 4, Verschluss_Zeichen(4), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen6 = If(Verschluss_Zeichen.Count > 5, Verschluss_Zeichen(5), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen7 = If(Verschluss_Zeichen.Count > 6, Verschluss_Zeichen(6), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen8 = If(Verschluss_Zeichen.Count > 7, Verschluss_Zeichen(7), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen9 = If(Verschluss_Zeichen.Count > 8, Verschluss_Zeichen(8), Nothing)
|
||||
' NCTS_TMP.ncts_Verschluss_Zeichen10 = If(Verschluss_Zeichen.Count > 9, Verschluss_Zeichen(9), Nothing)
|
||||
' NCTS_TMP.SAVE()
|
||||
'End If
|
||||
|
||||
|
||||
SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
|
||||
SaveNCTS004_WGDAT(NCTS_TMP, Wiedergestellungsdatum)
|
||||
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
statusTMP = STATUS
|
||||
cVERAG_out_ncts.copyFileFTP_VERAGncts004_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE
|
||||
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
|
||||
|
||||
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
|
||||
|
||||
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", 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)
|
||||
readNCTS004_Ueberlassungsmeldung008 = ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Sub SaveNCTS_WGDAT(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, WGDAT As Object)
|
||||
|
||||
@@ -3235,6 +3765,13 @@ Public Class cWorker_NCTS
|
||||
NCTS_TMP.SAVE()
|
||||
End If
|
||||
End Sub
|
||||
Shared Sub SaveNCTS004_WGDAT(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004, WGDAT As Object)
|
||||
|
||||
If WGDAT IsNot Nothing AndAlso IsDate(WGDAT) AndAlso CDate(WGDAT) > "01.01.2000" Then
|
||||
NCTS_TMP.ncts_LimitDate = CDate(WGDAT)
|
||||
NCTS_TMP.SAVE()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Shared Sub checkATEZ_Bereitstellung(DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, filePath As String)
|
||||
If DY_TMP Is Nothing Then Exit Sub
|
||||
@@ -3389,5 +3926,74 @@ Public Class cWorker_NCTS
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Function readNCTS004_AnrechnungReferenzbetraege002(FORM As frmDYNachrichtenVerarbeitung, d As String) As String
|
||||
Try
|
||||
Dim NCTS As DAKOSY_Worker.AnrechnungReferenzbetraegeNCTSDE_002.AnrechnungReferenzbetraegeMATyp = DAKOSY_Worker.AnrechnungReferenzbetraegeNCTSDE_002.AnrechnungReferenzbetraegeMATyp.LoadFromFile(d)
|
||||
Dim MRN = ""
|
||||
Dim tstmp As Object = Nothing
|
||||
Dim division = ""
|
||||
readNCTS004_AnrechnungReferenzbetraege002 = ""
|
||||
If NCTS IsNot Nothing Then
|
||||
If NCTS.Transaktion IsNot Nothing Then
|
||||
If NCTS.Transaktion.IODivision3 IsNot Nothing Then
|
||||
division = NCTS.Transaktion.IODivision3
|
||||
End If
|
||||
End If
|
||||
If NCTS.EinzelAnrechnungReferenzbetraege IsNot Nothing Then
|
||||
If NCTS.EinzelAnrechnungReferenzbetraege.ObjektIdentifizierung IsNot Nothing Then
|
||||
If NCTS.EinzelAnrechnungReferenzbetraege.ObjektIdentifizierung.ObjektName IsNot Nothing Then
|
||||
readNCTS004_AnrechnungReferenzbetraege002 = NCTS.EinzelAnrechnungReferenzbetraege.ObjektIdentifizierung.ObjektName
|
||||
End If
|
||||
End If
|
||||
If NCTS.EinzelAnrechnungReferenzbetraege.KopfDaten IsNot Nothing Then
|
||||
If NCTS.EinzelAnrechnungReferenzbetraege.KopfDaten.MRN IsNot Nothing Then
|
||||
MRN = NCTS.EinzelAnrechnungReferenzbetraege.KopfDaten.MRN
|
||||
If NCTS.EinzelAnrechnungReferenzbetraege.KopfDaten.ZeitpunktAnrechnungReferenzbetraege > "01.01.2000" Then
|
||||
tstmp = NCTS.EinzelAnrechnungReferenzbetraege.KopfDaten.ZeitpunktAnrechnungReferenzbetraege
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
|
||||
|
||||
If readNCTS004_AnrechnungReferenzbetraege002 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readNCTS004_AnrechnungReferenzbetraege002
|
||||
STATUS.dySt_artMitteilung = "AR"
|
||||
STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
|
||||
|
||||
STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_53
|
||||
STATUS.dySt_ergCode = "TSTMP"
|
||||
STATUS.dySt_ergMitteilung = MRN
|
||||
' STATUS.dySt_ergMitteilung = ""
|
||||
If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp
|
||||
'EINTRAG IN tblDakosy_Zollanmeldungen
|
||||
Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), "NCTS")
|
||||
Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut004 = saveDY_NCTS004(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), , MRN)
|
||||
|
||||
SaveNCTS004_FirmaNL(NCTS_TMP, DY_TMP, division)
|
||||
|
||||
'Gestellung eintragen
|
||||
NCTS_TMP.ncts_Gestellt = True
|
||||
NCTS_TMP.ncts_GestelltAm = tstmp
|
||||
NCTS_TMP.ncts_Ankunft = tstmp
|
||||
NCTS_TMP.SAVE()
|
||||
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
|
||||
'=====ATEZ BEREITSTELLUNG==========
|
||||
checkATEZ_Bereitstellung(DY_TMP, d)
|
||||
'==================================
|
||||
|
||||
FORM.addDGVEinarbeitung("NCTS: AnrechnungReferenzbetäege", 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)
|
||||
readNCTS004_AnrechnungReferenzbetraege002 = ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user