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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-05-24 22:22:39 +02:00
parent 9b8570b8f7 a508c89c3a
commit fcf17016c6
30 changed files with 4779 additions and 238 deletions
Download Patch File Download Diff File Expand all files Collapse all files

158
SDL/Classes/cEORIPruefung.vb Normal file
View File

@@ -0,0 +1,158 @@
Imports System.Data.SqlClient
Imports System.Reflection
Imports VERAG_PROG_ALLGEMEIN
Public Class cEORIPruefung
Property eori_id As Integer
Property eori_KdNr As Object = Nothing
Property eori_valid As Object = Nothing
Property eori_datum As Object = Nothing
Property eori_maid As Object = Nothing
Property eori_sendungsid As Object = Nothing
Property eori_firma As Object = Nothing
Property eori_sachbearbeiter As Object = Nothing
Public hasEntry = False
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New(eori_id)
Me.eori_id = eori_id
LOAD()
End Sub
Sub New()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_id", eori_id,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_KdNr", eori_KdNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_valid", eori_valid))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_datum", eori_datum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_maid", eori_maid))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_sendungsid", eori_sendungsid))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_firma", eori_firma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_sachbearbeiter", eori_sachbearbeiter))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblEORIPruefung WHERE eori_id=@eori_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblEORIPruefung WHERE eori_id=@eori_id ", conn)
cmd.Parameters.AddWithValue("@eori_id", eori_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Shared Function LOADByKdNrDate(eori_KdNr As Integer) As cEORIPruefung
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Dim EORI As New cEORIPruefung
Using cmd As New SqlCommand("SELECT Top 1 * FROM tblEORIPruefung WHERE [eori_KdNr]=@eori_KdNr AND eori_valid = 1 ORDER BY [eori_datum] DESC", conn)
cmd.Parameters.AddWithValue("@eori_KdNr", eori_KdNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In EORI.getParameterList()
Dim propInfo As PropertyInfo = EORI.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(EORI, Nothing)
Else
propInfo.SetValue(EORI, dr.Item(li.Text))
End If
Next
dr.Close()
Return EORI
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return Nothing
End Function
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblEORIPruefung] SET " & str & " WHERE eori_id=@eori_id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblEORIPruefung (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class

35
SDL/Classes/cEORIWebService.vb
View File

@@ -9,6 +9,7 @@ Imports System.Net
Imports System.Text
Imports System.Xml
Imports System.Xml.Serialization
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class cEORIWebService
@@ -115,13 +116,14 @@ Public Class cEORIWebService
Shared Function genEORI_Formular(ByVal txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef EORI_ERGInt As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
Shared Function genEORI_Formular(ByVal KdNr As Integer, ByVal txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef EORI_ERGInt As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
Try
Dim msgErgebnis = ""
Dim tmp_SESSION_ID = ""
Dim Firma = ""
Dim EORI_ERG = ValidateEoriNumber(txtEORI)
@@ -140,6 +142,9 @@ Public Class cEORIWebService
Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
End Select
setEORIEntry(KdNr, SendungsId, EORI_ERG)
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId)
If PdfTmp <> "" Then
@@ -176,7 +181,7 @@ Public Class cEORIWebService
End Function
Shared Function genEORI_FormularWithoutSaving(ByVal txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef EORI_ERGInt As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
Shared Function genEORI_FormularWithoutSaving(ByVal kdnr As Integer, ByVal txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef EORI_ERGInt As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
Try
Dim msgErgebnis = ""
@@ -201,6 +206,9 @@ Public Class cEORIWebService
Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
End Select
setEORIEntry(kdnr, SendungsId, EORI_ERG)
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId)
Return PdfTmp
@@ -219,6 +227,29 @@ Public Class cEORIWebService
End Function
Shared Sub setEORIEntry(kdnr As Integer, SendungsID As Integer, EORI_ERG As EoriResponseModel)
Dim EORIPruefung = New cEORIPruefung()
Dim kdErw = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
Select Case EORI_ERG.Result(0).Status
Case 0 : EORIPruefung.eori_valid = 1
Case 1 : EORIPruefung.eori_valid = 0
End Select
kdErw.kde_EORIgeprueftAm = Now()
kdErw.SAVE()
EORIPruefung.eori_datum = Now()
EORIPruefung.eori_KdNr = kdnr
EORIPruefung.eori_maid = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
EORIPruefung.eori_sendungsid = SendungsID
EORIPruefung.eori_firma = (EORI_ERG.Result(0).Name & EORI_ERG.Result(0).Street & EORI_ERG.Result(0).Country & EORI_ERG.Result(0).PostalCode & EORI_ERG.Result(0).City).Trim
EORIPruefung.eori_sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
EORIPruefung.SAVE()
End Sub

87
SDL/Creditsafe/usrcntlCreditsafe.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<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()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class usrcntlCreditsafe
'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()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.btnSearch = New System.Windows.Forms.Button()
@@ -33,7 +33,12 @@ Partial Class usrcntlCreditsafe
Me.dgvCreditsafe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cboLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnUebernehmen = New System.Windows.Forms.Button()
Me.txtStrasse = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtPLZ = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
CType(Me.dgvCreditsafe, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -57,7 +62,7 @@ Partial Class usrcntlCreditsafe
Me.lblUID.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblUID.AutoSize = True
Me.lblUID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.lblUID.Location = New System.Drawing.Point(550, 16)
Me.lblUID.Location = New System.Drawing.Point(671, 16)
Me.lblUID.Name = "lblUID"
Me.lblUID.Size = New System.Drawing.Size(40, 13)
Me.lblUID.TabIndex = 1
@@ -67,9 +72,9 @@ Partial Class usrcntlCreditsafe
'
Me.txtUID.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtUID.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtUID.Location = New System.Drawing.Point(553, 32)
Me.txtUID.Location = New System.Drawing.Point(674, 32)
Me.txtUID.Name = "txtUID"
Me.txtUID.Size = New System.Drawing.Size(271, 23)
Me.txtUID.Size = New System.Drawing.Size(134, 23)
Me.txtUID.TabIndex = 3
'
'txtFirma
@@ -79,7 +84,7 @@ Partial Class usrcntlCreditsafe
Me.txtFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtFirma.Location = New System.Drawing.Point(75, 33)
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Size = New System.Drawing.Size(431, 23)
Me.txtFirma.Size = New System.Drawing.Size(173, 23)
Me.txtFirma.TabIndex = 1
'
'lblFirma
@@ -136,6 +141,7 @@ Partial Class usrcntlCreditsafe
Me.cboLand._allowedValuesFreiText = Nothing
Me.cboLand._allowFreiText = False
Me.cboLand._value = ""
Me.cboLand.DropDownWidth = 300
Me.cboLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cboLand.FormattingEnabled = True
Me.cboLand.Location = New System.Drawing.Point(14, 32)
@@ -155,16 +161,65 @@ Partial Class usrcntlCreditsafe
Me.btnUebernehmen.Text = "Übernehmen"
Me.btnUebernehmen.UseVisualStyleBackColor = True
'
'txtStrasse
'
Me.txtStrasse.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtStrasse.Location = New System.Drawing.Point(254, 33)
Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(163, 23)
Me.txtStrasse.TabIndex = 101
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Label1.Location = New System.Drawing.Point(516, 37)
Me.Label1.Location = New System.Drawing.Point(251, 17)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(28, 13)
Me.Label1.TabIndex = 10
Me.Label1.Text = "oder"
Me.Label1.Size = New System.Drawing.Size(42, 13)
Me.Label1.TabIndex = 100
Me.Label1.Text = "Strasse"
'
'txtPLZ
'
Me.txtPLZ.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtPLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtPLZ.Location = New System.Drawing.Point(584, 32)
Me.txtPLZ.Name = "txtPLZ"
Me.txtPLZ.Size = New System.Drawing.Size(84, 23)
Me.txtPLZ.TabIndex = 103
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Label2.Location = New System.Drawing.Point(581, 16)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(27, 13)
Me.Label2.TabIndex = 102
Me.Label2.Text = "PLZ"
'
'txtOrt
'
Me.txtOrt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtOrt.Location = New System.Drawing.Point(423, 32)
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(155, 23)
Me.txtOrt.TabIndex = 105
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Label3.Location = New System.Drawing.Point(420, 16)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(21, 13)
Me.Label3.TabIndex = 104
Me.Label3.Text = "Ort"
'
'usrcntlCreditsafe
'
@@ -172,6 +227,11 @@ Partial Class usrcntlCreditsafe
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.txtOrt)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtPLZ)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtStrasse)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnUebernehmen)
Me.Controls.Add(Me.lblWarning)
@@ -201,5 +261,10 @@ Partial Class usrcntlCreditsafe
Friend WithEvents dgvCreditsafe As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents lblWarning As Label
Friend WithEvents btnUebernehmen As Button
Friend WithEvents txtStrasse As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents txtPLZ As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents txtOrt As TextBox
Friend WithEvents Label3 As Label
End Class

32
SDL/Creditsafe/usrcntlCreditsafe.vb
View File

@@ -16,21 +16,21 @@ Public Class usrcntlCreditsafe
InitializeComponent()
createCostumer = True
'init()
End Sub
Sub New(_UID As String, _name As String, _land As String)
Sub New(_UID As String, _name As String, _land As String, _PLZ As String, _Strasse As String, _Ort As String)
InitializeComponent()
uidDefault = _UID
_name = _name.Replace(Chr(34), "") 'Anführungszeichen entfernen
_name = _name.Replace(Chr(176), "") '° entfernen
txtFirma.Text = _name
txtPLZ.Text = _PLZ
txtOrt.Text = _Ort
txtStrasse.Text = _Strasse
land = _land
' init()
End Sub
@@ -47,7 +47,7 @@ Public Class usrcntlCreditsafe
" WHERE ([Währungstabelle].[MitgliedslandEU] = 1 Or [Länderverzeichnis für die Außenhandelsstatistik].LandKz = 'TR' Or [Länderverzeichnis für die Außenhandelsstatistik].LandKz = 'GB' Or [Länderverzeichnis für die Außenhandelsstatistik].LandKz = 'RS') " &
" ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz ", , "FMZOLL", True)
If land = "" Then land = "DE"
If land = "" Then land = "AT"
cboLand.changeItem(land)
initDataTable()
@@ -98,7 +98,7 @@ Public Class usrcntlCreditsafe
If cs.authenticate(user, pw) = "200" Then
Dim company = New cCreditSafeAPI.Company(txtFirma.Text, txtUID.Text, cboLand.SelectedItem.Value, "", "", Nothing)
Dim company = New cCreditSafeAPI.Company(txtFirma.Text, txtUID.Text, cboLand.SelectedItem.Value, "", "", Nothing, txtStrasse.Text, txtPLZ.Text, txtOrt.Text, "", "", "", "", "")
lblWarning.Text = cs.searchCompanies(company, dataTable).ToString
initDGV(dataTable)
Cursor = Cursors.Default
@@ -287,7 +287,6 @@ Public Class usrcntlCreditsafe
End Sub
Private Sub usrcntlCreditsafe_Load(sender As Object, e As EventArgs) Handles Me.Load
init()
End Sub
@@ -298,6 +297,25 @@ Public Class usrcntlCreditsafe
End If
End Sub
Private Sub txtUID_TextChanged(sender As Object, e As EventArgs) Handles txtUID.TextChanged
If txtUID.Text <> "" Then
txtFirma.Enabled = False
txtOrt.Enabled = False
txtPLZ.Enabled = False
txtStrasse.Enabled = False
Else
txtFirma.Enabled = True
txtOrt.Enabled = True
txtPLZ.Enabled = True
txtStrasse.Enabled = True
End If
End Sub
Private Sub dgvCreditsafe_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvCreditsafe.CellDoubleClick
If dgvCreditsafe.SelectedRows.Count = 1 Then
btnUebernehmen.PerformClick()

4
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.Designer.vb generated
View File

@@ -145,6 +145,7 @@ Partial Class usrcntlVollmacht_GB_IE
Me.Label7.Size = New System.Drawing.Size(239, 13)
Me.Label7.TabIndex = 26
Me.Label7.Text = "aufgeschobene VAT Meldung und Zahlung (UK):"
Me.Label7.Visible = False
'
'btn
'
@@ -467,13 +468,14 @@ Partial Class usrcntlVollmacht_GB_IE
'cbxPostponed
'
Me.cbxPostponed._allowedValuesFreiText = Nothing
Me.cbxPostponed._allowFreiText = False
Me.cbxPostponed._allowFreiText = True
Me.cbxPostponed._value = ""
Me.cbxPostponed.FormattingEnabled = True
Me.cbxPostponed.Location = New System.Drawing.Point(915, 160)
Me.cbxPostponed.Name = "cbxPostponed"
Me.cbxPostponed.Size = New System.Drawing.Size(48, 21)
Me.cbxPostponed.TabIndex = 31
Me.cbxPostponed.Visible = False
'
'usrcntlVollmacht_GB_IE
'

3
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_IE.vb
View File

@@ -90,6 +90,9 @@
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "JA"))
cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "NEIN"))
cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxPostponed.changeItem("")
If KdNR > 0 Then initKdNR(KdNR)
End Sub

4
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.Designer.vb generated
View File

@@ -415,13 +415,14 @@ Partial Class usrcntlVollmacht_GB_indirekt
'cbxPostponed
'
Me.cbxPostponed._allowedValuesFreiText = Nothing
Me.cbxPostponed._allowFreiText = False
Me.cbxPostponed._allowFreiText = True
Me.cbxPostponed._value = ""
Me.cbxPostponed.FormattingEnabled = True
Me.cbxPostponed.Location = New System.Drawing.Point(915, 158)
Me.cbxPostponed.Name = "cbxPostponed"
Me.cbxPostponed.Size = New System.Drawing.Size(48, 21)
Me.cbxPostponed.TabIndex = 36
Me.cbxPostponed.Visible = False
'
'Label7
'
@@ -431,6 +432,7 @@ Partial Class usrcntlVollmacht_GB_indirekt
Me.Label7.Size = New System.Drawing.Size(239, 13)
Me.Label7.TabIndex = 35
Me.Label7.Text = "aufgeschobene VAT Meldung und Zahlung (UK):"
Me.Label7.Visible = False
'
'txtZahlungsaufschung
'

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_GB_indirekt.vb
View File

@@ -90,6 +90,8 @@
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "JA"))
cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "NEIN"))
cbxPostponed.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxPostponed.changeItem("")
If KdNR > 0 Then initKdNR(KdNR)
End Sub

4
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -3412,7 +3412,7 @@ Public Class FormularManagerNEU
If usrCntl.cbxPostponed._value = "JA" Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Else
ElseIf usrCntl.cbxPostponed._value = "NEIN" Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End If
@@ -3467,7 +3467,7 @@ Public Class FormularManagerNEU
If usrCntl.cbxPostponed._value = "JA" Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 70, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Else
ElseIf usrCntl.cbxPostponed._value = "NEIN" Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 86, 118.5 + add, 3, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End If

10
SDL/My Project/Resources.Designer.vb generated
View File

@@ -1084,6 +1084,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property locked() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("locked", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

191
SDL/My Project/Resources.resx
View File

@@ -148,6 +148,9 @@
<data name="person1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="verag_Card1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\verag_Card1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -157,8 +160,8 @@
<data name="reloadFinance" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\reloadFinance.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="plose_it" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_it.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -169,14 +172,11 @@
<data name="positionen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\liste-logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fax" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="dakosy1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dakosy1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -232,6 +232,9 @@
<data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_exit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\exit.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -253,6 +256,9 @@
<data name="rechnung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\rechnung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asfinag" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -265,9 +271,6 @@
<data name="pfeil_oben" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="warenkorb1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warenkorb1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -283,9 +286,6 @@
<data name="person_default" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="entwurf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -295,15 +295,18 @@
<data name="email11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abc_obu" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0735_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flagge_tr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="creditsafe" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\creditsafe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="telefon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\telefon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -331,17 +334,17 @@
<data name="Atilla_big_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="list_new_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0777_kurz" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0777_kurz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lorry_motion" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxRotateLeft_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uhr_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -349,9 +352,6 @@
<data name="statistik" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pfeil_rechts" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aeo_CS" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>F:\Grafik\VERAG\AEO\aeo_CS.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -367,9 +367,6 @@
<data name="sgs" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sgs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="passpic" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passpic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -385,6 +382,9 @@
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sicherheit11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spedbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -427,15 +427,15 @@
<data name="Excel_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxNext_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -445,18 +445,18 @@
<data name="cards1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cards1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxRotateRight_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flagge_D" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route4_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route4_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="VERAG_AEO_MailSig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\VERAG_AEO_MailSig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -472,14 +472,11 @@
<data name="data" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0735_bottom" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="unisped_aeo_ZS_AT" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="house1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="pay_card" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pay_card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ok_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -508,6 +505,9 @@
<data name="belegEUR1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\belegEUR1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="awor" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -529,15 +529,15 @@
<data name="arrow_right" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="del_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_Customs_Service_AEO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pay_card_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pay_card_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -547,9 +547,6 @@
<data name="list1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-note11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="axxes" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -559,15 +556,12 @@
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aktiveVeredelung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_print1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_print1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cards" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cards.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -607,8 +601,8 @@
<data name="transp" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\transp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LKW" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LKW1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -616,6 +610,9 @@
<data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_DE_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="checklist1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="list_new_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\list_new_small1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -625,8 +622,8 @@
<data name="plose_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pay_card" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pay_card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Route4_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route4_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statistik_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statistik1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -658,8 +655,8 @@
<data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_big_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -688,14 +685,17 @@
<data name="passpic_sw" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passpic_sw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_Customs_Service_GMBH_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="awor" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="transfer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -706,8 +706,8 @@
<data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="FA_Graz_EV_Veranlagung_Muster" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
@@ -715,8 +715,8 @@
<data name="seal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abc_obu" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="picboxRotateLeft_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -727,8 +727,8 @@
<data name="LKW_klein1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Aviso1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxRotateRight_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="fax" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -736,17 +736,20 @@
<data name="SR_EVOLOG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="SR_TransFerry360" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="aeo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aeo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="SR_TransFerry360" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="Einheitspapier_0735_bottom" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Einheitspapier_0735_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="android-note12" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-note12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -754,8 +757,8 @@
<data name="print_rg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\print_rg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plose_it" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_it.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="axxes" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="road" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\road.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -763,17 +766,17 @@
<data name="Unisped_ZS_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="list_new_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asfinag" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="pfeil_rechts" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -781,8 +784,8 @@
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Verag_Customs_Service_AEO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_print" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -823,8 +826,8 @@
<data name="report" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="moneybag1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\moneybag1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -835,8 +838,8 @@
<data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sicherheit11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_print1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_print1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="VERAG_UNISPED_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\VERAG-UNISPED-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -853,8 +856,8 @@
<data name="scanner1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="house1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="rechnung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\rechnung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -862,8 +865,8 @@
<data name="Einheitspapier_0777_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0777_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="checklist1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -877,7 +880,7 @@
<data name="flagge_A" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="creditsafe" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\creditsafe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="locked" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\locked.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
SDL/Resources/locked.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.1 KiB

26
SDL/SDL.vbproj
View File

@@ -90,7 +90,7 @@
<SignAssembly>false</SignAssembly>
</PropertyGroup>
<PropertyGroup>
<AssemblyOriginatorKeyFile>SDL_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
<AssemblyOriginatorKeyFile>Test.pfx</AssemblyOriginatorKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
@@ -298,6 +298,10 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\RKAesIcm.dll</HintPath>
</Reference>
<Reference Include="Spire.Pdf, Version=8.1.4.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\Spire.PDF\2022\Spire.Pdf.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.Composition" />
<Reference Include="System.ComponentModel.Composition.Registration" />
@@ -506,6 +510,7 @@
<Compile Include="Classes\ATLAS_Zabis\cATLAS_zbPos.vb" />
<Compile Include="Classes\cCMR.vb" />
<Compile Include="Classes\cEABeleg.vb" />
<Compile Include="Classes\cEORIPruefung.vb" />
<Compile Include="Classes\cEORIWebService.vb" />
<Compile Include="Classes\cEP0735_Versand.vb" />
<Compile Include="Classes\cEPBes.vb" />
@@ -636,6 +641,12 @@
<Compile Include="kassenbuch\frmPOSTerminal.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\Berichte\rptFiskalkunde.Designer.vb">
<DependentUpon>rptFiskalkunde.vb</DependentUpon>
</Compile>
<Compile Include="kunden\Berichte\rptFiskalkunde.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="kunden\frmKundenBesonderheiten_Add.Designer.vb">
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
</Compile>
@@ -672,6 +683,12 @@
<Compile Include="kunden\Teams\frmKundeAnsprechpartnerTeams.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\usrcntlFiskaluebersicht.Designer.vb">
<DependentUpon>usrcntlFiskaluebersicht.vb</DependentUpon>
</Compile>
<Compile Include="kunden\usrcntlFiskaluebersicht.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="kunden\usrCntlKundenBesonderheiten.Designer.vb">
<DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
</Compile>
@@ -2950,6 +2967,9 @@
<EmbeddedResource Include="kassenbuch\frmPOSTerminal.resx">
<DependentUpon>frmPOSTerminal.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\Berichte\rptFiskalkunde.resx">
<DependentUpon>rptFiskalkunde.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenBesonderheiten_Add.resx">
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
</EmbeddedResource>
@@ -2968,6 +2988,9 @@
<EmbeddedResource Include="kunden\Teams\frmKundeAnsprechpartnerTeams.resx">
<DependentUpon>frmKundeAnsprechpartnerTeams.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usrcntlFiskaluebersicht.resx">
<DependentUpon>usrcntlFiskaluebersicht.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
<DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
</EmbeddedResource>
@@ -4453,6 +4476,7 @@
<None Include="Resources\pay_card_s.png" />
<None Include="Resources\pay_card_s1.png" />
<None Include="Resources\pay_cash_s.png" />
<None Include="Resources\locked.jpg" />
<Content Include="Resources\Verag_Customs_Service_AEO.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

1425
SDL/kunden/Berichte/rptFiskalkunde.Designer.vb generated Normal file
View File

File diff suppressed because one or more lines are too long

126
SDL/kunden/Berichte/rptFiskalkunde.resx Normal file
View File

@@ -0,0 +1,126 @@
<?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>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

75
SDL/kunden/Berichte/rptFiskalkunde.vb Normal file
View File

@@ -0,0 +1,75 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptFiskalkunde
Dim FiskalId As Integer
Dim Firma = "1"
Dim KdNr As Integer
Sub New(KdNr, FiskalId, Optional Firma = "VERAG")
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.KdNr = KdNr
Me.FiskalId = FiskalId
Me.Firma = Firma
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptKundeUebersicht_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KdNr)
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
Dim KD_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KdNr)
Dim FK As New VERAG_PROG_ALLGEMEIN.cFiskalkunden(FiskalId)
lblUeberschrift.Text = "Checkliste f<>r " & FK.FK_Art & "-Fiskal Kunden"
txtKdNr.Text = AD.AdressenNr
txtKunde.Text = AD.Name_1 & " " & AD.Name_2
If IsDate(FK.FK_Vollmacht) Then txtVM.Text = CDate(FK.FK_Vollmacht).ToShortDateString
txtUmsatz.Text = ""
If AD.LandKz = "AT" Or AD.LandKz = "A" Then
txtBon.Text = If(KD_ERW.kde_CreditSaveBonitaetsScore, "")
Else
txtBon.Text = If(KD_ERW.kde_CreditSaveBonitaetsIndex, "")
End If
If IsDate(FK.FK_Bonitaet) Then txtBon.Text &= " vom " & CDate(FK.FK_Bonitaet).ToShortDateString
If IsNumeric(FK.FK_KreditMax) Then txtKredit.Text = CDbl(FK.FK_KreditMax)
If IsNumeric(FK.FK_AnzahlMitarbeiter) Then txtAnzMA.Text = CDbl(FK.FK_AnzahlMitarbeiter)
If IsDate(FK.FK_Gruendungsdatum) Then txtGJ.Text = CDate(FK.FK_Gruendungsdatum).ToShortDateString
txtImport.Text = IIf(FK.FK_Waren <> "", FK.FK_Waren, "")
txtGesellschafter.Text = IIf(FK.FK_Gesellschafter <> "", FK.FK_Gesellschafter, "")
txtWebsite.Text = IIf(FK.FK_Homepage_URL <> "", FK.FK_Homepage_URL, "")
txtGZ.Text = IIf(FK.FK_Geschaeftszweck <> "", FK.FK_Geschaeftszweck, "")
If IsDate(KD.Eingegeben_am) Then txtKundeSeit.Text = CDate(KD.Eingegeben_am).ToShortDateString
If FK.FK_locked Then
Dim mit = New VERAG_PROG_ALLGEMEIN.cMitarbeiter(FK.FK_MaId)
lblKontrolle.Text = "kontrolliert: " & mit.Fullname & ", " & FK.FK_Abschlussdatum
End If
lblDat.Text = Now.ToString("dddd, dd.MM.yyyy")
Select Case Firma
Case "IMEX" : Me.picVERAG.Image = My.Resources.IMEX_LOGO_simple : Me.Label28.Text = "IMEX Customs Service GmbH"
Case "ATILLA" : Me.picVERAG.Image = My.Resources.Atilla : Me.Label28.Text = "ATILLA Spedition"
Case "UNISPED" : Me.picVERAG.Image = My.Resources.Unisped_logo : Me.Label28.Text = "UNISPED Speditions GmbH"
Case Else
End Select
txtAnsprechpartner.Text = AD.Ansprechpartner
End Sub
End Class

190
SDL/kunden/frmKundenUebersichtZOLL.Designer.vb generated
View File

@@ -35,10 +35,12 @@ Partial Class frmKundenUebersichtZOLL
Me.tabZolltarife = New System.Windows.Forms.TabPage()
Me.pnlZollTarife = New System.Windows.Forms.Panel()
Me.tabKundendaten = New System.Windows.Forms.TabPage()
Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.tbStatistik = New System.Windows.Forms.TabPage()
Me.cboKundenblattFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button1 = New System.Windows.Forms.Button()
@@ -84,11 +86,16 @@ Partial Class frmKundenUebersichtZOLL
Me.tbRechnungen = New System.Windows.Forms.TabPage()
Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.btnRgPdf = New System.Windows.Forms.Button()
Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnMonat = New System.Windows.Forms.Button()
Me.Button10 = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button()
Me.Label40 = New System.Windows.Forms.Label()
Me.tbSpeditionsbuch = New System.Windows.Forms.TabPage()
Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage()
Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
@@ -115,14 +122,15 @@ Partial Class frmKundenUebersichtZOLL
Me.VUBVERAGSpeditionAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VeragCustomsServiceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueFiskaluebersicht = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueFiskal = New System.Windows.Forms.ToolStripMenuItem()
Me.toolNeuerKunde = New System.Windows.Forms.ToolStripMenuItem()
Me.mneBearbeiten = New System.Windows.Forms.ToolStripMenuItem()
Me.toolOptionen = New System.Windows.Forms.ToolStripMenuItem()
Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnDakosyÜbertragenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AufschubEORIBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SYSKAÜbertragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.mneBearbeiten = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem11 = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlTop = New System.Windows.Forms.Panel()
@@ -141,11 +149,6 @@ Partial Class frmKundenUebersichtZOLL
Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.btnRgPdf = New System.Windows.Forms.Button()
Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.ContextMenuStrip1.SuspendLayout()
Me.tabZolltarife.SuspendLayout()
Me.tabKundendaten.SuspendLayout()
@@ -165,12 +168,13 @@ Partial Class frmKundenUebersichtZOLL
Me.tbRechnungen.SuspendLayout()
CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
Me.ctxtRg.SuspendLayout()
Me.tbFiskaluebersicht.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.MenuStripKunden.SuspendLayout()
Me.pnlTop.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip3.SuspendLayout()
Me.ctxtRg.SuspendLayout()
Me.SuspendLayout()
'
'ContextMenuStrip1
@@ -217,6 +221,17 @@ Partial Class frmKundenUebersichtZOLL
Me.tabKundendaten.TabIndex = 0
Me.tabKundendaten.Text = "Kundendaten"
'
'usrcntlKundenuebersicht
'
Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
Me.usrcntlKundenuebersicht.BER_STUFE = 0
Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
Me.usrcntlKundenuebersicht.TabIndex = 0
'
'ContextMenuStrip2
'
Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -240,6 +255,7 @@ Partial Class frmKundenUebersichtZOLL
Me.tbcntrKundenDaten.Controls.Add(Me.tbFiskal)
Me.tbcntrKundenDaten.Controls.Add(Me.tbRechnungen)
Me.tbcntrKundenDaten.Controls.Add(Me.tbSpeditionsbuch)
Me.tbcntrKundenDaten.Controls.Add(Me.tbFiskaluebersicht)
Me.tbcntrKundenDaten.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntrKundenDaten.ItemSize = New System.Drawing.Size(76, 0)
Me.tbcntrKundenDaten.Location = New System.Drawing.Point(0, 0)
@@ -260,6 +276,16 @@ Partial Class frmKundenUebersichtZOLL
Me.TabPage1.TabIndex = 2
Me.TabPage1.Text = "Offerte"
'
'UsrCntlOfferte1
'
Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
Me.UsrCntlOfferte1.TabIndex = 0
'
'tbStatistik
'
Me.tbStatistik.BackColor = System.Drawing.Color.White
@@ -845,6 +871,35 @@ Partial Class frmKundenUebersichtZOLL
Me.MyPanel1.Size = New System.Drawing.Size(1182, 60)
Me.MyPanel1.TabIndex = 0
'
'btnRgPdf
'
Me.btnRgPdf.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnRgPdf.ContextMenuStrip = Me.ctxtRg
Me.btnRgPdf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnRgPdf.Image = Global.SDL.My.Resources.Resources.pdf1
Me.btnRgPdf.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRgPdf.Location = New System.Drawing.Point(1069, 2)
Me.btnRgPdf.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
Me.btnRgPdf.Name = "btnRgPdf"
Me.btnRgPdf.Size = New System.Drawing.Size(105, 57)
Me.btnRgPdf.TabIndex = 212
Me.btnRgPdf.Text = "Als PDF"
Me.btnRgPdf.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRgPdf.UseVisualStyleBackColor = True
'
'ctxtRg
'
Me.ctxtRg.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHochladenToolStripMenuItem})
Me.ctxtRg.Name = "ctxtRg"
Me.ctxtRg.Size = New System.Drawing.Size(197, 26)
'
'DateiHochladenToolStripMenuItem
'
Me.DateiHochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem"
Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
Me.DateiHochladenToolStripMenuItem.Text = "PDF in Zwischenablage"
'
'btnMonat
'
Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -908,6 +963,25 @@ Partial Class frmKundenUebersichtZOLL
Me.tbSpeditionsbuch.Text = "Speditionsbuch"
Me.tbSpeditionsbuch.UseVisualStyleBackColor = True
'
'tbFiskaluebersicht
'
Me.tbFiskaluebersicht.Controls.Add(Me.UsrcntlFiskaluebersicht1)
Me.tbFiskaluebersicht.Location = New System.Drawing.Point(4, 25)
Me.tbFiskaluebersicht.Name = "tbFiskaluebersicht"
Me.tbFiskaluebersicht.Size = New System.Drawing.Size(1182, 697)
Me.tbFiskaluebersicht.TabIndex = 7
Me.tbFiskaluebersicht.Text = "Fiskaluebersicht"
Me.tbFiskaluebersicht.UseVisualStyleBackColor = True
'
'UsrcntlFiskaluebersicht1
'
Me.UsrcntlFiskaluebersicht1.BackColor = System.Drawing.Color.White
Me.UsrcntlFiskaluebersicht1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrcntlFiskaluebersicht1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlFiskaluebersicht1.Name = "UsrcntlFiskaluebersicht1"
Me.UsrcntlFiskaluebersicht1.Size = New System.Drawing.Size(1182, 697)
Me.UsrcntlFiskaluebersicht1.TabIndex = 0
'
'NotifyIcon1
'
Me.NotifyIcon1.Text = "NotifyIcon1"
@@ -932,7 +1006,7 @@ Partial Class frmKundenUebersichtZOLL
Me.MenuStripKunden.Dock = System.Windows.Forms.DockStyle.Left
Me.MenuStripKunden.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.MenuStripKunden.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueFiskal, Me.toolNeuerKunde, Me.mneBearbeiten, Me.toolOptionen, Me.ToolStripMenuItem1, Me.ToolStripMenuItem11})
Me.MenuStripKunden.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.mneFormulare, Me.mnueFiskaluebersicht, Me.mnueFiskal, Me.toolNeuerKunde, Me.toolOptionen, Me.mneBearbeiten, Me.ToolStripMenuItem1, Me.ToolStripMenuItem11})
Me.MenuStripKunden.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
Me.MenuStripKunden.Location = New System.Drawing.Point(0, 0)
Me.MenuStripKunden.Name = "MenuStripKunden"
@@ -1145,6 +1219,21 @@ Partial Class frmKundenUebersichtZOLL
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(242, 22)
Me.ToolStripMenuItem19.Text = "Bonitätsauskunft (Creditreform)"
'
'mnueFiskaluebersicht
'
Me.mnueFiskaluebersicht.Enabled = False
Me.mnueFiskaluebersicht.ForeColor = System.Drawing.Color.White
Me.mnueFiskaluebersicht.Image = Global.SDL.My.Resources.Resources.bh
Me.mnueFiskaluebersicht.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.mnueFiskaluebersicht.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mnueFiskaluebersicht.Margin = New System.Windows.Forms.Padding(0, 10, 0, 0)
Me.mnueFiskaluebersicht.Name = "mnueFiskaluebersicht"
Me.mnueFiskaluebersicht.Size = New System.Drawing.Size(107, 64)
Me.mnueFiskaluebersicht.Text = "Fiskalübersicht"
Me.mnueFiskaluebersicht.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueFiskaluebersicht.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.mnueFiskaluebersicht.Visible = False
'
'mnueFiskal
'
Me.mnueFiskal.Enabled = False
@@ -1168,20 +1257,6 @@ Partial Class frmKundenUebersichtZOLL
Me.toolNeuerKunde.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.toolNeuerKunde.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'mneBearbeiten
'
Me.mneBearbeiten.Enabled = False
Me.mneBearbeiten.ForeColor = System.Drawing.Color.White
Me.mneBearbeiten.Image = Global.SDL.My.Resources.Resources.stift1
Me.mneBearbeiten.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.mneBearbeiten.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mneBearbeiten.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0)
Me.mneBearbeiten.Name = "mneBearbeiten"
Me.mneBearbeiten.Size = New System.Drawing.Size(107, 44)
Me.mneBearbeiten.Text = "Bearbeiten"
Me.mneBearbeiten.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mneBearbeiten.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'toolOptionen
'
Me.toolOptionen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.AnDakosyÜbertragenToolStripMenuItem, Me.AufschubEORIBearbeitenToolStripMenuItem, Me.SYSKAÜbertragToolStripMenuItem})
@@ -1216,6 +1291,20 @@ Partial Class frmKundenUebersichtZOLL
Me.SYSKAÜbertragToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.SYSKAÜbertragToolStripMenuItem.Text = "SYSKA übertragen"
'
'mneBearbeiten
'
Me.mneBearbeiten.Enabled = False
Me.mneBearbeiten.ForeColor = System.Drawing.Color.White
Me.mneBearbeiten.Image = Global.SDL.My.Resources.Resources.stift1
Me.mneBearbeiten.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.mneBearbeiten.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.mneBearbeiten.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0)
Me.mneBearbeiten.Name = "mneBearbeiten"
Me.mneBearbeiten.Size = New System.Drawing.Size(107, 44)
Me.mneBearbeiten.Text = "Bearbeiten"
Me.mneBearbeiten.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mneBearbeiten.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
@@ -1305,6 +1394,7 @@ Partial Class frmKundenUebersichtZOLL
Me.KdSearchBox1._displayWoelflKd = True
Me.KdSearchBox1._hideIfListEmpty = True
Me.KdSearchBox1._loadKdData = False
Me.KdSearchBox1._searchName1 = True
Me.KdSearchBox1._UseFIRMA = ""
Me.KdSearchBox1._ValueKdAndName = False
Me.KdSearchBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
@@ -1396,56 +1486,6 @@ Partial Class frmKundenUebersichtZOLL
Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'ctxtRg
'
Me.ctxtRg.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHochladenToolStripMenuItem})
Me.ctxtRg.Name = "ctxtRg"
Me.ctxtRg.Size = New System.Drawing.Size(197, 26)
'
'DateiHochladenToolStripMenuItem
'
Me.DateiHochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem"
Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
Me.DateiHochladenToolStripMenuItem.Text = "PDF in Zwischenablage"
'
'btnRgPdf
'
Me.btnRgPdf.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnRgPdf.ContextMenuStrip = Me.ctxtRg
Me.btnRgPdf.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnRgPdf.Image = Global.SDL.My.Resources.Resources.pdf1
Me.btnRgPdf.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRgPdf.Location = New System.Drawing.Point(1069, 2)
Me.btnRgPdf.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
Me.btnRgPdf.Name = "btnRgPdf"
Me.btnRgPdf.Size = New System.Drawing.Size(105, 57)
Me.btnRgPdf.TabIndex = 212
Me.btnRgPdf.Text = "Als PDF"
Me.btnRgPdf.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRgPdf.UseVisualStyleBackColor = True
'
'usrcntlKundenuebersicht
'
Me.usrcntlKundenuebersicht.BackColor = System.Drawing.Color.White
Me.usrcntlKundenuebersicht.BER_STUFE = 0
Me.usrcntlKundenuebersicht.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKundenuebersicht.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKundenuebersicht.Margin = New System.Windows.Forms.Padding(2)
Me.usrcntlKundenuebersicht.Name = "usrcntlKundenuebersicht"
Me.usrcntlKundenuebersicht.Size = New System.Drawing.Size(1176, 691)
Me.usrcntlKundenuebersicht.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(3, 3)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(2)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1176, 691)
Me.UsrCntlOfferte1.TabIndex = 0
'
'frmKundenUebersichtZOLL
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1484,6 +1524,8 @@ Partial Class frmKundenUebersichtZOLL
CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.ctxtRg.ResumeLayout(False)
Me.tbFiskaluebersicht.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.MenuStripKunden.ResumeLayout(False)
Me.MenuStripKunden.PerformLayout()
@@ -1491,7 +1533,6 @@ Partial Class frmKundenUebersichtZOLL
Me.pnlTop.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip3.ResumeLayout(False)
Me.ctxtRg.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
@@ -1611,4 +1652,7 @@ Partial Class frmKundenUebersichtZOLL
Friend WithEvents btnRgPdf As Button
Friend WithEvents ctxtRg As ContextMenuStrip
Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents mnueFiskaluebersicht As ToolStripMenuItem
Friend WithEvents tbFiskaluebersicht As TabPage
Friend WithEvents UsrcntlFiskaluebersicht1 As usrcntlFiskaluebersicht
End Class

13
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -167,6 +167,7 @@ Public Class frmKundenUebersichtZOLL
mneFormulare.Visible = False
mnueFiskal.Visible = False
toolNeuerKunde.Visible = False
mnueFiskaluebersicht.Visible = False
' cbx.Checked = True
End If
@@ -201,6 +202,8 @@ Public Class frmKundenUebersichtZOLL
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Fiskaldaten", Me) Then
mnueFiskal.Visible = True
mnueFiskaluebersicht.Visible = True
mnueFiskaluebersicht.Visible = True
End If
@@ -277,6 +280,7 @@ Public Class frmKundenUebersichtZOLL
'initDGVOffertenSperrliste()
'initSperre()
UsrCntlOfferte1.init(kdnr)
UsrcntlFiskaluebersicht1.init(kdnr)
RG_MONAT = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
@@ -296,6 +300,7 @@ Public Class frmKundenUebersichtZOLL
mnueSpeditionsbuch.Enabled = True
toolOptionen.Enabled = True
mneBearbeiten.Enabled = True
mnueFiskaluebersicht.Enabled = True
'SchließenToolStripMenuItem.Enabled = True
mnueFiskal.Enabled = True
@@ -332,6 +337,7 @@ Public Class frmKundenUebersichtZOLL
mnueFiskal.Enabled = False
mneBearbeiten.Enabled = False
toolOptionen.Enabled = False
mnueFiskaluebersicht.Enabled = False
UsrCntlOfferte1.init(-1)
End If
Else
@@ -966,8 +972,6 @@ Public Class frmKundenUebersichtZOLL
showForm(firmenwortlautFiskal, "Firmenwortlaut - Fiskal")
End Sub
Private Sub mnueFiskal_Click(sender As Object, e As EventArgs) Handles mnueFiskal.Click
changeTab(4, mnueFiskal)
End Sub
@@ -980,7 +984,9 @@ Public Class frmKundenUebersichtZOLL
changeTab(5, mnueRechnungen)
End Sub
Private Sub mnueFiskalkunden_Click(sender As Object, e As EventArgs) Handles mnueFiskaluebersicht.Click
changeTab(7, mnueFiskaluebersicht)
End Sub
@@ -1410,6 +1416,7 @@ Public Class frmKundenUebersichtZOLL
btnRgPdf.Enabled = (dgvRg.SelectedRows.Count > 0)
End Sub
End Class

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

@@ -3032,7 +3032,7 @@ Partial Class usrCntlKundenuebersicht
Me.lblEORI.ReadOnly = True
Me.lblEORI.Size = New System.Drawing.Size(322, 16)
Me.lblEORI.TabIndex = 8
Me.lblEORI.Text = "AT000000000000000"
Me.lblEORI.Text = "AT000000000000000 , gepr. am: 01.01.2000"
'
'lblEORINr
'

40
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -426,6 +426,9 @@ Public Class usrCntlKundenuebersicht
lblEORI.Text = ""
If checkNullStr(KUNDE.EORITIN) <> "" Then
lblEORI.Text = (checkNullStr(KUNDE.EORITIN) & " " & checkNullStr(KUNDE.EORITIN_NL)).Trim
If checkNullStr(KUNDE_ERW.kde_EORIgeprueftAm) <> "" Then
lblEORI.Text &= " , geprüft: " & checkNullStr(KUNDE_ERW.kde_EORIgeprueftAm)
End If
End If
If lblEORI.Text = "" Then Button4.Visible = False : Button3.Visible = False : Button2.Visible = False
If lblUid.Text = "" Then Button1.Visible = False : Button5.Visible = False : Button10.Visible = False
@@ -2405,7 +2408,7 @@ Public Class usrCntlKundenuebersicht
If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub
Dim url = SDL.cEORIWebService.genEORI_Formular(EORI_NR)
Dim url = SDL.cEORIWebService.genEORI_Formular(kdNr, EORI_NR)
Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
'If pdf <> "" Then Process.Start(pdf)
@@ -2565,6 +2568,20 @@ Public Class usrCntlKundenuebersicht
frmList.Show(Me)
End If
Case "EORI"
Dim dt = SQL.loadDgvBySql("SELECT [eori_id],[eori_KdNr] KundenNr,[eori_Datum]Datum,[eori_valid]Gültig,[eori_sachbearbeiter]Sachbearbeiter FROM [tblEORIPruefung] where eori_KdNr='" & kdNr & "' ORDER BY eori_Datum desc", "FMZOLL")
If dt IsNot Nothing Then
frmList.dgv.DataSource = dt
frmList.dgv.Columns("eori_id").Visible = False
'AddHandler frmList.dgv.CellDoubleClick, Sub()
' Dim PdfTmp = SDL.FormularManagerNEU.EORI_Antrag(frmList.dgv.SelectedRows(0).Cells("eori_id").Value)
' If PdfTmp <> "" Then
' Process.Start(PdfTmp)
' End If
' End Sub
frmList.Show(Me)
End If
End Select
@@ -2740,7 +2757,7 @@ Public Class usrCntlKundenuebersicht
End Select
Dim company As New cCreditSafeAPI.Company("", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing)
Dim company As New cCreditSafeAPI.Company("", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "")
Dim pdfObject As Byte() = Nothing
If lblBonitaetsdatum._value <> Nothing Then
@@ -2777,7 +2794,7 @@ Public Class usrCntlKundenuebersicht
End If
initCreditsave()
Cursor = Cursors.Default
End Sub
@@ -2840,9 +2857,9 @@ Public Class usrCntlKundenuebersicht
cBonitaetsauskunft.ba_Hoechstkredit = 0
End If
cBonitaetsauskunft.ba_Bankverbindung = ""
cBonitaetsauskunft.ba_Bankverbindung = company.csBank
cBonitaetsauskunft.ba_Zahlungsweise = ""
cBonitaetsauskunft.ba_GFName = ""
cBonitaetsauskunft.ba_GFName = company.csCEO
cBonitaetsauskunft.ba_Sonstiges = ""
If IsDate(company.csDFoundingDate) Then
cBonitaetsauskunft.ba_GruendundsDatum = IIf(company.csDFoundingDate > New Date("01.01.1900"), company.csDFoundingDate, "")
@@ -2850,7 +2867,14 @@ Public Class usrCntlKundenuebersicht
cBonitaetsauskunft.ba_GruendundsDatum = ""
End If
cBonitaetsauskunft.ba_GSName = company.csShareholder
cBonitaetsauskunft.ba_Geschaeftszweck = company.csBusinessPurpose
If company.csSumEmployees <> "" And IsNumeric(company.csSumEmployees) Then
cBonitaetsauskunft.ba_Mitarbeiter = CInt(company.csSumEmployees)
Else
cBonitaetsauskunft.ba_Mitarbeiter = 0
End If
If cBonitaetsauskunft.SAVE Then
SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")
@@ -2863,7 +2887,7 @@ Public Class usrCntlKundenuebersicht
KDERW.SAVE()
updateDatenarchivId()
End If
initCreditsave()
End Sub
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
@@ -2943,4 +2967,8 @@ Public Class usrCntlKundenuebersicht
lblHoechstkredit._value = If(IsNumeric(If(KUNDE.Höchstkredit, "")), KUNDE.Höchstkredit, "")
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
genUIDEORIList(kdNr, "EORI")
End Sub
End Class

1091
SDL/kunden/usrcntlFiskaluebersicht.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

146
SDL/kunden/usrcntlFiskaluebersicht.resx Normal file
View File

@@ -0,0 +1,146 @@
<?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>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAA+9JREFUSEu9
1klMG1cYB3ADZrExizfAYOxiEGACCS47KBTSQEIgikLSpJWqJIemPTSVUlSpVlSRHEgvlWjopT0EeuBU
BdQLewCx3lKJ5YxZTuw9sR/+/b7nzATjmaSoap7003hG5v3fvOXDGgDvleLD/5P8obr+Fth/bV6vF97H
P6L56U/4rb0Tzc3NyoFVV26iqu4m9vf3AxwcHAQ5PDwMcnR0JAwODuL+g+/woOkRmryPOdCgGFjbeA/e
H54Urq6ugq2trQVZX18PsLGxEWBzcxMDAwP49O5X0Ov1uP91k3pg+ccNKLvQgKWlpX9teXk5SH9/P+ob
P8P123dx+84X6oHFlZfATk7paY2MjKDyYj0uXrmOumu31AM9ZdXwlFYpdnIaY2Nj8JRUoqjiAiqqazkw
WjEwt6ACuQXlip2cxsTEBDJzPXCfLUReQZl6YBZ9ISuvEDs7O8Lu7u5b7e3tKZqcnIQz3S24Ms+oB7qy
8+DKyhM77aStrS1F29vbQTgw2eGCLTVNUA1MdWUhNS0TPp9PWFxcDPCuHbqysiKMj4/DmmQnKbAkpqgH
2uwfIInMzMzIZmdng8zNzQWYn58PwJvGaE5AvNmKeJNVPdCSmAxLQrJY9JN4mo6bmpoKMD09LRsdHUVM
rBGG2HhBNTDOaEGc0Yyenh6ht7c3SF9fnyI+7JLh4WFE6aMRpWN69cDomDhEG2LR3t6OtrY2tLS0oLW1
FR0dHejs7ERXVxe6u7vfaWhoCOERka9FqAfyaCKjmM4vUoeIyKjXpA78nYSHR0ArC4dW6xem1fqFScI4
UKcYeJpOQiWhLFQWwkJYiEw1UKkTpUqiZGFhAQ6Hk3rTBFENPD4qptGEyAefB8Jvd7wYnKQ3xID3Ae9M
DpL6UQ08PiqJj0bOInhNaY2leyV85ozmRJisSWKtee15L6hPqZhG/7SKtaL1++vVK8FA5yom3iTfK0lI
diAxhYtHmjj0Ros/nAauI2+aFMhnRxdtoKmJladm+OVLwWS1wUxFQbpXYqeymOrKhoOKNn92UKl0Zrg5
0EjCSSjnyYHcIdc+q80uRpuU4kTXixcCj9qW6pLvlXDhd2WfQ7o7H+78EuR4SnHmw3IO/Jx8Qmo5Tw5M
tNkb0zJzxR+mu88hI8eDjufPBX7mzMiR75Vk0r+2rLwiZJ8tRtH5Wvr1cBklH9Vx4DfkjgjjxmHU+HUr
yJfkCfmZ/O7xeHxXG67+/e3Dh0e/PHuGt8nJL6W3KhPOX2pE5WV2gzt/REKIv0lvqNRqampkxcXFGpPJ
FEaPY4mTFJJ6co823Pd0fUp+pcLwB13/pHM2JK4ajYO8aVLg+wHNP9/gygoUfWs4AAAAAElFTkSuQmCC
</value>
</data>
<metadata name="cbxHomepage.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root>

861
SDL/kunden/usrcntlFiskaluebersicht.vb Normal file
View File

@@ -0,0 +1,861 @@

Imports System.Net
Imports System.Text.RegularExpressions
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class usrcntlFiskaluebersicht
Public kdNr As Integer = -1
Dim SQL As New SQL
Public KUNDE As VERAG_PROG_ALLGEMEIN.cKunde
Public KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert
Public ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen
Dim fk As VERAG_PROG_ALLGEMEIN.cFiskalkunden
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER
Dim BA As VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
Dim year As Integer
Sub initDGVFiskaluebersicht()
With dgvFiskaluebersicht
.Columns.Clear()
.DataSource = SQL.loadDgvBySql("SELECT FK_Id , FK_Datum, FK_Art, FK_locked, FK_Kdnr FROM tblFiskalkunden WHERE FK_Kdnr='" & kdNr & "' ORDER BY FK_Datum ", "FMZOLL")
.Columns("FK_Datum").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("FK_Datum").HeaderText = "Datum"
.Columns("FK_Art").Visible = False
.Columns("FK_locked").Visible = False
.Columns("FK_Id").Visible = False
.Columns("FK_Kdnr").Visible = False
End With
End Sub
Sub initdgvLieferanten()
Label2.Text = "Top 5 Lieferanten (" & year & ")"
With dgvLieferanten
.Columns.Clear()
.DataSource() = SQL.loadDgvBySql("SELECT Top(5) [AbsenderKundenNr] as KdNr, CASE WHEN [AbsenderKundenNr] IS NULL THEN '-' ELSE MAX(Absender) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch] WHERE year(Abfertigungsdatum) = '" & year & "' AND " & kdNr & " In([AbsenderKundenNr], [EmpfängerKundenNr], [FrachtführerKundenNr], [VermittlerKundenNr], [EndempfängerKundenNr]) GROUP BY AbsenderKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
End With
End Sub
Sub initdgvEmfpaenger()
Label3.Text = "Top 5 Endempfänger (" & year & ")"
With dgvEmpfaenger
.Columns.Clear()
.DataSource() = SQL.loadDgvBySql("SELECT Top(5) [EndempfängerKundenNr] as KdNr, CASE WHEN [EndempfängerKundenNr] IS NULL THEN '-' ELSE MAX(Endempfänger) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch] WHERE year(Abfertigungsdatum) = '" & year & "' AND " & kdNr & " IN([AbsenderKundenNr],[EmpfängerKundenNr],[FrachtführerKundenNr],[VermittlerKundenNr],[EndempfängerKundenNr]) GROUP BY EndempfängerKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
End With
End Sub
Sub initdgvZwischenhaendler()
Label6.Text = "Top 5 Zwischenhändler (" & year & ")"
With dgvZwischenh
.Columns.Clear()
.DataSource() = SQL.loadDgvBySql("SELECT Top(5) [EmpfängerKundenNr] as KdNr, CASE WHEN [EmpfängerKundenNr] IS NULL THEN '-' ELSE MAX(Empfänger) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch] WHERE year(Abfertigungsdatum) = '" & year & "' AND " & kdNr & " IN([AbsenderKundenNr],[EmpfängerKundenNr],[FrachtführerKundenNr],[VermittlerKundenNr],[EndempfängerKundenNr]) GROUP BY EmpfängerKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
'.Columns("KdNr").Width = 50
End With
End Sub
Sub initDGVUnterlagen()
With dgvUnterlagen
.DataSource = SQL.loadDgvBySql("SELECT [fka_id],[fka_KdNr],[fka_Name],[fka_Datum] , [fka_Art], [fka_docId] FROM [tblFiskalkundenAnhaenge] " &
" WHERE [fka_KdNr]='" & fk.FK_Kdnr & "' AND fka_fkId='" & fk.FK_Id & "'", "AVISO")
.Columns("fka_id").Visible = False
.Columns("fka_KdNr").Visible = False
.Columns("fka_docId").Visible = False
.ClearSelection()
AddHandler .CellDoubleClick, Sub()
If dgvUnterlagen.SelectedRows.Count > 0 Then
dgvUnterlagen.Cursor = Cursors.WaitCursor
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvUnterlagen.SelectedRows(0).Cells("fka_docId").Value)
DS.OPEN_SINGLE(True)
dgvUnterlagen.Cursor = Cursors.Default
End If
End Sub
End With
End Sub
Sub init(_kdnr As Integer)
cbxFiskalart.Items.Clear()
cbxFiskalart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT", "AT"))
cbxFiskalart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE"))
cbxAttachmentArt.Items.Clear()
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Passkopie", "Passkopie"))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firmenbuchauszug", "FBN-Auszug"))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handelsregister", "HR"))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Infoblatt", "Info"))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Website", "Website"))
kdNr = _kdnr
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr)
BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr)
lblUnterlagen.Text = "Unterlagen"
For Each c As Control In MyPanel2.Controls
If TypeOf (c) Is MyTextBox Then
AddHandler CType(c, MyTextBox).TextChanged, AddressOf somethingChanged
ElseIf TypeOf (c) Is TextBox Then
AddHandler CType(c, TextBox).TextChanged, AddressOf somethingChanged
End If
Next
initDGVFiskaluebersicht()
End Sub
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
If cbxFiskalart._value = "" Then
lblWarning.Text = "Fiskalart auswählen!"
Exit Sub
ElseIf ADRESSE.LandKz = "" Then
lblWarning.Text = "Land im Kunden hinterlegen!"
Exit Sub
End If
If cbxFiskalart._value = "DE" And ADRESSE.LandKz = "D" Or cbxFiskalart._value = "AT" And ADRESSE.LandKz = "A" Then
lblWarning.Text = "Fiskalart " & cbxFiskalart._value & " für " & ADRESSE.LandKz & " nicht möglich!"
Exit Sub
End If
Dim input = InputBox("Bitte geben Sie das Datum der neuen Fiskal-Übersicht ein: ", "Fiskal-Übersicht anlegen")
If input <> "" Then
Dim hint As String
If checkDateIsValid(input, hint) Then
fk = New VERAG_PROG_ALLGEMEIN.cFiskalkunden()
fk.FK_Datum = input
fk.FK_Kdnr = kdNr
fk.FK_Art = cbxFiskalart._value
fk.SAVE()
initDGVFiskaluebersicht()
Else
MsgBox(hint)
End If
Else
MsgBox("Kein Datum angegeben!")
End If
End Sub
Private Function checkDateIsValid(ByRef checkDate As Date, ByRef hint As String) As Boolean
If Not IsDate(checkDate) Then
hint = checkDate & " ist kein Datumswert"
Return False
End If
For Each row As DataGridViewRow In dgvFiskaluebersicht.Rows
If Not IsDBNull(row.Cells("FK_Datum").Value) Then
If CDate(row.Cells("FK_Datum").Value) = CDate(checkDate) Then
hint = "Es existiert bereits ein Eintrag mit " & checkDate
Return False
End If
End If
Next
Return True
End Function
Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
Try
Dim rptFiskalkunden As New SDL.rptFiskalkunde(kdNr, fk.FK_Id)
Dim rpt As New frmPrintLayout
rpt.Text = ""
rpt.Viewer.LoadDocument(rptFiskalkunden)
rpt.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
rpt.Show()
Dim files As New List(Of String)
Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf"
For Each r As DataGridViewRow In dgvUnterlagen.Rows
files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("fka_docId").Value))
Next
VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile)
Process.Start(outputFile)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
If vbYes = MsgBox("Möchten Sie den Fiskalakt vom " & dgvFiskaluebersicht.SelectedRows(0).Cells("FK_Datum").Value & " abschließen?" & vbNewLine & "Er kann anschließend nicht mehr verändert werden", vbYesNo) Then
getFields()
If checkEntries() Then
fk.FK_locked = True
fk.FK_Abschlussdatum = Now()
fk.FK_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
fk.SAVE()
btnOK.Enabled = False
btnSave.Enabled = False
End If
End If
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
lblWarning.Text = ""
getFields()
If fk.SAVE() Then
btnSave.Enabled = False
Else
btnSave.Enabled = True
End If
End Sub
Private Sub dgvFiskaluebersicht_SelectionChanged(sender As Object, e As EventArgs) Handles dgvFiskaluebersicht.SelectionChanged
If dgvFiskaluebersicht.SelectedRows.Count > 0 Then
fk = New cFiskalkunden(dgvFiskaluebersicht.SelectedRows(0).Cells("FK_Id").Value)
If checkNullStr(fk.FK_Datum) <> "" Then year = CDate(fk.FK_Datum).Year
Dim locked As Boolean = IIf(fk.FK_locked Is Nothing, False, fk.FK_locked)
setFields()
initDGVUnterlagen()
picLocked.Visible = locked
btnOK.Enabled = Not locked
btnSave.Enabled = Not locked
setUIenabled(locked)
Button4.Enabled = True
setAbschlusstxt(locked)
Else
Button4.Enabled = False
clearTXT()
End If
BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr)
End Sub
Private Sub setFields()
cbxFiskalart._value = checkNullStr(fk.FK_Art)
txtBon.Text = checkNullStr(fk.FK_Bonitaet)
txtHomepage.Text = checkNullStr(fk.FK_Homepage_URL)
txtVM.Text = checkNullStr(fk.FK_Vollmacht)
txtEORI.Text = checkNullStr(fk.FK_EORI)
txtUID.Text = checkNullStr(fk.FK_UID)
rtbAnmerkung.Text = checkNullStr(fk.FK_Anmerkung)
rtfLieferanten.Text = checkNullStr(fk.FK_Lieferanten)
rtfEmpfaenger.Text = checkNullStr(fk.FK_Empfaenger)
rtfZwischenh.Text = checkNullStr(fk.FK_Zwischenhaendler)
txtGriendungsjahr.Text = checkNullStr(fk.FK_Gruendungsdatum)
txtGeschaeftszweck.Text = checkNullStr(fk.FK_Geschaeftszweck)
txtKredit.Text = checkNullStr(fk.FK_KreditMax)
txtWaren.Text = checkNullStr(fk.FK_Waren)
txtAnzMA.Text = checkNullStr(fk.FK_AnzahlMitarbeiter)
txtGF.Text = checkNullStr(fk.FK_Geschaeftsfuehrer)
txtGesellschafter.Text = checkNullStr(fk.FK_Gesellschafter)
If txtGriendungsjahr.Text = "" Then
txtGriendungsjahr.Text = BA.ba_GruendundsDatum
End If
If txtKredit.Text = "" Then
txtKredit.Text = BA.ba_Hoechstkredit
End If
If txtGF.Text = "" Then
txtGF.Text = BA.ba_GFName
End If
If txtGeschaeftszweck.Text = "" Then
txtGeschaeftszweck.Text = BA.ba_Geschaeftszweck
End If
If txtAnzMA.Text = "" Then
txtAnzMA.Text = BA.ba_Mitarbeiter
End If
If txtGesellschafter.Text = "" Then
txtGesellschafter.Text = BA.ba_GFName
End If
If txtWaren.Text = "" Then
txtWaren.Text = SQL.getValueTxtBySql("SELECT Top(1) [Bemerkungen] as Bemerkungen FROM [Speditionsbuch] WHERE " & kdNr & " In([AbsenderKundenNr], [EmpfängerKundenNr], [FrachtführerKundenNr], [VermittlerKundenNr], [EndempfängerKundenNr]) AND ISNULL(CAST([Bemerkungen] as NVARCHAR(max)),'') <> '' Order by Abfertigungsdatum desc", "FMZOLL")
End If
If txtBon.Text = "" And KUNDE.Bonitätsdatum IsNot Nothing AndAlso IsDate(KUNDE.Bonitätsdatum) Then
txtBon.Text = CDate(KUNDE.Bonitätsdatum).ToShortDateString
End If
If ADRESSE.LandKz = "AT" Or ADRESSE.LandKz = "A" Then
lblBon.Text = If(KUNDE_ERW.kde_CreditSaveBonitaetsScore, "")
Else
lblBon.Text = If(KUNDE_ERW.kde_CreditSaveBonitaetsIndex, "")
End If
If txtUID.Text = "" Then
txtUID.Text = CDate(SQL.getValueTxtBySql("SELECT TOP(1) [uid_Datum] FROM [tblUIDPruefung] where uid_KundenNr='" & kdNr & "' AND UID_valid = 1 AND uid_stufe = 2 ORDER BY uid_Datum desc", "FMZOLL")).ToShortDateString
End If
If txtVM.Text = "" And cbxFiskalart._value <> "" Then
Dim vmId As Integer = -1
Select Case FirmaTmp
Case "VERAG"
If cbxFiskalart._value = "DE" Then
vmId = 2
ElseIf cbxFiskalart._value = "AT" Then
vmId = 4
End If
Case "IMEX"
If cbxFiskalart._value = "DE" Then
vmId = 8
ElseIf cbxFiskalart._value = "AT" Then
vmId = 9
End If
Case "UNISPED"
If cbxFiskalart._value = "DE" Then
vmId = 22
ElseIf cbxFiskalart._value = "AT" Then
vmId = 23
End If
End Select
If vmId = -1 Then
lblWarning.Text = "Vollmachtart für " & FirmaTmp & " kann nicht ermittelt werden"
Else
Dim vmDate = SQL.getValueTxtBySql("SELECT Top(1) abf.[kdvm_erhalten_Datum] FROM [tblKundenVollmachtenArt] as art INNER Join(select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible = 1 And abf.kdvm_erhalten = 1 And ISNULL(abf.[kdvm_geloescht], 0)!= 1 And [kdvm_KundenNr] ='" & kdNr & "' AND [kdvm_kdvmaId]='" & vmId & "' Order BY abf.kdvm_erhalten_Datum desc", "FMZOLL")
If IsDate(vmDate) Then
txtVM.Text = CDate(vmDate).ToShortDateString
End If
End If
End If
If txtHomepage.Text <> "" Then
cbxHomepage.Checked = IsValidURL(txtHomepage.Text)
Else
cbxHomepage.Checked = False
picOK.Visible = False
End If
If checkNullStr(KUNDE.EORITIN) <> "" Then
Dim EORI = cEORIPruefung.LOADByKdNrDate(kdNr)
If EORI IsNot Nothing Then
txtEORI.Text = CDate(EORI.eori_datum).ToShortDateString
lblWarning.Text = ""
End If
Else
txtEORI.Text = ""
lblWarning.Text = "EORI-NR im Kunden fehlt!"
End If
If rtfEmpfaenger.Text = "" Then
rtfEmpfaenger.Visible = False
initdgvEmfpaenger()
Else
rtfEmpfaenger.Visible = True
End If
If rtfLieferanten.Text = "" Then
rtfLieferanten.Visible = False
initdgvLieferanten()
Else
rtfLieferanten.Visible = True
End If
If rtfZwischenh.Text = "" Then
rtfZwischenh.Visible = False
initdgvZwischenhaendler()
Else
rtfZwischenh.Visible = True
End If
End Sub
Private Sub getFields()
fk.FK_Art = cbxFiskalart._value
fk.FK_Bonitaet = txtBon.Text
fk.FK_Homepage_URL = txtHomepage.Text
fk.FK_Vollmacht = txtVM.Text
fk.FK_UID = txtUID.Text
fk.FK_EORI = txtEORI.Text
fk.FK_Anmerkung = rtbAnmerkung.Text
If txtKredit.Text <> "" Then
fk.FK_KreditMax = Double.Parse(txtKredit.Text)
End If
fk.FK_Geschaeftsfuehrer = txtGF.Text
fk.FK_Geschaeftszweck = txtGeschaeftszweck.Text
fk.FK_AnzahlMitarbeiter = txtAnzMA.Text
fk.FK_Gesellschafter = txtGesellschafter.Text
fk.FK_Gruendungsdatum = txtGriendungsjahr.Text
fk.FK_Waren = txtWaren.Text
If checkNullStr(fk.FK_Empfaenger) = "" Then
Dim txtEmpfaenger As String
For Each row As DataGridViewRow In dgvEmpfaenger.Rows
For i As Integer = 0 To row.Cells.Count - 1
txtEmpfaenger &= row.Cells(i).Value.ToString & ", "
Next
fk.FK_Empfaenger &= txtEmpfaenger
If row.Index < dgvEmpfaenger.Rows.Count Then
fk.FK_Empfaenger &= vbNewLine
End If
Next
End If
If checkNullStr(fk.FK_Lieferanten) = "" Then
Dim txtLieferanten As String
For Each row As DataGridViewRow In dgvLieferanten.Rows
For i As Integer = 0 To row.Cells.Count - 1
txtLieferanten &= row.Cells(i).Value.ToString & ", "
Next
fk.FK_Lieferanten &= txtLieferanten
If row.Index < dgvLieferanten.Rows.Count Then
fk.FK_Lieferanten &= vbNewLine
End If
Next
End If
If checkNullStr(fk.FK_Zwischenhaendler) = "" Then
Dim txtZwischenhaendler As String
For Each row As DataGridViewRow In dgvZwischenh.Rows
For i As Integer = 0 To row.Cells.Count - 1
txtZwischenhaendler &= row.Cells(i).Value.ToString & ", "
Next
fk.FK_Zwischenhaendler &= txtZwischenhaendler
If row.Index < dgvZwischenh.Rows.Count Then
fk.FK_Zwischenhaendler &= vbNewLine
End If
Next
End If
End Sub
Private Sub txtBon_TextChanged(sender As Object, e As EventArgs) Handles txtBon.TextChanged
If txtBon._value <> "" Then
Dim a As Date = Date.ParseExact(txtBon._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
If a > fk.FK_Datum.AddDays(-30) Then
cbxBonitaet.Checked = True
txtBon.ForeColor = Color.Black
Else
cbxBonitaet.Checked = False
txtBon.ForeColor = Color.Red
End If
Else
cbxBonitaet.Checked = False
End If
End Sub
Private Sub txtVM_TextChanged(sender As Object, e As EventArgs) Handles txtVM.TextChanged
If txtVM._value <> "" Then
Dim a As Date = Date.ParseExact(txtVM._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
If a > fk.FK_Datum.AddDays(-30) Then
cbxVollmacht.Checked = True
txtVM.ForeColor = Color.Black
Else
cbxVollmacht.Checked = False
txtVM.ForeColor = Color.Red
End If
Else
cbxVollmacht.Checked = False
End If
End Sub
Private Sub txtUID_TextChanged(sender As Object, e As EventArgs) Handles txtUID.TextChanged
If txtUID._value <> "" Then
Dim a As Date = Date.ParseExact(txtUID._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
If a > fk.FK_Datum.AddDays(-30) Then
cbxUID.Checked = True
txtUID.ForeColor = Color.Black
Else
cbxUID.Checked = False
txtUID.ForeColor = Color.Red
End If
Else
cbxUID.Checked = False
End If
End Sub
Private Sub txtEORI_TextChanged(sender As Object, e As EventArgs) Handles txtEORI.TextChanged
If txtEORI._value <> "" Then
Dim a As Date = Date.ParseExact(txtEORI._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
If a > fk.FK_Datum.AddDays(-30) Then
cbxEORI.Checked = True
txtEORI.ForeColor = Color.Black
Else
cbxEORI.Checked = False
txtEORI.ForeColor = Color.Black
End If
Else
cbxEORI.Checked = False
End If
End Sub
Private Sub txtHomepage_TextChanged(sender As Object, e As EventArgs) Handles txtHomepage.TextChanged
If txtHomepage.Text <> "" Then
If fk Is Nothing Then
cbxHomepage.Checked = picOK.Visible = IsValidURL(txtHomepage.Text)
Else
If fk.FK_Homepage_URL <> txtHomepage.Text Then
cbxHomepage.Checked = picOK.Visible = IsValidURL(txtHomepage.Text)
End If
End If
Else
cbxHomepage.Checked = picOK.Visible = False
End If
End Sub
Function checkNullStr(o As Object) As String
If Not IsDBNull(o) Then
Return o
End If
Return ""
End Function
Private Function checkEntries() As Boolean
If Not cbxBonitaet.Checked Then
lblWarning.Text = "Bonität prüfen!"
Return False
End If
If Not cbxHomepage.Checked Then
lblWarning.Text = "Homepage prüfen!"
Return False
End If
If Not cbxVollmacht.Checked Then
lblWarning.Text = "Vollmacht prüfen!"
Return False
End If
If Not cbxUID.Checked Then
lblWarning.Text = "UID prüfen!"
Return False
End If
If Not cbxEORI.Checked Then
lblWarning.Text = "EORI-Nr prüfen!"
Return False
End If
lblWarning.Text = ""
Return True
End Function
Private Sub usrcntlFiskaluebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
setUIenabled(Not dgvFiskaluebersicht.SelectedRows.Count > 0)
For Each c As Control In MyPanel1.Controls
c.Enabled = dgvFiskaluebersicht.SelectedRows.Count > 0
Next
End Sub
Private Sub setUIenabled(locked As Boolean)
btnSave.Enabled = Not locked
btnOK.Enabled = Not locked
For Each c As Control In MyPanel2.Controls
If Not c.GetType.FullName = "System.Windows.Forms.CheckBox" Then c.Enabled = Not locked
Next
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If dgvFiskaluebersicht.SelectedRows.Count > 0 Then
If fk.FK_locked Then
MsgBox("Fiskalübersicht ist bereits abgeschlossen und kann nicht gelöscht werden!")
Exit Sub
End If
If vbYes = MsgBox("Möchten Sie die Fiskalübersicht vom " & dgvFiskaluebersicht.SelectedRows(0).Cells("fk_datum").Value & " inkl. Anhänge wirklich löschen?", vbYesNo) Then
Dim anh_list = New cFiskalkundenAnhaenge()
anh_list.DELETEALL(dgvFiskaluebersicht.SelectedRows(0).Cells("fk_Kdnr").Value, dgvFiskaluebersicht.SelectedRows(0).Cells("fk_Id").Value)
fk.deleteEntry(fk.FK_Id)
'If dgvFiskaluebersicht.Rows.Count > 1 Then
' initDGVFiskaluebersicht()
'ElseIf dgvFiskaluebersicht.Rows.Count = 1 Then
' init(kdNr)
' initDGVFiskaluebersicht()
'End If
init(kdNr)
initDGVFiskaluebersicht()
End If
End If
End Sub
Public Sub clearTXT()
Dim a As New List(Of Windows.Forms.Control)
For Each c As Control In MyPanel2.Controls
If (c.GetType.FullName = "System.Windows.Forms.TextBox" Or c.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyTextBox") Then c.Text = ""
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim url As String = ""
lblWarning.Text = ""
txtHomepage.ForeColor = Color.Black
If fk.FK_Homepage_URL = txtHomepage.Text Then
Dim anh_list = New cFiskalkundenAnhaenge().LOAD_LIST_ByKdNr(fk.FK_Kdnr, fk.FK_Id, "Website")
If anh_list.Count > 0 Then
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(anh_list.ElementAt(0).fka_docId)
DS.OPEN_SINGLE()
End If
End If
If txtHomepage.Text = "" Then
picOK.Visible = False
Exit Sub
End If
If Not IsValidURL(txtHomepage.Text) Then Exit Sub
Dim req As System.Net.WebRequest
Dim res As System.Net.WebResponse
Try
url = txtHomepage.Text
req = System.Net.WebRequest.Create(url)
res = req.GetResponse()
Catch ex As WebException
lblWarning.Text = ex.Message
txtHomepage.ForeColor = Color.Red
picOK.Visible = False
Exit Sub
End Try
Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "FISKALKUNDENANHAENGE", fk.FK_Datum, "", "", "Website", kdNr)
Dim fi As New System.IO.FileInfo(pdf)
Dim path = DS.uploadDataToDATENSERVER(pdf, fi.Name, fi.Extension)
Dim ANH = New VERAG_PROG_ALLGEMEIN.cFiskalkundenAnhaenge()
ANH.fka_Art = DS.da_name
ANH.fka_docId = DS.da_id
ANH.fka_Datum = Now()
ANH.fka_KdNr = kdNr
ANH.fka_fkId = fk.FK_Id
ANH.fka_Name = fi.Name
ANH.SAVE()
initDGVUnterlagen()
'If path Then
' fk.FK_Homepage_PDF = DS.da_id
'End If
fk.FK_Homepage_URL = url
fk.SAVE()
If Not cbxHomepage.Checked Then cbxHomepage.Checked = True
End Sub
Private Function IsValidURL(ByVal URL As String) As Boolean
Dim Pattern As String = "^(?:http(s)?:\/\/)?[\w.-]+(?:\.[\w\.-]+)+[\w\-\._~:/?#[\]@!\$&'\(\)\*\+,;=.]+$"
Dim Rgx As Regex = New Regex(Pattern, RegexOptions.Compiled Or RegexOptions.IgnoreCase)
Dim isValid = Rgx.IsMatch(URL)
If Not isValid Then
lblWarning.Text = "URL hat falsches Format"
txtHomepage.ForeColor = Color.Red
picOK.Visible = False
Else
lblWarning.Text = ""
txtHomepage.ForeColor = Color.Black
picOK.Visible = True
End If
Return isValid
End Function
Private Sub dgvAnhaenge_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvUnterlagen.KeyUp
If e.KeyCode = Keys.Delete Then
If dgvUnterlagen.SelectedRows.Count > 0 Then
If vbYes = MsgBox("Möchten Sie die Datei wirklich löschen?", vbYesNoCancel) Then
Dim anhId = dgvUnterlagen.SelectedRows(0).Cells("fka_id").Value
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvUnterlagen.SelectedRows(0).Cells("fka_docId").Value)
If DS.DELETE_COMPLETE() Then
Dim anh As New cFiskalkundenAnhaenge(anhId)
initDGVUnterlagen()
End If
End If
End If
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
For Each ft As Form In Application.OpenForms
If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then
ft.BringToFront()
Exit Sub
End If
Next
Me.Cursor = Cursors.WaitCursor
Dim sped As New SDL.frmSpeditionsbuchSuche
sped.Show()
Me.Cursor = Cursors.Default
End If
End Sub
Private Sub btnAddAttachments_Click(sender As Object, e As EventArgs) Handles btnAddAttachments.Click
If cbxAttachmentArt._value = "" Then Exit Sub
Dim ArtId As String = cbxAttachmentArt._value
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "FISKALKUNDENANHAENGE", fk.FK_Datum, "", "", ArtId, kdNr)
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
Dim ANH = New VERAG_PROG_ALLGEMEIN.cFiskalkundenAnhaenge()
ANH.fka_Art = ArtId
ANH.fka_docId = DS.da_id
ANH.fka_Datum = Now()
ANH.fka_KdNr = kdNr
ANH.fka_fkId = fk.FK_Id
ANH.fka_Name = DS.da_name
ANH.SAVE()
initDGVUnterlagen()
End If
End Sub
Private Sub cbxAttachmentArt_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxAttachmentArt.SelectedValueChanged
btnAddAttachments.Enabled = cbxAttachmentArt._value <> ""
End Sub
Private Sub setAbschlusstxt(locked As Boolean)
If locked Then
Dim mit = New VERAG_PROG_ALLGEMEIN.cMitarbeiter(fk.FK_MaId)
lblAbschluss.Text = mit.Fullname & " " & fk.FK_Abschlussdatum
Else
lblAbschluss.Text = ""
End If
End Sub
Private Sub panelChanged()
For Each c As Control In MyPanel1.Controls
If TypeOf (c) Is MyTextBox Then
AddHandler CType(c, MyTextBox).TextChanged, AddressOf somethingChanged
ElseIf TypeOf (c) Is TextBox Then
AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
End If
Next
End Sub
Private Sub somethingChanged()
If Not btnSave.Enabled Then btnSave.Enabled = True
End Sub
End Class

2
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb generated
View File

@@ -144,7 +144,7 @@ Partial Class usrcntlPDFScanList
Friend WithEvents cntxtMulti As System.Windows.Forms.ContextMenuStrip
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents picAdd As System.Windows.Forms.PictureBox
Public WithEvents picAdd As System.Windows.Forms.PictureBox
Public WithEvents MyListBox1 As MyListBox
Friend WithEvents UmbenennenToolStripMenuItem As Windows.Forms.ToolStripMenuItem
Friend WithEvents KopierenZwischenablageToolStripMenuItem As Windows.Forms.ToolStripMenuItem

38
VERAG_PROG_ALLGEMEIN/Classes/cBonitaetsauskunft.vb
View File

@@ -30,6 +30,8 @@ Public Class cBonitaetsauskunft
Property ba_CreditSaveBonitaetsIndex As Object = Nothing
Property ba_Pruefungstool As Object = Nothing
Property ba_datenarchivId As Object = Nothing
Property ba_Geschaeftszweck As Object = Nothing
Property ba_GSName As Object = Nothing
Dim SQL As New SQL
@@ -71,6 +73,8 @@ Public Class cBonitaetsauskunft
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CreditSaveBonitaetsScore", ba_CreditSaveBonitaetsScore))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_CreditSaveBonitaetsIndex", ba_CreditSaveBonitaetsIndex))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_datenarchivId", ba_datenarchivId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_Geschaeftszweck", ba_Geschaeftszweck))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ba_GSName", ba_GSName))
Return list
End Function
@@ -91,7 +95,7 @@ Public Class cBonitaetsauskunft
End Function
Public Shared Function LOADByKdNrDate(ba_KundenNr As Integer, ba_Datum As Date) As cBonitaetsauskunft
Try
Try
Dim BONI As New cBonitaetsauskunft
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblBonitaetsauskunft WHERE ba_KundenNr=@ba_KundenNr AND cast(ba_Datum as date)=@ba_Datum ", conn)
@@ -121,6 +125,38 @@ Public Class cBonitaetsauskunft
Return Nothing
End Function
Public Shared Function LOADByKdNrWithingDate(ba_KundenNr As Integer) As cBonitaetsauskunft
Try
Dim BONI As New cBonitaetsauskunft
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT Top(1) * FROM tblBonitaetsauskunft WHERE ba_KundenNr=@ba_KundenNr order by ba_Datum desc ", conn)
cmd.Parameters.AddWithValue("@ba_KundenNr", ba_KundenNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In BONI.getParameterList()
Dim propInfo As PropertyInfo = BONI.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(BONI, Nothing)
Else
propInfo.SetValue(BONI, dr.Item(li.Text))
End If
Next
dr.Close()
Return BONI
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return Nothing
End Function
Public Sub LOAD()
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()

184
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb Normal file
View File

@@ -0,0 +1,184 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cFiskalkunden
Property FK_Id As Integer
Property FK_Kdnr As Object = Nothing
Property FK_Datum As Object = Nothing
Property FK_Art As Object = Nothing
Property FK_locked As Object = Nothing
Property FK_Homepage As Object = Nothing
Property FK_Bonitaet As Object = Nothing
Property FK_Vollmacht As Object = Nothing
Property FK_UID As Object = Nothing
Property FK_EORI As Object = Nothing
Property FK_Homepage_URL As Object = Nothing
Property FK_Homepage_PDF As Object = Nothing
Property FK_DatenarchivId As Object = Nothing
Property FK_MaId As Object = Nothing
Property FK_Abschlussdatum As Object = Nothing
Property FK_Anmerkung As Object = Nothing
Property FK_Lieferanten As Object = Nothing
Property FK_Empfaenger As Object = Nothing
Property FK_Zwischenhaendler As Object = Nothing
Property FK_Waren As Object = Nothing
Property FK_Gruendungsdatum As Object = Nothing
Property FK_AnzahlMitarbeiter As Object = Nothing
Property FK_Geschaeftszweck As Object = Nothing
Property FK_KreditMax As Object = Nothing
Property FK_Geschaeftsfuehrer As Object = Nothing
Property FK_Gesellschafter As Object = Nothing
Public hasEntry = False
Dim SQL As New SQL
Sub New(FK_Id)
Me.FK_Id = FK_Id
LOAD()
End Sub
Sub New()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Id", FK_Id,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Kdnr", FK_Kdnr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Datum", FK_Datum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Art", FK_Art))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_locked", FK_locked))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Homepage", FK_Homepage))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Bonitaet", FK_Bonitaet))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Vollmacht", FK_Vollmacht))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_UID", FK_UID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_EORI", FK_EORI))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Homepage_URL", FK_Homepage_URL))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Homepage_PDF", FK_Homepage_PDF))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_DatenarchivId", FK_DatenarchivId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Anmerkung", FK_Anmerkung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Abschlussdatum", FK_Abschlussdatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_MaId", FK_MaId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Lieferanten", FK_Lieferanten))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Empfaenger", FK_Empfaenger))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Zwischenhaendler", FK_Zwischenhaendler))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Waren", FK_Waren))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gruendungsdatum", FK_Gruendungsdatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_AnzahlMitarbeiter", FK_AnzahlMitarbeiter))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftszweck", FK_Geschaeftszweck))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_KreditMax", FK_KreditMax))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftsfuehrer", FK_Geschaeftsfuehrer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gesellschafter", FK_Gesellschafter))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblFiskalkunden] WHERE FK_Id=@FK_Id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblFiskalkunden WHERE FK_Id=@FK_Id ", conn)
cmd.Parameters.AddWithValue("@FK_Id", FK_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblFiskalkunden] SET " & str & " WHERE FK_Id=@FK_Id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO [tblFiskalkunden] (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function deleteEntry(ByVal FK_Id As Integer) As Boolean
Dim sql = "DELETE FROM tblFiskalkunden WHERE FK_Id=@FK_Id"
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@FK_Id", FK_Id)
Try
cmd.ExecuteNonQuery()
Return True
Catch ex As SqlException
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
End Try
End Using
End Using
Return False
End Function
End Class

157
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkundenAnhaenge.vb Normal file
View File

@@ -0,0 +1,157 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cFiskalkundenAnhaenge
Property fka_id As Integer
Property fka_KdNr As Integer
Property fka_fkId As Integer
Property fka_Name As String
Property fka_docId As Integer
Property fka_Art As Object = Nothing
Property fka_Datum As Object = Nothing
Public hasEntry As Boolean = False
Dim SQL As New SQL
Sub New()
End Sub
Sub New(fka_id As Integer)
Me.fka_id = fka_id
LOAD()
End Sub
Sub New(fka_Name, fka_docId, fka_Art)
Me.fka_Name = fka_Name
Me.fka_docId = fka_docId
Me.fka_Art = fka_Art
LOAD()
End Sub
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_id", fka_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_KdNr", fka_KdNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_Name", fka_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_docId", fka_docId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_Art", fka_Art))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_Datum", fka_Datum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_fkId", fka_fkId))
Return list
End Function
Shared Function LOAD_LIST_ByKdNr(fka_KdNr As Integer, fka_fkId As Integer, fka_Art As String) As List(Of cFiskalkundenAnhaenge)
Dim ANH_LIST = New List(Of cFiskalkundenAnhaenge)
ANH_LIST.Clear()
Dim SQL As New SQL
Dim dgv = SQL.loadDgvBySql("SELECT fka_id FROM [tblFiskalkundenAnhaenge] WHERE fka_KdNr=" & fka_KdNr & " And fka_fkId = " & fka_fkId & " And fka_Art = " & fka_Art & " ORDER BY fka_Datum desc", "AVISO")
If dgv IsNot Nothing Then
For Each r In dgv.Rows
ANH_LIST.Add(New VERAG_PROG_ALLGEMEIN.cFiskalkundenAnhaenge(r("fka_id")))
Next
End If
Return ANH_LIST
End Function
Public Function SAVE(Optional errHinweis = "") As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM [tblFiskalkundenAnhaenge] With(updlock, serializable) WHERE fka_id=@fka_id) " &
" BEGIN " & getUpdateCmd() & " End " &
" Else " &
" BEGIN " & getInsertCmd() & " End " &
" commit tran "
fka_id = SQL.doSQLVarListID(fka_id, sqlstr, "AVISO", , list,, errHinweis)
Return fka_id > 0
End Function
Public Sub LOAD()
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
Using cmd As New SqlCommand("Select * FROM [tblFiskalkundenAnhaenge] WHERE fka_id=@fka_id ", conn)
cmd.Parameters.AddWithValue("@fka_id", fka_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
hasEntry = True
Next
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblFiskalkundenAnhaenge] SET " & str & " WHERE fka_id=@fka_id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO [tblFiskalkundenAnhaenge] (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblFiskalkundenAnhaenge] WITH(updlock,serializable) WHERE fka_id=" & Me.fka_id
Return SQL.doSQL(sqlstr, "AVISO")
End Function
Public Function DELETEALL(fka_KdNr As Integer, fka_fkId As Integer) As Boolean
Dim sqlstr = " DELETE FROM [tblFiskalkundenAnhaenge] WITH(updlock,serializable) WHERE fka_KdNr=" & Me.fka_KdNr & " and fka_fkId=" & Me.fka_fkId
Return SQL.doSQL(sqlstr, "AVISO")
End Function
End Class

2
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -74,6 +74,7 @@ Public Class cKundenErweitert
Property kde_TOBB_KundenNr As Object = Nothing
Property kde_UIDMehrfachverwendung As Boolean = False
Property kde_Abrechnung_SendungsdatenAusSTB As Boolean = False
Property kde_EORIgeprueftAm As Object = Nothing
Dim SQL As New SQL
@@ -149,6 +150,7 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Abrechnung_SendungsdatenAusSTB", kde_Abrechnung_SendungsdatenAusSTB))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveNo", kde_CreditSaveNo))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_UIDMehrfachverwendung", kde_UIDMehrfachverwendung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_EORIgeprueftAm", kde_EORIgeprueftAm))
Return list
End Function

107
VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb
View File

@@ -15,10 +15,8 @@ Public Class cCreditSafeAPI
'Test
'Shared API_STRING As String = "https://connect.sandbox.creditsafe.com"
'PROD
Shared API_STRING As String = "https://connect.creditsafe.com"
Shared token As String = ""
Public dataTable As New DataTable()
@@ -303,6 +301,7 @@ Public Class cCreditSafeAPI
Dim companyAddInformObj As Chilkat.JsonObject = reportObj.ObjectOf("additionalInformation")
If (reportObj.LastMethodSuccess = True) Then
Dim companyMiscObj As Chilkat.JsonObject = companyAddInformObj.ObjectOf("misc")
company.csBusinessPurpose = companyMiscObj.StringOf("businessPurpose")
If (companyAddInformObj.LastMethodSuccess = True) Then
Dim deCurrentRatingObj As Chilkat.JsonObject = companyMiscObj.ObjectOf("deCurrentRating")
If (companyAddInformObj.LastMethodSuccess = True) Then
@@ -332,6 +331,15 @@ Public Class cCreditSafeAPI
company.csDFoundingDate = dateTime.GetAsTimestamp(getAsLocal)
Debug.WriteLine(dateTime)
Dim principalActivityObj As Chilkat.JsonObject = basicInfoObj.ObjectOf("principalActivity")
If (basicInfoObj.LastMethodSuccess = True) And company.csBusinessPurpose = "" Then
company.csBusinessPurpose = principalActivityObj.StringOf("industrySector") & " - " & principalActivityObj.StringOf("description")
Else
Debug.WriteLine("principalActivityObj object not found.")
End If
Else
Debug.WriteLine("basicInfoObj object not found.")
@@ -341,10 +349,28 @@ Public Class cCreditSafeAPI
Debug.WriteLine("companyIDObj object not found.")
End If
Dim otherInformationObject As Chilkat.JsonObject = reportObj.ObjectOf("otherInformation")
Dim creditScoreObj As Chilkat.JsonObject = reportObj.ObjectOf("creditScore")
If (reportObj.LastMethodSuccess = True) Then
Dim employeesInformationsArray As Chilkat.JsonArray = otherInformationObject.ArrayOf("employeesInformation")
If (otherInformationObject.LastMethodSuccess = True) Then
Dim employees As Chilkat.JsonObject = employeesInformationsArray.ObjectAt(0)
company.csSumEmployees = employees.StringOf("numberOfEmployees")
Else
Debug.WriteLine("otherInformationObject object not found.")
End If
Dim bankersArray As Chilkat.JsonArray = otherInformationObject.ArrayOf("bankers")
If (otherInformationObject.LastMethodSuccess = True) Then
Dim bankers As Chilkat.JsonObject = bankersArray.ObjectAt(0)
company.csBank = bankers.StringOf("name") & " - " & bankers.StringOf("bankCode")
Else
Debug.WriteLine("otherInformationObject object not found.")
End If
Dim creditRatingObj As Chilkat.JsonObject = creditScoreObj.ObjectOf("currentCreditRating")
If (creditScoreObj.LastMethodSuccess = True) Then
@@ -401,20 +427,6 @@ Public Class cCreditSafeAPI
Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, Nothing, acceptContentType, "GET", token)
'Dim json As New Chilkat.JsonObject
'Dim success As Boolean = json.Load(jsonRespString)
'If (success <> True) Then
' Debug.WriteLine(json.LastErrorText)
'End If
'Dim sb As New Chilkat.StringBuilder
'json.StringOfSb("pdfReportStream", sb)
'Dim bd As New Chilkat.BinData
'bd.AppendEncodedSb(sb, "base64")
'Return Convert.FromBase64String(sb.ToString)
If jsonRespString IsNot Nothing Then
Return Convert.FromBase64String(jsonRespString)
End If
@@ -429,18 +441,20 @@ Public Class cCreditSafeAPI
rest.AddQueryParam("countries", company.country)
If company.creditsafeNo <> "" Then
rest.AddQueryParam("safeNo", company.creditsafeNo)
If company.creditsafeNo <> "" Then 'Eindeutiger Schlüssel
rest.AddQueryParam("safeNo", company.creditsafeNo)
Else
Else
If company.vatNo <> "" Then
If company.vatNo <> "" Then
rest.AddQueryParam("vatNo", company.vatNo)
Else
If company.name <> "" Then
rest.AddQueryParam("name", company.name)
End If
End If
If company.name <> "" Then rest.AddQueryParam("name", company.name)
If company.Street <> "" Then rest.AddQueryParam("street", company.Street)
If company.Postalcode <> "" Then rest.AddQueryParam("postCode", company.Postalcode)
If company.City <> "" Then rest.AddQueryParam("city", company.City)
End If
@@ -458,20 +472,27 @@ Public Class cCreditSafeAPI
Dim success As Boolean = json.Load(jsonRespString)
If (success <> True) Then
Debug.WriteLine(json.LastErrorText)
Return "Verbindungsfehler"
Return New Date()
End If
Dim companies As Chilkat.JsonArray = json.ArrayOf("companies")
Dim compObj As Chilkat.JsonObject = companies.ObjectAt(0)
Dim dateTime As New Chilkat.CkDateTime
Dim dt As New Chilkat.DtObj
Dim getAsLocal As Boolean = False
success = compObj.DateOf("dateOfLatestChange", dateTime)
Debug.WriteLine(dateTime.GetAsTimestamp(getAsLocal))
Return dateTime.GetAsTimestamp(getAsLocal)
If companies IsNot Nothing Then
Dim compObj As Chilkat.JsonObject = companies.ObjectAt(0)
Dim dateTime As New Chilkat.CkDateTime
Dim dt As New Chilkat.DtObj
Dim getAsLocal As Boolean = False
success = compObj.DateOf("dateOfLatestChange", dateTime)
Debug.WriteLine(dateTime.GetAsTimestamp(getAsLocal))
Return dateTime.GetAsTimestamp(getAsLocal)
Else
Return New Date("01.01.1900")
End If
End Function
@@ -500,6 +521,9 @@ Public Class cCreditSafeAPI
Public Property country As String
Public Property creditsafeNo As String
Public Property lastChecked As Date
Public Property City As String
Public Property Postalcode As String
Public Property Street As String
Public Property csIndex As String
Public Property csScore As String
Public Property csRiskclass As String
@@ -507,15 +531,30 @@ Public Class cCreditSafeAPI
Public Property csDFoundingDate As Date
Public Property csPDF As String
Public Property csFailure As String
Public Property csSumEmployees As String
Public Property csBusinessPurpose As String
Public Property csShareholder As String
Public Property csCEO As String
Public Property csBank As String
Public Sub New(_name As String, _vatNo As String, _country As String, _creditsafeNo As String, _creditSafeId As String, _lastChecked As Date)
Public Sub New(_name As String, _vatNo As String, _country As String, _creditsafeNo As String, _creditSafeId As String, _lastChecked As Date, _street As String, _postalCode As String, _city As String, _sumEmployees As String, _businessPurpose As String, _shareholder As String, _ceo As String, _bank As String)
creditSafeId = _creditSafeId
name = _name
vatNo = _vatNo
country = _country
creditsafeNo = _creditsafeNo
lastChecked = _lastChecked
Street = _street
Postalcode = _postalCode
City = _city
csSumEmployees = _sumEmployees
csBusinessPurpose = _businessPurpose
csShareholder = _shareholder
csCEO = _ceo
csBank = _bank
End Sub
Public Sub New()

2
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -339,6 +339,8 @@
<Compile Include="Classes\cFeiertage.vb" />
<Compile Include="Classes\cFilialen.vb" />
<Compile Include="Classes\cFirmen.vb" />
<Compile Include="Classes\cFiskalkunden.vb" />
<Compile Include="Classes\cFiskalkundenAnhaenge.vb" />
<Compile Include="Classes\cFremdSpeditionenZuordnung.vb" />
<Compile Include="Classes\cGelangensbestaetigung.vb" />
<Compile Include="Classes\cGesamtsicherheitsPositionen.vb" />