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

Fiskalkübersicht

Browse Source
This commit is contained in:
d.breimaier
2023-05-24 17:18:23 +02:00
parent a88357d646
commit a508c89c3a
10 changed files with 1870 additions and 157 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/SDL.vbproj
View File

@@ -641,6 +641,12 @@
<Compile Include="kassenbuch\frmPOSTerminal.vb"> <Compile Include="kassenbuch\frmPOSTerminal.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </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"> <Compile Include="kunden\frmKundenBesonderheiten_Add.Designer.vb">
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon> <DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
</Compile> </Compile>
@@ -2961,6 +2967,9 @@
<EmbeddedResource Include="kassenbuch\frmPOSTerminal.resx"> <EmbeddedResource Include="kassenbuch\frmPOSTerminal.resx">
<DependentUpon>frmPOSTerminal.vb</DependentUpon> <DependentUpon>frmPOSTerminal.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="kunden\Berichte\rptFiskalkunde.resx">
<DependentUpon>rptFiskalkunde.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenBesonderheiten_Add.resx"> <EmbeddedResource Include="kunden\frmKundenBesonderheiten_Add.resx">
<DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon> <DependentUpon>frmKundenBesonderheiten_Add.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

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

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

@@ -1223,10 +1223,16 @@ Partial Class frmKundenUebersichtZOLL
' '
Me.mnueFiskaluebersicht.Enabled = False Me.mnueFiskaluebersicht.Enabled = False
Me.mnueFiskaluebersicht.ForeColor = System.Drawing.Color.White Me.mnueFiskaluebersicht.ForeColor = System.Drawing.Color.White
Me.mnueFiskaluebersicht.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0) 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.Name = "mnueFiskaluebersicht"
Me.mnueFiskaluebersicht.Size = New System.Drawing.Size(107, 19) Me.mnueFiskaluebersicht.Size = New System.Drawing.Size(107, 64)
Me.mnueFiskaluebersicht.Text = "Fiskalübersicht" 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 'mnueFiskal
' '

1
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -203,6 +203,7 @@ Public Class frmKundenUebersichtZOLL
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Fiskaldaten", Me) Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Fiskaldaten", Me) Then
mnueFiskal.Visible = True mnueFiskal.Visible = True
mnueFiskaluebersicht.Visible = True mnueFiskaluebersicht.Visible = True
mnueFiskaluebersicht.Visible = True
End If End If

110
SDL/kunden/usrcntlFiskaluebersicht.Designer.vb generated
View File

@@ -39,14 +39,13 @@ Partial Class usrcntlFiskaluebersicht
Me.btnPDFReport = New System.Windows.Forms.Button() Me.btnPDFReport = New System.Windows.Forms.Button()
Me.dgvFiskaluebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvFiskaluebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.rtbZwischenh = New System.Windows.Forms.RichTextBox() Me.rtfZwischenh = New System.Windows.Forms.RichTextBox()
Me.dgvZwischenh = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvZwischenh = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.rtfEmpfaenger = New System.Windows.Forms.RichTextBox() Me.rtfEmpfaenger = New System.Windows.Forms.RichTextBox()
Me.rtfLieferanten = New System.Windows.Forms.RichTextBox() Me.rtfLieferanten = New System.Windows.Forms.RichTextBox()
Me.dgvEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvLieferanten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvLieferanten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Button3 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.lblAnmerkungen = New System.Windows.Forms.Label() Me.lblAnmerkungen = New System.Windows.Forms.Label()
@@ -84,6 +83,7 @@ Partial Class usrcntlFiskaluebersicht
Me.dgvUnterlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvUnterlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cbxUID = New System.Windows.Forms.CheckBox() Me.cbxUID = New System.Windows.Forms.CheckBox()
Me.txtUID = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblBon = New System.Windows.Forms.Label()
CType(Me.picLocked, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picLocked, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout() Me.MyPanel1.SuspendLayout()
CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvFiskaluebersicht, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -114,9 +114,9 @@ Partial Class usrcntlFiskaluebersicht
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.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.Location = New System.Drawing.Point(8, 12)
Me.lblFiskaluebersicht.Name = "lblFiskaluebersicht" Me.lblFiskaluebersicht.Name = "lblFiskaluebersicht"
Me.lblFiskaluebersicht.Size = New System.Drawing.Size(140, 20) Me.lblFiskaluebersicht.Size = New System.Drawing.Size(130, 20)
Me.lblFiskaluebersicht.TabIndex = 111 Me.lblFiskaluebersicht.TabIndex = 111
Me.lblFiskaluebersicht.Text = "Fiskaluebersicht" Me.lblFiskaluebersicht.Text = "Fiskalübersicht"
' '
'lblCheckliste 'lblCheckliste
' '
@@ -189,7 +189,7 @@ Partial Class usrcntlFiskaluebersicht
Me.cbxFiskalart.FormattingEnabled = True Me.cbxFiskalart.FormattingEnabled = True
Me.cbxFiskalart.Location = New System.Drawing.Point(419, 12) Me.cbxFiskalart.Location = New System.Drawing.Point(419, 12)
Me.cbxFiskalart.Name = "cbxFiskalart" Me.cbxFiskalart.Name = "cbxFiskalart"
Me.cbxFiskalart.Size = New System.Drawing.Size(35, 21) Me.cbxFiskalart.Size = New System.Drawing.Size(53, 21)
Me.cbxFiskalart.TabIndex = 117 Me.cbxFiskalart.TabIndex = 117
' '
'MyPanel1 'MyPanel1
@@ -241,9 +241,9 @@ Partial Class usrcntlFiskaluebersicht
Me.btnPDFReport.ForeColor = System.Drawing.Color.Black Me.btnPDFReport.ForeColor = System.Drawing.Color.Black
Me.btnPDFReport.Image = Global.SDL.My.Resources.Resources.pdf1 Me.btnPDFReport.Image = Global.SDL.My.Resources.Resources.pdf1
Me.btnPDFReport.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnPDFReport.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPDFReport.Location = New System.Drawing.Point(365, 10) Me.btnPDFReport.Location = New System.Drawing.Point(365, 6)
Me.btnPDFReport.Name = "btnPDFReport" Me.btnPDFReport.Name = "btnPDFReport"
Me.btnPDFReport.Size = New System.Drawing.Size(107, 47) Me.btnPDFReport.Size = New System.Drawing.Size(107, 46)
Me.btnPDFReport.TabIndex = 80 Me.btnPDFReport.TabIndex = 80
Me.btnPDFReport.Text = "Bericht" Me.btnPDFReport.Text = "Bericht"
Me.btnPDFReport.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnPDFReport.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -278,14 +278,14 @@ Partial Class usrcntlFiskaluebersicht
Me.MyPanel2.AutoScrollMinSize = New System.Drawing.Size(0, 10) Me.MyPanel2.AutoScrollMinSize = New System.Drawing.Size(0, 10)
Me.MyPanel2.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.MyPanel2.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.MyPanel2.BackColor = System.Drawing.Color.White Me.MyPanel2.BackColor = System.Drawing.Color.White
Me.MyPanel2.Controls.Add(Me.rtbZwischenh) Me.MyPanel2.Controls.Add(Me.lblBon)
Me.MyPanel2.Controls.Add(Me.rtfZwischenh)
Me.MyPanel2.Controls.Add(Me.dgvZwischenh) Me.MyPanel2.Controls.Add(Me.dgvZwischenh)
Me.MyPanel2.Controls.Add(Me.Label6) Me.MyPanel2.Controls.Add(Me.Label6)
Me.MyPanel2.Controls.Add(Me.rtfEmpfaenger) Me.MyPanel2.Controls.Add(Me.rtfEmpfaenger)
Me.MyPanel2.Controls.Add(Me.rtfLieferanten) Me.MyPanel2.Controls.Add(Me.rtfLieferanten)
Me.MyPanel2.Controls.Add(Me.dgvEmpfaenger) Me.MyPanel2.Controls.Add(Me.dgvEmpfaenger)
Me.MyPanel2.Controls.Add(Me.dgvLieferanten) Me.MyPanel2.Controls.Add(Me.dgvLieferanten)
Me.MyPanel2.Controls.Add(Me.Button3)
Me.MyPanel2.Controls.Add(Me.Label3) Me.MyPanel2.Controls.Add(Me.Label3)
Me.MyPanel2.Controls.Add(Me.Label2) Me.MyPanel2.Controls.Add(Me.Label2)
Me.MyPanel2.Controls.Add(Me.lblAnmerkungen) Me.MyPanel2.Controls.Add(Me.lblAnmerkungen)
@@ -328,15 +328,15 @@ Partial Class usrcntlFiskaluebersicht
Me.MyPanel2.Size = New System.Drawing.Size(721, 657) Me.MyPanel2.Size = New System.Drawing.Size(721, 657)
Me.MyPanel2.TabIndex = 110 Me.MyPanel2.TabIndex = 110
' '
'rtbZwischenh 'rtfZwischenh
' '
Me.rtbZwischenh.Enabled = False Me.rtfZwischenh.Enabled = False
Me.rtbZwischenh.Location = New System.Drawing.Point(237, 283) Me.rtfZwischenh.Location = New System.Drawing.Point(237, 283)
Me.rtbZwischenh.Name = "rtbZwischenh" Me.rtfZwischenh.Name = "rtfZwischenh"
Me.rtbZwischenh.Size = New System.Drawing.Size(225, 78) Me.rtfZwischenh.Size = New System.Drawing.Size(225, 78)
Me.rtbZwischenh.TabIndex = 176 Me.rtfZwischenh.TabIndex = 176
Me.rtbZwischenh.Text = "" Me.rtfZwischenh.Text = ""
Me.rtbZwischenh.Visible = False Me.rtfZwischenh.Visible = False
' '
'dgvZwischenh 'dgvZwischenh
' '
@@ -422,20 +422,6 @@ Partial Class usrcntlFiskaluebersicht
Me.dgvLieferanten.Size = New System.Drawing.Size(215, 92) Me.dgvLieferanten.Size = New System.Drawing.Size(215, 92)
Me.dgvLieferanten.TabIndex = 170 Me.dgvLieferanten.TabIndex = 170
' '
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.spedbuch
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.Black
Me.Button3.Location = New System.Drawing.Point(629, 224)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(35, 33)
Me.Button3.TabIndex = 169
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.UseVisualStyleBackColor = True
'
'Label3 'Label3
' '
Me.Label3.AutoSize = True Me.Label3.AutoSize = True
@@ -481,7 +467,7 @@ Partial Class usrcntlFiskaluebersicht
Me.txtGesellschafter._Waehrung = False Me.txtGesellschafter._Waehrung = False
Me.txtGesellschafter._WaehrungZeichen = True Me.txtGesellschafter._WaehrungZeichen = True
Me.txtGesellschafter.ForeColor = System.Drawing.Color.Black Me.txtGesellschafter.ForeColor = System.Drawing.Color.Black
Me.txtGesellschafter.Location = New System.Drawing.Point(419, 188) Me.txtGesellschafter.Location = New System.Drawing.Point(419, 165)
Me.txtGesellschafter.MaxLineLength = -1 Me.txtGesellschafter.MaxLineLength = -1
Me.txtGesellschafter.MaxLines_Warning = "" Me.txtGesellschafter.MaxLines_Warning = ""
Me.txtGesellschafter.MaxLines_Warning_Label = Nothing Me.txtGesellschafter.MaxLines_Warning_Label = Nothing
@@ -493,7 +479,7 @@ Partial Class usrcntlFiskaluebersicht
' '
Me.Label12.AutoSize = True Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.Location = New System.Drawing.Point(279, 191) Me.Label12.Location = New System.Drawing.Point(279, 168)
Me.Label12.Name = "Label12" Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(88, 13) Me.Label12.Size = New System.Drawing.Size(88, 13)
Me.Label12.TabIndex = 164 Me.Label12.TabIndex = 164
@@ -514,7 +500,7 @@ Partial Class usrcntlFiskaluebersicht
Me.txtGF._Waehrung = False Me.txtGF._Waehrung = False
Me.txtGF._WaehrungZeichen = True Me.txtGF._WaehrungZeichen = True
Me.txtGF.ForeColor = System.Drawing.Color.Black Me.txtGF.ForeColor = System.Drawing.Color.Black
Me.txtGF.Location = New System.Drawing.Point(419, 162) Me.txtGF.Location = New System.Drawing.Point(419, 139)
Me.txtGF.MaxLineLength = -1 Me.txtGF.MaxLineLength = -1
Me.txtGF.MaxLines_Warning = "" Me.txtGF.MaxLines_Warning = ""
Me.txtGF.MaxLines_Warning_Label = Nothing Me.txtGF.MaxLines_Warning_Label = Nothing
@@ -526,7 +512,7 @@ Partial Class usrcntlFiskaluebersicht
' '
Me.Label11.AutoSize = True Me.Label11.AutoSize = True
Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(279, 165) Me.Label11.Location = New System.Drawing.Point(279, 142)
Me.Label11.Name = "Label11" Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(97, 13) Me.Label11.Size = New System.Drawing.Size(97, 13)
Me.Label11.TabIndex = 162 Me.Label11.TabIndex = 162
@@ -557,12 +543,12 @@ Partial Class usrcntlFiskaluebersicht
Me.txtKredit._Waehrung = True Me.txtKredit._Waehrung = True
Me.txtKredit._WaehrungZeichen = True Me.txtKredit._WaehrungZeichen = True
Me.txtKredit.ForeColor = System.Drawing.Color.Black Me.txtKredit.ForeColor = System.Drawing.Color.Black
Me.txtKredit.Location = New System.Drawing.Point(150, 162) Me.txtKredit.Location = New System.Drawing.Point(144, 162)
Me.txtKredit.MaxLineLength = -1 Me.txtKredit.MaxLineLength = -1
Me.txtKredit.MaxLines_Warning = "" Me.txtKredit.MaxLines_Warning = ""
Me.txtKredit.MaxLines_Warning_Label = Nothing Me.txtKredit.MaxLines_Warning_Label = Nothing
Me.txtKredit.Name = "txtKredit" Me.txtKredit.Name = "txtKredit"
Me.txtKredit.Size = New System.Drawing.Size(91, 20) Me.txtKredit.Size = New System.Drawing.Size(97, 20)
Me.txtKredit.TabIndex = 160 Me.txtKredit.TabIndex = 160
' '
'txtAnzMA 'txtAnzMA
@@ -580,12 +566,12 @@ Partial Class usrcntlFiskaluebersicht
Me.txtAnzMA._Waehrung = False Me.txtAnzMA._Waehrung = False
Me.txtAnzMA._WaehrungZeichen = False Me.txtAnzMA._WaehrungZeichen = False
Me.txtAnzMA.ForeColor = System.Drawing.Color.Black Me.txtAnzMA.ForeColor = System.Drawing.Color.Black
Me.txtAnzMA.Location = New System.Drawing.Point(150, 136) Me.txtAnzMA.Location = New System.Drawing.Point(144, 136)
Me.txtAnzMA.MaxLineLength = -1 Me.txtAnzMA.MaxLineLength = -1
Me.txtAnzMA.MaxLines_Warning = "" Me.txtAnzMA.MaxLines_Warning = ""
Me.txtAnzMA.MaxLines_Warning_Label = Nothing Me.txtAnzMA.MaxLines_Warning_Label = Nothing
Me.txtAnzMA.Name = "txtAnzMA" Me.txtAnzMA.Name = "txtAnzMA"
Me.txtAnzMA.Size = New System.Drawing.Size(91, 20) Me.txtAnzMA.Size = New System.Drawing.Size(97, 20)
Me.txtAnzMA.TabIndex = 159 Me.txtAnzMA.TabIndex = 159
' '
'Label9 'Label9
@@ -613,19 +599,19 @@ Partial Class usrcntlFiskaluebersicht
Me.txtWaren._Waehrung = False Me.txtWaren._Waehrung = False
Me.txtWaren._WaehrungZeichen = True Me.txtWaren._WaehrungZeichen = True
Me.txtWaren.ForeColor = System.Drawing.Color.Black Me.txtWaren.ForeColor = System.Drawing.Color.Black
Me.txtWaren.Location = New System.Drawing.Point(419, 136) Me.txtWaren.Location = New System.Drawing.Point(144, 188)
Me.txtWaren.MaxLineLength = -1 Me.txtWaren.MaxLineLength = -1
Me.txtWaren.MaxLines_Warning = "" Me.txtWaren.MaxLines_Warning = ""
Me.txtWaren.MaxLines_Warning_Label = Nothing Me.txtWaren.MaxLines_Warning_Label = Nothing
Me.txtWaren.Name = "txtWaren" Me.txtWaren.Name = "txtWaren"
Me.txtWaren.Size = New System.Drawing.Size(239, 20) Me.txtWaren.Size = New System.Drawing.Size(512, 20)
Me.txtWaren.TabIndex = 157 Me.txtWaren.TabIndex = 157
' '
'Label8 'Label8
' '
Me.Label8.AutoSize = True Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(279, 139) Me.Label8.Location = New System.Drawing.Point(8, 191)
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(44, 13) Me.Label8.Size = New System.Drawing.Size(44, 13)
Me.Label8.TabIndex = 156 Me.Label8.TabIndex = 156
@@ -646,13 +632,13 @@ Partial Class usrcntlFiskaluebersicht
Me.txtGriendungsjahr._Waehrung = False Me.txtGriendungsjahr._Waehrung = False
Me.txtGriendungsjahr._WaehrungZeichen = False Me.txtGriendungsjahr._WaehrungZeichen = False
Me.txtGriendungsjahr.ForeColor = System.Drawing.Color.Black Me.txtGriendungsjahr.ForeColor = System.Drawing.Color.Black
Me.txtGriendungsjahr.Location = New System.Drawing.Point(150, 110) Me.txtGriendungsjahr.Location = New System.Drawing.Point(144, 110)
Me.txtGriendungsjahr.MaxLength = 10 Me.txtGriendungsjahr.MaxLength = 10
Me.txtGriendungsjahr.MaxLineLength = -1 Me.txtGriendungsjahr.MaxLineLength = -1
Me.txtGriendungsjahr.MaxLines_Warning = "" Me.txtGriendungsjahr.MaxLines_Warning = ""
Me.txtGriendungsjahr.MaxLines_Warning_Label = Nothing Me.txtGriendungsjahr.MaxLines_Warning_Label = Nothing
Me.txtGriendungsjahr.Name = "txtGriendungsjahr" Me.txtGriendungsjahr.Name = "txtGriendungsjahr"
Me.txtGriendungsjahr.Size = New System.Drawing.Size(91, 20) Me.txtGriendungsjahr.Size = New System.Drawing.Size(97, 20)
Me.txtGriendungsjahr.TabIndex = 155 Me.txtGriendungsjahr.TabIndex = 155
' '
'Label7 'Label7
@@ -735,7 +721,7 @@ Partial Class usrcntlFiskaluebersicht
' '
Me.rtbAnmerkung.Location = New System.Drawing.Point(144, 544) Me.rtbAnmerkung.Location = New System.Drawing.Point(144, 544)
Me.rtbAnmerkung.Name = "rtbAnmerkung" Me.rtbAnmerkung.Name = "rtbAnmerkung"
Me.rtbAnmerkung.Size = New System.Drawing.Size(497, 78) Me.rtbAnmerkung.Size = New System.Drawing.Size(497, 99)
Me.rtbAnmerkung.TabIndex = 130 Me.rtbAnmerkung.TabIndex = 130
Me.rtbAnmerkung.Text = "" Me.rtbAnmerkung.Text = ""
' '
@@ -823,14 +809,14 @@ Partial Class usrcntlFiskaluebersicht
Me.txtVM._Waehrung = False Me.txtVM._Waehrung = False
Me.txtVM._WaehrungZeichen = False Me.txtVM._WaehrungZeichen = False
Me.txtVM.ForeColor = System.Drawing.Color.Black Me.txtVM.ForeColor = System.Drawing.Color.Black
Me.txtVM.Location = New System.Drawing.Point(574, 69) Me.txtVM.Location = New System.Drawing.Point(588, 69)
Me.txtVM.MaxLength = 10 Me.txtVM.MaxLength = 10
Me.txtVM.MaxLineLength = -1 Me.txtVM.MaxLineLength = -1
Me.txtVM.MaxLines_Warning = "" Me.txtVM.MaxLines_Warning = ""
Me.txtVM.MaxLines_Warning_Label = Nothing Me.txtVM.MaxLines_Warning_Label = Nothing
Me.txtVM.Name = "txtVM" Me.txtVM.Name = "txtVM"
Me.txtVM.ReadOnly = True Me.txtVM.ReadOnly = True
Me.txtVM.Size = New System.Drawing.Size(82, 20) Me.txtVM.Size = New System.Drawing.Size(68, 20)
Me.txtVM.TabIndex = 104 Me.txtVM.TabIndex = 104
' '
'cbxBonitaet 'cbxBonitaet
@@ -860,14 +846,14 @@ Partial Class usrcntlFiskaluebersicht
Me.txtBon._Waehrung = False Me.txtBon._Waehrung = False
Me.txtBon._WaehrungZeichen = False Me.txtBon._WaehrungZeichen = False
Me.txtBon.ForeColor = System.Drawing.Color.Black Me.txtBon.ForeColor = System.Drawing.Color.Black
Me.txtBon.Location = New System.Drawing.Point(575, 45) Me.txtBon.Location = New System.Drawing.Point(588, 45)
Me.txtBon.MaxLength = 10 Me.txtBon.MaxLength = 10
Me.txtBon.MaxLineLength = -1 Me.txtBon.MaxLineLength = -1
Me.txtBon.MaxLines_Warning = "" Me.txtBon.MaxLines_Warning = ""
Me.txtBon.MaxLines_Warning_Label = Nothing Me.txtBon.MaxLines_Warning_Label = Nothing
Me.txtBon.Name = "txtBon" Me.txtBon.Name = "txtBon"
Me.txtBon.ReadOnly = True Me.txtBon.ReadOnly = True
Me.txtBon.Size = New System.Drawing.Size(82, 20) Me.txtBon.Size = New System.Drawing.Size(69, 20)
Me.txtBon.TabIndex = 102 Me.txtBon.TabIndex = 102
' '
'cbxEORI 'cbxEORI
@@ -909,13 +895,13 @@ Partial Class usrcntlFiskaluebersicht
Me.txtEORI._Waehrung = False Me.txtEORI._Waehrung = False
Me.txtEORI._WaehrungZeichen = True Me.txtEORI._WaehrungZeichen = True
Me.txtEORI.ForeColor = System.Drawing.Color.Black Me.txtEORI.ForeColor = System.Drawing.Color.Black
Me.txtEORI.Location = New System.Drawing.Point(148, 47) Me.txtEORI.Location = New System.Drawing.Point(144, 47)
Me.txtEORI.MaxLineLength = -1 Me.txtEORI.MaxLineLength = -1
Me.txtEORI.MaxLines_Warning = "" Me.txtEORI.MaxLines_Warning = ""
Me.txtEORI.MaxLines_Warning_Label = Nothing Me.txtEORI.MaxLines_Warning_Label = Nothing
Me.txtEORI.Name = "txtEORI" Me.txtEORI.Name = "txtEORI"
Me.txtEORI.ReadOnly = True Me.txtEORI.ReadOnly = True
Me.txtEORI.Size = New System.Drawing.Size(93, 20) Me.txtEORI.Size = New System.Drawing.Size(97, 20)
Me.txtEORI.TabIndex = 108 Me.txtEORI.TabIndex = 108
' '
'txtHomepage 'txtHomepage
@@ -933,12 +919,12 @@ Partial Class usrcntlFiskaluebersicht
Me.txtHomepage._Waehrung = False Me.txtHomepage._Waehrung = False
Me.txtHomepage._WaehrungZeichen = True Me.txtHomepage._WaehrungZeichen = True
Me.txtHomepage.ForeColor = System.Drawing.Color.Black Me.txtHomepage.ForeColor = System.Drawing.Color.Black
Me.txtHomepage.Location = New System.Drawing.Point(148, 20) Me.txtHomepage.Location = New System.Drawing.Point(144, 20)
Me.txtHomepage.MaxLineLength = -1 Me.txtHomepage.MaxLineLength = -1
Me.txtHomepage.MaxLines_Warning = "" Me.txtHomepage.MaxLines_Warning = ""
Me.txtHomepage.MaxLines_Warning_Label = Nothing Me.txtHomepage.MaxLines_Warning_Label = Nothing
Me.txtHomepage.Name = "txtHomepage" Me.txtHomepage.Name = "txtHomepage"
Me.txtHomepage.Size = New System.Drawing.Size(128, 20) Me.txtHomepage.Size = New System.Drawing.Size(132, 20)
Me.txtHomepage.TabIndex = 100 Me.txtHomepage.TabIndex = 100
' '
'dgvUnterlagen 'dgvUnterlagen
@@ -986,15 +972,25 @@ Partial Class usrcntlFiskaluebersicht
Me.txtUID._Waehrung = False Me.txtUID._Waehrung = False
Me.txtUID._WaehrungZeichen = True Me.txtUID._WaehrungZeichen = True
Me.txtUID.ForeColor = System.Drawing.Color.Black Me.txtUID.ForeColor = System.Drawing.Color.Black
Me.txtUID.Location = New System.Drawing.Point(575, 21) Me.txtUID.Location = New System.Drawing.Point(588, 21)
Me.txtUID.MaxLineLength = -1 Me.txtUID.MaxLineLength = -1
Me.txtUID.MaxLines_Warning = "" Me.txtUID.MaxLines_Warning = ""
Me.txtUID.MaxLines_Warning_Label = Nothing Me.txtUID.MaxLines_Warning_Label = Nothing
Me.txtUID.Name = "txtUID" Me.txtUID.Name = "txtUID"
Me.txtUID.ReadOnly = True Me.txtUID.ReadOnly = True
Me.txtUID.Size = New System.Drawing.Size(83, 20) Me.txtUID.Size = New System.Drawing.Size(70, 20)
Me.txtUID.TabIndex = 106 Me.txtUID.TabIndex = 106
' '
'lblBon
'
Me.lblBon.AutoSize = True
Me.lblBon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBon.Location = New System.Drawing.Point(539, 50)
Me.lblBon.Name = "lblBon"
Me.lblBon.Size = New System.Drawing.Size(11, 13)
Me.lblBon.TabIndex = 139
Me.lblBon.Text = "-"
'
'usrcntlFiskaluebersicht 'usrcntlFiskaluebersicht
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1081,15 +1077,15 @@ Partial Class usrcntlFiskaluebersicht
Friend WithEvents Label11 As Label Friend WithEvents Label11 As Label
Friend WithEvents Label10 As Label Friend WithEvents Label10 As Label
Friend WithEvents txtKredit As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtKredit As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rtbZwischenh As RichTextBox Friend WithEvents rtfZwischenh As RichTextBox
Friend WithEvents dgvZwischenh As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents dgvZwischenh As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Label6 As Label Friend WithEvents Label6 As Label
Friend WithEvents rtfEmpfaenger As RichTextBox Friend WithEvents rtfEmpfaenger As RichTextBox
Friend WithEvents rtfLieferanten As RichTextBox Friend WithEvents rtfLieferanten As RichTextBox
Friend WithEvents dgvEmpfaenger As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents dgvEmpfaenger As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents dgvLieferanten As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents dgvLieferanten As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Button3 As Button
Friend WithEvents Label3 As Label Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label Friend WithEvents Label2 As Label
Friend WithEvents lblAnmerkungen As Label Friend WithEvents lblAnmerkungen As Label
Friend WithEvents lblBon As Label
End Class End Class

196
SDL/kunden/usrcntlFiskaluebersicht.vb
View File

@@ -1,79 +1,71 @@
 
Imports System.Net Imports System.Net
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports com
Imports java.rmi.dgc
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Imports SDL.EORI Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Imports DocumentFormat.OpenXml.Vml.Spreadsheet
Imports DAKOSY_Worker.DEERRE
Imports DAKOSY_Worker.VERAG_KundenStamm_Export
Imports DAKOSY_Worker.VERAG_KundenStamm_Export_V2
Imports jdk.internal.org.objectweb.asm.tree
Imports DocumentFormat.OpenXml.Drawing.Charts
Imports System.IO
Public Class usrcntlFiskaluebersicht Public Class usrcntlFiskaluebersicht
Dim FUNC As New cProgramFunctions
Public kdNr As Integer = -1 Public kdNr As Integer = -1
Dim SQL As New SQL Dim SQL As New SQL
Public KUNDE As VERAG_PROG_ALLGEMEIN.cKunde Public KUNDE As VERAG_PROG_ALLGEMEIN.cKunde
Public KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert
Public ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen Public ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen
Public Event FiskalChanged()
Dim fk As VERAG_PROG_ALLGEMEIN.cFiskalkunden Dim fk As VERAG_PROG_ALLGEMEIN.cFiskalkunden
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER
Dim BA As VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft Dim BA As VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
Dim year As Integer
Sub initDGVFiskaluebersicht() Sub initDGVFiskaluebersicht()
With dgvFiskaluebersicht With dgvFiskaluebersicht
.Columns.Clear() .Columns.Clear()
.DataSource = SQL.loadDgvBySql("SELECT FK_Id , FK_Datum, FK_Art, FK_locked FROM tblFiskalkunden WHERE FK_Kdnr='" & kdNr & "' ORDER BY FK_Datum ", "FMZOLL") .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").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("FK_Datum").HeaderText = "Datum" .Columns("FK_Datum").HeaderText = "Datum"
.Columns("FK_Art").Visible = False .Columns("FK_Art").Visible = False
.Columns("FK_locked").Visible = False .Columns("FK_locked").Visible = False
.Columns("FK_Id").Visible = False .Columns("FK_Id").Visible = False
.Columns("FK_Kdnr").Visible = False
End With End With
End Sub End Sub
Sub initdgvLieferanten(year As Integer) Sub initdgvLieferanten()
Label2.Text = "Top 5 Lieferanten (" & year & ")" Label2.Text = "Top 5 Lieferanten (" & year & ")"
With dgvLieferanten With dgvLieferanten
.Columns.Clear() .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") .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")
.Columns("KdNr").Width = 50
End With End With
End Sub End Sub
Sub initdgvEmfpaenger(year As Integer) Sub initdgvEmfpaenger()
Label3.Text = "Top 5 Endempfänger (" & year & ")" Label3.Text = "Top 5 Endempfänger (" & year & ")"
With dgvEmpfaenger With dgvEmpfaenger
.Columns.Clear() .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") .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")
.Columns("KdNr").Width = 50
End With End With
End Sub End Sub
Sub initdgvZwischenhaendler(year As Integer) Sub initdgvZwischenhaendler()
Label6.Text = "Top 5 Zwischenhändler (" & year & ")" Label6.Text = "Top 5 Zwischenhändler (" & year & ")"
With dgvZwischenh With dgvZwischenh
.Columns.Clear() .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") .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 '.Columns("KdNr").Width = 50
End With End With
End Sub End Sub
@@ -82,8 +74,11 @@ Public Class usrcntlFiskaluebersicht
Sub initDGVUnterlagen() Sub initDGVUnterlagen()
With dgvUnterlagen With dgvUnterlagen
.DataSource = SQL.loadDgvBySql("SELECT [fka_id],[fka_KdNr],[fka_Name],[fka_Datum] , [fka_ArtId], [fka_docId] FROM [tblFiskalkundenAnhaenge] " & .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") " 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() .ClearSelection()
AddHandler .CellDoubleClick, Sub() AddHandler .CellDoubleClick, Sub()
@@ -109,19 +104,29 @@ Public Class usrcntlFiskaluebersicht
cbxFiskalart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT", "AT")) cbxFiskalart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT", "AT"))
cbxFiskalart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE")) cbxFiskalart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE"))
cbxAttachmentArt.Items.Clear() cbxAttachmentArt.Items.Clear()
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Passkopie", 1)) cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Passkopie", "Passkopie"))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firmenbuchauszug", 2)) cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firmenbuchauszug", "FBN-Auszug"))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handelsregister", 3)) cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handelsregister", "HR"))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Infoblatt", 4)) cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Infoblatt", "Info"))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Website", "Website"))
kdNr = _kdnr kdNr = _kdnr
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr)
BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr) BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr)
lblUnterlagen.Text = "Unterlagen" 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() initDGVFiskaluebersicht()
End Sub End Sub
@@ -185,6 +190,33 @@ Public Class usrcntlFiskaluebersicht
End Function End Function
Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click 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 End Sub
@@ -205,6 +237,7 @@ Public Class usrcntlFiskaluebersicht
End Sub End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
lblWarning.Text = ""
getFields() getFields()
If fk.SAVE() Then If fk.SAVE() Then
btnSave.Enabled = False btnSave.Enabled = False
@@ -220,6 +253,8 @@ Public Class usrcntlFiskaluebersicht
fk = New cFiskalkunden(dgvFiskaluebersicht.SelectedRows(0).Cells("FK_Id").Value) 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) Dim locked As Boolean = IIf(fk.FK_locked Is Nothing, False, fk.FK_locked)
setFields() setFields()
initDGVUnterlagen() initDGVUnterlagen()
@@ -235,6 +270,7 @@ Public Class usrcntlFiskaluebersicht
Button4.Enabled = False Button4.Enabled = False
clearTXT() clearTXT()
End If End If
BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr) BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr)
@@ -251,6 +287,7 @@ Public Class usrcntlFiskaluebersicht
rtbAnmerkung.Text = checkNullStr(fk.FK_Anmerkung) rtbAnmerkung.Text = checkNullStr(fk.FK_Anmerkung)
rtfLieferanten.Text = checkNullStr(fk.FK_Lieferanten) rtfLieferanten.Text = checkNullStr(fk.FK_Lieferanten)
rtfEmpfaenger.Text = checkNullStr(fk.FK_Empfaenger) rtfEmpfaenger.Text = checkNullStr(fk.FK_Empfaenger)
rtfZwischenh.Text = checkNullStr(fk.FK_Zwischenhaendler)
txtGriendungsjahr.Text = checkNullStr(fk.FK_Gruendungsdatum) txtGriendungsjahr.Text = checkNullStr(fk.FK_Gruendungsdatum)
txtGeschaeftszweck.Text = checkNullStr(fk.FK_Geschaeftszweck) txtGeschaeftszweck.Text = checkNullStr(fk.FK_Geschaeftszweck)
txtKredit.Text = checkNullStr(fk.FK_KreditMax) txtKredit.Text = checkNullStr(fk.FK_KreditMax)
@@ -284,6 +321,10 @@ Public Class usrcntlFiskaluebersicht
txtGesellschafter.Text = BA.ba_GFName txtGesellschafter.Text = BA.ba_GFName
End If 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
@@ -291,6 +332,13 @@ Public Class usrcntlFiskaluebersicht
txtBon.Text = CDate(KUNDE.Bonitätsdatum).ToShortDateString txtBon.Text = CDate(KUNDE.Bonitätsdatum).ToShortDateString
End If 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 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 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 End If
@@ -358,10 +406,7 @@ Public Class usrcntlFiskaluebersicht
If rtfEmpfaenger.Text = "" Then If rtfEmpfaenger.Text = "" Then
rtfEmpfaenger.Visible = False rtfEmpfaenger.Visible = False
initdgvEmfpaenger()
If checkNullStr(fk.FK_Datum) <> "" Then
initdgvEmfpaenger(CDate(fk.FK_Datum).Year)
End If
Else Else
rtfEmpfaenger.Visible = True rtfEmpfaenger.Visible = True
@@ -369,21 +414,17 @@ Public Class usrcntlFiskaluebersicht
If rtfLieferanten.Text = "" Then If rtfLieferanten.Text = "" Then
rtfLieferanten.Visible = False rtfLieferanten.Visible = False
If checkNullStr(fk.FK_Datum) <> "" Then initdgvLieferanten()
initdgvLieferanten(CDate(fk.FK_Datum).Year)
End If
Else Else
rtfLieferanten.Visible = True rtfLieferanten.Visible = True
End If End If
If rtbZwischenh.Text = "" Then If rtfZwischenh.Text = "" Then
rtbZwischenh.Visible = False rtfZwischenh.Visible = False
If checkNullStr(fk.FK_Datum) <> "" Then initdgvZwischenhaendler()
initdgvZwischenhaendler(CDate(fk.FK_Datum).Year)
End If
Else Else
rtbZwischenh.Visible = True rtfZwischenh.Visible = True
End If End If
@@ -397,14 +438,17 @@ Public Class usrcntlFiskaluebersicht
fk.FK_UID = txtUID.Text fk.FK_UID = txtUID.Text
fk.FK_EORI = txtEORI.Text fk.FK_EORI = txtEORI.Text
fk.FK_Anmerkung = rtbAnmerkung.Text fk.FK_Anmerkung = rtbAnmerkung.Text
fk.FK_KreditMax = CDbl(txtKredit.Text)
If txtKredit.Text <> "" Then
fk.FK_KreditMax = Double.Parse(txtKredit.Text)
End If
fk.FK_Geschaeftsfuehrer = txtGF.Text fk.FK_Geschaeftsfuehrer = txtGF.Text
fk.FK_Geschaeftszweck = txtGeschaeftszweck.Text fk.FK_Geschaeftszweck = txtGeschaeftszweck.Text
fk.FK_AnzahlMitarbeiter = txtAnzMA.Text fk.FK_AnzahlMitarbeiter = txtAnzMA.Text
fk.FK_Gesellschafter = txtGesellschafter.Text fk.FK_Gesellschafter = txtGesellschafter.Text
fk.FK_Gruendungsdatum = txtGriendungsjahr.Text fk.FK_Gruendungsdatum = txtGriendungsjahr.Text
fk.FK_Waren = txtWaren.Text
If checkNullStr(fk.FK_Empfaenger) = "" Then If checkNullStr(fk.FK_Empfaenger) = "" Then
@@ -609,11 +653,22 @@ Public Class usrcntlFiskaluebersicht
MsgBox("Fiskalübersicht ist bereits abgeschlossen und kann nicht gelöscht werden!") MsgBox("Fiskalübersicht ist bereits abgeschlossen und kann nicht gelöscht werden!")
Exit Sub Exit Sub
End If End If
If vbYes = MsgBox("Möchten Sie die Fiskalübersicht vom " & dgvFiskaluebersicht.SelectedRows(0).Cells("fk_datum").Value & " wirklich löschen?", vbYesNo) Then 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) 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() initDGVFiskaluebersicht()
End If End If
End If End If
End Sub End Sub
Public Sub clearTXT() Public Sub clearTXT()
@@ -629,12 +684,15 @@ Public Class usrcntlFiskaluebersicht
lblWarning.Text = "" lblWarning.Text = ""
txtHomepage.ForeColor = Color.Black txtHomepage.ForeColor = Color.Black
If fk.FK_Homepage_PDF > 0 And fk.FK_Homepage_URL = txtHomepage.Text Then
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(fk.FK_Homepage_PDF)
DS.OPEN_SINGLE()
End If
'If cbxHomepage.Checked Then Exit Sub 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 If txtHomepage.Text = "" Then
picOK.Visible = False picOK.Visible = False
@@ -660,13 +718,25 @@ Public Class usrcntlFiskaluebersicht
Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url) Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "", "FISKAL-" & fk.FK_Art, fk.FK_Kdnr, fk.FK_Datum, "Homepage.PDF")
Dim fi As New System.IO.FileInfo(pdf)
Dim path = DS.uploadDataToDATENSERVER(pdf, "Screenshot_Webseite", fi.Extension)
If path Then DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "FISKALKUNDENANHAENGE", fk.FK_Datum, "", "", "Website", kdNr)
fk.FK_Homepage_PDF = DS.da_id Dim fi As New System.IO.FileInfo(pdf)
End If 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.FK_Homepage_URL = url
fk.SAVE() fk.SAVE()
@@ -706,7 +776,6 @@ Public Class usrcntlFiskaluebersicht
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvUnterlagen.SelectedRows(0).Cells("fka_docId").Value) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvUnterlagen.SelectedRows(0).Cells("fka_docId").Value)
If DS.DELETE_COMPLETE() Then If DS.DELETE_COMPLETE() Then
Dim anh As New cFiskalkundenAnhaenge(anhId) Dim anh As New cFiskalkundenAnhaenge(anhId)
anh.DELETE()
initDGVUnterlagen() initDGVUnterlagen()
End If End If
@@ -718,10 +787,6 @@ Public Class usrcntlFiskaluebersicht
End If End If
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Private Sub Button3_Click(sender As Object, e As EventArgs)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
@@ -741,18 +806,19 @@ Public Class usrcntlFiskaluebersicht
Private Sub btnAddAttachments_Click(sender As Object, e As EventArgs) Handles btnAddAttachments.Click Private Sub btnAddAttachments_Click(sender As Object, e As EventArgs) Handles btnAddAttachments.Click
If cbxAttachmentArt._value = "" Then Exit Sub If cbxAttachmentArt._value = "" Then Exit Sub
Dim ArtId As Integer = cbxAttachmentArt._value Dim ArtId As String = cbxAttachmentArt._value
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "FISKALKUNDENANHAENGE", "", "", "", "ART_" & ArtId, kdNr) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "FISKALKUNDENANHAENGE", fk.FK_Datum, "", "", ArtId, kdNr)
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
Dim ANH = New VERAG_PROG_ALLGEMEIN.cFiskalkundenAnhaenge() Dim ANH = New VERAG_PROG_ALLGEMEIN.cFiskalkundenAnhaenge()
ANH.fka_ArtId = ArtId ANH.fka_Art = ArtId
ANH.fka_docId = DS.da_id ANH.fka_docId = DS.da_id
ANH.fka_Datum = Now() ANH.fka_Datum = Now()
ANH.fka_KdNr = kdNr ANH.fka_KdNr = kdNr
ANH.fka_Name = cbxAttachmentArt.SelectedItem.ToString ANH.fka_fkId = fk.FK_Id
ANH.fka_Name = DS.da_name
ANH.SAVE() ANH.SAVE()
initDGVUnterlagen() initDGVUnterlagen()
End If End If
@@ -779,8 +845,8 @@ Public Class usrcntlFiskaluebersicht
Private Sub panelChanged() Private Sub panelChanged()
For Each c As Control In MyPanel1.Controls For Each c As Control In MyPanel1.Controls
If TypeOf (c) Is CheckBox Then If TypeOf (c) Is MyTextBox Then
AddHandler CType(c, CheckBox).CheckedChanged, AddressOf somethingChanged AddHandler CType(c, MyTextBox).TextChanged, AddressOf somethingChanged
ElseIf TypeOf (c) Is TextBox Then ElseIf TypeOf (c) Is TextBox Then
AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
End If End If

17
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb
View File

@@ -32,9 +32,6 @@ Public Class cFiskalkunden
Public hasEntry = False Public hasEntry = False
Dim SQL As New SQL Dim SQL As New SQL
@@ -61,8 +58,8 @@ Public Class cFiskalkunden
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_UID", FK_UID)) 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_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_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_Homepage_PDF", FK_Homepage_PDF))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_DatenarchivId", FK_DatenarchivId)) ' 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_Anmerkung", FK_Anmerkung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Abschlussdatum", FK_Abschlussdatum)) 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_MaId", FK_MaId))
@@ -71,11 +68,11 @@ Public Class cFiskalkunden
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Zwischenhaendler", FK_Zwischenhaendler)) 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_Waren", FK_Waren))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gruendungsdatum", FK_Gruendungsdatum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gruendungsdatum", FK_Gruendungsdatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_AnzahlMitarbeiter", FK_MaId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_AnzahlMitarbeiter", FK_AnzahlMitarbeiter))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftszweck", FK_Lieferanten)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftszweck", FK_Geschaeftszweck))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_KreditMax", FK_Empfaenger)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_KreditMax", FK_KreditMax))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftsfuehrer", FK_Zwischenhaendler)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftsfuehrer", FK_Geschaeftsfuehrer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gesellschafter", FK_Waren)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gesellschafter", FK_Gesellschafter))
Return list Return list
End Function End Function

58
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkundenAnhaenge.vb
View File

@@ -8,15 +8,15 @@ Public Class cFiskalkundenAnhaenge
Property fka_fkId As Integer Property fka_fkId As Integer
Property fka_Name As String Property fka_Name As String
Property fka_docId As Integer Property fka_docId As Integer
Property fka_ArtId As Object = Nothing Property fka_Art As Object = Nothing
Property fka_Datum As Object = Nothing Property fka_Datum As Object = Nothing
Public hasEntry As Boolean = False Public hasEntry As Boolean = False
Dim SQL As New SQL Dim SQL As New SQL
Sub New() Sub New()
End Sub End Sub
Sub New(fka_id As Integer) Sub New(fka_id As Integer)
Me.fka_id = fka_id Me.fka_id = fka_id
@@ -24,46 +24,53 @@ Public Class cFiskalkundenAnhaenge
End Sub End Sub
Sub New(fka_Name, anh_docId, anh_Art, anh_Typ) Sub New(fka_Name, fka_docId, fka_Art)
Me.fka_Name = fka_Name Me.fka_Name = fka_Name
Me.fka_docId = fka_docId Me.fka_docId = fka_docId
Me.fka_ArtId = fka_ArtId Me.fka_Art = fka_Art
LOAD()
End Sub End Sub
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New 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_id", fka_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_KdNr", fka_KdNr)) 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_Name", fka_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_docId", fka_docId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_docId", fka_docId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_ArtId", fka_ArtId)) 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_Datum", fka_Datum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_fkId", fka_fkId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_fkId", fka_fkId))
Return list Return list
End Function End Function
Shared Sub LOAD_LIST_ByKdNr(ByRef ANH_LIST As List(Of cFiskalkundenAnhaenge), fka_KdNr As Integer, fka_fkId As Integer) Shared Function LOAD_LIST_ByKdNr(fka_KdNr As Integer, fka_fkId As Integer, fka_Art As String) As List(Of cFiskalkundenAnhaenge)
If ANH_LIST Is Nothing Then ANH_LIST = New List(Of cFiskalkundenAnhaenge) Dim ANH_LIST = New List(Of cFiskalkundenAnhaenge)
ANH_LIST.Clear() ANH_LIST.Clear()
Dim SQL As New SQL Dim SQL As New SQL
For Each r In SQL.loadDgvBySql("SELECT fka_id FROM [tblFiskalkundenAnhaenge] WHERE fka_KdNr=" & fka_KdNr & " And fka_fkId = " & fka_fkId & " ORDER BY fka_id, fka_ArtId", "AVISO").Rows 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")
ANH_LIST.Add(New VERAG_PROG_ALLGEMEIN.cFiskalkundenAnhaenge(r("fka_id"))) If dgv IsNot Nothing Then
Next For Each r In dgv.Rows
End Sub 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 Public Function SAVE(Optional errHinweis = "") As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() 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) " & Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM [tblFiskalkundenAnhaenge] With(updlock, serializable) WHERE fka_id=@fka_id) " &
" BEGIN " & getUpdateCmd() & " END " & " BEGIN " & getUpdateCmd() & " End " &
" Else " & " Else " &
" BEGIN " & getInsertCmd() & " END " & " BEGIN " & getInsertCmd() & " End " &
" commit tran " " commit tran "
fka_id = SQL.doSQLVarListID(fka_id, sqlstr, "AVISO", , list,, errHinweis) fka_id = SQL.doSQLVarListID(fka_id, sqlstr, "AVISO", , list,, errHinweis)
@@ -73,8 +80,8 @@ Public Class cFiskalkundenAnhaenge
Public Sub LOAD() Public Sub LOAD()
Try Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO() Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
Using cmd As New SqlCommand("SELECT * FROM [tblFiskalkundenAnhaenge] WHERE fka_id=@fka_id ", conn) Using cmd As New SqlCommand("Select * FROM [tblFiskalkundenAnhaenge] WHERE fka_id=@fka_id ", conn)
cmd.Parameters.AddWithValue("@fka_id", fka_KdNr) cmd.Parameters.AddWithValue("@fka_id", fka_id)
Dim dr = cmd.ExecuteReader() Dim dr = cmd.ExecuteReader()
If dr.Read Then If dr.Read Then
For Each li In getParameterList() For Each li In getParameterList()
@@ -93,7 +100,7 @@ Public Class cFiskalkundenAnhaenge
End Using End Using
End Using End Using
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try End Try
End Sub End Sub
@@ -137,9 +144,14 @@ Public Class cFiskalkundenAnhaenge
Return "" Return ""
End Function End Function
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean 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 Dim sqlstr = " DELETE FROM [tblFiskalkundenAnhaenge] WITH(updlock,serializable) WHERE fka_id=" & Me.fka_id
Return SQL.doSQL(sqlstr, "AVISO") Return SQL.doSQL(sqlstr, "AVISO")
End Function 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 End Class