Imports com.sun.org.apache.bcel.internal.generic Imports DAKOSY_Worker Imports DocumentFormat.OpenXml.Wordprocessing Imports java.nio.channels Imports Spire.Pdf Imports VERAG_PROG_ALLGEMEIN Public Class cWorker_AES_EXG Public Shared Dateiname = "" Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL Shared Function readEZA_DatenZumAusgang_DataEXITDE_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean) As String Try Dim VWI As DAKOSY_Worker.DataEXITDE.DatenZumAusgangXDTyp = DAKOSY_Worker.DataEXITDE.DatenZumAusgangXDTyp.LoadFromFile(d) Dim MRN = "" Dim RegistriernummerATLAS = "" Dim ankungsdatum As Object = Nothing Dim zp As Object = Nothing readEZA_DatenZumAusgang_DataEXITDE_005 = "" If VWI IsNot Nothing Then If VWI.ResponseData IsNot Nothing AndAlso VWI.ResponseData.Count > 0 Then For Each RESP In VWI.ResponseData If RESP.ObjektIdentifizierung IsNot Nothing Then If RESP.ObjektIdentifizierung.ObjektName IsNot Nothing Then readEZA_DatenZumAusgang_DataEXITDE_005 = RESP.ObjektIdentifizierung.ObjektName 'Nur ObjektAntragsart VV (SumA Vorgang) /NE (NCTS-Vorgang ) If RESP.HeaderData IsNot Nothing Then If RESP.HeaderData.MRN IsNot Nothing Then MRN = RESP.HeaderData.MRN End If End If If RESP.ObjektIdentifizierung.ZeitpunktEingang > "01.01.2000" Then zp = RESP.ObjektIdentifizierung.ZeitpunktEingang End If '---------------------------------------------------------------------- 'QULAIFIZIERUNG! '---------------------------------------------------------------------- If True Then 'BEZUGSNR vorhanden Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit) STATUS.dySt_BezugsNr = readEZA_DatenZumAusgang_DataEXITDE_005 STATUS.dySt_artMitteilung = "EXG_DATA" STATUS.dySt_dyArt = "AES" STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_00 STATUS.dySt_ergCode = "EXG_DATA" STATUS.dySt_ergMitteilung = "" If zp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = zp STATUS.SAVE() '---------------------------------------------------------------------- 'Es wird bei Daten zum AUsgang und "_EXG_" automaitsch die Qualifizierung aufgerufen... If readEZA_DatenZumAusgang_DataEXITDE_005.Contains("_EXG_") Then Dim IOPARTNER = VWI.Transaktion.IOPartner Dim DIVISION3 = VWI.Transaktion.IODivision3 Dim DAKOSY_SB = "ANDREAS" Dim DY_ACTIONS As New List(Of String) If IOPARTNER = "UNAT" Then DAKOSY_SB = "luxbauer" End If Dim saveFile = "" DY_ACTIONS.Add("CHANGE") ' DY_ACTIONS.Add("SEND") If generateInformationenZumAusgang003(MRN, readEZA_DatenZumAusgang_DataEXITDE_005, saveFile, DY_ACTIONS, IOPARTNER, DIVISION3, DAKOSY_SB) Then If saveFile <> "" Then frmStartOptions.copyFile(saveFile, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\upl\") 'NOCH NCIHT!!!!!! 'If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, readEZA_DatenZumAusgang_DataEXITDE_005, -1, IOPARTNER) Then ' 'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03) ' Return True 'Else ' 'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09) ' Return False 'End If End If End If End If '---------------------------------------------------------------------- FORM.addDGVEinarbeitung("AES: ExportGest.-DatenZumAusgang", STATUS.dySt_BezugsNr) End If '---------------------------------------------------------------------- '---------------------------------------------------------------------- End If End If Next End If End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) readEZA_DatenZumAusgang_DataEXITDE_005 = "" End Try End Function Shared Function generateInformationenZumAusgang003(MRN As String, ByVal Bezugsnummer As String, ByRef saveFile As String, DY_ACTIONS As List(Of String), IOPartner As String, IODivision3 As String, DAKOSY_SB As String) As Boolean Dim Interface_VERSION = "003" ' Dim ObjectAktion = DY_ACTION ' Dim BezugsnummerVorblendung = "AA_NCTS_DE_ZE_WO_MITTICH" Dim XML As New DAKOSY_Worker.InformationEXITDE.InformationenZumAusgangXITyp 'Bezugsnummer = Bezugsnummer.Replace("_EXG_", "_QZ_") ' ?????????????????? If Bezugsnummer.Length > 35 Then Bezugsnummer = Bezugsnummer.Substring(0, 35) End If 'Transaktion: XML.Transaktion = New DAKOSY_Worker.InformationEXITDE.TransaktionExportTyp XML.Transaktion.IOPartner = IOPartner XML.Transaktion.IODatumZeit = Now XML.Transaktion.IOReferenz = Bezugsnummer & "_" & Now.ToString("ddMMyyHHmmSS") If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = IODivision3 XML.Transaktion.Version = Interface_VERSION ' XML.Transaktion.IODivision3 = "DUR" Dim XML_EG = New InformationEXITDE.EinzelInformationenZumAusgangTyp 'ObjektIdentifizierung: XML_EG.ObjektIdentifizierung.ObjektName = Bezugsnummer 'If Bezugsnummer IsNot Nothing Then XML_EG.ObjektIdentifizierung.ObjektAliasname = Bezugsnummer XML_EG.ObjektIdentifizierung.ObjektAktion = DY_ACTIONS If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML_EG.ObjektIdentifizierung.Bearbeiter = DAKOSY_SB ' If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML_EG.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung 'TransitOperation: XML_EG.HeaderData.InformationType = "NV" 'XML_EG.HeaderData.MRN = MRN 'If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.CustomsOfficeOfDestinationActual = cDY.ncts_CountryOfDispatch 'If SND.tblSnd_ATB_T1 IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.MRN = SND.tblSnd_ATB_T1 'XML.EinzelEingangsanzeige.TransitOperation.ArrivalNotificationDateAndTime = Now 'XML.EinzelEingangsanzeige.TransitOperation.IncidentFlag = "N" XML.DeclarationData.Add(XML_EG) Dim saveDir = Application.StartupPath & "\Dakosy_SEND\" If Not System.IO.Directory.Exists(saveDir) Then System.IO.Directory.CreateDirectory(saveDir) End If saveFile = saveDir & "DY_EXP_" & Now.ToString("yyMMdd_HHmmss") & ".xml" XML.SaveToFile(saveFile) '------------------------------------------- Dim STATUS As New DAKOSY_Worker.cDakosy_Statusmeldungen STATUS.dySt_BezugsNr = Bezugsnummer STATUS.dySt_artMitteilung = "EXG_INFO" STATUS.dySt_dyArt = "AES" STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_00 STATUS.dySt_ergCode = "EXG_INFO" STATUS.dySt_ergMitteilung = "MRN:" & MRN STATUS.dySt_ergZeitpunkt = Now STATUS.SAVE() '------------------------------------------- 'SDL.DAKOSY_Interface_SEND.replaceNullDateXML(saveFile) Return True End Function End Class