diff --git a/SDL/Creditsafe/usrcntlCreditsafe.vb b/SDL/Creditsafe/usrcntlCreditsafe.vb index e0ad5d7e..dfa751e7 100644 --- a/SDL/Creditsafe/usrcntlCreditsafe.vb +++ b/SDL/Creditsafe/usrcntlCreditsafe.vb @@ -32,6 +32,10 @@ Public Class usrcntlCreditsafe user = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser pw = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd + 'Zugangsdaten hartcoded, da Webservice-User nicht Mitarbeiterabhängig ist!!! + user = "creditsafe@verag.ag" + pw = "^AZcBVTBUIHTT5SQ1C9OOH" + cbxLand.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez " & " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " & " WHERE ([Währungstabelle].[MitgliedslandEU] = 1) " & diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index a220de2d..391d62ae 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -28,7 +28,7 @@ http://localhost/SDL/ true publish.htm - 2 + 3 1.0.0.%2a false true diff --git a/SDL/kunden/frmBonitätsverlauf.vb b/SDL/kunden/frmBonitätsverlauf.vb index 770b9fa6..1aff9e01 100644 --- a/SDL/kunden/frmBonitätsverlauf.vb +++ b/SDL/kunden/frmBonitätsverlauf.vb @@ -66,10 +66,26 @@ .Columns("ba_Sonstiges").Visible = False .Columns("ba_Umsatz").DefaultCellStyle.Format = "C2" .Columns("ba_Hoechstkredit").DefaultCellStyle.Format = "C2" + .Columns("ba_datenarchivId").Visible = False - For Each c As DataGridViewColumn In .Columns - c.HeaderText = c.Name.Replace("ba_", "") + Dim c As New DataGridViewImageColumn + c.Name = "PDF" : c.HeaderText = "Bericht" + c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom + c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White + c.DefaultCellStyle.Tag = "PDF anzeigen" + .Columns.Add(c) + + + For Each r As DataGridViewRow In .Rows + If r.Cells("ba_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("ba_datenarchivId").Value) > 0 Then + DirectCast(r.Cells("PDF"), DataGridViewImageCell).Value = My.Resources.pdf + End If Next + + For Each cc As DataGridViewColumn In .Columns + cc.HeaderText = cc.Name.Replace("ba_", "") + Next + If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub End With End If @@ -93,24 +109,43 @@ Private Sub MyDatagridview1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellDoubleClick If e.RowIndex < 0 Then Exit Sub - If PARENT_USRCNTL IsNot Nothing Then - PARENT_USRCNTL.LoadValues(MyDatagridview1.Rows(e.RowIndex).Cells("ba_id").Value) - Me.Close() - ElseIf PARENT_FORMULARMANAGER IsNot Nothing Then - Dim found = False - For Each c In PARENT_FORMULARMANAGER.MyFlowLayoutPanel1.Controls - If c.GetType.ToString = GetType(usrcntlCreditreformBoniAuskunft).ToString Then - DirectCast(c, usrcntlCreditreformBoniAuskunft).LoadValues(MyDatagridview1.Rows(e.RowIndex).Cells("ba_id").Value) - found = True - End If - Next - If found Then Me.Close() : Exit Sub + If MyDatagridview1.Columns(e.ColumnIndex).Name = "PDF" Then + openPDF(sender, e) Else - Dim f As New frmFormulare - f.Show() - f.addForm("Boniteatsauskunft", {MyDatagridview1.Rows(e.RowIndex).Cells("ba_id").Value}) + + If PARENT_USRCNTL IsNot Nothing Then + PARENT_USRCNTL.LoadValues(MyDatagridview1.Rows(e.RowIndex).Cells("ba_id").Value) + Me.Close() + ElseIf PARENT_FORMULARMANAGER IsNot Nothing Then + Dim found = False + For Each c In PARENT_FORMULARMANAGER.MyFlowLayoutPanel1.Controls + If c.GetType.ToString = GetType(usrcntlCreditreformBoniAuskunft).ToString Then + DirectCast(c, usrcntlCreditreformBoniAuskunft).LoadValues(MyDatagridview1.Rows(e.RowIndex).Cells("ba_id").Value) + found = True + End If + Next + If found Then Me.Close() : Exit Sub + Else + Dim f As New frmFormulare + f.Show() + f.addForm("Boniteatsauskunft", {MyDatagridview1.Rows(e.RowIndex).Cells("ba_id").Value}) + + End If End If + + + + End Sub + + Private Sub openPDF(sender As Object, e As DataGridViewCellEventArgs) + + If MyDatagridview1.Rows(e.RowIndex).Cells("ba_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(MyDatagridview1.Rows(e.RowIndex).Cells("ba_datenarchivId").Value) > 0 Then + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(MyDatagridview1.Rows(e.RowIndex).Cells("ba_datenarchivId").Value) + DS.OPEN_SINGLE(True) + End If + End Sub End Class \ No newline at end of file diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb index 26bf15f8..9b0a93d5 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb @@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - 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 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht)) - 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() + 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() Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.btnExcel = New System.Windows.Forms.Button() @@ -84,7 +84,6 @@ Partial Class usrCntlKundenuebersicht Me.txtVorauskasse = New System.Windows.Forms.TextBox() Me.lblAviso = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() - Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() Me.lblAbfertigungsverbot = New System.Windows.Forms.Label() Me.Label45 = New System.Windows.Forms.Label() Me.txtSammelrechnung = New System.Windows.Forms.TextBox() @@ -110,6 +109,7 @@ Partial Class usrCntlKundenuebersicht Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.lblBesonderheiten = New System.Windows.Forms.Label() Me.Panel4 = New System.Windows.Forms.Panel() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnCreditsafe = New System.Windows.Forms.Button() Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton() @@ -152,7 +152,6 @@ Partial Class usrCntlKundenuebersicht Me.PictureBox3 = New System.Windows.Forms.PictureBox() Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.tbKontaktSpez = New System.Windows.Forms.TabPage() - Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() Me.Label38 = New System.Windows.Forms.Label() Me.txtDebitorennr = New System.Windows.Forms.TextBox() Me.lblFwlFiskal = New System.Windows.Forms.LinkLabel() @@ -198,7 +197,6 @@ Partial Class usrCntlKundenuebersicht Me.Button8 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button() Me.tbAvisoMail = New System.Windows.Forms.TabPage() - Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.tbKdSpez = New System.Windows.Forms.TabPage() Me.Label14 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label() @@ -250,7 +248,9 @@ 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.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() + Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() + Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.cntxtAddVM.SuspendLayout() Me.tbWeitereKundenDetails.SuspendLayout() Me.tbOfferten.SuspendLayout() @@ -387,8 +387,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False - 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 + 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 Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -408,8 +408,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True Me.dgvOffertenSperrliste.AllowUserToResizeRows = False - 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 + 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 Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -419,10 +419,10 @@ Partial Class usrCntlKundenuebersicht Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" Me.dgvOffertenSperrliste.ReadOnly = True Me.dgvOffertenSperrliste.RowHeadersVisible = False - 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 + 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 Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257) Me.dgvOffertenSperrliste.TabIndex = 0 @@ -560,8 +560,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvOffenePosten.AllowUserToAddRows = False Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToResizeRows = False - 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 + 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 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill @@ -641,8 +641,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - 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 + 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 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill @@ -704,8 +704,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvAnhaenge.AllowUserToAddRows = False Me.dgvAnhaenge.AllowUserToDeleteRows = False Me.dgvAnhaenge.AllowUserToResizeRows = False - 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 + 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 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 @@ -997,16 +997,6 @@ Partial Class usrCntlKundenuebersicht Me.Label2.Text = "Aviso:" Me.Label2.Visible = False ' - 'UsrCntlKundenBesonderheiten1 - ' - Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32) - Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" - Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) - Me.UsrCntlKundenBesonderheiten1.TabIndex = 6 - Me.UsrCntlKundenBesonderheiten1.Visible = False - ' 'lblAbfertigungsverbot ' Me.lblAbfertigungsverbot.BackColor = System.Drawing.Color.Red @@ -1426,6 +1416,20 @@ Partial Class usrCntlKundenuebersicht Me.Panel4.Size = New System.Drawing.Size(662, 26) Me.Panel4.TabIndex = 37 ' + '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 + ' 'btnCreditsafe ' Me.btnCreditsafe.Location = New System.Drawing.Point(582, 3) @@ -2083,14 +2087,6 @@ Partial Class usrCntlKundenuebersicht Me.tbKontaktSpez.Text = "Spezifisch" Me.tbKontaktSpez.UseVisualStyleBackColor = True ' - 'ucKundenKontakte - ' - Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill - Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) - Me.ucKundenKontakte.Name = "ucKundenKontakte" - Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158) - Me.ucKundenKontakte.TabIndex = 0 - ' 'Label38 ' Me.Label38.AutoSize = True @@ -2362,8 +2358,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvVollmachten.AllowUserToDeleteRows = False Me.dgvVollmachten.AllowUserToOrderColumns = True Me.dgvVollmachten.AllowUserToResizeRows = False - 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 + 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 Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill @@ -2416,8 +2412,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvVertraege.AllowUserToDeleteRows = False Me.dgvVertraege.AllowUserToOrderColumns = True Me.dgvVertraege.AllowUserToResizeRows = False - 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 + 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 Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill @@ -2580,8 +2576,8 @@ Partial Class usrCntlKundenuebersicht Me.dgvGestGarantie.AllowUserToDeleteRows = False Me.dgvGestGarantie.AllowUserToOrderColumns = True Me.dgvGestGarantie.AllowUserToResizeRows = False - 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 + 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 Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill @@ -2717,15 +2713,6 @@ Partial Class usrCntlKundenuebersicht Me.tbAvisoMail.Text = "Aviso E-Mails" Me.tbAvisoMail.UseVisualStyleBackColor = True ' - 'UsrCntlKundenAvisoMailBenachrichtigung1 - ' - Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 - ' 'tbKdSpez ' Me.tbKdSpez.Controls.Add(Me.Label14) @@ -3034,24 +3021,24 @@ Partial Class usrCntlKundenuebersicht Me.dgvAufschub.AllowUserToResizeColumns = False Me.dgvAufschub.AllowUserToResizeRows = False Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White - 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 + 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 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}) - 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 + 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 Me.dgvAufschub.Location = New System.Drawing.Point(13, 61) Me.dgvAufschub.MultiSelect = False Me.dgvAufschub.Name = "dgvAufschub" @@ -3078,8 +3065,8 @@ Partial Class usrCntlKundenuebersicht ' 'HZA ' - DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - Me.HZA.DefaultCellStyle = DataGridViewCellStyle23 + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.HZA.DefaultCellStyle = DataGridViewCellStyle11 Me.HZA.HeaderText = "HZA" Me.HZA.Name = "HZA" Me.HZA.ReadOnly = True @@ -3257,19 +3244,32 @@ Partial Class usrCntlKundenuebersicht Me.cboFirmaFMZOLL.TabIndex = 10 Me.cboFirmaFMZOLL.Visible = False ' - 'FlatButton2 + 'UsrCntlKundenBesonderheiten1 ' - 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 + Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32) + Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" + Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) + Me.UsrCntlKundenBesonderheiten1.TabIndex = 6 + Me.UsrCntlKundenBesonderheiten1.Visible = False + ' + 'ucKundenKontakte + ' + Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) + Me.ucKundenKontakte.Name = "ucKundenKontakte" + Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158) + Me.ucKundenKontakte.TabIndex = 0 + ' + 'UsrCntlKundenAvisoMailBenachrichtigung1 + ' + Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 ' 'usrCntlKundenuebersicht ' diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 730a65cb..c8a2dab3 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -55,6 +55,7 @@ Public Class usrCntlKundenuebersicht Dim WHEREStatistik = "" Public selectedTAB = "" Property BER_STUFE = 99 + Private datenarchivId = -1 Public Sub New() Try @@ -633,6 +634,8 @@ Public Class usrCntlKundenuebersicht txtKundenbetreuer.Text = VERAGSQL.DLookup("team_bezeichnung", "tblTeams", "[team_id]='" & KUNDE_ERW.kde_TeamId & "'", "ADMIN") txtKundenbetreuerTeam.Text = VERAGSQL.DLookup("mit_vname +' '+mit_nname", "tblMitarbeiter", "[mit_id]='" & KUNDE_ERW.kde_TeamMAId & "'", "ADMIN") + updateDatenarchivId() + 'cbxAbf_SvsRvs.CheckedValue = checkNullBool(KUNDE.SVS) @@ -1294,7 +1297,7 @@ Public Class usrCntlKundenuebersicht - .DataSource = SQL.loadDgvBySql("SELECT [KundenNr] as KdNr,[Datum] as Datum,[Rechnung] as Nummer,[Saldo] as Betrag,'-' as [OP-Saldo],'EUR' as Währung ,'-' as [KumSaldoEUR] ,[Buchungstext] " & + .DataSource = SQL.loadDgvBySql("SELECT [KundenNr] as KdNr,[Datum] as Datum,[Rechnung] as Nummer,[Saldo] as Betrag,'-' as [OP-Saldo],'EUR' as Währung ,'-' as [KumSaldoEUR],[Buchungstext] " & " FROM [Offene_Posten_DVO] " & " WHERE KundenNr='" & KUNDE.KundenNrZentrale & "' " & where & " order BY datum DESC, [OP_ID] DESC", "FMZOLL") If .Columns.Count > 0 Then @@ -1444,7 +1447,7 @@ Public Class usrCntlKundenuebersicht Else where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")") End If - .DataSource = SQL.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as Währung,[KumSaldoEUR] ,[Buchungstext] as Referenz " & + .DataSource = SQL.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as 'Währ.',[KumSaldoEUR],[Mahnstufe] as M, [Fälligkeitsdatum] as 'fällig am' ,[Buchungstext] as Referenz " & " FROM [Offene Posten] " & " WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY OP_ID DESC /*, Belegdatum DESC*/", "FMZOLL") @@ -1457,6 +1460,8 @@ Public Class usrCntlKundenuebersicht .Columns(1).Width = 70 .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + .Columns(2).Width = 80 + .Columns(3).Width = 75 .Columns(3).DefaultCellStyle.Format = "N2" .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight @@ -1465,14 +1470,22 @@ Public Class usrCntlKundenuebersicht .Columns(4).DefaultCellStyle.Format = "N2" .Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - .Columns(5).Width = 60 + .Columns(5).Width = 40 .Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns(6).Width = 80 .Columns(6).DefaultCellStyle.Format = "N2" .Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight - .Columns(7).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns(7).Width = 20 + .Columns(6).DefaultCellStyle.Format = "N0" + .Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + .Columns(8).Width = 70 + .Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter + + + .Columns(9).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill Dim OP_tmp As Double = 0 @@ -2708,7 +2721,7 @@ Public Class usrCntlKundenuebersicht Private Sub btnCreditsafe_Click(sender As Object, e As EventArgs) Handles btnCreditsafe.Click Dim UID As String = "" - Dim land As String = checkNullStr(ADRESSE.UstIdKz) + Dim land As String = "" 'checkNullStr(ADRESSE.UstIdKz) Dim name As String = checkNullStr(ADRESSE.Name_1) Cursor = Cursors.WaitCursor @@ -2722,9 +2735,19 @@ Public Class usrCntlKundenuebersicht UID = checkNullStr(ADRESSE.UstIdKz) & " " & checkNullStr(ADRESSE.UstIdNr) End If + Select Case checkNullStr(ADRESSE.LandKz) + + Case "A", "" : land = "AT" + Case "D" : land = "DE" + + Case Else + land = ADRESSE.LandKz + + End Select + Using UserControl1 As usrcntlCreditsafe = New usrcntlCreditsafe(UID, name, land) Using tmpForm As Form = New Form() - tmpForm.Width = UserControl1.Width + tmpForm.Width = UserControl1.Width + 10 tmpForm.Height = UserControl1.Height + 40 tmpForm.Text = "Creditsafe-Firmensuche" tmpForm.StartPosition = tmpForm.StartPosition.CenterParent @@ -2742,30 +2765,28 @@ Public Class usrCntlKundenuebersicht Else Dim cs = New cCreditSafeAPI() - If cs.authenticate(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd) = "200" Then - - + 'If cs.authenticate(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd) = "200" Then + If cs.authenticate("creditsafe@verag.ag", "^AZcBVTBUIHTT5SQ1C9OOH") = "200" Then + 'Prüfung wird benötigt, da deutsche Abfragen einen Reasoncode benötigen! 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 "A" : land = "AT" + Case "D" : land = "DE" Case Else - laenderKZ = "AT" + land = ADRESSE.LandKz End Select - - Dim company As New cCreditSafeAPI.Company("", "", laenderKZ, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing) + Dim company As New cCreditSafeAPI.Company("", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing) + Dim pdfObject As Byte() = Nothing If lblBonitaetsdatum._value <> Nothing Then Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) @@ -2774,14 +2795,22 @@ Public Class usrCntlKundenuebersicht 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)) + cs.getReport(company, True) + pdfObject = cs.getPDF(company) + setCreditSafeEntry(company, pdfObject, kdNr) End If + Else + cs.getReport(company, True) + pdfObject = cs.getPDF(company) + setCreditSafeEntry(company, pdfObject, kdNr) End If Else - MsgBox(cs.getReport(company, True)) + cs.getReport(company, True) + pdfObject = cs.getPDF(company) + setCreditSafeEntry(company, pdfObject, kdNr) End If @@ -2798,7 +2827,82 @@ Public Class usrCntlKundenuebersicht End Sub - Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click + Private Sub setCreditSafeEntry(company As cCreditSafeAPI.Company, PDF As Byte(), krn As Integer) + + If company.csFailure <> "" Then + MsgBox(company.csFailure) + Exit Sub + End If + + Dim cBonitaetsauskunft = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft + + If PDF IsNot Nothing Then + Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "CREDITSAFE", "", "", "", "Bericht_" & kdNr, kdNr) + Dim path = DS.uploadDataToDATENSERVER_fromBytes(PDF, "Bericht_" & kdNr, ".pdf") + + If path Then + cBonitaetsauskunft.ba_datenarchivId = DS.da_id + End If + + End If + + cBonitaetsauskunft.ba_BonitaetsIndex = Nothing + cBonitaetsauskunft.ba_Risikostufe = Nothing + cBonitaetsauskunft.ba_CreditSaveBonitaetsScore = Nothing + cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = Nothing + cBonitaetsauskunft.ba_CreditSaveRisikoklasse = Nothing + + cBonitaetsauskunft.ba_KundenNr = (kdNr) + cBonitaetsauskunft.ba_Datum = Now() + + If company.country = "AT" Then + cBonitaetsauskunft.ba_CreditSaveBonitaetsScore = If(IsNumeric(company.csIndex), CInt(company.csIndex), 0) + cBonitaetsauskunft.ba_Pruefungstool = "creditsafe AT" + Else + cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = If(IsNumeric(company.csIndex), CDbl(company.csIndex), 0) + cBonitaetsauskunft.ba_Pruefungstool = "creditsafe" + End If + + + cBonitaetsauskunft.ba_CreditSaveRisikoklasse = cProgramFunctions.isLeerNothing(company.csRiskclass) + + cBonitaetsauskunft.ba_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID + cBonitaetsauskunft.ba_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + cBonitaetsauskunft.ba_Hoechstkredit = IIf(company.csMaxCreditAmount <> "", CDbl(company.csMaxCreditAmount), 0) 'cProgramFunctions.isLeerNothingDbl(CDbl(company.csMaxCreditAmount), 0) + cBonitaetsauskunft.ba_Bankverbindung = "" + cBonitaetsauskunft.ba_Zahlungsweise = "" + cBonitaetsauskunft.ba_GFName = "" + cBonitaetsauskunft.ba_Sonstiges = "" + cBonitaetsauskunft.ba_GruendundsDatum = IIf(company.csDFoundingDate > New Date("01.01.1900"), company.csDFoundingDate, "") + + If cBonitaetsauskunft.SAVE Then + SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL") + + Dim KDERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) + KDERW.kde_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex + KDERW.kde_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore + KDERW.kde_CreditSaveBonitaetsklasse = cBonitaetsauskunft.ba_CreditSaveRisikoklasse + KDERW.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe + KDERW.SAVE() + updateDatenarchivId() + End If End Sub + + Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click + + If datenarchivId = -1 Then Exit Sub + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(datenarchivId) + DS.OPEN_SINGLE(True) + + End Sub + + Private Sub updateDatenarchivId() + If kdNr < 0 Then Exit Sub + datenarchivId = VERAGSQL.DLookup("ba_datenarchivId", "[tblBonitaetsauskunft]", "[ba_KundenNr]='" & kdNr & "' ORDER BY ba_Datum DESC", "FMZOLL", "-1") + If datenarchivId = -1 Then + Button2.BackgroundImage = SDL.My.Resources.Resources.pdf_gray + End If + End Sub End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index cca7baa2..f7ab662a 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -35,18 +35,22 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox() + Me.txtAbf_Planzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label42 = New System.Windows.Forms.Label() Me.cboFremdspeditionExport = New System.Windows.Forms.ComboBox() Me.lblHinweisKdNr = New System.Windows.Forms.Label() Me.cboFremdspedition = New System.Windows.Forms.ComboBox() Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox() Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox() + Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() Me.tbcntrAbf = New System.Windows.Forms.TabControl() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() + Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox() Me.Label18 = New System.Windows.Forms.Label() Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.txtAbfVerb_RechtsanwaltSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cboAbfVerb_Kreditlimit = New System.Windows.Forms.CheckBox() Me.rtbAbfVerb_Grund = New System.Windows.Forms.RichTextBox() Me.Label62 = New System.Windows.Forms.Label() @@ -54,12 +58,17 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label63 = New System.Windows.Forms.Label() Me.Label64 = New System.Windows.Forms.Label() Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox() + Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbAufschub = New System.Windows.Forms.TabPage() + Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.Label78 = New System.Windows.Forms.Label() Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox() Me.Label38 = New System.Windows.Forms.Label() + Me.txtAbf_ZollVmVom = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxAbf_Ausfuhr = New System.Windows.Forms.CheckBox() + Me.txtAbf_Euroeinführung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxAbf_Fiskal = New System.Windows.Forms.CheckBox() Me.GroupBox7 = New System.Windows.Forms.GroupBox() Me.RadioButton7 = New System.Windows.Forms.RadioButton() @@ -76,7 +85,9 @@ Partial Class usrcntlKundeBearbeitenFull Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.tbFiskal = New System.Windows.Forms.TabPage() + Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() Me.tbVerrechnung = New System.Windows.Forms.TabPage() + Me.cbxSndDatenAusSTB = New System.Windows.Forms.CheckBox() Me.Label95 = New System.Windows.Forms.Label() Me.cbxSammelrechnungBerichtLeistungsdetails = New System.Windows.Forms.CheckBox() Me.cbxAPITradeshift = New System.Windows.Forms.CheckBox() @@ -103,6 +114,23 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label49 = New System.Windows.Forms.Label() Me.Label48 = New System.Windows.Forms.Label() Me.Label39 = New System.Windows.Forms.Label() + Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtDebKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_Zahlungsziel3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_Zahlungsziel2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_LastschriftBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_LastschriftVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtProvAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboProvisionStaffel = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboProvisionStaffelArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAbf_Waehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAbf_Steuerschluessel = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAbf_Sammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbf_BankspesenMindestbetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_Bankspesen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_Kreditaufwendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_Vorlageprovision = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_Zahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbVersicherung = New System.Windows.Forms.TabPage() Me.Label81 = New System.Windows.Forms.Label() Me.Label82 = New System.Windows.Forms.Label() @@ -131,15 +159,38 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label54 = New System.Windows.Forms.Label() Me.Label52 = New System.Windows.Forms.Label() Me.Label51 = New System.Windows.Forms.Label() + Me.txtInkasso_GemeldeterBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtInkassoUebergebenAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVers_EHNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnerkVersFallAb = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVersicherung_GemeldeterBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVersUebergebenOPSaldo = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVersicherungDeckungsquote = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAnerkVersFallAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVersicherungUebergebenAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtDeckungsstoppDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVers_BankgarantiebetragGueltigBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVers_KreditlimitVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVers_Saldo = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVers_VersicherungssummeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVers_Bankgarantiebetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVers_Kreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVers_AntragssummeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVers_Versicherungssumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVers_Antragssumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVers_HermesRefNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbUmsatz = New System.Windows.Forms.TabPage() Me.Label65 = New System.Windows.Forms.Label() Me.dgvUmsatzbericht = New System.Windows.Forms.DataGridView() Me.tbOP = New System.Windows.Forms.TabPage() + Me.txtHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label69 = New System.Windows.Forms.Label() Me.lblbon = New System.Windows.Forms.Label() Me.Label67 = New System.Windows.Forms.Label() Me.Label66 = New System.Windows.Forms.Label() Me.dgvOffenePosten = New System.Windows.Forms.DataGridView() + Me.txtBonitaetsDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbBank = New System.Windows.Forms.TabPage() Me.Label21 = New System.Windows.Forms.Label() Me.GroupBox4 = New System.Windows.Forms.GroupBox() @@ -152,6 +203,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label22 = New System.Windows.Forms.Label() Me.txtBank_Blz = New System.Windows.Forms.TextBox() Me.tbUmsatzsteuer = New System.Windows.Forms.TabPage() + Me.txtUStIDGeprueftAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUStID = New System.Windows.Forms.TextBox() Me.Button3 = New System.Windows.Forms.Button() Me.Label85 = New System.Windows.Forms.Label() @@ -164,6 +216,9 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label89 = New System.Windows.Forms.Label() Me.Label87 = New System.Windows.Forms.Label() Me.Label86 = New System.Windows.Forms.Label() + Me.btnUStVAendSpeichern = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbSonstiges = New System.Windows.Forms.TabPage() Me.Label99 = New System.Windows.Forms.Label() Me.txtCreditsafe = New System.Windows.Forms.TextBox() @@ -188,6 +243,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSonst_KdNrIDS = New System.Windows.Forms.TextBox() Me.Label70 = New System.Windows.Forms.Label() Me.Label71 = New System.Windows.Forms.Label() + Me.btnSonstAendSpeichern = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cboSonst_Rechnungsdruck = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.tbSchnittstellen = New System.Windows.Forms.TabPage() Me.txtVERAG_Schnittstellen_ID = New System.Windows.Forms.TextBox() Me.Label91 = New System.Windows.Forms.Label() @@ -196,17 +253,25 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label33 = New System.Windows.Forms.Label() Me.Label84 = New System.Windows.Forms.Label() Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.cbxUIDMehrfachverwendung = New System.Windows.Forms.CheckBox() Me.btnCreditsafe = New System.Windows.Forms.Button() Me.Button13 = New System.Windows.Forms.Button() Me.btnUIDPruef = New System.Windows.Forms.Button() + Me.txtEORINL = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label5 = New System.Windows.Forms.Label() + Me.txtEORI = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFirmenname1 = New System.Windows.Forms.TextBox() + Me.cboUSt_UstIdNrLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label15 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() + Me.txtUSt_UstIdNrGeprueftAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtKurzname = New System.Windows.Forms.TextBox() + Me.txtUSt_UstIdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFirmenname2 = New System.Windows.Forms.TextBox() Me.Label16 = New System.Windows.Forms.Label() + Me.txtUSt_Steuernummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label14 = New System.Windows.Forms.Label() Me.txtPostfachOrt = New System.Windows.Forms.TextBox() Me.txtOrt = New System.Windows.Forms.TextBox() @@ -241,10 +306,13 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbKontakt = New System.Windows.Forms.TabControl() Me.TabPage10 = New System.Windows.Forms.TabPage() Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() Me.Label50 = New System.Windows.Forms.Label() Me.Label68 = New System.Windows.Forms.Label() Me.pnlNeukunde = New System.Windows.Forms.Panel() Me.Button2 = New System.Windows.Forms.Button() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboKundenkreis = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label77 = New System.Windows.Forms.Label() Me.lblKundennr = New System.Windows.Forms.Label() Me.Label79 = New System.Windows.Forms.Label() @@ -257,77 +325,9 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtERROR = New System.Windows.Forms.TextBox() Me.btnDatevExport = New System.Windows.Forms.Button() Me.Label98 = New System.Windows.Forms.Label() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboKundenkreis = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbf_Planzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() - Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() - Me.txtAbfVerb_RechtsanwaltSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten() - Me.txtAbf_ZollVmVom = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbf_Euroeinführung = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() - Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtDebKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbf_Zahlungsziel3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbf_Zahlungsziel2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbf_LastschriftBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbf_LastschriftVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtProvAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboProvisionStaffel = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboProvisionStaffelArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboAbf_Waehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboAbf_Steuerschluessel = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboAbf_Sammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbf_BankspesenMindestbetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbf_Bankspesen = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbf_Kreditaufwendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbf_Vorlageprovision = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbf_Zahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtInkasso_GemeldeterBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtInkassoUebergebenAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVers_EHNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAnerkVersFallAb = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVersicherung_GemeldeterBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVersUebergebenOPSaldo = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVersicherungDeckungsquote = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAnerkVersFallAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVersicherungUebergebenAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtDeckungsstoppDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVers_BankgarantiebetragGueltigBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVers_KreditlimitVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVers_Saldo = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVers_VersicherungssummeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVers_Bankgarantiebetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVers_Kreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVers_AntragssummeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVers_Versicherungssumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVers_Antragssumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVers_HermesRefNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBonitaetsDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUStIDGeprueftAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.btnUStVAendSpeichern = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.btnSonstAendSpeichern = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.cboSonst_Rechnungsdruck = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtEORINL = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEORI = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboUSt_UstIdNrLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtUSt_UstIdNrGeprueftAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUSt_UstIdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUSt_Steuernummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Label98 = New System.Windows.Forms.Label() - Me.cbxSndDatenAusSTB = New System.Windows.Forms.CheckBox() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -420,6 +420,29 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxVerzolltBeiExport.Text = "Export:" Me.cbxVerzolltBeiExport.UseVisualStyleBackColor = True ' + 'txtAbf_Planzahl + ' + Me.txtAbf_Planzahl._DateTimeOnly = False + Me.txtAbf_Planzahl._numbersOnly = False + Me.txtAbf_Planzahl._numbersOnlyKommastellen = "" + Me.txtAbf_Planzahl._numbersOnlyTrennzeichen = True + Me.txtAbf_Planzahl._Prozent = False + Me.txtAbf_Planzahl._ShortDateNew = False + Me.txtAbf_Planzahl._ShortDateOnly = False + Me.txtAbf_Planzahl._TimeOnly = False + Me.txtAbf_Planzahl._TimeOnly_Seconds = False + Me.txtAbf_Planzahl._value = Nothing + Me.txtAbf_Planzahl._Waehrung = False + Me.txtAbf_Planzahl._WaehrungZeichen = True + Me.txtAbf_Planzahl.ForeColor = System.Drawing.Color.Black + Me.txtAbf_Planzahl.Location = New System.Drawing.Point(526, 248) + Me.txtAbf_Planzahl.MaxLineLength = -1 + Me.txtAbf_Planzahl.MaxLines_Warning = "" + Me.txtAbf_Planzahl.MaxLines_Warning_Label = Nothing + Me.txtAbf_Planzahl.Name = "txtAbf_Planzahl" + Me.txtAbf_Planzahl.Size = New System.Drawing.Size(60, 20) + Me.txtAbf_Planzahl.TabIndex = 15 + ' 'Label42 ' Me.Label42.AutoSize = True @@ -479,6 +502,16 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU" Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True ' + 'UsrCntlKundenBesonderheiten1 + ' + Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25) + Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" + Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) + Me.UsrCntlKundenBesonderheiten1.TabIndex = 235 + Me.UsrCntlKundenBesonderheiten1.Visible = False + ' 'tbcntrAbf ' Me.tbcntrAbf.Controls.Add(Me.TabPage4) @@ -513,6 +546,14 @@ Partial Class usrcntlKundeBearbeitenFull Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100) Me.FlowLayoutPanel1.TabIndex = 7 ' + 'UsrCntlKundenAvisoMailBenachrichtigung1 + ' + Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6 + ' 'rtbLKWFreigabeSenden ' Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33) @@ -549,6 +590,32 @@ Partial Class usrcntlKundeBearbeitenFull Me.TabPage3.Text = "Abfertigungsverbot" Me.TabPage3.UseVisualStyleBackColor = True ' + 'txtAbfVerb_RechtsanwaltSeit + ' + Me.txtAbfVerb_RechtsanwaltSeit._DateTimeOnly = False + Me.txtAbfVerb_RechtsanwaltSeit._numbersOnly = False + Me.txtAbfVerb_RechtsanwaltSeit._numbersOnlyKommastellen = "" + Me.txtAbfVerb_RechtsanwaltSeit._numbersOnlyTrennzeichen = True + Me.txtAbfVerb_RechtsanwaltSeit._Prozent = False + Me.txtAbfVerb_RechtsanwaltSeit._ShortDateNew = True + Me.txtAbfVerb_RechtsanwaltSeit._ShortDateOnly = False + Me.txtAbfVerb_RechtsanwaltSeit._TimeOnly = False + Me.txtAbfVerb_RechtsanwaltSeit._TimeOnly_Seconds = False + Me.txtAbfVerb_RechtsanwaltSeit._value = "" + Me.txtAbfVerb_RechtsanwaltSeit._Waehrung = False + Me.txtAbfVerb_RechtsanwaltSeit._WaehrungZeichen = True + Me.txtAbfVerb_RechtsanwaltSeit.Enabled = False + Me.txtAbfVerb_RechtsanwaltSeit.ForeColor = System.Drawing.Color.Red + Me.txtAbfVerb_RechtsanwaltSeit.Location = New System.Drawing.Point(173, 33) + Me.txtAbfVerb_RechtsanwaltSeit.MaxLength = 10 + Me.txtAbfVerb_RechtsanwaltSeit.MaxLineLength = -1 + Me.txtAbfVerb_RechtsanwaltSeit.MaxLines_Warning = "" + Me.txtAbfVerb_RechtsanwaltSeit.MaxLines_Warning_Label = Nothing + Me.txtAbfVerb_RechtsanwaltSeit.Name = "txtAbfVerb_RechtsanwaltSeit" + Me.txtAbfVerb_RechtsanwaltSeit.Size = New System.Drawing.Size(60, 20) + Me.txtAbfVerb_RechtsanwaltSeit.TabIndex = 6 + Me.txtAbfVerb_RechtsanwaltSeit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'cboAbfVerb_Kreditlimit ' Me.cboAbfVerb_Kreditlimit.AutoSize = True @@ -618,6 +685,32 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboAbfVerb_Abfertigungsverbot.Text = "Abfertigungsverbot" Me.cboAbfVerb_Abfertigungsverbot.UseVisualStyleBackColor = True ' + 'txtAbfVerb_AbfertigungsverbotSeit + ' + Me.txtAbfVerb_AbfertigungsverbotSeit._DateTimeOnly = False + Me.txtAbfVerb_AbfertigungsverbotSeit._numbersOnly = False + Me.txtAbfVerb_AbfertigungsverbotSeit._numbersOnlyKommastellen = "" + Me.txtAbfVerb_AbfertigungsverbotSeit._numbersOnlyTrennzeichen = True + Me.txtAbfVerb_AbfertigungsverbotSeit._Prozent = False + Me.txtAbfVerb_AbfertigungsverbotSeit._ShortDateNew = True + Me.txtAbfVerb_AbfertigungsverbotSeit._ShortDateOnly = True + Me.txtAbfVerb_AbfertigungsverbotSeit._TimeOnly = False + Me.txtAbfVerb_AbfertigungsverbotSeit._TimeOnly_Seconds = False + Me.txtAbfVerb_AbfertigungsverbotSeit._value = "" + Me.txtAbfVerb_AbfertigungsverbotSeit._Waehrung = False + Me.txtAbfVerb_AbfertigungsverbotSeit._WaehrungZeichen = True + Me.txtAbfVerb_AbfertigungsverbotSeit.Enabled = False + Me.txtAbfVerb_AbfertigungsverbotSeit.ForeColor = System.Drawing.Color.Red + Me.txtAbfVerb_AbfertigungsverbotSeit.Location = New System.Drawing.Point(173, 7) + Me.txtAbfVerb_AbfertigungsverbotSeit.MaxLength = 10 + Me.txtAbfVerb_AbfertigungsverbotSeit.MaxLineLength = -1 + Me.txtAbfVerb_AbfertigungsverbotSeit.MaxLines_Warning = "" + Me.txtAbfVerb_AbfertigungsverbotSeit.MaxLines_Warning_Label = Nothing + Me.txtAbfVerb_AbfertigungsverbotSeit.Name = "txtAbfVerb_AbfertigungsverbotSeit" + Me.txtAbfVerb_AbfertigungsverbotSeit.Size = New System.Drawing.Size(60, 20) + Me.txtAbfVerb_AbfertigungsverbotSeit.TabIndex = 2 + Me.txtAbfVerb_AbfertigungsverbotSeit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'tbAufschub ' Me.tbAufschub.Controls.Add(Me.usrCntlAufschubkonten) @@ -629,6 +722,14 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbAufschub.Text = "Aufschubkonten" Me.tbAufschub.UseVisualStyleBackColor = True ' + 'usrCntlAufschubkonten + ' + Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3) + Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten" + Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172) + Me.usrCntlAufschubkonten.TabIndex = 0 + ' 'TabPage1 ' Me.TabPage1.Controls.Add(Me.Label78) @@ -673,6 +774,31 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label38.TabIndex = 2 Me.Label38.Text = "vom:" ' + 'txtAbf_ZollVmVom + ' + Me.txtAbf_ZollVmVom._DateTimeOnly = False + Me.txtAbf_ZollVmVom._numbersOnly = False + Me.txtAbf_ZollVmVom._numbersOnlyKommastellen = "" + Me.txtAbf_ZollVmVom._numbersOnlyTrennzeichen = True + Me.txtAbf_ZollVmVom._Prozent = False + Me.txtAbf_ZollVmVom._ShortDateNew = True + Me.txtAbf_ZollVmVom._ShortDateOnly = False + Me.txtAbf_ZollVmVom._TimeOnly = False + Me.txtAbf_ZollVmVom._TimeOnly_Seconds = False + Me.txtAbf_ZollVmVom._value = "" + Me.txtAbf_ZollVmVom._Waehrung = False + Me.txtAbf_ZollVmVom._WaehrungZeichen = True + Me.txtAbf_ZollVmVom.Enabled = False + Me.txtAbf_ZollVmVom.ForeColor = System.Drawing.Color.Red + Me.txtAbf_ZollVmVom.Location = New System.Drawing.Point(152, 44) + Me.txtAbf_ZollVmVom.MaxLength = 10 + Me.txtAbf_ZollVmVom.MaxLineLength = -1 + Me.txtAbf_ZollVmVom.MaxLines_Warning = "" + Me.txtAbf_ZollVmVom.MaxLines_Warning_Label = Nothing + Me.txtAbf_ZollVmVom.Name = "txtAbf_ZollVmVom" + Me.txtAbf_ZollVmVom.Size = New System.Drawing.Size(60, 20) + Me.txtAbf_ZollVmVom.TabIndex = 3 + ' 'cbxAbf_Ausfuhr ' Me.cbxAbf_Ausfuhr.AutoSize = True @@ -684,6 +810,56 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxAbf_Ausfuhr.Text = "Ausfuhr" Me.cbxAbf_Ausfuhr.UseVisualStyleBackColor = True ' + 'txtAbf_Euroeinführung + ' + Me.txtAbf_Euroeinführung._DateTimeOnly = False + Me.txtAbf_Euroeinführung._numbersOnly = False + Me.txtAbf_Euroeinführung._numbersOnlyKommastellen = "" + Me.txtAbf_Euroeinführung._numbersOnlyTrennzeichen = True + Me.txtAbf_Euroeinführung._Prozent = False + Me.txtAbf_Euroeinführung._ShortDateNew = True + Me.txtAbf_Euroeinführung._ShortDateOnly = False + Me.txtAbf_Euroeinführung._TimeOnly = False + Me.txtAbf_Euroeinführung._TimeOnly_Seconds = False + Me.txtAbf_Euroeinführung._value = "" + Me.txtAbf_Euroeinführung._Waehrung = False + Me.txtAbf_Euroeinführung._WaehrungZeichen = True + Me.txtAbf_Euroeinführung.ForeColor = System.Drawing.Color.Red + Me.txtAbf_Euroeinführung.Location = New System.Drawing.Point(375, 165) + Me.txtAbf_Euroeinführung.MaxLength = 10 + Me.txtAbf_Euroeinführung.MaxLineLength = -1 + Me.txtAbf_Euroeinführung.MaxLines_Warning = "" + Me.txtAbf_Euroeinführung.MaxLines_Warning_Label = Nothing + Me.txtAbf_Euroeinführung.Name = "txtAbf_Euroeinführung" + Me.txtAbf_Euroeinführung.Size = New System.Drawing.Size(60, 20) + Me.txtAbf_Euroeinführung.TabIndex = 4 + Me.txtAbf_Euroeinführung.Visible = False + ' + 'txtAbf_ErsteAbfertigung + ' + Me.txtAbf_ErsteAbfertigung._DateTimeOnly = False + Me.txtAbf_ErsteAbfertigung._numbersOnly = False + Me.txtAbf_ErsteAbfertigung._numbersOnlyKommastellen = "" + Me.txtAbf_ErsteAbfertigung._numbersOnlyTrennzeichen = True + Me.txtAbf_ErsteAbfertigung._Prozent = False + Me.txtAbf_ErsteAbfertigung._ShortDateNew = True + Me.txtAbf_ErsteAbfertigung._ShortDateOnly = False + Me.txtAbf_ErsteAbfertigung._TimeOnly = False + Me.txtAbf_ErsteAbfertigung._TimeOnly_Seconds = False + Me.txtAbf_ErsteAbfertigung._value = "" + Me.txtAbf_ErsteAbfertigung._Waehrung = False + Me.txtAbf_ErsteAbfertigung._WaehrungZeichen = True + Me.txtAbf_ErsteAbfertigung.ForeColor = System.Drawing.Color.Red + Me.txtAbf_ErsteAbfertigung.Location = New System.Drawing.Point(216, 162) + Me.txtAbf_ErsteAbfertigung.MaxLength = 10 + Me.txtAbf_ErsteAbfertigung.MaxLineLength = -1 + Me.txtAbf_ErsteAbfertigung.MaxLines_Warning = "" + Me.txtAbf_ErsteAbfertigung.MaxLines_Warning_Label = Nothing + Me.txtAbf_ErsteAbfertigung.Name = "txtAbf_ErsteAbfertigung" + Me.txtAbf_ErsteAbfertigung.Size = New System.Drawing.Size(60, 20) + Me.txtAbf_ErsteAbfertigung.TabIndex = 13 + Me.txtAbf_ErsteAbfertigung.Visible = False + ' 'cbxAbf_Fiskal ' Me.cbxAbf_Fiskal.AutoSize = True @@ -859,6 +1035,15 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbFiskal.Text = "Fiskal" Me.tbFiskal.UseVisualStyleBackColor = True ' + 'UsrCntlKundeFiskaldaten1 + ' + Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1" + Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 458) + Me.UsrCntlKundeFiskaldaten1.TabIndex = 0 + ' 'tbVerrechnung ' Me.tbVerrechnung.Controls.Add(Me.cbxSndDatenAusSTB) @@ -912,6 +1097,17 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbVerrechnung.Text = "Verrechnung" Me.tbVerrechnung.UseVisualStyleBackColor = True ' + 'cbxSndDatenAusSTB + ' + Me.cbxSndDatenAusSTB.AutoSize = True + Me.cbxSndDatenAusSTB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxSndDatenAusSTB.Location = New System.Drawing.Point(417, 221) + Me.cbxSndDatenAusSTB.Name = "cbxSndDatenAusSTB" + Me.cbxSndDatenAusSTB.Size = New System.Drawing.Size(145, 17) + Me.cbxSndDatenAusSTB.TabIndex = 40 + Me.cbxSndDatenAusSTB.Text = "Sendungsdaten aus STB" + Me.cbxSndDatenAusSTB.UseVisualStyleBackColor = True + ' 'Label95 ' Me.Label95.AutoSize = True @@ -1174,2012 +1370,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label39.TabIndex = 3 Me.Label39.Text = "Sammelrechnung:" ' - 'tbVersicherung - ' - Me.tbVersicherung.Controls.Add(Me.Label81) - Me.tbVersicherung.Controls.Add(Me.Label82) - Me.tbVersicherung.Controls.Add(Me.cbxInkassoUebergeben) - Me.tbVersicherung.Controls.Add(Me.Label1) - Me.tbVersicherung.Controls.Add(Me.Label35) - Me.tbVersicherung.Controls.Add(Me.Label27) - Me.tbVersicherung.Controls.Add(Me.Label24) - Me.tbVersicherung.Controls.Add(Me.cbxNichtVersicherbar) - Me.tbVersicherung.Controls.Add(Me.Label17) - Me.tbVersicherung.Controls.Add(Me.Label8) - Me.tbVersicherung.Controls.Add(Me.cbxAnerkVersFall) - Me.tbVersicherung.Controls.Add(Me.Label2) - Me.tbVersicherung.Controls.Add(Me.cbxVersicherungUebergeben) - Me.tbVersicherung.Controls.Add(Me.Label6) - Me.tbVersicherung.Controls.Add(Me.cbxDeckungsstopp) - Me.tbVersicherung.Controls.Add(Me.Label61) - Me.tbVersicherung.Controls.Add(Me.txtVers_Information) - Me.tbVersicherung.Controls.Add(Me.Label59) - Me.tbVersicherung.Controls.Add(Me.Label57) - Me.tbVersicherung.Controls.Add(Me.Label55) - Me.tbVersicherung.Controls.Add(Me.Label60) - Me.tbVersicherung.Controls.Add(Me.Label58) - Me.tbVersicherung.Controls.Add(Me.Label53) - Me.tbVersicherung.Controls.Add(Me.Label56) - Me.tbVersicherung.Controls.Add(Me.Label54) - Me.tbVersicherung.Controls.Add(Me.Label52) - Me.tbVersicherung.Controls.Add(Me.Label51) - Me.tbVersicherung.Controls.Add(Me.txtInkasso_GemeldeterBetrag) - Me.tbVersicherung.Controls.Add(Me.txtInkassoUebergebenAm) - Me.tbVersicherung.Controls.Add(Me.txtVers_EHNr) - Me.tbVersicherung.Controls.Add(Me.txtAnerkVersFallAb) - Me.tbVersicherung.Controls.Add(Me.txtVersicherung_GemeldeterBetrag) - Me.tbVersicherung.Controls.Add(Me.txtVersUebergebenOPSaldo) - Me.tbVersicherung.Controls.Add(Me.txtVersicherungDeckungsquote) - Me.tbVersicherung.Controls.Add(Me.txtAnerkVersFallAm) - Me.tbVersicherung.Controls.Add(Me.txtVersicherungUebergebenAm) - Me.tbVersicherung.Controls.Add(Me.txtDeckungsstoppDatum) - Me.tbVersicherung.Controls.Add(Me.txtVers_BankgarantiebetragGueltigBis) - Me.tbVersicherung.Controls.Add(Me.txtVers_KreditlimitVon) - Me.tbVersicherung.Controls.Add(Me.txtVers_Saldo) - Me.tbVersicherung.Controls.Add(Me.txtVers_VersicherungssummeVon) - Me.tbVersicherung.Controls.Add(Me.txtVers_Bankgarantiebetrag) - Me.tbVersicherung.Controls.Add(Me.txtVers_Kreditlimit) - Me.tbVersicherung.Controls.Add(Me.txtVers_AntragssummeVon) - Me.tbVersicherung.Controls.Add(Me.txtVers_Versicherungssumme) - Me.tbVersicherung.Controls.Add(Me.txtVers_Antragssumme) - Me.tbVersicherung.Controls.Add(Me.txtVers_HermesRefNr) - Me.tbVersicherung.Location = New System.Drawing.Point(4, 22) - Me.tbVersicherung.Name = "tbVersicherung" - Me.tbVersicherung.Padding = New System.Windows.Forms.Padding(3) - Me.tbVersicherung.Size = New System.Drawing.Size(672, 458) - Me.tbVersicherung.TabIndex = 1 - Me.tbVersicherung.Text = "Versicherung" - Me.tbVersicherung.UseVisualStyleBackColor = True - ' - 'Label81 - ' - Me.Label81.AutoSize = True - Me.Label81.Location = New System.Drawing.Point(419, 168) - Me.Label81.Name = "Label81" - Me.Label81.Size = New System.Drawing.Size(98, 13) - Me.Label81.TabIndex = 45 - Me.Label81.Text = "Gemeldeter Betrag:" - ' - 'Label82 - ' - Me.Label82.AutoSize = True - Me.Label82.Location = New System.Drawing.Point(311, 168) - Me.Label82.Name = "Label82" - Me.Label82.Size = New System.Drawing.Size(24, 13) - Me.Label82.TabIndex = 43 - Me.Label82.Text = "am:" - ' - 'cbxInkassoUebergeben - ' - Me.cbxInkassoUebergeben.AutoSize = True - Me.cbxInkassoUebergeben.Location = New System.Drawing.Point(159, 167) - Me.cbxInkassoUebergeben.Name = "cbxInkassoUebergeben" - Me.cbxInkassoUebergeben.Size = New System.Drawing.Size(156, 17) - Me.cbxInkassoUebergeben.TabIndex = 42 - Me.cbxInkassoUebergeben.Text = "Acredia Inkasso übergeben" - Me.cbxInkassoUebergeben.UseVisualStyleBackColor = True - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(353, 9) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(67, 13) - Me.Label1.TabIndex = 40 - Me.Label1.Text = "EH-Nummer:" - ' - 'Label35 - ' - Me.Label35.AutoSize = True - Me.Label35.Location = New System.Drawing.Point(419, 142) - Me.Label35.Name = "Label35" - Me.Label35.Size = New System.Drawing.Size(22, 13) - Me.Label35.TabIndex = 22 - Me.Label35.Text = "ab:" - ' - 'Label27 - ' - Me.Label27.AutoSize = True - Me.Label27.Location = New System.Drawing.Point(419, 116) - Me.Label27.Name = "Label27" - Me.Label27.Size = New System.Drawing.Size(98, 13) - Me.Label27.TabIndex = 17 - Me.Label27.Text = "Gemeldeter Betrag:" - ' - 'Label24 - ' - Me.Label24.AutoSize = True - Me.Label24.Location = New System.Drawing.Point(419, 89) - Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(55, 13) - Me.Label24.TabIndex = 12 - Me.Label24.Text = "OP-Saldo:" - Me.Label24.Visible = False - ' - 'cbxNichtVersicherbar - ' - Me.cbxNichtVersicherbar.AutoSize = True - Me.cbxNichtVersicherbar.Location = New System.Drawing.Point(159, 39) - Me.cbxNichtVersicherbar.Name = "cbxNichtVersicherbar" - Me.cbxNichtVersicherbar.Size = New System.Drawing.Size(142, 17) - Me.cbxNichtVersicherbar.TabIndex = 2 - Me.cbxNichtVersicherbar.Text = "nicht (mehr) versicherbar" - Me.cbxNichtVersicherbar.UseVisualStyleBackColor = True - ' - 'Label17 - ' - Me.Label17.AutoSize = True - Me.Label17.Location = New System.Drawing.Point(419, 65) - Me.Label17.Name = "Label17" - Me.Label17.Size = New System.Drawing.Size(86, 13) - Me.Label17.TabIndex = 7 - Me.Label17.Text = "Deckungsquote:" - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(311, 142) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(24, 13) - Me.Label8.TabIndex = 20 - Me.Label8.Text = "am:" - ' - 'cbxAnerkVersFall - ' - Me.cbxAnerkVersFall.AutoSize = True - Me.cbxAnerkVersFall.Location = New System.Drawing.Point(159, 141) - Me.cbxAnerkVersFall.Name = "cbxAnerkVersFall" - Me.cbxAnerkVersFall.Size = New System.Drawing.Size(130, 17) - Me.cbxAnerkVersFall.TabIndex = 19 - Me.cbxAnerkVersFall.Text = "Anerkennung Vers.fall" - Me.cbxAnerkVersFall.UseVisualStyleBackColor = True - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(311, 116) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(24, 13) - Me.Label2.TabIndex = 15 - Me.Label2.Text = "am:" - ' - 'cbxVersicherungUebergeben - ' - Me.cbxVersicherungUebergeben.AutoSize = True - Me.cbxVersicherungUebergeben.Location = New System.Drawing.Point(159, 115) - Me.cbxVersicherungUebergeben.Name = "cbxVersicherungUebergeben" - Me.cbxVersicherungUebergeben.Size = New System.Drawing.Size(142, 17) - Me.cbxVersicherungUebergeben.TabIndex = 14 - Me.cbxVersicherungUebergeben.Text = "Versicherung übergeben" - Me.cbxVersicherungUebergeben.UseVisualStyleBackColor = True - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(305, 89) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(30, 13) - Me.Label6.TabIndex = 10 - Me.Label6.Text = "vom:" - ' - 'cbxDeckungsstopp - ' - Me.cbxDeckungsstopp.AutoSize = True - Me.cbxDeckungsstopp.Location = New System.Drawing.Point(159, 88) - Me.cbxDeckungsstopp.Name = "cbxDeckungsstopp" - Me.cbxDeckungsstopp.Size = New System.Drawing.Size(101, 17) - Me.cbxDeckungsstopp.TabIndex = 9 - Me.cbxDeckungsstopp.Text = "Deckungsstopp" - Me.cbxDeckungsstopp.UseVisualStyleBackColor = True - ' - 'Label61 - ' - Me.Label61.AutoSize = True - Me.Label61.Location = New System.Drawing.Point(3, 330) - Me.Label61.Name = "Label61" - Me.Label61.Size = New System.Drawing.Size(62, 13) - Me.Label61.TabIndex = 38 - Me.Label61.Text = "Information:" - ' - 'txtVers_Information - ' - Me.txtVers_Information.Location = New System.Drawing.Point(6, 346) - Me.txtVers_Information.Name = "txtVers_Information" - Me.txtVers_Information.Size = New System.Drawing.Size(660, 93) - Me.txtVers_Information.TabIndex = 39 - Me.txtVers_Information.Text = "" - ' - 'Label59 - ' - Me.Label59.AutoSize = True - Me.Label59.Location = New System.Drawing.Point(281, 269) - Me.Label59.Name = "Label59" - Me.Label59.Size = New System.Drawing.Size(51, 13) - Me.Label59.TabIndex = 34 - Me.Label59.Text = "gültig bis:" - ' - 'Label57 - ' - Me.Label57.AutoSize = True - Me.Label57.Location = New System.Drawing.Point(302, 243) - Me.Label57.Name = "Label57" - Me.Label57.Size = New System.Drawing.Size(30, 13) - Me.Label57.TabIndex = 30 - Me.Label57.Text = "vom:" - ' - 'Label55 - ' - Me.Label55.AutoSize = True - Me.Label55.Location = New System.Drawing.Point(305, 65) - Me.Label55.Name = "Label55" - Me.Label55.Size = New System.Drawing.Size(30, 13) - Me.Label55.TabIndex = 5 - Me.Label55.Text = "vom:" - ' - 'Label60 - ' - Me.Label60.AutoSize = True - Me.Label60.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label60.Location = New System.Drawing.Point(3, 295) - Me.Label60.Name = "Label60" - Me.Label60.Size = New System.Drawing.Size(73, 13) - Me.Label60.TabIndex = 36 - Me.Label60.Text = "Saldo in Euro:" - ' - 'Label58 - ' - Me.Label58.AutoSize = True - Me.Label58.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label58.Location = New System.Drawing.Point(4, 269) - Me.Label58.Name = "Label58" - Me.Label58.Size = New System.Drawing.Size(103, 13) - Me.Label58.TabIndex = 32 - Me.Label58.Text = "Bankgarantiebetrag:" - ' - 'Label53 - ' - Me.Label53.AutoSize = True - Me.Label53.Location = New System.Drawing.Point(302, 217) - Me.Label53.Name = "Label53" - Me.Label53.Size = New System.Drawing.Size(30, 13) - Me.Label53.TabIndex = 26 - Me.Label53.Text = "vom:" - ' - 'Label56 - ' - Me.Label56.AutoSize = True - Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label56.Location = New System.Drawing.Point(4, 243) - Me.Label56.Name = "Label56" - Me.Label56.Size = New System.Drawing.Size(87, 13) - Me.Label56.TabIndex = 28 - Me.Label56.Text = "Keditlimit in Euro:" - ' - 'Label54 - ' - Me.Label54.AutoSize = True - Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label54.Location = New System.Drawing.Point(7, 65) - Me.Label54.Name = "Label54" - Me.Label54.Size = New System.Drawing.Size(110, 13) - Me.Label54.TabIndex = 3 - Me.Label54.Text = "Versicherungssumme:" - ' - 'Label52 - ' - Me.Label52.AutoSize = True - Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label52.Location = New System.Drawing.Point(4, 217) - Me.Label52.Name = "Label52" - Me.Label52.Size = New System.Drawing.Size(79, 13) - Me.Label52.TabIndex = 24 - Me.Label52.Text = "Antragssumme:" - ' - 'Label51 - ' - Me.Label51.AutoSize = True - Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label51.Location = New System.Drawing.Point(7, 9) - Me.Label51.Name = "Label51" - Me.Label51.Size = New System.Drawing.Size(133, 26) - Me.Label51.TabIndex = 0 - Me.Label51.Text = "Polizzennummer ACREDIA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & ":" - ' - 'tbUmsatz - ' - Me.tbUmsatz.Controls.Add(Me.Label65) - Me.tbUmsatz.Controls.Add(Me.dgvUmsatzbericht) - Me.tbUmsatz.Location = New System.Drawing.Point(4, 22) - Me.tbUmsatz.Name = "tbUmsatz" - Me.tbUmsatz.Padding = New System.Windows.Forms.Padding(3) - Me.tbUmsatz.Size = New System.Drawing.Size(672, 458) - Me.tbUmsatz.TabIndex = 3 - Me.tbUmsatz.Text = "Umsatz" - Me.tbUmsatz.UseVisualStyleBackColor = True - ' - 'Label65 - ' - Me.Label65.AutoSize = True - Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label65.Location = New System.Drawing.Point(6, 9) - Me.Label65.Name = "Label65" - Me.Label65.Size = New System.Drawing.Size(77, 13) - Me.Label65.TabIndex = 0 - Me.Label65.Text = "Umsatzbericht:" - ' - 'dgvUmsatzbericht - ' - Me.dgvUmsatzbericht.AllowUserToAddRows = False - 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 - Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White - Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) - Me.dgvUmsatzbericht.Name = "dgvUmsatzbericht" - Me.dgvUmsatzbericht.ReadOnly = True - Me.dgvUmsatzbericht.RowHeadersVisible = False - Me.dgvUmsatzbericht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUmsatzbericht.Size = New System.Drawing.Size(660, 427) - Me.dgvUmsatzbericht.TabIndex = 1 - ' - 'tbOP - ' - Me.tbOP.Controls.Add(Me.txtHoechstkredit) - Me.tbOP.Controls.Add(Me.Label69) - Me.tbOP.Controls.Add(Me.lblbon) - Me.tbOP.Controls.Add(Me.Label67) - Me.tbOP.Controls.Add(Me.Label66) - Me.tbOP.Controls.Add(Me.dgvOffenePosten) - Me.tbOP.Controls.Add(Me.txtBonitaetsDatum) - Me.tbOP.Controls.Add(Me.txtBonitaet) - Me.tbOP.Location = New System.Drawing.Point(4, 22) - Me.tbOP.Name = "tbOP" - Me.tbOP.Padding = New System.Windows.Forms.Padding(3) - Me.tbOP.Size = New System.Drawing.Size(672, 458) - Me.tbOP.TabIndex = 4 - Me.tbOP.Text = "Offene Posten" - Me.tbOP.UseVisualStyleBackColor = True - ' - 'Label69 - ' - Me.Label69.AutoSize = True - Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label69.Location = New System.Drawing.Point(514, 9) - Me.Label69.Name = "Label69" - Me.Label69.Size = New System.Drawing.Size(70, 13) - Me.Label69.TabIndex = 4 - Me.Label69.Text = "Höchstkredit:" - ' - 'lblbon - ' - Me.lblbon.AutoSize = True - Me.lblbon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblbon.Location = New System.Drawing.Point(339, 9) - Me.lblbon.Name = "lblbon" - Me.lblbon.Size = New System.Drawing.Size(77, 13) - Me.lblbon.TabIndex = 2 - Me.lblbon.Text = "Bonitätsdatum:" - ' - 'Label67 - ' - Me.Label67.AutoSize = True - Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label67.Location = New System.Drawing.Point(225, 9) - Me.Label67.Name = "Label67" - Me.Label67.Size = New System.Drawing.Size(43, 13) - Me.Label67.TabIndex = 0 - Me.Label67.Text = "Bonität:" - ' - 'Label66 - ' - Me.Label66.AutoSize = True - Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label66.Location = New System.Drawing.Point(3, 19) - Me.Label66.Name = "Label66" - Me.Label66.Size = New System.Drawing.Size(160, 13) - Me.Label66.TabIndex = 6 - Me.Label66.Text = "Debitorenkonto - Offene Posten:" - ' - 'dgvOffenePosten - ' - Me.dgvOffenePosten.AllowUserToAddRows = False - 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 - Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White - Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) - Me.dgvOffenePosten.Name = "dgvOffenePosten" - Me.dgvOffenePosten.ReadOnly = True - Me.dgvOffenePosten.RowHeadersVisible = False - Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffenePosten.Size = New System.Drawing.Size(660, 414) - Me.dgvOffenePosten.TabIndex = 7 - ' - 'tbBank - ' - Me.tbBank.Controls.Add(Me.Label21) - Me.tbBank.Controls.Add(Me.GroupBox4) - Me.tbBank.Controls.Add(Me.txtBank_Kto) - Me.tbBank.Controls.Add(Me.Label22) - Me.tbBank.Controls.Add(Me.txtBank_Blz) - Me.tbBank.Location = New System.Drawing.Point(4, 22) - Me.tbBank.Name = "tbBank" - Me.tbBank.Padding = New System.Windows.Forms.Padding(3) - Me.tbBank.Size = New System.Drawing.Size(672, 458) - Me.tbBank.TabIndex = 5 - Me.tbBank.Text = "Bankverb./Kreditkarten" - Me.tbBank.UseVisualStyleBackColor = True - ' - 'Label21 - ' - Me.Label21.AutoSize = True - Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label21.Location = New System.Drawing.Point(6, 34) - Me.Label21.Name = "Label21" - Me.Label21.Size = New System.Drawing.Size(24, 13) - Me.Label21.TabIndex = 2 - Me.Label21.Text = "BIC" - ' - 'GroupBox4 - ' - Me.GroupBox4.Controls.Add(Me.Button10) - Me.GroupBox4.Controls.Add(Me.Button9) - Me.GroupBox4.Controls.Add(Me.Button8) - Me.GroupBox4.Controls.Add(Me.Button7) - Me.GroupBox4.Controls.Add(Me.dgvKreditkarten) - Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox4.Location = New System.Drawing.Point(9, 69) - Me.GroupBox4.Name = "GroupBox4" - Me.GroupBox4.Size = New System.Drawing.Size(657, 383) - Me.GroupBox4.TabIndex = 4 - Me.GroupBox4.TabStop = False - Me.GroupBox4.Text = "Kreditkarten" - ' - 'Button10 - ' - Me.Button10.Enabled = False - Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button10.Location = New System.Drawing.Point(488, 338) - Me.Button10.Name = "Button10" - Me.Button10.Size = New System.Drawing.Size(163, 38) - Me.Button10.TabIndex = 4 - Me.Button10.Text = "Lohnrechner starten" - Me.Button10.UseVisualStyleBackColor = True - ' - 'Button9 - ' - Me.Button9.Enabled = False - Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button9.Location = New System.Drawing.Point(351, 338) - Me.Button9.Name = "Button9" - Me.Button9.Size = New System.Drawing.Size(131, 38) - Me.Button9.TabIndex = 3 - Me.Button9.Text = "Contract List" - Me.Button9.UseVisualStyleBackColor = True - ' - 'Button8 - ' - Me.Button8.Enabled = False - Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button8.Location = New System.Drawing.Point(193, 338) - Me.Button8.Name = "Button8" - Me.Button8.Size = New System.Drawing.Size(152, 38) - Me.Button8.TabIndex = 2 - Me.Button8.Text = "GO-BOX-Umstellung" - Me.Button8.UseVisualStyleBackColor = True - ' - 'Button7 - ' - Me.Button7.Enabled = False - Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Button7.Image = Global.SDL.My.Resources.Resources.plus - Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.Location = New System.Drawing.Point(9, 338) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(178, 38) - Me.Button7.TabIndex = 1 - Me.Button7.Text = "Kreditkarte hinzufügen" - Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button7.UseVisualStyleBackColor = True - ' - 'dgvKreditkarten - ' - Me.dgvKreditkarten.AllowUserToAddRows = False - 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 - 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 - 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 - 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 - 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 - 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) - Me.dgvKreditkarten.TabIndex = 0 - ' - 'txtBank_Kto - ' - Me.txtBank_Kto.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtBank_Kto.Location = New System.Drawing.Point(100, 6) - Me.txtBank_Kto.MaxLength = 8 - Me.txtBank_Kto.Name = "txtBank_Kto" - Me.txtBank_Kto.Size = New System.Drawing.Size(270, 20) - Me.txtBank_Kto.TabIndex = 3 - ' - 'Label22 - ' - Me.Label22.AutoSize = True - Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label22.Location = New System.Drawing.Point(6, 9) - Me.Label22.Name = "Label22" - Me.Label22.Size = New System.Drawing.Size(32, 13) - Me.Label22.TabIndex = 0 - Me.Label22.Text = "IBAN" - ' - 'txtBank_Blz - ' - Me.txtBank_Blz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtBank_Blz.Location = New System.Drawing.Point(100, 31) - Me.txtBank_Blz.MaxLength = 12 - Me.txtBank_Blz.Name = "txtBank_Blz" - Me.txtBank_Blz.Size = New System.Drawing.Size(270, 20) - Me.txtBank_Blz.TabIndex = 1 - ' - 'tbUmsatzsteuer - ' - Me.tbUmsatzsteuer.Controls.Add(Me.txtUStIDGeprueftAm) - Me.tbUmsatzsteuer.Controls.Add(Me.txtUStID) - Me.tbUmsatzsteuer.Controls.Add(Me.Button3) - Me.tbUmsatzsteuer.Controls.Add(Me.Label85) - Me.tbUmsatzsteuer.Controls.Add(Me.Button11) - Me.tbUmsatzsteuer.Controls.Add(Me.txtSteuernummer) - Me.tbUmsatzsteuer.Controls.Add(Me.dgvUstv_LaenderUndSteuernummern) - Me.tbUmsatzsteuer.Controls.Add(Me.Label90) - Me.tbUmsatzsteuer.Controls.Add(Me.Label19) - Me.tbUmsatzsteuer.Controls.Add(Me.Label88) - Me.tbUmsatzsteuer.Controls.Add(Me.Label89) - Me.tbUmsatzsteuer.Controls.Add(Me.Label87) - Me.tbUmsatzsteuer.Controls.Add(Me.Label86) - Me.tbUmsatzsteuer.Controls.Add(Me.btnUStVAendSpeichern) - Me.tbUmsatzsteuer.Controls.Add(Me.txtUSt_GVAusgestelltAm) - Me.tbUmsatzsteuer.Controls.Add(Me.txtUSt_GVAngefordertAm) - Me.tbUmsatzsteuer.Location = New System.Drawing.Point(4, 22) - Me.tbUmsatzsteuer.Name = "tbUmsatzsteuer" - Me.tbUmsatzsteuer.Padding = New System.Windows.Forms.Padding(3) - Me.tbUmsatzsteuer.Size = New System.Drawing.Size(672, 458) - Me.tbUmsatzsteuer.TabIndex = 6 - Me.tbUmsatzsteuer.Text = "Umsatzsteuer" - Me.tbUmsatzsteuer.UseVisualStyleBackColor = True - ' - 'txtUStID - ' - Me.txtUStID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtUStID.Location = New System.Drawing.Point(115, 6) - Me.txtUStID.Name = "txtUStID" - Me.txtUStID.ReadOnly = True - Me.txtUStID.Size = New System.Drawing.Size(159, 20) - Me.txtUStID.TabIndex = 1 - ' - 'Button3 - ' - Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.druck - Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button3.FlatAppearance.BorderSize = 0 - Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Location = New System.Drawing.Point(167, 421) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(51, 31) - Me.Button3.TabIndex = 15 - Me.Button3.UseVisualStyleBackColor = True - ' - 'Label85 - ' - Me.Label85.AutoSize = True - Me.Label85.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label85.Location = New System.Drawing.Point(6, 9) - Me.Label85.Name = "Label85" - Me.Label85.Size = New System.Drawing.Size(54, 13) - Me.Label85.TabIndex = 0 - Me.Label85.Text = "USt-Id-Nr:" - ' - 'Button11 - ' - Me.Button11.Enabled = False - Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button11.Location = New System.Drawing.Point(9, 421) - Me.Button11.Name = "Button11" - Me.Button11.Size = New System.Drawing.Size(152, 31) - Me.Button11.TabIndex = 14 - Me.Button11.Text = "UStV-Unterlagen" - Me.Button11.UseVisualStyleBackColor = True - ' - 'txtSteuernummer - ' - Me.txtSteuernummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSteuernummer.Location = New System.Drawing.Point(543, 6) - Me.txtSteuernummer.Name = "txtSteuernummer" - Me.txtSteuernummer.ReadOnly = True - Me.txtSteuernummer.Size = New System.Drawing.Size(123, 20) - Me.txtSteuernummer.TabIndex = 5 - ' - 'dgvUstv_LaenderUndSteuernummern - ' - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 - Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White - Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - 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, 321) - Me.dgvUstv_LaenderUndSteuernummern.TabIndex = 13 - ' - 'Label90 - ' - Me.Label90.AutoSize = True - Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label90.Location = New System.Drawing.Point(6, 44) - Me.Label90.Name = "Label90" - Me.Label90.Size = New System.Drawing.Size(99, 13) - Me.Label90.TabIndex = 6 - Me.Label90.Text = "GV angefordert am:" - ' - 'Label19 - ' - Me.Label19.AutoSize = True - Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label19.Location = New System.Drawing.Point(280, 9) - Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(66, 13) - Me.Label19.TabIndex = 2 - Me.Label19.Text = ", geprüft am:" - ' - 'Label88 - ' - Me.Label88.AutoSize = True - Me.Label88.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label88.Location = New System.Drawing.Point(245, 44) - Me.Label88.Name = "Label88" - Me.Label88.Size = New System.Drawing.Size(83, 13) - Me.Label88.TabIndex = 8 - Me.Label88.Text = ", ausgestellt am:" - ' - 'Label89 - ' - Me.Label89.AutoSize = True - Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label89.Location = New System.Drawing.Point(6, 78) - Me.Label89.Name = "Label89" - Me.Label89.Size = New System.Drawing.Size(366, 13) - Me.Label89.TabIndex = 12 - Me.Label89.Text = "Länder und Steuernummern für den Antrag auf Vergütung der Umsatzsteuer:" - ' - 'Label87 - ' - Me.Label87.AutoSize = True - Me.Label87.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label87.Location = New System.Drawing.Point(6, 52) - Me.Label87.Name = "Label87" - Me.Label87.Size = New System.Drawing.Size(10, 13) - Me.Label87.TabIndex = 10 - Me.Label87.Text = " " - ' - 'Label86 - ' - Me.Label86.AutoSize = True - Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label86.Location = New System.Drawing.Point(459, 9) - Me.Label86.Name = "Label86" - Me.Label86.Size = New System.Drawing.Size(78, 13) - Me.Label86.TabIndex = 4 - Me.Label86.Text = "Steuernummer:" - ' - 'tbSonstiges - ' - Me.tbSonstiges.Controls.Add(Me.Label99) - Me.tbSonstiges.Controls.Add(Me.txtCreditsafe) - Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrTOBB) - Me.tbSonstiges.Controls.Add(Me.Label96) - Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrPLOSE) - Me.tbSonstiges.Controls.Add(Me.Label83) - Me.tbSonstiges.Controls.Add(Me.Label76) - Me.tbSonstiges.Controls.Add(Me.dgvSonst_IDSKunden) - Me.tbSonstiges.Controls.Add(Me.cbxSonst_CsvAsfinag) - Me.tbSonstiges.Controls.Add(Me.cbxSonst_CsvUTA) - Me.tbSonstiges.Controls.Add(Me.cbxSonst_CsvMSE) - Me.tbSonstiges.Controls.Add(Me.cbxSonst_CsvMautbericht) - Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrUTA) - Me.tbSonstiges.Controls.Add(Me.Label75) - Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrTelepass) - Me.tbSonstiges.Controls.Add(Me.Label74) - Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrMSE) - Me.tbSonstiges.Controls.Add(Me.Label73) - Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrWOELFL) - Me.tbSonstiges.Controls.Add(Me.Label72) - Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrIDS) - Me.tbSonstiges.Controls.Add(Me.Label70) - Me.tbSonstiges.Controls.Add(Me.Label71) - Me.tbSonstiges.Controls.Add(Me.btnSonstAendSpeichern) - Me.tbSonstiges.Controls.Add(Me.cboSonst_Rechnungsdruck) - Me.tbSonstiges.Location = New System.Drawing.Point(4, 22) - Me.tbSonstiges.Name = "tbSonstiges" - Me.tbSonstiges.Padding = New System.Windows.Forms.Padding(3) - Me.tbSonstiges.Size = New System.Drawing.Size(672, 458) - Me.tbSonstiges.TabIndex = 7 - Me.tbSonstiges.Text = "Sonstiges" - Me.tbSonstiges.UseVisualStyleBackColor = True - ' - 'Label99 - ' - Me.Label99.AutoSize = True - Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label99.Location = New System.Drawing.Point(6, 34) - Me.Label99.Name = "Label99" - Me.Label99.Size = New System.Drawing.Size(68, 13) - Me.Label99.TabIndex = 24 - Me.Label99.Text = "ID Creditsafe" - ' - 'txtCreditsafe - ' - Me.txtCreditsafe.Location = New System.Drawing.Point(119, 31) - Me.txtCreditsafe.Name = "txtCreditsafe" - Me.txtCreditsafe.Size = New System.Drawing.Size(122, 20) - Me.txtCreditsafe.TabIndex = 23 - ' - 'txtSonst_KdNrTOBB - ' - Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(119, 208) - Me.txtSonst_KdNrTOBB.MaxLength = 20 - Me.txtSonst_KdNrTOBB.Name = "txtSonst_KdNrTOBB" - Me.txtSonst_KdNrTOBB.Size = New System.Drawing.Size(122, 20) - Me.txtSonst_KdNrTOBB.TabIndex = 22 - ' - 'Label96 - ' - 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(6, 211) - Me.Label96.Name = "Label96" - Me.Label96.Size = New System.Drawing.Size(83, 13) - Me.Label96.TabIndex = 21 - Me.Label96.Text = "KdNr bei TOBB:" - ' - 'txtSonst_KdNrPLOSE - ' - Me.txtSonst_KdNrPLOSE.Enabled = False - Me.txtSonst_KdNrPLOSE.Location = New System.Drawing.Point(119, 182) - Me.txtSonst_KdNrPLOSE.Name = "txtSonst_KdNrPLOSE" - Me.txtSonst_KdNrPLOSE.Size = New System.Drawing.Size(122, 20) - Me.txtSonst_KdNrPLOSE.TabIndex = 20 - ' - 'Label83 - ' - Me.Label83.AutoSize = True - Me.Label83.Enabled = False - Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label83.Location = New System.Drawing.Point(6, 185) - Me.Label83.Name = "Label83" - Me.Label83.Size = New System.Drawing.Size(89, 13) - Me.Label83.TabIndex = 19 - Me.Label83.Text = "KdNr bei PLOSE:" - ' - 'Label76 - ' - Me.Label76.AutoSize = True - Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label76.Location = New System.Drawing.Point(9, 235) - Me.Label76.Name = "Label76" - Me.Label76.Size = New System.Drawing.Size(65, 13) - Me.Label76.TabIndex = 17 - Me.Label76.Text = "IDS-Kunden" - ' - 'dgvSonst_IDSKunden - ' - Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 - Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White - Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251) - Me.dgvSonst_IDSKunden.MultiSelect = False - Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden" - Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 201) - Me.dgvSonst_IDSKunden.TabIndex = 18 - ' - 'cbxSonst_CsvAsfinag - ' - Me.cbxSonst_CsvAsfinag.AutoSize = True - Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(119, 230) - Me.cbxSonst_CsvAsfinag.Name = "cbxSonst_CsvAsfinag" - Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(264, 17) - Me.cbxSonst_CsvAsfinag.TabIndex = 15 - Me.cbxSonst_CsvAsfinag.Text = "ASFINAG-Abrechnungsdaten als CSV bereitstellen" - Me.cbxSonst_CsvAsfinag.UseVisualStyleBackColor = True - ' - 'cbxSonst_CsvUTA - ' - Me.cbxSonst_CsvUTA.AutoSize = True - Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(274, 156) - Me.cbxSonst_CsvUTA.Name = "cbxSonst_CsvUTA" - Me.cbxSonst_CsvUTA.Size = New System.Drawing.Size(240, 17) - Me.cbxSonst_CsvUTA.TabIndex = 14 - Me.cbxSonst_CsvUTA.Text = "UTA-Abrechnungsdaten als CSV bereitstellen" - Me.cbxSonst_CsvUTA.UseVisualStyleBackColor = True - ' - 'cbxSonst_CsvMSE - ' - Me.cbxSonst_CsvMSE.AutoSize = True - Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(274, 104) - Me.cbxSonst_CsvMSE.Name = "cbxSonst_CsvMSE" - Me.cbxSonst_CsvMSE.Size = New System.Drawing.Size(241, 17) - Me.cbxSonst_CsvMSE.TabIndex = 9 - Me.cbxSonst_CsvMSE.Text = "MSE-Abrechnungsdaten als CSV bereitstellen" - Me.cbxSonst_CsvMSE.UseVisualStyleBackColor = True - ' - 'cbxSonst_CsvMautbericht - ' - Me.cbxSonst_CsvMautbericht.AutoSize = True - Me.cbxSonst_CsvMautbericht.Location = New System.Drawing.Point(274, 8) - Me.cbxSonst_CsvMautbericht.Name = "cbxSonst_CsvMautbericht" - Me.cbxSonst_CsvMautbericht.Size = New System.Drawing.Size(181, 17) - Me.cbxSonst_CsvMautbericht.TabIndex = 2 - Me.cbxSonst_CsvMautbericht.Text = "Mautbericht als CSV bereitstellen" - Me.cbxSonst_CsvMautbericht.UseVisualStyleBackColor = True - ' - 'txtSonst_KdNrUTA - ' - Me.txtSonst_KdNrUTA.Location = New System.Drawing.Point(119, 156) - Me.txtSonst_KdNrUTA.Name = "txtSonst_KdNrUTA" - Me.txtSonst_KdNrUTA.Size = New System.Drawing.Size(122, 20) - Me.txtSonst_KdNrUTA.TabIndex = 13 - ' - 'Label75 - ' - Me.Label75.AutoSize = True - Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label75.Location = New System.Drawing.Point(6, 159) - Me.Label75.Name = "Label75" - Me.Label75.Size = New System.Drawing.Size(76, 13) - Me.Label75.TabIndex = 12 - Me.Label75.Text = "KdNr bei UTA:" - ' - 'txtSonst_KdNrTelepass - ' - Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(119, 130) - Me.txtSonst_KdNrTelepass.Name = "txtSonst_KdNrTelepass" - Me.txtSonst_KdNrTelepass.Size = New System.Drawing.Size(122, 20) - Me.txtSonst_KdNrTelepass.TabIndex = 11 - ' - 'Label74 - ' - 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(6, 133) - Me.Label74.Name = "Label74" - Me.Label74.Size = New System.Drawing.Size(109, 13) - Me.Label74.TabIndex = 10 - Me.Label74.Text = "KdNr bei TELEPASS:" - ' - 'txtSonst_KdNrMSE - ' - Me.txtSonst_KdNrMSE.Location = New System.Drawing.Point(119, 104) - Me.txtSonst_KdNrMSE.Name = "txtSonst_KdNrMSE" - Me.txtSonst_KdNrMSE.Size = New System.Drawing.Size(122, 20) - Me.txtSonst_KdNrMSE.TabIndex = 8 - ' - 'Label73 - ' - Me.Label73.AutoSize = True - Me.Label73.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label73.Location = New System.Drawing.Point(6, 107) - Me.Label73.Name = "Label73" - Me.Label73.Size = New System.Drawing.Size(77, 13) - Me.Label73.TabIndex = 7 - Me.Label73.Text = "KdNr bei MSE:" - ' - 'txtSonst_KdNrWOELFL - ' - Me.txtSonst_KdNrWOELFL.Location = New System.Drawing.Point(119, 78) - Me.txtSonst_KdNrWOELFL.Name = "txtSonst_KdNrWOELFL" - Me.txtSonst_KdNrWOELFL.Size = New System.Drawing.Size(122, 20) - Me.txtSonst_KdNrWOELFL.TabIndex = 6 - ' - 'Label72 - ' - Me.Label72.AutoSize = True - Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label72.Location = New System.Drawing.Point(6, 81) - Me.Label72.Name = "Label72" - Me.Label72.Size = New System.Drawing.Size(78, 13) - Me.Label72.TabIndex = 5 - Me.Label72.Text = "KdNr bei Wölfl:" - ' - 'txtSonst_KdNrIDS - ' - Me.txtSonst_KdNrIDS.Enabled = False - Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(119, 52) - Me.txtSonst_KdNrIDS.Name = "txtSonst_KdNrIDS" - Me.txtSonst_KdNrIDS.Size = New System.Drawing.Size(122, 20) - Me.txtSonst_KdNrIDS.TabIndex = 4 - ' - 'Label70 - ' - 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(6, 55) - Me.Label70.Name = "Label70" - Me.Label70.Size = New System.Drawing.Size(72, 13) - Me.Label70.TabIndex = 3 - Me.Label70.Text = "KdNr bei IDS:" - ' - 'Label71 - ' - Me.Label71.AutoSize = True - Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label71.Location = New System.Drawing.Point(6, 9) - Me.Label71.Name = "Label71" - Me.Label71.Size = New System.Drawing.Size(92, 13) - Me.Label71.TabIndex = 0 - Me.Label71.Text = "Rechnungsdruck:" - ' - 'tbSchnittstellen - ' - Me.tbSchnittstellen.Controls.Add(Me.txtVERAG_Schnittstellen_ID) - Me.tbSchnittstellen.Controls.Add(Me.Label91) - Me.tbSchnittstellen.Controls.Add(Me.Label92) - Me.tbSchnittstellen.Controls.Add(Me.DataGridView1) - Me.tbSchnittstellen.Location = New System.Drawing.Point(4, 22) - Me.tbSchnittstellen.Name = "tbSchnittstellen" - Me.tbSchnittstellen.Padding = New System.Windows.Forms.Padding(3) - Me.tbSchnittstellen.Size = New System.Drawing.Size(672, 458) - Me.tbSchnittstellen.TabIndex = 10 - Me.tbSchnittstellen.Text = "Schnittstellen" - Me.tbSchnittstellen.UseVisualStyleBackColor = True - ' - 'txtVERAG_Schnittstellen_ID - ' - Me.txtVERAG_Schnittstellen_ID.Enabled = False - Me.txtVERAG_Schnittstellen_ID.Location = New System.Drawing.Point(131, 17) - Me.txtVERAG_Schnittstellen_ID.Name = "txtVERAG_Schnittstellen_ID" - Me.txtVERAG_Schnittstellen_ID.Size = New System.Drawing.Size(122, 20) - Me.txtVERAG_Schnittstellen_ID.TabIndex = 24 - ' - 'Label91 - ' - Me.Label91.AutoSize = True - Me.Label91.Enabled = False - Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label91.Location = New System.Drawing.Point(6, 20) - Me.Label91.Name = "Label91" - Me.Label91.Size = New System.Drawing.Size(119, 13) - Me.Label91.TabIndex = 23 - Me.Label91.Text = "VERAG Schnittellen-ID:" - ' - 'Label92 - ' - Me.Label92.AutoSize = True - Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label92.Location = New System.Drawing.Point(6, 77) - Me.Label92.Name = "Label92" - Me.Label92.Size = New System.Drawing.Size(110, 13) - Me.Label92.TabIndex = 21 - Me.Label92.Text = "VERAG-Schnittstellen" - ' - 'DataGridView1 - ' - Me.DataGridView1.AllowUserToResizeRows = False - DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 - Me.DataGridView1.BackgroundColor = System.Drawing.Color.White - Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.DataGridView1.Enabled = False - Me.DataGridView1.Location = New System.Drawing.Point(9, 93) - Me.DataGridView1.MultiSelect = False - Me.DataGridView1.Name = "DataGridView1" - Me.DataGridView1.Size = New System.Drawing.Size(657, 358) - Me.DataGridView1.TabIndex = 22 - ' - 'Label33 - ' - Me.Label33.AutoSize = True - Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label33.Location = New System.Drawing.Point(8, 157) - Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(78, 13) - Me.Label33.TabIndex = 12 - Me.Label33.Text = "EORI / NL-Nr.:" - ' - 'Label84 - ' - Me.Label84.AutoSize = True - Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label84.Location = New System.Drawing.Point(259, 104) - Me.Label84.Name = "Label84" - Me.Label84.Size = New System.Drawing.Size(66, 13) - Me.Label84.TabIndex = 8 - Me.Label84.Text = ", geprüft am:" - ' - 'GroupBox3 - ' - Me.GroupBox3.Controls.Add(Me.btnCreditsafe) - Me.GroupBox3.Controls.Add(Me.Button13) - Me.GroupBox3.Controls.Add(Me.btnUIDPruef) - Me.GroupBox3.Controls.Add(Me.txtEORINL) - Me.GroupBox3.Controls.Add(Me.Label5) - Me.GroupBox3.Controls.Add(Me.txtEORI) - Me.GroupBox3.Controls.Add(Me.Label33) - Me.GroupBox3.Controls.Add(Me.txtFirmenname1) - Me.GroupBox3.Controls.Add(Me.cboUSt_UstIdNrLand) - Me.GroupBox3.Controls.Add(Me.Label15) - Me.GroupBox3.Controls.Add(Me.Label3) - Me.GroupBox3.Controls.Add(Me.txtUSt_UstIdNrGeprueftAm) - Me.GroupBox3.Controls.Add(Me.txtKurzname) - Me.GroupBox3.Controls.Add(Me.txtUSt_UstIdNr) - Me.GroupBox3.Controls.Add(Me.txtFirmenname2) - Me.GroupBox3.Controls.Add(Me.Label16) - Me.GroupBox3.Controls.Add(Me.txtUSt_Steuernummer) - Me.GroupBox3.Controls.Add(Me.Label84) - Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox3.Location = New System.Drawing.Point(3, 3) - Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Size = New System.Drawing.Size(453, 182) - Me.GroupBox3.TabIndex = 0 - Me.GroupBox3.TabStop = False - Me.GroupBox3.Text = "Firma" - ' - 'btnCreditsafe - ' - Me.btnCreditsafe.BackgroundImage = Global.SDL.My.Resources.Resources.plus - Me.btnCreditsafe.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center - Me.btnCreditsafe.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnCreditsafe.Location = New System.Drawing.Point(15, 64) - Me.btnCreditsafe.Name = "btnCreditsafe" - Me.btnCreditsafe.Size = New System.Drawing.Size(38, 31) - Me.btnCreditsafe.TabIndex = 25 - Me.btnCreditsafe.UseVisualStyleBackColor = True - Me.btnCreditsafe.Visible = False - ' - 'Button13 - ' - Me.Button13.BackgroundImage = Global.SDL.My.Resources.Resources.list - Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button13.FlatAppearance.BorderSize = 0 - Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button13.Location = New System.Drawing.Point(419, 101) - Me.Button13.Name = "Button13" - Me.Button13.Size = New System.Drawing.Size(25, 20) - Me.Button13.TabIndex = 16 - Me.Button13.UseVisualStyleBackColor = True - ' - 'btnUIDPruef - ' - Me.btnUIDPruef.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen - Me.btnUIDPruef.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnUIDPruef.FlatAppearance.BorderSize = 0 - Me.btnUIDPruef.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUIDPruef.Location = New System.Drawing.Point(397, 101) - Me.btnUIDPruef.Name = "btnUIDPruef" - Me.btnUIDPruef.Size = New System.Drawing.Size(25, 20) - Me.btnUIDPruef.TabIndex = 15 - Me.btnUIDPruef.UseVisualStyleBackColor = True - Me.btnUIDPruef.Visible = False - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(6, 19) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(57, 13) - Me.Label5.TabIndex = 0 - Me.Label5.Text = "Kurzname:" - ' - 'txtFirmenname1 - ' - Me.txtFirmenname1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtFirmenname1.Location = New System.Drawing.Point(110, 42) - Me.txtFirmenname1.MaxLength = 40 - Me.txtFirmenname1.Name = "txtFirmenname1" - Me.txtFirmenname1.Size = New System.Drawing.Size(334, 20) - Me.txtFirmenname1.TabIndex = 3 - ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label15.Location = New System.Drawing.Point(8, 104) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(39, 13) - Me.Label15.TabIndex = 5 - Me.Label15.Text = "UStID:" - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(6, 45) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(67, 13) - Me.Label3.TabIndex = 2 - Me.Label3.Text = "Firmenname:" - ' - 'txtKurzname - ' - Me.txtKurzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtKurzname.Location = New System.Drawing.Point(110, 16) - Me.txtKurzname.MaxLength = 50 - Me.txtKurzname.Name = "txtKurzname" - Me.txtKurzname.Size = New System.Drawing.Size(334, 20) - Me.txtKurzname.TabIndex = 1 - ' - 'txtFirmenname2 - ' - Me.txtFirmenname2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtFirmenname2.Location = New System.Drawing.Point(110, 68) - Me.txtFirmenname2.MaxLength = 40 - Me.txtFirmenname2.Name = "txtFirmenname2" - Me.txtFirmenname2.Size = New System.Drawing.Size(334, 20) - Me.txtFirmenname2.TabIndex = 4 - ' - 'Label16 - ' - Me.Label16.AutoSize = True - Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label16.Location = New System.Drawing.Point(6, 131) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(78, 13) - Me.Label16.TabIndex = 10 - Me.Label16.Text = "Steuernummer:" - ' - 'GroupBox1 - ' - Me.GroupBox1.Controls.Add(Me.cbxLandKz) - Me.GroupBox1.Controls.Add(Me.Label14) - Me.GroupBox1.Controls.Add(Me.txtPostfachOrt) - Me.GroupBox1.Controls.Add(Me.txtOrt) - Me.GroupBox1.Controls.Add(Me.Label12) - Me.GroupBox1.Controls.Add(Me.txtPostfachPlz) - Me.GroupBox1.Controls.Add(Me.txtPlz) - Me.GroupBox1.Controls.Add(Me.Label4) - Me.GroupBox1.Controls.Add(Me.txtStrasse) - Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox1.Location = New System.Drawing.Point(3, 183) - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(453, 102) - Me.GroupBox1.TabIndex = 1 - Me.GroupBox1.TabStop = False - Me.GroupBox1.Text = "Adresse" - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label14.Location = New System.Drawing.Point(6, 78) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(100, 13) - Me.Label14.TabIndex = 6 - Me.Label14.Text = "Postfach PLZ / Ort:" - ' - 'txtPostfachOrt - ' - Me.txtPostfachOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPostfachOrt.Location = New System.Drawing.Point(232, 75) - Me.txtPostfachOrt.MaxLength = 40 - Me.txtPostfachOrt.Name = "txtPostfachOrt" - Me.txtPostfachOrt.Size = New System.Drawing.Size(212, 20) - Me.txtPostfachOrt.TabIndex = 8 - ' - 'txtOrt - ' - Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOrt.Location = New System.Drawing.Point(232, 49) - Me.txtOrt.MaxLength = 40 - Me.txtOrt.Name = "txtOrt" - Me.txtOrt.Size = New System.Drawing.Size(212, 20) - Me.txtOrt.TabIndex = 5 - ' - 'Label12 - ' - Me.Label12.AutoSize = True - Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label12.Location = New System.Drawing.Point(6, 52) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(90, 13) - Me.Label12.TabIndex = 2 - Me.Label12.Text = "Land / PLZ / Ort:" - ' - 'txtPostfachPlz - ' - Me.txtPostfachPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 75) - Me.txtPostfachPlz.MaxLength = 7 - Me.txtPostfachPlz.Name = "txtPostfachPlz" - Me.txtPostfachPlz.Size = New System.Drawing.Size(116, 20) - Me.txtPostfachPlz.TabIndex = 7 - ' - 'txtPlz - ' - Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPlz.Location = New System.Drawing.Point(155, 49) - Me.txtPlz.MaxLength = 7 - Me.txtPlz.Name = "txtPlz" - Me.txtPlz.Size = New System.Drawing.Size(71, 20) - Me.txtPlz.TabIndex = 4 - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(6, 25) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(41, 13) - Me.Label4.TabIndex = 0 - Me.Label4.Text = "Straße:" - ' - 'txtStrasse - ' - Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtStrasse.Location = New System.Drawing.Point(110, 22) - Me.txtStrasse.MaxLength = 40 - Me.txtStrasse.Name = "txtStrasse" - Me.txtStrasse.Size = New System.Drawing.Size(334, 20) - Me.txtStrasse.TabIndex = 1 - ' - 'txtAnsprechpartnerAnrede - ' - Me.txtAnsprechpartnerAnrede.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAnsprechpartnerAnrede.Location = New System.Drawing.Point(107, 148) - Me.txtAnsprechpartnerAnrede.MaxLength = 4 - Me.txtAnsprechpartnerAnrede.Name = "txtAnsprechpartnerAnrede" - Me.txtAnsprechpartnerAnrede.Size = New System.Drawing.Size(55, 20) - Me.txtAnsprechpartnerAnrede.TabIndex = 11 - ' - 'Label20 - ' - Me.Label20.AutoSize = True - Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label20.Location = New System.Drawing.Point(3, 66) - Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(67, 13) - Me.Label20.TabIndex = 4 - Me.Label20.Text = "Mobiltelefon:" - ' - 'txtMobil - ' - Me.txtMobil.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtMobil.Location = New System.Drawing.Point(107, 63) - Me.txtMobil.MaxLength = 50 - Me.txtMobil.Name = "txtMobil" - Me.txtMobil.Size = New System.Drawing.Size(333, 20) - Me.txtMobil.TabIndex = 5 - ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label10.Location = New System.Drawing.Point(3, 151) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(88, 13) - Me.Label10.TabIndex = 10 - Me.Label10.Text = "Ansprechpartner:" - ' - 'txtAnsprechpartner - ' - Me.txtAnsprechpartner.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAnsprechpartner.Location = New System.Drawing.Point(168, 148) - Me.txtAnsprechpartner.MaxLength = 40 - Me.txtAnsprechpartner.Name = "txtAnsprechpartner" - Me.txtAnsprechpartner.Size = New System.Drawing.Size(272, 20) - Me.txtAnsprechpartner.TabIndex = 12 - ' - 'Label13 - ' - Me.Label13.AutoSize = True - Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label13.Location = New System.Drawing.Point(3, 123) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(39, 13) - Me.Label13.TabIndex = 8 - Me.Label13.Text = "E-Mail:" - ' - 'Label11 - ' - Me.Label11.AutoSize = True - Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label11.Location = New System.Drawing.Point(3, 97) - Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(39, 13) - Me.Label11.TabIndex = 6 - Me.Label11.Text = "E-Mail:" - ' - 'txtEmail2 - ' - Me.txtEmail2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtEmail2.Location = New System.Drawing.Point(107, 120) - Me.txtEmail2.MaxLength = 40 - Me.txtEmail2.Name = "txtEmail2" - Me.txtEmail2.Size = New System.Drawing.Size(333, 20) - Me.txtEmail2.TabIndex = 9 - ' - 'txtEmail - ' - Me.txtEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtEmail.Location = New System.Drawing.Point(107, 94) - Me.txtEmail.MaxLength = 40 - Me.txtEmail.Name = "txtEmail" - Me.txtEmail.Size = New System.Drawing.Size(333, 20) - Me.txtEmail.TabIndex = 7 - ' - 'Label7 - ' - Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.Location = New System.Drawing.Point(3, 40) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(27, 13) - Me.Label7.TabIndex = 2 - Me.Label7.Text = "Fax:" - ' - 'txtFax - ' - Me.txtFax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtFax.Location = New System.Drawing.Point(107, 37) - Me.txtFax.MaxLength = 20 - Me.txtFax.Name = "txtFax" - Me.txtFax.Size = New System.Drawing.Size(333, 20) - Me.txtFax.TabIndex = 3 - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label9.Location = New System.Drawing.Point(3, 14) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(46, 13) - Me.Label9.TabIndex = 0 - Me.Label9.Text = "Telefon:" - ' - 'txtTel - ' - Me.txtTel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtTel.Location = New System.Drawing.Point(107, 11) - Me.txtTel.MaxLength = 20 - Me.txtTel.Name = "txtTel" - Me.txtTel.Size = New System.Drawing.Size(333, 20) - Me.txtTel.TabIndex = 1 - ' - 'btnFirmendatenFormularSpeichern - ' - Me.btnFirmendatenFormularSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(1081, 503) - Me.btnFirmendatenFormularSpeichern.Name = "btnFirmendatenFormularSpeichern" - Me.btnFirmendatenFormularSpeichern.Size = New System.Drawing.Size(71, 52) - Me.btnFirmendatenFormularSpeichern.TabIndex = 16 - Me.btnFirmendatenFormularSpeichern.Text = "Speichern" - Me.btnFirmendatenFormularSpeichern.UseVisualStyleBackColor = True - ' - 'lblSachbearbeiter - ' - Me.lblSachbearbeiter.AutoSize = True - Me.lblSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblSachbearbeiter.Location = New System.Drawing.Point(131, 525) - Me.lblSachbearbeiter.Name = "lblSachbearbeiter" - Me.lblSachbearbeiter.Size = New System.Drawing.Size(10, 13) - Me.lblSachbearbeiter.TabIndex = 13 - Me.lblSachbearbeiter.Text = "-" - ' - 'lblErfassung - ' - Me.lblErfassung.AutoSize = True - Me.lblErfassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblErfassung.Location = New System.Drawing.Point(130, 499) - Me.lblErfassung.Name = "lblErfassung" - Me.lblErfassung.Size = New System.Drawing.Size(10, 13) - Me.lblErfassung.TabIndex = 5 - Me.lblErfassung.Text = "-" - ' - 'lblAenderung - ' - Me.lblAenderung.AutoSize = True - Me.lblAenderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAenderung.Location = New System.Drawing.Point(131, 512) - Me.lblAenderung.Name = "lblAenderung" - Me.lblAenderung.Size = New System.Drawing.Size(10, 13) - Me.lblAenderung.TabIndex = 11 - Me.lblAenderung.Text = "-" - ' - 'Label26 - ' - Me.Label26.AutoSize = True - Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label26.Location = New System.Drawing.Point(10, 525) - Me.Label26.Name = "Label26" - Me.Label26.Size = New System.Drawing.Size(117, 13) - Me.Label26.TabIndex = 12 - Me.Label26.Text = "Letzter Sachbearbeiter:" - ' - 'Label25 - ' - Me.Label25.AutoSize = True - Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label25.Location = New System.Drawing.Point(9, 499) - Me.Label25.Name = "Label25" - Me.Label25.Size = New System.Drawing.Size(91, 13) - Me.Label25.TabIndex = 4 - Me.Label25.Text = "Erfassungsdatum:" - ' - 'Label23 - ' - Me.Label23.AutoSize = True - Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label23.Location = New System.Drawing.Point(10, 512) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(90, 13) - Me.Label23.TabIndex = 10 - Me.Label23.Text = "Änderungsdatum:" - ' - 'Button1 - ' - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(573, 509) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(98, 38) - Me.Button1.TabIndex = 14 - Me.Button1.Text = "Kundenstamm jetzt übertragen" - Me.Button1.UseVisualStyleBackColor = True - Me.Button1.Visible = False - ' - 'Label28 - ' - Me.Label28.AutoSize = True - Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label28.Location = New System.Drawing.Point(585, 550) - Me.Label28.Name = "Label28" - Me.Label28.Size = New System.Drawing.Size(10, 13) - Me.Label28.TabIndex = 9 - Me.Label28.Text = "-" - Me.Label28.Visible = False - ' - 'Label29 - ' - Me.Label29.AutoSize = True - Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label29.Location = New System.Drawing.Point(567, 493) - Me.Label29.Name = "Label29" - Me.Label29.Size = New System.Drawing.Size(109, 13) - Me.Label29.TabIndex = 8 - Me.Label29.Text = "Übertrag in DAKOSY:" - Me.Label29.Visible = False - ' - 'tbKontakt - ' - Me.tbKontakt.Controls.Add(Me.TabPage10) - Me.tbKontakt.Controls.Add(Me.TabPage11) - Me.tbKontakt.Location = New System.Drawing.Point(3, 286) - Me.tbKontakt.Name = "tbKontakt" - Me.tbKontakt.SelectedIndex = 0 - Me.tbKontakt.Size = New System.Drawing.Size(453, 201) - Me.tbKontakt.TabIndex = 2 - ' - 'TabPage10 - ' - Me.TabPage10.Controls.Add(Me.txtAnsprechpartnerAnrede) - Me.TabPage10.Controls.Add(Me.Label9) - Me.TabPage10.Controls.Add(Me.Label20) - Me.TabPage10.Controls.Add(Me.txtTel) - Me.TabPage10.Controls.Add(Me.txtMobil) - Me.TabPage10.Controls.Add(Me.txtFax) - Me.TabPage10.Controls.Add(Me.Label10) - Me.TabPage10.Controls.Add(Me.Label7) - Me.TabPage10.Controls.Add(Me.txtAnsprechpartner) - Me.TabPage10.Controls.Add(Me.txtEmail) - Me.TabPage10.Controls.Add(Me.Label13) - Me.TabPage10.Controls.Add(Me.txtEmail2) - Me.TabPage10.Controls.Add(Me.Label11) - Me.TabPage10.Location = New System.Drawing.Point(4, 22) - Me.TabPage10.Name = "TabPage10" - Me.TabPage10.Size = New System.Drawing.Size(445, 175) - Me.TabPage10.TabIndex = 2 - Me.TabPage10.Text = "Kontakt" - Me.TabPage10.UseVisualStyleBackColor = True - ' - 'TabPage11 - ' - Me.TabPage11.Controls.Add(Me.ucKundenKontakte) - Me.TabPage11.Location = New System.Drawing.Point(4, 22) - Me.TabPage11.Name = "TabPage11" - Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage11.Size = New System.Drawing.Size(445, 175) - Me.TabPage11.TabIndex = 3 - Me.TabPage11.Text = "Spezifisch" - Me.TabPage11.UseVisualStyleBackColor = True - ' - 'Label50 - ' - Me.Label50.AutoSize = True - Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label50.Location = New System.Drawing.Point(6, 16) - Me.Label50.Name = "Label50" - Me.Label50.Size = New System.Drawing.Size(92, 13) - Me.Label50.TabIndex = 0 - Me.Label50.Text = "Zuständige Filiale:" - ' - 'Label68 - ' - Me.Label68.AutoSize = True - Me.Label68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label68.Location = New System.Drawing.Point(6, 46) - Me.Label68.Name = "Label68" - Me.Label68.Size = New System.Drawing.Size(69, 13) - Me.Label68.TabIndex = 2 - Me.Label68.Text = "Kundenkreis:" - ' - 'pnlNeukunde - ' - Me.pnlNeukunde.Controls.Add(Me.Button2) - Me.pnlNeukunde.Controls.Add(Me.Label50) - Me.pnlNeukunde.Controls.Add(Me.cboFiliale) - Me.pnlNeukunde.Controls.Add(Me.cboKundenkreis) - Me.pnlNeukunde.Controls.Add(Me.Label68) - Me.pnlNeukunde.Location = New System.Drawing.Point(776, 493) - Me.pnlNeukunde.Name = "pnlNeukunde" - Me.pnlNeukunde.Size = New System.Drawing.Size(303, 74) - Me.pnlNeukunde.TabIndex = 15 - Me.pnlNeukunde.Visible = False - ' - 'Button2 - ' - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.Location = New System.Drawing.Point(194, 7) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(105, 30) - Me.Button2.TabIndex = 19 - Me.Button2.Text = "Wunsch-KdNr" - Me.Button2.UseVisualStyleBackColor = True - ' - 'Label77 - ' - Me.Label77.AutoSize = True - Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label77.Location = New System.Drawing.Point(780, 534) - Me.Label77.Name = "Label77" - Me.Label77.Size = New System.Drawing.Size(64, 13) - Me.Label77.TabIndex = 6 - Me.Label77.Text = "Kunden-Nr.:" - ' - 'lblKundennr - ' - Me.lblKundennr.AutoSize = True - Me.lblKundennr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblKundennr.Location = New System.Drawing.Point(850, 532) - Me.lblKundennr.Name = "lblKundennr" - Me.lblKundennr.Size = New System.Drawing.Size(14, 17) - Me.lblKundennr.TabIndex = 7 - Me.lblKundennr.Text = "-" - ' - 'Label79 - ' - Me.Label79.AutoSize = True - Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label79.Location = New System.Drawing.Point(780, 504) - Me.Label79.Name = "Label79" - Me.Label79.Size = New System.Drawing.Size(40, 13) - Me.Label79.TabIndex = 4 - Me.Label79.Text = "Status:" - ' - 'Label80 - ' - Me.Label80.AutoSize = True - Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label80.Location = New System.Drawing.Point(278, 504) - Me.Label80.Name = "Label80" - Me.Label80.Size = New System.Drawing.Size(59, 13) - Me.Label80.TabIndex = 4 - Me.Label80.Text = "Firma FiBu:" - ' - 'cbxFiBu - ' - Me.cbxFiBu.AutoSize = True - Me.cbxFiBu.Enabled = False - Me.cbxFiBu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxFiBu.Location = New System.Drawing.Point(400, 503) - Me.cbxFiBu.Name = "cbxFiBu" - Me.cbxFiBu.Size = New System.Drawing.Size(47, 17) - Me.cbxFiBu.TabIndex = 17 - Me.cbxFiBu.Text = "FiBu" - Me.cbxFiBu.UseVisualStyleBackColor = True - ' - 'cbxFiBuLG - ' - Me.cbxFiBuLG.AutoSize = True - Me.cbxFiBuLG.Enabled = False - Me.cbxFiBuLG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxFiBuLG.Location = New System.Drawing.Point(400, 524) - Me.cbxFiBuLG.Name = "cbxFiBuLG" - Me.cbxFiBuLG.Size = New System.Drawing.Size(64, 17) - Me.cbxFiBuLG.TabIndex = 18 - Me.cbxFiBuLG.Text = "FiBu LG" - Me.cbxFiBuLG.UseVisualStyleBackColor = True - Me.cbxFiBuLG.Visible = False - ' - 'Label97 - ' - Me.Label97.AutoSize = True - Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label97.Location = New System.Drawing.Point(463, 493) - Me.Label97.Name = "Label97" - Me.Label97.Size = New System.Drawing.Size(100, 13) - Me.Label97.TabIndex = 19 - Me.Label97.Text = "Übertrag in SYSKA:" - Me.Label97.Visible = False - ' - 'Button4 - ' - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.Location = New System.Drawing.Point(466, 509) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(101, 38) - Me.Button4.TabIndex = 21 - Me.Button4.Text = "Kundenstamm jetzt übertragen" - Me.Button4.UseVisualStyleBackColor = True - Me.Button4.Visible = False - ' - 'CheckBox1 - ' - Me.CheckBox1.AutoSize = True - Me.CheckBox1.Checked = True - Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CheckBox1.Location = New System.Drawing.Point(466, 549) - Me.CheckBox1.Name = "CheckBox1" - Me.CheckBox1.Size = New System.Drawing.Size(101, 17) - Me.CheckBox1.TabIndex = 22 - Me.CheckBox1.Text = "zuvor speichern" - Me.CheckBox1.UseVisualStyleBackColor = True - Me.CheckBox1.Visible = False - ' - 'txtERROR - ' - Me.txtERROR.BackColor = System.Drawing.SystemColors.Window - Me.txtERROR.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtERROR.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtERROR.ForeColor = System.Drawing.Color.Red - Me.txtERROR.Location = New System.Drawing.Point(13, 540) - Me.txtERROR.MaxLength = 9999 - Me.txtERROR.Multiline = True - Me.txtERROR.Name = "txtERROR" - Me.txtERROR.Size = New System.Drawing.Size(443, 30) - Me.txtERROR.TabIndex = 17 - ' - 'btnDatevExport - ' - Me.btnDatevExport.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDatevExport.Location = New System.Drawing.Point(678, 509) - Me.btnDatevExport.Name = "btnDatevExport" - Me.btnDatevExport.Size = New System.Drawing.Size(93, 38) - Me.btnDatevExport.TabIndex = 23 - Me.btnDatevExport.Text = "Kundenstamm jetzt übertragen" - Me.btnDatevExport.UseVisualStyleBackColor = True - Me.btnDatevExport.Visible = False - ' - 'Label98 - ' - Me.Label98.AutoSize = True - Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label98.Location = New System.Drawing.Point(675, 493) - Me.Label98.Name = "Label98" - Me.Label98.Size = New System.Drawing.Size(101, 13) - Me.Label98.TabIndex = 24 - Me.Label98.Text = "Übertrag in DATEV:" - Me.Label98.Visible = False - ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.cboFiliale.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboFiliale.DropDownWidth = 400 - Me.cboFiliale.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(104, 8) - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(84, 28) - Me.cboFiliale.TabIndex = 1 - ' - 'cboKundenkreis - ' - Me.cboKundenkreis._allowedValuesFreiText = Nothing - Me.cboKundenkreis._allowFreiText = False - Me.cboKundenkreis._value = "" - Me.cboKundenkreis.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.cboKundenkreis.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboKundenkreis.DropDownWidth = 400 - Me.cboKundenkreis.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboKundenkreis.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboKundenkreis.FormattingEnabled = True - Me.cboKundenkreis.Items.AddRange(New Object() {"", "100000-199999: XXXXXX", "200000-299999: XXXXXX", "300000-399999: XXXXXX", "400000-499999: XXXXXX", "500000-599999: XXXXXX", "600000-699999: XXXXXX", "700000-799999: XXXXXX", "800000-899999: XXXXXX", "900000-999999: XXXXXX"}) - Me.cboKundenkreis.Location = New System.Drawing.Point(104, 38) - Me.cboKundenkreis.Name = "cboKundenkreis" - Me.cboKundenkreis.Size = New System.Drawing.Size(195, 28) - Me.cboKundenkreis.TabIndex = 3 - ' - 'cboFirma - ' - Me.cboFirma._allowedValuesFreiText = Nothing - Me.cboFirma._allowFreiText = False - Me.cboFirma._value = "" - Me.cboFirma.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.cboFirma.DropDownHeight = 350 - Me.cboFirma.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboFirma.DropDownWidth = 400 - Me.cboFirma.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFirma.FormattingEnabled = True - Me.cboFirma.IntegralHeight = False - Me.cboFirma.Location = New System.Drawing.Point(342, 496) - Me.cboFirma.Name = "cboFirma" - Me.cboFirma.Size = New System.Drawing.Size(49, 28) - Me.cboFirma.TabIndex = 5 - ' - 'ucKundenKontakte - ' - Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill - Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) - Me.ucKundenKontakte.Name = "ucKundenKontakte" - Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169) - Me.ucKundenKontakte.TabIndex = 0 - ' - 'cboAuswahl - ' - Me.cboAuswahl._allowedValuesFreiText = Nothing - Me.cboAuswahl._allowFreiText = False - Me.cboAuswahl._value = "" - Me.cboAuswahl.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.cboAuswahl.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboAuswahl.DropDownWidth = 400 - Me.cboAuswahl.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboAuswahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboAuswahl.FormattingEnabled = True - Me.cboAuswahl.Location = New System.Drawing.Point(826, 496) - Me.cboAuswahl.Name = "cboAuswahl" - Me.cboAuswahl.Size = New System.Drawing.Size(124, 28) - Me.cboAuswahl.TabIndex = 5 - ' - 'txtAbf_Planzahl - ' - Me.txtAbf_Planzahl._DateTimeOnly = False - Me.txtAbf_Planzahl._numbersOnly = False - Me.txtAbf_Planzahl._numbersOnlyKommastellen = "" - Me.txtAbf_Planzahl._numbersOnlyTrennzeichen = True - Me.txtAbf_Planzahl._Prozent = False - Me.txtAbf_Planzahl._ShortDateNew = False - Me.txtAbf_Planzahl._ShortDateOnly = False - Me.txtAbf_Planzahl._TimeOnly = False - Me.txtAbf_Planzahl._TimeOnly_Seconds = False - Me.txtAbf_Planzahl._value = Nothing - Me.txtAbf_Planzahl._Waehrung = False - Me.txtAbf_Planzahl._WaehrungZeichen = True - Me.txtAbf_Planzahl.ForeColor = System.Drawing.Color.Black - Me.txtAbf_Planzahl.Location = New System.Drawing.Point(526, 248) - Me.txtAbf_Planzahl.MaxLineLength = -1 - Me.txtAbf_Planzahl.MaxLines_Warning = "" - Me.txtAbf_Planzahl.MaxLines_Warning_Label = Nothing - Me.txtAbf_Planzahl.Name = "txtAbf_Planzahl" - Me.txtAbf_Planzahl.Size = New System.Drawing.Size(60, 20) - Me.txtAbf_Planzahl.TabIndex = 15 - ' - 'UsrCntlKundenBesonderheiten1 - ' - Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25) - Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" - Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) - Me.UsrCntlKundenBesonderheiten1.TabIndex = 235 - Me.UsrCntlKundenBesonderheiten1.Visible = False - ' - 'UsrCntlKundenAvisoMailBenachrichtigung1 - ' - Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6 - ' - 'txtAbfVerb_RechtsanwaltSeit - ' - Me.txtAbfVerb_RechtsanwaltSeit._DateTimeOnly = False - Me.txtAbfVerb_RechtsanwaltSeit._numbersOnly = False - Me.txtAbfVerb_RechtsanwaltSeit._numbersOnlyKommastellen = "" - Me.txtAbfVerb_RechtsanwaltSeit._numbersOnlyTrennzeichen = True - Me.txtAbfVerb_RechtsanwaltSeit._Prozent = False - Me.txtAbfVerb_RechtsanwaltSeit._ShortDateNew = True - Me.txtAbfVerb_RechtsanwaltSeit._ShortDateOnly = False - Me.txtAbfVerb_RechtsanwaltSeit._TimeOnly = False - Me.txtAbfVerb_RechtsanwaltSeit._TimeOnly_Seconds = False - Me.txtAbfVerb_RechtsanwaltSeit._value = "" - Me.txtAbfVerb_RechtsanwaltSeit._Waehrung = False - Me.txtAbfVerb_RechtsanwaltSeit._WaehrungZeichen = True - Me.txtAbfVerb_RechtsanwaltSeit.Enabled = False - Me.txtAbfVerb_RechtsanwaltSeit.ForeColor = System.Drawing.Color.Red - Me.txtAbfVerb_RechtsanwaltSeit.Location = New System.Drawing.Point(173, 33) - Me.txtAbfVerb_RechtsanwaltSeit.MaxLength = 10 - Me.txtAbfVerb_RechtsanwaltSeit.MaxLineLength = -1 - Me.txtAbfVerb_RechtsanwaltSeit.MaxLines_Warning = "" - Me.txtAbfVerb_RechtsanwaltSeit.MaxLines_Warning_Label = Nothing - Me.txtAbfVerb_RechtsanwaltSeit.Name = "txtAbfVerb_RechtsanwaltSeit" - Me.txtAbfVerb_RechtsanwaltSeit.Size = New System.Drawing.Size(60, 20) - Me.txtAbfVerb_RechtsanwaltSeit.TabIndex = 6 - Me.txtAbfVerb_RechtsanwaltSeit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtAbfVerb_AbfertigungsverbotSeit - ' - Me.txtAbfVerb_AbfertigungsverbotSeit._DateTimeOnly = False - Me.txtAbfVerb_AbfertigungsverbotSeit._numbersOnly = False - Me.txtAbfVerb_AbfertigungsverbotSeit._numbersOnlyKommastellen = "" - Me.txtAbfVerb_AbfertigungsverbotSeit._numbersOnlyTrennzeichen = True - Me.txtAbfVerb_AbfertigungsverbotSeit._Prozent = False - Me.txtAbfVerb_AbfertigungsverbotSeit._ShortDateNew = True - Me.txtAbfVerb_AbfertigungsverbotSeit._ShortDateOnly = True - Me.txtAbfVerb_AbfertigungsverbotSeit._TimeOnly = False - Me.txtAbfVerb_AbfertigungsverbotSeit._TimeOnly_Seconds = False - Me.txtAbfVerb_AbfertigungsverbotSeit._value = "" - Me.txtAbfVerb_AbfertigungsverbotSeit._Waehrung = False - Me.txtAbfVerb_AbfertigungsverbotSeit._WaehrungZeichen = True - Me.txtAbfVerb_AbfertigungsverbotSeit.Enabled = False - Me.txtAbfVerb_AbfertigungsverbotSeit.ForeColor = System.Drawing.Color.Red - Me.txtAbfVerb_AbfertigungsverbotSeit.Location = New System.Drawing.Point(173, 7) - Me.txtAbfVerb_AbfertigungsverbotSeit.MaxLength = 10 - Me.txtAbfVerb_AbfertigungsverbotSeit.MaxLineLength = -1 - Me.txtAbfVerb_AbfertigungsverbotSeit.MaxLines_Warning = "" - Me.txtAbfVerb_AbfertigungsverbotSeit.MaxLines_Warning_Label = Nothing - Me.txtAbfVerb_AbfertigungsverbotSeit.Name = "txtAbfVerb_AbfertigungsverbotSeit" - Me.txtAbfVerb_AbfertigungsverbotSeit.Size = New System.Drawing.Size(60, 20) - Me.txtAbfVerb_AbfertigungsverbotSeit.TabIndex = 2 - Me.txtAbfVerb_AbfertigungsverbotSeit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'usrCntlAufschubkonten - ' - Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3) - Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten" - Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172) - Me.usrCntlAufschubkonten.TabIndex = 0 - ' - 'txtAbf_ZollVmVom - ' - Me.txtAbf_ZollVmVom._DateTimeOnly = False - Me.txtAbf_ZollVmVom._numbersOnly = False - Me.txtAbf_ZollVmVom._numbersOnlyKommastellen = "" - Me.txtAbf_ZollVmVom._numbersOnlyTrennzeichen = True - Me.txtAbf_ZollVmVom._Prozent = False - Me.txtAbf_ZollVmVom._ShortDateNew = True - Me.txtAbf_ZollVmVom._ShortDateOnly = False - Me.txtAbf_ZollVmVom._TimeOnly = False - Me.txtAbf_ZollVmVom._TimeOnly_Seconds = False - Me.txtAbf_ZollVmVom._value = "" - Me.txtAbf_ZollVmVom._Waehrung = False - Me.txtAbf_ZollVmVom._WaehrungZeichen = True - Me.txtAbf_ZollVmVom.Enabled = False - Me.txtAbf_ZollVmVom.ForeColor = System.Drawing.Color.Red - Me.txtAbf_ZollVmVom.Location = New System.Drawing.Point(152, 44) - Me.txtAbf_ZollVmVom.MaxLength = 10 - Me.txtAbf_ZollVmVom.MaxLineLength = -1 - Me.txtAbf_ZollVmVom.MaxLines_Warning = "" - Me.txtAbf_ZollVmVom.MaxLines_Warning_Label = Nothing - Me.txtAbf_ZollVmVom.Name = "txtAbf_ZollVmVom" - Me.txtAbf_ZollVmVom.Size = New System.Drawing.Size(60, 20) - Me.txtAbf_ZollVmVom.TabIndex = 3 - ' - 'txtAbf_Euroeinführung - ' - Me.txtAbf_Euroeinführung._DateTimeOnly = False - Me.txtAbf_Euroeinführung._numbersOnly = False - Me.txtAbf_Euroeinführung._numbersOnlyKommastellen = "" - Me.txtAbf_Euroeinführung._numbersOnlyTrennzeichen = True - Me.txtAbf_Euroeinführung._Prozent = False - Me.txtAbf_Euroeinführung._ShortDateNew = True - Me.txtAbf_Euroeinführung._ShortDateOnly = False - Me.txtAbf_Euroeinführung._TimeOnly = False - Me.txtAbf_Euroeinführung._TimeOnly_Seconds = False - Me.txtAbf_Euroeinführung._value = "" - Me.txtAbf_Euroeinführung._Waehrung = False - Me.txtAbf_Euroeinführung._WaehrungZeichen = True - Me.txtAbf_Euroeinführung.ForeColor = System.Drawing.Color.Red - Me.txtAbf_Euroeinführung.Location = New System.Drawing.Point(375, 165) - Me.txtAbf_Euroeinführung.MaxLength = 10 - Me.txtAbf_Euroeinführung.MaxLineLength = -1 - Me.txtAbf_Euroeinführung.MaxLines_Warning = "" - Me.txtAbf_Euroeinführung.MaxLines_Warning_Label = Nothing - Me.txtAbf_Euroeinführung.Name = "txtAbf_Euroeinführung" - Me.txtAbf_Euroeinführung.Size = New System.Drawing.Size(60, 20) - Me.txtAbf_Euroeinführung.TabIndex = 4 - Me.txtAbf_Euroeinführung.Visible = False - ' - 'txtAbf_ErsteAbfertigung - ' - Me.txtAbf_ErsteAbfertigung._DateTimeOnly = False - Me.txtAbf_ErsteAbfertigung._numbersOnly = False - Me.txtAbf_ErsteAbfertigung._numbersOnlyKommastellen = "" - Me.txtAbf_ErsteAbfertigung._numbersOnlyTrennzeichen = True - Me.txtAbf_ErsteAbfertigung._Prozent = False - Me.txtAbf_ErsteAbfertigung._ShortDateNew = True - Me.txtAbf_ErsteAbfertigung._ShortDateOnly = False - Me.txtAbf_ErsteAbfertigung._TimeOnly = False - Me.txtAbf_ErsteAbfertigung._TimeOnly_Seconds = False - Me.txtAbf_ErsteAbfertigung._value = "" - Me.txtAbf_ErsteAbfertigung._Waehrung = False - Me.txtAbf_ErsteAbfertigung._WaehrungZeichen = True - Me.txtAbf_ErsteAbfertigung.ForeColor = System.Drawing.Color.Red - Me.txtAbf_ErsteAbfertigung.Location = New System.Drawing.Point(216, 162) - Me.txtAbf_ErsteAbfertigung.MaxLength = 10 - Me.txtAbf_ErsteAbfertigung.MaxLineLength = -1 - Me.txtAbf_ErsteAbfertigung.MaxLines_Warning = "" - Me.txtAbf_ErsteAbfertigung.MaxLines_Warning_Label = Nothing - Me.txtAbf_ErsteAbfertigung.Name = "txtAbf_ErsteAbfertigung" - Me.txtAbf_ErsteAbfertigung.Size = New System.Drawing.Size(60, 20) - Me.txtAbf_ErsteAbfertigung.TabIndex = 13 - Me.txtAbf_ErsteAbfertigung.Visible = False - ' - 'UsrCntlKundeFiskaldaten1 - ' - Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1" - Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 458) - Me.UsrCntlKundeFiskaldaten1.TabIndex = 0 - ' 'cboRechnungSprache ' Me.cboRechnungSprache._allowedValuesFreiText = Nothing @@ -3554,6 +1744,318 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_Zahlungsziel.TabIndex = 18 Me.txtAbf_Zahlungsziel.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' + 'tbVersicherung + ' + Me.tbVersicherung.Controls.Add(Me.Label81) + Me.tbVersicherung.Controls.Add(Me.Label82) + Me.tbVersicherung.Controls.Add(Me.cbxInkassoUebergeben) + Me.tbVersicherung.Controls.Add(Me.Label1) + Me.tbVersicherung.Controls.Add(Me.Label35) + Me.tbVersicherung.Controls.Add(Me.Label27) + Me.tbVersicherung.Controls.Add(Me.Label24) + Me.tbVersicherung.Controls.Add(Me.cbxNichtVersicherbar) + Me.tbVersicherung.Controls.Add(Me.Label17) + Me.tbVersicherung.Controls.Add(Me.Label8) + Me.tbVersicherung.Controls.Add(Me.cbxAnerkVersFall) + Me.tbVersicherung.Controls.Add(Me.Label2) + Me.tbVersicherung.Controls.Add(Me.cbxVersicherungUebergeben) + Me.tbVersicherung.Controls.Add(Me.Label6) + Me.tbVersicherung.Controls.Add(Me.cbxDeckungsstopp) + Me.tbVersicherung.Controls.Add(Me.Label61) + Me.tbVersicherung.Controls.Add(Me.txtVers_Information) + Me.tbVersicherung.Controls.Add(Me.Label59) + Me.tbVersicherung.Controls.Add(Me.Label57) + Me.tbVersicherung.Controls.Add(Me.Label55) + Me.tbVersicherung.Controls.Add(Me.Label60) + Me.tbVersicherung.Controls.Add(Me.Label58) + Me.tbVersicherung.Controls.Add(Me.Label53) + Me.tbVersicherung.Controls.Add(Me.Label56) + Me.tbVersicherung.Controls.Add(Me.Label54) + Me.tbVersicherung.Controls.Add(Me.Label52) + Me.tbVersicherung.Controls.Add(Me.Label51) + Me.tbVersicherung.Controls.Add(Me.txtInkasso_GemeldeterBetrag) + Me.tbVersicherung.Controls.Add(Me.txtInkassoUebergebenAm) + Me.tbVersicherung.Controls.Add(Me.txtVers_EHNr) + Me.tbVersicherung.Controls.Add(Me.txtAnerkVersFallAb) + Me.tbVersicherung.Controls.Add(Me.txtVersicherung_GemeldeterBetrag) + Me.tbVersicherung.Controls.Add(Me.txtVersUebergebenOPSaldo) + Me.tbVersicherung.Controls.Add(Me.txtVersicherungDeckungsquote) + Me.tbVersicherung.Controls.Add(Me.txtAnerkVersFallAm) + Me.tbVersicherung.Controls.Add(Me.txtVersicherungUebergebenAm) + Me.tbVersicherung.Controls.Add(Me.txtDeckungsstoppDatum) + Me.tbVersicherung.Controls.Add(Me.txtVers_BankgarantiebetragGueltigBis) + Me.tbVersicherung.Controls.Add(Me.txtVers_KreditlimitVon) + Me.tbVersicherung.Controls.Add(Me.txtVers_Saldo) + Me.tbVersicherung.Controls.Add(Me.txtVers_VersicherungssummeVon) + Me.tbVersicherung.Controls.Add(Me.txtVers_Bankgarantiebetrag) + Me.tbVersicherung.Controls.Add(Me.txtVers_Kreditlimit) + Me.tbVersicherung.Controls.Add(Me.txtVers_AntragssummeVon) + Me.tbVersicherung.Controls.Add(Me.txtVers_Versicherungssumme) + Me.tbVersicherung.Controls.Add(Me.txtVers_Antragssumme) + Me.tbVersicherung.Controls.Add(Me.txtVers_HermesRefNr) + Me.tbVersicherung.Location = New System.Drawing.Point(4, 22) + Me.tbVersicherung.Name = "tbVersicherung" + Me.tbVersicherung.Padding = New System.Windows.Forms.Padding(3) + Me.tbVersicherung.Size = New System.Drawing.Size(672, 458) + Me.tbVersicherung.TabIndex = 1 + Me.tbVersicherung.Text = "Versicherung" + Me.tbVersicherung.UseVisualStyleBackColor = True + ' + 'Label81 + ' + Me.Label81.AutoSize = True + Me.Label81.Location = New System.Drawing.Point(419, 168) + Me.Label81.Name = "Label81" + Me.Label81.Size = New System.Drawing.Size(98, 13) + Me.Label81.TabIndex = 45 + Me.Label81.Text = "Gemeldeter Betrag:" + ' + 'Label82 + ' + Me.Label82.AutoSize = True + Me.Label82.Location = New System.Drawing.Point(311, 168) + Me.Label82.Name = "Label82" + Me.Label82.Size = New System.Drawing.Size(24, 13) + Me.Label82.TabIndex = 43 + Me.Label82.Text = "am:" + ' + 'cbxInkassoUebergeben + ' + Me.cbxInkassoUebergeben.AutoSize = True + Me.cbxInkassoUebergeben.Location = New System.Drawing.Point(159, 167) + Me.cbxInkassoUebergeben.Name = "cbxInkassoUebergeben" + Me.cbxInkassoUebergeben.Size = New System.Drawing.Size(156, 17) + Me.cbxInkassoUebergeben.TabIndex = 42 + Me.cbxInkassoUebergeben.Text = "Acredia Inkasso übergeben" + Me.cbxInkassoUebergeben.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(353, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(67, 13) + Me.Label1.TabIndex = 40 + Me.Label1.Text = "EH-Nummer:" + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.Location = New System.Drawing.Point(419, 142) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(22, 13) + Me.Label35.TabIndex = 22 + Me.Label35.Text = "ab:" + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Location = New System.Drawing.Point(419, 116) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(98, 13) + Me.Label27.TabIndex = 17 + Me.Label27.Text = "Gemeldeter Betrag:" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(419, 89) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(55, 13) + Me.Label24.TabIndex = 12 + Me.Label24.Text = "OP-Saldo:" + Me.Label24.Visible = False + ' + 'cbxNichtVersicherbar + ' + Me.cbxNichtVersicherbar.AutoSize = True + Me.cbxNichtVersicherbar.Location = New System.Drawing.Point(159, 39) + Me.cbxNichtVersicherbar.Name = "cbxNichtVersicherbar" + Me.cbxNichtVersicherbar.Size = New System.Drawing.Size(142, 17) + Me.cbxNichtVersicherbar.TabIndex = 2 + Me.cbxNichtVersicherbar.Text = "nicht (mehr) versicherbar" + Me.cbxNichtVersicherbar.UseVisualStyleBackColor = True + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(419, 65) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(86, 13) + Me.Label17.TabIndex = 7 + Me.Label17.Text = "Deckungsquote:" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(311, 142) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(24, 13) + Me.Label8.TabIndex = 20 + Me.Label8.Text = "am:" + ' + 'cbxAnerkVersFall + ' + Me.cbxAnerkVersFall.AutoSize = True + Me.cbxAnerkVersFall.Location = New System.Drawing.Point(159, 141) + Me.cbxAnerkVersFall.Name = "cbxAnerkVersFall" + Me.cbxAnerkVersFall.Size = New System.Drawing.Size(130, 17) + Me.cbxAnerkVersFall.TabIndex = 19 + Me.cbxAnerkVersFall.Text = "Anerkennung Vers.fall" + Me.cbxAnerkVersFall.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(311, 116) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(24, 13) + Me.Label2.TabIndex = 15 + Me.Label2.Text = "am:" + ' + 'cbxVersicherungUebergeben + ' + Me.cbxVersicherungUebergeben.AutoSize = True + Me.cbxVersicherungUebergeben.Location = New System.Drawing.Point(159, 115) + Me.cbxVersicherungUebergeben.Name = "cbxVersicherungUebergeben" + Me.cbxVersicherungUebergeben.Size = New System.Drawing.Size(142, 17) + Me.cbxVersicherungUebergeben.TabIndex = 14 + Me.cbxVersicherungUebergeben.Text = "Versicherung übergeben" + Me.cbxVersicherungUebergeben.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(305, 89) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(30, 13) + Me.Label6.TabIndex = 10 + Me.Label6.Text = "vom:" + ' + 'cbxDeckungsstopp + ' + Me.cbxDeckungsstopp.AutoSize = True + Me.cbxDeckungsstopp.Location = New System.Drawing.Point(159, 88) + Me.cbxDeckungsstopp.Name = "cbxDeckungsstopp" + Me.cbxDeckungsstopp.Size = New System.Drawing.Size(101, 17) + Me.cbxDeckungsstopp.TabIndex = 9 + Me.cbxDeckungsstopp.Text = "Deckungsstopp" + Me.cbxDeckungsstopp.UseVisualStyleBackColor = True + ' + 'Label61 + ' + Me.Label61.AutoSize = True + Me.Label61.Location = New System.Drawing.Point(3, 330) + Me.Label61.Name = "Label61" + Me.Label61.Size = New System.Drawing.Size(62, 13) + Me.Label61.TabIndex = 38 + Me.Label61.Text = "Information:" + ' + 'txtVers_Information + ' + Me.txtVers_Information.Location = New System.Drawing.Point(6, 346) + Me.txtVers_Information.Name = "txtVers_Information" + Me.txtVers_Information.Size = New System.Drawing.Size(660, 93) + Me.txtVers_Information.TabIndex = 39 + Me.txtVers_Information.Text = "" + ' + 'Label59 + ' + Me.Label59.AutoSize = True + Me.Label59.Location = New System.Drawing.Point(281, 269) + Me.Label59.Name = "Label59" + Me.Label59.Size = New System.Drawing.Size(51, 13) + Me.Label59.TabIndex = 34 + Me.Label59.Text = "gültig bis:" + ' + 'Label57 + ' + Me.Label57.AutoSize = True + Me.Label57.Location = New System.Drawing.Point(302, 243) + Me.Label57.Name = "Label57" + Me.Label57.Size = New System.Drawing.Size(30, 13) + Me.Label57.TabIndex = 30 + Me.Label57.Text = "vom:" + ' + 'Label55 + ' + Me.Label55.AutoSize = True + Me.Label55.Location = New System.Drawing.Point(305, 65) + Me.Label55.Name = "Label55" + Me.Label55.Size = New System.Drawing.Size(30, 13) + Me.Label55.TabIndex = 5 + Me.Label55.Text = "vom:" + ' + 'Label60 + ' + Me.Label60.AutoSize = True + Me.Label60.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label60.Location = New System.Drawing.Point(3, 295) + Me.Label60.Name = "Label60" + Me.Label60.Size = New System.Drawing.Size(73, 13) + Me.Label60.TabIndex = 36 + Me.Label60.Text = "Saldo in Euro:" + ' + 'Label58 + ' + Me.Label58.AutoSize = True + Me.Label58.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label58.Location = New System.Drawing.Point(4, 269) + Me.Label58.Name = "Label58" + Me.Label58.Size = New System.Drawing.Size(103, 13) + Me.Label58.TabIndex = 32 + Me.Label58.Text = "Bankgarantiebetrag:" + ' + 'Label53 + ' + Me.Label53.AutoSize = True + Me.Label53.Location = New System.Drawing.Point(302, 217) + Me.Label53.Name = "Label53" + Me.Label53.Size = New System.Drawing.Size(30, 13) + Me.Label53.TabIndex = 26 + Me.Label53.Text = "vom:" + ' + 'Label56 + ' + Me.Label56.AutoSize = True + Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label56.Location = New System.Drawing.Point(4, 243) + Me.Label56.Name = "Label56" + Me.Label56.Size = New System.Drawing.Size(87, 13) + Me.Label56.TabIndex = 28 + Me.Label56.Text = "Keditlimit in Euro:" + ' + 'Label54 + ' + Me.Label54.AutoSize = True + Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label54.Location = New System.Drawing.Point(7, 65) + Me.Label54.Name = "Label54" + Me.Label54.Size = New System.Drawing.Size(110, 13) + Me.Label54.TabIndex = 3 + Me.Label54.Text = "Versicherungssumme:" + ' + 'Label52 + ' + Me.Label52.AutoSize = True + Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label52.Location = New System.Drawing.Point(4, 217) + Me.Label52.Name = "Label52" + Me.Label52.Size = New System.Drawing.Size(79, 13) + Me.Label52.TabIndex = 24 + Me.Label52.Text = "Antragssumme:" + ' + 'Label51 + ' + Me.Label51.AutoSize = True + Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label51.Location = New System.Drawing.Point(7, 9) + Me.Label51.Name = "Label51" + Me.Label51.Size = New System.Drawing.Size(133, 26) + Me.Label51.TabIndex = 0 + Me.Label51.Text = "Polizzennummer ACREDIA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & ":" + ' 'txtInkasso_GemeldeterBetrag ' Me.txtInkasso_GemeldeterBetrag._DateTimeOnly = False @@ -4050,6 +2552,64 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_HermesRefNr.Size = New System.Drawing.Size(189, 20) Me.txtVers_HermesRefNr.TabIndex = 1 ' + 'tbUmsatz + ' + Me.tbUmsatz.Controls.Add(Me.Label65) + Me.tbUmsatz.Controls.Add(Me.dgvUmsatzbericht) + Me.tbUmsatz.Location = New System.Drawing.Point(4, 22) + Me.tbUmsatz.Name = "tbUmsatz" + Me.tbUmsatz.Padding = New System.Windows.Forms.Padding(3) + Me.tbUmsatz.Size = New System.Drawing.Size(672, 458) + Me.tbUmsatz.TabIndex = 3 + Me.tbUmsatz.Text = "Umsatz" + Me.tbUmsatz.UseVisualStyleBackColor = True + ' + 'Label65 + ' + Me.Label65.AutoSize = True + Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label65.Location = New System.Drawing.Point(6, 9) + Me.Label65.Name = "Label65" + Me.Label65.Size = New System.Drawing.Size(77, 13) + Me.Label65.TabIndex = 0 + Me.Label65.Text = "Umsatzbericht:" + ' + 'dgvUmsatzbericht + ' + Me.dgvUmsatzbericht.AllowUserToAddRows = False + 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 + Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White + Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) + Me.dgvUmsatzbericht.Name = "dgvUmsatzbericht" + Me.dgvUmsatzbericht.ReadOnly = True + Me.dgvUmsatzbericht.RowHeadersVisible = False + Me.dgvUmsatzbericht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvUmsatzbericht.Size = New System.Drawing.Size(660, 427) + Me.dgvUmsatzbericht.TabIndex = 1 + ' + 'tbOP + ' + Me.tbOP.Controls.Add(Me.txtHoechstkredit) + Me.tbOP.Controls.Add(Me.Label69) + Me.tbOP.Controls.Add(Me.lblbon) + Me.tbOP.Controls.Add(Me.Label67) + Me.tbOP.Controls.Add(Me.Label66) + Me.tbOP.Controls.Add(Me.dgvOffenePosten) + Me.tbOP.Controls.Add(Me.txtBonitaetsDatum) + Me.tbOP.Controls.Add(Me.txtBonitaet) + Me.tbOP.Location = New System.Drawing.Point(4, 22) + Me.tbOP.Name = "tbOP" + Me.tbOP.Padding = New System.Windows.Forms.Padding(3) + Me.tbOP.Size = New System.Drawing.Size(672, 458) + Me.tbOP.TabIndex = 4 + Me.tbOP.Text = "Offene Posten" + Me.tbOP.UseVisualStyleBackColor = True + ' 'txtHoechstkredit ' Me.txtHoechstkredit._DateTimeOnly = False @@ -4074,6 +2634,64 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtHoechstkredit.TabIndex = 5 Me.txtHoechstkredit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' + 'Label69 + ' + Me.Label69.AutoSize = True + Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label69.Location = New System.Drawing.Point(514, 9) + Me.Label69.Name = "Label69" + Me.Label69.Size = New System.Drawing.Size(70, 13) + Me.Label69.TabIndex = 4 + Me.Label69.Text = "Höchstkredit:" + ' + 'lblbon + ' + Me.lblbon.AutoSize = True + Me.lblbon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblbon.Location = New System.Drawing.Point(339, 9) + Me.lblbon.Name = "lblbon" + Me.lblbon.Size = New System.Drawing.Size(77, 13) + Me.lblbon.TabIndex = 2 + Me.lblbon.Text = "Bonitätsdatum:" + ' + 'Label67 + ' + Me.Label67.AutoSize = True + Me.Label67.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label67.Location = New System.Drawing.Point(225, 9) + Me.Label67.Name = "Label67" + Me.Label67.Size = New System.Drawing.Size(43, 13) + Me.Label67.TabIndex = 0 + Me.Label67.Text = "Bonität:" + ' + 'Label66 + ' + Me.Label66.AutoSize = True + Me.Label66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label66.Location = New System.Drawing.Point(3, 19) + Me.Label66.Name = "Label66" + Me.Label66.Size = New System.Drawing.Size(160, 13) + Me.Label66.TabIndex = 6 + Me.Label66.Text = "Debitorenkonto - Offene Posten:" + ' + 'dgvOffenePosten + ' + Me.dgvOffenePosten.AllowUserToAddRows = False + 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 + Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White + Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) + Me.dgvOffenePosten.Name = "dgvOffenePosten" + Me.dgvOffenePosten.ReadOnly = True + Me.dgvOffenePosten.RowHeadersVisible = False + Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvOffenePosten.Size = New System.Drawing.Size(660, 414) + Me.dgvOffenePosten.TabIndex = 7 + ' 'txtBonitaetsDatum ' Me.txtBonitaetsDatum._DateTimeOnly = False @@ -4123,6 +2741,200 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtBonitaet.TabIndex = 1 Me.txtBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' + 'tbBank + ' + Me.tbBank.Controls.Add(Me.Label21) + Me.tbBank.Controls.Add(Me.GroupBox4) + Me.tbBank.Controls.Add(Me.txtBank_Kto) + Me.tbBank.Controls.Add(Me.Label22) + Me.tbBank.Controls.Add(Me.txtBank_Blz) + Me.tbBank.Location = New System.Drawing.Point(4, 22) + Me.tbBank.Name = "tbBank" + Me.tbBank.Padding = New System.Windows.Forms.Padding(3) + Me.tbBank.Size = New System.Drawing.Size(672, 458) + Me.tbBank.TabIndex = 5 + Me.tbBank.Text = "Bankverb./Kreditkarten" + Me.tbBank.UseVisualStyleBackColor = True + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label21.Location = New System.Drawing.Point(6, 34) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(24, 13) + Me.Label21.TabIndex = 2 + Me.Label21.Text = "BIC" + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.Button10) + Me.GroupBox4.Controls.Add(Me.Button9) + Me.GroupBox4.Controls.Add(Me.Button8) + Me.GroupBox4.Controls.Add(Me.Button7) + Me.GroupBox4.Controls.Add(Me.dgvKreditkarten) + Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox4.Location = New System.Drawing.Point(9, 69) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(657, 383) + Me.GroupBox4.TabIndex = 4 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "Kreditkarten" + ' + 'Button10 + ' + Me.Button10.Enabled = False + Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button10.Location = New System.Drawing.Point(488, 338) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(163, 38) + Me.Button10.TabIndex = 4 + Me.Button10.Text = "Lohnrechner starten" + Me.Button10.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.Enabled = False + Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button9.Location = New System.Drawing.Point(351, 338) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(131, 38) + Me.Button9.TabIndex = 3 + Me.Button9.Text = "Contract List" + Me.Button9.UseVisualStyleBackColor = True + ' + 'Button8 + ' + Me.Button8.Enabled = False + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button8.Location = New System.Drawing.Point(193, 338) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(152, 38) + Me.Button8.TabIndex = 2 + Me.Button8.Text = "GO-BOX-Umstellung" + Me.Button8.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.Enabled = False + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button7.Image = Global.SDL.My.Resources.Resources.plus + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.Location = New System.Drawing.Point(9, 338) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(178, 38) + Me.Button7.TabIndex = 1 + Me.Button7.Text = "Kreditkarte hinzufügen" + Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button7.UseVisualStyleBackColor = True + ' + 'dgvKreditkarten + ' + Me.dgvKreditkarten.AllowUserToAddRows = False + 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 + 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 + 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 + 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 + 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 + 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) + Me.dgvKreditkarten.TabIndex = 0 + ' + 'txtBank_Kto + ' + Me.txtBank_Kto.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtBank_Kto.Location = New System.Drawing.Point(100, 6) + Me.txtBank_Kto.MaxLength = 8 + Me.txtBank_Kto.Name = "txtBank_Kto" + Me.txtBank_Kto.Size = New System.Drawing.Size(270, 20) + Me.txtBank_Kto.TabIndex = 3 + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label22.Location = New System.Drawing.Point(6, 9) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(32, 13) + Me.Label22.TabIndex = 0 + Me.Label22.Text = "IBAN" + ' + 'txtBank_Blz + ' + Me.txtBank_Blz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtBank_Blz.Location = New System.Drawing.Point(100, 31) + Me.txtBank_Blz.MaxLength = 12 + Me.txtBank_Blz.Name = "txtBank_Blz" + Me.txtBank_Blz.Size = New System.Drawing.Size(270, 20) + Me.txtBank_Blz.TabIndex = 1 + ' + 'tbUmsatzsteuer + ' + Me.tbUmsatzsteuer.Controls.Add(Me.txtUStIDGeprueftAm) + Me.tbUmsatzsteuer.Controls.Add(Me.txtUStID) + Me.tbUmsatzsteuer.Controls.Add(Me.Button3) + Me.tbUmsatzsteuer.Controls.Add(Me.Label85) + Me.tbUmsatzsteuer.Controls.Add(Me.Button11) + Me.tbUmsatzsteuer.Controls.Add(Me.txtSteuernummer) + Me.tbUmsatzsteuer.Controls.Add(Me.dgvUstv_LaenderUndSteuernummern) + Me.tbUmsatzsteuer.Controls.Add(Me.Label90) + Me.tbUmsatzsteuer.Controls.Add(Me.Label19) + Me.tbUmsatzsteuer.Controls.Add(Me.Label88) + Me.tbUmsatzsteuer.Controls.Add(Me.Label89) + Me.tbUmsatzsteuer.Controls.Add(Me.Label87) + Me.tbUmsatzsteuer.Controls.Add(Me.Label86) + Me.tbUmsatzsteuer.Controls.Add(Me.btnUStVAendSpeichern) + Me.tbUmsatzsteuer.Controls.Add(Me.txtUSt_GVAusgestelltAm) + Me.tbUmsatzsteuer.Controls.Add(Me.txtUSt_GVAngefordertAm) + Me.tbUmsatzsteuer.Location = New System.Drawing.Point(4, 22) + Me.tbUmsatzsteuer.Name = "tbUmsatzsteuer" + Me.tbUmsatzsteuer.Padding = New System.Windows.Forms.Padding(3) + Me.tbUmsatzsteuer.Size = New System.Drawing.Size(672, 458) + Me.tbUmsatzsteuer.TabIndex = 6 + Me.tbUmsatzsteuer.Text = "Umsatzsteuer" + Me.tbUmsatzsteuer.UseVisualStyleBackColor = True + ' 'txtUStIDGeprueftAm ' Me.txtUStIDGeprueftAm._DateTimeOnly = False @@ -4149,6 +2961,129 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUStIDGeprueftAm.Size = New System.Drawing.Size(96, 20) Me.txtUStIDGeprueftAm.TabIndex = 3 ' + 'txtUStID + ' + Me.txtUStID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtUStID.Location = New System.Drawing.Point(115, 6) + Me.txtUStID.Name = "txtUStID" + Me.txtUStID.ReadOnly = True + Me.txtUStID.Size = New System.Drawing.Size(159, 20) + Me.txtUStID.TabIndex = 1 + ' + 'Button3 + ' + Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.druck + Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button3.FlatAppearance.BorderSize = 0 + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Location = New System.Drawing.Point(167, 421) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(51, 31) + Me.Button3.TabIndex = 15 + Me.Button3.UseVisualStyleBackColor = True + ' + 'Label85 + ' + Me.Label85.AutoSize = True + Me.Label85.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label85.Location = New System.Drawing.Point(6, 9) + Me.Label85.Name = "Label85" + Me.Label85.Size = New System.Drawing.Size(54, 13) + Me.Label85.TabIndex = 0 + Me.Label85.Text = "USt-Id-Nr:" + ' + 'Button11 + ' + Me.Button11.Enabled = False + Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button11.Location = New System.Drawing.Point(9, 421) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(152, 31) + Me.Button11.TabIndex = 14 + Me.Button11.Text = "UStV-Unterlagen" + Me.Button11.UseVisualStyleBackColor = True + ' + 'txtSteuernummer + ' + Me.txtSteuernummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSteuernummer.Location = New System.Drawing.Point(543, 6) + Me.txtSteuernummer.Name = "txtSteuernummer" + Me.txtSteuernummer.ReadOnly = True + Me.txtSteuernummer.Size = New System.Drawing.Size(123, 20) + Me.txtSteuernummer.TabIndex = 5 + ' + 'dgvUstv_LaenderUndSteuernummern + ' + DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White + Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + 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, 321) + Me.dgvUstv_LaenderUndSteuernummern.TabIndex = 13 + ' + 'Label90 + ' + Me.Label90.AutoSize = True + Me.Label90.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label90.Location = New System.Drawing.Point(6, 44) + Me.Label90.Name = "Label90" + Me.Label90.Size = New System.Drawing.Size(99, 13) + Me.Label90.TabIndex = 6 + Me.Label90.Text = "GV angefordert am:" + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(280, 9) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(66, 13) + Me.Label19.TabIndex = 2 + Me.Label19.Text = ", geprüft am:" + ' + 'Label88 + ' + Me.Label88.AutoSize = True + Me.Label88.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label88.Location = New System.Drawing.Point(245, 44) + Me.Label88.Name = "Label88" + Me.Label88.Size = New System.Drawing.Size(83, 13) + Me.Label88.TabIndex = 8 + Me.Label88.Text = ", ausgestellt am:" + ' + 'Label89 + ' + Me.Label89.AutoSize = True + Me.Label89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label89.Location = New System.Drawing.Point(6, 78) + Me.Label89.Name = "Label89" + Me.Label89.Size = New System.Drawing.Size(366, 13) + Me.Label89.TabIndex = 12 + Me.Label89.Text = "Länder und Steuernummern für den Antrag auf Vergütung der Umsatzsteuer:" + ' + 'Label87 + ' + Me.Label87.AutoSize = True + Me.Label87.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label87.Location = New System.Drawing.Point(6, 52) + Me.Label87.Name = "Label87" + Me.Label87.Size = New System.Drawing.Size(10, 13) + Me.Label87.TabIndex = 10 + Me.Label87.Text = " " + ' + 'Label86 + ' + Me.Label86.AutoSize = True + Me.Label86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label86.Location = New System.Drawing.Point(459, 9) + Me.Label86.Name = "Label86" + Me.Label86.Size = New System.Drawing.Size(78, 13) + Me.Label86.TabIndex = 4 + Me.Label86.Text = "Steuernummer:" + ' 'btnUStVAendSpeichern ' Me.btnUStVAendSpeichern.allowBorder = False @@ -4218,6 +3153,256 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_GVAngefordertAm.TabIndex = 7 Me.txtUSt_GVAngefordertAm.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' + 'tbSonstiges + ' + Me.tbSonstiges.Controls.Add(Me.Label99) + Me.tbSonstiges.Controls.Add(Me.txtCreditsafe) + Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrTOBB) + Me.tbSonstiges.Controls.Add(Me.Label96) + Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrPLOSE) + Me.tbSonstiges.Controls.Add(Me.Label83) + Me.tbSonstiges.Controls.Add(Me.Label76) + Me.tbSonstiges.Controls.Add(Me.dgvSonst_IDSKunden) + Me.tbSonstiges.Controls.Add(Me.cbxSonst_CsvAsfinag) + Me.tbSonstiges.Controls.Add(Me.cbxSonst_CsvUTA) + Me.tbSonstiges.Controls.Add(Me.cbxSonst_CsvMSE) + Me.tbSonstiges.Controls.Add(Me.cbxSonst_CsvMautbericht) + Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrUTA) + Me.tbSonstiges.Controls.Add(Me.Label75) + Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrTelepass) + Me.tbSonstiges.Controls.Add(Me.Label74) + Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrMSE) + Me.tbSonstiges.Controls.Add(Me.Label73) + Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrWOELFL) + Me.tbSonstiges.Controls.Add(Me.Label72) + Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrIDS) + Me.tbSonstiges.Controls.Add(Me.Label70) + Me.tbSonstiges.Controls.Add(Me.Label71) + Me.tbSonstiges.Controls.Add(Me.btnSonstAendSpeichern) + Me.tbSonstiges.Controls.Add(Me.cboSonst_Rechnungsdruck) + Me.tbSonstiges.Location = New System.Drawing.Point(4, 22) + Me.tbSonstiges.Name = "tbSonstiges" + Me.tbSonstiges.Padding = New System.Windows.Forms.Padding(3) + Me.tbSonstiges.Size = New System.Drawing.Size(672, 458) + Me.tbSonstiges.TabIndex = 7 + Me.tbSonstiges.Text = "Sonstiges" + Me.tbSonstiges.UseVisualStyleBackColor = True + ' + 'Label99 + ' + Me.Label99.AutoSize = True + Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label99.Location = New System.Drawing.Point(6, 34) + Me.Label99.Name = "Label99" + Me.Label99.Size = New System.Drawing.Size(68, 13) + Me.Label99.TabIndex = 24 + Me.Label99.Text = "ID Creditsafe" + ' + 'txtCreditsafe + ' + Me.txtCreditsafe.Location = New System.Drawing.Point(119, 31) + Me.txtCreditsafe.Name = "txtCreditsafe" + Me.txtCreditsafe.Size = New System.Drawing.Size(122, 20) + Me.txtCreditsafe.TabIndex = 23 + ' + 'txtSonst_KdNrTOBB + ' + Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(119, 208) + Me.txtSonst_KdNrTOBB.MaxLength = 20 + Me.txtSonst_KdNrTOBB.Name = "txtSonst_KdNrTOBB" + Me.txtSonst_KdNrTOBB.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrTOBB.TabIndex = 22 + ' + 'Label96 + ' + 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(6, 211) + Me.Label96.Name = "Label96" + Me.Label96.Size = New System.Drawing.Size(83, 13) + Me.Label96.TabIndex = 21 + Me.Label96.Text = "KdNr bei TOBB:" + ' + 'txtSonst_KdNrPLOSE + ' + Me.txtSonst_KdNrPLOSE.Enabled = False + Me.txtSonst_KdNrPLOSE.Location = New System.Drawing.Point(119, 182) + Me.txtSonst_KdNrPLOSE.Name = "txtSonst_KdNrPLOSE" + Me.txtSonst_KdNrPLOSE.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrPLOSE.TabIndex = 20 + ' + 'Label83 + ' + Me.Label83.AutoSize = True + Me.Label83.Enabled = False + Me.Label83.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label83.Location = New System.Drawing.Point(6, 185) + Me.Label83.Name = "Label83" + Me.Label83.Size = New System.Drawing.Size(89, 13) + Me.Label83.TabIndex = 19 + Me.Label83.Text = "KdNr bei PLOSE:" + ' + 'Label76 + ' + Me.Label76.AutoSize = True + Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label76.Location = New System.Drawing.Point(9, 235) + Me.Label76.Name = "Label76" + Me.Label76.Size = New System.Drawing.Size(65, 13) + Me.Label76.TabIndex = 17 + Me.Label76.Text = "IDS-Kunden" + ' + 'dgvSonst_IDSKunden + ' + Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False + DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 + Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White + Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251) + Me.dgvSonst_IDSKunden.MultiSelect = False + Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden" + Me.dgvSonst_IDSKunden.Size = New System.Drawing.Size(657, 201) + Me.dgvSonst_IDSKunden.TabIndex = 18 + ' + 'cbxSonst_CsvAsfinag + ' + Me.cbxSonst_CsvAsfinag.AutoSize = True + Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(119, 230) + Me.cbxSonst_CsvAsfinag.Name = "cbxSonst_CsvAsfinag" + Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(264, 17) + Me.cbxSonst_CsvAsfinag.TabIndex = 15 + Me.cbxSonst_CsvAsfinag.Text = "ASFINAG-Abrechnungsdaten als CSV bereitstellen" + Me.cbxSonst_CsvAsfinag.UseVisualStyleBackColor = True + ' + 'cbxSonst_CsvUTA + ' + Me.cbxSonst_CsvUTA.AutoSize = True + Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(274, 156) + Me.cbxSonst_CsvUTA.Name = "cbxSonst_CsvUTA" + Me.cbxSonst_CsvUTA.Size = New System.Drawing.Size(240, 17) + Me.cbxSonst_CsvUTA.TabIndex = 14 + Me.cbxSonst_CsvUTA.Text = "UTA-Abrechnungsdaten als CSV bereitstellen" + Me.cbxSonst_CsvUTA.UseVisualStyleBackColor = True + ' + 'cbxSonst_CsvMSE + ' + Me.cbxSonst_CsvMSE.AutoSize = True + Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(274, 104) + Me.cbxSonst_CsvMSE.Name = "cbxSonst_CsvMSE" + Me.cbxSonst_CsvMSE.Size = New System.Drawing.Size(241, 17) + Me.cbxSonst_CsvMSE.TabIndex = 9 + Me.cbxSonst_CsvMSE.Text = "MSE-Abrechnungsdaten als CSV bereitstellen" + Me.cbxSonst_CsvMSE.UseVisualStyleBackColor = True + ' + 'cbxSonst_CsvMautbericht + ' + Me.cbxSonst_CsvMautbericht.AutoSize = True + Me.cbxSonst_CsvMautbericht.Location = New System.Drawing.Point(274, 8) + Me.cbxSonst_CsvMautbericht.Name = "cbxSonst_CsvMautbericht" + Me.cbxSonst_CsvMautbericht.Size = New System.Drawing.Size(181, 17) + Me.cbxSonst_CsvMautbericht.TabIndex = 2 + Me.cbxSonst_CsvMautbericht.Text = "Mautbericht als CSV bereitstellen" + Me.cbxSonst_CsvMautbericht.UseVisualStyleBackColor = True + ' + 'txtSonst_KdNrUTA + ' + Me.txtSonst_KdNrUTA.Location = New System.Drawing.Point(119, 156) + Me.txtSonst_KdNrUTA.Name = "txtSonst_KdNrUTA" + Me.txtSonst_KdNrUTA.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrUTA.TabIndex = 13 + ' + 'Label75 + ' + Me.Label75.AutoSize = True + Me.Label75.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label75.Location = New System.Drawing.Point(6, 159) + Me.Label75.Name = "Label75" + Me.Label75.Size = New System.Drawing.Size(76, 13) + Me.Label75.TabIndex = 12 + Me.Label75.Text = "KdNr bei UTA:" + ' + 'txtSonst_KdNrTelepass + ' + Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(119, 130) + Me.txtSonst_KdNrTelepass.Name = "txtSonst_KdNrTelepass" + Me.txtSonst_KdNrTelepass.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrTelepass.TabIndex = 11 + ' + 'Label74 + ' + 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(6, 133) + Me.Label74.Name = "Label74" + Me.Label74.Size = New System.Drawing.Size(109, 13) + Me.Label74.TabIndex = 10 + Me.Label74.Text = "KdNr bei TELEPASS:" + ' + 'txtSonst_KdNrMSE + ' + Me.txtSonst_KdNrMSE.Location = New System.Drawing.Point(119, 104) + Me.txtSonst_KdNrMSE.Name = "txtSonst_KdNrMSE" + Me.txtSonst_KdNrMSE.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrMSE.TabIndex = 8 + ' + 'Label73 + ' + Me.Label73.AutoSize = True + Me.Label73.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label73.Location = New System.Drawing.Point(6, 107) + Me.Label73.Name = "Label73" + Me.Label73.Size = New System.Drawing.Size(77, 13) + Me.Label73.TabIndex = 7 + Me.Label73.Text = "KdNr bei MSE:" + ' + 'txtSonst_KdNrWOELFL + ' + Me.txtSonst_KdNrWOELFL.Location = New System.Drawing.Point(119, 78) + Me.txtSonst_KdNrWOELFL.Name = "txtSonst_KdNrWOELFL" + Me.txtSonst_KdNrWOELFL.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrWOELFL.TabIndex = 6 + ' + 'Label72 + ' + Me.Label72.AutoSize = True + Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label72.Location = New System.Drawing.Point(6, 81) + Me.Label72.Name = "Label72" + Me.Label72.Size = New System.Drawing.Size(78, 13) + Me.Label72.TabIndex = 5 + Me.Label72.Text = "KdNr bei Wölfl:" + ' + 'txtSonst_KdNrIDS + ' + Me.txtSonst_KdNrIDS.Enabled = False + Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(119, 52) + Me.txtSonst_KdNrIDS.Name = "txtSonst_KdNrIDS" + Me.txtSonst_KdNrIDS.Size = New System.Drawing.Size(122, 20) + Me.txtSonst_KdNrIDS.TabIndex = 4 + ' + 'Label70 + ' + 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(6, 55) + Me.Label70.Name = "Label70" + Me.Label70.Size = New System.Drawing.Size(72, 13) + Me.Label70.TabIndex = 3 + Me.Label70.Text = "KdNr bei IDS:" + ' + 'Label71 + ' + Me.Label71.AutoSize = True + Me.Label71.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label71.Location = New System.Drawing.Point(6, 9) + Me.Label71.Name = "Label71" + Me.Label71.Size = New System.Drawing.Size(92, 13) + Me.Label71.TabIndex = 0 + Me.Label71.Text = "Rechnungsdruck:" + ' 'btnSonstAendSpeichern ' Me.btnSonstAendSpeichern.allowBorder = False @@ -4246,6 +3431,160 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboSonst_Rechnungsdruck.Size = New System.Drawing.Size(122, 21) Me.cboSonst_Rechnungsdruck.TabIndex = 1 ' + 'tbSchnittstellen + ' + Me.tbSchnittstellen.Controls.Add(Me.txtVERAG_Schnittstellen_ID) + Me.tbSchnittstellen.Controls.Add(Me.Label91) + Me.tbSchnittstellen.Controls.Add(Me.Label92) + Me.tbSchnittstellen.Controls.Add(Me.DataGridView1) + Me.tbSchnittstellen.Location = New System.Drawing.Point(4, 22) + Me.tbSchnittstellen.Name = "tbSchnittstellen" + Me.tbSchnittstellen.Padding = New System.Windows.Forms.Padding(3) + Me.tbSchnittstellen.Size = New System.Drawing.Size(672, 458) + Me.tbSchnittstellen.TabIndex = 10 + Me.tbSchnittstellen.Text = "Schnittstellen" + Me.tbSchnittstellen.UseVisualStyleBackColor = True + ' + 'txtVERAG_Schnittstellen_ID + ' + Me.txtVERAG_Schnittstellen_ID.Enabled = False + Me.txtVERAG_Schnittstellen_ID.Location = New System.Drawing.Point(131, 17) + Me.txtVERAG_Schnittstellen_ID.Name = "txtVERAG_Schnittstellen_ID" + Me.txtVERAG_Schnittstellen_ID.Size = New System.Drawing.Size(122, 20) + Me.txtVERAG_Schnittstellen_ID.TabIndex = 24 + ' + 'Label91 + ' + Me.Label91.AutoSize = True + Me.Label91.Enabled = False + Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label91.Location = New System.Drawing.Point(6, 20) + Me.Label91.Name = "Label91" + Me.Label91.Size = New System.Drawing.Size(119, 13) + Me.Label91.TabIndex = 23 + Me.Label91.Text = "VERAG Schnittellen-ID:" + ' + 'Label92 + ' + Me.Label92.AutoSize = True + Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label92.Location = New System.Drawing.Point(6, 77) + Me.Label92.Name = "Label92" + Me.Label92.Size = New System.Drawing.Size(110, 13) + Me.Label92.TabIndex = 21 + Me.Label92.Text = "VERAG-Schnittstellen" + ' + 'DataGridView1 + ' + Me.DataGridView1.AllowUserToResizeRows = False + DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 + Me.DataGridView1.BackgroundColor = System.Drawing.Color.White + Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView1.Enabled = False + Me.DataGridView1.Location = New System.Drawing.Point(9, 93) + Me.DataGridView1.MultiSelect = False + Me.DataGridView1.Name = "DataGridView1" + Me.DataGridView1.Size = New System.Drawing.Size(657, 358) + Me.DataGridView1.TabIndex = 22 + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label33.Location = New System.Drawing.Point(8, 161) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(78, 13) + Me.Label33.TabIndex = 12 + Me.Label33.Text = "EORI / NL-Nr.:" + ' + 'Label84 + ' + Me.Label84.AutoSize = True + Me.Label84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label84.Location = New System.Drawing.Point(259, 108) + Me.Label84.Name = "Label84" + Me.Label84.Size = New System.Drawing.Size(66, 13) + Me.Label84.TabIndex = 8 + Me.Label84.Text = ", geprüft am:" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.cbxUIDMehrfachverwendung) + Me.GroupBox3.Controls.Add(Me.btnCreditsafe) + Me.GroupBox3.Controls.Add(Me.Button13) + Me.GroupBox3.Controls.Add(Me.btnUIDPruef) + Me.GroupBox3.Controls.Add(Me.txtEORINL) + Me.GroupBox3.Controls.Add(Me.Label5) + Me.GroupBox3.Controls.Add(Me.txtEORI) + Me.GroupBox3.Controls.Add(Me.Label33) + Me.GroupBox3.Controls.Add(Me.txtFirmenname1) + Me.GroupBox3.Controls.Add(Me.cboUSt_UstIdNrLand) + Me.GroupBox3.Controls.Add(Me.Label15) + Me.GroupBox3.Controls.Add(Me.Label3) + Me.GroupBox3.Controls.Add(Me.txtUSt_UstIdNrGeprueftAm) + Me.GroupBox3.Controls.Add(Me.txtKurzname) + Me.GroupBox3.Controls.Add(Me.txtUSt_UstIdNr) + Me.GroupBox3.Controls.Add(Me.txtFirmenname2) + Me.GroupBox3.Controls.Add(Me.Label16) + Me.GroupBox3.Controls.Add(Me.txtUSt_Steuernummer) + Me.GroupBox3.Controls.Add(Me.Label84) + Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox3.Location = New System.Drawing.Point(3, 3) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(453, 182) + Me.GroupBox3.TabIndex = 0 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Firma" + ' + 'cbxUIDMehrfachverwendung + ' + Me.cbxUIDMehrfachverwendung.AutoSize = True + Me.cbxUIDMehrfachverwendung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxUIDMehrfachverwendung.Location = New System.Drawing.Point(11, 88) + Me.cbxUIDMehrfachverwendung.Name = "cbxUIDMehrfachverwendung" + Me.cbxUIDMehrfachverwendung.Size = New System.Drawing.Size(152, 17) + Me.cbxUIDMehrfachverwendung.TabIndex = 25 + Me.cbxUIDMehrfachverwendung.Text = "UID-Mehrfachverwendung" + Me.cbxUIDMehrfachverwendung.UseVisualStyleBackColor = True + ' + 'btnCreditsafe + ' + Me.btnCreditsafe.BackgroundImage = Global.SDL.My.Resources.Resources.plus + Me.btnCreditsafe.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnCreditsafe.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCreditsafe.Location = New System.Drawing.Point(10, 60) + Me.btnCreditsafe.Name = "btnCreditsafe" + Me.btnCreditsafe.Size = New System.Drawing.Size(36, 24) + Me.btnCreditsafe.TabIndex = 25 + Me.btnCreditsafe.UseVisualStyleBackColor = True + Me.btnCreditsafe.Visible = False + ' + 'Button13 + ' + Me.Button13.BackgroundImage = Global.SDL.My.Resources.Resources.list + Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button13.FlatAppearance.BorderSize = 0 + Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button13.Location = New System.Drawing.Point(419, 105) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(25, 20) + Me.Button13.TabIndex = 16 + Me.Button13.UseVisualStyleBackColor = True + ' + 'btnUIDPruef + ' + Me.btnUIDPruef.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.btnUIDPruef.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnUIDPruef.FlatAppearance.BorderSize = 0 + Me.btnUIDPruef.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUIDPruef.Location = New System.Drawing.Point(397, 105) + Me.btnUIDPruef.Name = "btnUIDPruef" + Me.btnUIDPruef.Size = New System.Drawing.Size(25, 20) + Me.btnUIDPruef.TabIndex = 15 + Me.btnUIDPruef.UseVisualStyleBackColor = True + Me.btnUIDPruef.Visible = False + ' 'txtEORINL ' Me.txtEORINL._DateTimeOnly = False @@ -4261,7 +3600,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtEORINL._Waehrung = False Me.txtEORINL._WaehrungZeichen = True Me.txtEORINL.ForeColor = System.Drawing.Color.Red - Me.txtEORINL.Location = New System.Drawing.Point(357, 154) + Me.txtEORINL.Location = New System.Drawing.Point(357, 158) Me.txtEORINL.MaxLength = 4 Me.txtEORINL.MaxLineLength = -1 Me.txtEORINL.MaxLines_Warning = "" @@ -4270,6 +3609,16 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtEORINL.Size = New System.Drawing.Size(87, 20) Me.txtEORINL.TabIndex = 14 ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(6, 19) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(57, 13) + Me.Label5.TabIndex = 0 + Me.Label5.Text = "Kurzname:" + ' 'txtEORI ' Me.txtEORI._DateTimeOnly = False @@ -4285,7 +3634,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtEORI._Waehrung = False Me.txtEORI._WaehrungZeichen = True Me.txtEORI.ForeColor = System.Drawing.Color.Black - Me.txtEORI.Location = New System.Drawing.Point(110, 154) + Me.txtEORI.Location = New System.Drawing.Point(110, 158) Me.txtEORI.MaxLength = 17 Me.txtEORI.MaxLineLength = -1 Me.txtEORI.MaxLines_Warning = "" @@ -4294,6 +3643,15 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtEORI.Size = New System.Drawing.Size(248, 20) Me.txtEORI.TabIndex = 13 ' + 'txtFirmenname1 + ' + Me.txtFirmenname1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFirmenname1.Location = New System.Drawing.Point(110, 42) + Me.txtFirmenname1.MaxLength = 40 + Me.txtFirmenname1.Name = "txtFirmenname1" + Me.txtFirmenname1.Size = New System.Drawing.Size(334, 20) + Me.txtFirmenname1.TabIndex = 3 + ' 'cboUSt_UstIdNrLand ' Me.cboUSt_UstIdNrLand._allowedValuesFreiText = Nothing @@ -4304,11 +3662,31 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboUSt_UstIdNrLand.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cboUSt_UstIdNrLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboUSt_UstIdNrLand.FormattingEnabled = True - Me.cboUSt_UstIdNrLand.Location = New System.Drawing.Point(111, 101) + Me.cboUSt_UstIdNrLand.Location = New System.Drawing.Point(111, 105) Me.cboUSt_UstIdNrLand.Name = "cboUSt_UstIdNrLand" Me.cboUSt_UstIdNrLand.Size = New System.Drawing.Size(43, 21) Me.cboUSt_UstIdNrLand.TabIndex = 6 ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.Location = New System.Drawing.Point(8, 108) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(39, 13) + Me.Label15.TabIndex = 5 + Me.Label15.Text = "UStID:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(6, 45) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(67, 13) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "Firmenname:" + ' 'txtUSt_UstIdNrGeprueftAm ' Me.txtUSt_UstIdNrGeprueftAm._DateTimeOnly = False @@ -4324,7 +3702,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_UstIdNrGeprueftAm._Waehrung = False Me.txtUSt_UstIdNrGeprueftAm._WaehrungZeichen = True Me.txtUSt_UstIdNrGeprueftAm.ForeColor = System.Drawing.Color.Red - Me.txtUSt_UstIdNrGeprueftAm.Location = New System.Drawing.Point(324, 101) + Me.txtUSt_UstIdNrGeprueftAm.Location = New System.Drawing.Point(324, 105) Me.txtUSt_UstIdNrGeprueftAm.MaxLength = 10 Me.txtUSt_UstIdNrGeprueftAm.MaxLineLength = -1 Me.txtUSt_UstIdNrGeprueftAm.MaxLines_Warning = "" @@ -4334,6 +3712,15 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_UstIdNrGeprueftAm.TabIndex = 9 Me.txtUSt_UstIdNrGeprueftAm.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' + 'txtKurzname + ' + Me.txtKurzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKurzname.Location = New System.Drawing.Point(110, 16) + Me.txtKurzname.MaxLength = 50 + Me.txtKurzname.Name = "txtKurzname" + Me.txtKurzname.Size = New System.Drawing.Size(334, 20) + Me.txtKurzname.TabIndex = 1 + ' 'txtUSt_UstIdNr ' Me.txtUSt_UstIdNr._DateTimeOnly = False @@ -4349,7 +3736,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_UstIdNr._Waehrung = False Me.txtUSt_UstIdNr._WaehrungZeichen = True Me.txtUSt_UstIdNr.ForeColor = System.Drawing.Color.Black - Me.txtUSt_UstIdNr.Location = New System.Drawing.Point(154, 101) + Me.txtUSt_UstIdNr.Location = New System.Drawing.Point(154, 105) Me.txtUSt_UstIdNr.MaxLength = 12 Me.txtUSt_UstIdNr.MaxLineLength = -1 Me.txtUSt_UstIdNr.MaxLines_Warning = "" @@ -4359,6 +3746,25 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_UstIdNr.TabIndex = 7 Me.txtUSt_UstIdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' + 'txtFirmenname2 + ' + Me.txtFirmenname2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFirmenname2.Location = New System.Drawing.Point(110, 68) + Me.txtFirmenname2.MaxLength = 40 + Me.txtFirmenname2.Name = "txtFirmenname2" + Me.txtFirmenname2.Size = New System.Drawing.Size(334, 20) + Me.txtFirmenname2.TabIndex = 4 + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(6, 135) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(78, 13) + Me.Label16.TabIndex = 10 + Me.Label16.Text = "Steuernummer:" + ' 'txtUSt_Steuernummer ' Me.txtUSt_Steuernummer._DateTimeOnly = False @@ -4374,7 +3780,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_Steuernummer._Waehrung = False Me.txtUSt_Steuernummer._WaehrungZeichen = True Me.txtUSt_Steuernummer.ForeColor = System.Drawing.Color.Black - Me.txtUSt_Steuernummer.Location = New System.Drawing.Point(110, 128) + Me.txtUSt_Steuernummer.Location = New System.Drawing.Point(110, 132) Me.txtUSt_Steuernummer.MaxLineLength = -1 Me.txtUSt_Steuernummer.MaxLines_Warning = "" Me.txtUSt_Steuernummer.MaxLines_Warning_Label = Nothing @@ -4383,6 +3789,25 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_Steuernummer.TabIndex = 11 Me.txtUSt_Steuernummer.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cbxLandKz) + Me.GroupBox1.Controls.Add(Me.Label14) + Me.GroupBox1.Controls.Add(Me.txtPostfachOrt) + Me.GroupBox1.Controls.Add(Me.txtOrt) + Me.GroupBox1.Controls.Add(Me.Label12) + Me.GroupBox1.Controls.Add(Me.txtPostfachPlz) + Me.GroupBox1.Controls.Add(Me.txtPlz) + Me.GroupBox1.Controls.Add(Me.Label4) + Me.GroupBox1.Controls.Add(Me.txtStrasse) + Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox1.Location = New System.Drawing.Point(3, 183) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(453, 102) + Me.GroupBox1.TabIndex = 1 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Adresse" + ' 'cbxLandKz ' Me.cbxLandKz._allowedValuesFreiText = Nothing @@ -4399,11 +3824,558 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxLandKz.Size = New System.Drawing.Size(39, 21) Me.cbxLandKz.TabIndex = 3 ' - 'DataGridViewTextBoxColumn2 + 'Label14 ' - Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" - Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.Label14.AutoSize = True + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.Location = New System.Drawing.Point(6, 78) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(100, 13) + Me.Label14.TabIndex = 6 + Me.Label14.Text = "Postfach PLZ / Ort:" + ' + 'txtPostfachOrt + ' + Me.txtPostfachOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPostfachOrt.Location = New System.Drawing.Point(232, 75) + Me.txtPostfachOrt.MaxLength = 40 + Me.txtPostfachOrt.Name = "txtPostfachOrt" + Me.txtPostfachOrt.Size = New System.Drawing.Size(212, 20) + Me.txtPostfachOrt.TabIndex = 8 + ' + 'txtOrt + ' + Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOrt.Location = New System.Drawing.Point(232, 49) + Me.txtOrt.MaxLength = 40 + Me.txtOrt.Name = "txtOrt" + Me.txtOrt.Size = New System.Drawing.Size(212, 20) + Me.txtOrt.TabIndex = 5 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.Location = New System.Drawing.Point(6, 52) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(90, 13) + Me.Label12.TabIndex = 2 + Me.Label12.Text = "Land / PLZ / Ort:" + ' + 'txtPostfachPlz + ' + Me.txtPostfachPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 75) + Me.txtPostfachPlz.MaxLength = 7 + Me.txtPostfachPlz.Name = "txtPostfachPlz" + Me.txtPostfachPlz.Size = New System.Drawing.Size(116, 20) + Me.txtPostfachPlz.TabIndex = 7 + ' + 'txtPlz + ' + Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPlz.Location = New System.Drawing.Point(155, 49) + Me.txtPlz.MaxLength = 7 + Me.txtPlz.Name = "txtPlz" + Me.txtPlz.Size = New System.Drawing.Size(71, 20) + Me.txtPlz.TabIndex = 4 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(6, 25) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(41, 13) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "Straße:" + ' + 'txtStrasse + ' + Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtStrasse.Location = New System.Drawing.Point(110, 22) + Me.txtStrasse.MaxLength = 40 + Me.txtStrasse.Name = "txtStrasse" + Me.txtStrasse.Size = New System.Drawing.Size(334, 20) + Me.txtStrasse.TabIndex = 1 + ' + 'txtAnsprechpartnerAnrede + ' + Me.txtAnsprechpartnerAnrede.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAnsprechpartnerAnrede.Location = New System.Drawing.Point(107, 148) + Me.txtAnsprechpartnerAnrede.MaxLength = 4 + Me.txtAnsprechpartnerAnrede.Name = "txtAnsprechpartnerAnrede" + Me.txtAnsprechpartnerAnrede.Size = New System.Drawing.Size(55, 20) + Me.txtAnsprechpartnerAnrede.TabIndex = 11 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.Location = New System.Drawing.Point(3, 66) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(67, 13) + Me.Label20.TabIndex = 4 + Me.Label20.Text = "Mobiltelefon:" + ' + 'txtMobil + ' + Me.txtMobil.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtMobil.Location = New System.Drawing.Point(107, 63) + Me.txtMobil.MaxLength = 50 + Me.txtMobil.Name = "txtMobil" + Me.txtMobil.Size = New System.Drawing.Size(333, 20) + Me.txtMobil.TabIndex = 5 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(3, 151) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(88, 13) + Me.Label10.TabIndex = 10 + Me.Label10.Text = "Ansprechpartner:" + ' + 'txtAnsprechpartner + ' + Me.txtAnsprechpartner.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAnsprechpartner.Location = New System.Drawing.Point(168, 148) + Me.txtAnsprechpartner.MaxLength = 40 + Me.txtAnsprechpartner.Name = "txtAnsprechpartner" + Me.txtAnsprechpartner.Size = New System.Drawing.Size(272, 20) + Me.txtAnsprechpartner.TabIndex = 12 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(3, 123) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(39, 13) + Me.Label13.TabIndex = 8 + Me.Label13.Text = "E-Mail:" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.Location = New System.Drawing.Point(3, 97) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(39, 13) + Me.Label11.TabIndex = 6 + Me.Label11.Text = "E-Mail:" + ' + 'txtEmail2 + ' + Me.txtEmail2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtEmail2.Location = New System.Drawing.Point(107, 120) + Me.txtEmail2.MaxLength = 40 + Me.txtEmail2.Name = "txtEmail2" + Me.txtEmail2.Size = New System.Drawing.Size(333, 20) + Me.txtEmail2.TabIndex = 9 + ' + 'txtEmail + ' + Me.txtEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtEmail.Location = New System.Drawing.Point(107, 94) + Me.txtEmail.MaxLength = 40 + Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Size = New System.Drawing.Size(333, 20) + Me.txtEmail.TabIndex = 7 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(3, 40) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(27, 13) + Me.Label7.TabIndex = 2 + Me.Label7.Text = "Fax:" + ' + 'txtFax + ' + Me.txtFax.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtFax.Location = New System.Drawing.Point(107, 37) + Me.txtFax.MaxLength = 20 + Me.txtFax.Name = "txtFax" + Me.txtFax.Size = New System.Drawing.Size(333, 20) + Me.txtFax.TabIndex = 3 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(3, 14) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(46, 13) + Me.Label9.TabIndex = 0 + Me.Label9.Text = "Telefon:" + ' + 'txtTel + ' + Me.txtTel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtTel.Location = New System.Drawing.Point(107, 11) + Me.txtTel.MaxLength = 20 + Me.txtTel.Name = "txtTel" + Me.txtTel.Size = New System.Drawing.Size(333, 20) + Me.txtTel.TabIndex = 1 + ' + 'btnFirmendatenFormularSpeichern + ' + Me.btnFirmendatenFormularSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(1081, 503) + Me.btnFirmendatenFormularSpeichern.Name = "btnFirmendatenFormularSpeichern" + Me.btnFirmendatenFormularSpeichern.Size = New System.Drawing.Size(71, 52) + Me.btnFirmendatenFormularSpeichern.TabIndex = 16 + Me.btnFirmendatenFormularSpeichern.Text = "Speichern" + Me.btnFirmendatenFormularSpeichern.UseVisualStyleBackColor = True + ' + 'lblSachbearbeiter + ' + Me.lblSachbearbeiter.AutoSize = True + Me.lblSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSachbearbeiter.Location = New System.Drawing.Point(131, 525) + Me.lblSachbearbeiter.Name = "lblSachbearbeiter" + Me.lblSachbearbeiter.Size = New System.Drawing.Size(10, 13) + Me.lblSachbearbeiter.TabIndex = 13 + Me.lblSachbearbeiter.Text = "-" + ' + 'lblErfassung + ' + Me.lblErfassung.AutoSize = True + Me.lblErfassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblErfassung.Location = New System.Drawing.Point(130, 499) + Me.lblErfassung.Name = "lblErfassung" + Me.lblErfassung.Size = New System.Drawing.Size(10, 13) + Me.lblErfassung.TabIndex = 5 + Me.lblErfassung.Text = "-" + ' + 'lblAenderung + ' + Me.lblAenderung.AutoSize = True + Me.lblAenderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAenderung.Location = New System.Drawing.Point(131, 512) + Me.lblAenderung.Name = "lblAenderung" + Me.lblAenderung.Size = New System.Drawing.Size(10, 13) + Me.lblAenderung.TabIndex = 11 + Me.lblAenderung.Text = "-" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.Location = New System.Drawing.Point(10, 525) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(117, 13) + Me.Label26.TabIndex = 12 + Me.Label26.Text = "Letzter Sachbearbeiter:" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label25.Location = New System.Drawing.Point(9, 499) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(91, 13) + Me.Label25.TabIndex = 4 + Me.Label25.Text = "Erfassungsdatum:" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.Location = New System.Drawing.Point(10, 512) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(90, 13) + Me.Label23.TabIndex = 10 + Me.Label23.Text = "Änderungsdatum:" + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(573, 509) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(98, 38) + Me.Button1.TabIndex = 14 + Me.Button1.Text = "Kundenstamm jetzt übertragen" + Me.Button1.UseVisualStyleBackColor = True + Me.Button1.Visible = False + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label28.Location = New System.Drawing.Point(585, 550) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(10, 13) + Me.Label28.TabIndex = 9 + Me.Label28.Text = "-" + Me.Label28.Visible = False + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label29.Location = New System.Drawing.Point(567, 493) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(109, 13) + Me.Label29.TabIndex = 8 + Me.Label29.Text = "Übertrag in DAKOSY:" + Me.Label29.Visible = False + ' + 'tbKontakt + ' + Me.tbKontakt.Controls.Add(Me.TabPage10) + Me.tbKontakt.Controls.Add(Me.TabPage11) + Me.tbKontakt.Location = New System.Drawing.Point(3, 286) + Me.tbKontakt.Name = "tbKontakt" + Me.tbKontakt.SelectedIndex = 0 + Me.tbKontakt.Size = New System.Drawing.Size(453, 201) + Me.tbKontakt.TabIndex = 2 + ' + 'TabPage10 + ' + Me.TabPage10.Controls.Add(Me.txtAnsprechpartnerAnrede) + Me.TabPage10.Controls.Add(Me.Label9) + Me.TabPage10.Controls.Add(Me.Label20) + Me.TabPage10.Controls.Add(Me.txtTel) + Me.TabPage10.Controls.Add(Me.txtMobil) + Me.TabPage10.Controls.Add(Me.txtFax) + Me.TabPage10.Controls.Add(Me.Label10) + Me.TabPage10.Controls.Add(Me.Label7) + Me.TabPage10.Controls.Add(Me.txtAnsprechpartner) + Me.TabPage10.Controls.Add(Me.txtEmail) + Me.TabPage10.Controls.Add(Me.Label13) + Me.TabPage10.Controls.Add(Me.txtEmail2) + Me.TabPage10.Controls.Add(Me.Label11) + Me.TabPage10.Location = New System.Drawing.Point(4, 22) + Me.TabPage10.Name = "TabPage10" + Me.TabPage10.Size = New System.Drawing.Size(445, 175) + Me.TabPage10.TabIndex = 2 + Me.TabPage10.Text = "Kontakt" + Me.TabPage10.UseVisualStyleBackColor = True + ' + 'TabPage11 + ' + Me.TabPage11.Controls.Add(Me.ucKundenKontakte) + Me.TabPage11.Location = New System.Drawing.Point(4, 22) + Me.TabPage11.Name = "TabPage11" + Me.TabPage11.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage11.Size = New System.Drawing.Size(445, 175) + Me.TabPage11.TabIndex = 3 + Me.TabPage11.Text = "Spezifisch" + Me.TabPage11.UseVisualStyleBackColor = True + ' + 'ucKundenKontakte + ' + Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) + Me.ucKundenKontakte.Name = "ucKundenKontakte" + Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169) + Me.ucKundenKontakte.TabIndex = 0 + ' + 'Label50 + ' + Me.Label50.AutoSize = True + Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label50.Location = New System.Drawing.Point(6, 16) + Me.Label50.Name = "Label50" + Me.Label50.Size = New System.Drawing.Size(92, 13) + Me.Label50.TabIndex = 0 + Me.Label50.Text = "Zuständige Filiale:" + ' + 'Label68 + ' + Me.Label68.AutoSize = True + Me.Label68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label68.Location = New System.Drawing.Point(6, 46) + Me.Label68.Name = "Label68" + Me.Label68.Size = New System.Drawing.Size(69, 13) + Me.Label68.TabIndex = 2 + Me.Label68.Text = "Kundenkreis:" + ' + 'pnlNeukunde + ' + Me.pnlNeukunde.Controls.Add(Me.Button2) + Me.pnlNeukunde.Controls.Add(Me.Label50) + Me.pnlNeukunde.Controls.Add(Me.cboFiliale) + Me.pnlNeukunde.Controls.Add(Me.cboKundenkreis) + Me.pnlNeukunde.Controls.Add(Me.Label68) + Me.pnlNeukunde.Location = New System.Drawing.Point(776, 493) + Me.pnlNeukunde.Name = "pnlNeukunde" + Me.pnlNeukunde.Size = New System.Drawing.Size(303, 74) + Me.pnlNeukunde.TabIndex = 15 + Me.pnlNeukunde.Visible = False + ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(194, 7) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(105, 30) + Me.Button2.TabIndex = 19 + Me.Button2.Text = "Wunsch-KdNr" + Me.Button2.UseVisualStyleBackColor = True + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboFiliale.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFiliale.DropDownWidth = 400 + Me.cboFiliale.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(104, 8) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(84, 28) + Me.cboFiliale.TabIndex = 1 + ' + 'cboKundenkreis + ' + Me.cboKundenkreis._allowedValuesFreiText = Nothing + Me.cboKundenkreis._allowFreiText = False + Me.cboKundenkreis._value = "" + Me.cboKundenkreis.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboKundenkreis.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboKundenkreis.DropDownWidth = 400 + Me.cboKundenkreis.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboKundenkreis.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboKundenkreis.FormattingEnabled = True + Me.cboKundenkreis.Items.AddRange(New Object() {"", "100000-199999: XXXXXX", "200000-299999: XXXXXX", "300000-399999: XXXXXX", "400000-499999: XXXXXX", "500000-599999: XXXXXX", "600000-699999: XXXXXX", "700000-799999: XXXXXX", "800000-899999: XXXXXX", "900000-999999: XXXXXX"}) + Me.cboKundenkreis.Location = New System.Drawing.Point(104, 38) + Me.cboKundenkreis.Name = "cboKundenkreis" + Me.cboKundenkreis.Size = New System.Drawing.Size(195, 28) + Me.cboKundenkreis.TabIndex = 3 + ' + 'Label77 + ' + Me.Label77.AutoSize = True + Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label77.Location = New System.Drawing.Point(780, 534) + Me.Label77.Name = "Label77" + Me.Label77.Size = New System.Drawing.Size(64, 13) + Me.Label77.TabIndex = 6 + Me.Label77.Text = "Kunden-Nr.:" + ' + 'lblKundennr + ' + Me.lblKundennr.AutoSize = True + Me.lblKundennr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblKundennr.Location = New System.Drawing.Point(850, 532) + Me.lblKundennr.Name = "lblKundennr" + Me.lblKundennr.Size = New System.Drawing.Size(14, 17) + Me.lblKundennr.TabIndex = 7 + Me.lblKundennr.Text = "-" + ' + 'Label79 + ' + Me.Label79.AutoSize = True + Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label79.Location = New System.Drawing.Point(780, 504) + Me.Label79.Name = "Label79" + Me.Label79.Size = New System.Drawing.Size(40, 13) + Me.Label79.TabIndex = 4 + Me.Label79.Text = "Status:" + ' + 'Label80 + ' + Me.Label80.AutoSize = True + Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label80.Location = New System.Drawing.Point(278, 504) + Me.Label80.Name = "Label80" + Me.Label80.Size = New System.Drawing.Size(59, 13) + Me.Label80.TabIndex = 4 + Me.Label80.Text = "Firma FiBu:" + ' + 'cbxFiBu + ' + Me.cbxFiBu.AutoSize = True + Me.cbxFiBu.Enabled = False + Me.cbxFiBu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxFiBu.Location = New System.Drawing.Point(400, 503) + Me.cbxFiBu.Name = "cbxFiBu" + Me.cbxFiBu.Size = New System.Drawing.Size(47, 17) + Me.cbxFiBu.TabIndex = 17 + Me.cbxFiBu.Text = "FiBu" + Me.cbxFiBu.UseVisualStyleBackColor = True + ' + 'cbxFiBuLG + ' + Me.cbxFiBuLG.AutoSize = True + Me.cbxFiBuLG.Enabled = False + Me.cbxFiBuLG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxFiBuLG.Location = New System.Drawing.Point(400, 524) + Me.cbxFiBuLG.Name = "cbxFiBuLG" + Me.cbxFiBuLG.Size = New System.Drawing.Size(64, 17) + Me.cbxFiBuLG.TabIndex = 18 + Me.cbxFiBuLG.Text = "FiBu LG" + Me.cbxFiBuLG.UseVisualStyleBackColor = True + Me.cbxFiBuLG.Visible = False + ' + 'Label97 + ' + Me.Label97.AutoSize = True + Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label97.Location = New System.Drawing.Point(463, 493) + Me.Label97.Name = "Label97" + Me.Label97.Size = New System.Drawing.Size(100, 13) + Me.Label97.TabIndex = 19 + Me.Label97.Text = "Übertrag in SYSKA:" + Me.Label97.Visible = False + ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.Location = New System.Drawing.Point(466, 509) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(101, 38) + Me.Button4.TabIndex = 21 + Me.Button4.Text = "Kundenstamm jetzt übertragen" + Me.Button4.UseVisualStyleBackColor = True + Me.Button4.Visible = False + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Checked = True + Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckBox1.Location = New System.Drawing.Point(466, 549) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(101, 17) + Me.CheckBox1.TabIndex = 22 + Me.CheckBox1.Text = "zuvor speichern" + Me.CheckBox1.UseVisualStyleBackColor = True + Me.CheckBox1.Visible = False + ' + 'txtERROR + ' + Me.txtERROR.BackColor = System.Drawing.SystemColors.Window + Me.txtERROR.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtERROR.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtERROR.ForeColor = System.Drawing.Color.Red + Me.txtERROR.Location = New System.Drawing.Point(13, 540) + Me.txtERROR.MaxLength = 9999 + Me.txtERROR.Multiline = True + Me.txtERROR.Name = "txtERROR" + Me.txtERROR.Size = New System.Drawing.Size(443, 30) + Me.txtERROR.TabIndex = 17 + ' + 'btnDatevExport + ' + Me.btnDatevExport.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDatevExport.Location = New System.Drawing.Point(678, 509) + Me.btnDatevExport.Name = "btnDatevExport" + Me.btnDatevExport.Size = New System.Drawing.Size(93, 38) + Me.btnDatevExport.TabIndex = 23 + Me.btnDatevExport.Text = "Kundenstamm jetzt übertragen" + Me.btnDatevExport.UseVisualStyleBackColor = True + Me.btnDatevExport.Visible = False ' 'Label98 ' @@ -4416,16 +4388,45 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label98.Text = "Übertrag in DATEV:" Me.Label98.Visible = False ' - 'cbxSndDatenAusSTB + 'cboFirma ' - Me.cbxSndDatenAusSTB.AutoSize = True - Me.cbxSndDatenAusSTB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxSndDatenAusSTB.Location = New System.Drawing.Point(417, 221) - Me.cbxSndDatenAusSTB.Name = "cbxSndDatenAusSTB" - Me.cbxSndDatenAusSTB.Size = New System.Drawing.Size(145, 17) - Me.cbxSndDatenAusSTB.TabIndex = 40 - Me.cbxSndDatenAusSTB.Text = "Sendungsdaten aus STB" - Me.cbxSndDatenAusSTB.UseVisualStyleBackColor = True + Me.cboFirma._allowedValuesFreiText = Nothing + Me.cboFirma._allowFreiText = False + Me.cboFirma._value = "" + Me.cboFirma.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboFirma.DropDownHeight = 350 + Me.cboFirma.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFirma.DropDownWidth = 400 + Me.cboFirma.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFirma.FormattingEnabled = True + Me.cboFirma.IntegralHeight = False + Me.cboFirma.Location = New System.Drawing.Point(342, 496) + Me.cboFirma.Name = "cboFirma" + Me.cboFirma.Size = New System.Drawing.Size(49, 28) + Me.cboFirma.TabIndex = 5 + ' + 'cboAuswahl + ' + Me.cboAuswahl._allowedValuesFreiText = Nothing + Me.cboAuswahl._allowFreiText = False + Me.cboAuswahl._value = "" + Me.cboAuswahl.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboAuswahl.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboAuswahl.DropDownWidth = 400 + Me.cboAuswahl.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboAuswahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboAuswahl.FormattingEnabled = True + Me.cboAuswahl.Location = New System.Drawing.Point(826, 496) + Me.cboAuswahl.Name = "cboAuswahl" + Me.cboAuswahl.Size = New System.Drawing.Size(124, 28) + Me.cboAuswahl.TabIndex = 5 + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' 'usrcntlKundeBearbeitenFull ' @@ -4810,4 +4811,5 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents Label99 As Label Friend WithEvents txtCreditsafe As TextBox Friend WithEvents cbxSndDatenAusSTB As CheckBox + Friend WithEvents cbxUIDMehrfachverwendung As CheckBox End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 5d6046e6..51764a40 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -353,6 +353,7 @@ Public Class usrcntlKundeBearbeitenFull cbxSonst_CsvMautbericht.Checked = loadValue(ADRESSE.ExportMautberichtCSV, False) cbxSonst_CsvMSE.Checked = loadValue(ADRESSE.MSEExportCSV, False) cbxSonst_CsvUTA.Checked = loadValue(ADRESSE.UTAExportCSV, False) + cbxUIDMehrfachverwendung.Checked = KUNDE_ERW.kde_UIDMehrfachverwendung txtAbf_ZollVmVom.Enabled = cbxAbf_ZollVM.Checked @@ -582,6 +583,7 @@ Public Class usrcntlKundeBearbeitenFull KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked KUNDE_ERW.Veranlagungskunde = cbxVeranlagungskunde.Checked KUNDE_ERW.kde_Abrechnung_SendungsdatenAusSTB = cbxSndDatenAusSTB.Checked + KUNDE_ERW.kde_UIDMehrfachverwendung = cbxUIDMehrfachverwendung.Checked KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text) KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked @@ -678,7 +680,7 @@ Public Class usrcntlKundeBearbeitenFull Dim err = "" - If Not ADRESSE.VALID(err, KUNDE) Then + If Not ADRESSE.VALID(err, KUNDE, cbxUIDMehrfachverwendung.Checked) Then txtERROR.Text = err : Exit Sub End If If Not KUNDE.VALID(err) Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb index 529ab26d..45a4a9f3 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb @@ -144,7 +144,7 @@ Public Class cAdressen Dim kundenNameUID = "" - Function VALID(ByRef ERROR_TXT, KD) As Boolean + Function VALID(ByRef ERROR_TXT As String, KD As cKunde, Optional ByVal UIDMehfachverwendung As Boolean = False) As Boolean If If(Ordnungsbegriff, "") = "" Then ERROR_TXT = "Bitte geben Sie einen Ordnungsbegriff ein!" : Return False If If(Name_1, "") = "" Then ERROR_TXT = "Bitte geben Sie den Firmenwortlaut ein!" : Return False If If(LandKz, "") = "" Then ERROR_TXT = "Bitte geben Sie das Land an!" : Return False @@ -152,18 +152,19 @@ Public Class cAdressen If If(PLZ, "") = "" Then ERROR_TXT = "Bitte geben Sie die PLZ an!" : Return False 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, kundenNameUID) Then ERROR_TXT = "Die UID Nummer existiert bereits " & kundenNameUID & "!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False + 'Prüfung Neuanlage: Nur Hinweismeldung! -> speichern soll trotzdem möglich sein! + If checkUID(KD, kundenNameUID, UIDMehfachverwendung) Then ERROR_TXT = "Die UID Nummer existiert bereits " & kundenNameUID & "!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False Else - Try + Try Dim kunde = DirectCast(KD, cKunde) Dim addresseTemp = New cAdressen(kunde.KundenNr) If Not (addresseTemp.UstIdKz = UstIdKz And addresseTemp.UstIdNr = UstIdNr) Then - If checkUID(KD, kundenNameUID) Then ERROR_TXT = "Die UID Nummer existiert bereits " & kundenNameUID & "!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False + 'Nur Hinweismeldung! -> speichern soll trotzdem möglich sein! + If checkUID(KD, kundenNameUID, UIDMehfachverwendung) Then ERROR_TXT = "Die UID Nummer existiert bereits " & kundenNameUID & "!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False End If Catch ex As Exception - MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try @@ -171,8 +172,8 @@ Public Class cAdressen Return True End Function - Function checkUID(KD As cKunde, ByRef kundenNameUID As String) As Boolean - If If(UstIdKz, String.Empty) <> String.Empty And If(UstIdNr, String.Empty) <> String.Empty Then + Function checkUID(KD As cKunde, ByRef kundenNameUID As String, UIDMehfachverwendung As Boolean) As Boolean + If If(UstIdKz, String.Empty) <> String.Empty And If(UstIdNr, String.Empty) <> String.Empty And Not UIDMehfachverwendung Then kundenNameUID = SQL.getValueTxtBySql("SELECT TOP(1) '(' + Cast([AdressenNr] AS NVARCHAR) +' - '+ Cast([Name 1] AS NVARCHAR) + ')' FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "' and kunden.FilialenNr='" & KD.FilialenNr & "'", "FMZOLL") If kundenNameUID IsNot "" Then Return True diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb b/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb index dbc54deb..1952efb2 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb @@ -29,6 +29,7 @@ Public Class cBonitaetsauskunft Property ba_CreditSaveBonitaetsScore As Object = Nothing Property ba_CreditSaveBonitaetsIndex As Object = Nothing Property ba_Pruefungstool As Object = Nothing + Property ba_datenarchivId As Object = Nothing Dim SQL As New SQL @@ -69,6 +70,7 @@ Public Class cBonitaetsauskunft list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Pruefungstool", ba_Pruefungstool)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CreditSaveBonitaetsScore", ba_CreditSaveBonitaetsScore)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CreditSaveBonitaetsIndex", ba_CreditSaveBonitaetsIndex)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_datenarchivId", ba_datenarchivId)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index 34ddeb3d..907c603c 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -72,6 +72,7 @@ Public Class cKundenErweitert Property kde_FakturierungSR_Details As Boolean = False Property kde_Fakturierung_Sprache As Object = Nothing Property kde_TOBB_KundenNr As Object = Nothing + Property kde_UIDMehrfachverwendung As Boolean = False Property kde_Abrechnung_SendungsdatenAusSTB As Boolean = False Dim SQL As New SQL @@ -147,6 +148,7 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveId", kde_CreditSaveId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Abrechnung_SendungsdatenAusSTB", kde_Abrechnung_SendungsdatenAusSTB)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveNo", kde_CreditSaveNo)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_UIDMehrfachverwendung", kde_UIDMehrfachverwendung)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb index 54eb5142..84dfa131 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb @@ -3,6 +3,7 @@ Imports System.Net Imports System.Text Imports System.Web.UI.WebControls Imports System.Windows.Forms +Imports Chilkat Imports Microsoft.Office.Interop.Outlook Imports Newtonsoft.Json Imports Spire.Pdf.Lists @@ -12,10 +13,10 @@ Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class cCreditSafeAPI 'Test - Shared API_STRING As String = "https://connect.sandbox.creditsafe.com" + 'Shared API_STRING As String = "https://connect.sandbox.creditsafe.com" 'PROD - 'Shared API_STRING As String = "https://connect.creditsafe.com" + Shared API_STRING As String = "https://connect.creditsafe.com" Shared token As String = "" Public dataTable As New DataTable() @@ -106,15 +107,32 @@ Public Class cCreditSafeAPI rest.AddHeader("Accept", acceptContentType) + Dim responseJson As String + Dim pdfData As New Chilkat.BinData - Dim responseJson As String = rest.FullRequestNoBody(method, url) - If (rest.LastMethodSuccess <> True) Then - Debug.WriteLine(rest.LastErrorText) - MsgBox(rest.LastErrorText) + If acceptContentType.Contains("application/pdf") Then + + responseJson = rest.FullRequestNoBodyBd(method, url, pdfData) + If (rest.LastMethodSuccess <> True) Then + Debug.WriteLine(rest.LastErrorText) + MsgBox(rest.LastErrorText) + Else + Return pdfData.ToString + End If + + Else + + responseJson = rest.FullRequestNoBody(method, url) + If (rest.LastMethodSuccess <> True) Then + Debug.WriteLine(rest.LastErrorText) + MsgBox(rest.LastErrorText) + + Else + Return responseJson + End If End If - Return responseJson Catch ex As WebException VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) @@ -144,9 +162,6 @@ Public Class cCreditSafeAPI Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token) - 'Dim test As String = "{""correlationId"":""9194edd0-1a4a-4520-a332-7306b7c027ca"",""totalSize"":1,""companies"":[{""id"":""AT-X-7256130"",""country"":""AT"",""regNo"":""FN 410356 s"",""vatNo"":[""ATU 68490714""],""safeNo"":""AT05607514"",""name"":""Imex Customs Service GmbH"",""address"":{""simpleValue"":""Autobahngrenze 15, 4975, Suben"",""street"":""Autobahngrenze 15"",""city"":""Suben"",""postCode"":""4975""},""status"":""active"",""officeType"":""headOffice"",""type"":""Ltd"",""dateOfLatestAccounts"":""2021-12-31T00:00:00.000000Z"",""dateOfLatestChange"":""2023-03-03T02:38:30.000Z""}]}" - 'jsonRespString = test - Dim json As New Chilkat.JsonObject Dim success As Boolean = json.Load(jsonRespString) If (success <> True) Then @@ -207,12 +222,24 @@ Public Class cCreditSafeAPI End Function - 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" + Shared Function getReport(ByRef company As Company, withPDF As Boolean) As String 'Shared Function getReport(ByRef company As Company, withPDF As Boolean, ByRef bytes As Byte()) As String + Dim myUrl As String = API_STRING & "/v1/companies/" & company.creditSafeId & "/" + If company.country = "DE" Then + 'Abfragen für DE benötigen einen Reason-Code + myUrl &= "?customData=de_reason_code::2" + myUrl &= "&?language=DE&?template=full" + Else + + myUrl &= "?language=DE&?template=full" End If + + Dim acceptContentType = "application/json" + 'If withPDF Then + ' acceptContentType &= "+pdf" + 'End If + + + Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, Nothing, acceptContentType, "GET", token) Dim json As New Chilkat.JsonObject @@ -222,16 +249,143 @@ Public Class cCreditSafeAPI Return "Verbindungsfehler" End If - Dim num As Integer = json.SizeOfArray("companies") - If num = -1 Then - Return json.StringOf("details") + + 'Aubbau JSON Object + + ' "report" { + ' "companyIdentification" : { + ' "basicInformation" : { + ' "companyRegistrationDate" : "01.01.2022", + ' "creditScore" : { + ' "currentCreditRating" : { + ' "commonValue" : "A", + ' "providerValue" : { + ' "value" : "350", + '....} + ' "pdfReportStream": "base64" + '}, + + + + Dim reportObj As Chilkat.JsonObject = json.ObjectOf("report") + If (json.LastMethodSuccess = True) Then + + Dim companyIDObj As Chilkat.JsonObject = reportObj.ObjectOf("companyIdentification") + If (reportObj.LastMethodSuccess = True) Then + + Dim basicInfoObj As Chilkat.JsonObject = companyIDObj.ObjectOf("basicInformation") + If (companyIDObj.LastMethodSuccess = True) Then + + Dim dateTime As New Chilkat.CkDateTime + Dim getAsLocal As Boolean = False + basicInfoObj.DateOf("companyRegistrationDate", dateTime) + company.csDFoundingDate = dateTime.GetAsTimestamp(getAsLocal) + Debug.WriteLine(dateTime) + + Else + + Debug.WriteLine("basicInfoObj object not found.") + End If + + Else + Debug.WriteLine("companyIDObj object not found.") + End If + + + Dim creditScoreObj As Chilkat.JsonObject = reportObj.ObjectOf("creditScore") + If (reportObj.LastMethodSuccess = True) Then + + + Dim creditRatingObj As Chilkat.JsonObject = creditScoreObj.ObjectOf("currentCreditRating") + If (creditScoreObj.LastMethodSuccess = True) Then + + company.csRiskclass = creditRatingObj.StringOf("commonValue") + + Dim creditLimitObj As Chilkat.JsonObject = creditRatingObj.ObjectOf("creditLimit") + If (creditRatingObj.LastMethodSuccess = True) Then + company.csMaxCreditAmount = creditLimitObj.StringOf("value") + Else + Debug.WriteLine("creditRating object not found.") + End If + + Dim providerValueObj As Chilkat.JsonObject = creditRatingObj.ObjectOf("providerValue") + If (creditRatingObj.LastMethodSuccess = True) Then + company.csIndex = providerValueObj.StringOf("value") + Else + Debug.WriteLine("providerValue object not found.") + + End If + + Else + + Debug.WriteLine("currentCreditRating object not found.") + End If + + + Else + Debug.WriteLine("creditScore object not found.") + Return "creditScore object not found" + End If + + Else + company.csFailure = json.StringOf("details") End If - Return "test" + 'If withPDF Then + ' Dim sb As New Chilkat.StringBuilder + ' json.StringOfSb("pdfReportStream", sb) + + ' Dim bd As New Chilkat.BinData + ' bd.AppendEncodedSb(sb, "base64") + + ' bytes = Convert.FromBase64String(sb.ToString) + + ' Return "mitPDF" + + 'End If + + Return "ohnePDF" + + End Function + + Shared Function getPDF(ByRef company As Company) As Byte() + + Dim myUrl As String = API_STRING & "/v1/companies/" & company.creditSafeId & "/" + If company.country = "DE" Then + 'Abfragen für DE benötigen einen Reason-Code + myUrl &= "?customData=de_reason_code::2" + myUrl &= "&?language=DE" + Else + + myUrl &= "?language=DE" + End If + + Dim acceptContentType = "application/pdf" + + Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, Nothing, acceptContentType, "GET", token) + + 'Dim json As New Chilkat.JsonObject + 'Dim success As Boolean = json.Load(jsonRespString) + 'If (success <> True) Then + ' Debug.WriteLine(json.LastErrorText) + + 'End If + + 'Dim sb As New Chilkat.StringBuilder + 'json.StringOfSb("pdfReportStream", sb) + + 'Dim bd As New Chilkat.BinData + 'bd.AppendEncodedSb(sb, "base64") + + 'Return Convert.FromBase64String(sb.ToString) + If jsonRespString IsNot Nothing Then + Return Convert.FromBase64String(jsonRespString) + End If End Function + Shared Sub setSearchParam(ByRef rest As Chilkat.Rest, ByRef company As Company) @@ -307,6 +461,12 @@ Public Class cCreditSafeAPI Public Property country As String Public Property creditsafeNo As String Public Property lastChecked As Date + Public Property csIndex As String + Public Property csRiskclass As String + Public Property csMaxCreditAmount As String + Public Property csDFoundingDate As Date + Public Property csPDF As String + Public Property csFailure As String Public Sub New(_name As String, _vatNo As String, _country As String, _creditsafeNo As String, _creditSafeId As String, _lastChecked As Date)