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

Mahnlauf, FaktMail, EORI-Antrag NEU, Offerte, CBAM, MDM-USTVAntrag

Browse Source
This commit is contained in:
d.breimaier
2025-05-23 15:15:09 +02:00
parent 44c87e5060
commit 9a1300ba92
19 changed files with 2106 additions and 519 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
SDL/kunden/usrCntlOfferte.vb
View File

@@ -74,10 +74,12 @@ Public Class usrCntlOfferte
With dgvOfferteDetails
'.Columns.Clear()
Dim SQLAddFields As String = ""
Dim addedFields As Boolean = addFieldsOffert(OffertenNr, SQLAddFields)
Try
OFFERTEBind = New cEasyBinding(BIND_DB)
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " &
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr" & SQLAddFields &
" FROM [Offertenpositionen] " &
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen")
For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns
@@ -147,6 +149,17 @@ Public Class usrCntlOfferte
' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
' .Columns("OffertenBez").HeaderText = "Bezeichnung"
If addedFields AndAlso .Columns.Contains("Land") Then
.Columns("Land").Width = 70
.Columns("Land").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("VZ").Width = 40
.Columns("VZ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("RMC").Width = 40
.Columns("RMC").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("Fremd").Width = 40
.Columns("Fremd").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
End If
loaded = True
End With
@@ -555,7 +568,7 @@ Public Class usrCntlOfferte
For Each c As DataGridViewColumn In .Columns
If isVerag360 Then
If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert" Or c.Name = "BGebLeistungsNr" Or c.Name = "BGebProzent" Or c.Name = "BGebMinBetrag") Then
If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert" Or c.Name = "BGebLeistungsNr" Or c.Name = "BGebProzent" Or c.Name = "BGebMinBetrag" Or c.Name = "Land" Or c.Name = "VZ" Or c.Name = "RMC" Or c.Name = "Fremd") Then
If edit Then
c.ReadOnly = False
handleEditMode(edit)
@@ -602,11 +615,19 @@ Public Class usrCntlOfferte
loaded = False
DGVHasChaged = False
Dim addFields As String = ""
Dim OffNR As Integer = -1
OffNR = CInt(SQL.getValueTxtBySql("SELECT TOP(1) OffertenNr from tblOffertenArchiv where OfID = " & OffertenId, "FMZOLL"))
Dim addedFields As Boolean = addFieldsOffert(OffNR, addFields)
With dgvOfferteDetails
.Columns.Clear()
OFFERTEBind = New cEasyBinding(BIND_DB)
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " &
OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " & addFields &
" FROM [tblOffertenpositionenArchiv] " &
" WHERE OfId='" & OffertenId & "' ORDER BY LeistungsNr, Preis DESC", "tblOffertenpositionenArchiv")
@@ -656,6 +677,17 @@ Public Class usrCntlOfferte
.Columns("Preisänderung").HeaderText = "PreisNeu"
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
If addedFields Then
.Columns("Land").Width = 70
.Columns("VZ").Width = 40
.Columns("VZ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("RMC").Width = 40
.Columns("RMC").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("Fremd").Width = 40
.Columns("Fremd").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
End If
loaded = True
End With
Catch ex As Exception
@@ -951,5 +983,14 @@ Public Class usrCntlOfferte
Me.Cursor = Cursors.Default
End Sub
Private Function addFieldsOffert(ByRef OffertenNr As Integer, ByRef fields As String)
If OffertenNr = 14 Or OffertenNr = 15 Or OffertenNr = 31 Then
fields = ", Land, VZ, RMC, Fremd "
Return True
End If
Return False
End Function
End Class