div. Punkte

SDL/kunden/usrCntlOfferte.vb

@@ -198,6 +198,7 @@ Public Class usrCntlOfferte
                 rtbBesonderheiten.Text = ""
             End If
 
+            btnSaveBes.Visible = False
 
             If dgvOfferteNew.SelectedRows.Count > 0 Then
                 initDGVOfferteDetails(dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value)
@@ -1012,4 +1013,31 @@ Public Class usrCntlOfferte
 
     End Function
 
+    Private Sub rtbBesonderheiten_TextChanged(sender As Object, e As EventArgs) Handles rtbBesonderheiten.TextChanged
+        btnSaveBes.Visible = true
+    End Sub
+
+    Private Sub btnSaveBes_Click(sender As Object, e As EventArgs) Handles btnSaveBes.Click
+
+        Dim OfferenNr = -1
+        If dgvOfferteNew.RowCount > 0 Then
+            If dgvOfferteNew.SelectedRows.Count > 0 Then
+
+                OfferenNr = cSqlDb.checkNullStr(dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value)
+
+            Else
+                OfferenNr = cSqlDb.checkNullStr(dgvOfferteNew.Rows(0).Cells("OffertenNr").Value)
+            End If
+
+            If OfferenNr > 0 AndAlso kdNr > 0 Then
+                If SQL.doSQL("update [Offerten] set [Besonderheiten] = '" & rtbBesonderheiten.Text & "' where KundenNr = " & kdNr & " and OffertenNr =  " & OfferenNr, "FMZOLL") Then
+                    initDGVOfferte()
+                End If
+            End If
+
+        End If
+
+
+
+    End Sub
 End Class