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

Offerten ueberarbeitet, Bonität verbessert

Browse Source
This commit is contained in:
d.breimaier
2022-11-23 17:17:01 +01:00
parent 110bec1511
commit 200682a054
2 changed files with 37 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
SDL/kunden/frmBonitaet.vb
View File

@@ -1,4 +1,6 @@
Imports com.sun.xml.internal.ws.client
Imports System.Web.UI.WebControls.Expressions
Imports com.sun.tools.internal.ws.wsdl.document.mime
Imports com.sun.xml.internal.ws.client
Public Class frmBonitaet
@@ -62,10 +64,26 @@ Public Class frmBonitaet
End Sub
Private Sub frmBonitaet_Load(sender As Object, e As EventArgs) Handles Me.Load
cboTool.Items.Clear()
cboTool.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CreditSafe", "creditsafe"))
cboTool.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Creditreform", "creditreform"))
cboTool.changeItem("CreditSafe")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : cboTool.changeItem("CreditSafe")
Case Else : If Now.ToShortDateString >= DateTime.Parse("01/12/2022") Then
cboTool.changeItem("CreditSafe")
Else
cboTool.changeItem("Creditreform")
End If
End Select
txtCRDatum._value = Now
cboRisikostufe.Items.Clear()

79
SDL/kunden/usrCntlOfferte.vb
View File

@@ -52,14 +52,12 @@ Public Class usrCntlOfferte
With dgvOfferteNew
.DataSource = SQL.loadDgvBySql("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten, Offerten.Art as Art FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' " & where & " ORDER BY Offerten.OffertenNr ", "FMZOLL")
.DataSource = SQL.loadDgvBySql("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' " & where & " ORDER BY Offerten.OffertenNr ", "FMZOLL")
.Columns("OffertenNr").Visible = False
.Columns("Besonderheiten").Visible = False
' .Columns("OffertenNr").HeaderText = "Nr"
.Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("OffertenBez").HeaderText = "Bezeichnung"
.Columns("Art").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("Art").HeaderText = "Art"
End With
End Sub
@@ -152,7 +150,6 @@ Public Class usrCntlOfferte
Private Sub dgvOfferteDetails_SelectionChanged(sender As Object, e As EventArgs) Handles dgvOfferteNew.SelectionChanged
cbxArchivierteOffertenAnzeigen.Checked = False
@@ -315,11 +312,20 @@ Public Class usrCntlOfferte
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
End If
saveCurrentOffert()
currentOffert.Art = "Geändert"
currentOffert.SAVE()
'DGVHasChaged = True
End Sub
@@ -327,9 +333,10 @@ Public Class usrCntlOfferte
Private Sub btnDeleteOfferte_Click(sender As Object, e As EventArgs) Handles btnDeleteOfferte.Click
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
currentOffert.Art = "gelöscht"
saveCurrentOffert()
currentOffert.Art = "Gelöscht"
currentOffert.SAVE()
saveArchivierteOfferteNew()
OfferteArchivieren()
If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then
initDGVOfferte()
RaiseEvent OfferteChanged()
@@ -345,7 +352,7 @@ Public Class usrCntlOfferte
checkPerimissionsDGVDetails()
edit = False
handleEditMode(edit)
'saveToArchive()
saveToArchive()
OFFERTEBind.updateBinding()
RaiseEvent OfferteChanged()
@@ -357,9 +364,6 @@ Public Class usrCntlOfferte
edit = True
handleEditMode(edit)
'currentOffert.Art = "Geändert"
'currentOffert.SAVE()
'saveCurrentOffert()
checkPerimissionsDGVDetails()
End Sub
@@ -641,51 +645,6 @@ Public Class usrCntlOfferte
End If
End Sub
Private Sub saveArchivierteOfferte(Optional forceSave As Boolean = 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
If isStandard Then
If DGVHasChaged = False AndAlso isNew Then
OfferteArchivieren()
isNew = False
Exit Sub
ElseIf DGVHasChaged = True AndAlso isNew Then
OfferteArchivieren()
isNew = False
Exit Sub
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
End Sub
Private Sub saveArchivierteOfferteNew(Optional forceSave As Boolean = False)
OfferteArchivieren()
End Sub
Private Sub saveToArchive()
@@ -704,15 +663,11 @@ Public Class usrCntlOfferte
If DGVHasChaged Then
If isNew = False Then
isNew = False
OfferteArchivieren()
Exit Sub
Else
If isNew Then
'currentOffert.Art = "Neuanlage"
'currentOffert.SAVE()
'isNew = False
OfferteArchivieren()
isNew = False
End If