From 199078e739aede42a69bccb8538a9addea4869c2 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 2 Jan 2024 13:18:12 +0100 Subject: [PATCH] Asfinag, Essensbestellungen --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/UsrCntlEssensbestellungen.vb | 2 +- SDL/mdm/frmMDMDatenverarbetiung.vb | 18 +++++++++--------- 3 files changed, 12 insertions(+), 12 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 0a74f94a..6886ab4d 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/UsrCntlEssensbestellungen.vb b/SDL/UsrCntlEssensbestellungen.vb index dd2229d8..052c9b99 100644 --- a/SDL/UsrCntlEssensbestellungen.vb +++ b/SDL/UsrCntlEssensbestellungen.vb @@ -592,7 +592,7 @@ Public Class UsrCntlessensbestellungen cbxAbteilung.fillWithSQL("SELECT [abt_kuerzel], [abt_bezeichnung] from [tblAbteilungen] ", False, "ADMIN", True,, "") cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frontoffice", "Frontoffice")) - cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Asfinag", "Asfinag")) + cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Suben West", "Suben West")) cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag VERR", "Verag Verrechnung")) cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut")) cbxGebäude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 1c72a2da..d5c0755a 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -1122,15 +1122,15 @@ Public Class frmMDMDatenverarbetiung 'AT ---> Gruppiert - If dtAT IsNot Nothing AndAlso dtAT.Rows.Count > 0 Then - If dt Is Nothing OrElse dt.Rows.Count = 0 Then - dt = dtAT - Else - For Each r In dtAT.Rows - dt.Rows.Add({r(0), r(1), r(2), r(3), r(4), r(5), r(6), r(7), r(8), r(9)}) - Next - End If - End If + 'If dtAT IsNot Nothing AndAlso dtAT.Rows.Count > 0 Then + ' If dt Is Nothing OrElse dt.Rows.Count = 0 Then + ' dt = dtAT + ' Else + ' For Each r In dtAT.Rows + ' dt.Rows.Add({r(0), r(1), r(2), r(3), r(4), r(5), r(6), r(7), r(8), r(9)}) + ' Next + ' End If + 'End If Dim connectionString = "" If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then