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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-06-04 22:20:10 +02:00
parent 6e3e35ac70
commit 3d67139c09
23 changed files with 26785 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -1878,6 +1878,79 @@ Public Class cWorker_NCTS
readNCTS_Ueberlassungsmeldung006 = ""
End Try
End Function
Shared Function readNCTS_Ueberlassungsmeldung007(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_007.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_007.UeberlassungsmeldungMRTyp.LoadFromFile(d)
Dim MRN = ""
Dim division = ""
Dim Wiedergestellungsdatum As Object = Nothing
' Dim bearbeiter = ""
Dim zp As Object = Nothing
readNCTS_Ueberlassungsmeldung007 = ""
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_Ueberlassungsmeldung007 = 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.
End If
End If
End If
' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
If readNCTS_Ueberlassungsmeldung007 <> "" And MRN <> "" Then 'BEZUGSNR vorhanden
Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit)
STATUS.dySt_BezugsNr = readNCTS_Ueberlassungsmeldung007
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.cDakosyNCTSOut = saveDY_NCTS(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, If(zp, NCTS.Transaktion.IODatumZeit), , MRN)
SaveNCTS_FirmaNL(NCTS_TMP, DY_TMP, division)
SaveNCTS_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_VERAGncts_DY(NCTS_TMP, DY_TMP)
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
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_Ueberlassungsmeldung007 = ""
End Try
End Function
Shared Sub SaveNCTS_WGDAT(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, WGDAT As Object)