Creditsafe_API

SDL/Creditsafe/usrcntlCreditsafe.Designer.vb

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

SDL/Creditsafe/usrcntlCreditsafe.resx

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

SDL/Creditsafe/usrcntlCreditsafe.vb

@@ -0,0 +1,208 @@
+
+Imports VERAG_PROG_ALLGEMEIN
+
+
+Public Class usrcntlCreditsafe
+    Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim user, pw As String
+    Dim land As String
+    Dim dataTable As New DataTable()
+    Public comp As Company
+    Sub New()
+
+        InitializeComponent()
+        init()
+
+    End Sub
+
+
+    Sub New(_UID As String, _name As String, _land As String)
+
+        InitializeComponent()
+        txtUID.Text = _UID
+        txtFirma.Text = _name
+        land = _land
+        init()
+
+
+    End Sub
+
+    Private Sub init()
+
+        user = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSuser
+        pw = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_CSpwd
+
+        cbxLand.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez  " &
+                                      " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " &
+                                      " WHERE ([Währungstabelle].[MitgliedslandEU] = 1) " &
+                                      " ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz ", , "FMZOLL", True)
+
+        cbxLand.changeItem(land)
+        initDataTable()
+        btnUebernehmen.Enabled = False
+        Cursor = Cursors.Default
+
+    End Sub
+
+    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
+        Try
+
+            If user = "" Or pw = "" Then
+                lblWarning.Text = "keine Zugangsdaten hinterlegt!"
+                Exit Sub
+            End If
+
+
+            If cbxLand._value = "" Then
+                lblWarning.Text = "kein Land hinterlegt!"
+                Exit Sub
+            End If
+
+            If txtFirma.Text = "" AndAlso txtUID.Text = "" Then
+                lblWarning.Text = "Firma und/oder UID-Nr hinterlegen!"
+                Exit Sub
+            End If
+
+            dataTable.Clear()
+
+            Dim cs = New cCreditSafeAPI()
+            Cursor = Cursors.WaitCursor
+
+            If cs.authenticate(user, pw) = "200" Then
+                If txtUID.Text <> "" Then
+                    lblWarning.Text = cs.searchCompanies("", txtUID.Text, cbxLand.SelectedItem.Value, dataTable).ToString
+                Else
+                    lblWarning.Text = cs.searchCompanies(txtFirma.Text, "", cbxLand.SelectedItem.Value, dataTable).ToString
+                End If
+                initDGV(dataTable)
+                Cursor = Cursors.Default
+
+            End If
+
+        Catch ex As Exception
+            Cursor = Cursors.Default
+            MsgBox(ex.Message)
+        End Try
+
+    End Sub
+
+
+
+    Sub initDataTable()
+
+        dataTable.Columns.Add("id", GetType(String))
+        dataTable.Columns.Add("name", GetType(String))
+        dataTable.Columns.Add("country", GetType(String))
+        dataTable.Columns.Add("safeNo", GetType(String))
+        dataTable.Columns.Add("vatNo", GetType(String))
+        dataTable.Columns.Add("regNo", GetType(String))
+        dataTable.Columns.Add("street", GetType(String))
+        dataTable.Columns.Add("city", GetType(String))
+        dataTable.Columns.Add("postCode", GetType(String))
+        dataTable.Columns.Add("status", GetType(String))
+        dataTable.Columns.Add("phoneNo", GetType(String))
+        dataTable.Columns.Add("dateOfLatestChange", GetType(String))
+
+    End Sub
+
+    Sub initDGV(dt As DataTable)
+
+        dgvCreditsafe.DataSource = dt
+
+
+        If dgvCreditsafe.Columns.Count > 0 Then
+            With dgvCreditsafe
+                .RowHeadersWidth = 10
+                .Columns("id").Visible = False
+                .Columns("country").Visible = True
+                .Columns("name").HeaderText = "Name"
+                .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .Columns("safeNo").Width = 100
+                .Columns("safeNo").HeaderText = "Nr"
+                .Columns("vatNo").Width = 100
+                .Columns("vatNo").HeaderText = "UID"
+                .Columns("regNo").Width = 100
+                .Columns("regNo").HeaderText = "FN-Nr."
+                .Columns("street").Width = 100
+                .Columns("street").HeaderText = "Strasse"
+                .Columns("city").Width = 100
+                .Columns("city").HeaderText = "Ort"
+                .Columns("postCode").Width = 100
+                .Columns("postCode").HeaderText = "PLZ"
+                .Columns("phoneNo").Width = 100
+                .Columns("phoneNo").HeaderText = "Tel-Nr"
+                .Columns("status").Width = 100
+                .Columns("status").HeaderText = "Status"
+                .Columns("dateOfLatestChange").Width = 50
+                .Columns("dateOfLatestChange").HeaderText = "letzte Änderung"
+            End With
+
+        End If
+
+
+    End Sub
+
+    Private Sub btnUebernehmen_Click(sender As Object, e As EventArgs) Handles btnUebernehmen.Click
+        If dgvCreditsafe.SelectedRows.Count <> 1 Then
+            btnUebernehmen.DialogResult = DialogResult.None
+            Exit Sub
+        Else
+            For Each row As DataGridViewRow In dgvCreditsafe.SelectedRows
+                comp = New Company(IIf(IsDBNull(row.Cells("name").Value), "", row.Cells("name").Value),
+                                   IIf(IsDBNull(row.Cells("vatNo").Value), "", row.Cells("vatNo").Value),
+                                   IIf(IsDBNull(row.Cells("country").Value), "", row.Cells("country").Value),
+                                   IIf(IsDBNull(row.Cells("safeNo").Value), "", row.Cells("safeNo").Value),
+                                   IIf(IsDBNull(row.Cells("regNo").Value), "", row.Cells("regNo").Value),
+                                   IIf(IsDBNull(row.Cells("street").Value), "", row.Cells("street").Value),
+                                   IIf(IsDBNull(row.Cells("city").Value), "", row.Cells("city").Value),
+                                   IIf(IsDBNull(row.Cells("postCode").Value), "", row.Cells("postCode").Value),
+                                   IIf(IsDBNull(row.Cells("id").Value), "", row.Cells("id").Value),
+                                   IIf(IsDBNull(row.Cells("phoneNo").Value), "", row.Cells("phoneNo").Value))
+
+            Next
+            btnUebernehmen.DialogResult = DialogResult.OK
+        End If
+
+    End Sub
+
+
+
+    Public Class Company
+
+        Public Property credissafeId As String
+        Public Property name As String
+        Public Property vatNo As String
+        Public Property country As String
+        Public Property safeNo As String
+        Public Property regNo As String
+        Public Property street As String
+        Public Property city As String
+        Public Property postCode As String
+        Public Property phoneNo As String
+
+
+        Public Sub New(_name As String, _vatNo As String, _country As String, _safeNo As String, _regNo As String, _street As String, _city As String, _postCode As String, _credissafeId As String, _phoneNo As String)
+            name = _name
+            vatNo = _vatNo
+            country = _country
+            safeNo = _safeNo
+            street = _street
+            regNo = _regNo
+            city = _city
+            postCode = _postCode
+            credissafeId = _credissafeId
+            phoneNo = _phoneNo
+        End Sub
+
+
+    End Class
+
+    Private Sub dgvCreditsafe_SelectionChanged(sender As Object, e As EventArgs) Handles dgvCreditsafe.SelectionChanged
+        If dgvCreditsafe.SelectedRows.Count <> 1 Then
+            btnUebernehmen.Enabled = False
+        Else
+            btnUebernehmen.Enabled = True
+        End If
+
+    End Sub
+End Class