ATEZ status
This commit is contained in:
@@ -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 = ""
|
||||
|
||||
Reference in New Issue
Block a user