ATLAS 10.1 DAKOSY 10
This commit is contained in:
@@ -3916,6 +3916,172 @@ Public Class cWorker_NCTS
|
||||
readNCTS004_Ueberlassungsmeldung008 = ""
|
||||
End Try
|
||||
End Function
|
||||
Shared Function readNCTS_Ueberlassungsmeldung009(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_009.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.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)
|
||||
|
||||
|
||||
readNCTS_Ueberlassungsmeldung009 = ""
|
||||
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
|
||||
readNCTS_Ueberlassungsmeldung009 = 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.
|
||||
If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing Then
|
||||
If NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate.ToString <> "" Then 'Sollte mit Version 009 hier enthalten sein!
|
||||
Wiedergestellungsdatum = DateTime.ParseExact(NCTS.EinzelUeberlassungsmeldung.TransitOperation.LimitDate, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
|
||||
If NCTS.EinzelUeberlassungsmeldung.TransitOperation.AdditionalInformation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails IsNot Nothing Then
|
||||
For Each a In NCTS.EinzelUeberlassungsmeldung.TransitOperation.ApplicationInternalData.AdditionalDetails
|
||||
If a.Key = "LimitDate" Then
|
||||
Wiedergestellungsdatum = DateTime.ParseExact(a.Value, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
|
||||
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
'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 readNCTS_Ueberlassungsmeldung009 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
|
||||
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
|
||||
STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung009
|
||||
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, True)
|
||||
|
||||
|
||||
NCTS_TMP.ncts_Eroeffnung = zp
|
||||
NCTS_TMP.SAVE()
|
||||
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
'GARANTIE ÜBERSCHREIBEN:
|
||||
If NCTS.EinzelUeberlassungsmeldung.TransitOperation IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee IsNot Nothing AndAlso NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee.Count > 0 Then
|
||||
NCTS_TMP.ncts_GUARANTEE.Clear()
|
||||
|
||||
For Each GRT_M In NCTS.EinzelUeberlassungsmeldung.TransitOperation.Guarantee
|
||||
|
||||
For Each GRT In GRT_M.GuaranteeReference
|
||||
Dim NCTS_GRT As New DAKOSY_Worker.cDakosy_NCTSOut004_Guarantee
|
||||
|
||||
|
||||
NCTS_GRT.nctsGRT_Type = GRT_M.GuaranteeType
|
||||
NCTS_GRT.nctsGRT_OtherGuaranteeReference = GRT_M.OtherGuaranteeReference
|
||||
NCTS_GRT.nctsGRT_AmountToBeCovered = GRT.AmountToBeCovered
|
||||
'NCTS_GRT.nctsGRT_AccessCode = GRT.accessCode
|
||||
NCTS_GRT.nctsGRT_GRN = GRT.GRN
|
||||
NCTS_GRT.nctsGRT_Currency = GRT.Currency
|
||||
NCTS_TMP.ncts_GUARANTEE.Add(NCTS_GRT)
|
||||
|
||||
Next
|
||||
Next
|
||||
NCTS_TMP.SAVE_Guarantee()
|
||||
End If
|
||||
'------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
'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)
|
||||
readNCTS_Ueberlassungsmeldung009 = ""
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Shared Sub SaveNCTS_WGDAT(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, WGDAT As Object)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user