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