Merge branch 'ADMIN' of https://dev.azure.com/VeragAG/_git/ADMIN into ADMIN
This commit is contained in:
@@ -140,6 +140,7 @@
|
||||
<Compile Include="cATEZWorker.vb" />
|
||||
<Compile Include="cOREGONWorker.vb" />
|
||||
<Compile Include="cMAVIWorker.vb" />
|
||||
<Compile Include="cWorker_AES_EXG.vb" />
|
||||
<Compile Include="cWorker_Verwahrung.vb" />
|
||||
<Compile Include="frmNachrichtenVerarbeitung_MDM_divers.Designer.vb">
|
||||
<DependentUpon>frmNachrichtenVerarbeitung_MDM_divers.vb</DependentUpon>
|
||||
|
||||
@@ -316,6 +316,29 @@ Public Class cGetMsgType
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function isAES_DatenZumAusgang(doc As XmlDocument, ByRef VERSION As String) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("DataEXITDE").Count > 0 Then
|
||||
If doc.GetElementsByTagName("Version").Count > 0 Then
|
||||
VERSION = doc.GetElementsByTagName("Version")(0).InnerText
|
||||
End If
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
Shared Function isAES_E_EXT_DAT(doc As XmlDocument) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("E_EXT_DAT").Count > 0 Then
|
||||
'If doc.GetElementsByTagName("Version").Count > 0 Then
|
||||
' VERSION = doc.GetElementsByTagName("Version")(0).InnerText
|
||||
'End If
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function isEZA_SumAErledigungsinformationCDXWare(doc As XmlDocument, ByRef VERSION As String) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("SumAErledigungsinformationCDXWare").Count > 0 Then
|
||||
|
||||
193
initATLASAufschubkonten/cWorker_AES_EXG.vb
Normal file
193
initATLASAufschubkonten/cWorker_AES_EXG.vb
Normal file
@@ -0,0 +1,193 @@
|
||||
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
|
||||
@@ -84,9 +84,9 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Label6.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
'-------------------------------------------------------------------------------------
|
||||
DatenEinlesen() '<<<<----------------------
|
||||
|
||||
'-------------------------------------------------------------------------------------
|
||||
If dsNichtErkannt > 0 Then
|
||||
|
||||
Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt."
|
||||
@@ -427,6 +427,32 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
End Select
|
||||
End If
|
||||
|
||||
|
||||
'------------------------------------------
|
||||
'------------------ EXPORT / Gestellung (AES) ------------------
|
||||
'------------------------------------------
|
||||
|
||||
|
||||
'AES: UngueltigkeitSicherheitenNCTSDE
|
||||
If Not found And cGetMsgType.isAES_DatenZumAusgang(doc, VERSION) Then
|
||||
frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\")
|
||||
Select Case VERSION
|
||||
Case False
|
||||
Case Else : If cWorker_AES_EXG.readEZA_DatenZumAusgang_DataEXITDE_005(Me, d, saveVerwahrung) <> "" Then found = True
|
||||
End Select
|
||||
End If
|
||||
|
||||
'AES: Zoll Nachricht
|
||||
If Not found And cGetMsgType.isAES_E_EXT_DAT(doc) Then
|
||||
frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\")
|
||||
'Select Case VERSION
|
||||
' Case False
|
||||
' Case Else : If cWorker_AES_EXG.readEZA_DatenZumAusgang_DataEXITDE_005(Me, d, saveVerwahrung) <> "" Then found = True
|
||||
'End Select
|
||||
End If
|
||||
|
||||
'
|
||||
|
||||
'------------------------------------------
|
||||
'------------------ EZA ------------------
|
||||
'------------------------------------------
|
||||
|
||||
Reference in New Issue
Block a user