From ad459e07658c00d07eeaf6786c0d5173deddc343 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 28 Mar 2023 16:48:20 +0200 Subject: [PATCH] Creditsafe_API --- SDL/App.config | 2 +- SDL/Creditsafe/usrcntlCreditsafe.Designer.vb | 169 +++++++++ SDL/Creditsafe/usrcntlCreditsafe.resx | 120 +++++++ SDL/Creditsafe/usrcntlCreditsafe.vb | 208 +++++++++++ SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb | 71 ++-- SDL/Formulare/CARNET-TIR/frmTIR.vb | 124 +++++-- SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb | 83 ++--- .../CARNET-TIR/usrcntlTIR.Designer.vb | 330 +++++++++--------- SDL/Formulare/CARNET-TIR/usrcntlTIR.resx | 5 +- SDL/Formulare/CARNET-TIR/usrcntlTIR.vb | 2 +- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/SDL.vbproj | 12 +- SDL/kunden/frmKundenblatt.Designer.vb | 136 ++++---- .../usrCntlKundenuebersicht.Designer.vb | 141 ++++---- SDL/kunden/usrCntlKundenuebersicht.vb | 64 +++- .../usrcntlKundeBearbeitenFull.Designer.vb | 170 +++++---- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 45 +++ SDL/packages.config | 2 +- .../Classes/cAvisoAnhaenge.vb | 8 + .../Classes/cKundenErweitert.vb | 3 + .../Schnittstellen/cCreditSafeAPI.vb | 271 ++++++++++++++ .../VERAG_PROG_ALLGEMEIN.vbproj | 3 +- 22 files changed, 1479 insertions(+), 494 deletions(-) create mode 100644 SDL/Creditsafe/usrcntlCreditsafe.Designer.vb create mode 100644 SDL/Creditsafe/usrcntlCreditsafe.resx create mode 100644 SDL/Creditsafe/usrcntlCreditsafe.vb create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb diff --git a/SDL/App.config b/SDL/App.config index a2e62542..c0e5b351 100644 --- a/SDL/App.config +++ b/SDL/App.config @@ -33,7 +33,7 @@ - + diff --git a/SDL/Creditsafe/usrcntlCreditsafe.Designer.vb b/SDL/Creditsafe/usrcntlCreditsafe.Designer.vb new file mode 100644 index 00000000..1c23f3a9 --- /dev/null +++ b/SDL/Creditsafe/usrcntlCreditsafe.Designer.vb @@ -0,0 +1,169 @@ + _ +Partial Class usrcntlCreditsafe + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.btnSearch = New System.Windows.Forms.Button() + Me.lblUID = New System.Windows.Forms.Label() + Me.txtUID = New System.Windows.Forms.TextBox() + Me.txtFirma = New System.Windows.Forms.TextBox() + Me.lblFirma = New System.Windows.Forms.Label() + Me.lblLand = New System.Windows.Forms.Label() + Me.lblWarning = New System.Windows.Forms.Label() + Me.dgvCreditsafe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btnUebernehmen = New System.Windows.Forms.Button() + CType(Me.dgvCreditsafe, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'btnSearch + ' + Me.btnSearch.Location = New System.Drawing.Point(14, 47) + Me.btnSearch.Name = "btnSearch" + Me.btnSearch.Size = New System.Drawing.Size(75, 23) + Me.btnSearch.TabIndex = 4 + Me.btnSearch.Text = "Suche" + Me.btnSearch.UseVisualStyleBackColor = True + ' + 'lblUID + ' + Me.lblUID.AutoSize = True + Me.lblUID.Location = New System.Drawing.Point(239, 19) + Me.lblUID.Name = "lblUID" + Me.lblUID.Size = New System.Drawing.Size(40, 13) + Me.lblUID.TabIndex = 1 + Me.lblUID.Text = "UID-Nr" + ' + 'txtUID + ' + Me.txtUID.Location = New System.Drawing.Point(295, 16) + Me.txtUID.Name = "txtUID" + Me.txtUID.Size = New System.Drawing.Size(100, 20) + Me.txtUID.TabIndex = 2 + ' + 'txtFirma + ' + Me.txtFirma.Location = New System.Drawing.Point(67, 16) + Me.txtFirma.Name = "txtFirma" + Me.txtFirma.Size = New System.Drawing.Size(133, 20) + Me.txtFirma.TabIndex = 1 + ' + 'lblFirma + ' + Me.lblFirma.AutoSize = True + Me.lblFirma.Location = New System.Drawing.Point(11, 19) + Me.lblFirma.Name = "lblFirma" + Me.lblFirma.Size = New System.Drawing.Size(32, 13) + Me.lblFirma.TabIndex = 3 + Me.lblFirma.Text = "Firma" + ' + 'lblLand + ' + Me.lblLand.AutoSize = True + Me.lblLand.Location = New System.Drawing.Point(415, 20) + Me.lblLand.Name = "lblLand" + Me.lblLand.Size = New System.Drawing.Size(31, 13) + Me.lblLand.TabIndex = 5 + Me.lblLand.Text = "Land" + ' + 'lblWarning + ' + Me.lblWarning.AutoSize = True + Me.lblWarning.ForeColor = System.Drawing.Color.Red + Me.lblWarning.Location = New System.Drawing.Point(117, 52) + Me.lblWarning.Name = "lblWarning" + Me.lblWarning.Size = New System.Drawing.Size(0, 13) + Me.lblWarning.TabIndex = 8 + ' + 'dgvCreditsafe + ' + Me.dgvCreditsafe.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvCreditsafe.AllowUserToAddRows = False + Me.dgvCreditsafe.AllowUserToDeleteRows = False + Me.dgvCreditsafe.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.dgvCreditsafe.BackgroundColor = System.Drawing.Color.White + Me.dgvCreditsafe.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvCreditsafe.Location = New System.Drawing.Point(14, 82) + Me.dgvCreditsafe.Name = "dgvCreditsafe" + Me.dgvCreditsafe.ReadOnly = True + Me.dgvCreditsafe.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvCreditsafe.Size = New System.Drawing.Size(969, 209) + Me.dgvCreditsafe.TabIndex = 7 + ' + 'cbxLand + ' + Me.cbxLand._allowedValuesFreiText = Nothing + Me.cbxLand._allowFreiText = False + Me.cbxLand._value = "" + Me.cbxLand.FormattingEnabled = True + Me.cbxLand.Location = New System.Drawing.Point(471, 17) + Me.cbxLand.Name = "cbxLand" + Me.cbxLand.Size = New System.Drawing.Size(100, 21) + Me.cbxLand.TabIndex = 3 + ' + 'btnUebernehmen + ' + Me.btnUebernehmen.DialogResult = System.Windows.Forms.DialogResult.OK + Me.btnUebernehmen.Location = New System.Drawing.Point(859, 14) + Me.btnUebernehmen.Name = "btnUebernehmen" + Me.btnUebernehmen.Size = New System.Drawing.Size(124, 23) + Me.btnUebernehmen.TabIndex = 9 + Me.btnUebernehmen.Text = "Übernehmen" + Me.btnUebernehmen.UseVisualStyleBackColor = True + ' + 'usrcntlCreditsafe + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoScroll = True + Me.Controls.Add(Me.btnUebernehmen) + Me.Controls.Add(Me.lblWarning) + Me.Controls.Add(Me.dgvCreditsafe) + Me.Controls.Add(Me.cbxLand) + Me.Controls.Add(Me.lblLand) + Me.Controls.Add(Me.txtFirma) + Me.Controls.Add(Me.lblFirma) + Me.Controls.Add(Me.txtUID) + Me.Controls.Add(Me.lblUID) + Me.Controls.Add(Me.btnSearch) + Me.Name = "usrcntlCreditsafe" + Me.Size = New System.Drawing.Size(999, 294) + CType(Me.dgvCreditsafe, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents btnSearch As Button + Friend WithEvents lblUID As Label + Friend WithEvents txtUID As TextBox + Friend WithEvents txtFirma As TextBox + Friend WithEvents lblFirma As Label + Friend WithEvents lblLand As Label + Friend WithEvents cbxLand As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents dgvCreditsafe As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents lblWarning As Label + Friend WithEvents btnUebernehmen As Button +End Class diff --git a/SDL/Creditsafe/usrcntlCreditsafe.resx b/SDL/Creditsafe/usrcntlCreditsafe.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Creditsafe/usrcntlCreditsafe.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/Creditsafe/usrcntlCreditsafe.vb b/SDL/Creditsafe/usrcntlCreditsafe.vb new file mode 100644 index 00000000..44775f9a --- /dev/null +++ b/SDL/Creditsafe/usrcntlCreditsafe.vb @@ -0,0 +1,208 @@ + +Imports VERAG_PROG_ALLGEMEIN + + +Public Class usrcntlCreditsafe + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + Dim user, pw As String + Dim land As String + Dim dataTable As New DataTable() + Public comp As Company + Sub New() + + InitializeComponent() + init() + + End Sub + + + Sub New(_UID As String, _name As String, _land As String) + + InitializeComponent() + txtUID.Text = _UID + txtFirma.Text = _name + land = _land + init() + + + End Sub + + Private Sub init() + + user = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser + pw = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd + + 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) " & + " ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz ", , "FMZOLL", True) + + cbxLand.changeItem(land) + initDataTable() + btnUebernehmen.Enabled = False + Cursor = Cursors.Default + + End Sub + + Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click + Try + + If user = "" Or pw = "" Then + lblWarning.Text = "keine Zugangsdaten hinterlegt!" + Exit Sub + End If + + + If cbxLand._value = "" Then + lblWarning.Text = "kein Land hinterlegt!" + Exit Sub + End If + + If txtFirma.Text = "" AndAlso txtUID.Text = "" Then + lblWarning.Text = "Firma und/oder UID-Nr hinterlegen!" + Exit Sub + End If + + dataTable.Clear() + + Dim cs = New cCreditSafeAPI() + Cursor = Cursors.WaitCursor + + If cs.authenticate(user, pw) = "200" Then + If txtUID.Text <> "" Then + lblWarning.Text = cs.searchCompanies("", txtUID.Text, cbxLand.SelectedItem.Value, dataTable).ToString + Else + lblWarning.Text = cs.searchCompanies(txtFirma.Text, "", cbxLand.SelectedItem.Value, dataTable).ToString + End If + initDGV(dataTable) + Cursor = Cursors.Default + + End If + + Catch ex As Exception + Cursor = Cursors.Default + MsgBox(ex.Message) + End Try + + End Sub + + + + Sub initDataTable() + + dataTable.Columns.Add("id", GetType(String)) + dataTable.Columns.Add("name", GetType(String)) + dataTable.Columns.Add("country", GetType(String)) + dataTable.Columns.Add("safeNo", GetType(String)) + dataTable.Columns.Add("vatNo", GetType(String)) + dataTable.Columns.Add("regNo", GetType(String)) + dataTable.Columns.Add("street", GetType(String)) + dataTable.Columns.Add("city", GetType(String)) + dataTable.Columns.Add("postCode", GetType(String)) + dataTable.Columns.Add("status", GetType(String)) + dataTable.Columns.Add("phoneNo", GetType(String)) + dataTable.Columns.Add("dateOfLatestChange", GetType(String)) + + End Sub + + Sub initDGV(dt As DataTable) + + dgvCreditsafe.DataSource = dt + + + If dgvCreditsafe.Columns.Count > 0 Then + With dgvCreditsafe + .RowHeadersWidth = 10 + .Columns("id").Visible = False + .Columns("country").Visible = True + .Columns("name").HeaderText = "Name" + .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("safeNo").Width = 100 + .Columns("safeNo").HeaderText = "Nr" + .Columns("vatNo").Width = 100 + .Columns("vatNo").HeaderText = "UID" + .Columns("regNo").Width = 100 + .Columns("regNo").HeaderText = "FN-Nr." + .Columns("street").Width = 100 + .Columns("street").HeaderText = "Strasse" + .Columns("city").Width = 100 + .Columns("city").HeaderText = "Ort" + .Columns("postCode").Width = 100 + .Columns("postCode").HeaderText = "PLZ" + .Columns("phoneNo").Width = 100 + .Columns("phoneNo").HeaderText = "Tel-Nr" + .Columns("status").Width = 100 + .Columns("status").HeaderText = "Status" + .Columns("dateOfLatestChange").Width = 50 + .Columns("dateOfLatestChange").HeaderText = "letzte Änderung" + End With + + End If + + + End Sub + + Private Sub btnUebernehmen_Click(sender As Object, e As EventArgs) Handles btnUebernehmen.Click + If dgvCreditsafe.SelectedRows.Count <> 1 Then + btnUebernehmen.DialogResult = DialogResult.None + Exit Sub + Else + For Each row As DataGridViewRow In dgvCreditsafe.SelectedRows + comp = New Company(IIf(IsDBNull(row.Cells("name").Value), "", row.Cells("name").Value), + IIf(IsDBNull(row.Cells("vatNo").Value), "", row.Cells("vatNo").Value), + IIf(IsDBNull(row.Cells("country").Value), "", row.Cells("country").Value), + IIf(IsDBNull(row.Cells("safeNo").Value), "", row.Cells("safeNo").Value), + IIf(IsDBNull(row.Cells("regNo").Value), "", row.Cells("regNo").Value), + IIf(IsDBNull(row.Cells("street").Value), "", row.Cells("street").Value), + IIf(IsDBNull(row.Cells("city").Value), "", row.Cells("city").Value), + IIf(IsDBNull(row.Cells("postCode").Value), "", row.Cells("postCode").Value), + IIf(IsDBNull(row.Cells("id").Value), "", row.Cells("id").Value), + IIf(IsDBNull(row.Cells("phoneNo").Value), "", row.Cells("phoneNo").Value)) + + Next + btnUebernehmen.DialogResult = DialogResult.OK + End If + + End Sub + + + + Public Class Company + + Public Property credissafeId As String + Public Property name As String + Public Property vatNo As String + Public Property country As String + Public Property safeNo As String + Public Property regNo As String + Public Property street As String + Public Property city As String + Public Property postCode As String + Public Property phoneNo As String + + + Public Sub New(_name As String, _vatNo As String, _country As String, _safeNo As String, _regNo As String, _street As String, _city As String, _postCode As String, _credissafeId As String, _phoneNo As String) + name = _name + vatNo = _vatNo + country = _country + safeNo = _safeNo + street = _street + regNo = _regNo + city = _city + postCode = _postCode + credissafeId = _credissafeId + phoneNo = _phoneNo + End Sub + + + End Class + + Private Sub dgvCreditsafe_SelectionChanged(sender As Object, e As EventArgs) Handles dgvCreditsafe.SelectionChanged + If dgvCreditsafe.SelectedRows.Count <> 1 Then + btnUebernehmen.Enabled = False + Else + btnUebernehmen.Enabled = True + End If + + End Sub +End Class diff --git a/SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb b/SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb index 7563ae1f..0ba2b185 100644 --- a/SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb +++ b/SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb @@ -35,8 +35,6 @@ Partial Class frmTIR Me.Label5 = New System.Windows.Forms.Label() Me.btnDelete = New System.Windows.Forms.Button() Me.lblGedruckt = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.txtSuchbegriff = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button2 = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -44,6 +42,8 @@ Partial Class frmTIR Me.Label6 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.UsrCntlTIR1 = New SDL.usrcntlTIR() + Me.lblAnzahl = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() Me.Panel2.SuspendLayout() Me.Panel3.SuspendLayout() Me.SuspendLayout() @@ -134,12 +134,12 @@ Partial Class frmTIR 'Panel3 ' Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel3.Controls.Add(Me.lblAnzahl) + Me.Panel3.Controls.Add(Me.Label4) Me.Panel3.Controls.Add(Me.cboAbriss777) Me.Panel3.Controls.Add(Me.Label5) Me.Panel3.Controls.Add(Me.btnDelete) Me.Panel3.Controls.Add(Me.lblGedruckt) - Me.Panel3.Controls.Add(Me.Label2) - Me.Panel3.Controls.Add(Me.txtSuchbegriff) Me.Panel3.Controls.Add(Me.Button2) Me.Panel3.Controls.Add(Me.Label1) Me.Panel3.Controls.Add(Me.cboPrinter) @@ -196,42 +196,6 @@ Partial Class frmTIR Me.lblGedruckt.Text = "gedruckt" Me.lblGedruckt.Visible = False ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(320, 7) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(137, 13) - Me.Label2.TabIndex = 8 - Me.Label2.Text = "Speichern als (Suchbegriff):" - Me.Label2.Visible = False - ' - 'txtSuchbegriff - ' - Me.txtSuchbegriff._DateTimeOnly = False - Me.txtSuchbegriff._numbersOnly = False - Me.txtSuchbegriff._numbersOnlyKommastellen = "" - Me.txtSuchbegriff._numbersOnlyTrennzeichen = True - Me.txtSuchbegriff._Prozent = False - Me.txtSuchbegriff._ShortDateNew = False - Me.txtSuchbegriff._ShortDateOnly = False - Me.txtSuchbegriff._TimeOnly = False - Me.txtSuchbegriff._TimeOnly_Seconds = False - Me.txtSuchbegriff._value = Nothing - Me.txtSuchbegriff._Waehrung = False - Me.txtSuchbegriff._WaehrungZeichen = True - Me.txtSuchbegriff.ForeColor = System.Drawing.Color.Black - Me.txtSuchbegriff.Location = New System.Drawing.Point(464, 4) - Me.txtSuchbegriff.MaxLength = 80 - Me.txtSuchbegriff.MaxLineLength = -1 - Me.txtSuchbegriff.MaxLines_Warning = "" - Me.txtSuchbegriff.MaxLines_Warning_Label = Nothing - Me.txtSuchbegriff.Name = "txtSuchbegriff" - Me.txtSuchbegriff.Size = New System.Drawing.Size(243, 20) - Me.txtSuchbegriff.TabIndex = 9 - Me.txtSuchbegriff.Visible = False - ' 'Button2 ' Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -269,7 +233,7 @@ Partial Class frmTIR ' Me.lblEigenmasse.AutoSize = True Me.lblEigenmasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblEigenmasse.Location = New System.Drawing.Point(117, 4) + Me.lblEigenmasse.Location = New System.Drawing.Point(642, 4) Me.lblEigenmasse.Name = "lblEigenmasse" Me.lblEigenmasse.Size = New System.Drawing.Size(32, 13) Me.lblEigenmasse.TabIndex = 5 @@ -278,7 +242,7 @@ Partial Class frmTIR 'Label6 ' Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(15, 4) + Me.Label6.Location = New System.Drawing.Point(540, 4) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(87, 13) Me.Label6.TabIndex = 4 @@ -307,6 +271,25 @@ Partial Class frmTIR Me.UsrCntlTIR1.Size = New System.Drawing.Size(885, 735) Me.UsrCntlTIR1.TabIndex = 0 ' + 'lblAnzahl + ' + Me.lblAnzahl.AutoSize = True + Me.lblAnzahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAnzahl.Location = New System.Drawing.Point(185, 4) + Me.lblAnzahl.Name = "lblAnzahl" + Me.lblAnzahl.Size = New System.Drawing.Size(14, 13) + Me.lblAnzahl.TabIndex = 17 + Me.lblAnzahl.Text = "0" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(95, 4) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(67, 13) + Me.Label4.TabIndex = 16 + Me.Label4.Text = "Summe Colli:" + ' 'frmTIR ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -342,12 +325,12 @@ Partial Class frmTIR Friend WithEvents Label5 As Label Friend WithEvents btnDelete As Button Friend WithEvents lblGedruckt As Label - Friend WithEvents Label2 As Label - Friend WithEvents txtSuchbegriff As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Button2 As Button Friend WithEvents Label1 As Label Friend WithEvents cboPrinter As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents lblEigenmasse As Label Friend WithEvents Label6 As Label Friend WithEvents Button1 As Button + Friend WithEvents lblAnzahl As Label + Friend WithEvents Label4 As Label End Class diff --git a/SDL/Formulare/CARNET-TIR/frmTIR.vb b/SDL/Formulare/CARNET-TIR/frmTIR.vb index 3d9d9f23..350de1bd 100644 --- a/SDL/Formulare/CARNET-TIR/frmTIR.vb +++ b/SDL/Formulare/CARNET-TIR/frmTIR.vb @@ -1,7 +1,14 @@ -Imports GrapeCity.ActiveReports +Imports System.Windows.Media +Imports com.sun.jndi.toolkit +Imports com.sun.org.apache.bcel.internal.classfile +Imports com.sun.org.apache.xml.internal.utils +Imports GrapeCity.ActiveReports +Imports VERAG_PROG_ALLGEMEIN Public Class frmTIR + Dim dt As DataTable + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Private Sub frmTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load @@ -23,6 +30,59 @@ Public Class frmTIR cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17", "17")) cboAbriss777.changeItem("12") + Dim sql_einheiten As String = "SELECT [Code] ,[Code] + ', ' + [Description] as Verpackungsart FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten where (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())" + Dim dt_einheiten As DataTable + dt_einheiten = SQL.loadDgvBySql(sql_einheiten, "FMZOLL", 100, True) + + Dim sql_zollstellen As String = "SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen where (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())" + Dim dt_zollstellen As DataTable + dt_zollstellen = SQL.loadDgvBySql(sql_zollstellen, "FMZOLL", 100, True) + dt_zollstellen.Columns.Add("") + + Dim sql_laender As String = "Select [Description] FROM tbl_DY_ZollDE_C0008_LaenderFull where (StartDate Is null Or StartDate< GETDATE()) And (EndDate Is null Or EndDate> GETDATE())" + Dim dt_laender As DataTable + dt_laender = SQL.loadDgvBySql(sql_laender, "FMZOLL", 100, True) + dt_laender.Columns.Add("") + + + + Dim combo As DataGridViewComboBoxColumn = New DataGridViewComboBoxColumn() + combo.DataSource = dt_einheiten + combo.DataPropertyName = "Einheit" + combo.ValueMember = dt_einheiten.Columns("Verpackungsart").ToString + combo.DisplayMember = dt_einheiten.Columns("Verpackungsart").ToString + combo.Name = "Einheit" + combo.Width = 50 + combo.DropDownWidth = 300 + UsrCntlTIR1.dgvGegenstände.Columns.Insert(2, combo) + + For Each c As Control In UsrCntlTIR1.Controls + + If c.Name.ToLower.Contains("cbxabgangszollstelle") And c.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyComboBox" Then + Dim cbx = DirectCast(c, MyComboBox) + cbx.AutoCompleteSource = AutoCompleteSource.ListItems + cbx.AutoCompleteMode = AutoCompleteMode.Suggest + cbx.Items.AddRange(dt_zollstellen.AsEnumerable().Select(Function(d) DirectCast(d(0).ToString(), Object)).ToArray()) + End If + + If c.Name.ToLower.Contains("cbxabfahrtsland") And c.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyComboBox" Then + Dim cbx = DirectCast(c, MyComboBox) + cbx.AutoCompleteSource = AutoCompleteSource.ListItems + cbx.AutoCompleteMode = AutoCompleteMode.Suggest + cbx.Items.AddRange(dt_laender.AsEnumerable().Select(Function(d) DirectCast(d(0).ToString(), Object)).ToArray()) + + End If + + If c.Name.ToLower.Contains("cbxankunftsland") And c.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyComboBox" Then + Dim cbx = DirectCast(c, MyComboBox) + cbx.AutoCompleteSource = AutoCompleteSource.ListItems + cbx.AutoCompleteMode = AutoCompleteMode.Suggest + cbx.Items.AddRange(dt_laender.AsEnumerable().Select(Function(d) DirectCast(d(0).ToString(), Object)).ToArray()) + End If + + Next + + cProgramFunctions.initDrucker(cboPrinter, "TALLY") End Sub @@ -33,16 +93,16 @@ Public Class frmTIR Dim anzahl_778 As Integer = 0 - rpt.txtAbgangszollstelle1.Text = If(UsrCntlTIR1.txtAbgangszollstelle1.Text, "") - rpt.txtAbgangszollstelle2.Text = If(UsrCntlTIR1.txtAbgangszollstelle2.Text, "") - rpt.txtAbgangszollstelle3.Text = If(UsrCntlTIR1.txtAbgangszollstelle3.Text, "") - rpt.txtAbgangszollstelle4.Text = If(UsrCntlTIR1.txtAbgangszollstelle4.Text, "") - rpt.txtAbgangszollstelle5.Text = If(UsrCntlTIR1.txtAbgangszollstelle5.Text, "") - rpt.txtAbgangszollstelle6.Text = If(UsrCntlTIR1.txtAbgangszollstelle6.Text, "") - rpt.txtAbgangszollstelle7.Text = If(UsrCntlTIR1.txtAbgangszollstelle7.Text, "") + rpt.txtAbgangszollstelle1.Text = If(UsrCntlTIR1.cbxAbgangszollstelle1.Text, "") + rpt.txtAbgangszollstelle2.Text = If(UsrCntlTIR1.cbxAbgangszollstelle2.Text, "") + rpt.txtAbgangszollstelle3.Text = If(UsrCntlTIR1.cbxAbgangszollstelle3.Text, "") + rpt.txtAbgangszollstelle4.Text = If(UsrCntlTIR1.cbxAbgangszollstelle4.Text, "") + rpt.txtAbgangszollstelle5.Text = If(UsrCntlTIR1.cbxAbgangszollstelle5.Text, "") + rpt.txtAbgangszollstelle6.Text = If(UsrCntlTIR1.cbxAbgangszollstelle6.Text, "") + rpt.txtAbgangszollstelle7.Text = If(UsrCntlTIR1.cbxAbgangszollstelle7.Text, "") + + rpt.txtAbfahrsland.Text = If(UsrCntlTIR1.cbxAbfahrtsland.Text, "") - rpt.txtAbfahrsland.Text = If(UsrCntlTIR1.txtAbfahrtsland.Text, "") - rpt.txtBestimmungsland.Text = If(UsrCntlTIR1.txtBestimmungsland.Text, "") rpt.txtFahrzeug.Text = If(UsrCntlTIR1.txtFahrzeug1.Text, "") rpt.txtZusDok.Text = If(UsrCntlTIR1.txtZusDocument.Text, "") @@ -76,8 +136,8 @@ Public Class frmTIR rpt.txtMain1.Text &= If(r.Cells(0).Value <> "", r.Cells(0).Value & vbNewLine, "") rpt.txtMain2.Text &= If(r.Cells(1).Value <> "", r.Cells(1).Value & " ", "") - rpt.txtMain2.Text &= If(r.Cells(2).Value <> "", r.Cells(2).Value & vbNewLine, "") - rpt.txtMain3.Text &= If(r.Cells(3).Value <> "", r.Cells(3).Value & vbNewLine, "") + rpt.txtMain2.Text &= If(r.Cells(2).Value <> "", r.Cells(3).Value & vbNewLine, "") + rpt.txtMain3.Text &= If(r.Cells(3).Value <> "", r.Cells(4).Value & vbNewLine, "") End If @@ -106,11 +166,17 @@ Public Class frmTIR c.Text = "" End If + + + If TypeOf c Is DataGridView Then Dim dgv As DataGridView = c dgv.Rows.Clear() For i As Integer = 0 To 10 - dgv.Rows.Add("", "", "", "") + + dgv.Rows.Add("", "", "", "", "", "") + + Next End If @@ -122,16 +188,16 @@ Public Class frmTIR Private Sub btnLaden_Click(sender As Object, e As EventArgs) Handles btnLaden.Click - UsrCntlTIR1.txtAbgangszollstelle1.Text = "Testtext1" - UsrCntlTIR1.txtAbgangszollstelle2.Text = "Testtext2" - UsrCntlTIR1.txtAbgangszollstelle3.Text = "Testtext3" - UsrCntlTIR1.txtAbgangszollstelle4.Text = "Testtext4" - UsrCntlTIR1.txtAbgangszollstelle5.Text = "Testtext5" - UsrCntlTIR1.txtAbgangszollstelle6.Text = "Testtext6" - UsrCntlTIR1.txtAbgangszollstelle7.Text = "Testtext7" + UsrCntlTIR1.cbxAbgangszollstelle1.Text = "Testtext1" + UsrCntlTIR1.cbxAbgangszollstelle2.Text = "Testtext2" + UsrCntlTIR1.cbxAbgangszollstelle3.Text = "Testtext3" + UsrCntlTIR1.cbxAbgangszollstelle4.Text = "Testtext4" + UsrCntlTIR1.cbxAbgangszollstelle5.Text = "Testtext5" + UsrCntlTIR1.cbxAbgangszollstelle6.Text = "Testtext6" + UsrCntlTIR1.cbxAbgangszollstelle7.Text = "Testtext7" + + UsrCntlTIR1.cbxAbfahrtsland.Text = "TestABFL" - UsrCntlTIR1.txtAbfahrtsland.Text = "TestABFL" - UsrCntlTIR1.txtBestimmungsland.Text = "TestBESTL" UsrCntlTIR1.txtFahrzeug1.Text = "XXXXXXX" & vbNewLine & "Fahrezeug 1" UsrCntlTIR1.txtZusDocument.Text = "Testtext1" @@ -169,18 +235,24 @@ Public Class frmTIR Private Sub UsrCntlTIR1_SomethChanged() Handles UsrCntlTIR1.DGVchanged - Dim count As Double = 0 + Dim gewicht As Double = 0 + Dim colli As Double = 0 For Each r As DataGridViewRow In UsrCntlTIR1.dgvGegenstände.Rows - If r IsNot Nothing And IsNumeric(r.Cells(3).Value) Then - count += CDbl(r.Cells(3).Value) + If r IsNot Nothing And IsNumeric(r.Cells(4).Value) Then + gewicht += CDbl(r.Cells(4).Value) + End If + + If r IsNot Nothing And IsNumeric(r.Cells(1).Value) Then + colli += CDbl(r.Cells(1).Value) End If Next - lblEigenmasse.Text = count & " kg" + lblEigenmasse.Text = gewicht & " kg" + lblAnzahl.Text = colli End Sub End Class \ No newline at end of file diff --git a/SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb b/SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb index 4cedbb43..d68393d2 100644 --- a/SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb +++ b/SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb @@ -45,8 +45,9 @@ Partial Public Class rptTIR Me.txtGesamtpaketName5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtGesamtpaket6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtGesamtpaketName6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() - Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.txtSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() + Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -76,6 +77,7 @@ Partial Public Class rptTIR CType(Me.txtGesamtpaket6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtGesamtpaketName6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'Detail @@ -85,7 +87,7 @@ Partial Public Class rptTIR ' 'ReportHeader1 ' - Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtAbgangszollstelle4, Me.txtAbgangszollstelle5, Me.txtAbgangszollstelle6, Me.txtAbgangszollstelle7, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3, Me.txtGesamtpaket7, Me.txtGesamtpaketName7, Me.txtGesamtpaket4, Me.txtGesamtpaketName4, Me.txtGesamtpaket5, Me.txtGesamtpaketName5, Me.txtGesamtpaket6, Me.txtGesamtpaketName6, Me.txtSumme}) + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtAbgangszollstelle4, Me.txtAbgangszollstelle5, Me.txtAbgangszollstelle6, Me.txtAbgangszollstelle7, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3, Me.txtGesamtpaket7, Me.txtGesamtpaketName7, Me.txtGesamtpaket4, Me.txtGesamtpaketName4, Me.txtGesamtpaket5, Me.txtGesamtpaketName5, Me.txtGesamtpaket6, Me.txtGesamtpaketName6, Me.txtSumme, Me.TextBox1}) Me.ReportHeader1.Height = 11.42519! Me.ReportHeader1.Name = "ReportHeader1" ' @@ -97,7 +99,6 @@ Partial Public Class rptTIR Me.txtAbfahrsland.Height = 0.431! Me.txtAbfahrsland.Left = 1.987! Me.txtAbfahrsland.Name = "txtAbfahrsland" - Me.txtAbfahrsland.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtAbfahrsland.Style = "color: Black" Me.txtAbfahrsland.SummaryGroup = "" Me.txtAbfahrsland.Text = "Abfahrsland" @@ -112,7 +113,6 @@ Partial Public Class rptTIR Me.txtGesamtpaket1.Height = 0.1968504! Me.txtGesamtpaket1.Left = 0.479! Me.txtGesamtpaket1.Name = "txtGesamtpaket1" - Me.txtGesamtpaket1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaket1.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaket1.SummaryGroup = "" Me.txtGesamtpaket1.Text = "Gesamtpaket1" @@ -124,10 +124,9 @@ Partial Public Class rptTIR Me.txtMain1.CanGrow = False Me.txtMain1.DataField = "" Me.txtMain1.DistinctField = "" - Me.txtMain1.Height = 3.889! + Me.txtMain1.Height = 3.743! Me.txtMain1.Left = 0.479! Me.txtMain1.Name = "txtMain1" - Me.txtMain1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtMain1.Style = "color: Black" Me.txtMain1.SummaryGroup = "" Me.txtMain1.Text = "Main1" @@ -142,7 +141,6 @@ Partial Public Class rptTIR Me.txtAbgangszollstelle1.Height = 0.1574803! Me.txtAbgangszollstelle1.Left = 0.479! Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1" - Me.txtAbgangszollstelle1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtAbgangszollstelle1.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle" Me.txtAbgangszollstelle1.SummaryGroup = "" Me.txtAbgangszollstelle1.Text = "Abgangszollstelle1" @@ -157,7 +155,6 @@ Partial Public Class rptTIR Me.txtAbgangszollstelle2.Height = 0.1574803! Me.txtAbgangszollstelle2.Left = 0.479! Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2" - Me.txtAbgangszollstelle2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtAbgangszollstelle2.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle" Me.txtAbgangszollstelle2.SummaryGroup = "" Me.txtAbgangszollstelle2.Text = "Abgangszollstelle2" @@ -172,7 +169,6 @@ Partial Public Class rptTIR Me.txtAbgangszollstelle3.Height = 0.1574803! Me.txtAbgangszollstelle3.Left = 0.479! Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3" - Me.txtAbgangszollstelle3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtAbgangszollstelle3.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle" Me.txtAbgangszollstelle3.SummaryGroup = "" Me.txtAbgangszollstelle3.Text = "Abgangszollstelle3" @@ -187,7 +183,6 @@ Partial Public Class rptTIR Me.txtAbgangszollstelle4.Height = 0.1574803! Me.txtAbgangszollstelle4.Left = 0.479! Me.txtAbgangszollstelle4.Name = "txtAbgangszollstelle4" - Me.txtAbgangszollstelle4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtAbgangszollstelle4.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle" Me.txtAbgangszollstelle4.SummaryGroup = "" Me.txtAbgangszollstelle4.Text = "Abgangszollstelle4" @@ -202,7 +197,6 @@ Partial Public Class rptTIR Me.txtAbgangszollstelle5.Height = 0.1574803! Me.txtAbgangszollstelle5.Left = 0.479! Me.txtAbgangszollstelle5.Name = "txtAbgangszollstelle5" - Me.txtAbgangszollstelle5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtAbgangszollstelle5.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle" Me.txtAbgangszollstelle5.SummaryGroup = "" Me.txtAbgangszollstelle5.Text = "Abgangszollstelle5" @@ -217,7 +211,6 @@ Partial Public Class rptTIR Me.txtAbgangszollstelle6.Height = 0.1574803! Me.txtAbgangszollstelle6.Left = 0.479! Me.txtAbgangszollstelle6.Name = "txtAbgangszollstelle6" - Me.txtAbgangszollstelle6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtAbgangszollstelle6.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle" Me.txtAbgangszollstelle6.SummaryGroup = "" Me.txtAbgangszollstelle6.Text = "Abgangszollstelle6" @@ -232,7 +225,6 @@ Partial Public Class rptTIR Me.txtAbgangszollstelle7.Height = 0.1574803! Me.txtAbgangszollstelle7.Left = 0.479! Me.txtAbgangszollstelle7.Name = "txtAbgangszollstelle7" - Me.txtAbgangszollstelle7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtAbgangszollstelle7.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle" Me.txtAbgangszollstelle7.SummaryGroup = "" Me.txtAbgangszollstelle7.Text = "Abgangszollstelle7" @@ -247,7 +239,6 @@ Partial Public Class rptTIR Me.txtBestimmungsland.Height = 0.4309999! Me.txtBestimmungsland.Left = 3.079! Me.txtBestimmungsland.Name = "txtBestimmungsland" - Me.txtBestimmungsland.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtBestimmungsland.Style = "color: Black" Me.txtBestimmungsland.SummaryGroup = "" Me.txtBestimmungsland.Text = "Bestimmungsland" @@ -262,7 +253,6 @@ Partial Public Class rptTIR Me.txtFahrzeug.Height = 0.4849999! Me.txtFahrzeug.Left = 1.987! Me.txtFahrzeug.Name = "txtFahrzeug" - Me.txtFahrzeug.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtFahrzeug.Style = "color: Black" Me.txtFahrzeug.SummaryGroup = "" Me.txtFahrzeug.Text = "Fahrzeug" @@ -277,7 +267,6 @@ Partial Public Class rptTIR Me.txtZusDok.Height = 0.6260002! Me.txtZusDok.Left = 4.588! Me.txtZusDok.Name = "txtZusDok" - Me.txtZusDok.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtZusDok.Style = "color: Black" Me.txtZusDok.SummaryGroup = "" Me.txtZusDok.Text = "ZusDok" @@ -289,10 +278,9 @@ Partial Public Class rptTIR Me.txtMain2.CanGrow = False Me.txtMain2.DataField = "" Me.txtMain2.DistinctField = "" - Me.txtMain2.Height = 3.889! + Me.txtMain2.Height = 3.743! Me.txtMain2.Left = 1.894! Me.txtMain2.Name = "txtMain2" - Me.txtMain2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtMain2.Style = "color: Black" Me.txtMain2.SummaryGroup = "" Me.txtMain2.Text = "Main2" @@ -304,10 +292,9 @@ Partial Public Class rptTIR Me.txtMain3.CanGrow = False Me.txtMain3.DataField = "" Me.txtMain3.DistinctField = "" - Me.txtMain3.Height = 3.889! + Me.txtMain3.Height = 3.743! Me.txtMain3.Left = 5.455! Me.txtMain3.Name = "txtMain3" - Me.txtMain3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtMain3.Style = "color: Black" Me.txtMain3.SummaryGroup = "" Me.txtMain3.Text = "Main3" @@ -322,7 +309,6 @@ Partial Public Class rptTIR Me.txtGesamtpaketName1.Height = 0.1968504! Me.txtGesamtpaketName1.Left = 1.894! Me.txtGesamtpaketName1.Name = "txtGesamtpaketName1" - Me.txtGesamtpaketName1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaketName1.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaketName1.SummaryGroup = "" Me.txtGesamtpaketName1.Text = "GesamtpaketName1" @@ -337,7 +323,6 @@ Partial Public Class rptTIR Me.txtGesamtpaket2.Height = 0.1968504! Me.txtGesamtpaket2.Left = 0.4790001! Me.txtGesamtpaket2.Name = "txtGesamtpaket2" - Me.txtGesamtpaket2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaket2.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaket2.SummaryGroup = "" Me.txtGesamtpaket2.Text = "Gesamtpaket2" @@ -352,7 +337,6 @@ Partial Public Class rptTIR Me.txtGesamtpaketName2.Height = 0.1968504! Me.txtGesamtpaketName2.Left = 1.894! Me.txtGesamtpaketName2.Name = "txtGesamtpaketName2" - Me.txtGesamtpaketName2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaketName2.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaketName2.SummaryGroup = "" Me.txtGesamtpaketName2.Text = "GesamtpaketName2" @@ -367,7 +351,6 @@ Partial Public Class rptTIR Me.txtGesamtpaket3.Height = 0.1968504! Me.txtGesamtpaket3.Left = 0.4790001! Me.txtGesamtpaket3.Name = "txtGesamtpaket3" - Me.txtGesamtpaket3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaket3.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaket3.SummaryGroup = "" Me.txtGesamtpaket3.Text = "Gesamtpaket3" @@ -382,7 +365,6 @@ Partial Public Class rptTIR Me.txtGesamtpaketName3.Height = 0.1968504! Me.txtGesamtpaketName3.Left = 1.894! Me.txtGesamtpaketName3.Name = "txtGesamtpaketName3" - Me.txtGesamtpaketName3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaketName3.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaketName3.SummaryGroup = "" Me.txtGesamtpaketName3.Text = "GesamtpaketName3" @@ -397,7 +379,6 @@ Partial Public Class rptTIR Me.txtGesamtpaket7.Height = 0.1968504! Me.txtGesamtpaket7.Left = 2.572! Me.txtGesamtpaket7.Name = "txtGesamtpaket7" - Me.txtGesamtpaket7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaket7.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaket7.SummaryGroup = "" Me.txtGesamtpaket7.Text = "Gesamtpaket7" @@ -412,7 +393,6 @@ Partial Public Class rptTIR Me.txtGesamtpaketName7.Height = 0.1968508! Me.txtGesamtpaketName7.Left = 3.944! Me.txtGesamtpaketName7.Name = "txtGesamtpaketName7" - Me.txtGesamtpaketName7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaketName7.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaketName7.SummaryGroup = "" Me.txtGesamtpaketName7.Text = "GesamtpaketName7" @@ -427,7 +407,6 @@ Partial Public Class rptTIR Me.txtGesamtpaket4.Height = 0.1968504! Me.txtGesamtpaket4.Left = 2.572! Me.txtGesamtpaket4.Name = "txtGesamtpaket4" - Me.txtGesamtpaket4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaket4.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaket4.SummaryGroup = "" Me.txtGesamtpaket4.Text = "Gesamtpaket4" @@ -442,7 +421,6 @@ Partial Public Class rptTIR Me.txtGesamtpaketName4.Height = 0.1968504! Me.txtGesamtpaketName4.Left = 3.944! Me.txtGesamtpaketName4.Name = "txtGesamtpaketName4" - Me.txtGesamtpaketName4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaketName4.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaketName4.SummaryGroup = "" Me.txtGesamtpaketName4.Text = "GesamtpaketName4" @@ -457,7 +435,6 @@ Partial Public Class rptTIR Me.txtGesamtpaket5.Height = 0.1968504! Me.txtGesamtpaket5.Left = 2.572! Me.txtGesamtpaket5.Name = "txtGesamtpaket5" - Me.txtGesamtpaket5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaket5.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaket5.SummaryGroup = "" Me.txtGesamtpaket5.Text = "Gesamtpaket5" @@ -472,7 +449,6 @@ Partial Public Class rptTIR Me.txtGesamtpaketName5.Height = 0.1968504! Me.txtGesamtpaketName5.Left = 3.944! Me.txtGesamtpaketName5.Name = "txtGesamtpaketName5" - Me.txtGesamtpaketName5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaketName5.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaketName5.SummaryGroup = "" Me.txtGesamtpaketName5.Text = "GesamtpaketName5" @@ -487,7 +463,6 @@ Partial Public Class rptTIR Me.txtGesamtpaket6.Height = 0.1968504! Me.txtGesamtpaket6.Left = 2.572! Me.txtGesamtpaket6.Name = "txtGesamtpaket6" - Me.txtGesamtpaket6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaket6.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaket6.SummaryGroup = "" Me.txtGesamtpaket6.Text = "Gesamtpaket6" @@ -502,18 +477,12 @@ Partial Public Class rptTIR Me.txtGesamtpaketName6.Height = 0.1968504! Me.txtGesamtpaketName6.Left = 3.944! Me.txtGesamtpaketName6.Name = "txtGesamtpaketName6" - Me.txtGesamtpaketName6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesamtpaketName6.Style = "color: Black; text-align: left; vertical-align: middle" Me.txtGesamtpaketName6.SummaryGroup = "" Me.txtGesamtpaketName6.Text = "GesamtpaketName6" Me.txtGesamtpaketName6.Top = 8.399! Me.txtGesamtpaketName6.Width = 0.4770003! ' - 'ReportFooter1 - ' - Me.ReportFooter1.Height = 0! - Me.ReportFooter1.Name = "ReportFooter1" - ' 'txtSumme ' Me.txtSumme.CanGrow = False @@ -521,13 +490,30 @@ Partial Public Class rptTIR Me.txtSumme.Height = 0.2330003! Me.txtSumme.Left = 5.455! Me.txtSumme.Name = "txtSumme" - Me.txtSumme.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtSumme.Style = "color: Black; font-weight: bold; text-decoration: underline" Me.txtSumme.SummaryGroup = "" - Me.txtSumme.Text = "Summe" - Me.txtSumme.Top = 7.399! + Me.txtSumme.Text = "Summe Gewicht" + Me.txtSumme.Top = 7.253! Me.txtSumme.Width = 1.28! ' + 'ReportFooter1 + ' + Me.ReportFooter1.Height = 0! + Me.ReportFooter1.Name = "ReportFooter1" + ' + 'TextBox1 + ' + Me.TextBox1.CanGrow = False + Me.TextBox1.DistinctField = "" + Me.TextBox1.Height = 0.2330003! + Me.TextBox1.Left = 1.894! + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Style = "color: Black; font-weight: bold; text-decoration: underline" + Me.TextBox1.SummaryGroup = "" + Me.TextBox1.Text = "Summe Anzahl" + Me.TextBox1.Top = 7.253! + Me.TextBox1.Width = 1.28! + ' 'rptTIR ' Me.PageSettings.Margins.Bottom = 0! @@ -537,15 +523,16 @@ Partial Public Class rptTIR Me.PageSettings.PaperHeight = 11.0! Me.PageSettings.PaperWidth = 8.5! Me.PrintWidth = 7.480315! + Me.Script = "public void ActiveReport_ReportStart()" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "{" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "}" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) Me.Sections.Add(Me.ReportHeader1) Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.ReportFooter1) - Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & - "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"), DDCssLib.StyleSheetRule)) - Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule)) - Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & - "lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule)) - Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"), DDCssLib.StyleSheetRule)) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).EndInit() @@ -575,6 +562,7 @@ Partial Public Class rptTIR CType(Me.txtGesamtpaket6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtGesamtpaketName6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub @@ -609,4 +597,5 @@ Partial Public Class rptTIR Public WithEvents txtGesamtpaket6 As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtGesamtpaketName6 As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox End Class diff --git a/SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb b/SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb index 20aeea4e..f34a2ea9 100644 --- a/SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb +++ b/SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb @@ -23,19 +23,10 @@ Partial Class usrcntlTIR Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlTIR)) - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.txtAbfahrtsland = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtBestimmungsland = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.txtFahrzeug1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.txtZusDocument = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtAbgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtAbgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtAbgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtAbgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtAbgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtAbgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtAbgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.txtGesamtpaket1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.txtGesamtpaket2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.txtGesamtpaket3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() @@ -51,6 +42,16 @@ Partial Class usrcntlTIR Me.txtGesamtpaketName5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.txtGesamtpaketName4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.dgvGegenstände = New System.Windows.Forms.DataGridView() + Me.cbxAbgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxAbgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxAbgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxAbfahrtsland = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxAnkunftsland = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxAbgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxAbgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxAbgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxAbgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Zollamt = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -68,34 +69,6 @@ Partial Class usrcntlTIR Me.PictureBox1.TabIndex = 0 Me.PictureBox1.TabStop = False ' - 'txtAbfahrtsland - ' - Me.txtAbfahrtsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.txtAbfahrtsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtAbfahrtsland.ForeColor = System.Drawing.Color.Black - Me.txtAbfahrtsland.Location = New System.Drawing.Point(207, 173) - Me.txtAbfahrtsland.MaxLineLength = 40 - Me.txtAbfahrtsland.MaxLines_Warning = "4" - Me.txtAbfahrtsland.MaxLines_Warning_Label = Nothing - Me.txtAbfahrtsland.Name = "txtAbfahrtsland" - Me.txtAbfahrtsland.Size = New System.Drawing.Size(126, 65) - Me.txtAbfahrtsland.TabIndex = 499 - Me.txtAbfahrtsland.Text = "" - ' - 'txtBestimmungsland - ' - Me.txtBestimmungsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.txtBestimmungsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtBestimmungsland.ForeColor = System.Drawing.Color.Black - Me.txtBestimmungsland.Location = New System.Drawing.Point(339, 173) - Me.txtBestimmungsland.MaxLineLength = 40 - Me.txtBestimmungsland.MaxLines_Warning = "4" - Me.txtBestimmungsland.MaxLines_Warning_Label = Nothing - Me.txtBestimmungsland.Name = "txtBestimmungsland" - Me.txtBestimmungsland.Size = New System.Drawing.Size(126, 65) - Me.txtBestimmungsland.TabIndex = 500 - Me.txtBestimmungsland.Text = "" - ' 'txtFahrzeug1 ' Me.txtFahrzeug1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) @@ -124,104 +97,6 @@ Partial Class usrcntlTIR Me.txtZusDocument.TabIndex = 502 Me.txtZusDocument.Text = "" ' - 'txtAbgangszollstelle3 - ' - Me.txtAbgangszollstelle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.txtAbgangszollstelle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtAbgangszollstelle3.ForeColor = System.Drawing.Color.Black - Me.txtAbgangszollstelle3.Location = New System.Drawing.Point(27, 160) - Me.txtAbgangszollstelle3.MaxLineLength = 40 - Me.txtAbgangszollstelle3.MaxLines_Warning = "4" - Me.txtAbgangszollstelle3.MaxLines_Warning_Label = Nothing - Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3" - Me.txtAbgangszollstelle3.Size = New System.Drawing.Size(167, 28) - Me.txtAbgangszollstelle3.TabIndex = 504 - Me.txtAbgangszollstelle3.Text = "" - ' - 'txtAbgangszollstelle2 - ' - Me.txtAbgangszollstelle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.txtAbgangszollstelle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtAbgangszollstelle2.ForeColor = System.Drawing.Color.Black - Me.txtAbgangszollstelle2.Location = New System.Drawing.Point(27, 122) - Me.txtAbgangszollstelle2.MaxLineLength = 40 - Me.txtAbgangszollstelle2.MaxLines_Warning = "4" - Me.txtAbgangszollstelle2.MaxLines_Warning_Label = Nothing - Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2" - Me.txtAbgangszollstelle2.Size = New System.Drawing.Size(167, 28) - Me.txtAbgangszollstelle2.TabIndex = 505 - Me.txtAbgangszollstelle2.Text = "" - ' - 'txtAbgangszollstelle1 - ' - Me.txtAbgangszollstelle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.txtAbgangszollstelle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtAbgangszollstelle1.ForeColor = System.Drawing.Color.Black - Me.txtAbgangszollstelle1.Location = New System.Drawing.Point(27, 88) - Me.txtAbgangszollstelle1.MaxLineLength = 40 - Me.txtAbgangszollstelle1.MaxLines_Warning = "4" - Me.txtAbgangszollstelle1.MaxLines_Warning_Label = Nothing - Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1" - Me.txtAbgangszollstelle1.Size = New System.Drawing.Size(167, 28) - Me.txtAbgangszollstelle1.TabIndex = 506 - Me.txtAbgangszollstelle1.Text = "" - ' - 'txtAbgangszollstelle4 - ' - Me.txtAbgangszollstelle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.txtAbgangszollstelle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtAbgangszollstelle4.ForeColor = System.Drawing.Color.Black - Me.txtAbgangszollstelle4.Location = New System.Drawing.Point(27, 194) - Me.txtAbgangszollstelle4.MaxLineLength = 40 - Me.txtAbgangszollstelle4.MaxLines_Warning = "4" - Me.txtAbgangszollstelle4.MaxLines_Warning_Label = Nothing - Me.txtAbgangszollstelle4.Name = "txtAbgangszollstelle4" - Me.txtAbgangszollstelle4.Size = New System.Drawing.Size(167, 28) - Me.txtAbgangszollstelle4.TabIndex = 507 - Me.txtAbgangszollstelle4.Text = "" - ' - 'txtAbgangszollstelle5 - ' - Me.txtAbgangszollstelle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.txtAbgangszollstelle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtAbgangszollstelle5.ForeColor = System.Drawing.Color.Black - Me.txtAbgangszollstelle5.Location = New System.Drawing.Point(27, 228) - Me.txtAbgangszollstelle5.MaxLineLength = 40 - Me.txtAbgangszollstelle5.MaxLines_Warning = "4" - Me.txtAbgangszollstelle5.MaxLines_Warning_Label = Nothing - Me.txtAbgangszollstelle5.Name = "txtAbgangszollstelle5" - Me.txtAbgangszollstelle5.Size = New System.Drawing.Size(167, 28) - Me.txtAbgangszollstelle5.TabIndex = 508 - Me.txtAbgangszollstelle5.Text = "" - ' - 'txtAbgangszollstelle6 - ' - Me.txtAbgangszollstelle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.txtAbgangszollstelle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtAbgangszollstelle6.ForeColor = System.Drawing.Color.Black - Me.txtAbgangszollstelle6.Location = New System.Drawing.Point(27, 264) - Me.txtAbgangszollstelle6.MaxLineLength = 40 - Me.txtAbgangszollstelle6.MaxLines_Warning = "4" - Me.txtAbgangszollstelle6.MaxLines_Warning_Label = Nothing - Me.txtAbgangszollstelle6.Name = "txtAbgangszollstelle6" - Me.txtAbgangszollstelle6.Size = New System.Drawing.Size(167, 28) - Me.txtAbgangszollstelle6.TabIndex = 509 - Me.txtAbgangszollstelle6.Text = "" - ' - 'txtAbgangszollstelle7 - ' - Me.txtAbgangszollstelle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.txtAbgangszollstelle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtAbgangszollstelle7.ForeColor = System.Drawing.Color.Black - Me.txtAbgangszollstelle7.Location = New System.Drawing.Point(27, 298) - Me.txtAbgangszollstelle7.MaxLineLength = 40 - Me.txtAbgangszollstelle7.MaxLines_Warning = "4" - Me.txtAbgangszollstelle7.MaxLines_Warning_Label = Nothing - Me.txtAbgangszollstelle7.Name = "txtAbgangszollstelle7" - Me.txtAbgangszollstelle7.Size = New System.Drawing.Size(167, 28) - Me.txtAbgangszollstelle7.TabIndex = 510 - Me.txtAbgangszollstelle7.Text = "" - ' 'txtGesamtpaket1 ' Me.txtGesamtpaket1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) @@ -425,15 +300,15 @@ Partial Class usrcntlTIR Me.dgvGegenstände.AllowUserToOrderColumns = True Me.dgvGegenstände.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.dgvGegenstände.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvGegenstände.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4}) - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvGegenstände.DefaultCellStyle = DataGridViewCellStyle1 + Me.dgvGegenstände.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Zollamt, Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4}) + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + 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.ControlText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvGegenstände.DefaultCellStyle = DataGridViewCellStyle6 Me.dgvGegenstände.GridColor = System.Drawing.Color.Gray Me.dgvGegenstände.Location = New System.Drawing.Point(17, 387) Me.dgvGegenstände.Name = "dgvGegenstände" @@ -442,9 +317,130 @@ Partial Class usrcntlTIR Me.dgvGegenstände.Size = New System.Drawing.Size(673, 450) Me.dgvGegenstände.TabIndex = 525 ' + 'cbxAbgangszollstelle1 + ' + Me.cbxAbgangszollstelle1._allowedValuesFreiText = Nothing + Me.cbxAbgangszollstelle1._allowFreiText = False + Me.cbxAbgangszollstelle1._value = "" + Me.cbxAbgangszollstelle1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cbxAbgangszollstelle1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cbxAbgangszollstelle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cbxAbgangszollstelle1.FormattingEnabled = True + Me.cbxAbgangszollstelle1.Location = New System.Drawing.Point(27, 88) + Me.cbxAbgangszollstelle1.Name = "cbxAbgangszollstelle1" + Me.cbxAbgangszollstelle1.Size = New System.Drawing.Size(165, 21) + Me.cbxAbgangszollstelle1.TabIndex = 529 + ' + 'cbxAbgangszollstelle2 + ' + Me.cbxAbgangszollstelle2._allowedValuesFreiText = Nothing + Me.cbxAbgangszollstelle2._allowFreiText = True + Me.cbxAbgangszollstelle2._value = "" + Me.cbxAbgangszollstelle2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest + Me.cbxAbgangszollstelle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cbxAbgangszollstelle2.FormattingEnabled = True + Me.cbxAbgangszollstelle2.Location = New System.Drawing.Point(27, 125) + Me.cbxAbgangszollstelle2.Name = "cbxAbgangszollstelle2" + Me.cbxAbgangszollstelle2.Size = New System.Drawing.Size(165, 21) + Me.cbxAbgangszollstelle2.TabIndex = 530 + ' + 'cbxAbgangszollstelle3 + ' + Me.cbxAbgangszollstelle3._allowedValuesFreiText = Nothing + Me.cbxAbgangszollstelle3._allowFreiText = True + Me.cbxAbgangszollstelle3._value = "" + Me.cbxAbgangszollstelle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cbxAbgangszollstelle3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxAbgangszollstelle3.FormattingEnabled = True + Me.cbxAbgangszollstelle3.Location = New System.Drawing.Point(27, 161) + Me.cbxAbgangszollstelle3.Name = "cbxAbgangszollstelle3" + Me.cbxAbgangszollstelle3.Size = New System.Drawing.Size(165, 21) + Me.cbxAbgangszollstelle3.TabIndex = 531 + ' + 'cbxAbfahrtsland + ' + Me.cbxAbfahrtsland._allowedValuesFreiText = Nothing + Me.cbxAbfahrtsland._allowFreiText = False + Me.cbxAbfahrtsland._value = "" + Me.cbxAbfahrtsland.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest + Me.cbxAbfahrtsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cbxAbfahrtsland.DropDownWidth = 200 + Me.cbxAbfahrtsland.FormattingEnabled = True + Me.cbxAbfahrtsland.Location = New System.Drawing.Point(207, 204) + Me.cbxAbfahrtsland.Name = "cbxAbfahrtsland" + Me.cbxAbfahrtsland.Size = New System.Drawing.Size(109, 21) + Me.cbxAbfahrtsland.TabIndex = 532 + ' + 'cbxAnkunftsland + ' + Me.cbxAnkunftsland._allowedValuesFreiText = Nothing + Me.cbxAnkunftsland._allowFreiText = False + Me.cbxAnkunftsland._value = "" + Me.cbxAnkunftsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cbxAnkunftsland.DropDownWidth = 200 + Me.cbxAnkunftsland.FormattingEnabled = True + Me.cbxAnkunftsland.Location = New System.Drawing.Point(345, 204) + Me.cbxAnkunftsland.Name = "cbxAnkunftsland" + Me.cbxAnkunftsland.Size = New System.Drawing.Size(110, 21) + Me.cbxAnkunftsland.TabIndex = 533 + ' + 'cbxAbgangszollstelle6 + ' + Me.cbxAbgangszollstelle6._allowedValuesFreiText = Nothing + Me.cbxAbgangszollstelle6._allowFreiText = True + Me.cbxAbgangszollstelle6._value = "" + Me.cbxAbgangszollstelle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cbxAbgangszollstelle6.FormattingEnabled = True + Me.cbxAbgangszollstelle6.Location = New System.Drawing.Point(27, 266) + Me.cbxAbgangszollstelle6.Name = "cbxAbgangszollstelle6" + Me.cbxAbgangszollstelle6.Size = New System.Drawing.Size(165, 21) + Me.cbxAbgangszollstelle6.TabIndex = 536 + ' + 'cbxAbgangszollstelle5 + ' + Me.cbxAbgangszollstelle5._allowedValuesFreiText = Nothing + Me.cbxAbgangszollstelle5._allowFreiText = True + Me.cbxAbgangszollstelle5._value = "" + Me.cbxAbgangszollstelle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cbxAbgangszollstelle5.FormattingEnabled = True + Me.cbxAbgangszollstelle5.Location = New System.Drawing.Point(27, 230) + Me.cbxAbgangszollstelle5.Name = "cbxAbgangszollstelle5" + Me.cbxAbgangszollstelle5.Size = New System.Drawing.Size(165, 21) + Me.cbxAbgangszollstelle5.TabIndex = 535 + ' + 'cbxAbgangszollstelle4 + ' + Me.cbxAbgangszollstelle4._allowedValuesFreiText = Nothing + Me.cbxAbgangszollstelle4._allowFreiText = True + Me.cbxAbgangszollstelle4._value = "" + Me.cbxAbgangszollstelle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cbxAbgangszollstelle4.FormattingEnabled = True + Me.cbxAbgangszollstelle4.Location = New System.Drawing.Point(27, 193) + Me.cbxAbgangszollstelle4.Name = "cbxAbgangszollstelle4" + Me.cbxAbgangszollstelle4.Size = New System.Drawing.Size(165, 21) + Me.cbxAbgangszollstelle4.TabIndex = 534 + ' + 'cbxAbgangszollstelle7 + ' + Me.cbxAbgangszollstelle7._allowedValuesFreiText = Nothing + Me.cbxAbgangszollstelle7._allowFreiText = True + Me.cbxAbgangszollstelle7._value = "" + Me.cbxAbgangszollstelle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cbxAbgangszollstelle7.FormattingEnabled = True + Me.cbxAbgangszollstelle7.Location = New System.Drawing.Point(27, 303) + Me.cbxAbgangszollstelle7.Name = "cbxAbgangszollstelle7" + Me.cbxAbgangszollstelle7.Size = New System.Drawing.Size(165, 21) + Me.cbxAbgangszollstelle7.TabIndex = 537 + ' + 'Zollamt + ' + Me.Zollamt.HeaderText = "Zollamt" + Me.Zollamt.Name = "Zollamt" + Me.Zollamt.Width = 50 + ' 'DataGridViewTextBoxColumn1 ' - Me.DataGridViewTextBoxColumn1.HeaderText = "Container Laderaum" + Me.DataGridViewTextBoxColumn1.HeaderText = "Empfänger" Me.DataGridViewTextBoxColumn1.MaxInputLength = 156 Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.Width = 166 @@ -454,17 +450,18 @@ Partial Class usrcntlTIR Me.DataGridViewTextBoxColumn2.HeaderText = "Anzahl" Me.DataGridViewTextBoxColumn2.MaxInputLength = 50 Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.Width = 50 ' 'DataGridViewTextBoxColumn3 ' - Me.DataGridViewTextBoxColumn3.HeaderText = "Art des Gegenstandes" + Me.DataGridViewTextBoxColumn3.HeaderText = "Ware" Me.DataGridViewTextBoxColumn3.MaxInputLength = 250 Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" Me.DataGridViewTextBoxColumn3.Width = 320 ' 'DataGridViewTextBoxColumn4 ' - Me.DataGridViewTextBoxColumn4.HeaderText = "Bruttogew." + Me.DataGridViewTextBoxColumn4.HeaderText = "Gewicht" Me.DataGridViewTextBoxColumn4.MaxInputLength = 90 Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" Me.DataGridViewTextBoxColumn4.Width = 90 @@ -473,6 +470,15 @@ Partial Class usrcntlTIR ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.cbxAbgangszollstelle7) + Me.Controls.Add(Me.cbxAbgangszollstelle6) + Me.Controls.Add(Me.cbxAbgangszollstelle5) + Me.Controls.Add(Me.cbxAbgangszollstelle4) + Me.Controls.Add(Me.cbxAnkunftsland) + Me.Controls.Add(Me.cbxAbfahrtsland) + Me.Controls.Add(Me.cbxAbgangszollstelle3) + Me.Controls.Add(Me.cbxAbgangszollstelle2) + Me.Controls.Add(Me.cbxAbgangszollstelle1) Me.Controls.Add(Me.dgvGegenstände) Me.Controls.Add(Me.txtGesamtpaketName4) Me.Controls.Add(Me.txtGesamtpaketName7) @@ -488,17 +494,8 @@ Partial Class usrcntlTIR Me.Controls.Add(Me.txtGesamtpaket3) Me.Controls.Add(Me.txtGesamtpaket2) Me.Controls.Add(Me.txtGesamtpaket1) - Me.Controls.Add(Me.txtAbgangszollstelle7) - Me.Controls.Add(Me.txtAbgangszollstelle6) - Me.Controls.Add(Me.txtAbgangszollstelle5) - Me.Controls.Add(Me.txtAbgangszollstelle4) - Me.Controls.Add(Me.txtAbgangszollstelle1) - Me.Controls.Add(Me.txtAbgangszollstelle2) - Me.Controls.Add(Me.txtAbgangszollstelle3) Me.Controls.Add(Me.txtZusDocument) Me.Controls.Add(Me.txtFahrzeug1) - Me.Controls.Add(Me.txtBestimmungsland) - Me.Controls.Add(Me.txtAbfahrtsland) Me.Controls.Add(Me.PictureBox1) Me.Name = "usrcntlTIR" Me.Size = New System.Drawing.Size(860, 1272) @@ -509,17 +506,8 @@ Partial Class usrcntlTIR End Sub Friend WithEvents PictureBox1 As PictureBox - Public WithEvents txtAbfahrtsland As VERAG_PROG_ALLGEMEIN.MyRichTextBox - Public WithEvents txtBestimmungsland As VERAG_PROG_ALLGEMEIN.MyRichTextBox Public WithEvents txtFahrzeug1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox Public WithEvents txtZusDocument As VERAG_PROG_ALLGEMEIN.MyRichTextBox - Public WithEvents txtAbgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MyRichTextBox - Public WithEvents txtAbgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MyRichTextBox - Public WithEvents txtAbgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox - Public WithEvents txtAbgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox - Public WithEvents txtAbgangszollstelle5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox - Public WithEvents txtAbgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MyRichTextBox - Public WithEvents txtAbgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MyRichTextBox Public WithEvents txtGesamtpaket1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox Public WithEvents txtGesamtpaket2 As VERAG_PROG_ALLGEMEIN.MyRichTextBox Public WithEvents txtGesamtpaket3 As VERAG_PROG_ALLGEMEIN.MyRichTextBox @@ -535,6 +523,16 @@ Partial Class usrcntlTIR Public WithEvents txtGesamtpaketName5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox Public WithEvents txtGesamtpaketName4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox Public WithEvents dgvGegenstände As DataGridView + Friend WithEvents cbxAbgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAbgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAbgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAbfahrtsland As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAnkunftsland As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAbgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAbgangszollstelle5 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAbgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAbgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Zollamt As DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn diff --git a/SDL/Formulare/CARNET-TIR/usrcntlTIR.resx b/SDL/Formulare/CARNET-TIR/usrcntlTIR.resx index 65f73923..b4ee4ccd 100644 --- a/SDL/Formulare/CARNET-TIR/usrcntlTIR.resx +++ b/SDL/Formulare/CARNET-TIR/usrcntlTIR.resx @@ -127,7 +127,7 @@ i44l3CfclrZsyQ8mi5xWvKbYyq2YP/dULwwv2NNxpctsZYxxJplCw2CFJXIU6JLVFsUlJvvRCv4W3z8l LkNcS5jiGGEZC933o/7gd7duprenmBSOQvWT5721Q80WfG163ueh530dQegRLuySf/kABt9F3yxpbfvQ uA5nlyXN2IbzDWh+yOuO7kshmcFMBl5P5JtS0HQN9bPF3n72Ob6DhHQ1cQW7e9CRley5Cu+uLe/tzzN+ - f0S/AXdfcqnO5vvHAAAACXBIWXMAAA7CAAAOwgEVKEqAAAAAB3RJTUUH5wMPCREIioV7sQAA/iBJREFU + f0S/AXdfcqnO5vvHAAAACXBIWXMAAA6/AAAOvwE4BVMkAAAAB3RJTUUH5wMPCREIioV7sQAA/iBJREFU eF7svQd4HUd2JfxLa+9Ee5ztXXvXm+y1vbYn55ykUc4SSQVKlEgFSqQCRVHMOeecQBIESYAAiMicM0ES IAAi55zjQ873P+dW13uNhwcKGsmztnfe952v+1VXVw731K26/f991K+1o/Z3WtprvtnQUvFudWPx0sqG omXVzaVL69orl9R3Vi1p6qpe3N7bsLB3wLNgQFrmA/OAOf3imY3rLJHWmcAM4ENgGtw+6B/wTO3ta3q/ @@ -19439,6 +19439,9 @@ idhk3hPvDU6/N/j7l3/5fwCC4tlmQEaMlwAAAABJRU5ErkJggg== + + True + True diff --git a/SDL/Formulare/CARNET-TIR/usrcntlTIR.vb b/SDL/Formulare/CARNET-TIR/usrcntlTIR.vb index 6c706238..eea77fe1 100644 --- a/SDL/Formulare/CARNET-TIR/usrcntlTIR.vb +++ b/SDL/Formulare/CARNET-TIR/usrcntlTIR.vb @@ -8,7 +8,7 @@ dgvGegenstände.Rows.Add("", "", "", "") Next - txtAbgangszollstelle1.Text = "SUBEN" + cbxAbgangszollstelle1._value = "SUBEN" End Sub diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 3259a66c..72971dfc 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 68f021b5..704feb2d 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -279,9 +279,6 @@ True - - ..\..\..\AVISO\Aviso\packages\Newtonsoft.Json.12.0.3\lib\net45\Newtonsoft.Json.dll - ..\..\..\dll\NumericBox.dll @@ -525,6 +522,12 @@ + + usrcntlCreditsafe.vb + + + UserControl + @@ -2875,6 +2878,9 @@ subRptVM.vb + + usrcntlCreditsafe.vb + rptSammelRechnungAnlagenDruck_Leistungen.vb diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index e8eb0619..5aa5785a 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -42,6 +42,7 @@ Partial Class frmKundenblatt Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() + Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() Me.Label17 = New System.Windows.Forms.Label() @@ -116,8 +117,10 @@ Partial Class frmKundenblatt Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() + Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.tbLKW = New System.Windows.Forms.TabPage() Me.pnlLKWRight = New System.Windows.Forms.Panel() + Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.pnlLKW = New System.Windows.Forms.Panel() Me.dgvLKW = New System.Windows.Forms.DataGridView() Me.pnlLKWBottom = New System.Windows.Forms.Panel() @@ -148,6 +151,7 @@ Partial Class frmKundenblatt Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() @@ -172,10 +176,6 @@ Partial Class frmKundenblatt Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() - Me.usrcntlKarten = New SDL.usrCntlKartenDaten() - Me.UsrCntlLKW1 = New SDL.usrCntlLKW() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -247,7 +247,7 @@ Partial Class frmKundenblatt Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) - Me.tbFirmendaten.Size = New System.Drawing.Size(1623, 727) + Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 727) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -257,9 +257,19 @@ Partial Class frmKundenblatt Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1617, 721) + Me.Panel4.Size = New System.Drawing.Size(1624, 721) Me.Panel4.TabIndex = 0 ' + 'UsrcntlKundeBearbeitenFull1 + ' + Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White + Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 721) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 + ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -307,7 +317,7 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1630, 744) + Me.tbAllgemein.Size = New System.Drawing.Size(1630, 727) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' @@ -642,7 +652,7 @@ Partial Class frmKundenblatt DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 - Me.dgvSperrliste.Size = New System.Drawing.Size(835, 634) + Me.dgvSperrliste.Size = New System.Drawing.Size(835, 617) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -696,7 +706,7 @@ Partial Class frmKundenblatt Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Name = "tbZoll" Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) - Me.tbZoll.Size = New System.Drawing.Size(1623, 727) + Me.tbZoll.Size = New System.Drawing.Size(1630, 727) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -708,7 +718,7 @@ Partial Class frmKundenblatt Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.SelectedIndex = 0 - Me.tbcntrZOLL.Size = New System.Drawing.Size(1617, 721) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 721) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -716,7 +726,7 @@ Partial Class frmKundenblatt Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) - Me.tabZoll_Artikel.Size = New System.Drawing.Size(1609, 695) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 695) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -757,7 +767,7 @@ Partial Class frmKundenblatt Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Name = "tbSDL" Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDL.Size = New System.Drawing.Size(1616, 712) + Me.tbSDL.Size = New System.Drawing.Size(1616, 695) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -799,7 +809,7 @@ Partial Class frmKundenblatt DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle10 Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 516) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 499) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -903,7 +913,7 @@ Partial Class frmKundenblatt Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(3, 566) + Me.Panel5.Location = New System.Drawing.Point(3, 549) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1610, 143) Me.Panel5.TabIndex = 177 @@ -1276,11 +1286,21 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(1609, 695) + Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True ' + 'usrcntlKarten + ' + Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.usrcntlKarten.Name = "usrcntlKarten" + Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) + Me.usrcntlKarten.TabIndex = 0 + ' 'tbLKW ' Me.tbLKW.Controls.Add(Me.pnlLKWRight) @@ -1288,7 +1308,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(1616, 695) + Me.tbLKW.Size = New System.Drawing.Size(178, 39) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1300,9 +1320,22 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(1304, 689) + Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33) Me.pnlLKWRight.TabIndex = 2 ' + 'UsrCntlLKW1 + ' + Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White + Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) + Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) + Me.UsrCntlLKW1.Name = "UsrCntlLKW1" + Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33) + Me.UsrCntlLKW1.TabIndex = 0 + ' 'pnlLKW ' Me.pnlLKW.Controls.Add(Me.dgvLKW) @@ -1311,7 +1344,7 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 689) + Me.pnlLKW.Size = New System.Drawing.Size(306, 33) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1352,7 +1385,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 515) + Me.dgvLKW.Size = New System.Drawing.Size(306, 0) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1364,7 +1397,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 577) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1505,7 +1538,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(1609, 695) + Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1517,7 +1550,7 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(1603, 689) + Me.Panel3.Size = New System.Drawing.Size(172, 33) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -1535,7 +1568,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(1609, 695) + Me.tbDokumente.Size = New System.Drawing.Size(178, 39) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -1733,7 +1766,7 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) Me.tbBesuchsberichte.Name = "tbBesuchsberichte" Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(1609, 695) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -1744,11 +1777,21 @@ Partial Class frmKundenblatt Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Name = "tbOfferte" - Me.tbOfferte.Size = New System.Drawing.Size(1623, 727) + Me.tbOfferte.Size = New System.Drawing.Size(1630, 727) Me.tbOfferte.TabIndex = 11 Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True ' + 'UsrCntlOfferte1 + ' + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 727) + Me.UsrCntlOfferte1.TabIndex = 0 + ' 'cntxtExcel ' Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24) @@ -2008,49 +2051,6 @@ Partial Class frmKundenblatt Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) Me.tbiVERAGCard.Text = "VERAG Card" ' - 'UsrcntlKundeBearbeitenFull1 - ' - Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White - Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1617, 721) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' - 'usrcntlKarten - ' - Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default - Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(1603, 689) - Me.usrcntlKarten.TabIndex = 0 - ' - 'UsrCntlLKW1 - ' - Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White - Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) - Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 689) - Me.UsrCntlLKW1.TabIndex = 0 - ' - 'UsrCntlOfferte1 - ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1623, 727) - Me.UsrCntlOfferte1.TabIndex = 0 - ' 'frmKundenblatt ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb index 232b3de4..cf278986 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb @@ -71,13 +71,17 @@ Partial Class usrCntlKundenuebersicht Me.lblKdNr = New System.Windows.Forms.TextBox() Me.Label13 = New System.Windows.Forms.Label() Me.grpAbfertigung = New System.Windows.Forms.GroupBox() + Me.Panel9 = New System.Windows.Forms.Panel() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label15 = New System.Windows.Forms.Label() + Me.txtVerzolltBeiExport = New System.Windows.Forms.TextBox() + Me.txtVerzolltBei = New System.Windows.Forms.TextBox() Me.rtbInfo = New System.Windows.Forms.RichTextBox() Me.txtNeutralisierung = New System.Windows.Forms.TextBox() Me.lblNeutralisierung = New System.Windows.Forms.Label() Me.lklGanzerText = New System.Windows.Forms.LinkLabel() Me.lblNoGespr = New System.Windows.Forms.Label() Me.txtVorauskasse = New System.Windows.Forms.TextBox() - Me.Label15 = New System.Windows.Forms.Label() Me.lblAviso = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() @@ -106,6 +110,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.btnCreditsafe = New System.Windows.Forms.Button() Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Label68 = New System.Windows.Forms.Label() @@ -130,7 +135,6 @@ Partial Class usrCntlKundenuebersicht Me.Label1 = New System.Windows.Forms.Label() Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblVorkasse = New System.Windows.Forms.Label() - Me.txtVerzolltBei = New System.Windows.Forms.TextBox() Me.grpAdresse = New System.Windows.Forms.GroupBox() Me.tbKontakt = New System.Windows.Forms.TabControl() Me.tbKontaktKontakt = New System.Windows.Forms.TabPage() @@ -246,9 +250,6 @@ 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.txtVerzolltBeiExport = New System.Windows.Forms.TextBox() - Me.Label3 = New System.Windows.Forms.Label() - Me.Panel9 = New System.Windows.Forms.Panel() Me.cntxtAddVM.SuspendLayout() Me.tbWeitereKundenDetails.SuspendLayout() Me.tbOfferten.SuspendLayout() @@ -265,6 +266,7 @@ Partial Class usrCntlKundenuebersicht CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel3.SuspendLayout() Me.grpAbfertigung.SuspendLayout() + Me.Panel9.SuspendLayout() Me.pnlVERAGSnspr.SuspendLayout() Me.Panel4.SuspendLayout() Me.Panel5.SuspendLayout() @@ -297,7 +299,6 @@ Partial Class usrCntlKundenuebersicht Me.ContextMenuStrip3.SuspendLayout() Me.ContextMenuStrip2.SuspendLayout() Me.ContextMenuStrip4.SuspendLayout() - Me.Panel9.SuspendLayout() Me.SuspendLayout() ' 'cntxtAddVM @@ -846,6 +847,61 @@ Partial Class usrCntlKundenuebersicht Me.grpAbfertigung.TabStop = False Me.grpAbfertigung.Text = "Abfertigung" ' + 'Panel9 + ' + Me.Panel9.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel9.Controls.Add(Me.Label3) + Me.Panel9.Controls.Add(Me.Label15) + Me.Panel9.Controls.Add(Me.txtVerzolltBeiExport) + Me.Panel9.Controls.Add(Me.txtVerzolltBei) + Me.Panel9.Location = New System.Drawing.Point(7, 231) + Me.Panel9.Name = "Panel9" + Me.Panel9.Size = New System.Drawing.Size(356, 24) + Me.Panel9.TabIndex = 46 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(197, 4) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(40, 13) + Me.Label3.TabIndex = 45 + Me.Label3.Text = "Export:" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(3, 4) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(61, 13) + Me.Label15.TabIndex = 15 + Me.Label15.Text = "Verzollt bei:" + ' + 'txtVerzolltBeiExport + ' + Me.txtVerzolltBeiExport.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtVerzolltBeiExport.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtVerzolltBeiExport.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtVerzolltBeiExport.ForeColor = System.Drawing.Color.Black + Me.txtVerzolltBeiExport.Location = New System.Drawing.Point(243, 4) + Me.txtVerzolltBeiExport.Name = "txtVerzolltBeiExport" + Me.txtVerzolltBeiExport.ReadOnly = True + Me.txtVerzolltBeiExport.Size = New System.Drawing.Size(106, 13) + Me.txtVerzolltBeiExport.TabIndex = 44 + ' + 'txtVerzolltBei + ' + Me.txtVerzolltBei.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtVerzolltBei.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtVerzolltBei.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtVerzolltBei.ForeColor = System.Drawing.Color.Black + Me.txtVerzolltBei.Location = New System.Drawing.Point(70, 4) + Me.txtVerzolltBei.Name = "txtVerzolltBei" + Me.txtVerzolltBei.ReadOnly = True + Me.txtVerzolltBei.Size = New System.Drawing.Size(128, 13) + Me.txtVerzolltBei.TabIndex = 16 + ' 'rtbInfo ' Me.rtbInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -917,15 +973,6 @@ Partial Class usrCntlKundenuebersicht Me.txtVorauskasse.TabIndex = 26 Me.txtVorauskasse.Visible = False ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(3, 4) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(61, 13) - Me.Label15.TabIndex = 15 - Me.Label15.Text = "Verzollt bei:" - ' 'lblAviso ' Me.lblAviso.BackColor = System.Drawing.Color.White @@ -1361,6 +1408,7 @@ Partial Class usrCntlKundenuebersicht ' Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel4.Controls.Add(Me.btnCreditsafe) Me.Panel4.Controls.Add(Me.FlatButton6) Me.Panel4.Controls.Add(Me.btnBonitaetBearbeiten) Me.Panel4.Controls.Add(Me.Label68) @@ -1376,6 +1424,16 @@ Partial Class usrCntlKundenuebersicht Me.Panel4.Size = New System.Drawing.Size(662, 26) Me.Panel4.TabIndex = 37 ' + 'btnCreditsafe + ' + Me.btnCreditsafe.Location = New System.Drawing.Point(582, 3) + Me.btnCreditsafe.Name = "btnCreditsafe" + Me.btnCreditsafe.Size = New System.Drawing.Size(67, 20) + Me.btnCreditsafe.TabIndex = 10 + Me.btnCreditsafe.Text = "Creditsafe" + Me.btnCreditsafe.UseVisualStyleBackColor = True + Me.btnCreditsafe.Visible = False + ' 'FlatButton6 ' Me.FlatButton6.allowBorder = False @@ -1451,7 +1509,7 @@ Partial Class usrCntlKundenuebersicht Me.Label69.Name = "Label69" Me.Label69.Size = New System.Drawing.Size(70, 13) Me.Label69.TabIndex = 6 - Me.Label69.Text = "Höchstkredit:" + Me.Label69.Text = "Hochstkredit:" ' 'lblBonitaet ' @@ -1793,18 +1851,6 @@ Partial Class usrCntlKundenuebersicht Me.lblVorkasse.Text = "Vorauskasse:" Me.lblVorkasse.Visible = False ' - 'txtVerzolltBei - ' - Me.txtVerzolltBei.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtVerzolltBei.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtVerzolltBei.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtVerzolltBei.ForeColor = System.Drawing.Color.Black - Me.txtVerzolltBei.Location = New System.Drawing.Point(70, 4) - Me.txtVerzolltBei.Name = "txtVerzolltBei" - Me.txtVerzolltBei.ReadOnly = True - Me.txtVerzolltBei.Size = New System.Drawing.Size(128, 13) - Me.txtVerzolltBei.TabIndex = 16 - ' 'grpAdresse ' Me.grpAdresse.BackColor = System.Drawing.Color.White @@ -3209,40 +3255,6 @@ Partial Class usrCntlKundenuebersicht Me.cboFirmaFMZOLL.TabIndex = 10 Me.cboFirmaFMZOLL.Visible = False ' - 'txtVerzolltBeiExport - ' - Me.txtVerzolltBeiExport.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtVerzolltBeiExport.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtVerzolltBeiExport.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtVerzolltBeiExport.ForeColor = System.Drawing.Color.Black - Me.txtVerzolltBeiExport.Location = New System.Drawing.Point(243, 4) - Me.txtVerzolltBeiExport.Name = "txtVerzolltBeiExport" - Me.txtVerzolltBeiExport.ReadOnly = True - Me.txtVerzolltBeiExport.Size = New System.Drawing.Size(106, 13) - Me.txtVerzolltBeiExport.TabIndex = 44 - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(197, 4) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(40, 13) - Me.Label3.TabIndex = 45 - Me.Label3.Text = "Export:" - ' - 'Panel9 - ' - Me.Panel9.BackColor = System.Drawing.Color.WhiteSmoke - Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Panel9.Controls.Add(Me.Label3) - Me.Panel9.Controls.Add(Me.Label15) - Me.Panel9.Controls.Add(Me.txtVerzolltBeiExport) - Me.Panel9.Controls.Add(Me.txtVerzolltBei) - Me.Panel9.Location = New System.Drawing.Point(7, 231) - Me.Panel9.Name = "Panel9" - Me.Panel9.Size = New System.Drawing.Size(356, 24) - Me.Panel9.TabIndex = 46 - ' 'usrCntlKundenuebersicht ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -3283,6 +3295,8 @@ Partial Class usrCntlKundenuebersicht Me.Panel3.ResumeLayout(False) Me.grpAbfertigung.ResumeLayout(False) Me.grpAbfertigung.PerformLayout() + Me.Panel9.ResumeLayout(False) + Me.Panel9.PerformLayout() Me.pnlVERAGSnspr.ResumeLayout(False) Me.pnlVERAGSnspr.PerformLayout() Me.Panel4.ResumeLayout(False) @@ -3326,8 +3340,6 @@ Partial Class usrCntlKundenuebersicht Me.ContextMenuStrip3.ResumeLayout(False) Me.ContextMenuStrip2.ResumeLayout(False) Me.ContextMenuStrip4.ResumeLayout(False) - Me.Panel9.ResumeLayout(False) - Me.Panel9.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -3546,4 +3558,5 @@ Partial Class usrCntlKundenuebersicht Friend WithEvents Panel9 As Panel Friend WithEvents Label3 As Label Friend WithEvents txtVerzolltBeiExport As TextBox + Friend WithEvents btnCreditsafe As Button End Class diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index b034636a..7c3dad77 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -1,8 +1,12 @@ Imports System.Data.SqlClient Imports System.Globalization Imports System.IO +Imports com.oracle.xmlns.internal.webservices.jaxws_databinding +Imports com.sun.org.apache.bcel.internal.generic +Imports java.rmi.server Imports SDL.EORI Imports sun.invoke.empty +Imports VERAG_PROG_ALLGEMEIN Public Class usrCntlKundenuebersicht 'Implements INotifyPropertyChanged @@ -197,6 +201,7 @@ Public Class usrCntlKundenuebersicht pnlSperre.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTEN_SPERRE", "SDL") + btnCreditsafe.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CREDITSAFE_Prüfung", "SDL") If kdNr > 0 Then setKD(kdNr) @@ -274,7 +279,7 @@ Public Class usrCntlKundenuebersicht If ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR" Then tbWeitereKundenDetails.TabPages.Add(tbUmsatz) tbWeitereKundenDetails.TabPages.Add(tbOffenePosten) - ElseIf VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LISTE", "SDL") Then + ElseIf VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LISTE", "SDL") Then tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten) End If End If @@ -2429,7 +2434,7 @@ Public Class usrCntlKundenuebersicht Dim EORI_NR = KUNDE.EORITIN.ToString() - EORI_NR.Replace("-", "").Replace(" ", "").Trim + EORI_NR.Replace("-", "").Replace(" ", "").Trim() If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub @@ -2694,7 +2699,60 @@ Public Class usrCntlKundenuebersicht End Sub - Private Sub dgvVertraege_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellContentClick + 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 name As String = checkNullStr(ADRESSE.Name_1) + + Cursor = Cursors.WaitCursor + + KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) + + If KUNDE_ERW.kde_CreditSaveId = "" Then + + + If checkNullStr(ADRESSE.UstIdKz) <> "" Or checkNullStr(ADRESSE.UstIdNr) <> "" Then + UID = checkNullStr(ADRESSE.UstIdKz) & " " & checkNullStr(ADRESSE.UstIdNr) + End If + + Using UserControl1 As usrcntlCreditsafe = New usrcntlCreditsafe(UID, name, land) + Using tmpForm As Form = New Form() + tmpForm.Width = UserControl1.Width + tmpForm.Height = UserControl1.Height + 40 + tmpForm.Text = "Creditsafe-Prüfung" + tmpForm.StartPosition = tmpForm.StartPosition.CenterParent + tmpForm.Controls.Add(UserControl1) + If tmpForm.ShowDialog() = DialogResult.OK Then + + KUNDE_ERW.kde_CreditSaveId = UserControl1.comp.credissafeId + KUNDE_ERW.SAVE() + End If + + + End Using + End Using + + Else + Dim cs = New cCreditSafeAPI() + + If cs.authenticate(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd) = "200" Then + Dim a As MsgBoxResult = MsgBox("Soll der neue CS-Bericht angefügt werden?.", vbYesNo) + If a = vbYes Then + MsgBox(cs.companyCreditreport(KUNDE_ERW.kde_CreditSaveId)) + + + End If + Else + MsgBox("Authentiizierungsfehler für User " & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser) + + End If + + End If + + + Cursor = Cursors.Default End Sub + End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index 5d0611f9..70bcd6ca 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -22,16 +22,16 @@ Partial Class usrcntlKundeBearbeitenFull 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox() @@ -219,6 +219,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbSonstiges = New System.Windows.Forms.TabPage() + Me.Label99 = New System.Windows.Forms.Label() + Me.txtCreditsafe = New System.Windows.Forms.TextBox() Me.txtSonst_KdNrTOBB = New System.Windows.Forms.TextBox() Me.Label96 = New System.Windows.Forms.Label() Me.txtSonst_KdNrPLOSE = New System.Windows.Forms.TextBox() @@ -250,6 +252,7 @@ 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.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() @@ -2563,8 +2566,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 + 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) @@ -2663,8 +2666,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12 + 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) @@ -2824,41 +2827,41 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToResizeRows = False - DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13 + 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 - DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14 + 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 - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle15 + 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 - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16 + 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 - DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle17 + 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) @@ -2998,8 +3001,8 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18 + 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) @@ -3138,6 +3141,8 @@ Partial Class usrcntlKundeBearbeitenFull ' '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) @@ -3169,9 +3174,26 @@ Partial Class usrcntlKundeBearbeitenFull 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, 201) + 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) @@ -3182,7 +3204,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label96.AutoSize = True Me.Label96.Enabled = False Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label96.Location = New System.Drawing.Point(6, 204) + 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 @@ -3191,7 +3213,7 @@ Partial Class usrcntlKundeBearbeitenFull 'txtSonst_KdNrPLOSE ' Me.txtSonst_KdNrPLOSE.Enabled = False - Me.txtSonst_KdNrPLOSE.Location = New System.Drawing.Point(119, 175) + 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 @@ -3201,7 +3223,7 @@ Partial Class usrcntlKundeBearbeitenFull 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, 178) + 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 @@ -3211,7 +3233,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 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, 233) + 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 @@ -3220,8 +3242,8 @@ Partial Class usrcntlKundeBearbeitenFull 'dgvSonst_IDSKunden ' Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19 + 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) @@ -3233,7 +3255,7 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxSonst_CsvAsfinag ' Me.cbxSonst_CsvAsfinag.AutoSize = True - Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(119, 228) + 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 @@ -3243,7 +3265,7 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxSonst_CsvUTA ' Me.cbxSonst_CsvUTA.AutoSize = True - Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(274, 151) + 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 @@ -3253,7 +3275,7 @@ Partial Class usrcntlKundeBearbeitenFull 'cbxSonst_CsvMSE ' Me.cbxSonst_CsvMSE.AutoSize = True - Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(274, 99) + 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 @@ -3272,7 +3294,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'txtSonst_KdNrUTA ' - Me.txtSonst_KdNrUTA.Location = New System.Drawing.Point(119, 149) + 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 @@ -3281,7 +3303,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 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, 152) + 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 @@ -3289,7 +3311,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'txtSonst_KdNrTelepass ' - Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(119, 123) + 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 @@ -3298,7 +3320,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label74.AutoSize = True Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label74.Location = New System.Drawing.Point(6, 126) + 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 @@ -3306,7 +3328,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'txtSonst_KdNrMSE ' - Me.txtSonst_KdNrMSE.Location = New System.Drawing.Point(119, 97) + 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 @@ -3315,7 +3337,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 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, 100) + 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 @@ -3323,7 +3345,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'txtSonst_KdNrWOELFL ' - Me.txtSonst_KdNrWOELFL.Location = New System.Drawing.Point(119, 71) + 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 @@ -3332,7 +3354,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 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, 74) + 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 @@ -3341,7 +3363,7 @@ Partial Class usrcntlKundeBearbeitenFull 'txtSonst_KdNrIDS ' Me.txtSonst_KdNrIDS.Enabled = False - Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(119, 45) + 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 @@ -3351,7 +3373,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label70.AutoSize = True Me.Label70.Enabled = False Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label70.Location = New System.Drawing.Point(6, 48) + 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 @@ -3441,8 +3463,8 @@ Partial Class usrcntlKundeBearbeitenFull 'DataGridView1 ' Me.DataGridView1.AllowUserToResizeRows = False - DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 + 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 @@ -3474,6 +3496,7 @@ Partial Class usrcntlKundeBearbeitenFull ' '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) @@ -3499,6 +3522,18 @@ Partial Class usrcntlKundeBearbeitenFull 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 @@ -4746,4 +4781,7 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents Panel1 As Panel Friend WithEvents btnDatevExport As Button Friend WithEvents Label98 As Label + Friend WithEvents btnCreditsafe As Button + Friend WithEvents Label99 As Label + Friend WithEvents txtCreditsafe As TextBox End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index c9600634..0bfc8748 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -1,5 +1,8 @@ Imports System.ComponentModel +Imports com.sun.org.apache.bcel.internal.generic Imports GrapeCity.ActiveReports.ReportsCore.Tools +Imports java.rmi.server +Imports VERAG_PROG_ALLGEMEIN Public Class usrcntlKundeBearbeitenFull @@ -377,6 +380,8 @@ Public Class usrcntlKundeBearbeitenFull initKdKontakSpeziell() + btnCreditsafe.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("CREDITSAFE_Prüfung", "SDL") + Me.Cursor = Cursors.Default End Sub @@ -512,6 +517,7 @@ Public Class usrcntlKundeBearbeitenFull KUNDE.Sammelrechnung = cboAbf_Sammelrechnung._value KUNDE_ERW.kde_FakturierungSR_Details = cbxSammelrechnungBerichtLeistungsdetails.Checked + KUNDE_ERW.kde_CreditSaveId = KUNDE.EORITIN = isLeerNothing(txtEORI.Text) If IsNumeric(txtEORINL.Text) Then @@ -1456,4 +1462,43 @@ Public Class usrcntlKundeBearbeitenFull End If End Sub + + Private Sub btnCreditsafe_Click(sender As Object, e As EventArgs) Handles btnCreditsafe.Click + + Cursor = Cursors.WaitCursor + + + Using UserControl1 As usrcntlCreditsafe = New usrcntlCreditsafe() + Using tmpForm As Form = New Form() + tmpForm.Width = UserControl1.Width + tmpForm.Height = UserControl1.Height + 40 + tmpForm.Text = "Creditsafe-Prüfung" + tmpForm.StartPosition = tmpForm.StartPosition.CenterParent + tmpForm.Controls.Add(UserControl1) + If tmpForm.ShowDialog() = DialogResult.OK Then + txtKurzname.Text = UserControl1.comp.name & ";" & UserControl1.comp.city + txtFirmenname1.Text = UserControl1.comp.name + cboUSt_UstIdNrLand.changeItem(UserControl1.comp.country) + If UserControl1.comp.country IsNot Nothing Then + txtUSt_UstIdNr.Text = UserControl1.comp.vatNo.Replace(UserControl1.comp.country, "") + Else + txtUSt_UstIdNr.Text = UserControl1.comp.vatNo + End If + + + txtCreditsafe.Text = UserControl1.comp.credissafeId + txtStrasse.Text = UserControl1.comp.street + txtOrt.Text = UserControl1.comp.city + txtPlz.Text = UserControl1.comp.postCode + txtTel.Text = UserControl1.comp.phoneNo + + End If + + + End Using + End Using + + Cursor = Cursors.Default + + End Sub End Class diff --git a/SDL/packages.config b/SDL/packages.config index 3e5e7a0f..55b73867 100644 --- a/SDL/packages.config +++ b/SDL/packages.config @@ -8,7 +8,7 @@ - + diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb index 38a7389f..1352c220 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb @@ -12,6 +12,7 @@ Public Class cAvisoAnhaenge Property anh_Reihenfolge As Integer = 99 Property anh_LaufzettelDruck As Boolean = False Property anh_GestellungslisteAnfuegen As Boolean = False + Property anh_markiert As Boolean = False Public hasEntry As Boolean = False @@ -37,6 +38,12 @@ Public Class cAvisoAnhaenge Me.anh_Typ = anh_Typ Me.anh_Reihenfolge = anh_Reihenfolge + If anh_Art.ToString.Equals("Auftrag") Then + anh_markiert = True + End If + + + End Sub @@ -52,6 +59,7 @@ Public Class cAvisoAnhaenge list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Reihenfolge", anh_Reihenfolge)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_LaufzettelDruck", anh_LaufzettelDruck)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_GestellungslisteAnfuegen", anh_GestellungslisteAnfuegen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_markiert", anh_markiert)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index fdb4f190..4926a6a3 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -52,6 +52,8 @@ Public Class cKundenErweitert Property kde_CreditSaveBonitaetsklasse As Object = Nothing Property kde_CreditSaveBonitaetsIndex As Object = Nothing Property kde_CreditSaveBonitaetsScore As Object = Nothing + + Property kde_CreditSaveId As String = "" Property kde_Inkasso_Uebergeben As Boolean = False Property kde_Inkasso_UebergebenAm As Object = Nothing Property kde_Inkasso_GemeldeterBetrag As Object = Nothing @@ -140,6 +142,7 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsklasse", kde_CreditSaveBonitaetsklasse)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsIndex", kde_CreditSaveBonitaetsIndex)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsScore", kde_CreditSaveBonitaetsScore)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveId", kde_CreditSaveId)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb new file mode 100644 index 00000000..c065eb63 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb @@ -0,0 +1,271 @@ +Imports System.IO +Imports System.Net +Imports System.Text +Imports System.Web.UI.WebControls +Imports System.Windows.Forms +Imports Microsoft.Office.Interop.Outlook +Imports Newtonsoft.Json +Imports Spire.Pdf.Lists +Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat +Imports VERAG_PROG_ALLGEMEIN.TESTJSON + +Public Class cCreditSafeAPI + + 'Test + Shared API_STRING As String = "https://connect.sandbox.creditsafe.com" + + 'PROD + 'Shared API_STRING As String = "https://connect.creditsafe.com" + + Shared token As String = "" + Public dataTable As New DataTable() + + + + + Shared Function SendRequestAuthentificationToken(myuri As String, user As CreditSafeUser, contentType As String, method As String) As String + Try + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() + + Dim rest As New Chilkat.Rest + Dim success As Boolean + + + Dim bTls As Boolean = True + Dim port As Integer = 443 + Dim bAutoReconnect As Boolean = True + success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) + If (success <> True) Then + Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) + Debug.WriteLine(rest.LastErrorText) + Return rest.LastErrorText + + End If + + + Dim json As New Chilkat.JsonObject + json.UpdateString("username", user.username) + json.UpdateString("password", user.password) + + rest.AddHeader("Content-Type", contentType) + + Dim sbRequestBody As New Chilkat.StringBuilder + json.EmitSb(sbRequestBody) + + + Dim sbResponseBody As New Chilkat.StringBuilder + Dim ResponseStr = rest.FullRequestSb(method, myuri, sbRequestBody, sbResponseBody) + + + If (rest.ResponseStatusCode <> 200) Then + Return rest.ResponseStatusCode + End If + + Dim jsonResp = New Chilkat.JsonObject() + jsonResp.LoadSb(sbResponseBody) + + token = jsonResp.StringOf("token") + + Return rest.ResponseStatusCode + Catch ex As WebException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Function + + + + Shared Function SendGetRequestWithAuthHeader(url As String, company As Company, method As String, authenticationToken As String) As String + Try + + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() + + Dim rest As New Chilkat.Rest + Dim success As Boolean + + + Dim bTls As Boolean = True + Dim port As Integer = 443 + Dim bAutoReconnect As Boolean = True + success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) + If (success <> True) Then + Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) + Debug.WriteLine(rest.LastErrorText) + End If + + rest.ClearAllQueryParams() + + If company IsNot Nothing Then + + + If company.vatNo <> "" Then + rest.AddQueryParam("vatNo", company.vatNo) + Else + If company.name <> "" Then + rest.AddQueryParam("name", company.name) + End If + End If + + If company.country <> "" Then + rest.AddQueryParam("countries", company.country) + End If + End If + + rest.AddHeader("Content-Type", "application/json") + rest.AddHeader("Authorization", "Bearer " & authenticationToken) + If company IsNot Nothing Then + rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json") + Else + rest.AddHeader("Accept", "application/json+pdf") + End If + + + Dim responseJson As String = rest.FullRequestNoBody(method, url) + If (rest.LastMethodSuccess <> True) Then + Debug.WriteLine(rest.LastErrorText) + MsgBox(rest.LastErrorText) + + End If + + Return responseJson + + Catch ex As WebException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Function + + + Shared Function authenticate(username As String, passwort As String) As String + + Dim myUri As String = API_STRING & "/v1/authenticate" + Dim csUser = New CreditSafeUser(username, passwort) + Dim response = SendRequestAuthentificationToken(myUri, csUser, "application/json", "POST") + + Return response + + + End Function + + + + Shared Function searchCompanies(conpanyname As String, vatNo As String, country As String, ByRef dataTable As DataTable) As String + + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() + + Dim myUrl As String = API_STRING & "/v1/companies" + Dim company = New Company(conpanyname, vatNo, country) + Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "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 + Debug.WriteLine(json.LastErrorText) + Return "Verbindungsfehler" + End If + + Dim num As Integer = json.SizeOfArray("companies") + If num = 0 Then + Return json.StringOf("messages[0].text") + End If + + Dim companies As Chilkat.JsonArray = json.ArrayOf("companies") + If (json.LastMethodSuccess = False) Then + Return "companies member not found." + End If + + + Dim numCompanies As Integer = companies.Size + Dim j As Integer = 0 + While j < numCompanies + + Dim compObj As Chilkat.JsonObject = companies.ObjectAt(j) + + Dim index = companies.FindString("address", False) + Dim adressObj As Chilkat.JsonObject = compObj.ObjectOf("address") + + 'Debug.WriteLine(adressObj.StringOf("simpleValue")) + Debug.WriteLine(compObj.StringOf("id") & " " & compObj.StringOf("phoneNo") & " " & compObj.StringOf("phoneNumbers[0]")) + + Dim R As DataRow = dataTable.NewRow + R("id") = compObj.StringOf("id") + R("name") = compObj.StringOf("name") + R("country") = compObj.StringOf("country") + R("safeNo") = compObj.StringOf("safeNo") + R("vatNo") = compObj.StringOf("vatNo[0]") + R("regNo") = compObj.StringOf("regNo") + R("street") = adressObj.StringOf("street") + R("city") = adressObj.StringOf("city") + R("postCode") = adressObj.StringOf("postCode") + R("status") = compObj.StringOf("status") + R("dateOfLatestChange") = compObj.StringOf("dateOfLatestChange") + R("phoneNo") = compObj.StringOf("phoneNumbers[0]") + + dataTable.Rows.Add(R) + + j = j + 1 + End While + + Return "Anzahl gefundener Datensätze: " & numCompanies + + End Function + + Shared Function companyCreditreport(id As String) As String + Dim myUrl As String = API_STRING & "/v1/companies/" & id + Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, Nothing, "GET", token) + + Dim json As New Chilkat.JsonObject + Dim success As Boolean = json.Load(jsonRespString) + If (success <> True) Then + Debug.WriteLine(json.LastErrorText) + Return "Verbindungsfehler" + End If + + Dim num As Integer = json.SizeOfArray("companies") + If num = -1 Then + Return json.StringOf("details") + End If + + Return "test" + + End Function + + + Public Class CreditSafeUser + Public Property username As String + Public Property password As String + Public Property token As String + Public Sub New(_username As String, _password As String) + username = _username + password = _password + End Sub + + Public Sub New(_username As String, _password As String, _token As String) + username = _username + password = _password + End Sub + + + End Class + + Public Class Company + + Public Property name As String + Public Property vatNo As String + Public Property country As String + + + Public Sub New(_name As String, _vatNo As String, _country As String) + name = _name + vatNo = _vatNo + country = _country + End Sub + + + End Class + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 32466d26..50a244b2 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -572,6 +572,7 @@ + @@ -1199,7 +1200,7 @@ 3.8.0 - 13.0.2 + 13.0.3