ATEZ status

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")