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

Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-10-23 11:33:28 +02:00
parent 6d1e68157d 0cf0691ff8
commit e944031386
33 changed files with 6623 additions and 2782 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1408
SDL/Fakturierung/cFakturierung.vb
View File

File diff suppressed because it is too large Load Diff

4
SDL/Fakturierung/rptRechnungDruck.Designer.vb generated
View File

@@ -1,4 +1,4 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptRechnungDruck
Inherits GrapeCity.ActiveReports.SectionReport
@@ -14,7 +14,7 @@ Partial Public Class rptRechnungDruck
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptRechnungDruck))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()

1734
SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

136
SDL/Fakturierung/rptRechnungDruck_MDM.resx Normal file
View File

File diff suppressed because one or more lines are too long

24
SDL/Fakturierung/rptRechnungDruck_MDM.vb Normal file
View File

@@ -0,0 +1,24 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptRechnungDruck_MDM
Public _LAN = ""
Sub New()
InitializeComponent()
End Sub
Sub New(_LAN)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptRechnungDruck_MDM")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptRechnungDruck_MDM")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck_MDM")
End If
End Sub
End Class

318
SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb generated Normal file
View File

@@ -0,0 +1,318 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptRechnungMDM_AnlagenDruck_Zinsennachberechnung))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtREnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtReDat = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZE = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtReBetrag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtTage = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZinsen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVZ = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblReNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblReDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblReBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblZahlungsdat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblTage = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblZinsen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblVZ = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZE, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtReBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtTage, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblZahlungsdat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblTage, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.CanGrow = False
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ})
Me.Detail.Height = 0.1755249!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'txtREnr
'
Me.txtREnr.Height = 0.1338583!
Me.txtREnr.Left = 0.005119062!
Me.txtREnr.Name = "txtREnr"
Me.txtREnr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
Me.txtREnr.Text = "-"
Me.txtREnr.Top = 0!
Me.txtREnr.Width = 1.562204!
'
'txtReDat
'
Me.txtReDat.Height = 0.1338583!
Me.txtReDat.Left = 1.567323!
Me.txtReDat.Name = "txtReDat"
Me.txtReDat.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
Me.txtReDat.Text = "-"
Me.txtReDat.Top = 0!
Me.txtReDat.Width = 1.562204!
'
'txtZE
'
Me.txtZE.Height = 0.1338583!
Me.txtZE.Left = 4.691732!
Me.txtZE.Name = "txtZE"
Me.txtZE.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
Me.txtZE.Text = "-"
Me.txtZE.Top = 0!
Me.txtZE.Width = 0.8539373!
'
'txtReBetrag
'
Me.txtReBetrag.Height = 0.1338583!
Me.txtReBetrag.Left = 3.129528!
Me.txtReBetrag.Name = "txtReBetrag"
Me.txtReBetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
Me.txtReBetrag.Text = "-"
Me.txtReBetrag.Top = 0!
Me.txtReBetrag.Width = 1.562204!
'
'txtTage
'
Me.txtTage.Height = 0.1338583!
Me.txtTage.Left = 5.54567!
Me.txtTage.Name = "txtTage"
Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
Me.txtTage.Text = "-"
Me.txtTage.Top = 0!
Me.txtTage.Width = 0.6039373!
'
'txtZinsen
'
Me.txtZinsen.Height = 0.1338583!
Me.txtZinsen.Left = 6.149607!
Me.txtZinsen.Name = "txtZinsen"
Me.txtZinsen.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtZinsen.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
Me.txtZinsen.Text = "-"
Me.txtZinsen.Top = 0!
Me.txtZinsen.Width = 0.6039373!
'
'txtVZ
'
Me.txtVZ.Height = 0.1338583!
Me.txtVZ.Left = 6.753544!
Me.txtVZ.Name = "txtVZ"
Me.txtVZ.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0"
Me.txtVZ.Text = "-"
Me.txtVZ.Top = 0!
Me.txtVZ.Width = 0.6988189!
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'GroupHeader4
'
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.lblReDat, Me.lblReBetrag, Me.lblZahlungsdat, Me.lblTage, Me.lblZinsen, Me.lblVZ})
Me.GroupHeader4.Height = 0.1433071!
Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4"
'
'lblReNr
'
Me.lblReNr.Height = 0.1433071!
Me.lblReNr.HyperLink = Nothing
Me.lblReNr.Left = 0.005118132!
Me.lblReNr.Name = "lblReNr"
Me.lblReNr.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblReNr.Text = "RechnungsNr"
Me.lblReNr.Top = 0!
Me.lblReNr.Width = 1.562205!
'
'lblReDat
'
Me.lblReDat.Height = 0.1433071!
Me.lblReDat.HyperLink = Nothing
Me.lblReDat.Left = 1.567323!
Me.lblReDat.Name = "lblReDat"
Me.lblReDat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblReDat.Text = "Rechnungsdatum"
Me.lblReDat.Top = 0!
Me.lblReDat.Width = 1.562205!
'
'lblReBetrag
'
Me.lblReBetrag.Height = 0.1433071!
Me.lblReBetrag.HyperLink = Nothing
Me.lblReBetrag.Left = 3.129528!
Me.lblReBetrag.Name = "lblReBetrag"
Me.lblReBetrag.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblReBetrag.Text = "Rechnungsbetrag"
Me.lblReBetrag.Top = 0!
Me.lblReBetrag.Width = 1.562205!
'
'lblZahlungsdat
'
Me.lblZahlungsdat.Height = 0.1433071!
Me.lblZahlungsdat.HyperLink = Nothing
Me.lblZahlungsdat.Left = 4.691732!
Me.lblZahlungsdat.Name = "lblZahlungsdat"
Me.lblZahlungsdat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblZahlungsdat.Text = "Zahlungsdatum"
Me.lblZahlungsdat.Top = 0!
Me.lblZahlungsdat.Width = 0.8539371!
'
'lblTage
'
Me.lblTage.Height = 0.1433071!
Me.lblTage.HyperLink = Nothing
Me.lblTage.Left = 5.518111!
Me.lblTage.Name = "lblTage"
Me.lblTage.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblTage.Text = "Tage"
Me.lblTage.Top = 0!
Me.lblTage.Width = 0.6314961!
'
'lblZinsen
'
Me.lblZinsen.Height = 0.1433071!
Me.lblZinsen.HyperLink = Nothing
Me.lblZinsen.Left = 6.149607!
Me.lblZinsen.Name = "lblZinsen"
Me.lblZinsen.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblZinsen.Text = "Zinsen"
Me.lblZinsen.Top = 0!
Me.lblZinsen.Width = 0.6039373!
'
'lblVZ
'
Me.lblVZ.Height = 0.1433071!
Me.lblVZ.HyperLink = Nothing
Me.lblVZ.Left = 6.753544!
Me.lblVZ.Name = "lblVZ"
Me.lblVZ.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" &
"har-set: 0"
Me.lblVZ.Text = "Verzugszinsen"
Me.lblVZ.Top = 0!
Me.lblVZ.Width = 0.6988189!
'
'GroupFooter4
'
Me.GroupFooter4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line18})
Me.GroupFooter4.Height = 0.1875001!
Me.GroupFooter4.Name = "GroupFooter4"
'
'Line18
'
Me.Line18.Height = 0.00004923344!
Me.Line18.Left = 0.03444719!
Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
Me.Line18.LineWeight = 1.0!
Me.Line18.Name = "Line18"
Me.Line18.Top = 0.0937008!
Me.Line18.Width = 7.323034!
Me.Line18.X1 = 0.03444719!
Me.Line18.X2 = 7.357481!
Me.Line18.Y1 = 0.09375003!
Me.Line18.Y2 = 0.0937008!
'
'rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.452378!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader4)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter4)
Me.Sections.Add(Me.PageFooter)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZE, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtReBetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtTage, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblZahlungsdat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblTage, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Public WithEvents txtREnr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtReDat As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZE As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtReBetrag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtTage As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZinsen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtVZ As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblReNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblReDat As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblReBetrag As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblZahlungsdat As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblTage As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblZinsen As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblVZ As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

126
SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.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/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb Normal file
View File

@@ -0,0 +1,75 @@
Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Dim _LAN = ""
Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
Dim LeistungsText As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
Me.RECHNUNG = RECHNUNG
Me.LeistungsText = LeistungsText
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck_MDM")
End If
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
txtREnr.Text = ""
txtReDat.Text = ""
txtReBetrag.Text = ""
txtZE.Text = ""
txtTage.Text = ""
txtZinsen.Text = ""
txtVZ.Text = ""
If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString
If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString
If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Me.Fields.Item("clmnReBetrag").Value.ToString()
If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString
If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString
If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= Me.Fields.Item("clmnZinsen").Value.ToString()
If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If RECHNUNG Is Nothing Then Exit Sub
Dim dt As New DataTable
dt.Columns.Add("clmnID")
dt.Columns.Add("clmnReNr")
dt.Columns.Add("clmnReDatum")
dt.Columns.Add("clmnAbfNr")
dt.Columns.Add("clmnReBetrag")
dt.Columns.Add("clmnZE")
dt.Columns.Add("clmnTage")
dt.Columns.Add("clmnZinsen")
dt.Columns.Add("clmnVZ")
RECHNUNG.ORDER_POSITIONEN()
For Each POS In RECHNUNG.POSITIONEN
Dim dtTemp As DataTable
dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID & " AND buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL")
For Each rg As DataRow In dtTemp.Rows
dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"))
Next
Next
Me.DataSource = dt
End Sub
End Class

4103
SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

4
SDL/My Project/AssemblyInfo.vb
View File

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

19
SDL/SDL.vbproj
View File

@@ -685,6 +685,18 @@
<Compile Include="Fakturierung\frmSendEmail.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Fakturierung\rptRechnungDruck_MDM.Designer.vb">
<DependentUpon>rptRechnungDruck_MDM.vb</DependentUpon>
</Compile>
<Compile Include="Fakturierung\rptRechnungDruck_MDM.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Fakturierung\rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb">
<DependentUpon>rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb</DependentUpon>
</Compile>
<Compile Include="Fakturierung\rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_ProvSum.Designer.vb">
<DependentUpon>rptSammelRechnungAnlagenDruck_ProvSum.vb</DependentUpon>
</Compile>
@@ -3390,6 +3402,13 @@
<EmbeddedResource Include="Fakturierung\frmSendEmail.resx">
<DependentUpon>frmSendEmail.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Fakturierung\rptRechnungDruck_MDM.resx">
<DependentUpon>rptRechnungDruck_MDM.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Fakturierung\rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.resx">
<DependentUpon>rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Fakturierung\rptSammelRechnungAnlagenDruck_ProvSum.resx">
<DependentUpon>rptSammelRechnungAnlagenDruck_ProvSum.vb</DependentUpon>
</EmbeddedResource>

2
SDL/USTV/usrCntlUSTV.vb
View File

@@ -2,10 +2,8 @@
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlUSTV
Dim kundenSQL As New kundenSQL
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim FUNC As New cProgramFunctions

22
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -570,16 +570,16 @@ Public Class frmBU_Mahnlauf
rpt.txtLeistung.Text = cFakturierung.checkNull(rpt.Fields.Item("OP_Typ").Value)
rpt.Label15.Text = cFakturierung.checkNull(rpt.Fields.Item("Rechnungsdatum").Value)
If Not Firma_ID = 19 Then
If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then
rpt.Label16.Text = ""
rpt.Label15.ForeColor = Color.Black
Else
rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value)
rpt.Label15.ForeColor = Color.DarkRed
End If
Else
rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value)
'If Not Firma_ID = 19 Then 'Fälligkeit immer andrucken!!!
' If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then
' rpt.Label16.Text = ""
' rpt.Label15.ForeColor = Color.Black
' Else
' rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value)
' rpt.Label15.ForeColor = Color.DarkRed
' End If
'Else
rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value)
If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then
rpt.Label15.ForeColor = Color.Black
rpt.Label16.ForeColor = Color.Black
@@ -587,7 +587,7 @@ Public Class frmBU_Mahnlauf
rpt.Label15.ForeColor = Color.DarkRed
rpt.Label16.ForeColor = Color.DarkRed
End If
End If
'End If

31
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -835,15 +835,16 @@ Public Class usrCntlBH
ISNULL(op_debitor.c_zahlziel, '0/0/14') AS ZZ_in_OP,
isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") AS Zinssatz_Kunde,
ISNULL(fibu_konto.c_zahlziel, '0/0/14') AS ZZ_in_Debitor,
isnull(dbo.fibu_zahlziel.si_ntage,14) as ZZinTage ,
case when isnull(dbo.fibu_zahlziel.si_ntage,14) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,14) end as ZZinTage,
DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung) as ReZielZahlungsdatum,
DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÜberschreitungInTagen,
case when DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then
case when DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end + 0), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then
op_debitor.eur_bruttobetrag * isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360
op_debitor.eur_bruttobetrag * isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") / 100 * DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360
else 0 end as Zinsbetrag,
cast(0 as bit) as abgerechnet
FROM op_debitor INNER JOIN fibu_konto ON (op_debitor.i_personenkonto = fibu_konto.i_konto)
@@ -1050,7 +1051,7 @@ Public Class usrCntlBH
RG.SteuerpflichtigerGesamtbetrag = 0
RG.SteuerfreierGesamtbetrag = 0
RG.Status = 0 '<= Status während der Erfassung über die Maut/Diesel-Schnittstelle - Nach Abschluss der Datenübernahme Änderung auf 0 20231220 -> gleich auf 0 setzen!
RG.Status = 0
RG.[Vorkosten] = 0
RG.[Erlös] = 0
@@ -1058,6 +1059,7 @@ Public Class usrCntlBH
RG.[Währungscode] = "EUR"
RG.ReErfZeitstempel = Now
RG.Vermerk = SPEDBUCH.Vermerk
RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
@@ -1069,12 +1071,22 @@ Public Class usrCntlBH
Dim dt As New DataTable
cMDMZinsberechnung.GET_NICHTABGERECHNETE_ZB(dt, KdNr)
'Dim zahlungsperiodeStart
'Dim zahlungsperiodeEnde
For Each r In dt.Rows
'If r(0) AndAlso Not IsDBNull(r("zahlungsperiode_start")) AndAlso Not IsDBNull(r("zahlungsperiode_ende")) AndAlso IsDate(r("zahlungsperiode_start")) AndAlso IsDate(r("zahlungsperiode_ende")) Then
' zahlungsperiodeStart = CDate(r("zahlungsperiode_start"))
' zahlungsperiodeEnde = CDate(r("zahlungsperiode_ende"))
'End If
'If CDate(zahlungsperiodeStart) < CDate(r("zahlungsperiode_start")) Then zahlungsperiodeStart = CDate(r("zahlungsperiode_start"))
'If CDate(zahlungsperiodeEnde) > CDate(r("zahlungsperiode_ende")) Then zahlungsperiodeEnde = CDate(r("zahlungsperiode_ende"))
Dim NettoBetrag As Double = r("zinsbetrag")
Dim BruttoBetrag As Double = r("zinsbetrag")
Dim id As Integer = r("id")
Dim UstBetrag As Double = BruttoBetrag = NettoBetrag
Dim LeistungsNr As Integer = 950
Dim LeistungsBezAdd As String = ""
@@ -1086,7 +1098,7 @@ Public Class usrCntlBH
End If
allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag, LeistungsBezAdd)
allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag, LeistungsBezAdd, id)
Next
@@ -1099,6 +1111,9 @@ Public Class usrCntlBH
RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim
'SPEDBUCH.Vermerk = "NACHBERECHNUNG VON VERZUGSZINSEN" & vbNewLine & "Zahlungen von " & CDate(zahlungsperiodeStart).ToShortDateString & " bis " & CDate(zahlungsperiodeEnde).ToShortDateString
'SPEDBUCH.SAVE()
If RG.SAVE Then
RK_ID = RG.RK_ID
Return True
@@ -1115,7 +1130,7 @@ Public Class usrCntlBH
Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "")
Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "", Optional nachzahlungsID As Integer = -1)
Try
For Each o In OFFERTE.POSITIONEN
@@ -1141,7 +1156,7 @@ Public Class usrCntlBH
POS.SteuerfreierBetrag = BruttoBetrag
POS.Preis = BruttoBetrag
End If
POS.NachzahlungsID = nachzahlungsID
POS.BGebLeistungsNr = o.BGebLeistungsNr
POS.BGebProzent = o.BGebProzent
POS.BGebMinBetrag = o.BGebMinBetrag

60
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -334,7 +334,7 @@ Partial Class frmKundenblatt
Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
Me.tbFirmendaten.Name = "tbFirmendaten"
Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 1509)
Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 928)
Me.tbFirmendaten.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten"
'
@@ -344,7 +344,7 @@ Partial Class frmKundenblatt
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(3, 3)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1638, 1503)
Me.Panel4.Size = New System.Drawing.Size(1638, 922)
Me.Panel4.TabIndex = 0
'
'UsrcntlKundeBearbeitenFull1
@@ -354,7 +354,7 @@ Partial Class frmKundenblatt
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 1503)
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 922)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'tbcntrMain
@@ -374,7 +374,7 @@ Partial Class frmKundenblatt
Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMain.Name = "tbcntrMain"
Me.tbcntrMain.SelectedIndex = 0
Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1538)
Me.tbcntrMain.Size = New System.Drawing.Size(1652, 957)
Me.tbcntrMain.TabIndex = 3
'
'tbAllgemein
@@ -415,7 +415,7 @@ Partial Class frmKundenblatt
Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
Me.tbAllgemein.Name = "tbAllgemein"
Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1509)
Me.tbAllgemein.Size = New System.Drawing.Size(1644, 928)
Me.tbAllgemein.TabIndex = 0
Me.tbAllgemein.Text = "Allgemein"
'
@@ -496,7 +496,7 @@ Partial Class frmKundenblatt
Me.TabControl1.Location = New System.Drawing.Point(8, 582)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(718, 921)
Me.TabControl1.Size = New System.Drawing.Size(718, 340)
Me.TabControl1.TabIndex = 186
'
'TabPage1
@@ -508,7 +508,7 @@ Partial Class frmKundenblatt
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(710, 895)
Me.TabPage1.Size = New System.Drawing.Size(710, 314)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Offene Posten"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -567,7 +567,7 @@ Partial Class frmKundenblatt
Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvOffenePosten.RowHeadersVisible = False
Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 860)
Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 282)
Me.dgvOffenePosten.TabIndex = 175
'
'Label10
@@ -600,7 +600,7 @@ Partial Class frmKundenblatt
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(710, 895)
Me.TabPage2.Size = New System.Drawing.Size(710, 314)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Umsatzbericht"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -645,7 +645,7 @@ Partial Class frmKundenblatt
Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
Me.dgvUmsaetze.RowHeadersVisible = False
Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 901)
Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 292)
Me.dgvUmsaetze.TabIndex = 182
'
'Label13
@@ -693,7 +693,7 @@ Partial Class frmKundenblatt
Me.TabPage3.Controls.Add(Me.dgvUmsatzNachLeistngsNr)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(710, 895)
Me.TabPage3.Size = New System.Drawing.Size(710, 314)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Umsatz nach LeistungsNr"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -749,7 +749,7 @@ Partial Class frmKundenblatt
Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False
Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 940)
Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 291)
Me.dgvUmsatzNachLeistngsNr.TabIndex = 183
'
'lblAdressenzusatz
@@ -1110,7 +1110,7 @@ Partial Class frmKundenblatt
Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1465)
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 884)
Me.dgvSperrliste.TabIndex = 23
'
'PictureBox2
@@ -1164,7 +1164,7 @@ Partial Class frmKundenblatt
Me.tbZoll.Location = New System.Drawing.Point(4, 25)
Me.tbZoll.Name = "tbZoll"
Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
Me.tbZoll.Size = New System.Drawing.Size(1644, 1509)
Me.tbZoll.Size = New System.Drawing.Size(1644, 928)
Me.tbZoll.TabIndex = 9
Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True
@@ -1176,7 +1176,7 @@ Partial Class frmKundenblatt
Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
Me.tbcntrZOLL.Name = "tbcntrZOLL"
Me.tbcntrZOLL.SelectedIndex = 0
Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 1503)
Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 922)
Me.tbcntrZOLL.TabIndex = 0
'
'tabZoll_Artikel
@@ -1184,7 +1184,7 @@ Partial Class frmKundenblatt
Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 1477)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 896)
Me.tabZoll_Artikel.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -1195,7 +1195,7 @@ Partial Class frmKundenblatt
Me.tbMdm.Location = New System.Drawing.Point(4, 25)
Me.tbMdm.Name = "tbMdm"
Me.tbMdm.Padding = New System.Windows.Forms.Padding(3)
Me.tbMdm.Size = New System.Drawing.Size(1644, 1509)
Me.tbMdm.Size = New System.Drawing.Size(1644, 928)
Me.tbMdm.TabIndex = 10
Me.tbMdm.Text = "MDM"
Me.tbMdm.UseVisualStyleBackColor = True
@@ -1214,7 +1214,7 @@ Partial Class frmKundenblatt
Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMDM.Name = "tbcntrMDM"
Me.tbcntrMDM.SelectedIndex = 0
Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 1503)
Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 922)
Me.tbcntrMDM.TabIndex = 0
'
'tbSDL
@@ -1226,7 +1226,7 @@ Partial Class frmKundenblatt
Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
Me.tbSDL.Name = "tbSDL"
Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDL.Size = New System.Drawing.Size(1630, 1477)
Me.tbSDL.Size = New System.Drawing.Size(1630, 896)
Me.tbSDL.TabIndex = 5
Me.tbSDL.Text = "SDL-Leistungen"
Me.tbSDL.UseVisualStyleBackColor = True
@@ -1268,7 +1268,7 @@ Partial Class frmKundenblatt
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle21
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 1281)
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 700)
Me.dgvSDLLeistungenFull.TabIndex = 5
'
'Panel6
@@ -1374,7 +1374,7 @@ Partial Class frmKundenblatt
Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
Me.Panel5.Controls.Add(Me.rtbVermerke)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel5.Location = New System.Drawing.Point(3, 1331)
Me.Panel5.Location = New System.Drawing.Point(3, 750)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(1624, 143)
Me.Panel5.TabIndex = 177
@@ -2270,7 +2270,7 @@ Partial Class frmKundenblatt
Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
Me.tbOfferte.Name = "tbOfferte"
Me.tbOfferte.Size = New System.Drawing.Size(1644, 1509)
Me.tbOfferte.Size = New System.Drawing.Size(1644, 928)
Me.tbOfferte.TabIndex = 11
Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True
@@ -2282,7 +2282,7 @@ Partial Class frmKundenblatt
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 1509)
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 928)
Me.UsrCntlOfferte1.TabIndex = 0
'
'tbUSTV
@@ -2290,7 +2290,7 @@ Partial Class frmKundenblatt
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
Me.tbUSTV.Name = "tbUSTV"
Me.tbUSTV.Size = New System.Drawing.Size(1644, 1509)
Me.tbUSTV.Size = New System.Drawing.Size(1644, 928)
Me.tbUSTV.TabIndex = 12
Me.tbUSTV.Text = "USTV"
Me.tbUSTV.UseVisualStyleBackColor = True
@@ -2304,7 +2304,7 @@ Partial Class frmKundenblatt
Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrUSTV.Name = "tbcntrUSTV"
Me.tbcntrUSTV.SelectedIndex = 0
Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 1509)
Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 928)
Me.tbcntrUSTV.TabIndex = 1
'
'tbUSTVDokumente
@@ -2317,7 +2317,7 @@ Partial Class frmKundenblatt
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 1483)
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 902)
Me.tbUSTVDokumente.TabIndex = 8
Me.tbUSTVDokumente.Text = "Dokumente"
Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2448,7 +2448,7 @@ Partial Class frmKundenblatt
Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel)
Me.tbFIBU.Location = New System.Drawing.Point(4, 25)
Me.tbFIBU.Name = "tbFIBU"
Me.tbFIBU.Size = New System.Drawing.Size(1644, 1509)
Me.tbFIBU.Size = New System.Drawing.Size(1644, 928)
Me.tbFIBU.TabIndex = 13
Me.tbFIBU.Text = "FIBU"
Me.tbFIBU.UseVisualStyleBackColor = True
@@ -2592,7 +2592,7 @@ Partial Class frmKundenblatt
Me.tbRechnungen.Controls.Add(Me.MyPanel1)
Me.tbRechnungen.Location = New System.Drawing.Point(4, 25)
Me.tbRechnungen.Name = "tbRechnungen"
Me.tbRechnungen.Size = New System.Drawing.Size(1644, 1509)
Me.tbRechnungen.Size = New System.Drawing.Size(1644, 928)
Me.tbRechnungen.TabIndex = 14
Me.tbRechnungen.Text = "Rechnungen"
Me.tbRechnungen.UseVisualStyleBackColor = True
@@ -2611,7 +2611,7 @@ Partial Class frmKundenblatt
Me.dgvRg.ReadOnly = True
Me.dgvRg.RowHeadersVisible = False
Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvRg.Size = New System.Drawing.Size(1644, 1449)
Me.dgvRg.Size = New System.Drawing.Size(1644, 868)
Me.dgvRg.TabIndex = 3
'
'MyPanel1
@@ -3006,7 +3006,7 @@ Partial Class frmKundenblatt
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1651, 1667)
Me.ClientSize = New System.Drawing.Size(1651, 1086)
Me.Controls.Add(Me.lblAbfVerb)
Me.Controls.Add(Me.btnAbfVerb)
Me.Controls.Add(Me.tbcntrMain)

44
SDL/kunden/frmKundenblatt.vb
View File

@@ -1,14 +1,8 @@
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports System.Reflection
Imports javax.xml.bind.annotation
Imports VERAG_PROG_ALLGEMEIN
Imports System.Globalization
Imports System.Data.OleDb
Imports System.IO
Imports System.Web.UI.WebControls.Expressions
Imports System.DirectoryServices.ActiveDirectory
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
Public Class frmKundenblatt
@@ -2165,6 +2159,9 @@ Public Class frmKundenblatt
If .DataSource Is Nothing Then Exit Sub
If .Columns.Count = 0 Then Exit Sub
dgvUmsatzNachLeistngsNr.Columns(0).Frozen = True
dgvUmsatzNachLeistngsNr.Columns(1).Frozen = True
For i = 0 To dgvUmsatzNachLeistngsNr.ColumnCount - 1
If i = 0 Then
@@ -2368,7 +2365,7 @@ Public Class frmKundenblatt
initBtns("Monat")
End Sub
Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentClick
Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentDoubleClick
If dgvRg.SelectedRows.Count = 0 Then Exit Sub
@@ -2383,7 +2380,7 @@ Public Class frmKundenblatt
With dgvZinsnachberechnung
Dim sqlStr = ""
sqlStr &= " SELECT TOP 1000 [belegNr] ,[belegDatum],[buchungstext],[zinsbetrag],[zinssatz],[ueberschreitungInTagen],[belegZahlungsziel],[timestamp], cast(case when [verrechnet] is null then 0 else 1 end as bit) as verrechnet"
sqlStr &= " SELECT TOP 1000 [belegNr] ,[belegDatum],[buchungstext],[zinsbetrag],[zinssatz],[ueberschreitungInTagen],[belegZahlungsziel],[timestamp], cast(case when [verrechnet] is null then 0 else 1 end as bit) as verrechnet, rk_id"
sqlStr &= " FROM [tblMDM_Zinsberechnung] WHERE kundenNr=" & kdNr
.SET_SQL(sqlStr & " ORDER BY belegdatum desc", "FMZOLL")
@@ -2444,6 +2441,8 @@ Public Class frmKundenblatt
.Columns("timestamp").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("timestamp").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("RK_ID").Visible = False
Dim sumOffeneZB As Double = 0
Dim sumVerrZB As Double = 0
@@ -2608,13 +2607,16 @@ Public Class frmKundenblatt
Private Sub btn_FIBU_speichern_Click(sender As Object, e As EventArgs) Handles btn_FIBU_speichern.Click
KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text)
If txtZinsbelastung.Text <> "" AndAlso txtZinsbelastung.Text.Contains(",") Then
txtZinsbelastung.Text = txtZinsbelastung.ToString.Replace(",", ".")
If txtZinsbelastung.Text <> "" Then
If txtZinsbelastung.Text.Contains(",") Then
txtZinsbelastung.Text = txtZinsbelastung.ToString.Replace(",", ".")
Else
KUNDE_ERW.kde_zinssatz = checkNullStr(txtZinsbelastung.Text)
End If
Else
KUNDE_ERW.kde_zinssatz = Nothing
End If
KUNDE_ERW.kde_zinssatz = checkNullStr(txtZinsbelastung.Text)
KUNDE_ERW.SAVE()
If KUNDE.Gesprächsbericht <> "" AndAlso checkNullStr(rtbGespreachsbericht.Text) = "" OrElse KUNDE.Gesprächsbericht = "" AndAlso checkNullStr(rtbGespreachsbericht.Text) <> "" Then
@@ -2622,5 +2624,19 @@ Public Class frmKundenblatt
KUNDE.SAVE()
End If
End Sub
Private Sub dgvZinsnachberechnung_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvZinsnachberechnung.CellDoubleClick
If dgvZinsnachberechnung.SelectedRows.Count = 0 Then Exit Sub
If Not IsDBNull(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value) AndAlso IsNumeric(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value) Then
Dim f As New SDL.frmAbrechnungsMaskeEinzeln(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value)
f.Show(Me)
End If
End Sub
End Class

18
SDL/kunden/usrCntlIDSPreise.Designer.vb generated
View File

@@ -39,6 +39,7 @@ Partial Class usrCntlIDSPreise
Me.Label1 = New System.Windows.Forms.Label()
Me.btnRW = New System.Windows.Forms.Button()
Me.btnAdd = New System.Windows.Forms.Button()
Me.btnExcel = New System.Windows.Forms.Button()
CType(Me.dgvIDSData, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cntxtAddSdl.SuspendLayout()
CType(Me.dgvIDS, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -253,6 +254,21 @@ Partial Class usrCntlIDSPreise
Me.btnAdd.Tag = ""
Me.btnAdd.UseVisualStyleBackColor = True
'
'btnExcel
'
Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnExcel.ForeColor = System.Drawing.Color.Black
Me.btnExcel.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnExcel.ImageAlign = System.Drawing.ContentAlignment.TopLeft
Me.btnExcel.Location = New System.Drawing.Point(182, 514)
Me.btnExcel.Name = "btnExcel"
Me.btnExcel.Size = New System.Drawing.Size(45, 36)
Me.btnExcel.TabIndex = 38
Me.btnExcel.Tag = ""
Me.btnExcel.UseVisualStyleBackColor = True
Me.btnExcel.Visible = False
'
'usrCntlIDSPreise
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -268,6 +284,7 @@ Partial Class usrCntlIDSPreise
Me.Controls.Add(Me.cbxTypes)
Me.Controls.Add(Me.dgvIDS)
Me.Controls.Add(Me.btnOfferteSpeichern)
Me.Controls.Add(Me.btnExcel)
Me.Controls.Add(Me.btnEditIDS)
Me.Controls.Add(Me.lblIDS)
Me.Controls.Add(Me.dgvIDSData)
@@ -297,4 +314,5 @@ Partial Class usrCntlIDSPreise
Friend WithEvents Label1 As Label
Friend WithEvents btnRW As Button
Friend WithEvents btnAdd As Button
Friend WithEvents btnExcel As Button
End Class

87
SDL/kunden/usrCntlIDSPreise.vb
View File

@@ -21,14 +21,12 @@ Public Class usrCntlIDSPreise
Dim dgvInitWait As Boolean = False
Dim RW As Double = -1
Dim Kunde As Integer = -1
Dim enableChanges As Boolean = False
Sub New()
InitializeComponent()
End Sub
Public Sub init(Optional _isVerag360 As Boolean = False)
edit = False
handleEditMode(edit)
@@ -246,6 +244,9 @@ Public Class usrCntlIDSPreise
End If
DGVHasChaged = False
btnExcel.Visible = dgvIDSData.Rows.Count > 0
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
@@ -410,24 +411,14 @@ Public Class usrCntlIDSPreise
.Columns("OutletCountry").HeaderText = "Bezeichnung"
.Columns("OutletCountryCode").Visible = False
End With
'EnableDoubleBuffered(dgvOfferteDetails)
dgvIDSData.Columns.Clear()
dgvIDS.ClearSelection()
initDGVDieselpreiseDetails()
'initFilter()
initDGVWidth()
'AddHandler OFFERTEBind.bindingdataTable.ColumnChanged, Sub(ev As EventArgs, change As DataColumnChangeEventArgs)
' ' If change.Column.ColumnName=""
' 'Dim r_index = dgvOfferteDetails.Rows.IndexOf(change.Row)
' 'Dim c_index = dgvOfferteDetails.Columns.IndexOf(change.Column.ColumnName)
' 'dgvOfferteDetails.Rows(change.Row)
' End Sub
End Sub
Sub initDGVWidth()
@@ -444,19 +435,6 @@ Public Class usrCntlIDSPreise
'
End Sub
Private Sub AddOffert_Click(sender As Object, e As EventArgs) Handles DToolStripMenuItem.Click
If sender.name.contains("tsmiOffertNr_") Then
' MsgBox(sender.name.ToString.Replace("tsmiSDLNr_", ""))
Dim OffertenNr As String = sender.tag
End If
End Sub
Private Sub dgvOfferteDetails_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIDSData.CellValueChanged
Try
Select Case cbxTypes._value
@@ -576,28 +554,12 @@ Public Class usrCntlIDSPreise
End Sub
Private Sub cbxArchivierteOfferten_SelectedIndexChanged(sender As Object, e As EventArgs)
checkPerimissionsDGVDetails()
End Sub
'Private Sub cbxArchivierteOffertenAnzeigen_CheckedChanged(sender As Object, e As EventArgs)
' If dgvIDS.SelectedRows.Count = 0 Then Exit Sub
' initDGVDieselpreiseDetails(dgvIDS.SelectedRows(0).Cells("OffertenNr").Value)
'End Sub
Private Sub checkPerimissionsDGVDetails()
Try
With dgvIDSData
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DIESELPREISE_BEARBEITEN", "SDL") Then
If Not enableChanges Then
For Each c As DataGridViewColumn In .Columns
c.ReadOnly = True
handleEditMode(False)
@@ -651,14 +613,15 @@ Public Class usrCntlIDSPreise
Private Sub checkPermissions()
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DIESELPREISE_BEARBEITEN", "SDL") Then
enableChanges = False
btnEditIDS.Visible = False
dgvIDS.ReadOnly = True
btnAdd.Visible = False
Else
enableChanges = True
dgvIDSData.AllowUserToAddRows = True
dgvIDSData.AllowUserToDeleteRows = True
dgvIDSData.RowHeadersVisible = True
@@ -668,7 +631,6 @@ Public Class usrCntlIDSPreise
If dgvIDS.SelectedRows.Count = 0 Then
End If
End Sub
@@ -897,7 +859,12 @@ Public Class usrCntlIDSPreise
End If
Next
btnAdd.Visible = enableButtonAdd
If Not enableChanges Then
btnAdd.Visible = False
Else
btnAdd.Visible = enableButtonAdd
End If
If dgvIDS.SelectedCells.Count > 0 Then
@@ -1037,4 +1004,30 @@ Public Class usrCntlIDSPreise
End If
End Sub
Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
If dgvIDSData.Rows.Count > 0 Then
Dim dt As DataTable = CType(dgvIDSData.DataSource, DataTable)
Dim displayTable As DataTable = dt.Copy()
If displayTable.Rows.Count > 0 Then
If displayTable.Columns.Contains("Sachbearbeiter") Then displayTable.Columns.Remove("Sachbearbeiter")
If displayTable.Columns.Contains("ID") Then
displayTable.PrimaryKey = Nothing
displayTable.Columns.Remove("ID")
End If
If displayTable.Columns.Contains("Zeitstempel") Then displayTable.Columns.Remove("Zeitstempel")
cProgramFunctions.genExcelFromDT_NEW(displayTable)
End If
End If
End Sub
End Class

32
SDL/kunden/usrCntlOfferte.Designer.vb generated
View File

@@ -23,8 +23,8 @@ Partial Class usrCntlOfferte
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.lblBesonderheiten = New System.Windows.Forms.Label()
Me.rtbBesonderheiten = New System.Windows.Forms.RichTextBox()
Me.lblOffert = New System.Windows.Forms.TextBox()
@@ -67,6 +67,7 @@ Partial Class usrCntlOfferte
Me.Button2 = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnSaveBes = New System.Windows.Forms.Button()
Me.btnOffertPreisliste = New System.Windows.Forms.Button()
CType(Me.dgvOfferteDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cntxtAddSdl.SuspendLayout()
@@ -125,8 +126,8 @@ Partial Class usrCntlOfferte
Me.dgvOfferteDetails.AllowUserToDeleteRows = False
Me.dgvOfferteDetails.AllowUserToOrderColumns = True
Me.dgvOfferteDetails.AllowUserToResizeRows = False
DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.dgvOfferteDetails.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -145,8 +146,8 @@ Partial Class usrCntlOfferte
Me.dgvOfferte.AllowUserToAddRows = False
Me.dgvOfferte.AllowUserToDeleteRows = False
Me.dgvOfferte.AllowUserToResizeRows = False
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvOfferte.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White
@@ -391,6 +392,7 @@ Partial Class usrCntlOfferte
'
Me.pnlEdit.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlEdit.Controls.Add(Me.btnOffertPreisliste)
Me.pnlEdit.Controls.Add(Me.Button1)
Me.pnlEdit.Controls.Add(Me.cbxAutoFakturierung)
Me.pnlEdit.Controls.Add(Me.Label3)
@@ -413,7 +415,7 @@ Partial Class usrCntlOfferte
Me.Button1.ForeColor = System.Drawing.Color.Black
Me.Button1.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(607, 0)
Me.Button1.Location = New System.Drawing.Point(617, 0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(51, 36)
Me.Button1.TabIndex = 33
@@ -661,6 +663,21 @@ Partial Class usrCntlOfferte
Me.btnSaveBes.Tag = ""
Me.btnSaveBes.UseVisualStyleBackColor = True
'
'btnOffertPreisliste
'
Me.btnOffertPreisliste.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnOffertPreisliste.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.btnOffertPreisliste.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnOffertPreisliste.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOffertPreisliste.ForeColor = System.Drawing.Color.Black
Me.btnOffertPreisliste.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOffertPreisliste.Location = New System.Drawing.Point(569, 0)
Me.btnOffertPreisliste.Name = "btnOffertPreisliste"
Me.btnOffertPreisliste.Size = New System.Drawing.Size(51, 36)
Me.btnOffertPreisliste.TabIndex = 34
Me.btnOffertPreisliste.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnOffertPreisliste.UseVisualStyleBackColor = True
'
'usrCntlOfferte
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -748,4 +765,5 @@ Partial Class usrCntlOfferte
Friend WithEvents Button2 As Button
Friend WithEvents Panel1 As Panel
Friend WithEvents btnSaveBes As Button
Friend WithEvents btnOffertPreisliste As Button
End Class

8
SDL/kunden/usrCntlOfferte.vb
View File

@@ -1039,5 +1039,13 @@ Public Class usrCntlOfferte
End Sub
Private Sub btnOffertPreisliste_Click(sender As Object, e As EventArgs) Handles btnOffertPreisliste.Click
'dgvOfferteDetails
End Sub
End Class

46
SDL/mdm/frmMDMDatenverarbetiung.Designer.vb generated
View File

@@ -25,6 +25,7 @@ Partial Class frmMDMDatenverarbetiung
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDMDatenverarbetiung))
Me.pnl = New System.Windows.Forms.Panel()
Me.cbxIDSmitVerag = New System.Windows.Forms.CheckBox()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.Label5 = New System.Windows.Forms.Label()
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
@@ -33,6 +34,7 @@ Partial Class frmMDMDatenverarbetiung
Me.cbxASFINAGAbgerechnet = New System.Windows.Forms.CheckBox()
Me.cbxTestdaten = New System.Windows.Forms.CheckBox()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.pb_importOK = New System.Windows.Forms.PictureBox()
Me.Label46 = New System.Windows.Forms.Label()
Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker()
Me.Label45 = New System.Windows.Forms.Label()
@@ -83,11 +85,11 @@ Partial Class frmMDMDatenverarbetiung
Me.Button2 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cbxIDSmitVerag = New System.Windows.Forms.CheckBox()
Me.pnl.SuspendLayout()
Me.Panel5.SuspendLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel4.SuspendLayout()
CType(Me.pb_importOK, System.ComponentModel.ISupportInitialize).BeginInit()
Me.FlowLayoutPanel.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.pnlAsfinag.SuspendLayout()
@@ -101,6 +103,7 @@ Partial Class frmMDMDatenverarbetiung
'
'pnl
'
Me.pnl.Controls.Add(Me.pb_importOK)
Me.pnl.Controls.Add(Me.cbxIDSmitVerag)
Me.pnl.Controls.Add(Me.Panel5)
Me.pnl.Controls.Add(Me.PictureBox5)
@@ -119,6 +122,19 @@ Partial Class frmMDMDatenverarbetiung
Me.pnl.Size = New System.Drawing.Size(1163, 100)
Me.pnl.TabIndex = 1
'
'cbxIDSmitVerag
'
Me.cbxIDSmitVerag.AutoSize = True
Me.cbxIDSmitVerag.Checked = True
Me.cbxIDSmitVerag.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxIDSmitVerag.Location = New System.Drawing.Point(504, 74)
Me.cbxIDSmitVerag.Name = "cbxIDSmitVerag"
Me.cbxIDSmitVerag.Size = New System.Drawing.Size(153, 17)
Me.cbxIDSmitVerag.TabIndex = 131
Me.cbxIDSmitVerag.Text = "Daten mit Verag/Verag360"
Me.cbxIDSmitVerag.UseVisualStyleBackColor = True
Me.cbxIDSmitVerag.Visible = False
'
'Panel5
'
Me.Panel5.Controls.Add(Me.Label5)
@@ -132,7 +148,7 @@ Partial Class frmMDMDatenverarbetiung
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(11, 12)
Me.Label5.Location = New System.Drawing.Point(3, 12)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(113, 13)
Me.Label5.TabIndex = 23
@@ -204,6 +220,17 @@ Partial Class frmMDMDatenverarbetiung
Me.Panel4.Size = New System.Drawing.Size(417, 33)
Me.Panel4.TabIndex = 28
'
'pb_importOK
'
Me.pb_importOK.BackgroundImage = Global.SDL.My.Resources.Resources.ok
Me.pb_importOK.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pb_importOK.Location = New System.Drawing.Point(81, 42)
Me.pb_importOK.Name = "pb_importOK"
Me.pb_importOK.Size = New System.Drawing.Size(23, 19)
Me.pb_importOK.TabIndex = 53
Me.pb_importOK.TabStop = False
Me.pb_importOK.Visible = False
'
'Label46
'
Me.Label46.AutoSize = True
@@ -797,19 +824,6 @@ Partial Class frmMDMDatenverarbetiung
Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 547)
Me.MyDatagridview1.TabIndex = 0
'
'cbxIDSmitVerag
'
Me.cbxIDSmitVerag.AutoSize = True
Me.cbxIDSmitVerag.Checked = True
Me.cbxIDSmitVerag.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxIDSmitVerag.Location = New System.Drawing.Point(504, 74)
Me.cbxIDSmitVerag.Name = "cbxIDSmitVerag"
Me.cbxIDSmitVerag.Size = New System.Drawing.Size(153, 17)
Me.cbxIDSmitVerag.TabIndex = 131
Me.cbxIDSmitVerag.Text = "Daten mit Verag/Verag360"
Me.cbxIDSmitVerag.UseVisualStyleBackColor = True
Me.cbxIDSmitVerag.Visible = False
'
'frmMDMDatenverarbetiung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -830,6 +844,7 @@ Partial Class frmMDMDatenverarbetiung
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
CType(Me.pb_importOK, System.ComponentModel.ISupportInitialize).EndInit()
Me.FlowLayoutPanel.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
@@ -905,4 +920,5 @@ Partial Class frmMDMDatenverarbetiung
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents cbxKopie As CheckBox
Friend WithEvents cbxIDSmitVerag As CheckBox
Friend WithEvents pb_importOK As PictureBox
End Class

78
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1,7 +1,5 @@
Imports System.Data.OleDb
Imports System.IO
Imports com.sun.xml.internal.rngom
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports itextsharp.text.pdf
Imports MDM_Worker
Imports VERAG_PROG_ALLGEMEIN
@@ -76,22 +74,76 @@ Public Class frmMDMDatenverarbetiung
txtAnzahl.Text = ""
txtPruefsummeNetto.Text = ""
Button1.Enabled = True
pb_importOK.Visible = False
Select Case LIEFERANT
Case "PLOSE" : initDgv_PLOSE()
Case "PLOSE" : checkImport(LIEFERANT) : initDgv_PLOSE()
btnDatenLaden.Text = "Daten laden"
Case "UTA" : initDgv_UTA()
Case "UTA" : checkImport(LIEFERANT) : initDgv_UTA()
btnDatenLaden.Text = "Daten laden"
Case "ASFINAG" : initDgv_ASFINAG(cbxASFINAGAbgerechnet.Checked, cbxBelegeerstellt.Checked)
Case "ASFINAG" : checkImport(LIEFERANT) : initDgv_ASFINAG(cbxASFINAGAbgerechnet.Checked, cbxBelegeerstellt.Checked)
btnDatenLaden.Text = "Daten laden"
Case "IDS" : initDgv_IDS()
Case "IDS" : checkImport(LIEFERANT) : initDgv_IDS()
btnDatenLaden.Text = "Daten laden"
Button1.Enabled = False
Case "MSE" : initDgv_MSE()
Case "MSE" : checkImport(LIEFERANT) : initDgv_MSE()
btnDatenLaden.Text = "Daten laden"
End Select
End Sub
Private Sub checkImport(LIEFERANT As String)
'autom Import bei Asfinag, Plose und MSE
'(noch) manueller Import bei UTA (weil immer so spät kommt) und IDS (wegen Nacharbeitung)
pb_importOK.Visible = True
Dim Import_OK As Boolean = False
Dim sqlstr As String = ""
Select Case LIEFERANT
Case "PLOSE"
sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "' and invoicedate between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'"
Case "ASFINAG"
sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "' and YEAR(invoicedate) = " & Today().Year
Case Else
sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "' and invoicedate ='" & DateTimePicker2.Text & "'"
End Select
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
If dt.Rows.Count > 0 Then
Dim hasImcompleIports As Boolean = dt.AsEnumerable().Any(Function(row) row.Field(Of Boolean)("completed") = False)
If hasImcompleIports Then
pb_importOK.BackgroundImage = SDL.My.Resources.Resources.del
Else
If LIEFERANT = "IDS" Then 'IDS Bedard aktuell noch einer Nachbearbeitung!
Dim nacharbeitungNotCompleted As Boolean = dt.AsEnumerable().Any(Function(row) row.Field(Of Boolean)("nacharbeitung_completed") = False)
If nacharbeitungNotCompleted Then
Import_OK = False
Else
Import_OK = True
End If
Else
Import_OK = True
End If
End If
Else
Import_OK = False
End If
If Import_OK Then
pb_importOK.BackgroundImage = SDL.My.Resources.Resources.ok
Else
pb_importOK.BackgroundImage = SDL.My.Resources.Resources.del
End If
End Sub
Private Sub btnREerstellen_Click_1(sender As Object, e As EventArgs) Handles btnREerstellen.Click
Dim errorTmp = False
@@ -120,7 +172,7 @@ Public Class frmMDMDatenverarbetiung
End If
Case "IDS"
If cbxIDSmitVerag.Checked Then
MsgBox("Abrechnung ohne VERAG/VERAG360 !")
MsgBox("Abrechnung ohne VERAG/VERAG360!")
Exit Sub
End If
showIDSContextMenu()
@@ -1049,6 +1101,7 @@ Public Class frmMDMDatenverarbetiung
cbxASFINAGAbgerechnet.Visible = True
cbxBelegeerstellt.Visible = True
pnlAsfinag.Visible = True
checkImport(LIEFERANT)
Exit Sub
Case "IDS"
Panel5.Visible = True
@@ -1072,7 +1125,7 @@ Public Class frmMDMDatenverarbetiung
Function genRGAtt_PLOSE(ploseParam As cPLOSE) As Boolean
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' AND AdressenNr = 401280 group by [AdressenNr],PLOSEKundenNr ", "FMZOLL")
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL")
'MsgBox("Keine Daten!""SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where AND plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ")
If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then
MsgBox("Keine Daten!")
@@ -1149,7 +1202,7 @@ Public Class frmMDMDatenverarbetiung
INNER JOIN (((Adressen INNER JOIN tblUTAImportNew ON Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer)
INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr)
INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr) AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImportNew.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImportNew.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart
where isnull(charged,0) = 0 and cast([Rechnungsdatum] as date) = '" & DateTimePicker2.Text & "' and Adressen.AdressenNr not in(756150, 711104) and KundenNr = 401280 " & IIf(test, " and KundenNr = 402352 or KundenNr = 402421 ", "") &
where isnull(charged,0) = 0 and cast([Rechnungsdatum] as date) = '" & DateTimePicker2.Text & "' and Adressen.AdressenNr not in(756150, 711104) " & IIf(test, " and KundenNr = 402352 or KundenNr = 402421 ", "") &
" group by Kundennummer, KundenNr, UTAExportCSV,Rechnungsdruck"
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param(SQLStr, "FMZOLL", 1200)
@@ -1448,8 +1501,8 @@ Public Class frmMDMDatenverarbetiung
Dim top = ""
Dim sqlWhere = ""
Select Case art
Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 401280 ", "")
Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 401280 ", "")
Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" & IIf(Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 204055 ", "")
Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" & IIf(Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 204055 ", "")
Case Else
MsgBox("falscher Typ!") : Return False
@@ -4857,4 +4910,5 @@ RabattBerechnen:
Private Sub cbxIDSmitVerag_CheckedChanged(sender As Object, e As EventArgs) Handles cbxIDSmitVerag.CheckedChanged
initDgv_IDS()
End Sub
End Class

147
SDL/mdm/usrcntlFremdrechnungen.Designer.vb generated
View File

@@ -23,8 +23,8 @@ Partial Class usrcntlFremdrechnungen
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.btnSDL_Alle = New System.Windows.Forms.Button()
@@ -39,6 +39,8 @@ Partial Class usrcntlFremdrechnungen
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.KundenblattAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblSumBto = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.cbxMailoeffnen = New System.Windows.Forms.CheckBox()
Me.cbxPDFhinterlegt = New System.Windows.Forms.CheckBox()
Me.cbx = New System.Windows.Forms.CheckBox()
@@ -62,8 +64,11 @@ Partial Class usrcntlFremdrechnungen
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
Me.Label5 = New System.Windows.Forms.Label()
Me.lblSumBto = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.txtKundenNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtKundenNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.FlowLayoutPanel.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
@@ -277,6 +282,10 @@ Partial Class usrcntlFremdrechnungen
Me.Panel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.Label7)
Me.Panel1.Controls.Add(Me.txtKundenNrbis)
Me.Panel1.Controls.Add(Me.txtKundenNrvon)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.lblSumBto)
Me.Panel1.Controls.Add(Me.Label5)
Me.Panel1.Controls.Add(Me.cbxMailoeffnen)
@@ -300,12 +309,31 @@ Partial Class usrcntlFremdrechnungen
Me.Panel1.Size = New System.Drawing.Size(260, 907)
Me.Panel1.TabIndex = 23
'
'lblSumBto
'
Me.lblSumBto.AutoSize = True
Me.lblSumBto.BackColor = System.Drawing.Color.White
Me.lblSumBto.Location = New System.Drawing.Point(190, 20)
Me.lblSumBto.Name = "lblSumBto"
Me.lblSumBto.Size = New System.Drawing.Size(13, 13)
Me.lblSumBto.TabIndex = 56
Me.lblSumBto.Text = "0"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(4, 20)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(76, 13)
Me.Label5.TabIndex = 55
Me.Label5.Text = "Summe Brutto:"
'
'cbxMailoeffnen
'
Me.cbxMailoeffnen.AutoSize = True
Me.cbxMailoeffnen.Checked = True
Me.cbxMailoeffnen.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxMailoeffnen.Location = New System.Drawing.Point(146, 183)
Me.cbxMailoeffnen.Location = New System.Drawing.Point(146, 237)
Me.cbxMailoeffnen.Name = "cbxMailoeffnen"
Me.cbxMailoeffnen.Size = New System.Drawing.Size(91, 17)
Me.cbxMailoeffnen.TabIndex = 54
@@ -317,7 +345,7 @@ Partial Class usrcntlFremdrechnungen
Me.cbxPDFhinterlegt.AutoSize = True
Me.cbxPDFhinterlegt.Checked = True
Me.cbxPDFhinterlegt.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxPDFhinterlegt.Location = New System.Drawing.Point(8, 125)
Me.cbxPDFhinterlegt.Location = New System.Drawing.Point(8, 179)
Me.cbxPDFhinterlegt.Name = "cbxPDFhinterlegt"
Me.cbxPDFhinterlegt.Size = New System.Drawing.Size(101, 17)
Me.cbxPDFhinterlegt.TabIndex = 53
@@ -328,7 +356,7 @@ Partial Class usrcntlFremdrechnungen
'cbx
'
Me.cbx.AutoSize = True
Me.cbx.Location = New System.Drawing.Point(8, 107)
Me.cbx.Location = New System.Drawing.Point(8, 161)
Me.cbx.Name = "cbx"
Me.cbx.Size = New System.Drawing.Size(169, 17)
Me.cbx.TabIndex = 52
@@ -338,7 +366,7 @@ Partial Class usrcntlFremdrechnungen
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(5, 35)
Me.Label4.Location = New System.Drawing.Point(2, 35)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(91, 13)
Me.Label4.TabIndex = 51
@@ -384,7 +412,7 @@ Partial Class usrcntlFremdrechnungen
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(5, 268)
Me.Button1.Location = New System.Drawing.Point(5, 322)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(50, 44)
Me.Button1.TabIndex = 45
@@ -396,7 +424,7 @@ Partial Class usrcntlFremdrechnungen
Me.cbxMax1000Eintrage.AutoSize = True
Me.cbxMax1000Eintrage.Checked = True
Me.cbxMax1000Eintrage.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxMax1000Eintrage.Location = New System.Drawing.Point(8, 145)
Me.cbxMax1000Eintrage.Location = New System.Drawing.Point(8, 199)
Me.cbxMax1000Eintrage.Name = "cbxMax1000Eintrage"
Me.cbxMax1000Eintrage.Size = New System.Drawing.Size(117, 17)
Me.cbxMax1000Eintrage.TabIndex = 41
@@ -418,7 +446,7 @@ Partial Class usrcntlFremdrechnungen
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Image = Global.SDL.My.Resources.Resources.checklist
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(8, 218)
Me.Button4.Location = New System.Drawing.Point(8, 272)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(118, 44)
Me.Button4.TabIndex = 21
@@ -431,7 +459,7 @@ Partial Class usrcntlFremdrechnungen
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Image = Global.SDL.My.Resources.Resources.email_big1
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.Location = New System.Drawing.Point(8, 168)
Me.Button5.Location = New System.Drawing.Point(8, 222)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(118, 44)
Me.Button5.TabIndex = 22
@@ -453,7 +481,7 @@ Partial Class usrcntlFremdrechnungen
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(132, 218)
Me.Button8.Location = New System.Drawing.Point(132, 272)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(118, 44)
Me.Button8.TabIndex = 31
@@ -501,8 +529,8 @@ Partial Class usrcntlFremdrechnungen
Me.dgvLFRechnung.AllowUserToDeleteRows = False
Me.dgvLFRechnung.AllowUserToResizeColumns = False
Me.dgvLFRechnung.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.dgvLFRechnung.BackgroundColor = System.Drawing.Color.White
Me.dgvLFRechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvLFRechnung.Location = New System.Drawing.Point(4, 3)
@@ -518,8 +546,8 @@ Partial Class usrcntlFremdrechnungen
Me.dgvDetails.AllowUserToDeleteRows = False
Me.dgvDetails.AllowUserToResizeColumns = False
Me.dgvDetails.AllowUserToResizeRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
Me.dgvDetails.BackgroundColor = System.Drawing.Color.White
Me.dgvDetails.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvDetails.Location = New System.Drawing.Point(-1, 3)
@@ -557,24 +585,74 @@ Partial Class usrcntlFremdrechnungen
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22)
Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)"
'
'Label5
'Label6
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(4, 20)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(76, 13)
Me.Label5.TabIndex = 55
Me.Label5.Text = "Summe Brutto:"
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(8, 107)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(58, 13)
Me.Label6.TabIndex = 57
Me.Label6.Text = "KundenNr."
'
'lblSumBto
'ContextMenuStrip2
'
Me.lblSumBto.AutoSize = True
Me.lblSumBto.BackColor = System.Drawing.Color.White
Me.lblSumBto.Location = New System.Drawing.Point(190, 20)
Me.lblSumBto.Name = "lblSumBto"
Me.lblSumBto.Size = New System.Drawing.Size(13, 13)
Me.lblSumBto.TabIndex = 56
Me.lblSumBto.Text = "0"
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'txtKundenNrvon
'
Me.txtKundenNrvon._DateTimeOnly = False
Me.txtKundenNrvon._numbersOnly = True
Me.txtKundenNrvon._numbersOnlyKommastellen = ""
Me.txtKundenNrvon._numbersOnlyTrennzeichen = False
Me.txtKundenNrvon._Prozent = False
Me.txtKundenNrvon._ShortDateNew = False
Me.txtKundenNrvon._ShortDateOnly = False
Me.txtKundenNrvon._TimeOnly = False
Me.txtKundenNrvon._TimeOnly_Seconds = False
Me.txtKundenNrvon._value = ""
Me.txtKundenNrvon._Waehrung = False
Me.txtKundenNrvon._WaehrungZeichen = False
Me.txtKundenNrvon.ForeColor = System.Drawing.Color.Black
Me.txtKundenNrvon.Location = New System.Drawing.Point(11, 123)
Me.txtKundenNrvon.MaxLineLength = -1
Me.txtKundenNrvon.MaxLines_Warning = ""
Me.txtKundenNrvon.MaxLines_Warning_Label = Nothing
Me.txtKundenNrvon.Name = "txtKundenNrvon"
Me.txtKundenNrvon.Size = New System.Drawing.Size(98, 20)
Me.txtKundenNrvon.TabIndex = 58
'
'txtKundenNrbis
'
Me.txtKundenNrbis._DateTimeOnly = False
Me.txtKundenNrbis._numbersOnly = True
Me.txtKundenNrbis._numbersOnlyKommastellen = ""
Me.txtKundenNrbis._numbersOnlyTrennzeichen = False
Me.txtKundenNrbis._Prozent = False
Me.txtKundenNrbis._ShortDateNew = False
Me.txtKundenNrbis._ShortDateOnly = False
Me.txtKundenNrbis._TimeOnly = False
Me.txtKundenNrbis._TimeOnly_Seconds = False
Me.txtKundenNrbis._value = ""
Me.txtKundenNrbis._Waehrung = False
Me.txtKundenNrbis._WaehrungZeichen = False
Me.txtKundenNrbis.ForeColor = System.Drawing.Color.Black
Me.txtKundenNrbis.Location = New System.Drawing.Point(146, 123)
Me.txtKundenNrbis.MaxLineLength = -1
Me.txtKundenNrbis.MaxLines_Warning = ""
Me.txtKundenNrbis.MaxLines_Warning_Label = Nothing
Me.txtKundenNrbis.Name = "txtKundenNrbis"
Me.txtKundenNrbis.Size = New System.Drawing.Size(98, 20)
Me.txtKundenNrbis.TabIndex = 59
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(121, 126)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(10, 13)
Me.Label7.TabIndex = 60
Me.Label7.Text = "-"
'
'usrcntlFremdrechnungen
'
@@ -640,4 +718,9 @@ Partial Class usrcntlFremdrechnungen
Friend WithEvents cbxMailoeffnen As CheckBox
Friend WithEvents lblSumBto As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label7 As Label
Friend WithEvents txtKundenNrbis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtKundenNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As Label
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
End Class

3
SDL/mdm/usrcntlFremdrechnungen.resx
View File

@@ -123,4 +123,7 @@
<metadata name="cntxtExcel.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>807, 17</value>
</metadata>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>913, 17</value>
</metadata>
</root>

761
SDL/mdm/usrcntlFremdrechnungen.vb
View File

@@ -50,6 +50,10 @@ Public Class usrcntlFremdrechnungen
dgvInitWait = True
txtKundenNrvon.Enabled = kdNr <= 0
txtKundenNrbis.Enabled = kdNr <= 0
Dim kdNr_WHERE = ""
If kdNr_filter Then
kdNr_WHERE = ""
@@ -75,10 +79,12 @@ Public Class usrcntlFremdrechnungen
KUNDE = kundenSQL.getKundeByKdNr(kdNr)
dtkeineMWST = (New SQL).loadDgvBySql("select Land, Erstattungsland, Lieferant from tblKeineMWSTErstattung", "FMZOLL")
If KUNDE IsNot Nothing Then
If KUNDE.KundenNr > 0 Then
dtKundeMWST = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE.KundenNr, "FMZOLL")
cbx.Visible = True
End If
SET_SDL("")
dgvInitWait = False
@@ -203,7 +209,7 @@ Public Class usrcntlFremdrechnungen
End Sub
Sub SET_SDL(SDLNrTmp)
Sub SET_SDL(SDLNrTmp As String, Optional kdNrvon As Integer = -1, Optional kdNrbis As Integer = -1)
aktLieferant = SDLNrTmp
@@ -211,77 +217,90 @@ Public Class usrcntlFremdrechnungen
Dim sqlfehlendePDF As String = ""
Dim sqlfehlendePDF_PLOSE As String = ""
Dim sqlfehlendePDF_RMC As String = ""
Dim sqlfehlendePDF_VERAG As String = "" 'veragPDF sind immer da (können nie fehlen)!
Select Case cbxPDFhinterlegt.CheckState
Case CheckState.Unchecked : sqlfehlendePDF = " AND [daId] is null" : sqlfehlendePDF_PLOSE = " AND plInv_daId is null" : sqlfehlendePDF_RMC = " AND rmc_daId is null"
Case CheckState.Checked : sqlfehlendePDF = " AND not [daId] is null" : sqlfehlendePDF_PLOSE = " AND plInv_daId is not null" : sqlfehlendePDF_RMC = " AND rmc_daId is not null"
Case CheckState.Unchecked : sqlfehlendePDF = " AND [daId] is null" : sqlfehlendePDF_PLOSE = " AND plInv_daId is null" : sqlfehlendePDF_RMC = " AND rmc_daId is null" : sqlfehlendePDF_VERAG = " AND 1 = 0"
Case CheckState.Checked : sqlfehlendePDF = " AND not [daId] is null" : sqlfehlendePDF_PLOSE = " AND plInv_daId is not null" : sqlfehlendePDF_RMC = " AND rmc_daId is not null" : sqlfehlendePDF_VERAG = " AND 1 = 1"
End Select
Dim whereKundennrKreisAlle As String = ""
Dim whereKundennrKreisLieferanten As String = ""
If kdNrvon > 0 AndAlso kdNrbis > 0 Then
Select Case SDLNrTmp
Case "IDS" : whereKundennrKreisLieferanten = " and KdNrVERAG between " & kdNrvon & " and " & kdNrbis
Case "MSE" : whereKundennrKreisLieferanten = " and partner_customer_number between " & kdNrvon & " and " & kdNrbis
Case "ALLE" : whereKundennrKreisAlle = " and temp.AdressenNr between " & kdNrvon & " and " & kdNrbis
Case Else
whereKundennrKreisLieferanten = " and AdressenNr between " & kdNrvon & " and " & kdNrbis
End Select
End If
Dim SQL_STR = ""
Select Case SDLNrTmp
'IDS
Case "IDS" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
" invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, tblIDSInvoicesNew.CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & ") and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & " order by [YearMonthDay] desc, [Invoicenumber]"
" invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, tblIDSInvoicesNew.CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & ") and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & whereKundennrKreisLieferanten & " order by [YearMonthDay] desc, [Invoicenumber]"
'UTA
Case "UTA" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
" Adressen.AdressenNr, Adressen.[Name 1], [Rechnungsdatum],[Rechnungsnummer_pro_Lieferland] as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[daId],[Lieferland_ISO2] as Land, 'RE' as Art, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(archiv as bit) as archiv FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " AND [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "Lieferland_ISO2") & " group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2], archiv"
" Adressen.AdressenNr, Adressen.[Name 1], [Rechnungsdatum],[Rechnungsnummer_pro_Lieferland] as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[daId],[Lieferland_ISO2] as Land, 'RE' as Art, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(archiv as bit) as archiv FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " AND [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "Lieferland_ISO2") & whereKundennrKreisLieferanten & " group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2], archiv"
SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & " Adressen.AdressenNr, Adressen.[Name 1],[Datum], [RechnungsNr],[KundenNr],0,0,0,[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(0 as bit) as archiv FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where 1 = 1 " & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Datum] " & setSQLWhere("_", "") & " order by Rechnungsdatum desc"
SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & " Adressen.AdressenNr, Adressen.[Name 1],[Datum], [RechnungsNr],[KundenNr],0,0,0,[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(0 as bit) as archiv FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where 1 = 1 " & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Datum] " & setSQLWhere("_", "") & whereKundennrKreisLieferanten & " order by Rechnungsdatum desc"
'PLOSE
Case "PLOSE" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
" Adressen.AdressenNr, Adressen.[Name 1],[plInv_SupplierRechnungsDatum] as Rechnungsdatum, [plInv_SupplierRechnungsNr] as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_daId] as daId, [plInv_SupplierCountry] as Land, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, plInv_Archiv as archiv FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere(SDLNrTmp, "plInv_SupplierCountry") & " Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]"
" Adressen.AdressenNr, Adressen.[Name 1],[plInv_SupplierRechnungsDatum] as Rechnungsdatum, [plInv_SupplierRechnungsNr] as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_daId] as daId, [plInv_SupplierCountry] as Land, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, plInv_Archiv as archiv FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere(SDLNrTmp, "plInv_SupplierCountry") & whereKundennrKreisLieferanten & " Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]"
'MSE
Case "MSE" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
" partner_customer_number as AdressenNr, customer_name as [Name 1], [invoice_date] as Rechnungsdatum, [invoice_id] as Rechnungsnummer/*,[invoice_nr]*/,[customer_number] as Kundennummer, daId, [total_amount_euro] as Brutto_EUR ,[total_vat_amount_euro] as MWST,[country] as Land, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, archiv FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere(SDLNrTmp, "country") & " order by invoice_date desc, invoice_id"
" partner_customer_number as AdressenNr, customer_name as [Name 1], [invoice_date] as Rechnungsdatum, [invoice_id] as Rechnungsnummer/*,[invoice_nr]*/,[customer_number] as Kundennummer, daId, [total_amount_euro] as Bruttobetrag ,[total_vat_amount_euro] as MWST,[country] as Land, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, archiv FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere(SDLNrTmp, "country") & whereKundennrKreisLieferanten & " order by invoice_date desc, invoice_id"
'VERAG
Case "VERAG" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
" Adressen.AdressenNr, Adressen.[Name 1], tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.SteuerbetragLokal, 1 as daId, cast(1 as bit) as PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " AND tblTrdinInvoice.FilialenNr = 4814 and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & " ORDER BY tblTrdinInvoice.Rechnungsdatum desc, tblTrdinInvoice.Rechnungsnummer"
" Adressen.AdressenNr, Adressen.[Name 1], tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.RechnungsbetragLokal as Bruttobetrag, 1 as daId, cast(1 as bit) as PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " AND tblTrdinInvoice.FilialenNr = 4814 and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & " ORDER BY tblTrdinInvoice.Rechnungsdatum desc, tblTrdinInvoice.Rechnungsnummer"
'RMC
Case "RMC" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") &
"Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Brutto_EUR,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & " order by rmc_reDatum desc, rmc_reNr"
"Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Bruttobetrag,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & whereKundennrKreisLieferanten & " order by rmc_reDatum desc, rmc_reNr"
Case "ALLE" : Dim anzahl As Integer = anzahlTop / 6 : SQL_STR = " select * from (SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") &
"
--IDS
'IDS' as Lieferant,invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,tblIDSInvoicesNew.CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & " -- order by [YearMonthDay], [Invoicenumber]
'IDS' as Lieferant,invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,tblIDSInvoicesNew.CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & whereKundennrKreisLieferanten & " -- order by [YearMonthDay], [Invoicenumber]
UNION ALL
--MSE
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'MSE' as Lieferant,-1 as invoice_id,partner_customer_number as AdressenNr, [invoice_date] as Rechnungsdatum, cast([invoice_id] as nvarchar) as Rechnungsnummer,[customer_number] as Kundennummer, [total_amount_euro] as Bruttobetrag ,(total_amount_euro - [total_vat_amount_euro]) as Nettobetrag ,[total_vat_amount_euro] as MWST,[country] as Land,'RE' as Art,daId, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere("MSE", "country") & " --order by invoice_date, invoice_id
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'MSE' as Lieferant,-1 as invoice_id,partner_customer_number as AdressenNr, [invoice_date] as Rechnungsdatum, cast([invoice_id] as nvarchar) as Rechnungsnummer,[customer_number] as Kundennummer, [total_amount_euro] as Bruttobetrag ,(total_amount_euro - [total_vat_amount_euro]) as Nettobetrag ,[total_vat_amount_euro] as MWST,[country] as Land,'RE' as Art,daId, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere("MSE", "country") & whereKundennrKreisLieferanten & " --order by invoice_date, invoice_id
UNION ALL
--UTA
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'UTA' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [Rechnungsdatum],STR([Rechnungsnummer_pro_Lieferland]) as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Rechnungsdatum] " & setSQLWhere("UTA", "Lieferland_ISO2") & " group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,AdressenNr,[daId],[Lieferland_ISO2] UNION ALL SELECT 'UTA',-1,AdressenNr, [Datum], cast([RechnungsNr] as nvarchar) ,[KundenNr],0,0,0,'',[DocumentTyp],[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where AdressenNr = " & kdNr & " AND Datum " & setSQLWhere("UTA_", "") & " --order by Rechnungsnummer desc
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'UTA' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [Rechnungsdatum],STR([Rechnungsnummer_pro_Lieferland]) as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Rechnungsdatum] " & setSQLWhere("UTA", "Lieferland_ISO2") & whereKundennrKreisLieferanten & " group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,AdressenNr,[daId],[Lieferland_ISO2] UNION ALL SELECT 'UTA',-1,AdressenNr, [Datum], cast([RechnungsNr] as nvarchar) ,[KundenNr],0,0,0,'',[DocumentTyp],[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where AdressenNr = " & kdNr & " AND Datum " & setSQLWhere("UTA_", "") & whereKundennrKreisLieferanten & " --order by Rechnungsnummer desc
UNION ALL
--VERAG
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'VERAG' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, tblTrdinInvoice.Rechnungsdatum, cast(tblTrdinInvoice.Rechnungsnummer as nvarchar) as Rechnungsnummer ,tblTrdinInvoice.KundenNrZentrale as Kundennummer, tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal as Bruttobetrag ,tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal - tblTrdinInvoice.SteuerbetragLokal as Nettobetrag ,tblTrdinInvoice.SteuerbetragLokal as MWST, 'AT' as Land, 'RE' as Art, 1 as daId, cast(1 as bit) PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere("VERAG", "'AT'") & " AND tblTrdinInvoice.FilialenNr = 4814 --ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'VERAG' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, tblTrdinInvoice.Rechnungsdatum, cast(tblTrdinInvoice.Rechnungsnummer as nvarchar) as Rechnungsnummer ,tblTrdinInvoice.KundenNrZentrale as Kundennummer, tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal as Bruttobetrag ,tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal - tblTrdinInvoice.SteuerbetragLokal as Nettobetrag ,tblTrdinInvoice.SteuerbetragLokal as MWST, 'AT' as Land, 'RE' as Art, 1 as daId, cast(1 as bit) PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere("VERAG", "'AT'") & whereKundennrKreisLieferanten & " AND tblTrdinInvoice.FilialenNr = 4814 --ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer
UNION ALL
--PLOSE
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'PLOSE' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [plInv_SupplierRechnungsDatum] as Rechnungsdatum, cast([plInv_SupplierRechnungsNr] as nvarchar) as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as Land, 'RE' as Art,[plInv_daId] as daId, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere("PLOSE", "plInv_SupplierCountry") & "-- Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'PLOSE' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [plInv_SupplierRechnungsDatum] as Rechnungsdatum, cast([plInv_SupplierRechnungsNr] as nvarchar) as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as Land, 'RE' as Art,[plInv_daId] as daId, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere("PLOSE", "plInv_SupplierCountry") & whereKundennrKreisLieferanten & "-- Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]
UNION ALL
--RMC
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'RMC' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [rmc_reDatum] as Rechnungsdatum,cast([rmc_reNr] as nvarchar) as Rechnungsnummer,rmc_kdNr as Kundennummer ,[rmc_betragBrutto] as Bruttobetrag,[rmc_betragNetto] as Nettobetrag,[rmc_betragMWST] as MWST, rmc_landKZ as Land, 'RE' as Art, [rmc_daId] as daId, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere("RMC", "rmc_landKZ") & "-- order by rmc_reDatum, rmc_reNr
SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'RMC' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [rmc_reDatum] as Rechnungsdatum,cast([rmc_reNr] as nvarchar) as Rechnungsnummer,rmc_kdNr as Kundennummer ,[rmc_betragBrutto] as Bruttobetrag,[rmc_betragNetto] as Nettobetrag,[rmc_betragMWST] as MWST, rmc_landKZ as Land, 'RE' as Art, [rmc_daId] as daId, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere("RMC", "rmc_landKZ") & whereKundennrKreisLieferanten & "-- order by rmc_reDatum, rmc_reNr
) as temp where 1=1 and temp.Rechnungsdatum" & setSQLWhere(SDLNrTmp, "temp.Land") & " order by Rechnungsdatum desc"
) as temp where 1=1 and temp.Rechnungsdatum" & setSQLWhere(SDLNrTmp, "temp.Land") & whereKundennrKreisAlle & " order by Rechnungsdatum desc"
@@ -349,6 +368,7 @@ Public Class usrcntlFremdrechnungen
Private Function setSQLWhere(aktLieferant As String, land As String) As String
'das hier geht (aktuell) nur PRO KUNDE -> ALSO nicht in der Gesamtübersicht!!!!!!!!
Dim SQLWhere = " between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "'"
@@ -433,6 +453,8 @@ Public Class usrcntlFremdrechnungen
Private Function setSQLDetailWhere(aktLieferant As String, land As String, Optional alle As Boolean = False) As String
'das hier ist nur PRO KUNDE möglich!!!
Dim SQLWhere = ""
If cbx.Checked AndAlso KUNDE IsNot Nothing Then
@@ -513,44 +535,141 @@ Public Class usrcntlFremdrechnungen
End Select
End Function
Private Sub btnSDL_Alle_Click(sender As Object, e As EventArgs) Handles btnSDL_Alle.Click
SET_SDL("ALLE")
'SET_SDL("ALLE")
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL("ALLE", txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL("ALLE")
End If
End Sub
Private Sub btnSDL_IDS_Click(sender As Object, e As EventArgs) Handles btnSDL_IDS.Click
SET_SDL("IDS")
'SET_SDL("IDS")
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL("IDS", txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL("IDS")
End If
End Sub
Private Sub btnSDL_UTA_Click(sender As Object, e As EventArgs) Handles btnSDL_UTA.Click
SET_SDL("UTA")
'SET_SDL("UTA")
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL("UTA", txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL("UTA")
End If
End Sub
Private Sub btnSDL_Hugo_Click(sender As Object, e As EventArgs) Handles btnSDL_Hugo.Click
SET_SDL("HUGO")
'SET_SDL("HUGO")
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL("HUGO", txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL("HUGO")
End If
End Sub
Private Sub btnSDL_PLOSE_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE.Click
SET_SDL("PLOSE")
'SET_SDL("PLOSE")
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL("PLOSE", txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL("PLOSE")
End If
End Sub
Private Sub btnSDL_MautMSE_Click(sender As Object, e As EventArgs) Handles btnSDL_MautMSE.Click
SET_SDL("MSE")
'SET_SDL("MSE")
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL("MSE", txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL("MSE")
End If
End Sub
Private Sub btnSDL_MotorWay_Click(sender As Object, e As EventArgs)
SET_SDL("MW")
'SET_SDL("MW")
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL("MW", txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL("MW")
End If
End Sub
Private Sub btnSDL_FREJUS_Click(sender As Object, e As EventArgs) Handles btnSDL_FREJUS.Click
SET_SDL("FREJUS")
'SET_SDL("FREJUS")
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL("FREJUS", txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL("FREJUS")
End If
End Sub
Private Sub btnVERAGCardNew_Click(sender As Object, e As EventArgs) Handles btnVERAGCardNew.Click
SET_SDL("VERAG")
'SET_SDL("VERAG")
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL("VERAG", txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL("VERAG")
End If
End Sub
Private Sub btnSDL_RMC_Click(sender As Object, e As EventArgs) Handles btnSDL_RMC.Click
SET_SDL("RMC")
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL("RMC", txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL("RMC")
End If
End Sub
@@ -589,9 +708,6 @@ Public Class usrcntlFremdrechnungen
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
If SplitContainer1.Panel2Collapsed Then
SplitContainer1.Panel2Collapsed = False
@@ -666,194 +782,379 @@ Public Class usrcntlFremdrechnungen
Next
If aktLieferant = "ALLE" And cbxMax1000Eintrage.Checked Then
MsgBox("Entferne die MAX 1000 Einträge Beschänkung, da ansonsten können nicht alle Daten ermittelt werden!")
MsgBox("Entferne die MAX 1000 Einträge Beschänkung, da ansonsten nicht alle Daten ermittelt werden können!")
Exit Sub
End If
If groups.Count > 0 Then
If Not vbYes = MsgBox("Möchten Sie die Rechnungen von " & groups.Count & " Kunden per Mail verschicken? " & IIf(Not cbxMailoeffnen.Checked, vbNewLine & "Die Mails werden sofort verschickt!", ""), vbYesNoCancel) Then
If Not vbYes = MsgBox("Möchten Sie die Rechnungen von " & groups.Count & " Kunden per Mail verschicken? " & IIf(Not cbxMailoeffnen.Checked, vbNewLine & "Die Mails werden sofort ohne Dialogfeld verschickt!", ""), vbYesNoCancel) Then
Exit Sub
End If
For Each kvp In groups
Dim TextHTMLtable = ""
Dim TextHTMLtable = ""
TextHTMLtable &= "<table border=1>"
TextHTMLtable &= "<tr><td>Supplier</td><td>Country</td><td>Date</td></tr>"
Dim pdflist = createEMailTable(TextHTMLtable, kvp, cbx.Checked)
Dim pdflist As New List(Of String)
createEmail(kvp.Key, TextHTMLtable, pdflist)
For Each row In kvp.Value
Next
Dim Lieferant = ""
End If
If dgvLFRechnung.Columns.Contains("Lieferant") Then
Lieferant = row.Cells("Lieferant").Value
End Sub
Private Function createEMailTable(ByRef TextHTMLtable As String, kvp As KeyValuePair(Of Object, List(Of DataGridViewRow)), onlyRelevantInvioces As Boolean) As List(Of String)
'------------------------------------------------------------
'toDo-Logik für die Ausnahmen - START - wie in Function "setSQLWhere(aktLieferant As String, land As String) As String"
'------------------------------------------------------------
'1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
Dim landKZiso2 = ""
Dim KUNDE_TEMP As cKunden
KUNDE_TEMP = kundenSQL.getKundeByKdNr(kvp.Key)
If KUNDE_TEMP.LandKz <> "" Then
If KUNDE_TEMP.LandKz.Length = 2 Then
landKZiso2 = KUNDE_TEMP.LandKz
ElseIf KUNDE_TEMP.LandKz.Length = 3 Then
landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE_TEMP.LandKz)
ElseIf KUNDE_TEMP.LandKz.Length = 1 Then
landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE_TEMP.LandKz)
End If
End If
Dim dtKundeMWSTTemp As DataTable = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE_TEMP.KundenNr, "FMZOLL")
'2. wenn die Rechnung die Summe NULL aufweist
'3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt (auch nicht auf Diesel -> IDS)
'4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
'If cbx.Checked AndAlso aktLieferant <> "IDS" AndAlso KUNDE IsNot Nothing Then
' Dim erw As New cKundenErweitert(KUNDE.KundenNr)
' If erw.kde_keineMWSt Then Return SQLWhere
' SQLWhere &= "AND ("
' 'ORIGINAL-RECHNUNG senden wenn:
' '1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
' Dim landKZiso2 = ""
' If LAND <> "" Then 'LandKZ vom Kunden muss auf ISO2 konvertiert werden, weil da ein Misch-Masch in der Datenbank herrscht!
' If KUNDE.LandKz <> "" Then
' If KUNDE.LandKz.Length = 2 Then
' landKZiso2 = KUNDE.LandKz
' ElseIf KUNDE.LandKz.Length = 3 Then
' landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz)
' ElseIf KUNDE.LandKz.Length = 1 Then
' landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz)
' End If
' SQLWhere &= " " & LAND & " in ('" & landKZiso2 & "')"
' End If
' End If
' '2. wenn die Rechnung die MWST-SUMME 0 aufweist!!!
' Select Case aktLieferant
' Case "UTA" : SQLWhere &= " OR Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = 0 " 'UTA bei UTA auch EPN ausblenden!
' Case "PLOSE" : SQLWhere &= " OR plInv_MWSTBetrag = 0" 'PLOSE
' Case "VERAG" : SQLWhere &= " OR tblTrdinInvoice.SteuerbetragLokal = 0" 'VERAG
' Case "MSE" : SQLWhere &= " OR total_vat_amount_euro = 0" 'MSE
' Case "RMC" : SQLWhere &= " OR rmc_betragMWST = 0" 'RMC
' Case "ALLE" : SQLWhere &= " OR temp.MWSt = 0" 'ALLE
' Case "UTA_" : SQLWhere &= " 1 <> 1"
' Case Else : SQLWhere &= " 1 <> 1"
' End Select
' '3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
' If LAND <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
' Dim dtkeineMWST_ohneContraint As DataTable = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "'").CopyToDataTable
' Dim counter = 0
' Dim landBez As String = ""
' For Each row As DataRow In dtkeineMWST_ohneContraint.Rows
' landBez &= "'" & row.Item("Erstattungsland") & "'"
' counter = counter + 1
' If (dtkeineMWST_ohneContraint.Rows.Count <> 0 And counter <> dtkeineMWST_ohneContraint.Rows.Count) Then landBez &= ","
' Next
' SQLWhere &= " OR " & LAND & " in (" & landBez & ")"
' If aktLieferant = "ALLE" Then SQLWhere &= " OR " & LAND & " in ('')" 'damit IDS ohne Land nicht ausgeschlossen wird.
' End If
' '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
' If LAND <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
' Dim counter = 0
' Dim landBez As String = ""
' For Each row As DataRow In dtKundeMWST.Rows
' landBez &= "'" & row.Item("LandKz") & "'"
' counter = counter + 1
' If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
' Next
' SQLWhere &= " OR " & LAND & " in (" & landBez & ")"
' End If
' SQLWhere &= ")"
'------------------------------------------------------------
'toDo-Logik für die Ausnahmen - END
'------------------------------------------------------------
TextHTMLtable &= "<table border=1>"
TextHTMLtable &= "<tr><td>Supplier</td><td>Country</td><td>Date</td><td>Filename</td></tr>"
Dim pdflist As New List(Of String)
For Each row In kvp.Value
Dim erw As New cKundenErweitert(kvp.Key)
Dim Lieferant = ""
If dgvLFRechnung.Columns.Contains("Lieferant") Then
Lieferant = row.Cells("Lieferant").Value
Else
Lieferant = aktLieferant
End If
If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Continue For 'abbruchbedingung -> nächste Zeile
Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True)
'ORIGINAL-RECHNUNG senden wenn:
If onlyRelevantInvioces Then
'1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…)
If Not sendÍnvoice AndAlso row.Cells("Land").Value <> "" AndAlso landKZiso2 = row.Cells("Land").Value Then sendÍnvoice = True
'2. wenn die Rechnung die MWST-SUMME 0 aufweist!!!
If Not sendÍnvoice AndAlso row.Cells("MWSt").Value = 0 Then sendÍnvoice = True
'3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt -> dtkeineMWST
If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
Dim rows() As DataRow = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "' and Erstattungsland = '" & row.Cells("Land").Value & "'")
Dim dtkeineMWST_ohneContraint As New DataTable
If rows.Length > 0 Then dtkeineMWST_ohneContraint = rows.CopyToDataTable()
If dtkeineMWST_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True
End If
'4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then
Dim rows() As DataRow = dtKundeMWSTTemp.Select("LandKz = '" & row.Cells("Land").Value & "'")
Dim dtKundeMWSTTemp_ohneContraint As New DataTable
If rows.Length > 0 Then dtKundeMWSTTemp_ohneContraint = rows.CopyToDataTable()
If dtKundeMWSTTemp_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True
End If
End If
If Lieferant = "VERAG" Then
'VERAG IGNORIEREN
'Dim ReDat = row.Cells("Rechnungsdatum").Value
'Dim ReNr = row.Cells("Rechnungsnummer").Value
'If ReDat IsNot Nothing AndAlso ReNr > 0 Then
' Me.Cursor = Cursors.WaitCursor
' Dim da_id = SQL.getValueTxtBySql("Select TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum As Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL")
' cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3)
'End If
Else
If Lieferant = "IDS" Then
Dim dt As New DataTable
dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True)
For Each r As DataRow In dt.Rows
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
TextHTMLtable &= "<td><b>" & r.Item("Land") & "</b></td>"
TextHTMLtable &= "<td><b>" & r.Item("Rechnungsdatum") & "</b></td>"
Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId"))
If daId > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
pdflist.Add(DS.GET_TOP1_PATH())
TextHTMLtable &= "<td><b>" & DS.da_name & "</b></td>"
Else
Lieferant = aktLieferant
TextHTMLtable &= "<td><b>-</b></td>"
End If
If Lieferant = "VERAG" Then
'VERAG IGNORIEREN
'Dim ReDat = row.Cells("Rechnungsdatum").Value
'Dim ReNr = row.Cells("Rechnungsnummer").Value
'If ReDat IsNot Nothing AndAlso ReNr > 0 Then
' Me.Cursor = Cursors.WaitCursor
' Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL")
' cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3)
'End If
Else
If Lieferant = "IDS" Then
Dim dt As New DataTable
dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True)
For Each r As DataRow In dt.Rows
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
TextHTMLtable &= "<td><b>" & r.Item("Land") & "</b></td>"
TextHTMLtable &= "<td><b>" & r.Item("Rechnungsdatum") & "</b></td>"
TextHTMLtable &= "</tr>"
Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId"))
If daId > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
pdflist.Add(DS.GET_TOP1_PATH())
End If
Next
Else
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("Land").Value & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("Rechnungsdatum").Value & "</b></td>"
TextHTMLtable &= "</tr>"
Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value)
If daId > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
pdflist.Add(DS.GET_TOP1_PATH())
End If
End If
End If
TextHTMLtable &= "</tr>"
Next
TextHTMLtable &= "</table>"
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Dim kundeMail As New cKunden()
kundeMail = kundenSQL.getKundeByKdNr(kvp.Key)
Select Case kundeMail.LandKz
Case "TR"
Mail.Subject = kundeMail.Kurzname & " - ORIJINAL FATURA "
Mail.HTMLBody = "Bayanlar ve Baylar!,<br><br>Ekte izlere orijinal faturalarinizi gönderiyoruz.<br><br>"
Mail.HTMLBody &= TextHTMLtable
Mail.HTMLBody &= "<br><br><br>Iyi calismalar dileriz.<br><br>"
Case "A", "AT", "D", "DE", "CH"
Mail.Subject = kundeMail.Kurzname & " - ORIGINAL RECHNUNG "
Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>im Anhang senden wir Ihnen die Originalrechnungen.<br><br>"
Mail.HTMLBody &= TextHTMLtable
Mail.HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>"
Case "RO"
Mail.Subject = kundeMail.Kurzname & " - FACTURI RETURNATE "
Mail.HTMLBody = "Stimati domni, stimate doamne,<br><br>Va returnam facturile originale care nu au fost utilizate spre recuperare TVA.<br><br>Va multumim pentru colaborarea.<br><br>"
Mail.HTMLBody &= TextHTMLtable
Mail.HTMLBody &= "<br><br><br>Cu stima<br><br>"
Case "HR", "BIH", "SLO", "SRB", "BIH"
Mail.Subject = kundeMail.Kurzname & " - ORGINALNI RACUNI "
Mail.HTMLBody = "Postovanje,<br><br>prilozeno Vam dostavljamo orginalne racune za Vasu daljnu upotrebu.<br><br>Za pitanja stojimo na raspolaganju.<br><br>"
Mail.HTMLBody &= TextHTMLtable
Mail.HTMLBody &= "<br><br><br>Srdacan pozdrav<br><br>"
Case Else
Mail.Subject = kundeMail.Kurzname & " - Invoice No."
Mail.HTMLBody = TextHTMLtable
Mail.HTMLBody = "Dear Sir or Madam,<br><br>attached we send you the original invoice mentioned above.<br><br>"
Mail.HTMLBody &= TextHTMLtable
Mail.HTMLBody &= "<br><br><br>Best regards<br><br>"
End Select
If pdflist.Count > 0 Then
For Each pdf In pdflist
Mail.Attachments.Add(pdf, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , )
Next
End If
Mail.To &= kundeMail.EMail
Mail.CC &= kundeMail.EMail2
If cbxMailoeffnen.Checked Then
Mail.Display()
Else
If sendÍnvoice Then
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("Land").Value & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("Rechnungsdatum").Value & "</b></td>"
Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value)
If daId > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
pdflist.Add(DS.GET_TOP1_PATH())
TextHTMLtable &= "<td><b>" & DS.da_name & "</b></td>"
Else
TextHTMLtable &= "<td><b>-</b></td>"
End If
TextHTMLtable &= "</tr>"
End If
End If
End If
Next
TextHTMLtable &= "</table>"
Return pdflist
End Function
Private Sub createEmail(kdNr As Integer, ByRef TextHTMLtable As String, pdflist As List(Of String))
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Dim kundeMail As New cKunden()
kundeMail = kundenSQL.getKundeByKdNr(kdNr)
Select Case kundeMail.LandKz
Case "TR"
Mail.Subject = kundeMail.Kurzname & " - ORIJINAL FATURA "
Mail.HTMLBody = "Bayanlar ve Baylar!,<br><br>Ekte izlere orijinal faturalarinizi gönderiyoruz.<br><br>"
Mail.HTMLBody &= TextHTMLtable
Mail.HTMLBody &= "<br><br><br>Iyi calismalar dileriz.<br><br>"
Case "A", "AT", "D", "DE", "CH"
Mail.Subject = kundeMail.Kurzname & " - ORIGINAL RECHNUNG "
Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>im Anhang senden wir Ihnen die Originalrechnungen.<br><br>"
Mail.HTMLBody &= TextHTMLtable
Mail.HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>"
Case "RO"
Mail.Subject = kundeMail.Kurzname & " - FACTURI RETURNATE "
Mail.HTMLBody = "Stimati domni, stimate doamne,<br><br>Va returnam facturile originale care nu au fost utilizate spre recuperare TVA.<br><br>Va multumim pentru colaborarea.<br><br>"
Mail.HTMLBody &= TextHTMLtable
Mail.HTMLBody &= "<br><br><br>Cu stima<br><br>"
Case "HR", "BIH", "SLO", "SRB", "BIH"
Mail.Subject = kundeMail.Kurzname & " - ORGINALNI RACUNI "
Mail.HTMLBody = "Postovanje,<br><br>prilozeno Vam dostavljamo orginalne racune za Vasu daljnu upotrebu.<br><br>Za pitanja stojimo na raspolaganju.<br><br>"
Mail.HTMLBody &= TextHTMLtable
Mail.HTMLBody &= "<br><br><br>Srdacan pozdrav<br><br>"
Case Else
Mail.Subject = kundeMail.Kurzname & " - Invoice No."
Mail.HTMLBody = TextHTMLtable
Mail.HTMLBody = "Dear Sir or Madam,<br><br>attached we send you the original invoice mentioned above.<br><br>"
Mail.HTMLBody &= TextHTMLtable
Mail.HTMLBody &= "<br><br><br>Best regards<br><br>"
End Select
Mail.HTMLBody &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
Mail.HTMLBody &= "<br>"
Mail.HTMLBody &= cFakturierung.getSignature("DE", 19, True, True)
If pdflist.Count > 0 Then
For Each pdf In pdflist
Mail.Attachments.Add(pdf, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , )
Next
End If
Mail.To &= kundeMail.EMail
Mail.CC &= kundeMail.EMail2
If cbxMailoeffnen.Checked Then
Try
Mail.Display()
Catch ex As Exception
MsgBox(ex.Message)
End Try
Else
Try
If Mail IsNot Nothing Then
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "MAIL-ORIG-RG",,, kdNr)
API.api_EMail = Mail.To
API.api_EMailCC = Mail.CC
API.api_EMailBCC = IIf(Mail.BCC <> "", Mail.BCC & ";mmdabrechnung@verag.ag", "mmdabrechnung@verag.ag")
API.api_EMailSubject = Mail.Subject
API.api_EMailText = Mail.HTMLBody
API.api_EMailAttCnt = Mail.Attachments.Count
If Mail IsNot Nothing Then
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(API.api_EMail, API.api_EMailSubject, API.api_EMailText, "mmdabrechnung@verag.ag", False, False, API.api_EMailCC, API.api_EMailBCC, pdflist,, "mmdabrechnung@verag.ag") Then
API.UPDTAE_OK()
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "MAIL-ORIG-RG",,, kvp.Key)
API.api_EMail = Mail.To
API.api_EMailCC = Mail.CC
API.api_EMailBCC = Mail.BCC
API.api_EMailSubject = Mail.Subject
API.api_EMailText = Mail.HTMLBody
API.api_EMailAttCnt = Mail.Attachments.Count
If Mail IsNot Nothing Then
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(API.api_EMail, API.api_EMailSubject, API.api_EMailText, "mmdabrechnung@verag.ag", False, False, API.api_EMailCC, API.api_EMailBCC, pdflist,, "mmdabrechnung@verag.ag") Then
API.UPDTAE_OK()
Else
API.UPDTAE_ERR()
End If
Else
API.UPDTAE_ERR()
End If
@@ -861,33 +1162,15 @@ Public Class usrcntlFremdrechnungen
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default
End Try
Next
End If
End If
End Sub
'Sub SelectRow(kdnr, kfz, SDLNr, history)
' dgvInitWait = True
' dgvSDL.ClearSelection()
' For Each r As DataGridViewRow In dgvSDL.Rows
' If r.Cells("KundenNr").Value = kdnr AndAlso
' r.Cells("SDLNr").Value = SDLNr AndAlso
' r.Cells("KfzKennzeichen").Value = kfz AndAlso
' r.Cells("History").Value = history Then
' r.Selected = True
' dgvSDL.FirstDisplayedScrollingRowIndex = r.Index
' Exit For
' End If
' Next
' dgvInitWait = False
' 'ReloadLeistung()
' dgvSDL.PerformLayout()
'End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
Me.Cursor = Cursors.WaitCursor
cProgramFunctions.genExcelFromDGV(dgvLFRechnung, True)
@@ -912,16 +1195,6 @@ Public Class usrcntlFremdrechnungen
SET_SDL(aktLieferant)
End Sub
Private Sub dgvSDL_RELOADED() Handles dgvLFRechnung.RELOADED
' redRows()
End Sub
Private Sub usrCntlKartenDaten_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
' initDGVWidth()
End Sub
Dim vval As Integer
Private Sub dgvSDL_GotFocus(sender As Object, e As EventArgs) Handles dgvLFRechnung.GotFocus
'dgvSDL.VerticalScrollingOffset = vval
@@ -1000,11 +1273,25 @@ Public Class usrcntlFremdrechnungen
End Sub
Private Sub dat_Sum_Von_Leave(sender As Object, e As EventArgs) Handles dat_Sum_Von.Leave, dat_Sum_Bis.Leave
SET_SDL(aktLieferant)
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL(aktLieferant)
End If
End Sub
Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckedChanged
SET_SDL(aktLieferant)
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL(aktLieferant)
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs)
@@ -1210,11 +1497,37 @@ Public Class usrcntlFremdrechnungen
End Sub
Private Sub cbxMax1000Eintrage_CheckedChanged(sender As Object, e As EventArgs) Handles cbxMax1000Eintrage.CheckedChanged
SET_SDL(aktLieferant)
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL(aktLieferant)
End If
End Sub
Private Sub chxfehlendePDFs_CheckedChanged(sender As Object, e As EventArgs) Handles cbxPDFhinterlegt.CheckStateChanged
SET_SDL(aktLieferant)
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL(aktLieferant)
End If
End Sub
Private Sub txtKundenNrvon_TextChanged(sender As Object, e As EventArgs) Handles txtKundenNrvon.TextChanged, txtKundenNrbis.TextChanged
If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text)
ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
SET_SDL(aktLieferant)
End If
End Sub
End Class

3
VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
View File

@@ -254,7 +254,7 @@ Public Class cMDMFunctionsAllgemein
If Not (
Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeUmsatzsteuerbetragEUR")), 0, r.Item("UStV_SummeUmsatzsteuerbetragEUR"))), 2) = curUStV_SummeUmsatzsteuerbetragEUR And
Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeErstattungsbetragEUR")), 0, r.Item("UStV_SummeUmsatzsteuerbetragEUR"))), 2) = curUStV_SummeErstattungsbetragEUR And
Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeErstattungsbetragEUR")), 0, r.Item("UStV_SummeErstattungsbetragEUR"))), 2) = curUStV_SummeErstattungsbetragEUR And
Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_Summe3470BetragEUR")), 0, r.Item("UStV_Summe3470BetragEUR"))), 2) = curUStV_Summe3470BetragEUR And
Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeVZBetragEUR")), 0, r.Item("UStV_SummeVZBetragEUR"))), 2) = curUStV_SummeVZBetragEUR And
Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeVorschaubetragEUR_VERAG")), 0, r.Item("UStV_SummeVorschaubetragEUR_VERAG"))), 2) = curUStV_SummeVorschaubetragEUR_VERAG And
@@ -282,7 +282,6 @@ Public Class cMDMFunctionsAllgemein
Kunden.UStV_SummeErstattungsbetragEUR = " & curUStV_SummeErstattungsbetragEUR.ToString.Replace(",", ".") & ",
Kunden.UStV_Summe3470BetragEUR = " & curUStV_Summe3470BetragEUR.ToString.Replace(",", ".") & ",
Kunden.UStV_SummeVZBetragEUR = " & curUStV_SummeVZBetragEUR.ToString.Replace(",", ".") & ",
Kunden.UStV_SummeVorschaubetragEUR_VERAG = " & curUStV_SummeVorschaubetragEUR_VERAG.ToString.Replace(",", ".") & ",
Kunden.UStV_SummeVorschaubetragEUR_IDS = " & curUStV_SummeVorschaubetragEUR_IDS.ToString.Replace(",", ".") & ",
Kunden.UStV_SummeVorschaubetragEUR_IT = " & curUStV_SummeVorschaubetragEUR_IT.ToString.Replace(",", ".") & ",

2
VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb
View File

@@ -178,7 +178,7 @@ Public Class cMDMZinsberechnung
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag
Using cmd As New SqlCommand("SELECT id,belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag, zahlungsperiode_start,zahlungsperiode_ende
FROM
tblMDM_Zinsberechnung

3
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -101,6 +101,7 @@ Public Class cMitarbeiter
Property mit_Notfall_Name As Object = Nothing
Property mit_Notfall_Handy As Object = Nothing
Property mit_Notfall_Mail As Object = Nothing
Property mit_SchalterID As Object = Nothing
@@ -219,6 +220,7 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Name", mit_Notfall_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Handy", mit_Notfall_Handy))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Mail", mit_Notfall_Mail))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_SchalterID", mit_SchalterID))
@@ -428,6 +430,7 @@ Public Class cMitarbeiter
If Not dr.Item("mit_Notfall_Handy") Is DBNull.Value Then Me.mit_Notfall_Handy = dr.Item("mit_Notfall_Handy")
If Not dr.Item("mit_Notfall_Name") Is DBNull.Value Then Me.mit_Notfall_Name = dr.Item("mit_Notfall_Name")
If Not dr.Item("mit_Notfall_Mail") Is DBNull.Value Then Me.mit_Notfall_Mail = dr.Item("mit_Notfall_Mail")
If Not dr.Item("mit_SchalterID") Is DBNull.Value Then Me.mit_SchalterID = dr.Item("mit_SchalterID")
Catch ex As Exception

2
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -903,6 +903,7 @@ Public Class cRechnungsausgangPositionen
Property BGebBgl As Object = Nothing
Property BGebMinBetrag As Object = Nothing
Property RePosZeitstempel As Object = Nothing
Property NachzahlungsID As Object = Nothing
'FROM [VERAG].[dbo].[RechnungsausgangPositionen]
@@ -945,6 +946,7 @@ Public Class cRechnungsausgangPositionen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebBgl", BGebBgl))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebMinBetrag", BGebMinBetrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RePosZeitstempel", RePosZeitstempel))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NachzahlungsID", NachzahlungsID))
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("upsize_ts", XXXXXXXXXXXXX))
Return list

15
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
View File

@@ -496,15 +496,21 @@ Class TrdInvoice_FUNCTIONS
End If
Dim Buchungstext As String = ROW("RK_Buchungstext")
If Buchungstext <> "" AndAlso Buchungstext.Contains("Abrechnungsperiode von") Then
Buchungstext = Buchungstext.Replace("Abrechnungsperiode von", "Zinsen")
End If
If TRD_INVOICE.SAVE Then
If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), ROW("RK_Buchungstext"), TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, TRD_INVOICE.VZ) Then
If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), Buchungstext, TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, TRD_INVOICE.VZ) Then
'UPDATE rechnugnsausgang
Dim firmaTmpsql = If(Firma > 0, " AND Firma_ID= '" & Firma & "' ", "")
Dim buchungsjahrTmpsql = If(Buchungsjahr > 0, " AND Buchungsjahr= '" & Buchungsjahr & "' ", "")
SQL.doSQL("UPDATE [Rechnungsausgang] SET [Trdin] = 1 WHERE convert(date,[RechnungsDatum] ,104) = '" & TRD_INVOICE.Rechnungsdatum.ToShortDateString & "' AND RechnungsNr = " & ROW("RK_RechnungsNr") & firmaTmpsql & buchungsjahrTmpsql, "FMZOLL")
End If
End If
End If
End If
Next
Return True
@@ -699,7 +705,10 @@ Class TrdInvoice_FUNCTIONS
Shared Function getSQLString_SELECTForTrdInvoice(Optional Firma As Integer = -1, Optional Buchungsjahr As Integer = -1)
getSQLString_SELECTForTrdInvoice = "SELECT Rechnungsausgang.RechnungsDatum AS RK_RechnungsDatum, Rechnungsausgang.RechnungsNr AS RK_RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum) AS RK_Abfertigungsdatum, min(Rechnungsausgang.FilialenNr) AS RK_FilialenNr,
min(Rechnungsausgang.AbfertigungsNr) AS RK_AbfertigungsNr, min(Rechnungsausgang.UnterNr) AS RK_UnterNr, min(Rechnungsausgang.BelegartenNr) AS RK_BelegartenNr,
(min(cast([FilialenNr] as varchar(4))) + '/' + min(cast([AbfertigungsNr] as varchar(8))) + '/' + min(cast([UnterNr] as varchar(2)))) AS RK_Buchungstext,
case when min(Firma_ID)=19 and min(Rechnungsausgang.FilialenNr) = 8001 and min(Rechnungsausgang.OffertenNr) = 95 then
min(Rechnungsausgang.Vermerk)
else
(min(cast([FilialenNr] as varchar(4))) + '/' + min(cast([AbfertigungsNr] as varchar(8))) + '/' + min(cast([UnterNr] as varchar(2)))) end AS RK_Buchungstext,
min(Rechnungsausgang.KundenNrZentrale) AS RK_KundenNrZentrale, min(Rechnungsausgang.RechnungsKundenNr) AS RK_RechnungsKundenNr, min(Rechnungsausgang.RechnungsLandKz) AS RK_RechnungsLandKz,
min(Rechnungsausgang.RechnungsUstIdKz) AS RK_RechnungsUstIdKz, min(Rechnungsausgang.RechnungsUstIdNr) AS RK_RechnungsUstIdNr, min(Rechnungsausgang.Lastschrift+0) AS RK_Lastschrift,
min(Rechnungsausgang.Steuerschlüssel) AS RK_Steuerschlüssel, min(Rechnungsausgang.[Steuersatz %]) AS RK_SteuersatzProzent, min(Rechnungsausgang.Währungscode) AS RK_Währungscode,

12
VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
View File

@@ -660,7 +660,8 @@ Public Class cSyska_Interface
genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
genBuchungsZeileSum &= Format(CDbl(Bruttobetrag), fmt) & vbTab
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
@@ -695,7 +696,9 @@ Public Class cSyska_Interface
genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
@@ -720,7 +723,9 @@ Public Class cSyska_Interface
genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
@@ -815,6 +820,7 @@ Public Class cSyska_Interface
genBuchungsZeile &= FiBuHabenkontonummer & vbTab
genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
genBuchungsZeile &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
genBuchungsZeile &= Format(CDbl(FiBuSteuersatz), fmt) & vbTab 'FiBuSteuersatz
genBuchungsZeile &= FormatStringDbl(FiBuSteuerbetrag) & vbTab 'FiBuSteuerbetrag

37
VERAG_PROG_ALLGEMEIN/frmTimasabfrage.Designer.vb generated
View File

@@ -24,8 +24,8 @@ Partial Class frmTimasabfrage
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
Me.cbxSchalterID = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.rbHO = New System.Windows.Forms.RadioButton()
Me.rbBuero = New System.Windows.Forms.RadioButton()
Me.Button1 = New System.Windows.Forms.Button()
@@ -33,6 +33,7 @@ Partial Class frmTimasabfrage
Me.btnClose = New System.Windows.Forms.Button()
Me.btn = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblSchalter = New System.Windows.Forms.Label()
Me.MyPanel1.SuspendLayout()
Me.SuspendLayout()
'
@@ -40,6 +41,8 @@ Partial Class frmTimasabfrage
'
Me.MyPanel1.BackColor = System.Drawing.Color.White
Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MyPanel1.Controls.Add(Me.lblSchalter)
Me.MyPanel1.Controls.Add(Me.cbxSchalterID)
Me.MyPanel1.Controls.Add(Me.rbHO)
Me.MyPanel1.Controls.Add(Me.rbBuero)
Me.MyPanel1.Controls.Add(Me.Button1)
@@ -53,6 +56,24 @@ Partial Class frmTimasabfrage
Me.MyPanel1.Size = New System.Drawing.Size(264, 103)
Me.MyPanel1.TabIndex = 3
'
'cbxSchalterID
'
Me.cbxSchalterID._allowedValuesFreiText = Nothing
Me.cbxSchalterID._allowFreiText = False
Me.cbxSchalterID._value = ""
Me.cbxSchalterID.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cbxSchalterID.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbxSchalterID.DropDownWidth = 50
Me.cbxSchalterID.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbxSchalterID.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxSchalterID.FormattingEnabled = True
Me.cbxSchalterID.Items.AddRange(New Object() {"", "100000-199999: XXXXXX", "200000-299999: XXXXXX", "300000-399999: XXXXXX", "400000-499999: XXXXXX", "500000-599999: XXXXXX", "600000-699999: XXXXXX", "700000-799999: XXXXXX", "800000-899999: XXXXXX", "900000-999999: XXXXXX"})
Me.cbxSchalterID.Location = New System.Drawing.Point(3, 34)
Me.cbxSchalterID.Name = "cbxSchalterID"
Me.cbxSchalterID.Size = New System.Drawing.Size(58, 28)
Me.cbxSchalterID.TabIndex = 10
Me.cbxSchalterID.Visible = False
'
'rbHO
'
Me.rbHO.AutoSize = True
@@ -145,6 +166,16 @@ Partial Class frmTimasabfrage
Me.Label1.Size = New System.Drawing.Size(222, 18)
Me.Label1.TabIndex = 6
'
'lblSchalter
'
Me.lblSchalter.AutoSize = True
Me.lblSchalter.Location = New System.Drawing.Point(3, 20)
Me.lblSchalter.Name = "lblSchalter"
Me.lblSchalter.Size = New System.Drawing.Size(46, 13)
Me.lblSchalter.TabIndex = 11
Me.lblSchalter.Text = "Schalter"
Me.lblSchalter.Visible = False
'
'frmTimasabfrage
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -169,4 +200,6 @@ Partial Class frmTimasabfrage
Friend WithEvents Button1 As Button
Friend WithEvents rbHO As RadioButton
Friend WithEvents rbBuero As RadioButton
Public WithEvents cbxSchalterID As MyComboBox
Friend WithEvents lblSchalter As Label
End Class

41
VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb
View File

@@ -2,6 +2,7 @@
Dim mit As VERAG_PROG_ALLGEMEIN.cMitarbeiter
Public Datum As Date = CDate(Now.ToShortDateString)
Public typ As Integer = -1
Public Schalter As Integer = -1
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
@@ -20,6 +21,12 @@
cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Büro", "0"))
cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3"))
cbxSchalterID.Items.Clear()
cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1", "1"))
cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2", "2"))
cbxSchalterID.changeItem("")
If mit IsNot Nothing Then
Label1.Text = "Zeit erfassen für: " & mit.mit_nname & " " & mit.mit_vname
If mit.mit_homeoffice Then
@@ -29,10 +36,23 @@
rbHO.Checked = False
cboTyp.changeItem("Büro")
End If
If mit.mit_niederlassung = "NKD" Then
cbxSchalterID.Visible = True
Else
cbxSchalterID.Visible = False
End If
lblSchalter.Visible = cbxSchalterID.Visible
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@@ -40,10 +60,24 @@
If typ = -1 Then
MsgBox("Bitte Typ auswählen")
DialogResult = Windows.Forms.DialogResult.None
Else
DialogResult = Windows.Forms.DialogResult.OK
End If
If mit.mit_niederlassung = "NKD" AndAlso Schalter = -1 Then
MsgBox("Bitte Schalter auswählen")
DialogResult = Windows.Forms.DialogResult.None
Else
If Schalter > 0 Then
mit.mit_SchalterID = Schalter
mit.SAVE()
End If
DialogResult = Windows.Forms.DialogResult.OK
End If
End Sub
Private Sub rbBuero_CheckedChanged(sender As Object, e As EventArgs) Handles rbBuero.CheckedChanged, rbHO.CheckedChanged
@@ -58,4 +92,11 @@
End Sub
Private Sub cbxSchalterID_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxSchalterID.SelectedValueChanged
If cbxSchalterID._value <> "" AndAlso IsNumeric(cbxSchalterID._value) AndAlso CInt(cbxSchalterID._value) > 0 Then
Schalter = cbxSchalterID._value
Else
Schalter = -1
End If
End Sub
End Class