Vollmachten
This commit is contained in:
@@ -65,109 +65,118 @@ Public Class usrCntlOfferte
|
||||
|
||||
Sub initDGVOfferteDetails(OffertenNr)
|
||||
loaded = False
|
||||
Try
|
||||
|
||||
With dgvOfferteDetails
|
||||
'.Columns.Clear()
|
||||
With dgvOfferteDetails
|
||||
'.Columns.Clear()
|
||||
|
||||
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 " &
|
||||
" FROM [Offertenpositionen] " &
|
||||
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen")
|
||||
For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns
|
||||
If c.ColumnName = "SSMA_TimeStamp" Then
|
||||
OFFERTEBind.bindingdataTable.Columns.Remove(c)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
' KASSENBind.initBinding("SELECT * FROM " & table & "", table)
|
||||
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 " &
|
||||
" FROM [Offertenpositionen] " &
|
||||
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen")
|
||||
For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns
|
||||
If c.ColumnName = "SSMA_TimeStamp" Then
|
||||
OFFERTEBind.bindingdataTable.Columns.Remove(c)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
' KASSENBind.initBinding("SELECT * FROM " & table & "", table)
|
||||
|
||||
.DataSource = OFFERTEBind.bindingdataTable
|
||||
' DataGridView.AutoSize = True
|
||||
' OFFERTEBind.bindingdataTable.PrimaryKey = {OFFERTEBind.bindingdataTable.Columns("KundenNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsBez")}
|
||||
.DataSource = OFFERTEBind.bindingdataTable
|
||||
' DataGridView.AutoSize = True
|
||||
' OFFERTEBind.bindingdataTable.PrimaryKey = {OFFERTEBind.bindingdataTable.Columns("KundenNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsBez")}
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
'.DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung] " &
|
||||
' " FROM [Offertenpositionen] " &
|
||||
' " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
|
||||
'.DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung] " &
|
||||
' " FROM [Offertenpositionen] " &
|
||||
' " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
|
||||
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
|
||||
|
||||
checkPerimissionsDGVDetails()
|
||||
checkPerimissionsDGVDetails()
|
||||
|
||||
.Columns("OffertenNr").Visible = False
|
||||
.Columns("KundenNr").Visible = False
|
||||
.Columns("LeistungsNr").Width = 30
|
||||
.Columns("LeistungsNr").HeaderText = "Nr"
|
||||
.Columns("LeistungsBez").MinimumWidth = 200
|
||||
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("LeistungsBez").HeaderText = "Leistung"
|
||||
.Columns("BerechnungsartNr").MinimumWidth = 150
|
||||
.Columns("Preis").Width = 60
|
||||
.Columns("Preis").DefaultCellStyle.Format = "N2"
|
||||
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Anzahl").Width = 50
|
||||
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("OffertenNr").Visible = False
|
||||
.Columns("KundenNr").Visible = False
|
||||
.Columns("LeistungsNr").Width = 30
|
||||
.Columns("LeistungsNr").HeaderText = "Nr"
|
||||
.Columns("LeistungsBez").MinimumWidth = 200
|
||||
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("LeistungsBez").HeaderText = "Leistung"
|
||||
.Columns("BerechnungsartNr").MinimumWidth = 150
|
||||
.Columns("Preis").Width = 60
|
||||
.Columns("Preis").DefaultCellStyle.Format = "N2"
|
||||
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Anzahl").Width = 50
|
||||
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
|
||||
.Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl."
|
||||
.Columns("BerechnungsartPosInkludiert").Width = 45
|
||||
.Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl."
|
||||
.Columns("BerechnungsartPosInkludiert").Width = 45
|
||||
|
||||
.Columns("BGebLeistungsNr").Width = 60
|
||||
.Columns("BGebProzent").Width = 55
|
||||
.Columns("BGebProzent").HeaderText = "BGeb %"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("BGebMinBetrag").Width = 60
|
||||
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
|
||||
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Eingegeben am").Visible = False
|
||||
' .Columns("Sachbearbeiter").Visible = False
|
||||
' .Columns("Geändert am").Visible = False
|
||||
.Columns("PreisänderungProzent").Width = 70
|
||||
.Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("PreisAlt").Width = 60
|
||||
.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
|
||||
.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Preisänderung").Width = 60
|
||||
.Columns("Preisänderung").HeaderText = "PreisNeu"
|
||||
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
' .Columns("OffertenBez").HeaderText = "Bezeichnung"
|
||||
.Columns("BGebLeistungsNr").Width = 60
|
||||
.Columns("BGebProzent").Width = 55
|
||||
.Columns("BGebProzent").HeaderText = "BGeb %"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("BGebMinBetrag").Width = 60
|
||||
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
|
||||
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Eingegeben am").Visible = False
|
||||
' .Columns("Sachbearbeiter").Visible = False
|
||||
' .Columns("Geändert am").Visible = False
|
||||
.Columns("PreisänderungProzent").Width = 70
|
||||
.Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("PreisAlt").Width = 60
|
||||
.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
|
||||
.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Preisänderung").Width = 60
|
||||
.Columns("Preisänderung").HeaderText = "PreisNeu"
|
||||
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
' .Columns("OffertenBez").HeaderText = "Bezeichnung"
|
||||
|
||||
loaded = True
|
||||
End With
|
||||
loaded = True
|
||||
End With
|
||||
|
||||
DGVHasChaged = False
|
||||
DGVHasChaged = False
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub dgvOfferteDetails_SelectionChanged(sender As Object, e As EventArgs) Handles dgvOfferteNew.SelectionChanged
|
||||
|
||||
cbxArchivierteOffertenAnzeigen.Checked = False
|
||||
cbxArchivierteOfferten.Items.Clear()
|
||||
checkPermissions()
|
||||
If dgvOfferteNew.RowCount > 0 Then
|
||||
|
||||
rtbBesonderheiten.Text = cSqlDb.checkNullStr(dgvOfferteNew.Rows(0).Cells("Besonderheiten").Value)
|
||||
Else
|
||||
btnStandardLaden.Visible = False
|
||||
cbxArchivierteOfferten.Enabled = False
|
||||
rtbBesonderheiten.Text = ""
|
||||
End If
|
||||
Try
|
||||
|
||||
|
||||
If dgvOfferteNew.SelectedRows.Count > 0 Then
|
||||
initDGVOfferteDetails(dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value)
|
||||
End If
|
||||
cbxArchivierteOffertenAnzeigen.Checked = False
|
||||
cbxArchivierteOfferten.Items.Clear()
|
||||
checkPermissions()
|
||||
If dgvOfferteNew.RowCount > 0 Then
|
||||
|
||||
rtbBesonderheiten.Text = cSqlDb.checkNullStr(dgvOfferteNew.Rows(0).Cells("Besonderheiten").Value)
|
||||
Else
|
||||
btnStandardLaden.Visible = False
|
||||
cbxArchivierteOfferten.Enabled = False
|
||||
rtbBesonderheiten.Text = ""
|
||||
End If
|
||||
|
||||
|
||||
If dgvOfferteNew.SelectedRows.Count > 0 Then
|
||||
initDGVOfferteDetails(dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -206,30 +215,35 @@ Public Class usrCntlOfferte
|
||||
|
||||
Private Sub btnAddLeistung_Click(sender As Object, e As EventArgs) Handles btnAddLeistung.Click
|
||||
|
||||
Try
|
||||
|
||||
Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offertenpositionen where KundenNr=" & kdNr & " and [Offertenpositionen].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," &
|
||||
Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offertenpositionen where KundenNr=" & kdNr & " and [Offertenpositionen].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," &
|
||||
" [Offertenstamm].[OffertenNr],[OffertenBez] FROM Offertenstamm "
|
||||
|
||||
For Each r As DataRow In SQL.loadDgvBySql(SQLsrt, "FMZOLL").Rows
|
||||
If Not CBool(r("vorhanden")) Then
|
||||
Dim i As New ToolStripMenuItem
|
||||
i.Text = r("OffertenNr") & " - " & r("OffertenBez")
|
||||
i.Name = "tsmiOffertNr_" & r("OffertenNr")
|
||||
i.Tag = r("OffertenNr")
|
||||
cntxtAddSdl.Items.Add(i)
|
||||
' If s.Sperre <> 0 Then i.Enabled = False : i.Text = i.Text & " (gesperrt)"
|
||||
AddHandler i.Click, AddressOf AddOffert_Click
|
||||
End If
|
||||
Next
|
||||
For Each r As DataRow In SQL.loadDgvBySql(SQLsrt, "FMZOLL").Rows
|
||||
If Not CBool(r("vorhanden")) Then
|
||||
Dim i As New ToolStripMenuItem
|
||||
i.Text = r("OffertenNr") & " - " & r("OffertenBez")
|
||||
i.Name = "tsmiOffertNr_" & r("OffertenNr")
|
||||
i.Tag = r("OffertenNr")
|
||||
cntxtAddSdl.Items.Add(i)
|
||||
' If s.Sperre <> 0 Then i.Enabled = False : i.Text = i.Text & " (gesperrt)"
|
||||
AddHandler i.Click, AddressOf AddOffert_Click
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
|
||||
btnAddLeistung.ContextMenuStrip = cntxtAddSdl
|
||||
' cntxtAddSdl
|
||||
Dim ptLowerLeft As New Point(sender.width, sender.Height)
|
||||
ptLowerLeft = sender.PointToScreen(ptLowerLeft)
|
||||
ptLowerLeft.X -= sender.width
|
||||
cntxtAddSdl.Show(ptLowerLeft)
|
||||
btnAddLeistung.ContextMenuStrip = cntxtAddSdl
|
||||
' cntxtAddSdl
|
||||
Dim ptLowerLeft As New Point(sender.width, sender.Height)
|
||||
ptLowerLeft = sender.PointToScreen(ptLowerLeft)
|
||||
ptLowerLeft.X -= sender.width
|
||||
cntxtAddSdl.Show(ptLowerLeft)
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub AddOffert_Click(sender As Object, e As EventArgs) Handles DToolStripMenuItem.Click
|
||||
@@ -244,47 +258,54 @@ Public Class usrCntlOfferte
|
||||
|
||||
|
||||
Private Sub btnHinzufuegen_Click_1(sender As Object, e As EventArgs) Handles btnHinzufuegen.Click
|
||||
If edit = False Then
|
||||
MsgBox("Bitte vorher in den Editiermodus wechseln")
|
||||
Exit Sub
|
||||
End If
|
||||
lblLeistunAddErr.Visible = False
|
||||
lblLeistunAddErr2.Visible = False
|
||||
Label3.Visible = False
|
||||
|
||||
If dgvOfferteNew.SelectedRows.Count <> 1 Then
|
||||
Label3.Visible = True
|
||||
End If
|
||||
'Fehlerprüfung:
|
||||
'-------
|
||||
If cboLeistungenAdd._value = "" Then lblLeistunAddErr.Visible = True : Exit Sub
|
||||
If LeistungsBezexists(cboLeistungenAdd._value, MyTextBox1.Text, dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value) Then lblLeistunAddErr2.Visible = True : Exit Sub
|
||||
'-------
|
||||
Try
|
||||
|
||||
Dim l As New VERAG_PROG_ALLGEMEIN.cLeistungen(cboLeistungenAdd._value)
|
||||
Dim o As New VERAG_PROG_ALLGEMEIN.cOffertPosition
|
||||
o.KundenNr = kdNr
|
||||
o.LeistungsNr = l.LeistungsNr
|
||||
o.LeistungsBez = MyTextBox1.Text
|
||||
o.OffertenNr = dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value
|
||||
'o.Preis=l.preis
|
||||
o.BerechnungsartNr = l.BerechnungsartNr
|
||||
'o.Anzahl = l.m
|
||||
'o.BGebLeistungsNr = l.BGebUStV
|
||||
'o.BGebProzent = l.XXXXXXXXXX
|
||||
'o.BGebMinBetrag = l.XXXXXXXXXX
|
||||
o.Eingegeben_am = Now
|
||||
'o.Geändert_am = l.XXXXXXXXXX
|
||||
o.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
'o.Preisänderung = l.Preissperre
|
||||
'o.PreisänderungProzent = l.XXXXXXXXXX
|
||||
'o.PreisAlt = l.XXXXXXXXXX
|
||||
If o.INSERT() Then
|
||||
cboLeistungenAdd.changeItem("")
|
||||
initDGVOfferteDetails(o.OffertenNr)
|
||||
addLeistung = True
|
||||
End If
|
||||
|
||||
If edit = False Then
|
||||
MsgBox("Bitte vorher in den Editiermodus wechseln")
|
||||
Exit Sub
|
||||
End If
|
||||
lblLeistunAddErr.Visible = False
|
||||
lblLeistunAddErr2.Visible = False
|
||||
Label3.Visible = False
|
||||
|
||||
If dgvOfferteNew.SelectedRows.Count <> 1 Then
|
||||
Label3.Visible = True
|
||||
End If
|
||||
'Fehlerprüfung:
|
||||
'-------
|
||||
If cboLeistungenAdd._value = "" Then lblLeistunAddErr.Visible = True : Exit Sub
|
||||
If LeistungsBezexists(cboLeistungenAdd._value, MyTextBox1.Text, dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value) Then lblLeistunAddErr2.Visible = True : Exit Sub
|
||||
'-------
|
||||
|
||||
Dim l As New VERAG_PROG_ALLGEMEIN.cLeistungen(cboLeistungenAdd._value)
|
||||
Dim o As New VERAG_PROG_ALLGEMEIN.cOffertPosition
|
||||
o.KundenNr = kdNr
|
||||
o.LeistungsNr = l.LeistungsNr
|
||||
o.LeistungsBez = MyTextBox1.Text
|
||||
o.OffertenNr = dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value
|
||||
'o.Preis=l.preis
|
||||
o.BerechnungsartNr = l.BerechnungsartNr
|
||||
'o.Anzahl = l.m
|
||||
'o.BGebLeistungsNr = l.BGebUStV
|
||||
'o.BGebProzent = l.XXXXXXXXXX
|
||||
'o.BGebMinBetrag = l.XXXXXXXXXX
|
||||
o.Eingegeben_am = Now
|
||||
'o.Geändert_am = l.XXXXXXXXXX
|
||||
o.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
'o.Preisänderung = l.Preissperre
|
||||
'o.PreisänderungProzent = l.XXXXXXXXXX
|
||||
'o.PreisAlt = l.XXXXXXXXXX
|
||||
If o.INSERT() Then
|
||||
cboLeistungenAdd.changeItem("")
|
||||
initDGVOfferteDetails(o.OffertenNr)
|
||||
addLeistung = True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Function LeistungsBezexists(LeistungsNr, LeistungsBez, OffertenNr)
|
||||
@@ -307,28 +328,36 @@ Public Class usrCntlOfferte
|
||||
End Sub
|
||||
|
||||
Private Sub dgvOfferteDetails_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvOfferteDetails.CellValueChanged
|
||||
If loaded = True Then
|
||||
dgvOfferteDetails.Rows(e.RowIndex).Cells("Sachbearbeiter").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now
|
||||
DGVHasChaged = True
|
||||
'saveCurrentOffert()
|
||||
If isNew = True Then
|
||||
Try
|
||||
|
||||
currentOffert.Art = "Neuanlage"
|
||||
currentOffert.SAVE()
|
||||
|
||||
Else
|
||||
If loaded = True Then
|
||||
dgvOfferteDetails.Rows(e.RowIndex).Cells("Sachbearbeiter").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now
|
||||
DGVHasChaged = True
|
||||
'saveCurrentOffert()
|
||||
If isNew = True Then
|
||||
|
||||
currentOffert.Art = "Neuanlage"
|
||||
currentOffert.SAVE()
|
||||
|
||||
Else
|
||||
|
||||
currentOffert.Art = "Geändert"
|
||||
currentOffert.SAVE()
|
||||
End If
|
||||
|
||||
currentOffert.Art = "Geändert"
|
||||
currentOffert.SAVE()
|
||||
End If
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnDeleteOfferte_Click(sender As Object, e As EventArgs) Handles btnDeleteOfferte.Click
|
||||
If dgvOfferteNew.SelectedRows.Count = 1 Then
|
||||
Try
|
||||
|
||||
If dgvOfferteNew.SelectedRows.Count = 1 Then
|
||||
If vbYes = MsgBox("Möchten Sie das Offert '" & dgvOfferteNew.SelectedRows(0).Cells("OffertenBez").Value & "' wirklich löschen", vbYesNoCancel) Then
|
||||
saveCurrentOffert()
|
||||
currentOffert.Art = "Offert gelöscht"
|
||||
@@ -340,20 +369,30 @@ Public Class usrCntlOfferte
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btnOfferteSpeichern_Click(sender As Object, e As EventArgs) Handles btnOfferteSpeichern.Click
|
||||
KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
|
||||
KD_ERW.SAVE()
|
||||
Try
|
||||
|
||||
checkPerimissionsDGVDetails()
|
||||
edit = False
|
||||
handleEditMode(edit)
|
||||
saveToArchive()
|
||||
KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
|
||||
KD_ERW.SAVE()
|
||||
|
||||
OFFERTEBind.updateBinding()
|
||||
RaiseEvent OfferteChanged()
|
||||
DGVHasChaged = False
|
||||
checkPerimissionsDGVDetails()
|
||||
edit = False
|
||||
handleEditMode(edit)
|
||||
saveToArchive()
|
||||
|
||||
OFFERTEBind.updateBinding()
|
||||
RaiseEvent OfferteChanged()
|
||||
DGVHasChaged = False
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -368,81 +407,93 @@ Public Class usrCntlOfferte
|
||||
|
||||
Private Sub OfferteArchivieren(Optional Art As String = "")
|
||||
|
||||
currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv()
|
||||
currentOffertArchiv.KundenNr = currentOffert.KundenNr
|
||||
currentOffertArchiv.FilialenNr = currentOffert.FilialenNr
|
||||
currentOffertArchiv.OffertenNr = currentOffert.OffertenNr
|
||||
currentOffertArchiv.Standardofferte = currentOffert.Standardofferte
|
||||
currentOffertArchiv.Besonderheiten = currentOffert.Besonderheiten
|
||||
currentOffertArchiv.Eingegeben_am = currentOffert.Eingegeben_am
|
||||
currentOffertArchiv.Geändert_am = currentOffert.Geändert_am
|
||||
currentOffertArchiv.Sachbearbeiter = currentOffert.Sachbearbeiter
|
||||
currentOffertArchiv.SSMA_TimeStamp = currentOffert.SSMA_TimeStamp
|
||||
currentOffertArchiv.Gesperrt = currentOffert.Gesperrt
|
||||
currentOffertArchiv.Gesperrt_Datum = currentOffert.Gesperrt_Datum
|
||||
currentOffertArchiv.Gesperrt_Grund = currentOffert.Gesperrt_Grund
|
||||
currentOffertArchiv.Art = currentOffert.Art
|
||||
ofID = currentOffertArchiv.SAVERETURNID()
|
||||
Try
|
||||
|
||||
If ofID > 0 Then
|
||||
For Each row As DataRow In tmpDataTable.Rows
|
||||
If tmpDataTable.Rows.Count = 0 Then Exit Sub
|
||||
Dim oP As New VERAG_PROG_ALLGEMEIN.cOffertPositionArchiv
|
||||
oP.OfID = ofID
|
||||
oP.KundenNr = currentOffertArchiv.KundenNr
|
||||
oP.LeistungsNr = row("LeistungsNr")
|
||||
oP.LeistungsBez = row("LeistungsBez")
|
||||
oP.OffertenNr = currentOffertArchiv.OffertenNr
|
||||
oP.BerechnungsartNr = row("BerechnungsartNr")
|
||||
oP.Preis = row("Preis")
|
||||
oP.Anzahl = row("Anzahl")
|
||||
oP.BGebLeistungsNr = row("BGebLeistungsNr")
|
||||
oP.BGebProzent = row("BGebProzent")
|
||||
oP.BGebMinBetrag = row("BGebMinBetrag")
|
||||
oP.Eingegeben_am = row("Eingegeben am")
|
||||
oP.Geändert_am = row("Geändert am")
|
||||
oP.Sachbearbeiter = row("Sachbearbeiter")
|
||||
oP.Preisänderung = row("Preisänderung")
|
||||
oP.PreisänderungProzent = row("PreisänderungProzent")
|
||||
oP.PreisAlt = row("PreisAlt")
|
||||
oP.BerechnungsartPosInkludiert = row("BerechnungsartPosInkludiert")
|
||||
oP.INSERT()
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv()
|
||||
currentOffertArchiv.KundenNr = currentOffert.KundenNr
|
||||
currentOffertArchiv.FilialenNr = currentOffert.FilialenNr
|
||||
currentOffertArchiv.OffertenNr = currentOffert.OffertenNr
|
||||
currentOffertArchiv.Standardofferte = currentOffert.Standardofferte
|
||||
currentOffertArchiv.Besonderheiten = currentOffert.Besonderheiten
|
||||
currentOffertArchiv.Eingegeben_am = currentOffert.Eingegeben_am
|
||||
currentOffertArchiv.Geändert_am = currentOffert.Geändert_am
|
||||
currentOffertArchiv.Sachbearbeiter = currentOffert.Sachbearbeiter
|
||||
currentOffertArchiv.SSMA_TimeStamp = currentOffert.SSMA_TimeStamp
|
||||
currentOffertArchiv.Gesperrt = currentOffert.Gesperrt
|
||||
currentOffertArchiv.Gesperrt_Datum = currentOffert.Gesperrt_Datum
|
||||
currentOffertArchiv.Gesperrt_Grund = currentOffert.Gesperrt_Grund
|
||||
currentOffertArchiv.Art = currentOffert.Art
|
||||
ofID = currentOffertArchiv.SAVERETURNID()
|
||||
|
||||
If ofID > 0 Then
|
||||
For Each row As DataRow In tmpDataTable.Rows
|
||||
If tmpDataTable.Rows.Count = 0 Then Exit Sub
|
||||
Dim oP As New VERAG_PROG_ALLGEMEIN.cOffertPositionArchiv
|
||||
oP.OfID = ofID
|
||||
oP.KundenNr = currentOffertArchiv.KundenNr
|
||||
oP.LeistungsNr = row("LeistungsNr")
|
||||
oP.LeistungsBez = row("LeistungsBez")
|
||||
oP.OffertenNr = currentOffertArchiv.OffertenNr
|
||||
oP.BerechnungsartNr = row("BerechnungsartNr")
|
||||
oP.Preis = row("Preis")
|
||||
oP.Anzahl = row("Anzahl")
|
||||
oP.BGebLeistungsNr = row("BGebLeistungsNr")
|
||||
oP.BGebProzent = row("BGebProzent")
|
||||
oP.BGebMinBetrag = row("BGebMinBetrag")
|
||||
oP.Eingegeben_am = row("Eingegeben am")
|
||||
oP.Geändert_am = row("Geändert am")
|
||||
oP.Sachbearbeiter = row("Sachbearbeiter")
|
||||
oP.Preisänderung = row("Preisänderung")
|
||||
oP.PreisänderungProzent = row("PreisänderungProzent")
|
||||
oP.PreisAlt = row("PreisAlt")
|
||||
oP.BerechnungsartPosInkludiert = row("BerechnungsartPosInkludiert")
|
||||
oP.INSERT()
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btnStandardLaden_Click(sender As Object, e As EventArgs) Handles btnStandardLaden.Click
|
||||
|
||||
Try
|
||||
|
||||
|
||||
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
|
||||
Dim FIRMA_TMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
|
||||
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
|
||||
Dim FIRMA_TMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
|
||||
|
||||
If Not vbYes = MsgBox("Möchten Sie die Standardofferte für den Kunden " & KUNDE.KundenNr & " laden?" & vbNewLine & "Aktuelle Offerteneinstellungen werden gelöscht.", vbYesNo) Then Exit Sub
|
||||
If Not vbYes = MsgBox("Möchten Sie die Standardofferte für den Kunden " & KUNDE.KundenNr & " laden?" & vbNewLine & "Aktuelle Offerteneinstellungen werden gelöscht.", vbYesNo) Then Exit Sub
|
||||
|
||||
edit = True
|
||||
handleEditMode(edit)
|
||||
saveCurrentOffert()
|
||||
edit = True
|
||||
handleEditMode(edit)
|
||||
saveCurrentOffert()
|
||||
|
||||
If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then
|
||||
isStandard = True
|
||||
isNew = True
|
||||
currentOffert.Art = "Neuer Standard erstellt"
|
||||
currentOffert.SAVE()
|
||||
currentOffert.LOAD_POSITIONEN()
|
||||
If currentOffert.POSITIONEN.Count = 0 Then '
|
||||
currentOffert.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP)
|
||||
If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then
|
||||
isStandard = True
|
||||
isNew = True
|
||||
currentOffert.Art = "Neuer Standard erstellt"
|
||||
currentOffert.SAVE()
|
||||
currentOffert.LOAD_POSITIONEN()
|
||||
If currentOffert.POSITIONEN.Count = 0 Then '
|
||||
currentOffert.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP)
|
||||
End If
|
||||
|
||||
dgvOfferteNew.GetOrder()
|
||||
initDGVOfferte()
|
||||
dgvOfferteNew.SetOrder()
|
||||
RaiseEvent OfferteChanged()
|
||||
isStandard = True
|
||||
isNew = True
|
||||
End If
|
||||
|
||||
dgvOfferteNew.GetOrder()
|
||||
initDGVOfferte()
|
||||
dgvOfferteNew.SetOrder()
|
||||
RaiseEvent OfferteChanged()
|
||||
isStandard = True
|
||||
isNew = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -489,110 +540,122 @@ Public Class usrCntlOfferte
|
||||
|
||||
Private Sub checkPerimissionsDGVDetails()
|
||||
|
||||
With dgvOfferteDetails
|
||||
Try
|
||||
With dgvOfferteDetails
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_BEARBEITEN", "SDL") Then
|
||||
For Each c As DataGridViewColumn In .Columns
|
||||
c.ReadOnly = True
|
||||
handleEditMode(False)
|
||||
Next
|
||||
dgvOfferteDetails.AllowUserToDeleteRows = False
|
||||
Else
|
||||
For Each c As DataGridViewColumn In .Columns
|
||||
If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert") Then
|
||||
If edit Then
|
||||
c.ReadOnly = False
|
||||
handleEditMode(edit)
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_BEARBEITEN", "SDL") Then
|
||||
For Each c As DataGridViewColumn In .Columns
|
||||
c.ReadOnly = True
|
||||
handleEditMode(False)
|
||||
Next
|
||||
dgvOfferteDetails.AllowUserToDeleteRows = False
|
||||
Else
|
||||
For Each c As DataGridViewColumn In .Columns
|
||||
If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert") Then
|
||||
If edit Then
|
||||
c.ReadOnly = False
|
||||
handleEditMode(edit)
|
||||
Else
|
||||
c.ReadOnly = True
|
||||
handleEditMode(edit)
|
||||
End If
|
||||
Else
|
||||
c.ReadOnly = True
|
||||
handleEditMode(edit)
|
||||
|
||||
End If
|
||||
Else
|
||||
c.ReadOnly = True
|
||||
Next
|
||||
dgvOfferteDetails.AllowUserToDeleteRows = edit
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
dgvOfferteDetails.AllowUserToDeleteRows = edit
|
||||
End If
|
||||
End With
|
||||
|
||||
End With
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub initDGVOfferteDetailsArchived(OffertenId)
|
||||
Try
|
||||
|
||||
loaded = False
|
||||
DGVHasChaged = False
|
||||
|
||||
With dgvOfferteDetails
|
||||
.Columns.Clear()
|
||||
|
||||
Try
|
||||
loaded = False
|
||||
DGVHasChaged = False
|
||||
|
||||
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 " &
|
||||
" FROM [tblOffertenpositionenArchiv] " &
|
||||
" WHERE OfId='" & OffertenId & "' ORDER BY LeistungsNr, Preis DESC", "tblOffertenpositionenArchiv")
|
||||
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 " &
|
||||
" FROM [tblOffertenpositionenArchiv] " &
|
||||
" WHERE OfId='" & OffertenId & "' ORDER BY LeistungsNr, Preis DESC", "tblOffertenpositionenArchiv")
|
||||
|
||||
.DataSource = OFFERTEBind.bindingdataTable
|
||||
.DataSource = OFFERTEBind.bindingdataTable
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
|
||||
|
||||
|
||||
checkPerimissionsDGVDetails()
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150)
|
||||
FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250)
|
||||
|
||||
.Columns("OffertenNr").Visible = False
|
||||
.Columns("KundenNr").Visible = False
|
||||
.Columns("LeistungsNr").Width = 30
|
||||
.Columns("LeistungsNr").HeaderText = "Nr"
|
||||
.Columns("LeistungsBez").MinimumWidth = 200
|
||||
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("LeistungsBez").HeaderText = "Leistung"
|
||||
.Columns("BerechnungsartNr").MinimumWidth = 150
|
||||
.Columns("Preis").Width = 60
|
||||
.Columns("Preis").DefaultCellStyle.Format = "N2"
|
||||
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Anzahl").Width = 50
|
||||
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl."
|
||||
.Columns("BerechnungsartPosInkludiert").Width = 45
|
||||
.Columns("BGebLeistungsNr").Width = 60
|
||||
.Columns("BGebProzent").Width = 55
|
||||
.Columns("BGebProzent").HeaderText = "BGeb %"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("BGebMinBetrag").Width = 60
|
||||
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
|
||||
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Eingegeben am").Visible = False
|
||||
.Columns("PreisänderungProzent").Width = 70
|
||||
.Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("PreisAlt").Width = 60
|
||||
.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
|
||||
.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Preisänderung").Width = 60
|
||||
.Columns("Preisänderung").HeaderText = "PreisNeu"
|
||||
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
|
||||
loaded = True
|
||||
End With
|
||||
checkPerimissionsDGVDetails()
|
||||
|
||||
.Columns("OffertenNr").Visible = False
|
||||
.Columns("KundenNr").Visible = False
|
||||
.Columns("LeistungsNr").Width = 30
|
||||
.Columns("LeistungsNr").HeaderText = "Nr"
|
||||
.Columns("LeistungsBez").MinimumWidth = 200
|
||||
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("LeistungsBez").HeaderText = "Leistung"
|
||||
.Columns("BerechnungsartNr").MinimumWidth = 150
|
||||
.Columns("Preis").Width = 60
|
||||
.Columns("Preis").DefaultCellStyle.Format = "N2"
|
||||
.Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Anzahl").Width = 50
|
||||
.Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl."
|
||||
.Columns("BerechnungsartPosInkludiert").Width = 45
|
||||
.Columns("BGebLeistungsNr").Width = 60
|
||||
.Columns("BGebProzent").Width = 55
|
||||
.Columns("BGebProzent").HeaderText = "BGeb %"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("BGebMinBetrag").Width = 60
|
||||
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
|
||||
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Eingegeben am").Visible = False
|
||||
.Columns("PreisänderungProzent").Width = 70
|
||||
.Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
|
||||
.Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("PreisAlt").Width = 60
|
||||
.Columns("PreisAlt").DefaultCellStyle.Format = "N2"
|
||||
.Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
.Columns("Preisänderung").Width = 60
|
||||
.Columns("Preisänderung").HeaderText = "PreisNeu"
|
||||
.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
|
||||
|
||||
loaded = True
|
||||
End With
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub saveCurrentOffert()
|
||||
Try
|
||||
|
||||
dgvOfferteNew.Enabled = False
|
||||
|
||||
dgvOfferteNew.Enabled = False
|
||||
currentOffert = New VERAG_PROG_ALLGEMEIN.cOfferte(kdNr, dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value, False)
|
||||
Dim orgDataTable As DataTable = dgvOfferteDetails.DataSource
|
||||
tmpDataTable = orgDataTable.Copy
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub checkPermissions()
|
||||
@@ -653,35 +716,41 @@ Public Class usrCntlOfferte
|
||||
|
||||
|
||||
Private Sub saveToArchive()
|
||||
Try
|
||||
|
||||
If isNew = False AndAlso isStandard = False Or isNew AndAlso isStandard = False Then 'Neuanlage oder Anlage über "Standardoffert laden" speichern,
|
||||
If DGVHasChaged = False Then Exit Sub
|
||||
End If
|
||||
|
||||
If isStandard Then
|
||||
If isNew Then
|
||||
OfferteArchivieren()
|
||||
isNew = False
|
||||
|
||||
If isNew = False AndAlso isStandard = False Or isNew AndAlso isStandard = False Then 'Neuanlage oder Anlage über "Standardoffert laden" speichern,
|
||||
If DGVHasChaged = False Then Exit Sub
|
||||
End If
|
||||
isStandard = False
|
||||
Else
|
||||
|
||||
If DGVHasChaged Then
|
||||
If isNew = False Then
|
||||
If isStandard Then
|
||||
If isNew Then
|
||||
OfferteArchivieren()
|
||||
Exit Sub
|
||||
|
||||
Else
|
||||
If isNew Then
|
||||
OfferteArchivieren()
|
||||
isNew = False
|
||||
End If
|
||||
isNew = False
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
isStandard = False
|
||||
Else
|
||||
|
||||
If DGVHasChaged Then
|
||||
If isNew = False Then
|
||||
OfferteArchivieren()
|
||||
Exit Sub
|
||||
|
||||
Else
|
||||
If isNew Then
|
||||
OfferteArchivieren()
|
||||
isNew = False
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user