edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Creditsafe_API

Browse Source
This commit is contained in:
d.breimaier
2023-03-28 16:48:20 +02:00
parent 5d088a3d87
commit ad459e0765
22 changed files with 1479 additions and 494 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/App.config
View File

@@ -33,7 +33,7 @@
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-12.0.0.0" newVersion="12.0.0.0" />
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="8fb06cb64d019a17" culture="neutral" />

169
SDL/Creditsafe/usrcntlCreditsafe.Designer.vb generated Normal file
View File

@@ -0,0 +1,169 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrcntlCreditsafe
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
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.
<System.Diagnostics.DebuggerStepThrough()> _
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

120
SDL/Creditsafe/usrcntlCreditsafe.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

208
SDL/Creditsafe/usrcntlCreditsafe.vb Normal file
View File

@@ -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

71
SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb generated
View File

@@ -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

124
SDL/Formulare/CARNET-TIR/frmTIR.vb
View File

@@ -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

83
SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb generated
View File

@@ -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

330
SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb generated
View File

@@ -23,19 +23,10 @@ Partial Class usrcntlTIR
<System.Diagnostics.DebuggerStepThrough()>
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

5
SDL/Formulare/CARNET-TIR/usrcntlTIR.resx
View File

@@ -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==
</value>
</data>
<metadata name="Zollamt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="DataGridViewTextBoxColumn1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>

2
SDL/Formulare/CARNET-TIR/usrcntlTIR.vb
View File

@@ -8,7 +8,7 @@
dgvGegenstände.Rows.Add("", "", "", "")
Next
txtAbgangszollstelle1.Text = "SUBEN"
cbxAbgangszollstelle1._value = "SUBEN"
End Sub

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.4.5")>
<Assembly: AssemblyFileVersion("1.2.4.5")>
<Assembly: AssemblyVersion("1.2.4.7")>
<Assembly: AssemblyFileVersion("1.2.4.7")>

12
SDL/SDL.vbproj
View File

@@ -279,9 +279,6 @@
<Reference Include="Microsoft.ReportViewer.WinForms, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91">
<Private>True</Private>
</Reference>
<Reference Include="Newtonsoft.Json, Version=12.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\..\..\AVISO\Aviso\packages\Newtonsoft.Json.12.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="NumericBox">
<HintPath>..\..\..\dll\NumericBox.dll</HintPath>
</Reference>
@@ -525,6 +522,12 @@
<Compile Include="Classes\cKassenbuch.vb" />
<Compile Include="Classes\cVERAG_Card.vb" />
<Compile Include="cProgramFunctions.vb" />
<Compile Include="Creditsafe\usrcntlCreditsafe.Designer.vb">
<DependentUpon>usrcntlCreditsafe.vb</DependentUpon>
</Compile>
<Compile Include="Creditsafe\usrcntlCreditsafe.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="cServerClient.vb" />
<Compile Include="cSourceListWrapper.vb" />
<Compile Include="cSplitButton.vb">
@@ -2875,6 +2878,9 @@
<EmbeddedResource Include="Checkliste\subRptVM.resx">
<DependentUpon>subRptVM.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Creditsafe\usrcntlCreditsafe.resx">
<DependentUpon>usrcntlCreditsafe.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.resx">
<DependentUpon>rptSammelRechnungAnlagenDruck_Leistungen.vb</DependentUpon>
</EmbeddedResource>

136
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -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!)

141
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

@@ -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

64
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -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

170
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -22,16 +22,16 @@ Partial Class usrcntlKundeBearbeitenFull
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
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

45
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -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

2
SDL/packages.config
View File

@@ -8,7 +8,7 @@
<package id="IKVM" version="8.0.5449.1" targetFramework="net47" />
<package id="LiveCharts" version="0.6.7.0" targetFramework="net40-Client" requireReinstallation="True" />
<package id="Microsoft.CSharp" version="4.7.0" targetFramework="net47" />
<package id="Newtonsoft.Json" version="12.0.3" targetFramework="net47" />
<package id="Newtonsoft.Json" version="13.0.3" targetFramework="net47" />
<package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net47" />
<package id="System.IO.Packaging" version="4.0.0" targetFramework="net47" />
<package id="TAlex.WPF.Controls" version="2.0.1.0" targetFramework="net40-Client" />