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

ATEZ status

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-03-10 11:45:13 +01:00
parent 589d947d18
commit cd3b0ca707
7 changed files with 1710 additions and 1384 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
initATLASAufschubkonten/cGetMsgType.vb
View File

@@ -338,6 +338,18 @@ Public Class cGetMsgType
End If
Return False
End Function
Shared Function isAES_E_EXP_FUP_DEXPFE(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("DEXPFE").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

117
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -451,6 +451,15 @@ Public Class frmDYNachrichtenVerarbeitung
'End Select
End If
'AES/EZA: Wiedervorlage zur Ausfuhr
If Not found And cGetMsgType.isAES_E_EXP_FUP_DEXPFE(doc) Then
MsgBox("HALLLO")
If readAES_E_EXP_FUP_DEXPFE(doc) <> "" Then found = True
End If
'
'------------------------------------------
@@ -5750,6 +5759,114 @@ Public Class frmDYNachrichtenVerarbeitung
End Try
End Function
Function readAES_E_EXP_FUP_DEXPFE(doc As XmlDocument) As String
Try
Dim xmlDoc As New XmlDocument()
' xmlDoc.LoadXml(xmlContent)
If doc.GetElementsByTagName("LRN").Count > 0 Then
Dim LRN = doc.GetElementsByTagName("LRN")(0).InnerText
readAES_E_EXP_FUP_DEXPFE = LRN
If LRN.Replace("-", "/").Contains("/") AndAlso LRN.Length >= 13 Then
Dim split = LRN.Replace("-", "/").Split("/")
If split(0).Length = 4 AndAlso split(1).Length >= 8 Then
' LRN passt vom Format!, suche nach DY_ANM:
Dim dy_id As String = ""
If LRN.ToString.Length > 15 Then
dy_id = SQL.getValueTxtBySql("SELECT isnull(dy_Id,-1) FROM tblDakosy_Zollanmeldungen where [dy_BezugsNr]='" & LRN.ToString.Trim & "'", "FMZOLL")
If dy_id = "" Then
dy_id = SQL.getValueTxtBySql("SELECT isnull(dy_Id,-1) FROM tblDakosy_Zollanmeldungen where '" & LRN.ToString.Trim & "' LIKE [dy_BezugsNr] +'%' and LEN(dy_BezugsNr)>=13", "FMZOLL")
End If
Else
dy_id = SQL.getValueTxtBySql("SELECT isnull(dy_Id,-1) FROM tblDakosy_Zollanmeldungen where [dy_BezugsNr]='" & LRN.ToString.Trim & "'", "FMZOLL")
End If
'-------------------------------------------
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
'-------------------------------------------
' DY Anmeldung gefunden
'-------------------------------------------
Dim DY_ANM = New cDakosy_Zollanmeldungen(dy_id)
Dim AES_TMP = cDakosyAES.LOADByAnmIDFull(dy_id, False)
If DY_ANM IsNot Nothing AndAlso DY_ANM.dy_AvisoId IsNot Nothing AndAlso DY_ANM.dy_SendungsId IsNot Nothing Then
If True Then
'Benachrichtigung
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_ANM.dy_SendungsId & "'", "AVISO", -1)
Dim art = "B"
'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_ANM.dy_SendungsId & "'", "AVISO", -1)
art = "B"
End If
'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_ANM.dy_AvisoId & "'", "AVISO", -1)
art = "B"
End If
'Wenn Benutzer des LKWs nicht online, Team...
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_ANM.dy_SendungsId & "'", "AVISO", -1)
art = "T"
End If
'Wenn TEAM nicht gefunden, Firma...
If sendToID <= 0 Then
If AES_TMP IsNot Nothing AndAlso AES_TMP.aes_firma IsNot Nothing AndAlso AES_TMP.aes_firma <> "" Then
sendToID = AES_TMP.aes_firma
art = "F"
End If
End If
If sendToID = "" Then sendToID = "VERAG" 'DEFAULT
'Wenn gefunden
If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_ANM.dy_AvisoId & "'", "AVISO")
Select Case statusAVISO
'Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben,,VERAG_PROG_ALLGEMEIN.cGlobal.erfasst Nue
' Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
'Nicht
Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.AES_NachfrageVerbleib
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_ANM.dy_AvisoId, DY_ANM.dy_SendungsId, code, art, sendToID, "ZOLL: Nachfrage Verbleib", 1, , "Nachfrage Verbleib",,, If(AES_TMP IsNot Nothing, If(AES_TMP.aes_firma, ""), ""))
End Select
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_Nachfrage_Verbleib - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
End If
End If
End If
Return LRN
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)
End Try
Return ""
End Function
Function readEZA_FreierVerkehrAktVeredelUmwandlungXML(doc As XmlDocument) As String
Try
readEZA_FreierVerkehrAktVeredelUmwandlungXML = ""

1556
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

1227
initATLASAufschubkonten/frmStartOptions.resx
View File

File diff suppressed because it is too large Load Diff

20
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -301,6 +301,10 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.query_declarations(Now.AddDays(-3), Now, False)
closeMe()
Case "NCTS_FREMD_UPDATE_MRN" 'TRANSCODE NCTS UPDATEN solange status <>60,90
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
updateATEZStatusByMRNTop(500)
closeMe()
Case "UID_Pruefung"
Dim f As New frmInfo(PARAM)
f.Show()
@@ -5522,6 +5526,7 @@ Public Class frmStartOptions
End Sub
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles btnTestATEZ.Click
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(MyTextBox5.Text)
End Sub
@@ -5602,19 +5607,30 @@ Public Class frmStartOptions
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
Dim dt = (New SQL).loadDgvBySql("SELECT TOP (200) ncts_MRN FROM [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL")
' Dim dt = (New SQL).loadDgvBySql("SELECT TOP (1000) [ncts_Id] FROM [tblNCTS_FREMD] where ncts_Partnersystem='ATEZ' and ncts_status < 60", "FMZOLL")
Dim top = 200
If IsNumeric(MyTextBox6._value) AndAlso CInt(MyTextBox6._value) > 0 Then
top = CInt(MyTextBox6._value)
End If
updateATEZStatusByMRNTop(top)
End Sub
Sub updateATEZStatusByMRNTop(top As Integer)
Dim dt = (New SQL).loadDgvBySql("SELECT TOP (" & top & ") ncts_MRN FROM [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL")
If dt IsNot Nothing Then
Label49.Text = "-"
Dim cnt = 1
For Each r In dt.Rows
Label49.Text = cnt & "/" & dt.Rows.Count
Me.Refresh()
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.get_ie015_xml_by_mrn(r("ncts_MRN"))
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(r("ncts_MRN"))
Next
Label49.Text = dt.Rows.Count & "fin"
End If
End Sub
Private Sub LinkLabel72_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel72.LinkClicked
If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub