From ea91263bc575c8396f5777b8242e6b09a4e28816 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 14 Nov 2025 11:31:33 +0100 Subject: [PATCH] rksi --- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 29 +++++++++++++++++------- 1 file changed, 21 insertions(+), 8 deletions(-) diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 879624b7..bd987abc 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -2233,7 +2233,7 @@ Public Class usrcntlKundeBearbeitenFull Private Function initdgvIDSRabatte() As DataTable - Dim dt_IDS_Rabatte As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW + Dim dt_IDS_Rabatte As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry,S.OutletCode, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode and S.OutletCountryCode = RW.OutletCountryCode where CustomerCode =" & KUNDE.KundenNr & " order by Kz", "FMZOLL") @@ -2247,10 +2247,17 @@ Public Class usrcntlKundeBearbeitenFull .Columns(0).HeaderText = "Produkt" + .Columns(0).Width = 60 .Columns(1).HeaderText = "Land" - .Columns(2).HeaderText = "Station" - .Columns(4).HeaderText = "Rabatt/Preis" - .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns(1).Width = 80 + .Columns(2).HeaderText = "S-Nr" + .Columns(2).Width = 50 + .Columns(3).HeaderText = "Station" + .Columns(4).HeaderText = "Rab-/Pr." + .Columns(4).Width = 50 + .Columns(5).Width = 50 + .Columns(6).Width = 50 + .Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill End With @@ -2264,7 +2271,7 @@ Public Class usrcntlKundeBearbeitenFull lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" & IIf(KundeOhneRabatt > 0, " - KUNDE OHNE RABATT", "") - Dim dt_IDS As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW + Dim dt_IDS As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry,S.OutletCode, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode and S.OutletCountryCode = RW.OutletCountryCode where CustomerCode is null order by KZ", "FMZOLL") @@ -2276,10 +2283,16 @@ Public Class usrcntlKundeBearbeitenFull .Columns(0).HeaderText = "Produkt" + .Columns(0).Width = 60 .Columns(1).HeaderText = "Land" - .Columns(2).HeaderText = "Station" - .Columns(4).HeaderText = "Rabatt/Preis" - .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns(2).Width = 80 + .Columns(2).HeaderText = "S-Nr" + .Columns(2).Width = 50 + .Columns(3).HeaderText = "Station" + .Columns(5).HeaderText = "Rab-/Pr." + .Columns(5).Width = 50 + .Columns(6).Width = 50 + .Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill End With