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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-11-27 22:58:30 +01:00
parent 3b532b0a10
commit 0be9927381
62 changed files with 6974 additions and 349 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -11,6 +11,8 @@ Public Class usrCntlKundenuebersicht
Public ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Public AUFSCHUB As List(Of VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten) = Nothing
Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
Public kdNr As Integer = -1
Private dataAdapterFirma As New SqlDataAdapter
' Private dataFirma As New DataTable
@@ -540,8 +542,11 @@ Public Class usrCntlKundenuebersicht
lblHoechstkredit._value = If(IsNumeric(If(KUNDE.Höchstkredit, "")), KUNDE.Höchstkredit, "")
txtKundenbetreuer.Text = If(KUNDE_ERW.kde_qsTeamMAName, "")
txtKundenbetreuerTeam.Text = If(KUNDE_ERW.kde_qsTeamName, "")
'txtKundenbetreuer.Text = If(KUNDE_ERW.kde_qsTeamMAName, "")
'txtKundenbetreuerTeam.Text = If(KUNDE_ERW.kde_qsTeamName, "")
txtKundenbetreuer.Text = VERAGSQL.DLookup("team_bezeichnung", "tblTeams", "[team_id]='" & KUNDE_ERW.kde_TeamId & "'", "ADMIN")
txtKundenbetreuerTeam.Text = VERAGSQL.DLookup("mit_vname +' '+mit_nname", "tblMitarbeiter", "[mit_id]='" & KUNDE_ERW.kde_TeamMAId & "'", "ADMIN")
'cbxAbf_SvsRvs.CheckedValue = checkNullBool(KUNDE.SVS)
@@ -1878,28 +1883,36 @@ Public Class usrCntlKundenuebersicht
End Sub
Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles btnVeragAnspr.Click
Dim f As New frmKundeTeamZuordnung(KUNDE_ERW.kde_qsTeamId, KUNDE_ERW.kde_qsTeamMAId)
If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
If f.SEL_TEAM IsNot Nothing Then
KUNDE_ERW.kde_qsTeamId = f.SEL_TEAM.qstm_Id
KUNDE_ERW.kde_qsTeamMAId = f.SEL_TEAM.qstm_Id
KUNDE_ERW.kde_qsTeamId = If(f.SEL_MA Is Nothing, Nothing, f.SEL_MA.qtma_MaId)
KUNDE_ERW.kde_qsTeamMAName = If(f.SEL_MA Is Nothing, Nothing, f.SEL_MA.qtma_name)
KUNDE_ERW.kde_qsTeamName = f.SEL_TEAM.qstm_bezeichnung
KUNDE_ERW.SAVE()
' SQL.doSQL("UPDATE tblKundenErweitert SET kde_qsTeamId='" & f.SEL_TEAM.qstm_Id & "', [kde_qsTeamMAId] = " & If(f.SEL_MA Is Nothing, "null", "'" & f.SEL_MA.qtma_MaId & "'") & " , [kde_qsTeamMAName] = " & If(f.SEL_MA Is Nothing, "null", "'" & f.SEL_MA.qtma_name & "'") & " , [kde_qsTeamName] = '" & f.SEL_TEAM.qstm_bezeichnung & "' WHERE kde_KundenNr=" & kdNr, "FMZOLL")
Else
KUNDE_ERW.kde_qsTeamId = Nothing
KUNDE_ERW.kde_qsTeamMAId = Nothing
KUNDE_ERW.kde_qsTeamId = Nothing
KUNDE_ERW.kde_qsTeamMAName = Nothing
KUNDE_ERW.kde_qsTeamName = Nothing
KUNDE_ERW.SAVE()
' SQL.doSQL("UPDATE tblKundenErweitert SET kde_qsTeamId=null, [kde_qsTeamMAId] = null, [kde_qsTeamMAName] =null , [kde_qsTeamName] =null WHERE kde_KundenNr=" & kdNr, "FMZOLL")
End If
Dim f As New frmKundeAnsprechpartnerTeams(KUNDE, KUNDE_ERW)
If f.ShowDialog(Me) = DialogResult.OK Then
setKD(kdNr)
End If
'Dim f As New frmKundeTeamZuordnung(KUNDE_ERW.kde_qsTeamId, KUNDE_ERW.kde_qsTeamMAId)
'If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
' If f.SEL_TEAM IsNot Nothing Then
' KUNDE_ERW.kde_qsTeamId = f.SEL_TEAM.qstm_Id
' KUNDE_ERW.kde_qsTeamMAId = f.SEL_TEAM.qstm_Id
' KUNDE_ERW.kde_qsTeamId = If(f.SEL_MA Is Nothing, Nothing, f.SEL_MA.qtma_MaId)
' KUNDE_ERW.kde_qsTeamMAName = If(f.SEL_MA Is Nothing, Nothing, f.SEL_MA.qtma_name)
' KUNDE_ERW.kde_qsTeamName = f.SEL_TEAM.qstm_bezeichnung
' KUNDE_ERW.SAVE()
' ' SQL.doSQL("UPDATE tblKundenErweitert SET kde_qsTeamId='" & f.SEL_TEAM.qstm_Id & "', [kde_qsTeamMAId] = " & If(f.SEL_MA Is Nothing, "null", "'" & f.SEL_MA.qtma_MaId & "'") & " , [kde_qsTeamMAName] = " & If(f.SEL_MA Is Nothing, "null", "'" & f.SEL_MA.qtma_name & "'") & " , [kde_qsTeamName] = '" & f.SEL_TEAM.qstm_bezeichnung & "' WHERE kde_KundenNr=" & kdNr, "FMZOLL")
' Else
' KUNDE_ERW.kde_qsTeamId = Nothing
' KUNDE_ERW.kde_qsTeamMAId = Nothing
' KUNDE_ERW.kde_qsTeamId = Nothing
' KUNDE_ERW.kde_qsTeamMAName = Nothing
' KUNDE_ERW.kde_qsTeamName = Nothing
' KUNDE_ERW.SAVE()
' ' SQL.doSQL("UPDATE tblKundenErweitert SET kde_qsTeamId=null, [kde_qsTeamMAId] = null, [kde_qsTeamMAName] =null , [kde_qsTeamName] =null WHERE kde_KundenNr=" & kdNr, "FMZOLL")
' End If
' setKD(kdNr)
'End If
End Sub