CreditsafeAPI erweitert, zusätzlicher Hinweis bei bereits existierender UID-Nr.
This commit is contained in:
@@ -69,11 +69,9 @@ Public Class usrcntlCreditsafe
|
||||
Cursor = Cursors.WaitCursor
|
||||
|
||||
If cs.authenticate(user, pw) = "200" Then
|
||||
If txtUID.Text <> "" Then
|
||||
lblWarning.Text = cs.searchCompanies("", txtUID.Text, cbxLand.SelectedItem.Value, dataTable).ToString
|
||||
Else
|
||||
lblWarning.Text = cs.searchCompanies(txtFirma.Text, "", cbxLand.SelectedItem.Value, dataTable).ToString
|
||||
End If
|
||||
|
||||
Dim company = New cCreditSafeAPI.Company(txtFirma.Text, txtUID.Text, cbxLand.SelectedItem.Value, "", "", Nothing)
|
||||
lblWarning.Text = cs.searchCompanies(company, dataTable).ToString
|
||||
initDGV(dataTable)
|
||||
Cursor = Cursors.Default
|
||||
|
||||
@@ -158,7 +156,8 @@ Public Class usrcntlCreditsafe
|
||||
IIf(IsDBNull(row.Cells("city").Value), "", row.Cells("city").Value),
|
||||
IIf(IsDBNull(row.Cells("postCode").Value), "", row.Cells("postCode").Value),
|
||||
IIf(IsDBNull(row.Cells("id").Value), "", row.Cells("id").Value),
|
||||
IIf(IsDBNull(row.Cells("phoneNo").Value), "", row.Cells("phoneNo").Value))
|
||||
IIf(IsDBNull(row.Cells("phoneNo").Value), "", row.Cells("phoneNo").Value),
|
||||
IIf(IsDBNull(row.Cells("dateOfLatestChange").Value), "", row.Cells("dateOfLatestChange").Value))
|
||||
|
||||
Next
|
||||
btnUebernehmen.DialogResult = DialogResult.OK
|
||||
@@ -180,9 +179,10 @@ Public Class usrcntlCreditsafe
|
||||
Public Property city As String
|
||||
Public Property postCode As String
|
||||
Public Property phoneNo As String
|
||||
Public Property dateOfLatestChange As Date
|
||||
|
||||
|
||||
Public Sub New(_name As String, _vatNo As String, _country As String, _safeNo As String, _regNo As String, _street As String, _city As String, _postCode As String, _credissafeId As String, _phoneNo As String)
|
||||
Public Sub New(_name As String, _vatNo As String, _country As String, _safeNo As String, _regNo As String, _street As String, _city As String, _postCode As String, _credissafeId As String, _phoneNo As String, _dateOfLatestChange As DateTime)
|
||||
name = _name
|
||||
vatNo = _vatNo
|
||||
country = _country
|
||||
@@ -193,6 +193,7 @@ Public Class usrcntlCreditsafe
|
||||
postCode = _postCode
|
||||
credissafeId = _credissafeId
|
||||
phoneNo = _phoneNo
|
||||
dateOfLatestChange = dateOfLatestChange
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
11
SDL/kunden/frmKundenblatt.Designer.vb
generated
11
SDL/kunden/frmKundenblatt.Designer.vb
generated
@@ -22,6 +22,7 @@ Partial Class frmKundenblatt
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<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()
|
||||
@@ -151,21 +152,21 @@ Partial Class frmKundenblatt
|
||||
Me.tbBesuchsberichte = New System.Windows.Forms.TabPage()
|
||||
Me.tbOfferte = New System.Windows.Forms.TabPage()
|
||||
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
|
||||
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip()
|
||||
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.btnAbfVerb = New System.Windows.Forms.Button()
|
||||
Me.lblAbfVerb = New System.Windows.Forms.Label()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip()
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip()
|
||||
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.mne = New System.Windows.Forms.MenuStrip()
|
||||
Me.AllgemeinToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cntxtCntxtMDM = New System.Windows.Forms.ContextMenuStrip()
|
||||
Me.cntxtCntxtMDM = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
|
||||
117
SDL/kunden/usrCntlKundenuebersicht.Designer.vb
generated
117
SDL/kunden/usrCntlKundenuebersicht.Designer.vb
generated
@@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht
|
||||
<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 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht))
|
||||
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 DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle11 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 DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.btnExcel = New System.Windows.Forms.Button()
|
||||
@@ -250,6 +250,7 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.GültigungültigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.btnReloadOP = New System.Windows.Forms.Button()
|
||||
Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
|
||||
Me.cntxtAddVM.SuspendLayout()
|
||||
Me.tbWeitereKundenDetails.SuspendLayout()
|
||||
Me.tbOfferten.SuspendLayout()
|
||||
@@ -386,8 +387,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
|
||||
Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
|
||||
Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
|
||||
Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||||
Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
@@ -407,8 +408,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False
|
||||
Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True
|
||||
Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
|
||||
Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||||
Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
@@ -418,10 +419,10 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
|
||||
Me.dgvOffertenSperrliste.ReadOnly = True
|
||||
Me.dgvOffertenSperrliste.RowHeadersVisible = False
|
||||
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
|
||||
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
|
||||
Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3
|
||||
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
|
||||
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.Color.Black
|
||||
Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle15
|
||||
Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257)
|
||||
Me.dgvOffertenSperrliste.TabIndex = 0
|
||||
@@ -559,8 +560,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvOffenePosten.AllowUserToAddRows = False
|
||||
Me.dgvOffenePosten.AllowUserToDeleteRows = False
|
||||
Me.dgvOffenePosten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
|
||||
DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
|
||||
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
@@ -640,8 +641,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
|
||||
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
|
||||
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
|
||||
DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
|
||||
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
@@ -703,8 +704,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvAnhaenge.AllowUserToAddRows = False
|
||||
Me.dgvAnhaenge.AllowUserToDeleteRows = False
|
||||
Me.dgvAnhaenge.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
|
||||
DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
|
||||
Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
@@ -1408,6 +1409,7 @@ Partial Class usrCntlKundenuebersicht
|
||||
'
|
||||
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Panel4.Controls.Add(Me.FlatButton2)
|
||||
Me.Panel4.Controls.Add(Me.btnCreditsafe)
|
||||
Me.Panel4.Controls.Add(Me.FlatButton6)
|
||||
Me.Panel4.Controls.Add(Me.btnBonitaetBearbeiten)
|
||||
@@ -2360,8 +2362,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvVollmachten.AllowUserToDeleteRows = False
|
||||
Me.dgvVollmachten.AllowUserToOrderColumns = True
|
||||
Me.dgvVollmachten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
|
||||
DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
|
||||
Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
@@ -2414,8 +2416,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvVertraege.AllowUserToDeleteRows = False
|
||||
Me.dgvVertraege.AllowUserToOrderColumns = True
|
||||
Me.dgvVertraege.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
|
||||
DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
|
||||
Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
@@ -2578,8 +2580,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvGestGarantie.AllowUserToDeleteRows = False
|
||||
Me.dgvGestGarantie.AllowUserToOrderColumns = True
|
||||
Me.dgvGestGarantie.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
|
||||
DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
|
||||
Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
@@ -3032,24 +3034,24 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvAufschub.AllowUserToResizeColumns = False
|
||||
Me.dgvAufschub.AllowUserToResizeRows = False
|
||||
Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
|
||||
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.WindowText
|
||||
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
|
||||
DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control
|
||||
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.WindowText
|
||||
DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22
|
||||
Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL})
|
||||
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
|
||||
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.ControlText
|
||||
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12
|
||||
DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Window
|
||||
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.ControlText
|
||||
DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle24
|
||||
Me.dgvAufschub.Location = New System.Drawing.Point(13, 61)
|
||||
Me.dgvAufschub.MultiSelect = False
|
||||
Me.dgvAufschub.Name = "dgvAufschub"
|
||||
@@ -3076,8 +3078,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
'
|
||||
'HZA
|
||||
'
|
||||
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
Me.HZA.DefaultCellStyle = DataGridViewCellStyle11
|
||||
DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
Me.HZA.DefaultCellStyle = DataGridViewCellStyle23
|
||||
Me.HZA.HeaderText = "HZA"
|
||||
Me.HZA.Name = "HZA"
|
||||
Me.HZA.ReadOnly = True
|
||||
@@ -3255,6 +3257,20 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.cboFirmaFMZOLL.TabIndex = 10
|
||||
Me.cboFirmaFMZOLL.Visible = False
|
||||
'
|
||||
'FlatButton2
|
||||
'
|
||||
Me.FlatButton2.allowBorder = False
|
||||
Me.FlatButton2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
|
||||
Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.FlatButton2.FlatAppearance.BorderSize = 0
|
||||
Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.FlatButton2.ForeColor = System.Drawing.Color.Black
|
||||
Me.FlatButton2.Location = New System.Drawing.Point(222, 6)
|
||||
Me.FlatButton2.Name = "FlatButton2"
|
||||
Me.FlatButton2.Size = New System.Drawing.Size(15, 12)
|
||||
Me.FlatButton2.TabIndex = 11
|
||||
Me.FlatButton2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlKundenuebersicht
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -3559,4 +3575,5 @@ Partial Class usrCntlKundenuebersicht
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents txtVerzolltBeiExport As TextBox
|
||||
Friend WithEvents btnCreditsafe As Button
|
||||
Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
|
||||
End Class
|
||||
|
||||
@@ -2734,8 +2734,8 @@ Public Class usrCntlKundenuebersicht
|
||||
tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
|
||||
tmpForm.Controls.Add(UserControl1)
|
||||
If tmpForm.ShowDialog() = DialogResult.OK Then
|
||||
|
||||
KUNDE_ERW.kde_CreditSaveId = UserControl1.comp.credissafeId
|
||||
KUNDE_ERW.kde_CreditSaveNo = UserControl1.comp.safeNo
|
||||
KUNDE_ERW.SAVE()
|
||||
End If
|
||||
|
||||
@@ -2747,12 +2747,49 @@ Public Class usrCntlKundenuebersicht
|
||||
Dim cs = New cCreditSafeAPI()
|
||||
|
||||
If cs.authenticate(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd) = "200" Then
|
||||
Dim a As MsgBoxResult = MsgBox("Soll der neue CS-Bericht angefügt werden?.", vbYesNo)
|
||||
If a = vbYes Then
|
||||
MsgBox(cs.companyCreditreport(KUNDE_ERW.kde_CreditSaveId))
|
||||
|
||||
|
||||
|
||||
If checkNullStr(ADRESSE.LandKz) = "" Then
|
||||
MsgBox("Land im Kunden muss hinterlegt sein!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim laenderKZ As String
|
||||
|
||||
Select Case ADRESSE.LandKz
|
||||
|
||||
Case "A" : laenderKZ = "AT"
|
||||
Case "D" : laenderKZ = "DE"
|
||||
|
||||
Case Else
|
||||
laenderKZ = "AT"
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
Dim company As New cCreditSafeAPI.Company("", "", laenderKZ, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing)
|
||||
If lblBonitaetsdatum._value <> Nothing Then
|
||||
|
||||
Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
|
||||
company.lastChecked = lastChecked
|
||||
|
||||
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
|
||||
MsgBox(cs.getReport(company, True))
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
Else
|
||||
|
||||
MsgBox(cs.getReport(company, True))
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
MsgBox("Authentiizierungsfehler für User " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser)
|
||||
|
||||
@@ -2765,4 +2802,7 @@ Public Class usrCntlKundenuebersicht
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
4150
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
4150
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -1490,10 +1490,10 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
End If
|
||||
|
||||
|
||||
If UserControl1.comp.vatNo IsNot Nothing Then
|
||||
If UserControl1.comp.vatNo <> "" Then
|
||||
cboUSt_UstIdNrLand.changeItem(UserControl1.comp.vatNo.Substring(0, 2))
|
||||
|
||||
If UserControl1.comp.country IsNot Nothing Then
|
||||
If UserControl1.comp.country <> "" Then
|
||||
txtUSt_UstIdNr.Text = UserControl1.comp.vatNo.Replace(UserControl1.comp.country, "")
|
||||
Else
|
||||
txtUSt_UstIdNr.Text = UserControl1.comp.vatNo
|
||||
|
||||
@@ -153,7 +153,7 @@ Public Class cAdressen
|
||||
If If(Straße, "") = "" Then ERROR_TXT = "Bitte geben Sie die Straße an!" : Return False
|
||||
If Not hasEntry Then
|
||||
'Prüfung Neuanlage:
|
||||
If checkUID(KD) Then ERROR_TXT = "Die UID Nummer existiert bereits!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False
|
||||
If checkUID(KD) Then ERROR_TXT = "Die UID Nummer existiert bereits " & getUIDKunden(KD) & "!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
@@ -166,6 +166,11 @@ Public Class cAdressen
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function getUIDKunden(KD As cKunde) As String
|
||||
Return SQL.getValueTxtBySql("SELECT TOP(1) '(' +[Name 1] +')' FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "' and kunden.FilialenNr='" & KD.FilialenNr & "'", "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
If newFlag Then INIT_NEWKD_DATA()
|
||||
If AdressenNr <= 0 Then
|
||||
|
||||
@@ -54,6 +54,7 @@ Public Class cKundenErweitert
|
||||
Property kde_CreditSaveBonitaetsScore As Object = Nothing
|
||||
|
||||
Property kde_CreditSaveId As String = ""
|
||||
Property kde_CreditSaveNo As String = ""
|
||||
Property kde_Inkasso_Uebergeben As Boolean = False
|
||||
Property kde_Inkasso_UebergebenAm As Object = Nothing
|
||||
Property kde_Inkasso_GemeldeterBetrag As Object = Nothing
|
||||
@@ -143,6 +144,7 @@ Public Class cKundenErweitert
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsIndex", kde_CreditSaveBonitaetsIndex))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsScore", kde_CreditSaveBonitaetsScore))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveId", kde_CreditSaveId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveNo", kde_CreditSaveNo))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
@@ -97,18 +97,24 @@ Public Class cCreditSafeAPI
|
||||
|
||||
If company IsNot Nothing Then
|
||||
|
||||
rest.AddQueryParam("countries", company.country)
|
||||
|
||||
|
||||
If company.creditsafeNo <> "" Then
|
||||
rest.AddQueryParam("safeNo", company.creditsafeNo)
|
||||
|
||||
If company.vatNo <> "" Then
|
||||
rest.AddQueryParam("vatNo", company.vatNo)
|
||||
Else
|
||||
If company.name <> "" Then
|
||||
rest.AddQueryParam("name", company.name)
|
||||
|
||||
If company.vatNo <> "" Then
|
||||
rest.AddQueryParam("vatNo", company.vatNo)
|
||||
Else
|
||||
If company.name <> "" Then
|
||||
rest.AddQueryParam("name", company.name)
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If company.country <> "" Then
|
||||
rest.AddQueryParam("countries", company.country)
|
||||
End If
|
||||
End If
|
||||
|
||||
rest.AddHeader("Content-Type", "application/json")
|
||||
@@ -146,12 +152,11 @@ Public Class cCreditSafeAPI
|
||||
|
||||
|
||||
|
||||
Shared Function searchCompanies(conpanyname As String, vatNo As String, country As String, ByRef dataTable As DataTable) As String
|
||||
Shared Function searchCompanies(company As Company, ByRef dataTable As DataTable) As String
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
|
||||
|
||||
Dim myUrl As String = API_STRING & "/v1/companies"
|
||||
Dim company = New Company(conpanyname, vatNo, country)
|
||||
Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token)
|
||||
|
||||
|
||||
@@ -218,8 +223,8 @@ Public Class cCreditSafeAPI
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function companyCreditreport(id As String, Optional withPDF As Boolean = False) As String
|
||||
Dim myUrl As String = API_STRING & "/v1/companies/" & id
|
||||
Shared Function getReport(company As Company, withPDF As Boolean) As String
|
||||
Dim myUrl As String = API_STRING & "/v1/companies/" & company.creditSafeId
|
||||
Dim acceptContentType = "application/json"
|
||||
If withPDF Then
|
||||
acceptContentType &= "+pdf"
|
||||
@@ -240,6 +245,33 @@ Public Class cCreditSafeAPI
|
||||
|
||||
Return "test"
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function checkDateOfLastRequest(company As Company) As Date
|
||||
|
||||
Dim myUrl As String = API_STRING & "/v1/companies"
|
||||
Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token)
|
||||
|
||||
Dim json As New Chilkat.JsonObject
|
||||
Dim success As Boolean = json.Load(jsonRespString)
|
||||
If (success <> True) Then
|
||||
Debug.WriteLine(json.LastErrorText)
|
||||
Return "Verbindungsfehler"
|
||||
|
||||
End If
|
||||
Dim companies As Chilkat.JsonArray = json.ArrayOf("companies")
|
||||
Dim compObj As Chilkat.JsonObject = companies.ObjectAt(0)
|
||||
Dim dateTime As New Chilkat.CkDateTime
|
||||
Dim dt As New Chilkat.DtObj
|
||||
Dim getAsLocal As Boolean = False
|
||||
|
||||
success = compObj.DateOf("dateOfLatestChange", dateTime)
|
||||
Debug.WriteLine(dateTime.GetAsTimestamp(getAsLocal))
|
||||
Return dateTime.GetAsTimestamp(getAsLocal)
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
@@ -262,18 +294,25 @@ Public Class cCreditSafeAPI
|
||||
|
||||
Public Class Company
|
||||
|
||||
Public Property creditSafeId As String
|
||||
Public Property name As String
|
||||
Public Property vatNo As String
|
||||
Public Property country As String
|
||||
Public Property creditsafeNo As String
|
||||
Public Property lastChecked As Date
|
||||
|
||||
|
||||
Public Sub New(_name As String, _vatNo As String, _country As String)
|
||||
Public Sub New(_name As String, _vatNo As String, _country As String, _creditsafeNo As String, _creditSafeId As String, _lastChecked As Date)
|
||||
creditSafeId = _creditSafeId
|
||||
name = _name
|
||||
vatNo = _vatNo
|
||||
country = _country
|
||||
creditsafeNo = _creditsafeNo
|
||||
lastChecked = _lastChecked
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub New()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user