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

Maut, QU-Kontrolle, MAhnlauf, Kundebearbeiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-09-06 15:40:58 +02:00
parent ad7fa10999
commit a9228921e0
32 changed files with 6225 additions and 1100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
SDL/kunden/usrCntlOfferte.vb
View File

@@ -1,5 +1,7 @@

Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlOfferte
Dim FUNC As New cProgramFunctions
@@ -22,6 +24,7 @@ Public Class usrCntlOfferte
Dim isNew = False
Dim addLeistung = False
Dim ofID As Integer
Dim isVerag360 As Boolean = False
Sub New()
InitializeComponent()
@@ -33,13 +36,14 @@ Public Class usrCntlOfferte
End Sub
Public Sub init(kdNr)
Public Sub init(kdNr As Integer, Optional isVerag360 As Boolean = False)
Me.kdNr = kdNr
initDGVOfferte()
edit = False
handleEditMode(edit)
KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
cbxAutoFakturierung.Checked = KD_ERW.AutoFakturierung
isVerag360 = isVerag360
End Sub
Sub initDGVOfferte()
@@ -358,20 +362,20 @@ Public Class usrCntlOfferte
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"
currentOffert.SAVE()
OfferteArchivieren()
If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then
initDGVOfferte()
RaiseEvent OfferteChanged()
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"
currentOffert.SAVE()
OfferteArchivieren()
If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then
initDGVOfferte()
RaiseEvent OfferteChanged()
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)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -409,8 +413,6 @@ Public Class usrCntlOfferte
Try
currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv()
currentOffertArchiv.KundenNr = currentOffert.KundenNr
currentOffertArchiv.FilialenNr = currentOffert.FilialenNr
@@ -550,22 +552,40 @@ Public Class usrCntlOfferte
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 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 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
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
End If
End If
Next
dgvOfferteDetails.AllowUserToDeleteRows = edit
End If
End If
End With