neu

SDL/kunden/usrCntlOfferte.vb

@@ -1,9 +1,9 @@
-Public Class c
+Public Class usrCntlOfferte
 
     Dim FUNC As New cProgramFunctions
     Public kdNr As Integer = -1
     Dim SQL As New SQL
-
+    Public KD_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert
     Public Event OfferteChanged()
 
 
@@ -26,6 +26,9 @@
     Public Sub init(kdNr)
         Me.kdNr = kdNr
         initDGVOfferte()
+
+        KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
+        cbxAutoFakturierung.Checked = KD_ERW.AutoFakturierung
     End Sub
     Sub initDGVOfferte()
         dgvOfferteDetails.Columns.Clear()
@@ -49,7 +52,7 @@
 
             Try
                 OFFERTEBind = New cEasyBinding(BIND_DB)
-                OFFERTEBind.initBinding(" SELECT   [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[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 " &
                                               " FROM [Offertenpositionen] " &
                                              " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen")
                 For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns
@@ -82,7 +85,7 @@
                 Next
             Else
                 For Each c As DataGridViewColumn In .Columns
-                    If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr") Then
+                    If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert") Then
                         c.ReadOnly = False
                     Else
                         c.ReadOnly = True
@@ -103,6 +106,10 @@
             .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 %"
@@ -230,6 +237,9 @@
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOfferteSpeichern.Click
+        KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
+        KD_ERW.SAVE()
+
         OFFERTEBind.updateBinding()
         RaiseEvent OfferteChanged()
     End Sub