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

fiskaluebersicht

Browse Source
This commit is contained in:
d.breimaier
2023-05-16 09:36:40 +02:00
parent 0544a5aeb3
commit 9f39fed031
12 changed files with 961 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Creditsafe/usrcntlCreditsafe.vb
View File

@@ -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,9 +297,6 @@ Public Class usrcntlCreditsafe
End If
End Sub
Private Sub lblUID_Click(sender As Object, e As EventArgs) Handles lblUID.Click
End Sub
Private Sub txtUID_TextChanged(sender As Object, e As EventArgs) Handles txtUID.TextChanged
If txtUID.Text <> "" Then

4
SDL/My Project/AssemblyInfo.vb
View File

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

9
SDL/SDL.vbproj
View File

@@ -672,6 +672,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>
@@ -2968,6 +2974,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>

170
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,15 @@ 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.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
@@ -115,14 +121,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 +148,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 +167,12 @@ Partial Class frmKundenUebersichtZOLL
Me.tbRechnungen.SuspendLayout()
CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
Me.ctxtRg.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 +219,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 +253,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 +274,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 +869,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 +961,15 @@ Partial Class frmKundenUebersichtZOLL
Me.tbSpeditionsbuch.Text = "Speditionsbuch"
Me.tbSpeditionsbuch.UseVisualStyleBackColor = True
'
'tbFiskaluebersicht
'
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
'
'NotifyIcon1
'
Me.NotifyIcon1.Text = "NotifyIcon1"
@@ -932,7 +994,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 +1207,15 @@ 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.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0)
Me.mnueFiskaluebersicht.Name = "mnueFiskaluebersicht"
Me.mnueFiskaluebersicht.Size = New System.Drawing.Size(107, 19)
Me.mnueFiskaluebersicht.Text = "Fiskalübersicht"
'
'mnueFiskal
'
Me.mnueFiskal.Enabled = False
@@ -1168,20 +1239,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 +1273,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 +1376,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 +1468,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 +1506,7 @@ Partial Class frmKundenUebersichtZOLL
CType(Me.dgvRg, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.ctxtRg.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.MenuStripKunden.ResumeLayout(False)
Me.MenuStripKunden.PerformLayout()
@@ -1491,7 +1514,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 +1633,6 @@ 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
End Class

11
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,7 @@ Public Class frmKundenUebersichtZOLL
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Fiskaldaten", Me) Then
mnueFiskal.Visible = True
mnueFiskaluebersicht.Visible = True
End If
@@ -296,6 +298,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 +335,7 @@ Public Class frmKundenUebersichtZOLL
mnueFiskal.Enabled = False
mneBearbeiten.Enabled = False
toolOptionen.Enabled = False
mnueFiskaluebersicht.Enabled = False
UsrCntlOfferte1.init(-1)
End If
Else
@@ -966,8 +970,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 +982,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 +1414,7 @@ Public Class frmKundenUebersichtZOLL
btnRgPdf.Enabled = (dgvRg.SelectedRows.Count > 0)
End Sub
End Class

4
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -2777,7 +2777,7 @@ Public Class usrCntlKundenuebersicht
End If
initCreditsave()
Cursor = Cursors.Default
End Sub
@@ -2863,7 +2863,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

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

@@ -0,0 +1,480 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrcntlFiskaluebersicht
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlFiskaluebersicht))
Me.dgvFiskaluebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.btn = New System.Windows.Forms.Button()
Me.cbxHomepage = New System.Windows.Forms.CheckBox()
Me.txtHomepage = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxBonitaet = New System.Windows.Forms.CheckBox()
Me.txtBon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxVollmacht = New System.Windows.Forms.CheckBox()
Me.txtVM = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxUID = New System.Windows.Forms.CheckBox()
Me.txtUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxEORI = New System.Windows.Forms.CheckBox()
Me.txtEORI = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.btnCancel = New System.Windows.Forms.Button()
Me.btnOK = New System.Windows.Forms.Button()
Me.btnSave = New System.Windows.Forms.Button()
Me.btnPDFReport = New System.Windows.Forms.Button()
Me.lblFiskaluebersicht = New System.Windows.Forms.Label()
Me.lblCheckliste = New System.Windows.Forms.Label()
Me.lblUnterlagen = New System.Windows.Forms.Label()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.MyDatagridview2 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel2.SuspendLayout()
CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'dgvFiskaluebersicht
'
Me.dgvFiskaluebersicht.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvFiskaluebersicht.AllowUserToAddRows = False
Me.dgvFiskaluebersicht.AllowUserToDeleteRows = False
Me.dgvFiskaluebersicht.AllowUserToOrderColumns = True
Me.dgvFiskaluebersicht.AllowUserToResizeRows = False
Me.dgvFiskaluebersicht.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.dgvFiskaluebersicht.BackgroundColor = System.Drawing.Color.White
Me.dgvFiskaluebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvFiskaluebersicht.Location = New System.Drawing.Point(4, 35)
Me.dgvFiskaluebersicht.MultiSelect = False
Me.dgvFiskaluebersicht.Name = "dgvFiskaluebersicht"
Me.dgvFiskaluebersicht.ReadOnly = True
Me.dgvFiskaluebersicht.RowHeadersVisible = False
Me.dgvFiskaluebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvFiskaluebersicht.Size = New System.Drawing.Size(190, 462)
Me.dgvFiskaluebersicht.TabIndex = 32
'
'btn
'
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(163, 469)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(31, 28)
Me.btn.TabIndex = 96
Me.btn.UseVisualStyleBackColor = True
'
'cbxHomepage
'
Me.cbxHomepage.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbxHomepage.AutoSize = True
Me.cbxHomepage.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxHomepage.Location = New System.Drawing.Point(221, 46)
Me.cbxHomepage.Name = "cbxHomepage"
Me.cbxHomepage.Size = New System.Drawing.Size(86, 17)
Me.cbxHomepage.TabIndex = 98
Me.cbxHomepage.Text = "Homepage"
Me.cbxHomepage.UseVisualStyleBackColor = True
'
'txtHomepage
'
Me.txtHomepage._DateTimeOnly = False
Me.txtHomepage._numbersOnly = False
Me.txtHomepage._numbersOnlyKommastellen = ""
Me.txtHomepage._numbersOnlyTrennzeichen = True
Me.txtHomepage._Prozent = False
Me.txtHomepage._ShortDateNew = False
Me.txtHomepage._ShortDateOnly = False
Me.txtHomepage._TimeOnly = False
Me.txtHomepage._TimeOnly_Seconds = False
Me.txtHomepage._value = Nothing
Me.txtHomepage._Waehrung = False
Me.txtHomepage._WaehrungZeichen = True
Me.txtHomepage.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtHomepage.ForeColor = System.Drawing.Color.Black
Me.txtHomepage.Location = New System.Drawing.Point(361, 43)
Me.txtHomepage.MaxLineLength = -1
Me.txtHomepage.MaxLines_Warning = ""
Me.txtHomepage.MaxLines_Warning_Label = Nothing
Me.txtHomepage.Name = "txtHomepage"
Me.txtHomepage.Size = New System.Drawing.Size(128, 20)
Me.txtHomepage.TabIndex = 100
'
'cbxBonitaet
'
Me.cbxBonitaet.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbxBonitaet.AutoSize = True
Me.cbxBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxBonitaet.Location = New System.Drawing.Point(221, 72)
Me.cbxBonitaet.Name = "cbxBonitaet"
Me.cbxBonitaet.Size = New System.Drawing.Size(115, 17)
Me.cbxBonitaet.TabIndex = 101
Me.cbxBonitaet.Text = "aktuelle Bonität"
Me.cbxBonitaet.UseVisualStyleBackColor = True
'
'txtBon
'
Me.txtBon._DateTimeOnly = False
Me.txtBon._numbersOnly = False
Me.txtBon._numbersOnlyKommastellen = ""
Me.txtBon._numbersOnlyTrennzeichen = True
Me.txtBon._Prozent = False
Me.txtBon._ShortDateNew = False
Me.txtBon._ShortDateOnly = False
Me.txtBon._TimeOnly = False
Me.txtBon._TimeOnly_Seconds = False
Me.txtBon._value = Nothing
Me.txtBon._Waehrung = False
Me.txtBon._WaehrungZeichen = True
Me.txtBon.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtBon.ForeColor = System.Drawing.Color.Black
Me.txtBon.Location = New System.Drawing.Point(361, 69)
Me.txtBon.MaxLineLength = -1
Me.txtBon.MaxLines_Warning = ""
Me.txtBon.MaxLines_Warning_Label = Nothing
Me.txtBon.Name = "txtBon"
Me.txtBon.Size = New System.Drawing.Size(128, 20)
Me.txtBon.TabIndex = 102
'
'cbxVollmacht
'
Me.cbxVollmacht.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbxVollmacht.AutoSize = True
Me.cbxVollmacht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxVollmacht.Location = New System.Drawing.Point(221, 98)
Me.cbxVollmacht.Name = "cbxVollmacht"
Me.cbxVollmacht.Size = New System.Drawing.Size(130, 17)
Me.cbxVollmacht.TabIndex = 103
Me.cbxVollmacht.Text = "aktuelle Vollmacht"
Me.cbxVollmacht.UseVisualStyleBackColor = True
'
'txtVM
'
Me.txtVM._DateTimeOnly = False
Me.txtVM._numbersOnly = False
Me.txtVM._numbersOnlyKommastellen = ""
Me.txtVM._numbersOnlyTrennzeichen = True
Me.txtVM._Prozent = False
Me.txtVM._ShortDateNew = False
Me.txtVM._ShortDateOnly = False
Me.txtVM._TimeOnly = False
Me.txtVM._TimeOnly_Seconds = False
Me.txtVM._value = Nothing
Me.txtVM._Waehrung = False
Me.txtVM._WaehrungZeichen = True
Me.txtVM.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtVM.ForeColor = System.Drawing.Color.Black
Me.txtVM.Location = New System.Drawing.Point(361, 95)
Me.txtVM.MaxLineLength = -1
Me.txtVM.MaxLines_Warning = ""
Me.txtVM.MaxLines_Warning_Label = Nothing
Me.txtVM.Name = "txtVM"
Me.txtVM.Size = New System.Drawing.Size(128, 20)
Me.txtVM.TabIndex = 104
'
'cbxUID
'
Me.cbxUID.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbxUID.AutoSize = True
Me.cbxUID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxUID.Location = New System.Drawing.Point(589, 46)
Me.cbxUID.Name = "cbxUID"
Me.cbxUID.Size = New System.Drawing.Size(96, 17)
Me.cbxUID.TabIndex = 105
Me.cbxUID.Text = "UID-Prüfung"
Me.cbxUID.UseVisualStyleBackColor = True
'
'txtUID
'
Me.txtUID._DateTimeOnly = False
Me.txtUID._numbersOnly = False
Me.txtUID._numbersOnlyKommastellen = ""
Me.txtUID._numbersOnlyTrennzeichen = True
Me.txtUID._Prozent = False
Me.txtUID._ShortDateNew = False
Me.txtUID._ShortDateOnly = False
Me.txtUID._TimeOnly = False
Me.txtUID._TimeOnly_Seconds = False
Me.txtUID._value = Nothing
Me.txtUID._Waehrung = False
Me.txtUID._WaehrungZeichen = True
Me.txtUID.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtUID.ForeColor = System.Drawing.Color.Black
Me.txtUID.Location = New System.Drawing.Point(729, 43)
Me.txtUID.MaxLineLength = -1
Me.txtUID.MaxLines_Warning = ""
Me.txtUID.MaxLines_Warning_Label = Nothing
Me.txtUID.Name = "txtUID"
Me.txtUID.Size = New System.Drawing.Size(128, 20)
Me.txtUID.TabIndex = 106
'
'cbxEORI
'
Me.cbxEORI.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbxEORI.AutoSize = True
Me.cbxEORI.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxEORI.Location = New System.Drawing.Point(589, 72)
Me.cbxEORI.Name = "cbxEORI"
Me.cbxEORI.Size = New System.Drawing.Size(104, 17)
Me.cbxEORI.TabIndex = 107
Me.cbxEORI.Text = "EORI-Prüfung"
Me.cbxEORI.UseVisualStyleBackColor = True
'
'txtEORI
'
Me.txtEORI._DateTimeOnly = False
Me.txtEORI._numbersOnly = False
Me.txtEORI._numbersOnlyKommastellen = ""
Me.txtEORI._numbersOnlyTrennzeichen = True
Me.txtEORI._Prozent = False
Me.txtEORI._ShortDateNew = False
Me.txtEORI._ShortDateOnly = False
Me.txtEORI._TimeOnly = False
Me.txtEORI._TimeOnly_Seconds = False
Me.txtEORI._value = Nothing
Me.txtEORI._Waehrung = False
Me.txtEORI._WaehrungZeichen = True
Me.txtEORI.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.txtEORI.ForeColor = System.Drawing.Color.Black
Me.txtEORI.Location = New System.Drawing.Point(729, 69)
Me.txtEORI.MaxLineLength = -1
Me.txtEORI.MaxLines_Warning = ""
Me.txtEORI.MaxLines_Warning_Label = Nothing
Me.txtEORI.Name = "txtEORI"
Me.txtEORI.Size = New System.Drawing.Size(128, 20)
Me.txtEORI.TabIndex = 108
'
'MyPanel1
'
Me.MyPanel1.BackColor = System.Drawing.Color.White
Me.MyPanel1.Controls.Add(Me.btnCancel)
Me.MyPanel1.Controls.Add(Me.btnOK)
Me.MyPanel1.Controls.Add(Me.btnSave)
Me.MyPanel1.Controls.Add(Me.btnPDFReport)
Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.MyPanel1.Location = New System.Drawing.Point(0, 503)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(922, 60)
Me.MyPanel1.TabIndex = 109
'
'btnCancel
'
Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCancel.ForeColor = System.Drawing.Color.Black
Me.btnCancel.Image = Global.SDL.My.Resources.Resources.del
Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancel.Location = New System.Drawing.Point(4, 10)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(113, 39)
Me.btnCancel.TabIndex = 21
Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCancel.UseVisualStyleBackColor = True
'
'btnOK
'
Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.ForeColor = System.Drawing.Color.Black
Me.btnOK.Image = Global.SDL.My.Resources.Resources.ok
Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOK.Location = New System.Drawing.Point(801, 10)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(112, 39)
Me.btnOK.TabIndex = 19
Me.btnOK.Text = "Abschließen"
Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnOK.UseVisualStyleBackColor = True
'
'btnSave
'
Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSave.ForeColor = System.Drawing.Color.Black
Me.btnSave.Image = CType(resources.GetObject("btnSave.Image"), System.Drawing.Image)
Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSave.Location = New System.Drawing.Point(689, 10)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(97, 39)
Me.btnSave.TabIndex = 20
Me.btnSave.Text = "Speichern"
Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSave.UseVisualStyleBackColor = True
'
'btnPDFReport
'
Me.btnPDFReport.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnPDFReport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPDFReport.ForeColor = System.Drawing.Color.Black
Me.btnPDFReport.Image = Global.SDL.My.Resources.Resources.pdf1
Me.btnPDFReport.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPDFReport.Location = New System.Drawing.Point(360, 10)
Me.btnPDFReport.Name = "btnPDFReport"
Me.btnPDFReport.Size = New System.Drawing.Size(107, 47)
Me.btnPDFReport.TabIndex = 80
Me.btnPDFReport.Text = "Bericht"
Me.btnPDFReport.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnPDFReport.UseVisualStyleBackColor = True
'
'lblFiskaluebersicht
'
Me.lblFiskaluebersicht.AutoSize = True
Me.lblFiskaluebersicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFiskaluebersicht.Location = New System.Drawing.Point(8, 12)
Me.lblFiskaluebersicht.Name = "lblFiskaluebersicht"
Me.lblFiskaluebersicht.Size = New System.Drawing.Size(140, 20)
Me.lblFiskaluebersicht.TabIndex = 111
Me.lblFiskaluebersicht.Text = "Fiskaluebersicht"
'
'lblCheckliste
'
Me.lblCheckliste.AutoSize = True
Me.lblCheckliste.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblCheckliste.Location = New System.Drawing.Point(209, 12)
Me.lblCheckliste.Name = "lblCheckliste"
Me.lblCheckliste.Size = New System.Drawing.Size(92, 20)
Me.lblCheckliste.TabIndex = 112
Me.lblCheckliste.Text = "Checkliste"
'
'lblUnterlagen
'
Me.lblUnterlagen.AutoSize = True
Me.lblUnterlagen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblUnterlagen.Location = New System.Drawing.Point(6, 94)
Me.lblUnterlagen.Name = "lblUnterlagen"
Me.lblUnterlagen.Size = New System.Drawing.Size(98, 20)
Me.lblUnterlagen.TabIndex = 113
Me.lblUnterlagen.Text = "Unterlagen"
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.AllowUserToAddRows = False
Me.MyDatagridview1.AllowUserToDeleteRows = False
Me.MyDatagridview1.AllowUserToOrderColumns = True
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Location = New System.Drawing.Point(78, 267)
Me.MyDatagridview1.MultiSelect = False
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.MyDatagridview1.Size = New System.Drawing.Size(190, 126)
Me.MyDatagridview1.TabIndex = 115
'
'MyPanel2
'
Me.MyPanel2.AutoSize = True
Me.MyPanel2.BackColor = System.Drawing.Color.White
Me.MyPanel2.Controls.Add(Me.lblUnterlagen)
Me.MyPanel2.Controls.Add(Me.MyDatagridview2)
Me.MyPanel2.Controls.Add(Me.MyDatagridview1)
Me.MyPanel2.Location = New System.Drawing.Point(213, 35)
Me.MyPanel2.Name = "MyPanel2"
Me.MyPanel2.Size = New System.Drawing.Size(700, 442)
Me.MyPanel2.TabIndex = 110
'
'MyDatagridview2
'
Me.MyDatagridview2.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview2.AllowUserToAddRows = False
Me.MyDatagridview2.AllowUserToDeleteRows = False
Me.MyDatagridview2.AllowUserToOrderColumns = True
Me.MyDatagridview2.AllowUserToResizeRows = False
Me.MyDatagridview2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.MyDatagridview2.BackgroundColor = System.Drawing.Color.White
Me.MyDatagridview2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview2.Location = New System.Drawing.Point(110, 94)
Me.MyDatagridview2.MultiSelect = False
Me.MyDatagridview2.Name = "MyDatagridview2"
Me.MyDatagridview2.ReadOnly = True
Me.MyDatagridview2.RowHeadersVisible = False
Me.MyDatagridview2.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.MyDatagridview2.Size = New System.Drawing.Size(190, 126)
Me.MyDatagridview2.TabIndex = 116
'
'usrcntlFiskaluebersicht
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.lblCheckliste)
Me.Controls.Add(Me.lblFiskaluebersicht)
Me.Controls.Add(Me.MyPanel1)
Me.Controls.Add(Me.cbxEORI)
Me.Controls.Add(Me.txtEORI)
Me.Controls.Add(Me.cbxUID)
Me.Controls.Add(Me.txtUID)
Me.Controls.Add(Me.cbxVollmacht)
Me.Controls.Add(Me.txtVM)
Me.Controls.Add(Me.cbxBonitaet)
Me.Controls.Add(Me.txtBon)
Me.Controls.Add(Me.cbxHomepage)
Me.Controls.Add(Me.txtHomepage)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.dgvFiskaluebersicht)
Me.Controls.Add(Me.MyPanel2)
Me.Name = "usrcntlFiskaluebersicht"
Me.Size = New System.Drawing.Size(922, 563)
CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel1.ResumeLayout(False)
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel2.ResumeLayout(False)
Me.MyPanel2.PerformLayout()
CType(Me.MyDatagridview2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents dgvFiskaluebersicht As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents btn As Button
Friend WithEvents cbxHomepage As CheckBox
Friend WithEvents txtHomepage As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxBonitaet As CheckBox
Friend WithEvents txtBon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxVollmacht As CheckBox
Friend WithEvents txtVM As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxUID As CheckBox
Friend WithEvents txtUID As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxEORI As CheckBox
Friend WithEvents txtEORI As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents btnCancel As Button
Friend WithEvents btnOK As Button
Friend WithEvents btnSave As Button
Friend WithEvents btnPDFReport As Button
Friend WithEvents lblFiskaluebersicht As Label
Friend WithEvents lblCheckliste As Label
Friend WithEvents lblUnterlagen As Label
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents MyDatagridview2 As VERAG_PROG_ALLGEMEIN.MyDatagridview
End Class

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

@@ -0,0 +1,143 @@
<?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>
</root>

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

@@ -0,0 +1,87 @@

Public Class usrcntlFiskaluebersicht
Dim FUNC As New cProgramFunctions
Public kdNr As Integer = -1
Dim SQL As New SQL
Public KD_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert
Public Event FiskalChanged()
Dim fk As VERAG_PROG_ALLGEMEIN.cFiskalkunden
Sub initDGVFiskaluebersicht()
dgvFiskaluebersicht.Columns.Clear()
With dgvFiskaluebersicht
.DataSource = SQL.loadDgvBySql("SELECT FK_Datum as Datum FROM tblFiskalkunden WHERE FK_Kdnr='" & kdNr & "' ORDER BY FK_Datum ", "FMZOLL")
.Columns("FK_Datum").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("FK_Datum").HeaderText = "Datum"
End With
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
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.SAVE()
initDGVFiskaluebersicht()
Else
MsgBox(hint)
End If
Else
MsgBox("Kein Datum angegeben!")
End If
End Sub
Private Function checkDateIsValid(ByRef checkDate As Date, ByVal hint As String) As Boolean
If Not IsDate(checkDate) Then
hint = checkDate & " ist kein Datumswert"
Return False
End If
If dgvFiskaluebersicht.Rows.Count = 0 Then Return True
For Each row As DataGridViewRow In dgvFiskaluebersicht.Rows
If Not IsDBNull(row.Cells("FK_Datum").Value) Then
If row.Cells("FK_Datum").Value.ToLower = Name.ToLower Then
hint = "Es existiert bereits ein Eintrag mit " & checkDate
Return False
End If
End If
Next
Return True
End Function
Private Sub cbxBonitaet_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBonitaet.CheckedChanged
End Sub
Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
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
fk.FK_locked = True
fk.SAVE()
End If
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
fk.SAVE()
End Sub
End Class

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

@@ -0,0 +1,122 @@
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
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))
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 tblTABLE 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
End Class

21
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()
@@ -424,9 +422,9 @@ Public Class cCreditSafeAPI
rest.AddQueryParam("vatNo", company.vatNo)
Else
If company.name <> "" Then rest.AddQueryParam("name", company.name)
If company.csStreet <> "" Then rest.AddQueryParam("street", company.csStreet)
If company.csPostalcode <> "" Then rest.AddQueryParam("postCode", company.csPostalcode)
If company.csCity <> "" Then rest.AddQueryParam("city", company.csCity)
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
@@ -495,6 +493,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
@@ -502,9 +503,7 @@ Public Class cCreditSafeAPI
Public Property csDFoundingDate As Date
Public Property csPDF As String
Public Property csFailure As String
Public Property csCity As String
Public Property csPostalcode As String
Public Property csStreet As String
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)
@@ -514,9 +513,9 @@ Public Class cCreditSafeAPI
country = _country
creditsafeNo = _creditsafeNo
lastChecked = _lastChecked
csStreet = _street
csPostalcode = _postalCode
csCity = _city
Street = _street
Postalcode = _postalCode
City = _city
End Sub
Public Sub New()

1
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

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