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

div

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-03-24 08:02:33 +01:00
parent 5b4600b75e
commit 3439686e9d
4 changed files with 828 additions and 801 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
UID/usrctlProcedures.vb
View File

@@ -3765,7 +3765,7 @@ Public Class usrctlProcedures
' Pfad zur Excel-Datei anpassen
Dim filePath As String = "D:\Andreas\TMP\TELENM\Garantiebeträge 122024-012025-IMEX.xlsx"
Dim filePath As String = "D:\Andreas\TMP\elotec ncts 02 2025\ATILLA _ DUR.xlsx"
' Excel Anwendung starten
Dim excelApp As New Excel.Application
@@ -3787,8 +3787,8 @@ Public Class usrctlProcedures
TELANM = New cTelotec_Anmeldung
End If
TELANM.telanm_ART = "T1" '"T2"
TELANM.Hea_DecTy = "T1" '"T2"
TELANM.telanm_ART = "T2" '"T1" '"T2"
TELANM.Hea_DecTy = "T2" '"T1" '"T2"
TELANM.telanm_BezugsNr = excelRange.Cells(i, 4).Value
TELANM.Refs_LRN = excelRange.Cells(i, 4).Value
TELANM.telanm_Status = 50