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

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.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.Size = New System.Drawing.Size(107, 19)
Me.mnueFiskaluebersicht.Size = New System.Drawing.Size(107, 64)
Me.mnueFiskaluebersicht.Text = "Fiskalübersicht"
Me.mnueFiskaluebersicht.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.mnueFiskaluebersicht.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.mnueFiskaluebersicht.Visible = False
'
'mnueFiskal
'

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
mnueFiskal.Visible = True
mnueFiskaluebersicht.Visible = True
mnueFiskaluebersicht.Visible = True
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.dgvFiskaluebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(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.Label6 = New System.Windows.Forms.Label()
Me.rtfEmpfaenger = New System.Windows.Forms.RichTextBox()
Me.rtfLieferanten = New System.Windows.Forms.RichTextBox()
Me.dgvEmpfaenger = 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.Label2 = 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.cbxUID = New System.Windows.Forms.CheckBox()
Me.txtUID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblBon = New System.Windows.Forms.Label()
CType(Me.picLocked, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
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.Location = New System.Drawing.Point(8, 12)
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.Text = "Fiskaluebersicht"
Me.lblFiskaluebersicht.Text = "Fiskalübersicht"
'
'lblCheckliste
'
@@ -189,7 +189,7 @@ Partial Class usrcntlFiskaluebersicht
Me.cbxFiskalart.FormattingEnabled = True
Me.cbxFiskalart.Location = New System.Drawing.Point(419, 12)
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
'
'MyPanel1
@@ -241,9 +241,9 @@ Partial Class usrcntlFiskaluebersicht
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(365, 10)
Me.btnPDFReport.Location = New System.Drawing.Point(365, 6)
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.Text = "Bericht"
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.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
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.Label6)
Me.MyPanel2.Controls.Add(Me.rtfEmpfaenger)
Me.MyPanel2.Controls.Add(Me.rtfLieferanten)
Me.MyPanel2.Controls.Add(Me.dgvEmpfaenger)
Me.MyPanel2.Controls.Add(Me.dgvLieferanten)
Me.MyPanel2.Controls.Add(Me.Button3)
Me.MyPanel2.Controls.Add(Me.Label3)
Me.MyPanel2.Controls.Add(Me.Label2)
Me.MyPanel2.Controls.Add(Me.lblAnmerkungen)
@@ -328,15 +328,15 @@ Partial Class usrcntlFiskaluebersicht
Me.MyPanel2.Size = New System.Drawing.Size(721, 657)
Me.MyPanel2.TabIndex = 110
'
'rtbZwischenh
'rtfZwischenh
'
Me.rtbZwischenh.Enabled = False
Me.rtbZwischenh.Location = New System.Drawing.Point(237, 283)
Me.rtbZwischenh.Name = "rtbZwischenh"
Me.rtbZwischenh.Size = New System.Drawing.Size(225, 78)
Me.rtbZwischenh.TabIndex = 176
Me.rtbZwischenh.Text = ""
Me.rtbZwischenh.Visible = False
Me.rtfZwischenh.Enabled = False
Me.rtfZwischenh.Location = New System.Drawing.Point(237, 283)
Me.rtfZwischenh.Name = "rtfZwischenh"
Me.rtfZwischenh.Size = New System.Drawing.Size(225, 78)
Me.rtfZwischenh.TabIndex = 176
Me.rtfZwischenh.Text = ""
Me.rtfZwischenh.Visible = False
'
'dgvZwischenh
'
@@ -422,20 +422,6 @@ Partial Class usrcntlFiskaluebersicht
Me.dgvLieferanten.Size = New System.Drawing.Size(215, 92)
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
'
Me.Label3.AutoSize = True
@@ -481,7 +467,7 @@ Partial Class usrcntlFiskaluebersicht
Me.txtGesellschafter._Waehrung = False
Me.txtGesellschafter._WaehrungZeichen = True
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.MaxLines_Warning = ""
Me.txtGesellschafter.MaxLines_Warning_Label = Nothing
@@ -493,7 +479,7 @@ Partial Class usrcntlFiskaluebersicht
'
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.Location = New System.Drawing.Point(279, 191)
Me.Label12.Location = New System.Drawing.Point(279, 168)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(88, 13)
Me.Label12.TabIndex = 164
@@ -514,7 +500,7 @@ Partial Class usrcntlFiskaluebersicht
Me.txtGF._Waehrung = False
Me.txtGF._WaehrungZeichen = True
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.MaxLines_Warning = ""
Me.txtGF.MaxLines_Warning_Label = Nothing
@@ -526,7 +512,7 @@ Partial Class usrcntlFiskaluebersicht
'
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.Location = New System.Drawing.Point(279, 165)
Me.Label11.Location = New System.Drawing.Point(279, 142)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(97, 13)
Me.Label11.TabIndex = 162
@@ -557,12 +543,12 @@ Partial Class usrcntlFiskaluebersicht
Me.txtKredit._Waehrung = True
Me.txtKredit._WaehrungZeichen = True
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.MaxLines_Warning = ""
Me.txtKredit.MaxLines_Warning_Label = Nothing
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
'
'txtAnzMA
@@ -580,12 +566,12 @@ Partial Class usrcntlFiskaluebersicht
Me.txtAnzMA._Waehrung = False
Me.txtAnzMA._WaehrungZeichen = False
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.MaxLines_Warning = ""
Me.txtAnzMA.MaxLines_Warning_Label = Nothing
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
'
'Label9
@@ -613,19 +599,19 @@ Partial Class usrcntlFiskaluebersicht
Me.txtWaren._Waehrung = False
Me.txtWaren._WaehrungZeichen = True
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.MaxLines_Warning = ""
Me.txtWaren.MaxLines_Warning_Label = Nothing
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
'
'Label8
'
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.Location = New System.Drawing.Point(279, 139)
Me.Label8.Location = New System.Drawing.Point(8, 191)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(44, 13)
Me.Label8.TabIndex = 156
@@ -646,13 +632,13 @@ Partial Class usrcntlFiskaluebersicht
Me.txtGriendungsjahr._Waehrung = False
Me.txtGriendungsjahr._WaehrungZeichen = False
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.MaxLineLength = -1
Me.txtGriendungsjahr.MaxLines_Warning = ""
Me.txtGriendungsjahr.MaxLines_Warning_Label = Nothing
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
'
'Label7
@@ -735,7 +721,7 @@ Partial Class usrcntlFiskaluebersicht
'
Me.rtbAnmerkung.Location = New System.Drawing.Point(144, 544)
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.Text = ""
'
@@ -823,14 +809,14 @@ Partial Class usrcntlFiskaluebersicht
Me.txtVM._Waehrung = False
Me.txtVM._WaehrungZeichen = False
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.MaxLineLength = -1
Me.txtVM.MaxLines_Warning = ""
Me.txtVM.MaxLines_Warning_Label = Nothing
Me.txtVM.Name = "txtVM"
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
'
'cbxBonitaet
@@ -860,14 +846,14 @@ Partial Class usrcntlFiskaluebersicht
Me.txtBon._Waehrung = False
Me.txtBon._WaehrungZeichen = False
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.MaxLineLength = -1
Me.txtBon.MaxLines_Warning = ""
Me.txtBon.MaxLines_Warning_Label = Nothing
Me.txtBon.Name = "txtBon"
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
'
'cbxEORI
@@ -909,13 +895,13 @@ Partial Class usrcntlFiskaluebersicht
Me.txtEORI._Waehrung = False
Me.txtEORI._WaehrungZeichen = True
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.MaxLines_Warning = ""
Me.txtEORI.MaxLines_Warning_Label = Nothing
Me.txtEORI.Name = "txtEORI"
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
'
'txtHomepage
@@ -933,12 +919,12 @@ Partial Class usrcntlFiskaluebersicht
Me.txtHomepage._Waehrung = False
Me.txtHomepage._WaehrungZeichen = True
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.MaxLines_Warning = ""
Me.txtHomepage.MaxLines_Warning_Label = Nothing
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
'
'dgvUnterlagen
@@ -986,15 +972,25 @@ Partial Class usrcntlFiskaluebersicht
Me.txtUID._Waehrung = False
Me.txtUID._WaehrungZeichen = True
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.MaxLines_Warning = ""
Me.txtUID.MaxLines_Warning_Label = Nothing
Me.txtUID.Name = "txtUID"
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
'
'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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1081,15 +1077,15 @@ Partial Class usrcntlFiskaluebersicht
Friend WithEvents Label11 As Label
Friend WithEvents Label10 As Label
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 Label6 As Label
Friend WithEvents rtfEmpfaenger As RichTextBox
Friend WithEvents rtfLieferanten As RichTextBox
Friend WithEvents dgvEmpfaenger 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 Label2 As Label
Friend WithEvents lblAnmerkungen As Label
Friend WithEvents lblBon As Label
End Class

196
SDL/kunden/usrcntlFiskaluebersicht.vb
View File

@@ -1,79 +1,71 @@

Imports System.Net
Imports System.Text.RegularExpressions
Imports com
Imports java.rmi.dgc
Imports VERAG_PROG_ALLGEMEIN
Imports SDL.EORI
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
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class usrcntlFiskaluebersicht
Dim FUNC As New cProgramFunctions
Public kdNr As Integer = -1
Dim SQL As New SQL
Public KUNDE As VERAG_PROG_ALLGEMEIN.cKunde
Public KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert
Public ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen
Public Event FiskalChanged()
Dim fk As VERAG_PROG_ALLGEMEIN.cFiskalkunden
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER
Dim BA As VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
Dim year As Integer
Sub initDGVFiskaluebersicht()
With dgvFiskaluebersicht
.Columns.Clear()
.DataSource = SQL.loadDgvBySql("SELECT FK_Id , FK_Datum, FK_Art, FK_locked 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").HeaderText = "Datum"
.Columns("FK_Art").Visible = False
.Columns("FK_locked").Visible = False
.Columns("FK_Id").Visible = False
.Columns("FK_Kdnr").Visible = False
End With
End Sub
Sub initdgvLieferanten(year As Integer)
Sub initdgvLieferanten()
Label2.Text = "Top 5 Lieferanten (" & year & ")"
With dgvLieferanten
.Columns.Clear()
.DataSource() = SQL.loadDgvBySql("SELECT Top(5) [AbsenderKundenNr] as KdNr, CASE WHEN [AbsenderKundenNr] IS NULL THEN '-' ELSE MAX(Absender) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch] WHERE year(Abfertigungsdatum) = '" & year & "' AND " & kdNr & " In([AbsenderKundenNr], [EmpfängerKundenNr], [FrachtführerKundenNr], [VermittlerKundenNr], [EndempfängerKundenNr]) GROUP BY AbsenderKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
.Columns("KdNr").Width = 50
End With
End Sub
Sub initdgvEmfpaenger(year As Integer)
Sub initdgvEmfpaenger()
Label3.Text = "Top 5 Endempfänger (" & year & ")"
With dgvEmpfaenger
.Columns.Clear()
.DataSource() = SQL.loadDgvBySql("SELECT Top(5) [EndempfängerKundenNr] as KdNr, CASE WHEN [EndempfängerKundenNr] IS NULL THEN '-' ELSE MAX(Endempfänger) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch] WHERE year(Abfertigungsdatum) = '" & year & "' AND " & kdNr & " IN([AbsenderKundenNr],[EmpfängerKundenNr],[FrachtführerKundenNr],[VermittlerKundenNr],[EndempfängerKundenNr]) GROUP BY EndempfängerKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
.Columns("KdNr").Width = 50
End With
End Sub
Sub initdgvZwischenhaendler(year As Integer)
Sub initdgvZwischenhaendler()
Label6.Text = "Top 5 Zwischenhändler (" & year & ")"
With dgvZwischenh
.Columns.Clear()
.DataSource() = SQL.loadDgvBySql("SELECT Top(5) [EmpfängerKundenNr] as KdNr, CASE WHEN [EmpfängerKundenNr] IS NULL THEN '-' ELSE MAX(Empfänger) END as Firma, COUNT(*) as Anzahl FROM [Speditionsbuch] WHERE year(Abfertigungsdatum) = '" & year & "' AND " & kdNr & " IN([AbsenderKundenNr],[EmpfängerKundenNr],[FrachtführerKundenNr],[VermittlerKundenNr],[EndempfängerKundenNr]) GROUP BY EmpfängerKundenNr ORDER BY Anzahl DESC ", "FMZOLL")
.Columns("KdNr").Width = 50
'.Columns("KdNr").Width = 50
End With
End Sub
@@ -82,8 +74,11 @@ Public Class usrcntlFiskaluebersicht
Sub initDGVUnterlagen()
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")
.Columns("fka_id").Visible = False
.Columns("fka_KdNr").Visible = False
.Columns("fka_docId").Visible = False
.ClearSelection()
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("DE", "DE"))
cbxAttachmentArt.Items.Clear()
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Passkopie", 1))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firmenbuchauszug", 2))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handelsregister", 3))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Infoblatt", 4))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Passkopie", "Passkopie"))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firmenbuchauszug", "FBN-Auszug"))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handelsregister", "HR"))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Infoblatt", "Info"))
cbxAttachmentArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Website", "Website"))
kdNr = _kdnr
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr)
BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr)
lblUnterlagen.Text = "Unterlagen"
For Each c As Control In MyPanel2.Controls
If TypeOf (c) Is MyTextBox Then
AddHandler CType(c, MyTextBox).TextChanged, AddressOf somethingChanged
ElseIf TypeOf (c) Is TextBox Then
AddHandler CType(c, TextBox).TextChanged, AddressOf somethingChanged
End If
Next
initDGVFiskaluebersicht()
End Sub
@@ -185,6 +190,33 @@ Public Class usrcntlFiskaluebersicht
End Function
Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
Try
Dim rptFiskalkunden As New SDL.rptFiskalkunde(kdNr, fk.FK_Id)
Dim rpt As New frmPrintLayout
rpt.Text = ""
rpt.Viewer.LoadDocument(rptFiskalkunden)
rpt.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
rpt.Show()
Dim files As New List(Of String)
Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf"
For Each r As DataGridViewRow In dgvUnterlagen.Rows
files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("fka_docId").Value))
Next
VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile)
Process.Start(outputFile)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -205,6 +237,7 @@ Public Class usrcntlFiskaluebersicht
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
lblWarning.Text = ""
getFields()
If fk.SAVE() Then
btnSave.Enabled = False
@@ -220,6 +253,8 @@ Public Class usrcntlFiskaluebersicht
fk = New cFiskalkunden(dgvFiskaluebersicht.SelectedRows(0).Cells("FK_Id").Value)
If checkNullStr(fk.FK_Datum) <> "" Then year = CDate(fk.FK_Datum).Year
Dim locked As Boolean = IIf(fk.FK_locked Is Nothing, False, fk.FK_locked)
setFields()
initDGVUnterlagen()
@@ -235,6 +270,7 @@ Public Class usrcntlFiskaluebersicht
Button4.Enabled = False
clearTXT()
End If
BA = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrWithingDate(kdNr)
@@ -251,6 +287,7 @@ Public Class usrcntlFiskaluebersicht
rtbAnmerkung.Text = checkNullStr(fk.FK_Anmerkung)
rtfLieferanten.Text = checkNullStr(fk.FK_Lieferanten)
rtfEmpfaenger.Text = checkNullStr(fk.FK_Empfaenger)
rtfZwischenh.Text = checkNullStr(fk.FK_Zwischenhaendler)
txtGriendungsjahr.Text = checkNullStr(fk.FK_Gruendungsdatum)
txtGeschaeftszweck.Text = checkNullStr(fk.FK_Geschaeftszweck)
txtKredit.Text = checkNullStr(fk.FK_KreditMax)
@@ -284,6 +321,10 @@ Public Class usrcntlFiskaluebersicht
txtGesellschafter.Text = BA.ba_GFName
End If
If txtWaren.Text = "" Then
txtWaren.Text = SQL.getValueTxtBySql("SELECT Top(1) [Bemerkungen] as Bemerkungen FROM [Speditionsbuch] WHERE " & kdNr & " In([AbsenderKundenNr], [EmpfängerKundenNr], [FrachtführerKundenNr], [VermittlerKundenNr], [EndempfängerKundenNr]) AND ISNULL(CAST([Bemerkungen] as NVARCHAR(max)),'') <> '' Order by Abfertigungsdatum desc", "FMZOLL")
End If
@@ -291,6 +332,13 @@ Public Class usrcntlFiskaluebersicht
txtBon.Text = CDate(KUNDE.Bonitätsdatum).ToShortDateString
End If
If ADRESSE.LandKz = "AT" Or ADRESSE.LandKz = "A" Then
lblBon.Text = If(KUNDE_ERW.kde_CreditSaveBonitaetsScore, "")
Else
lblBon.Text = If(KUNDE_ERW.kde_CreditSaveBonitaetsIndex, "")
End If
If txtUID.Text = "" Then
txtUID.Text = CDate(SQL.getValueTxtBySql("SELECT TOP(1) [uid_Datum] FROM [tblUIDPruefung] where uid_KundenNr='" & kdNr & "' AND UID_valid = 1 AND uid_stufe = 2 ORDER BY uid_Datum desc", "FMZOLL")).ToShortDateString
End If
@@ -358,10 +406,7 @@ Public Class usrcntlFiskaluebersicht
If rtfEmpfaenger.Text = "" Then
rtfEmpfaenger.Visible = False
If checkNullStr(fk.FK_Datum) <> "" Then
initdgvEmfpaenger(CDate(fk.FK_Datum).Year)
End If
initdgvEmfpaenger()
Else
rtfEmpfaenger.Visible = True
@@ -369,21 +414,17 @@ Public Class usrcntlFiskaluebersicht
If rtfLieferanten.Text = "" Then
rtfLieferanten.Visible = False
If checkNullStr(fk.FK_Datum) <> "" Then
initdgvLieferanten(CDate(fk.FK_Datum).Year)
End If
initdgvLieferanten()
Else
rtfLieferanten.Visible = True
End If
If rtbZwischenh.Text = "" Then
rtbZwischenh.Visible = False
If checkNullStr(fk.FK_Datum) <> "" Then
initdgvZwischenhaendler(CDate(fk.FK_Datum).Year)
End If
If rtfZwischenh.Text = "" Then
rtfZwischenh.Visible = False
initdgvZwischenhaendler()
Else
rtbZwischenh.Visible = True
rtfZwischenh.Visible = True
End If
@@ -397,14 +438,17 @@ Public Class usrcntlFiskaluebersicht
fk.FK_UID = txtUID.Text
fk.FK_EORI = txtEORI.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_Geschaeftszweck = txtGeschaeftszweck.Text
fk.FK_AnzahlMitarbeiter = txtAnzMA.Text
fk.FK_Gesellschafter = txtGesellschafter.Text
fk.FK_Gruendungsdatum = txtGriendungsjahr.Text
fk.FK_Waren = txtWaren.Text
If checkNullStr(fk.FK_Empfaenger) = "" Then
@@ -609,11 +653,22 @@ Public Class usrcntlFiskaluebersicht
MsgBox("Fiskalübersicht ist bereits abgeschlossen und kann nicht gelöscht werden!")
Exit Sub
End If
If vbYes = MsgBox("Möchten Sie die Fiskalübersicht vom " & dgvFiskaluebersicht.SelectedRows(0).Cells("fk_datum").Value & " 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)
'If dgvFiskaluebersicht.Rows.Count > 1 Then
' initDGVFiskaluebersicht()
'ElseIf dgvFiskaluebersicht.Rows.Count = 1 Then
' init(kdNr)
' initDGVFiskaluebersicht()
'End If
init(kdNr)
initDGVFiskaluebersicht()
End If
End If
End Sub
Public Sub clearTXT()
@@ -629,12 +684,15 @@ Public Class usrcntlFiskaluebersicht
lblWarning.Text = ""
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
picOK.Visible = False
@@ -660,13 +718,25 @@ Public Class usrcntlFiskaluebersicht
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
fk.FK_Homepage_PDF = DS.da_id
End If
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "FISKALKUNDENANHAENGE", fk.FK_Datum, "", "", "Website", kdNr)
Dim fi As New System.IO.FileInfo(pdf)
Dim path = DS.uploadDataToDATENSERVER(pdf, fi.Name, fi.Extension)
Dim ANH = New VERAG_PROG_ALLGEMEIN.cFiskalkundenAnhaenge()
ANH.fka_Art = DS.da_name
ANH.fka_docId = DS.da_id
ANH.fka_Datum = Now()
ANH.fka_KdNr = kdNr
ANH.fka_fkId = fk.FK_Id
ANH.fka_Name = fi.Name
ANH.SAVE()
initDGVUnterlagen()
'If path Then
' fk.FK_Homepage_PDF = DS.da_id
'End If
fk.FK_Homepage_URL = url
fk.SAVE()
@@ -706,7 +776,6 @@ Public Class usrcntlFiskaluebersicht
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvUnterlagen.SelectedRows(0).Cells("fka_docId").Value)
If DS.DELETE_COMPLETE() Then
Dim anh As New cFiskalkundenAnhaenge(anhId)
anh.DELETE()
initDGVUnterlagen()
End If
@@ -718,10 +787,6 @@ Public Class usrcntlFiskaluebersicht
End If
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)
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
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
Dim ANH = New VERAG_PROG_ALLGEMEIN.cFiskalkundenAnhaenge()
ANH.fka_ArtId = ArtId
ANH.fka_Art = ArtId
ANH.fka_docId = DS.da_id
ANH.fka_Datum = Now()
ANH.fka_KdNr = kdNr
ANH.fka_Name = cbxAttachmentArt.SelectedItem.ToString
ANH.fka_fkId = fk.FK_Id
ANH.fka_Name = DS.da_name
ANH.SAVE()
initDGVUnterlagen()
End If
@@ -779,8 +845,8 @@ Public Class usrcntlFiskaluebersicht
Private Sub panelChanged()
For Each c As Control In MyPanel1.Controls
If TypeOf (c) Is CheckBox Then
AddHandler CType(c, CheckBox).CheckedChanged, AddressOf somethingChanged
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