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

rksi

Browse Source
This commit is contained in:
d.breimaier
2025-11-14 11:31:33 +01:00
parent ba78e1a073
commit ea91263bc5
1 changed files with 21 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

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