ATEZ status

UID/usrctlProcedures.Designer.vb

@@ -24,6 +24,7 @@ Partial Class usrctlProcedures
     Private Sub InitializeComponent()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.CheckBox6 = New System.Windows.Forms.CheckBox()
         Me.TextBox15 = New System.Windows.Forms.TextBox()
         Me.Button37 = New System.Windows.Forms.Button()
         Me.Button41 = New System.Windows.Forms.Button()
@@ -126,7 +127,7 @@ Partial Class usrctlProcedures
         Me.Button33 = New System.Windows.Forms.Button()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.CheckBox6 = New System.Windows.Forms.CheckBox()
+        Me.Button43 = New System.Windows.Forms.Button()
         Me.TabControl1.SuspendLayout()
         Me.TabPage3.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -170,6 +171,16 @@ Partial Class usrctlProcedures
         Me.TabPage3.Text = "TabPage3"
         Me.TabPage3.UseVisualStyleBackColor = True
         '
+        'CheckBox6
+        '
+        Me.CheckBox6.AutoSize = True
+        Me.CheckBox6.Location = New System.Drawing.Point(18, 55)
+        Me.CheckBox6.Name = "CheckBox6"
+        Me.CheckBox6.Size = New System.Drawing.Size(90, 17)
+        Me.CheckBox6.TabIndex = 65
+        Me.CheckBox6.Text = "ForceRefresh"
+        Me.CheckBox6.UseVisualStyleBackColor = True
+        '
         'TextBox15
         '
         Me.TextBox15.Location = New System.Drawing.Point(185, 55)
@@ -1106,20 +1117,20 @@ Partial Class usrctlProcedures
         Me.DataGridViewTextBoxColumn2.HeaderText = "anz"
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
         '
-        'CheckBox6
+        'Button43
         '
-        Me.CheckBox6.AutoSize = True
+        Me.Button43.Location = New System.Drawing.Point(694, 29)
-        Me.CheckBox6.Location = New System.Drawing.Point(18, 55)
+        Me.Button43.Name = "Button43"
-        Me.CheckBox6.Name = "CheckBox6"
+        Me.Button43.Size = New System.Drawing.Size(145, 49)
-        Me.CheckBox6.Size = New System.Drawing.Size(90, 17)
+        Me.Button43.TabIndex = 65
-        Me.CheckBox6.TabIndex = 65
+        Me.Button43.Text = "TELOTEC NCTS"
-        Me.CheckBox6.Text = "ForceRefresh"
+        Me.Button43.UseVisualStyleBackColor = True
-        Me.CheckBox6.UseVisualStyleBackColor = True
         '
         'usrctlProcedures
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.Button43)
         Me.Controls.Add(Me.Button33)
         Me.Controls.Add(Me.lblStatus)
         Me.Controls.Add(Me.Button32)
@@ -1293,4 +1304,5 @@ Partial Class usrctlProcedures
     Friend WithEvents TextBox15 As TextBox
     Friend WithEvents Button37 As Button
     Friend WithEvents CheckBox6 As CheckBox
+    Friend WithEvents Button43 As Button
 End Class

UID/usrctlProcedures.vb

@@ -16,6 +16,8 @@ Imports System.Xml.Serialization
 Imports System.Xml
 Imports System.Data.OleDb
 Imports Chilkat
+Imports TELOTEC_Worker
+Imports GrapeCity
 'Imports Microsoft.Office.Interop
 
 Public Class usrctlProcedures
@@ -3759,6 +3761,136 @@ Public Class usrctlProcedures
 
     End Sub
 
+    Private Sub Button43_Click(sender As Object, e As EventArgs) Handles Button43.Click
+
+
+        ' Pfad zur Excel-Datei anpassen
+        Dim filePath As String = "D:\Andreas\TMP\TELENM\Garantiebeträge 122024-012025-IMEX.xlsx"
+
+        ' Excel Anwendung starten
+        Dim excelApp As New Excel.Application
+        Dim excelWorkbook As Excel.Workbook = excelApp.Workbooks.Open(filePath)
+        Dim excelSheet As Excel.Worksheet = CType(excelWorkbook.Sheets(1), Excel.Worksheet)
+        Dim excelRange As Excel.Range = excelSheet.UsedRange
+
+        ' Zeilenanzahl ermitteln
+        Dim rowCount As Integer = excelRange.Rows.Count
+        Dim colCount As Integer = excelRange.Columns.Count
+
+        ' Zeile für Zeile durchlaufen
+        For i As Integer = 2 To rowCount
+            Dim rowData As String = ""
+
+
+            Dim TELANM = cTelotec_Anmeldung.LOAD_ByBezugsNr(excelRange.Cells(i, 4).Value)
+            If TELANM Is Nothing Then
+                TELANM = New cTelotec_Anmeldung
+            End If
+
+            TELANM.telanm_ART = "T1" '"T2"
+            TELANM.Hea_DecTy = "T1" '"T2"
+            TELANM.telanm_BezugsNr = excelRange.Cells(i, 4).Value
+            TELANM.Refs_LRN = excelRange.Cells(i, 4).Value
+            TELANM.telanm_Status = 50
+            TELANM.telanm_Status_KEWILL_Equivalent = 50
+            TELANM.telanm_CRN = excelRange.Cells(i, 5).Value
+            TELANM.Refs_CRN = excelRange.Cells(i, 5).Value
+            TELANM.telanm_Erstellung = CDate(excelRange.Cells(i, 6).Value)
+            TELANM.telanm_LetzteBearbeitung = TELANM.telanm_Erstellung
+            TELANM.dec_CreateDate = TELANM.telanm_Erstellung
+            TELANM.Hea_AccDT = TELANM.telanm_Erstellung
+
+            TELANM.Mandant_ID = excelRange.Cells(i, 2).Value
+            TELANM.telanm_firma = excelRange.Cells(i, 2).Value
+            TELANM.dec_ProzessArt = "TA"
+            TELANM.Hea_Simp = 0
+
+            TELANM.Hea_DecDT = "TA"
+            TELANM.Hea_DecDT = TELANM.telanm_Erstellung
+            TELANM.Hea_DecPlc = ""
+
+
+            TELANM.Transp_DepIdnt = excelRange.Cells(i, 3).Value
+            TELANM.Transp_CrossIdnt = excelRange.Cells(i, 3).Value
+
+            TELANM.Represent_Na = excelRange.Cells(i, 8).Value
+
+            TELANM.DepCO_Ref = excelRange.Cells(i, 12).Value
+            TELANM.DestCO_Ref = excelRange.Cells(i, 13).Value
+            TELANM.telnam_aktuellsteNachricht = 1
+            TELANM.Bereich_ID = 0
+            TELANM.Hea_TotItem = 1
+            TELANM.ComIndicator = 1
+            TELANM.Referenz_ID = TELANM.Refs_LRN '& TELANM.telanm_Erstellung.ToString("ddMMyyHHmm")
+
+            Dim GRT As New cTelotec_Sicherheit
+
+            GRT.Mandant_ID = TELANM.Mandant_ID
+            GRT.Bereich_ID = TELANM.Bereich_ID
+            GRT.Referenz_ID = TELANM.Referenz_ID
+            GRT.ComIndicator = TELANM.ComIndicator
+            GRT.GrteeRef_ID = 1
+
+            GRT.GRN = excelRange.Cells(i, 9).Value
+            GRT.GVal = excelRange.Cells(i, 10).Value
+            GRT.Curr = excelRange.Cells(i, 11).Value
+            GRT.GrteeRef_GTy = 0
+
+            TELANM.SICHERHEIT.Clear()
+
+            TELANM.SICHERHEIT.Add(GRT)
+
+            TELANM.SAVE()
+
+            '  MsgBox(TELANM.telanm_id)
+
+            ''Stat 60Hizufüg
+            'TELANM.telanm_id = Nothing
+            'TELANM.telanm_Status = 60
+            'TELANM.telanm_Status_KEWILL_Equivalent = 60
+
+            'TELANM.SAVE()
+
+
+        Next
+
+        'For j As Integer = 1 To colCount
+        '        Dim cellValue As Object = excelRange.Cells(i, j).Value
+        '        If cellValue IsNot Nothing Then
+        '            rowData &= cellValue.ToString() & vbTab ' Werte mit Tabulator trennen
+        '        End If
+        '    Next
+        '    Console.WriteLine(rowData) ' Zeile ausgeben
+        'Next
+
+        ' Cleanup
+        excelWorkbook.Close(False)
+        excelApp.Quit()
+
+        ' Excel-Objekte korrekt freigeben
+        ReleaseObject(excelRange)
+        ReleaseObject(excelSheet)
+        ReleaseObject(excelWorkbook)
+        ReleaseObject(excelApp)
+
+        Console.WriteLine("Excel-Daten wurden erfolgreich ausgelesen.")
+        Console.ReadKey()
+
+
+    End Sub
+
+    ' Methode zum Freigeben der COM-Objekte
+    Private Sub ReleaseObject(ByVal obj As Object)
+        Try
+            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
+            obj = Nothing
+        Catch ex As Exception
+            obj = Nothing
+        Finally
+            GC.Collect()
+        End Try
+    End Sub
+
 
     'Private Sub Button26_Click(sender As Object, e As EventArgs)
     '    For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")

initATLASAufschubkonten/cGetMsgType.vb

@@ -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

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -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 = ""

initATLASAufschubkonten/frmStartOptions.vb

@@ -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