Auswertung, Kundenuebersicht Credtisafe-API
This commit is contained in:
Binary file not shown.
@@ -2833,7 +2833,7 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
,Absender
|
||||
,Rechnungsbetrag Betrag
|
||||
,BelegNr
|
||||
,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land
|
||||
,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land, Speditionsbuch.[LKW Kennzeichen]
|
||||
FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
|
||||
where EmpfängerKundenNr IN (" & kdnrsrch & ") and VermittlerKundenNr IN (" & kdnrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL")
|
||||
|
||||
@@ -3012,40 +3012,93 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
Datei = .Workbooks.Open(Path) 'Anpassen
|
||||
Blatt = Datei.Worksheets(1) 'Anpassen
|
||||
|
||||
Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
|
||||
|
||||
Dim cnt = 3
|
||||
For Each r In dt.Rows
|
||||
Blatt.Range("A" & cnt).Value = cnt - 2
|
||||
Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer")
|
||||
' Blatt.Range("C" & cnt).Value = r("RechnungsNr")
|
||||
Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum")
|
||||
Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung")
|
||||
Blatt.Range("E" & cnt).Value = r("Absender")
|
||||
Blatt.Range("F" & cnt).Value = "" 'r("Betrag")
|
||||
Blatt.Range("H" & cnt).Value = r("BelegNr")
|
||||
If KUNDE.KundenNr = 902452 Then 'KUNDE WILL WIEDER EXZTAWURST!!!!!!!
|
||||
|
||||
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
||||
Try
|
||||
Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
|
||||
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
|
||||
Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.RechnungspreisohneWahrung
|
||||
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
|
||||
Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
|
||||
Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
|
||||
Blatt.Range("H1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
|
||||
|
||||
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
|
||||
Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN
|
||||
Blatt.Range("A" & 2).Value = "Nr"
|
||||
Blatt.Range("B" & 2).Value = "Datum"
|
||||
Blatt.Range("C" & 2).Value = "MRN-Nr."
|
||||
Blatt.Range("D" & 2).Value = "LKW/Cont."
|
||||
Blatt.Range("E" & 2).Value = "Rg.-Nr."
|
||||
Blatt.Range("F" & 2).Value = "EUST"
|
||||
Blatt.Range("G" & 2).Value = "Anzahl Pos."
|
||||
Blatt.Range("H" & 2).Value = ""
|
||||
Blatt.Range("I" & 2).Value = ""
|
||||
Blatt.Range("J" & 2).Value = ""
|
||||
Blatt.Range("K" & 2).Value = ""
|
||||
Blatt.Range("L" & 2).Value = ""
|
||||
|
||||
Dim cnt = 3
|
||||
For Each r In dt.Rows
|
||||
Blatt.Range("A" & cnt).Value = cnt - 2
|
||||
Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum")
|
||||
Blatt.Range("C" & cnt).Value = r("BelegNr")
|
||||
Blatt.Range("D" & cnt).Value = r("LKW Kennzeichen")
|
||||
|
||||
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
||||
Try
|
||||
Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
|
||||
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
|
||||
Blatt.Range("E" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
|
||||
Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST
|
||||
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
|
||||
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
|
||||
Blatt.Range("E" & cnt).Value = ZOLLANMELDUNG.ATCMRN
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count
|
||||
Me.Refresh()
|
||||
cnt += 1
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count
|
||||
Me.Refresh()
|
||||
cnt += 1
|
||||
Next
|
||||
|
||||
|
||||
Else
|
||||
|
||||
Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
|
||||
|
||||
Dim cnt = 3
|
||||
For Each r In dt.Rows
|
||||
Blatt.Range("A" & cnt).Value = cnt - 2
|
||||
Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer")
|
||||
' Blatt.Range("C" & cnt).Value = r("RechnungsNr")
|
||||
Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum")
|
||||
Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung")
|
||||
Blatt.Range("E" & cnt).Value = r("Absender")
|
||||
Blatt.Range("F" & cnt).Value = "" 'r("Betrag")
|
||||
Blatt.Range("H" & cnt).Value = r("BelegNr")
|
||||
Blatt.Range("L" & cnt).Value = r("LKW Kennzeichen")
|
||||
|
||||
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
|
||||
Try
|
||||
Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
|
||||
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
|
||||
Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.RechnungspreisohneWahrung
|
||||
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
|
||||
Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
|
||||
Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST
|
||||
Blatt.Range("K" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
|
||||
|
||||
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
|
||||
Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count
|
||||
Me.Refresh()
|
||||
cnt += 1
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
Datei.Save
|
||||
|
||||
If False Then
|
||||
|
||||
2195
SDL/kunden/usrCntlKundenuebersicht.Designer.vb
generated
2195
SDL/kunden/usrCntlKundenuebersicht.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -518,6 +518,8 @@ Public Class usrCntlKundenuebersicht
|
||||
' TMPText = TMPText.Replace("/", "" & vbNewLine)
|
||||
rtbAbf_Besonderheiten.Text = TMPText
|
||||
|
||||
initInsolvent(KUNDE_ERW.kde_CSinsolventAm)
|
||||
|
||||
' lblKreditlimit.BackColor = Color.White
|
||||
lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("C", CultureInfo.CurrentCulture)
|
||||
If KUNDE.Kreditlimit <> 0 And KUNDE.Kreditlimit <> 2600 Then
|
||||
@@ -714,6 +716,21 @@ Public Class usrCntlKundenuebersicht
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub initInsolvent(insolvent)
|
||||
If insolvent IsNot Nothing Then
|
||||
'Me.BackColor = Color.Red
|
||||
lblInsolvent.Visible = True
|
||||
lblInsolvent.Text = "KUNDE INSOLVENT " & IIf(IsDate(insolvent), " SEIT " & CDate(insolvent).ToShortDateString, "")
|
||||
rtbInfo.Visible = True
|
||||
'lblTARIFE.ForeColor = Color.White
|
||||
Else
|
||||
'Me.BackColor = Color.White
|
||||
lblInsolvent.Visible = False
|
||||
rtbInfo.Visible = False
|
||||
'lblTARIFE.ForeColor = Color.FromArgb(0, 54, 128)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Sub showForm(t As String, Optional h As String = "")
|
||||
Dim f As New Form
|
||||
@@ -2857,37 +2874,37 @@ Public Class usrCntlKundenuebersicht
|
||||
|
||||
|
||||
If lastChecked = Today Then
|
||||
Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today)
|
||||
If bonaus IsNot Nothing Then
|
||||
If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 Then
|
||||
MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!")
|
||||
Cursor = Cursors.Default
|
||||
btnCreditsafe.Enabled = True
|
||||
Exit Sub
|
||||
End If
|
||||
Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today)
|
||||
If bonaus IsNot Nothing Then
|
||||
If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 Then
|
||||
MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!")
|
||||
Cursor = Cursors.Default
|
||||
btnCreditsafe.Enabled = True
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If cs.checkDateOfLastRequest(company) < lastChecked Then
|
||||
Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
|
||||
If a = vbYes Then
|
||||
If cs.checkDateOfLastRequest(company) < lastChecked Then
|
||||
Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
|
||||
If a = vbYes Then
|
||||
|
||||
setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
setCreditsafereportEntry(cs, company)
|
||||
setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
setCreditsafereportEntry(cs, company)
|
||||
|
||||
End If
|
||||
Else
|
||||
|
||||
setCreditsafereportEntry(cs, company)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -3369,7 +3386,7 @@ Public Class usrCntlKundenuebersicht
|
||||
If currentBonID > 0 Then company.csBonID = currentBonID
|
||||
|
||||
Dim dt As New DataTable()
|
||||
If cs.getCompanyEvents(company, dt, checklastDate, True) = "Error" Then
|
||||
If cs.getCompanyEvents(company, dt, True, 0, checklastDate, True) = "Error" Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
393
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
393
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
@@ -23,31 +23,31 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.tbcntrDetails = New System.Windows.Forms.TabControl()
|
||||
Me.tbAbfertigung = New System.Windows.Forms.TabPage()
|
||||
Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
|
||||
@@ -265,6 +265,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.tbSonstiges = New System.Windows.Forms.TabPage()
|
||||
Me.cbxCS_Added = New System.Windows.Forms.CheckBox()
|
||||
Me.Label113 = New System.Windows.Forms.Label()
|
||||
Me.Label112 = New System.Windows.Forms.Label()
|
||||
Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView()
|
||||
@@ -405,7 +406,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.cbxCS_Added = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxCSInsolvent = New System.Windows.Forms.CheckBox()
|
||||
Me.tbcntrDetails.SuspendLayout()
|
||||
Me.tbAbfertigung.SuspendLayout()
|
||||
Me.tbcntrAbf.SuspendLayout()
|
||||
@@ -3110,8 +3111,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
|
||||
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
|
||||
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32
|
||||
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
|
||||
@@ -3210,8 +3211,8 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvOffenePosten.AllowUserToDeleteRows = False
|
||||
Me.dgvOffenePosten.AllowUserToOrderColumns = True
|
||||
Me.dgvOffenePosten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33
|
||||
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
|
||||
@@ -3372,41 +3373,41 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvKreditkarten.AllowUserToDeleteRows = False
|
||||
Me.dgvKreditkarten.AllowUserToOrderColumns = True
|
||||
Me.dgvKreditkarten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
|
||||
DataGridViewCellStyle34.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle34
|
||||
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
|
||||
DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle35.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle35.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle35.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle35.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle35.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle35
|
||||
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
|
||||
DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle36
|
||||
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
|
||||
Me.dgvKreditkarten.MultiSelect = False
|
||||
Me.dgvKreditkarten.Name = "dgvKreditkarten"
|
||||
Me.dgvKreditkarten.ReadOnly = True
|
||||
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
|
||||
DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle37
|
||||
Me.dgvKreditkarten.RowHeadersVisible = False
|
||||
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
|
||||
DataGridViewCellStyle38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle38
|
||||
Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
|
||||
@@ -3486,26 +3487,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'dgvMWST
|
||||
'
|
||||
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
|
||||
DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39
|
||||
Me.dgvMWST.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
|
||||
DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle40.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40
|
||||
Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10
|
||||
DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle41
|
||||
Me.dgvMWST.Location = New System.Drawing.Point(9, 359)
|
||||
Me.dgvMWST.Name = "dgvMWST"
|
||||
Me.dgvMWST.Size = New System.Drawing.Size(171, 125)
|
||||
@@ -3590,26 +3591,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'dgvUstv_LaenderUndSteuernummern
|
||||
'
|
||||
DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
|
||||
DataGridViewCellStyle42.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle42
|
||||
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
|
||||
DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43
|
||||
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13
|
||||
DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle44.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle44
|
||||
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
|
||||
Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern"
|
||||
Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259)
|
||||
@@ -3745,6 +3746,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'tbSonstiges
|
||||
'
|
||||
Me.tbSonstiges.Controls.Add(Me.cbxCSInsolvent)
|
||||
Me.tbSonstiges.Controls.Add(Me.cbxCS_Added)
|
||||
Me.tbSonstiges.Controls.Add(Me.Label113)
|
||||
Me.tbSonstiges.Controls.Add(Me.Label112)
|
||||
@@ -3791,6 +3793,15 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbSonstiges.Text = "Sonstiges"
|
||||
Me.tbSonstiges.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxCS_Added
|
||||
'
|
||||
Me.cbxCS_Added.AutoSize = True
|
||||
Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9)
|
||||
Me.cbxCS_Added.Name = "cbxCS_Added"
|
||||
Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14)
|
||||
Me.cbxCS_Added.TabIndex = 37
|
||||
Me.cbxCS_Added.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label113
|
||||
'
|
||||
Me.Label113.AutoSize = True
|
||||
@@ -3807,7 +3818,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label112.AutoSize = True
|
||||
Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label112.Location = New System.Drawing.Point(425, 92)
|
||||
Me.Label112.Location = New System.Drawing.Point(425, 119)
|
||||
Me.Label112.Name = "Label112"
|
||||
Me.Label112.Size = New System.Drawing.Size(119, 13)
|
||||
Me.Label112.TabIndex = 35
|
||||
@@ -3818,26 +3829,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvIDS_Rabatte.AllowUserToAddRows = False
|
||||
Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False
|
||||
Me.dgvIDS_Rabatte.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
|
||||
DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
|
||||
Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
|
||||
DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27
|
||||
Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle16
|
||||
DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle28
|
||||
Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(9, 317)
|
||||
Me.dgvIDS_Rabatte.MultiSelect = False
|
||||
Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte"
|
||||
@@ -3925,7 +3936,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'txtSonst_KdNrTOBB
|
||||
'
|
||||
Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(540, 50)
|
||||
Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(540, 71)
|
||||
Me.txtSonst_KdNrTOBB.MaxLength = 20
|
||||
Me.txtSonst_KdNrTOBB.Name = "txtSonst_KdNrTOBB"
|
||||
Me.txtSonst_KdNrTOBB.Size = New System.Drawing.Size(122, 20)
|
||||
@@ -3937,7 +3948,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.Label96.AutoSize = True
|
||||
Me.Label96.Enabled = False
|
||||
Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label96.Location = New System.Drawing.Point(427, 53)
|
||||
Me.Label96.Location = New System.Drawing.Point(427, 74)
|
||||
Me.Label96.Name = "Label96"
|
||||
Me.Label96.Size = New System.Drawing.Size(83, 13)
|
||||
Me.Label96.TabIndex = 21
|
||||
@@ -3978,26 +3989,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.dgvSonst_IDSKunden.AllowUserToAddRows = False
|
||||
Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False
|
||||
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
|
||||
DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
|
||||
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
|
||||
DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30
|
||||
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle19
|
||||
DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle31
|
||||
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214)
|
||||
Me.dgvSonst_IDSKunden.MultiSelect = False
|
||||
Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
|
||||
@@ -4007,37 +4018,37 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'cbxSonst_CsvAsfinag
|
||||
'
|
||||
Me.cbxSonst_CsvAsfinag.AutoSize = True
|
||||
Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(428, 131)
|
||||
Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(504, 165)
|
||||
Me.cbxSonst_CsvAsfinag.Name = "cbxSonst_CsvAsfinag"
|
||||
Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(136, 17)
|
||||
Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(62, 17)
|
||||
Me.cbxSonst_CsvAsfinag.TabIndex = 15
|
||||
Me.cbxSonst_CsvAsfinag.Text = "AT-Abrechnungsdaten "
|
||||
Me.cbxSonst_CsvAsfinag.Text = "AT-Abr."
|
||||
Me.cbxSonst_CsvAsfinag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxSonst_CsvUTA
|
||||
'
|
||||
Me.cbxSonst_CsvUTA.AutoSize = True
|
||||
Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(428, 177)
|
||||
Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(572, 165)
|
||||
Me.cbxSonst_CsvUTA.Name = "cbxSonst_CsvUTA"
|
||||
Me.cbxSonst_CsvUTA.Size = New System.Drawing.Size(144, 17)
|
||||
Me.cbxSonst_CsvUTA.Size = New System.Drawing.Size(73, 17)
|
||||
Me.cbxSonst_CsvUTA.TabIndex = 14
|
||||
Me.cbxSonst_CsvUTA.Text = "UTA-Abrechnungsdaten "
|
||||
Me.cbxSonst_CsvUTA.Text = "UTA-Abr. "
|
||||
Me.cbxSonst_CsvUTA.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxSonst_CsvMSE
|
||||
'
|
||||
Me.cbxSonst_CsvMSE.AutoSize = True
|
||||
Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(428, 154)
|
||||
Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(428, 165)
|
||||
Me.cbxSonst_CsvMSE.Name = "cbxSonst_CsvMSE"
|
||||
Me.cbxSonst_CsvMSE.Size = New System.Drawing.Size(142, 17)
|
||||
Me.cbxSonst_CsvMSE.Size = New System.Drawing.Size(71, 17)
|
||||
Me.cbxSonst_CsvMSE.TabIndex = 9
|
||||
Me.cbxSonst_CsvMSE.Text = "MSE-Abrechnungsdaten"
|
||||
Me.cbxSonst_CsvMSE.Text = "MSE-Abr."
|
||||
Me.cbxSonst_CsvMSE.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxSonst_CsvMautbericht
|
||||
'
|
||||
Me.cbxSonst_CsvMautbericht.AutoSize = True
|
||||
Me.cbxSonst_CsvMautbericht.Location = New System.Drawing.Point(428, 111)
|
||||
Me.cbxSonst_CsvMautbericht.Location = New System.Drawing.Point(428, 141)
|
||||
Me.cbxSonst_CsvMautbericht.Name = "cbxSonst_CsvMautbericht"
|
||||
Me.cbxSonst_CsvMautbericht.Size = New System.Drawing.Size(82, 17)
|
||||
Me.cbxSonst_CsvMautbericht.TabIndex = 2
|
||||
@@ -4063,7 +4074,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'txtSonst_KdNrTelepass
|
||||
'
|
||||
Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(540, 73)
|
||||
Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(540, 94)
|
||||
Me.txtSonst_KdNrTelepass.Name = "txtSonst_KdNrTelepass"
|
||||
Me.txtSonst_KdNrTelepass.Size = New System.Drawing.Size(122, 20)
|
||||
Me.txtSonst_KdNrTelepass.TabIndex = 11
|
||||
@@ -4072,7 +4083,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.Label74.AutoSize = True
|
||||
Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label74.Location = New System.Drawing.Point(425, 76)
|
||||
Me.Label74.Location = New System.Drawing.Point(425, 97)
|
||||
Me.Label74.Name = "Label74"
|
||||
Me.Label74.Size = New System.Drawing.Size(109, 13)
|
||||
Me.Label74.TabIndex = 10
|
||||
@@ -4115,7 +4126,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'txtSonst_KdNrIDS
|
||||
'
|
||||
Me.txtSonst_KdNrIDS.Enabled = False
|
||||
Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(540, 28)
|
||||
Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(540, 49)
|
||||
Me.txtSonst_KdNrIDS.Name = "txtSonst_KdNrIDS"
|
||||
Me.txtSonst_KdNrIDS.Size = New System.Drawing.Size(122, 20)
|
||||
Me.txtSonst_KdNrIDS.TabIndex = 4
|
||||
@@ -4126,7 +4137,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.Label70.AutoSize = True
|
||||
Me.Label70.Enabled = False
|
||||
Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label70.Location = New System.Drawing.Point(427, 28)
|
||||
Me.Label70.Location = New System.Drawing.Point(427, 49)
|
||||
Me.Label70.Name = "Label70"
|
||||
Me.Label70.Size = New System.Drawing.Size(72, 13)
|
||||
Me.Label70.TabIndex = 3
|
||||
@@ -4308,26 +4319,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'DataGridView1
|
||||
'
|
||||
Me.DataGridView1.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
|
||||
DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45
|
||||
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21
|
||||
DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46
|
||||
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle22
|
||||
DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle47
|
||||
Me.DataGridView1.Enabled = False
|
||||
Me.DataGridView1.Location = New System.Drawing.Point(6, 111)
|
||||
Me.DataGridView1.MultiSelect = False
|
||||
@@ -4381,26 +4392,26 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
Me.dgvBankverbindungen.AllowUserToDeleteRows = False
|
||||
Me.dgvBankverbindungen.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
|
||||
DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48
|
||||
Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24
|
||||
DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49
|
||||
Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle25
|
||||
DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle50
|
||||
Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40)
|
||||
Me.dgvBankverbindungen.MultiSelect = False
|
||||
Me.dgvBankverbindungen.Name = "dgvBankverbindungen"
|
||||
@@ -5529,14 +5540,15 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
|
||||
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
|
||||
'
|
||||
'cbxCS_Added
|
||||
'cbxCSInsolvent
|
||||
'
|
||||
Me.cbxCS_Added.AutoSize = True
|
||||
Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9)
|
||||
Me.cbxCS_Added.Name = "cbxCS_Added"
|
||||
Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14)
|
||||
Me.cbxCS_Added.TabIndex = 37
|
||||
Me.cbxCS_Added.UseVisualStyleBackColor = True
|
||||
Me.cbxCSInsolvent.AutoSize = True
|
||||
Me.cbxCSInsolvent.Location = New System.Drawing.Point(406, 26)
|
||||
Me.cbxCSInsolvent.Name = "cbxCSInsolvent"
|
||||
Me.cbxCSInsolvent.Size = New System.Drawing.Size(102, 17)
|
||||
Me.cbxCSInsolvent.TabIndex = 39
|
||||
Me.cbxCSInsolvent.Text = "Kunde insolvent"
|
||||
Me.cbxCSInsolvent.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrcntlKundeBearbeitenFull
|
||||
'
|
||||
@@ -5997,4 +6009,5 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Friend WithEvents cbxErstattungsart As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents cbpKopfsammelrechnung As CheckBox
|
||||
Friend WithEvents cbxCS_Added As CheckBox
|
||||
Friend WithEvents cbxCSInsolvent As CheckBox
|
||||
End Class
|
||||
|
||||
@@ -213,6 +213,7 @@
|
||||
txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "")
|
||||
cbxFR.Checked = loadValue(KUNDE_ERW.kde_FR, False)
|
||||
cbxCS_Added.Checked = loadValue(KUNDE_ERW.kde_CSPortfolioAdded, False)
|
||||
cbxCSInsolvent.Checked = IIf(Not IsDBNull(KUNDE_ERW.kde_CSinsolventAm), True, False)
|
||||
txtFR.Text = loadValue(KUNDE_ERW.kde_AnmerkungFR, "")
|
||||
cbpKopfsammelrechnung.Checked = KUNDE_ERW.kde_Kopfsammelrechnung
|
||||
txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "")
|
||||
@@ -716,6 +717,7 @@
|
||||
KUNDE_ERW.kde_txtVersicherungDeckungsquote = isLeerNothingDbl(txtVersicherungDeckungsquote._value)
|
||||
KUNDE_ERW.kde_txtVersicherungNichtVersicherbar = cbxNichtVersicherbar.Checked
|
||||
KUNDE_ERW.kde_CSPortfolioAdded = cbxCS_Added.Checked
|
||||
|
||||
KUNDE_ERW.kde_Versicherung_GemeldeterBetrag = isLeerNothingDbl(txtVersicherung_GemeldeterBetrag._value)
|
||||
KUNDE_ERW.kde_txtVersicherungEHNr = isLeerNothing(txtVers_EHNr._value)
|
||||
|
||||
@@ -2349,5 +2351,21 @@
|
||||
If Not cbxVorauszahlung.Checked Then txtVorauszahlung.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub cbxCSInsolvent_CheckedChanged(sender As Object, e As EventArgs) Handles cbxCSInsolvent.CheckedChanged
|
||||
If KUNDE_ERW.kde_CSinsolventAm IsNot Nothing AndAlso Not cbxCSInsolvent.Checked Then
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie die Anmerkung der Insolvent deaktivieren?" & vbNewLine & " Diese Anmerkung wurde automatisch über die Creditsafe-API eingelesen!", vbYesNoCancel) Then
|
||||
cbxCSInsolvent.Checked = False
|
||||
KUNDE_ERW.kde_CSinsolventAm = Nothing
|
||||
KUNDE_ERW.SAVE()
|
||||
Else
|
||||
cbxCSInsolvent.Checked = True
|
||||
End If
|
||||
|
||||
ElseIf KUNDE_ERW.kde_CSinsolventAm Is Nothing And cbxCSInsolvent.Checked Then
|
||||
MsgBox("Wert kann nicht manuell gesetzt werden!")
|
||||
cbxCSInsolvent.Checked = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user