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

Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-05-27 13:23:44 +02:00
parent 283f556911 c3209f1d8e
commit a3adbf07de
19 changed files with 1525 additions and 905 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
SDL/Fakturierung/cFakturierung.vb
View File

@@ -1,15 +1,11 @@

Imports System.Globalization
Imports System.Net
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
Imports s2industries.ZUGFeRD
Imports System.IO
Imports GrapeCity.ActiveReports.SectionReportModel
Imports GrapeCity.ActiveReports
Imports System.ComponentModel
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Imports System.Net
Imports System.Web.UI.WebControls.Expressions
Imports Microsoft.Office.Interop
Imports s2industries.ZUGFeRD
Imports VERAG_PROG_ALLGEMEIN
Public Class cFakturierung

42
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -911,15 +911,49 @@ Public Class frmFaktEmail
Try
If MergePDF And ATTACHMENTS.Count > 1 Then
Dim extension = ".pdf"
Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, "Rechnungs_Anhänge_", "Rechnung_") & RgNr & extension, extension,, False, "Zusammenfassung")
Dim myList As New List(Of String)
For Each a In ATTACHMENTS : myList.Add(a.Pfad) : Next
If RECHNUNG.Firma_ID = 19 Then
Dim zielPfadZusammenfassung_Lieferantenrechnungen = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, "LF-Rechnungs_Anhänge_", "LF-Rechnung_") & RgNr & extension, extension,, False, "Zusammenfassung")
Dim myList As New List(Of String)
Dim myList2 As New List(Of String)
For Each a In ATTACHMENTS
If a.Pfad.ToString.Contains("VERAG") Or a.Pfad.ToString.Contains("IDS") Or a.Pfad.ToString.Contains("MSE") Or a.Pfad.ToString.Contains("UTA") Or a.Pfad.ToString.Contains("PLOSE") Or a.Pfad.ToString.Contains("RMC") Then
myList2.Add(a.Pfad)
Else
myList.Add(a.Pfad)
End If
Next
ATTACHMENTS.Clear()
Dim list2megered As Boolean = True
If myList2.Count > 0 Then
list2megered = False
list2megered = FormularManagerNEU.MergePdfFiles(myList2, zielPfadZusammenfassung_Lieferantenrechnungen)
End If
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) AndAlso list2megered Then
ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
If myList2.Count > 0 Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_Lieferantenrechnungen, ""))
End If
Else
Dim myList As New List(Of String)
For Each a In ATTACHMENTS : myList.Add(a.Pfad) : Next
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
ATTACHMENTS.Clear() : ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, "")) ' überscheiben
End If
If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
ATTACHMENTS.Clear() : ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, "")) ' überscheiben
End If
End If
'Anhang an Mail anfügen
'-----------------------------------------------------------------

112
SDL/Fakturierung/frmRechnungenSuche.Designer.vb generated
View File

@@ -108,6 +108,12 @@ Partial Class frmRechnungenSuche
Me.Label17 = New System.Windows.Forms.Label()
Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pnlBerichte = New System.Windows.Forms.Panel()
Me.MenuStrip2 = New System.Windows.Forms.MenuStrip()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.NachRechnungslandToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NachLeistungsnummerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NachZollabfertigungspreisenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label10 = New System.Windows.Forms.Label()
@@ -133,10 +139,6 @@ Partial Class frmRechnungenSuche
Me.pnlTop = New System.Windows.Forms.Panel()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuStrip2 = New System.Windows.Forms.MenuStrip()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.NachZollabfertigungspreisenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout()
@@ -152,12 +154,12 @@ Partial Class frmRechnungenSuche
Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
Me.pnlOpt.SuspendLayout()
Me.pnlBerichte.SuspendLayout()
Me.MenuStrip2.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnl.SuspendLayout()
Me.ctxtRg.SuspendLayout()
Me.pnlTop.SuspendLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MenuStrip2.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainer
@@ -1552,6 +1554,57 @@ Partial Class frmRechnungenSuche
Me.pnlBerichte.Size = New System.Drawing.Size(747, 68)
Me.pnlBerichte.TabIndex = 6
'
'MenuStrip2
'
Me.MenuStrip2.Dock = System.Windows.Forms.DockStyle.None
Me.MenuStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.MenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2})
Me.MenuStrip2.Location = New System.Drawing.Point(3, 27)
Me.MenuStrip2.Name = "MenuStrip2"
Me.MenuStrip2.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
Me.MenuStrip2.Size = New System.Drawing.Size(263, 28)
Me.MenuStrip2.TabIndex = 45
Me.MenuStrip2.Text = "Kundenauswertungen"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.NachRechnungslandToolStripMenuItem, Me.NachLeistungsnummerToolStripMenuItem, Me.NachZollabfertigungspreisenToolStripMenuItem})
Me.ToolStripMenuItem2.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.ToolStripMenuItem2.ForeColor = System.Drawing.Color.White
Me.ToolStripMenuItem2.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(136, 24)
Me.ToolStripMenuItem2.Text = "RE-Auswertung"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(276, 26)
Me.ToolStripMenuItem3.Text = "Nach Rechnungsanschrift"
'
'NachRechnungslandToolStripMenuItem
'
Me.NachRechnungslandToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.NachRechnungslandToolStripMenuItem.Name = "NachRechnungslandToolStripMenuItem"
Me.NachRechnungslandToolStripMenuItem.Size = New System.Drawing.Size(276, 26)
Me.NachRechnungslandToolStripMenuItem.Text = "Nach Rechnungsland"
'
'NachLeistungsnummerToolStripMenuItem
'
Me.NachLeistungsnummerToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.NachLeistungsnummerToolStripMenuItem.Name = "NachLeistungsnummerToolStripMenuItem"
Me.NachLeistungsnummerToolStripMenuItem.Size = New System.Drawing.Size(276, 26)
Me.NachLeistungsnummerToolStripMenuItem.Text = "Nach Leistungsnummer"
'
'NachZollabfertigungspreisenToolStripMenuItem
'
Me.NachZollabfertigungspreisenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.NachZollabfertigungspreisenToolStripMenuItem.Name = "NachZollabfertigungspreisenToolStripMenuItem"
Me.NachZollabfertigungspreisenToolStripMenuItem.Size = New System.Drawing.Size(276, 26)
Me.NachZollabfertigungspreisenToolStripMenuItem.Text = "Nach Zollabf.-preisen (LNr: 340)"
'
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -1644,21 +1697,21 @@ Partial Class frmRechnungenSuche
'
Me.ToolStripMenuItem1.Image = CType(resources.GetObject("ToolStripMenuItem1.Image"), System.Drawing.Image)
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(376, 26)
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(372, 24)
Me.ToolStripMenuItem1.Text = "TRANSFERRY/360 (Sammelrechnung auswählen)"
'
'EVOLOGSammelrechnungAuswählenToolStripMenuItem
'
Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image = CType(resources.GetObject("EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Name = "EVOLOGSammelrechnungAuswählenToolStripMenuItem"
Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(376, 26)
Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24)
Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Text = "EVOLOG (Sammelrechnung auswählen)"
'
'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem
'
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(376, 26)
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24)
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)"
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False
'
@@ -1810,43 +1863,6 @@ Partial Class frmRechnungenSuche
Me.TestToolStripMenuItem.Size = New System.Drawing.Size(150, 19)
Me.TestToolStripMenuItem.Text = "test"
'
'MenuStrip2
'
Me.MenuStrip2.Dock = System.Windows.Forms.DockStyle.None
Me.MenuStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.MenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2})
Me.MenuStrip2.Location = New System.Drawing.Point(3, 27)
Me.MenuStrip2.Name = "MenuStrip2"
Me.MenuStrip2.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
Me.MenuStrip2.Size = New System.Drawing.Size(143, 28)
Me.MenuStrip2.TabIndex = 45
Me.MenuStrip2.Text = "Kundenauswertungen"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.NachZollabfertigungspreisenToolStripMenuItem})
Me.ToolStripMenuItem2.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.ToolStripMenuItem2.ForeColor = System.Drawing.Color.White
Me.ToolStripMenuItem2.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(136, 24)
Me.ToolStripMenuItem2.Text = "RE-Auswertung"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(260, 26)
Me.ToolStripMenuItem3.Text = "Nach Rechnungsanschrift"
'
'NachZollabfertigungspreisenToolStripMenuItem
'
Me.NachZollabfertigungspreisenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.NachZollabfertigungspreisenToolStripMenuItem.Name = "NachZollabfertigungspreisenToolStripMenuItem"
Me.NachZollabfertigungspreisenToolStripMenuItem.Size = New System.Drawing.Size(276, 26)
Me.NachZollabfertigungspreisenToolStripMenuItem.Text = "Nach Zollabf.-preisen (LNr: 340)"
'
'frmRechnungenSuche
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1879,6 +1895,8 @@ Partial Class frmRechnungenSuche
Me.pnlOpt.PerformLayout()
Me.pnlBerichte.ResumeLayout(False)
Me.pnlBerichte.PerformLayout()
Me.MenuStrip2.ResumeLayout(False)
Me.MenuStrip2.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.pnl.ResumeLayout(False)
@@ -1886,8 +1904,6 @@ Partial Class frmRechnungenSuche
Me.pnlTop.ResumeLayout(False)
Me.pnlTop.PerformLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
Me.MenuStrip2.ResumeLayout(False)
Me.MenuStrip2.PerformLayout()
Me.ResumeLayout(False)
End Sub
@@ -2004,4 +2020,6 @@ Partial Class frmRechnungenSuche
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
Friend WithEvents NachZollabfertigungspreisenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents NachRechnungslandToolStripMenuItem As ToolStripMenuItem
Friend WithEvents NachLeistungsnummerToolStripMenuItem As ToolStripMenuItem
End Class

164
SDL/Fakturierung/frmRechnungenSuche.vb
View File

@@ -1,6 +1,4 @@
Imports System.Data.SqlClient
Imports DAKOSY_Worker.DEERRE
Imports TAlex.WPF.Helpers
Imports TAlex.WPF.Helpers
Public Class frmRechnungenSuche
Dim SQL As New SQL
@@ -773,8 +771,8 @@ Public Class frmRechnungenSuche
Dim list As New List(Of Integer)
If DataGridView.SelectedRows.Count > 0 Then
For Each r As DataGridViewRow In DataGridView.SelectedRows
If listRgNr.FindIndex((Function(x) x.ToString = r.Cells("RechnungsNr").Value)) <0 Then
List.Add(r.Cells("RK_ID").Value)
If listRgNr.FindIndex((Function(x) x.ToString = r.Cells("RechnungsNr").Value)) < 0 Then
list.Add(r.Cells("RK_ID").Value)
listRgNr.Add(r.Cells("RechnungsNr").Value)
End If
Next
@@ -827,18 +825,64 @@ Public Class frmRechnungenSuche
Process.Start(webAddress)
End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click, NachRechnungslandToolStripMenuItem.Click, NachLeistungsnummerToolStripMenuItem.Click, NachLeistungsnummerToolStripMenuItem.Click, NachZollabfertigungspreisenToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then
Dim sqlstr As String = ""
sqlstr &= " SELECT COUNT(*) as Anzahl,RechnungsKundenNr,[RechnungsName 1] as RechnungAn,isnull(max(RechnungsLandKz),'') as RechnungsLandKz,isnull(max(RechnungsOrt),'') as RechnungsOrt,isnull(max(RechnungsStraße),'') as RechnungsStraße"
sqlstr &= " FROM [Rechnungsausgang] INNER JOIN Speditionsbuch on Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.UnterNr"
sqlstr &= " WHERE 1=1"
sqlstr &= getRechnungsAusgangWhere().Replace("Rechnungsausgang.[Avisierer", "Speditionsbuch.[Avisierer")
If cboBerichtRgAbfArt._value <> "" Then sqlstr &= " AND Speditionsbuch.Abfertigungsart=" & cboBerichtRgAbfArt._value
sqlstr &= " group by RechnungsKundenNr, [RechnungsName 1]"
sqlstr &= " order by COUNT(*) desc,[RechnungsName 1]"
If sender Is ToolStripMenuItem3 Then
sqlstr &= " SELECT COUNT(*) as Anzahl,RechnungsKundenNr,[RechnungsName 1] as RechnungAn,isnull(max(RechnungsLandKz),'') as RechnungsLandKz,isnull(max(RechnungsOrt),'') as RechnungsOrt,isnull(max(RechnungsStraße),'') as RechnungsStraße"
sqlstr &= " FROM [Rechnungsausgang] INNER JOIN Speditionsbuch on Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.UnterNr"
sqlstr &= " WHERE 1=1"
sqlstr &= getRechnungsAusgangWhere().Replace("Rechnungsausgang.[Avisierer", "Speditionsbuch.[Avisierer")
If cboBerichtRgAbfArt._value <> "" Then sqlstr &= " AND Speditionsbuch.Abfertigungsart=" & cboBerichtRgAbfArt._value
sqlstr &= " group by RechnungsKundenNr, [RechnungsName 1]"
sqlstr &= " order by COUNT(*) desc,[RechnungsName 1]"
ElseIf sender Is NachRechnungslandToolStripMenuItem Then
sqlstr &= " SELECT COUNT(*) as Anzahl,isnull(max(RechnungsLandKz),'') as RechnungsLandKz,sum(SteuerfreierGesamtbetrag) as Steuerfrei ,sum(SteuerpflichtigerGesamtbetrag) as Steuerpflichtig, sum(SteuerpflichtigerGesamtbetrag + SteuerfreierGesamtbetrag) as Gesamt"
sqlstr &= " FROM [Rechnungsausgang] INNER JOIN Speditionsbuch on Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.UnterNr"
sqlstr &= " WHERE 1=1"
sqlstr &= getRechnungsAusgangWhere().Replace("Rechnungsausgang.[Avisierer", "Speditionsbuch.[Avisierer")
If cboBerichtRgAbfArt._value <> "" Then sqlstr &= " AND Speditionsbuch.Abfertigungsart=" & cboBerichtRgAbfArt._value
sqlstr &= " group by isnull((RechnungsLandKz),'')"
sqlstr &= " order by Anzahl desc"
ElseIf sender Is NachLeistungsnummerToolStripMenuItem Then
'Verag360 katt noch nicht alle Datensatze als Buchungen verfügbar, daher über die Rechnungen/Rechnungspositionen
'-------------------------------------------------------------------
' Select Case* FROM( SELECT Leistungsnummer, LeistungsBez, Year(Abfertigungsdatum) [Year] , ([tblTrdinProduct].[SteuerpflichtigerBetragLokal] + [tblTrdinProduct].[SteuerfreierBetragLokal]) AS [Der Wert] FROM tblTrdinInvoice
' INNER Join(tblTrdinProduct LEFT JOIN Leistungen On Leistungsnummer = LeistungsNr) ON (tblTrdinInvoice.Rechnungsnummer = tblTrdinProduct.Rechnungsnummer)
'And (tblTrdinInvoice.Rechnungsdatum = tblTrdinProduct.Rechnungsdatum) WHERE 1 = 1 And
'(tblTrdinInvoice.[RechnungsDatum] BETWEEN @Datum_von And @Datum_bis )
'And tblTrdinInvoice.[Firma_ID] = @Firma_ID And Firma_ID IN (19) ) AS
'rg PIVOT(sum([Der Wert]) For [Year] In ([2025],[2024],[2023],[2022],[2021],[2020],[2019],[2018],[2017],[2016],[2015],[2014],[2013],[2012],[2011],[2010])) AS MNamePivot order by Leistungsnummer
'-------------------------------------------------------------------
sqlstr &= " SELECT * FROM ( SELECT Leistungen.LeistungsNr, Leistungen.LeistungsBez,YEAR(Abfertigungsdatum ) [Year] , (RechnungsausgangPositionen.SteuerpflichtigerBetrag+RechnungsausgangPositionen.SteuerfreierBetrag ) AS "
sqlstr &= " [Der Wert] FROM Rechnungsausgang INNER JOIN (RechnungsausgangPositionen LEFT JOIN Leistungen ON RechnungsausgangPositionen.LeistungsNr = Leistungen.LeistungsNr) ON (Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID) "
sqlstr &= " WHERE 1 = 1 "
sqlstr &= getRechnungsAusgangWhere()
sqlstr &= " AND Firma_ID IN (" & cboFirma._value & ") "
sqlstr &= " ) AS Rg"
sqlstr &= " PIVOT( SUM([Der Wert]) FOR [Year] IN (" & getJahrString() & ")) AS MNamePivot"
sqlstr &= " order by LeistungsNr"
ElseIf sender Is NachZollabfertigungspreisenToolStripMenuItem Then
sqlstr &= " SELECT COUNT(distinct(RechnungsNr)) as Anzahl,isnull(max(Offertenpositionen.Preis),0) as AbfKosten, MAX(Offertenpositionen.OffertenNr) as OffertenNr, RechnungsKundenNr,[RechnungsName 1] as RechnungAn,isnull(max(RechnungsLandKz),'') as RechnungsLandKz,isnull(max(RechnungsOrt),'') as RechnungsOrt,isnull(max(RechnungsStraße),'')as RechnungsStraße "
sqlstr &= " FROM [Rechnungsausgang] INNER JOIN RechnungsausgangPositionen on [Rechnungsausgang].RK_ID = RechnungsausgangPositionen.RK_ID INNER JOIN Speditionsbuch on Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.UnterNr LEFT JOIN Offertenpositionen on Offertenpositionen.KundenNr = RechnungsKundenNr and (Offertenpositionen.OffertenNr = 1 or Offertenpositionen.OffertenNr = 38)"
sqlstr &= " WHERE 1=1"
sqlstr &= getRechnungsAusgangWhere().Replace("Rechnungsausgang.[Avisierer", "Speditionsbuch.[Avisierer")
If cboBerichtRgAbfArt._value <> "" Then sqlstr &= " AND Speditionsbuch.Abfertigungsart=" & cboBerichtRgAbfArt._value & " And RechnungsausgangPositionen.LeistungsNr = 340"
sqlstr &= " group by RechnungsKundenNr, [RechnungsName 1] "
sqlstr &= " order by isnull(max(Offertenpositionen.Preis),0) desc,[RechnungsName 1]"
End If
If cboBerichtRgAbfArt._value <> "" Then
@@ -846,6 +890,25 @@ Public Class frmRechnungenSuche
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList())
'DataGridView.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("Keine Daten vorhanden!")
Exit Sub
End If
If sender Is NachLeistungsnummerToolStripMenuItem Then
cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
Exit Sub
ElseIf sender Is NachRechnungslandToolStripMenuItem Then
cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
Exit Sub
ElseIf sender Is NachZollabfertigungspreisenToolStripMenuItem Then
cProgramFunctions.genExcelFromDT_NEW(dt, ,,,, False)
Exit Sub
End If
Dim print As New frmPrintLayout
print.Text = "Rechnungsempfänger Bericht"
@@ -871,19 +934,36 @@ Public Class frmRechnungenSuche
rpt.lblDat.Text = Now.ToLongDateString
Dim sumAnz As Double = 0
For Each r In dt.Rows
If r("Anzahl") Then sumAnz += r("Anzahl")
If sender IsNot NachLeistungsnummerToolStripMenuItem Then If r("Anzahl") Then sumAnz += r("Anzahl")
Next
rpt.lblGesAnzahl.Text = sumAnz
AddHandler rpt.Detail.Format, Sub()
rpt.lblAnzahl.Text = rpt.Fields.Item("Anzahl").Value
rpt.lblKdNr.Text = rpt.Fields.Item("RechnungsKundenNr").Value
rpt.lblRechnungsAn.Text = rpt.Fields.Item("RechnungAn").Value
rpt.lblRechnungsadresse.Text = rpt.Fields.Item("RechnungsOrt").Value
If IsNumeric(rpt.Fields.Item("Anzahl").Value) Then
rpt.lblPercent.Text = CDbl(CDbl(rpt.Fields.Item("Anzahl").Value) / sumAnz).ToString("P1")
Else
rpt.lblPercent.Text = ""
If sender Is ToolStripMenuItem3 Then
rpt.Label6.Text = "Kunden-Nr."
rpt.Label7.Text = "Land"
rpt.Label2.Text = "Rechnung an"
rpt.Label4.Text = "Adresse"
rpt.lblKdNr.Text = rpt.Fields.Item("RechnungsKundenNr").Value
rpt.lblLand.Text = rpt.Fields.Item("RechnungsLandKz").Value
rpt.lblRechnungsAn.Text = rpt.Fields.Item("RechnungAn").Value
rpt.lblRechnungsadresse.Text = rpt.Fields.Item("RechnungsOrt").Value
rpt.lblAnzahl.Text = rpt.Fields.Item("Anzahl").Value
If IsNumeric(rpt.Fields.Item("Anzahl").Value) Then
rpt.lblPercent.Text = CDbl(CDbl(rpt.Fields.Item("Anzahl").Value) / sumAnz).ToString("P1")
Else
rpt.lblPercent.Text = ""
End If
End If
End Sub
print.Viewer.LoadDocument(rpt)
@@ -892,40 +972,14 @@ Public Class frmRechnungenSuche
End If
End Sub
Private Sub NachZollabfertigungspreisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NachZollabfertigungspreisenToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then
Dim sqlstr As String = ""
sqlstr &= " SELECT COUNT(distinct(RechnungsNr)) as Anzahl,isnull(max(Offertenpositionen.Preis),0) as AbfKosten, MAX(Offertenpositionen.OffertenNr) as OffertenNr, RechnungsKundenNr,[RechnungsName 1] as RechnungAn,isnull(max(RechnungsLandKz),'') as RechnungsLandKz,isnull(max(RechnungsOrt),'') as RechnungsOrt,isnull(max(RechnungsStraße),'')as RechnungsStraße "
sqlstr &= " FROM [Rechnungsausgang] INNER JOIN RechnungsausgangPositionen on [Rechnungsausgang].RK_ID = RechnungsausgangPositionen.RK_ID INNER JOIN Speditionsbuch on Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.UnterNr LEFT JOIN Offertenpositionen on Offertenpositionen.KundenNr = RechnungsKundenNr and (Offertenpositionen.OffertenNr = 1 or Offertenpositionen.OffertenNr = 38)"
sqlstr &= " WHERE 1=1"
sqlstr &= getRechnungsAusgangWhere().Replace("Rechnungsausgang.[Avisierer", "Speditionsbuch.[Avisierer")
If cboBerichtRgAbfArt._value <> "" Then sqlstr &= " AND Speditionsbuch.Abfertigungsart=" & cboBerichtRgAbfArt._value & " And RechnungsausgangPositionen.LeistungsNr = 340"
sqlstr &= " group by RechnungsKundenNr, [RechnungsName 1] "
sqlstr &= " order by isnull(max(Offertenpositionen.Preis),0) desc,[RechnungsName 1]"
If cboBerichtRgAbfArt._value <> "" Then
End If
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList())
Dim print As New frmPrintLayout
print.Text = "Zollabfertigungspreise Bericht"
Dim rpt As New rptFaktRechnungAn
Function getJahrString() As String
getJahrString = ""
For j = Now.Year To 2010 Step -1
getJahrString &= "[" & j & "],"
Next
getJahrString = getJahrString.Substring(0, getJahrString.Length - 1)
End Function
If dt.Rows.Count = 0 Then
MsgBox("Keine Daten vorhanden!")
Exit Sub
End If
cProgramFunctions.genExcelFromDT_NEW(dt,,,,,, False)
End If
End Sub
End Class

86
SDL/Fakturierung/rptFaktRechnungAn.Designer.vb generated
View File

@@ -47,6 +47,8 @@ Partial Public Class rptFaktRechnungAn
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.lblGesAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -71,11 +73,14 @@ Partial Public Class rptFaktRechnungAn
CType(Me.lblMandantNiederlassung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGesAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.Label2, Me.Label4, Me.Label6, Me.Label10})
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.Label2, Me.Label4, Me.Label6, Me.Label10, Me.Label7})
Me.PageHeader.Height = 0.2500001!
Me.PageHeader.Name = "PageHeader"
'
'Label5
@@ -93,12 +98,12 @@ Partial Public Class rptFaktRechnungAn
'
Me.Label2.Height = 0.1795276!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.351969!
Me.Label2.Left = 1.883071!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label2.Text = "Rechnung an"
Me.Label2.Top = 0.07047245!
Me.Label2.Width = 2.965354!
Me.Label2.Width = 2.434252!
'
'Label4
'
@@ -135,7 +140,7 @@ Partial Public Class rptFaktRechnungAn
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblAnzahl, Me.lblRechnungsAn, Me.lblRechnungsadresse, Me.lblKdNr, Me.lblPercent})
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblAnzahl, Me.lblRechnungsAn, Me.lblRechnungsadresse, Me.lblKdNr, Me.lblPercent, Me.lblLand})
Me.Detail.Height = 0.1795276!
Me.Detail.Name = "Detail"
'
@@ -147,19 +152,19 @@ Partial Public Class rptFaktRechnungAn
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblAnzahl.Text = "Anzahl"
Me.lblAnzahl.Top = 0.0!
Me.lblAnzahl.Top = 0!
Me.lblAnzahl.Width = 0.4944885!
'
'lblRechnungsAn
'
Me.lblRechnungsAn.Height = 0.1795276!
Me.lblRechnungsAn.HyperLink = Nothing
Me.lblRechnungsAn.Left = 1.346851!
Me.lblRechnungsAn.Left = 1.883071!
Me.lblRechnungsAn.Name = "lblRechnungsAn"
Me.lblRechnungsAn.Style = "font-size: 9pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblRechnungsAn.Text = "Rechnung an"
Me.lblRechnungsAn.Top = 0.0!
Me.lblRechnungsAn.Width = 2.965354!
Me.lblRechnungsAn.Top = 0!
Me.lblRechnungsAn.Width = 2.429134!
'
'lblRechnungsadresse
'
@@ -169,7 +174,7 @@ Partial Public Class rptFaktRechnungAn
Me.lblRechnungsadresse.Name = "lblRechnungsadresse"
Me.lblRechnungsadresse.Style = "font-size: 9pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblRechnungsadresse.Text = "Adresse"
Me.lblRechnungsadresse.Top = 0.0!
Me.lblRechnungsadresse.Top = 0!
Me.lblRechnungsadresse.Width = 2.686221!
'
'lblKdNr
@@ -180,7 +185,7 @@ Partial Public Class rptFaktRechnungAn
Me.lblKdNr.Name = "lblKdNr"
Me.lblKdNr.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.lblKdNr.Text = "Kunden-Nr."
Me.lblKdNr.Top = 0.0!
Me.lblKdNr.Top = 0!
Me.lblKdNr.Width = 0.8318896!
'
'lblPercent
@@ -191,7 +196,7 @@ Partial Public Class rptFaktRechnungAn
Me.lblPercent.Name = "lblPercent"
Me.lblPercent.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblPercent.Text = "%"
Me.lblPercent.Top = 0.0!
Me.lblPercent.Top = 0!
Me.lblPercent.Width = 0.4716539!
'
'PageFooter
@@ -212,13 +217,13 @@ Partial Public Class rptFaktRechnungAn
'
'Line2
'
Me.Line2.Height = 0.0!
Me.Line2.Left = 0.0!
Me.Line2.Height = 0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.03070863!
Me.Line2.Width = 7.480313!
Me.Line2.X1 = 0.0!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.480313!
Me.Line2.Y1 = 0.03070863!
Me.Line2.Y2 = 0.03070863!
@@ -254,11 +259,11 @@ Partial Public Class rptFaktRechnungAn
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.281889!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0!
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.198425!
'
'Label3
@@ -309,9 +314,9 @@ Partial Public Class rptFaktRechnungAn
'
Me.lblSachbearbeiter.Height = 0.1759843!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0.0!
Me.lblSachbearbeiter.Left = 0!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: left" & _
Me.lblSachbearbeiter.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: left" &
""
Me.lblSachbearbeiter.Text = "Hanslmayr Hubert (SUB)"
Me.lblSachbearbeiter.Top = 0.5208663!
@@ -323,7 +328,7 @@ Partial Public Class rptFaktRechnungAn
Me.lblKassenbuchNr.HyperLink = Nothing
Me.lblKassenbuchNr.Left = 2.607087!
Me.lblKassenbuchNr.Name = "lblKassenbuchNr"
Me.lblKassenbuchNr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" & _
Me.lblKassenbuchNr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" &
"er"
Me.lblKassenbuchNr.Text = ""
Me.lblKassenbuchNr.Top = 0.5208663!
@@ -335,7 +340,7 @@ Partial Public Class rptFaktRechnungAn
Me.lblGeschaeftsjahr.HyperLink = Nothing
Me.lblGeschaeftsjahr.Left = 3.819686!
Me.lblGeschaeftsjahr.Name = "lblGeschaeftsjahr"
Me.lblGeschaeftsjahr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" & _
Me.lblGeschaeftsjahr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" &
"er"
Me.lblGeschaeftsjahr.Text = ""
Me.lblGeschaeftsjahr.Top = 0.5208663!
@@ -347,7 +352,7 @@ Partial Public Class rptFaktRechnungAn
Me.lblMandantNiederlassung.HyperLink = Nothing
Me.lblMandantNiederlassung.Left = 5.032284!
Me.lblMandantNiederlassung.Name = "lblMandantNiederlassung"
Me.lblMandantNiederlassung.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: righ" & _
Me.lblMandantNiederlassung.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: righ" &
"t"
Me.lblMandantNiederlassung.Text = ""
Me.lblMandantNiederlassung.Top = 0.5208663!
@@ -381,9 +386,32 @@ Partial Public Class rptFaktRechnungAn
Me.Label8.Top = 0.157874!
Me.Label8.Width = 0.6393701!
'
'Label7
'
Me.Label7.Height = 0.1795276!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 1.346851!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 9pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label7.Text = "Land"
Me.Label7.Top = 0.07047245!
Me.Label7.Width = 0.4736221!
'
'lblLand
'
Me.lblLand.DataField = ""
Me.lblLand.Height = 0.1795276!
Me.lblLand.HyperLink = Nothing
Me.lblLand.Left = 1.346851!
Me.lblLand.Name = "lblLand"
Me.lblLand.Style = "color: Black; font-size: 9pt; font-weight: normal; text-align: center; ddo-char-s" &
"et: 1"
Me.lblLand.Text = "Land"
Me.lblLand.Top = 0!
Me.lblLand.Width = 0.4736221!
'
'rptFaktRechnungAn
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
@@ -396,10 +424,10 @@ Partial Public Class rptFaktRechnungAn
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
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" & _
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.Label5, System.ComponentModel.ISupportInitialize).EndInit()
@@ -426,6 +454,8 @@ Partial Public Class rptFaktRechnungAn
CType(Me.lblMandantNiederlassung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGesAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -442,9 +472,9 @@ Partial Public Class rptFaktRechnungAn
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRechnungsAn As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRechnungsadresse As GrapeCity.ActiveReports.SectionReportModel.Label
@@ -457,4 +487,6 @@ Partial Public Class rptFaktRechnungAn
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblPercent As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGesAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblLand As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

627
SDL/Fakturierung/rptFaktRechnungAn.resx
View File

File diff suppressed because one or more lines are too long

2
SDL/Fakturierung/rptFaktRechnungAn.vb
View File

@@ -2,5 +2,7 @@ Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptFaktRechnungAn
Private Sub rptFaktRechnungAn_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

82
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1,6 +1,8 @@

Imports System.IO
Imports System.Web.UI.WebControls.Expressions
Imports DAKOSY_Worker.DETPDD
Imports GrapeCity.DataVisualization.Chart
Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlFaktAbrechnung
@@ -1237,8 +1239,8 @@ Public Class usrCntlFaktAbrechnung
" WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL")
'If .ColumnCount = 0 Then Exit Sub
.Columns("LeistungsNr").Width = 30
'If .ColumnCount = 0 Then Exit Sub
.Columns("LeistungsNr").Width = 30
.Columns("LeistungsNr").HeaderText = "Nr"
.Columns("LeistungsBez").MinimumWidth = 180
.Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
@@ -1788,11 +1790,72 @@ Public Class usrCntlFaktAbrechnung
'Anhänge aus USTVA -> SPED-BUCH + Excel Pos-Liste
If SPEDBUCH IsNot Nothing Then
If FIRMA IsNot Nothing Then
If FIRMA.Firma_ID = 19 AndAlso SPEDBUCH.ErfassungsNr <> "" AndAlso SPEDBUCH.ErfassungsNr > 0 AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115) Then
If FIRMA.Firma_ID = 19 AndAlso SPEDBUCH.ErfassungsNr <> "" AndAlso SPEDBUCH.ErfassungsNr > 0 AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Or SPEDBUCH.Abfertigungsart = 10) Then
Dim func As New cMDMFunctionsAllgemein()
Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' AND UStVPo_SchnittstellenNr <> 1 order by UStVPo_ID", "FMZOLL")
Dim USTV As New cUSTVAntrag(SPEDBUCH.ErfassungsNr)
'soll immer alle POS bekommen! laut Lidya! 28.04.2025 - aber nicht im Excel-Format sondern als PDF-Batinic 15.05.2025
Dim dtPOSList As New DataTable
Dim prt As String = func.generatePosList(USTV, "", "", "", False, "prt", dtPOSList, isVZ)
If prt <> "" Then
Try
Dim rpt As New rptMWSTListe
rpt.DataSource = dtPOSList
rpt.GroupHeader1.DataField = "Firma_ID" 'Gruppierung
If rpt.DataSource.rows.count > 0 Then
Dim AD As New cAdressen(USTV.UStVAn_KuNr)
Dim sum As Double = 0
rpt.lblVatNo.Text = USTV.UStVAn_Steuernummer
rpt.lblCompanyname.Text = AD.Name_1 & " " & AD.Name_2
AddHandler rpt.Detail.Format, Sub()
rpt.lblNumber.Text = rpt.Fields.Item("Number").Value()
rpt.lblGoods.Text = rpt.Fields.Item("Name of service").Value()
rpt.lblName.Text = rpt.Fields.Item("Name of supplier").Value()
rpt.lblTax.Text = CDbl(rpt.Fields.Item("Amount of tax refund").Value()).ToString("N2")
rpt.lblDate.Text = CDate((rpt.Fields.Item("Date of Invoice").Value())).ToShortDateString
rpt.lblInvoiceNo.Text = rpt.Fields.Item("Number of invoice").Value()
sum += CDbl(rpt.Fields.Item("Amount of tax refund").Value()).ToString("N2")
End Sub
AddHandler rpt.GroupFooter1.Format, Sub()
rpt.lblSumme.Text = sum.ToString("N2")
rpt.lblWahrung.Text = "EUR"
End Sub
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(SPEDBUCH.AbfertigungsNr, ".pdf", , False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
rpt.Dispose()
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & ".pdf", USTV.UStVAn_KuNr, False)
DS.uploadDataToDATENSERVER(tmpPath,,, False,,, True)
.Rows.Add(-1, "POS-LIST", DS.da_name, DS.da_id, -1)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End If
If dt IsNot Nothing Then
For Each r In dt.Rows
@@ -1821,18 +1884,9 @@ Public Class usrCntlFaktAbrechnung
Next
End If
'soll immer alle POS bekommen! laut Lidya! 28.04.2025 - aber nicht im Excel-Format sondern als PDF-Batinic 15.05.2025
'Dim pfadExcel As String = func.generateExcelPosList(USTV, "", "", "", False)
'If pfadExcel <> "" Then
' Dim FI As New FileInfo(pfadExcel)
' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & FI.Extension, USTV.UStVAn_KuNr, False)
' DS.uploadDataToDATENSERVER(pfadExcel, FI.Name, FI.Extension,,,, True)
' .Rows.Add(1, "POS-LIST", DS.da_name, DS.da_id, -1)
'End If
End If
End If
End If
@@ -2922,7 +2976,7 @@ Public Class usrCntlFaktAbrechnung
If Kreditaufwendungen_Berechnungbetrag <> 0 Then
' MsgBox("1: " & Kreditaufwendungen_Berechnungbetrag)
If Kreditaufwendungen_Berechnungbetrag < 0 Then Kreditaufwendungen_Berechnungbetrag *= -1
Kreditaufwendungen = Math.round(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen, 2) '(Int(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen) * 10 + 0.5) / 10
Kreditaufwendungen = Math.Round(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen, 2) '(Int(Kreditaufwendungen_Berechnungbetrag * KD.Kreditaufwendungen) * 10 + 0.5) / 10
End If
End If

844
SDL/Reports/MDM/rptMWSTListe.Designer.vb generated Normal file
View File

@@ -0,0 +1,844 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptMWSTListe
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptMWSTListe))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblNumber = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGoods = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblName = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblOfficial = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblDate = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblInvoiceNo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblTax = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line6 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line10 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line11 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblVatNo = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblCompanyname = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox17 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox23 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line19 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line20 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblWahrung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.lblNumber, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGoods, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblName, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOfficial, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDate, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblInvoiceNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblTax, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblVatNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblCompanyname, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox23, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.BackColor = System.Drawing.Color.White
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblNumber, Me.lblGoods, Me.lblName, Me.lblOfficial, Me.lblDate, Me.lblInvoiceNo, Me.lblTax, Me.Line3, Me.Line4, Me.Line5, Me.Line6, Me.Line7, Me.Line8, Me.Line9, Me.Line10, Me.Line11})
Me.Detail.Height = 0.4399443!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'lblNumber
'
Me.lblNumber.DataField = ""
Me.lblNumber.Height = 0.4295276!
Me.lblNumber.HyperLink = Nothing
Me.lblNumber.Left = 0.005118111!
Me.lblNumber.Name = "lblNumber"
Me.lblNumber.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: center; vertical-a" &
"lign: middle; ddo-char-set: 1"
Me.lblNumber.Text = "-"
Me.lblNumber.Top = 0!
Me.lblNumber.Width = 0.81063!
'
'lblGoods
'
Me.lblGoods.DataField = ""
Me.lblGoods.Height = 0.1795276!
Me.lblGoods.HyperLink = Nothing
Me.lblGoods.Left = 0.8157481!
Me.lblGoods.MultiLine = False
Me.lblGoods.Name = "lblGoods"
Me.lblGoods.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set" &
": 1"
Me.lblGoods.Text = "-"
Me.lblGoods.Top = 0!
Me.lblGoods.Width = 6.590945!
'
'lblName
'
Me.lblName.DataField = ""
Me.lblName.DistinctField = ""
Me.lblName.Height = 0.2106299!
Me.lblName.Left = 0.815748!
Me.lblName.MultiLine = False
Me.lblName.Name = "lblName"
Me.lblName.Style = "color: Black; font-size: 8pt; text-align: left; ddo-char-set: 1"
Me.lblName.SummaryGroup = ""
Me.lblName.Text = "-"
Me.lblName.Top = 0.2188977!
Me.lblName.Width = 6.590945!
'
'lblOfficial
'
Me.lblOfficial.DataField = ""
Me.lblOfficial.DistinctField = ""
Me.lblOfficial.Height = 0.4295276!
Me.lblOfficial.Left = 10.24409!
Me.lblOfficial.Name = "lblOfficial"
Me.lblOfficial.Style = "color: Black; font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblOfficial.SummaryGroup = ""
Me.lblOfficial.Text = Nothing
Me.lblOfficial.Top = 0!
Me.lblOfficial.Width = 1.05!
'
'lblDate
'
Me.lblDate.DataField = ""
Me.lblDate.DistinctField = ""
Me.lblDate.Height = 0.1795276!
Me.lblDate.Left = 7.406693!
Me.lblDate.MultiLine = False
Me.lblDate.Name = "lblDate"
Me.lblDate.Style = "color: Black; font-size: 8pt; text-align: left; ddo-char-set: 1"
Me.lblDate.SummaryGroup = ""
Me.lblDate.Text = Nothing
Me.lblDate.Top = 0!
Me.lblDate.Width = 1.505513!
'
'lblInvoiceNo
'
Me.lblInvoiceNo.DataField = ""
Me.lblInvoiceNo.DistinctField = ""
Me.lblInvoiceNo.Height = 0.2106299!
Me.lblInvoiceNo.Left = 7.406693!
Me.lblInvoiceNo.MultiLine = False
Me.lblInvoiceNo.Name = "lblInvoiceNo"
Me.lblInvoiceNo.Style = "color: Black; font-size: 8pt; text-align: left; ddo-char-set: 1"
Me.lblInvoiceNo.SummaryGroup = ""
Me.lblInvoiceNo.Text = Nothing
Me.lblInvoiceNo.Top = 0.2188977!
Me.lblInvoiceNo.Width = 1.505513!
'
'lblTax
'
Me.lblTax.DataField = ""
Me.lblTax.DistinctField = ""
Me.lblTax.Height = 0.4295276!
Me.lblTax.Left = 9.055119!
Me.lblTax.Name = "lblTax"
Me.lblTax.Style = "color: Black; font-size: 8pt; text-align: right; vertical-align: middle; ddo-char" &
"-set: 1"
Me.lblTax.SummaryGroup = ""
Me.lblTax.Text = Nothing
Me.lblTax.Top = 0!
Me.lblTax.Width = 1.107087!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0.03937008!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0!
Me.Line3.Width = 11.25984!
Me.Line3.X1 = 0.03937008!
Me.Line3.X2 = 11.29921!
Me.Line3.Y1 = 0!
Me.Line3.Y2 = 0!
'
'Line4
'
Me.Line4.Height = 0!
Me.Line4.Left = 0.8157481!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0.2188977!
Me.Line4.Width = 8.12559!
Me.Line4.X1 = 0.8157481!
Me.Line4.X2 = 8.941339!
Me.Line4.Y1 = 0.2188977!
Me.Line4.Y2 = 0.2188977!
'
'Line5
'
Me.Line5.Height = 0!
Me.Line5.Left = 0.03937008!
Me.Line5.LineWeight = 1.0!
Me.Line5.Name = "Line5"
Me.Line5.Top = 0.4330709!
Me.Line5.Width = 11.25984!
Me.Line5.X1 = 0.03937008!
Me.Line5.X2 = 11.29921!
Me.Line5.Y1 = 0.4330709!
Me.Line5.Y2 = 0.4330709!
'
'Line6
'
Me.Line6.Height = 0.4330709!
Me.Line6.Left = 0.03937008!
Me.Line6.LineWeight = 1.0!
Me.Line6.Name = "Line6"
Me.Line6.Top = 0!
Me.Line6.Width = 0!
Me.Line6.X1 = 0.03937008!
Me.Line6.X2 = 0.03937008!
Me.Line6.Y1 = 0.4330709!
Me.Line6.Y2 = 0!
'
'Line7
'
Me.Line7.Height = 0.4330709!
Me.Line7.Left = 11.29921!
Me.Line7.LineWeight = 1.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0!
Me.Line7.Width = 0!
Me.Line7.X1 = 11.29921!
Me.Line7.X2 = 11.29921!
Me.Line7.Y1 = 0.4330709!
Me.Line7.Y2 = 0!
'
'Line8
'
Me.Line8.Height = 0.4330709!
Me.Line8.Left = 10.19134!
Me.Line8.LineWeight = 1.0!
Me.Line8.Name = "Line8"
Me.Line8.Top = 0.00000004470348!
Me.Line8.Width = 0!
Me.Line8.X1 = 10.19134!
Me.Line8.X2 = 10.19134!
Me.Line8.Y1 = 0.4330709!
Me.Line8.Y2 = 0.00000004470348!
'
'Line9
'
Me.Line9.Height = 0.4330708!
Me.Line9.Left = 8.941339!
Me.Line9.LineWeight = 1.0!
Me.Line9.Name = "Line9"
Me.Line9.Top = 0.00000007450581!
Me.Line9.Width = 0!
Me.Line9.X1 = 8.941339!
Me.Line9.X2 = 8.941339!
Me.Line9.Y1 = 0.4330709!
Me.Line9.Y2 = 0.00000007450581!
'
'Line10
'
Me.Line10.Height = 0.4330708!
Me.Line10.Left = 0.8157482!
Me.Line10.LineWeight = 1.0!
Me.Line10.Name = "Line10"
Me.Line10.Top = 0!
Me.Line10.Width = 0!
Me.Line10.X1 = 0.8157482!
Me.Line10.X2 = 0.8157482!
Me.Line10.Y1 = 0.4330708!
Me.Line10.Y2 = 0!
'
'Line11
'
Me.Line11.Height = 0.4330708!
Me.Line11.Left = 7.406693!
Me.Line11.LineWeight = 1.0!
Me.Line11.Name = "Line11"
Me.Line11.Top = 1.421085E-14!
Me.Line11.Width = 0!
Me.Line11.X1 = 7.406693!
Me.Line11.X2 = 7.406693!
Me.Line11.Y1 = 0.4330708!
Me.Line11.Y2 = 1.421085E-14!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
Me.PageFooter.Name = "PageFooter"
'
'Label28
'
Me.Label28.Height = 0.1330709!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 2.13937!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG 360 GmbH"
Me.Label28.Top = 0.08622044!
Me.Label28.Width = 6.555906!
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.03070866!
Me.Line2.Width = 11.29921!
Me.Line2.X1 = 0!
Me.Line2.X2 = 11.29921!
Me.Line2.Y1 = 0.03070866!
Me.Line2.Y2 = 0.03070866!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 8.856299!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.08622048!
Me.ReportInfo2.Width = 2.437842!
'
'lblDat
'
Me.lblDat.Height = 0.1330708!
Me.lblDat.HyperLink = Nothing
Me.lblDat.Left = 0.01023622!
Me.lblDat.Name = "lblDat"
Me.lblDat.Style = "font-size: 8pt; text-align: left"
Me.lblDat.Text = "Mittwoch, 02.11.2016"
Me.lblDat.Top = 0.08622044!
Me.lblDat.Width = 2.649606!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblUeberschrift, Me.Label2, Me.lblVatNo, Me.lblCompanyname, Me.Label1})
Me.ReportHeader1.Height = 1.05315!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 9.09567!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.198425!
'
'lblUeberschrift
'
Me.lblUeberschrift.Height = 0.2311024!
Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0.01023622!
Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 0"
Me.lblUeberschrift.Text = "VAT No."
Me.lblUeberschrift.Top = 0.1338583!
Me.lblUeberschrift.Width = 1.696063!
'
'Label2
'
Me.Label2.Height = 0.2311024!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.706299!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 0"
Me.Label2.Text = "Name/Company"
Me.Label2.Top = 0.1338583!
Me.Label2.Width = 7.34882!
'
'lblVatNo
'
Me.lblVatNo.DataField = ""
Me.lblVatNo.Height = 0.2311024!
Me.lblVatNo.HyperLink = Nothing
Me.lblVatNo.Left = 0!
Me.lblVatNo.Name = "lblVatNo"
Me.lblVatNo.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set:" &
" 1"
Me.lblVatNo.Text = "VAT No."
Me.lblVatNo.Top = 0.4169292!
Me.lblVatNo.Width = 1.696063!
'
'lblCompanyname
'
Me.lblCompanyname.DataField = ""
Me.lblCompanyname.Height = 0.2311024!
Me.lblCompanyname.HyperLink = Nothing
Me.lblCompanyname.Left = 1.706299!
Me.lblCompanyname.Name = "lblCompanyname"
Me.lblCompanyname.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set:" &
" 1"
Me.lblCompanyname.Text = "Name/Company"
Me.lblCompanyname.Top = 0.4169292!
Me.lblCompanyname.Width = 7.348819!
'
'Label1
'
Me.Label1.DataField = ""
Me.Label1.Height = 0.4051182!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.0102362!
Me.Label1.Name = "Label1"
Me.Label1.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: center; vertical-al" &
"ign: middle; ddo-char-set: 1"
Me.Label1.Text = "Statement itemising VAT amounts relating to the period covered by this applicatio" &
"n"
Me.Label1.Top = 0.6480315!
Me.Label1.Width = 11.28386!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.TextBox12, Me.TextBox17, Me.TextBox23, Me.TextBox1, Me.TextBox2, Me.Line12, Me.Line13, Me.Line14, Me.Line15, Me.Line16, Me.Line17, Me.Line18, Me.Line19, Me.Line20})
Me.GroupHeader1.Height = 0.4984253!
Me.GroupHeader1.KeepTogether = True
Me.GroupHeader1.Name = "GroupHeader1"
'
'Label5
'
Me.Label5.Height = 0.4110236!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.05118111!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label5.Text = "Number"
Me.Label5.Top = 0!
Me.Label5.Width = 0.7019686!
'
'TextBox12
'
Me.TextBox12.DataField = ""
Me.TextBox12.DistinctField = ""
Me.TextBox12.Height = 0.1795276!
Me.TextBox12.Left = 0.6874017!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
": 1"
Me.TextBox12.SummaryGroup = ""
Me.TextBox12.Text = "Nature of goods or services"
Me.TextBox12.Top = 0!
Me.TextBox12.Width = 6.719292!
'
'TextBox17
'
Me.TextBox17.DataField = ""
Me.TextBox17.DistinctField = ""
Me.TextBox17.Height = 0.4110236!
Me.TextBox17.Left = 7.406693!
Me.TextBox17.Name = "TextBox17"
Me.TextBox17.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
": 1"
Me.TextBox17.SummaryGroup = ""
Me.TextBox17.Text = "Date and number of invoice or import document"
Me.TextBox17.Top = 0!
Me.TextBox17.Width = 1.457087!
'
'TextBox23
'
Me.TextBox23.DataField = ""
Me.TextBox23.DistinctField = ""
Me.TextBox23.Height = 0.2314961!
Me.TextBox23.Left = 0.6874017!
Me.TextBox23.Name = "TextBox23"
Me.TextBox23.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
": 1"
Me.TextBox23.SummaryGroup = ""
Me.TextBox23.Text = "Name, VAT, Registration No. (if known) and address of supplier of goods or servic" &
"es"
Me.TextBox23.Top = 0.1795276!
Me.TextBox23.Width = 6.719292!
'
'TextBox1
'
Me.TextBox1.DataField = ""
Me.TextBox1.DistinctField = ""
Me.TextBox1.Height = 0.4110236!
Me.TextBox1.Left = 9.055119!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
": 1"
Me.TextBox1.SummaryGroup = ""
Me.TextBox1.Text = "Amount of tax refund applied for"
Me.TextBox1.Top = 0!
Me.TextBox1.Width = 1.107087!
'
'TextBox2
'
Me.TextBox2.DataField = ""
Me.TextBox2.DistinctField = ""
Me.TextBox2.Height = 0.4110236!
Me.TextBox2.Left = 10.24409!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
": 1"
Me.TextBox2.SummaryGroup = ""
Me.TextBox2.Text = "FOR OFFICIAL USE ONLY"
Me.TextBox2.Top = 0!
Me.TextBox2.Width = 1.05!
'
'Line12
'
Me.Line12.Height = 0.3937008!
Me.Line12.Left = 0.03937008!
Me.Line12.LineWeight = 1.0!
Me.Line12.Name = "Line12"
Me.Line12.Top = 0!
Me.Line12.Width = 0!
Me.Line12.X1 = 0.03937008!
Me.Line12.X2 = 0.03937008!
Me.Line12.Y1 = 0.3937008!
Me.Line12.Y2 = 0!
'
'Line13
'
Me.Line13.Height = 0.4330708!
Me.Line13.Left = 11.2941!
Me.Line13.LineWeight = 1.0!
Me.Line13.Name = "Line13"
Me.Line13.Top = 0.00000005960464!
Me.Line13.Width = 0!
Me.Line13.X1 = 11.2941!
Me.Line13.X2 = 11.2941!
Me.Line13.Y1 = 0.4330709!
Me.Line13.Y2 = 0.00000005960464!
'
'Line14
'
Me.Line14.Height = 0.3937008!
Me.Line14.Left = 10.16221!
Me.Line14.LineWeight = 1.0!
Me.Line14.Name = "Line14"
Me.Line14.Top = 0.00000004470348!
Me.Line14.Width = 0!
Me.Line14.X1 = 10.16221!
Me.Line14.X2 = 10.16221!
Me.Line14.Y1 = 0.3937008!
Me.Line14.Y2 = 0.00000004470348!
'
'Line15
'
Me.Line15.Height = 0.3937007!
Me.Line15.Left = 8.912207!
Me.Line15.LineWeight = 1.0!
Me.Line15.Name = "Line15"
Me.Line15.Top = 0.00000007450581!
Me.Line15.Width = 0!
Me.Line15.X1 = 8.912207!
Me.Line15.X2 = 8.912207!
Me.Line15.Y1 = 0.3937008!
Me.Line15.Y2 = 0.00000007450581!
'
'Line16
'
Me.Line16.Height = 0.3937008!
Me.Line16.Left = 0.7866142!
Me.Line16.LineWeight = 1.0!
Me.Line16.Name = "Line16"
Me.Line16.Top = 0!
Me.Line16.Width = 0!
Me.Line16.X1 = 0.7866142!
Me.Line16.X2 = 0.7866142!
Me.Line16.Y1 = 0.3937008!
Me.Line16.Y2 = 0!
'
'Line17
'
Me.Line17.Height = 0.3937007!
Me.Line17.Left = 7.406693!
Me.Line17.LineWeight = 1.0!
Me.Line17.Name = "Line17"
Me.Line17.Top = 0.0000001192093!
Me.Line17.Width = 0!
Me.Line17.X1 = 7.406693!
Me.Line17.X2 = 7.406693!
Me.Line17.Y1 = 0.3937008!
Me.Line17.Y2 = 0.0000001192093!
'
'Line18
'
Me.Line18.Height = 0!
Me.Line18.Left = 0.05118111!
Me.Line18.LineWeight = 1.0!
Me.Line18.Name = "Line18"
Me.Line18.Top = 0!
Me.Line18.Width = 11.25984!
Me.Line18.X1 = 0.05118111!
Me.Line18.X2 = 11.31102!
Me.Line18.Y1 = 0!
Me.Line18.Y2 = 0!
'
'Line19
'
Me.Line19.Height = 0!
Me.Line19.Left = 0.7874016!
Me.Line19.LineWeight = 1.0!
Me.Line19.Name = "Line19"
Me.Line19.Top = 0.1795276!
Me.Line19.Width = 6.614173!
Me.Line19.X1 = 0.7874016!
Me.Line19.X2 = 7.401575!
Me.Line19.Y1 = 0.1795276!
Me.Line19.Y2 = 0.1795276!
'
'Line20
'
Me.Line20.Height = 0!
Me.Line20.Left = 0.03425197!
Me.Line20.LineWeight = 1.0!
Me.Line20.Name = "Line20"
Me.Line20.Top = 0.4110236!
Me.Line20.Width = 11.25984!
Me.Line20.X1 = 0.03425197!
Me.Line20.X2 = 11.29409!
Me.Line20.Y1 = 0.4110236!
Me.Line20.Y2 = 0.4110236!
'
'GroupFooter1
'
Me.GroupFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblSumme, Me.lblWahrung})
Me.GroupFooter1.Height = 0.2916667!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 2.300394!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.09251969!
Me.Line1.Width = 8.998816!
Me.Line1.X1 = 2.300394!
Me.Line1.X2 = 11.29921!
Me.Line1.Y1 = 0.09251969!
Me.Line1.Y2 = 0.09251969!
'
'lblSumme
'
Me.lblSumme.DataField = ""
Me.lblSumme.DistinctField = ""
Me.lblSumme.Height = 0.1795276!
Me.lblSumme.Left = 9.141339!
Me.lblSumme.Name = "lblSumme"
Me.lblSumme.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
" 1"
Me.lblSumme.SummaryGroup = ""
Me.lblSumme.Text = "10.000.000"
Me.lblSumme.Top = 0.09251969!
Me.lblSumme.Width = 1.05!
'
'lblWahrung
'
Me.lblWahrung.DataField = ""
Me.lblWahrung.DistinctField = ""
Me.lblWahrung.Height = 0.1795276!
Me.lblWahrung.Left = 10.26102!
Me.lblWahrung.Name = "lblWahrung"
Me.lblWahrung.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
" 1"
Me.lblWahrung.SummaryGroup = ""
Me.lblWahrung.Text = Nothing
Me.lblWahrung.Top = 0.09251969!
Me.lblWahrung.Width = 1.05!
'
'GroupHeader2
'
Me.GroupHeader2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFirma})
Me.GroupHeader2.Height = 0.3090551!
Me.GroupHeader2.Name = "GroupHeader2"
'
'lblFirma
'
Me.lblFirma.Height = 0.2070866!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 0!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.lblFirma.Style = "background-color: #003680; color: White; font-size: 10pt; font-weight: bold; text" &
"-align: left; vertical-align: middle"
Me.lblFirma.Text = ""
Me.lblFirma.Top = 0.1019685!
Me.lblFirma.Width = 11.29409!
'
'GroupFooter2
'
Me.GroupFooter2.Height = 0!
Me.GroupFooter2.Name = "GroupFooter2"
Me.GroupFooter2.NewPage = GrapeCity.ActiveReports.SectionReportModel.NewPage.After
'
'rptMWSTListe
'
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 11.36181!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader2)
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.GroupFooter2)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
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.lblNumber, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGoods, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblName, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOfficial, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDate, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblInvoiceNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblTax, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblVatNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblCompanyname, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox23, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Public WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Public WithEvents lblNumber As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGoods As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents GroupFooter2 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Public WithEvents GroupHeader2 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox17 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox23 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblName As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblOfficial As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblDate As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblInvoiceNo As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblTax As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblVatNo As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblCompanyname As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblWahrung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line9 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line10 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line11 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line13 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line14 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line17 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line19 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line20 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

129
SDL/Reports/MDM/rptMWSTListe.resx Normal file
View File

File diff suppressed because one or more lines are too long

6
SDL/Reports/MDM/rptMWSTListe.vb Normal file
View File

@@ -0,0 +1,6 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptMWSTListe
End Class

37
SDL/SDL.vbproj
View File

@@ -917,6 +917,12 @@
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="Reports\MDM\rptMWSTListe.Designer.vb">
<DependentUpon>rptMWSTListe.vb</DependentUpon>
</Compile>
<Compile Include="Reports\MDM\rptMWSTListe.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="seriendruck\usrCntlFakturierung.Designer.vb">
<DependentUpon>usrCntlFakturierung.vb</DependentUpon>
</Compile>
@@ -3469,6 +3475,9 @@
<EmbeddedResource Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_MEDPASS.resx">
<DependentUpon>subrptBriefSDL_PLOSE_MEDPASS.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\MDM\rptMWSTListe.resx">
<DependentUpon>rptMWSTListe.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\Zoll\rptKontrolleLKW_TELOTEC.resx">
<DependentUpon>rptKontrolleLKW_TELOTEC.vb</DependentUpon>
</EmbeddedResource>
@@ -4972,7 +4981,9 @@
<None Include="Resources\search.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Verag_Customs_Service_AEO1.jpg" />
<None Include="Resources\Verag_Customs_Service_AEO1.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<EmbeddedResource Include="My Project\license.elic.xml" />
<Content Include="My Project\licensePDFPro.elic.xml" />
<Content Include="My Project\licensePDFViewer.elic.xml" />
@@ -5028,7 +5039,9 @@
<None Include="Resources\VERAG-UNISPED-Logo.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\unisped_aeo_ZS_AT.jpg" />
<None Include="Resources\unisped_aeo_ZS_AT.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\Unisped_ZS_logo.png" />
<None Include="Resources\Unisped_logo.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
@@ -5036,7 +5049,9 @@
<None Include="Resources\Unisped_DE_logo.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\unisped_aeo_DE.jpg" />
<None Include="Resources\unisped_aeo_DE.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\Unisped_DE_logo.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
@@ -5047,7 +5062,9 @@
<None Include="Resources\Unisped_logo.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\unisped_aeo_AT.jpg" />
<None Include="Resources\unisped_aeo_AT.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\oregon.png" />
<None Include="Resources\Telefonliste_small.png" />
<None Include="Resources\Logo_blue_globe_Horizontal.jpg" />
@@ -5161,9 +5178,15 @@
<None Include="Resources\dakosy.png" />
<None Include="Resources\dakosy1.png" />
<None Include="Resources\entwurf.jpg" />
<None Include="Resources\aeo_AT_imex.jpg" />
<None Include="Resources\aeo_DE.jpg" />
<None Include="Resources\aeo.jpg" />
<None Include="Resources\aeo_AT_imex.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\aeo_DE.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\aeo.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\ambar_simple.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>

2
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -2787,7 +2787,7 @@ Public Class frmMDM_USTVAntrag
If (dgvUSTVPositionen.SelectedRows.Count <> 1 And counter <> dgvUSTVPositionen.SelectedRows.Count) Then posId &= ","
Next
func.generateExcelPosList(USTV_ANTRAG, posId, Antrag_LandKz, txtStNr.Text, True)
func.generatePosList(USTV_ANTRAG, posId, Antrag_LandKz, txtStNr.Text, True, "excel", Nothing)

3
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -1,9 +1,6 @@
Imports System.Globalization
Imports DocumentFormat.OpenXml.Bibliography
Imports GrapeCity.ActiveReports.ReportsCore.Tools
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.CC015B_TR_EXT_V4_3
Public Class frmBU_Mahnlauf

2
SDL/buchhaltung/rptMahnung.resx
View File

File diff suppressed because one or more lines are too long

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

@@ -49,7 +49,6 @@ Partial Class frmKundenblatt
Me.txtInfotext = New System.Windows.Forms.Label()
Me.tbFirmendaten = New System.Windows.Forms.TabPage()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
Me.tbcntrMain = New System.Windows.Forms.TabControl()
Me.tbAllgemein = New System.Windows.Forms.TabPage()
Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -138,10 +137,8 @@ Partial Class frmKundenblatt
Me.lblLetzterSA_SDL = New System.Windows.Forms.Label()
Me.rtbVermerke = New System.Windows.Forms.RichTextBox()
Me.tbSDLKarten = New System.Windows.Forms.TabPage()
Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
Me.tbLKW = New System.Windows.Forms.TabPage()
Me.pnlLKWRight = New System.Windows.Forms.Panel()
Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
Me.pnlLKW = New System.Windows.Forms.Panel()
Me.dgvLKW = New System.Windows.Forms.DataGridView()
Me.pnlLKWBottom = New System.Windows.Forms.Panel()
@@ -173,7 +170,6 @@ Partial Class frmKundenblatt
Me.tbBesuchsberichte = New System.Windows.Forms.TabPage()
Me.tbFremdrechnungen = New System.Windows.Forms.TabPage()
Me.tbOfferte = New System.Windows.Forms.TabPage()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.tbUSTV = New System.Windows.Forms.TabPage()
Me.tbcntrUSTV = New System.Windows.Forms.TabControl()
Me.tbUSTVDokumente = New System.Windows.Forms.TabPage()
@@ -184,7 +180,6 @@ Partial Class frmKundenblatt
Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
@@ -210,6 +205,11 @@ Partial Class frmKundenblatt
Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
Me.pnlInfo.SuspendLayout()
Me.tbFirmendaten.SuspendLayout()
Me.Panel4.SuspendLayout()
@@ -290,7 +290,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, 1152)
Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 1169)
Me.tbFirmendaten.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten"
'
@@ -300,19 +300,9 @@ 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, 1146)
Me.Panel4.Size = New System.Drawing.Size(1638, 1180)
Me.Panel4.TabIndex = 0
'
'UsrcntlKundeBearbeitenFull1
'
Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
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, 1146)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'tbcntrMain
'
Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
@@ -365,7 +355,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, 1169)
Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1186)
Me.tbAllgemein.TabIndex = 0
Me.tbAllgemein.Text = "Allgemein"
'
@@ -924,7 +914,7 @@ Partial Class frmKundenblatt
Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1126)
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1143)
Me.dgvSperrliste.TabIndex = 23
'
'PictureBox2
@@ -978,7 +968,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, 1152)
Me.tbZoll.Size = New System.Drawing.Size(1644, 1186)
Me.tbZoll.TabIndex = 9
Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True
@@ -990,7 +980,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, 1146)
Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 1180)
Me.tbcntrZOLL.TabIndex = 0
'
'tabZoll_Artikel
@@ -998,7 +988,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, 1120)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 1154)
Me.tabZoll_Artikel.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -1571,21 +1561,11 @@ Partial Class frmKundenblatt
Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22)
Me.tbSDLKarten.Name = "tbSDLKarten"
Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39)
Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 1137)
Me.tbSDLKarten.TabIndex = 7
Me.tbSDLKarten.Text = "SDL-Kartenverwaltung"
Me.tbSDLKarten.UseVisualStyleBackColor = True
'
'usrcntlKarten
'
Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.usrcntlKarten.Name = "usrcntlKarten"
Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33)
Me.usrcntlKarten.TabIndex = 0
'
'tbLKW
'
Me.tbLKW.Controls.Add(Me.pnlLKWRight)
@@ -1593,7 +1573,7 @@ Partial Class frmKundenblatt
Me.tbLKW.Location = New System.Drawing.Point(4, 22)
Me.tbLKW.Name = "tbLKW"
Me.tbLKW.Padding = New System.Windows.Forms.Padding(3)
Me.tbLKW.Size = New System.Drawing.Size(178, 39)
Me.tbLKW.Size = New System.Drawing.Size(1630, 1137)
Me.tbLKW.TabIndex = 4
Me.tbLKW.Text = "LKWs"
Me.tbLKW.UseVisualStyleBackColor = True
@@ -1605,22 +1585,9 @@ Partial Class frmKundenblatt
Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3)
Me.pnlLKWRight.Name = "pnlLKWRight"
Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33)
Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 1131)
Me.pnlLKWRight.TabIndex = 2
'
'UsrCntlLKW1
'
Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33)
Me.UsrCntlLKW1.TabIndex = 0
'
'pnlLKW
'
Me.pnlLKW.Controls.Add(Me.dgvLKW)
@@ -1629,7 +1596,7 @@ Partial Class frmKundenblatt
Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left
Me.pnlLKW.Location = New System.Drawing.Point(3, 3)
Me.pnlLKW.Name = "pnlLKW"
Me.pnlLKW.Size = New System.Drawing.Size(306, 33)
Me.pnlLKW.Size = New System.Drawing.Size(306, 1131)
Me.pnlLKW.TabIndex = 3
'
'dgvLKW
@@ -1670,7 +1637,7 @@ Partial Class frmKundenblatt
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle21
Me.dgvLKW.RowHeadersVisible = False
Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvLKW.Size = New System.Drawing.Size(306, 0)
Me.dgvLKW.Size = New System.Drawing.Size(306, 957)
Me.dgvLKW.TabIndex = 2
'
'pnlLKWBottom
@@ -1682,7 +1649,7 @@ Partial Class frmKundenblatt
Me.pnlLKWBottom.Controls.Add(Me.Button13)
Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse)
Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79)
Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 1019)
Me.pnlLKWBottom.Name = "pnlLKWBottom"
Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112)
Me.pnlLKWBottom.TabIndex = 3
@@ -1823,7 +1790,7 @@ Partial Class frmKundenblatt
Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22)
Me.tbVERAGCard.Name = "tbVERAGCard"
Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3)
Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39)
Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 1137)
Me.tbVERAGCard.TabIndex = 6
Me.tbVERAGCard.Text = "VERAG Card"
Me.tbVERAGCard.UseVisualStyleBackColor = True
@@ -1835,7 +1802,7 @@ Partial Class frmKundenblatt
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(3, 3)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(172, 33)
Me.Panel3.Size = New System.Drawing.Size(1624, 1131)
Me.Panel3.TabIndex = 0
'
'tbDokumente
@@ -2053,7 +2020,7 @@ Partial Class frmKundenblatt
Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22)
Me.tbBesuchsberichte.Name = "tbBesuchsberichte"
Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3)
Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39)
Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 1137)
Me.tbBesuchsberichte.TabIndex = 9
Me.tbBesuchsberichte.Text = "Besuchsberichte"
Me.tbBesuchsberichte.UseVisualStyleBackColor = True
@@ -2062,7 +2029,7 @@ Partial Class frmKundenblatt
'
Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22)
Me.tbFremdrechnungen.Name = "tbFremdrechnungen"
Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39)
Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 1137)
Me.tbFremdrechnungen.TabIndex = 10
Me.tbFremdrechnungen.Text = "Fremdrechnungen"
Me.tbFremdrechnungen.UseVisualStyleBackColor = True
@@ -2073,27 +2040,17 @@ 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, 1169)
Me.tbOfferte.Size = New System.Drawing.Size(1644, 1186)
Me.tbOfferte.TabIndex = 11
Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True
'
'UsrCntlOfferte1
'
Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
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, 1169)
Me.UsrCntlOfferte1.TabIndex = 0
'
'tbUSTV
'
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, 1152)
Me.tbUSTV.Size = New System.Drawing.Size(1644, 1186)
Me.tbUSTV.TabIndex = 12
Me.tbUSTV.Text = "USTV"
Me.tbUSTV.UseVisualStyleBackColor = True
@@ -2107,7 +2064,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, 1152)
Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 1186)
Me.tbcntrUSTV.TabIndex = 1
'
'tbUSTVDokumente
@@ -2120,7 +2077,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, 1126)
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 1160)
Me.tbUSTVDokumente.TabIndex = 8
Me.tbUSTVDokumente.Text = "Dokumente"
Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2221,19 +2178,11 @@ Partial Class frmKundenblatt
Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVAntrage.Name = "tbUSTVAntrage"
Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 1143)
Me.tbUSTVAntrage.TabIndex = 9
Me.tbUSTVAntrage.Text = "USTV-Anträge"
Me.tbUSTVAntrage.UseVisualStyleBackColor = True
'
'UsrCntlUSTV
'
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39)
Me.UsrCntlUSTV.TabIndex = 0
'
'cntxtExcel
'
Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -2376,6 +2325,7 @@ Partial Class frmKundenblatt
'
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM"
'
@@ -2509,6 +2459,57 @@ Partial Class frmKundenblatt
Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
Me.tbiVERAGCard.Text = "VERAG Card"
'
'UsrcntlKundeBearbeitenFull1
'
Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill
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, 1180)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
'
'usrcntlKarten
'
Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default
Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.usrcntlKarten.Name = "usrcntlKarten"
Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 1131)
Me.usrcntlKarten.TabIndex = 0
'
'UsrCntlLKW1
'
Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White
Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0)
Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000)
Me.UsrCntlLKW1.Name = "UsrCntlLKW1"
Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 1000)
Me.UsrCntlLKW1.TabIndex = 0
'
'UsrCntlOfferte1
'
Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White
Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 1186)
Me.UsrCntlOfferte1.TabIndex = 0
'
'UsrCntlUSTV
'
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
Me.UsrCntlUSTV.Size = New System.Drawing.Size(1630, 1137)
Me.UsrCntlUSTV.TabIndex = 0
'
'frmKundenblatt
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

24
SDL/seriendruck/usrCntlFakturierung.Designer.vb generated
View File

@@ -94,6 +94,8 @@ Partial Class usrcntlFakturierung
Me.btnRePos = New System.Windows.Forms.Button()
Me.Validation1 = New SDL.EORI.validation()
Me.btnWikiStatusmails = New System.Windows.Forms.Button()
Me.Label10 = New System.Windows.Forms.Label()
Me.lblAnzRE = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout()
Me.GBMautberichte.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -337,6 +339,8 @@ Partial Class usrcntlFakturierung
'
'GBSammelrechnung
'
Me.GBSammelrechnung.Controls.Add(Me.lblAnzRE)
Me.GBSammelrechnung.Controls.Add(Me.Label10)
Me.GBSammelrechnung.Controls.Add(Me.Label9)
Me.GBSammelrechnung.Controls.Add(Me.Label8)
Me.GBSammelrechnung.Controls.Add(Me.PictureBox9)
@@ -882,6 +886,24 @@ Partial Class usrcntlFakturierung
Me.btnWikiStatusmails.TabIndex = 72
Me.btnWikiStatusmails.UseVisualStyleBackColor = True
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(434, 63)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(126, 13)
Me.Label10.TabIndex = 122
Me.Label10.Text = "Anzahl RE offen/erledigt:"
'
'lblAnzRE
'
Me.lblAnzRE.AutoSize = True
Me.lblAnzRE.Location = New System.Drawing.Point(608, 62)
Me.lblAnzRE.Name = "lblAnzRE"
Me.lblAnzRE.Size = New System.Drawing.Size(30, 13)
Me.lblAnzRE.TabIndex = 123
Me.lblAnzRE.Text = "0 / 0"
'
'usrcntlFakturierung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -985,4 +1007,6 @@ Partial Class usrcntlFakturierung
Friend WithEvents Label6 As Label
Friend WithEvents Label9 As Label
Friend WithEvents btnWikiStatusmails As Button
Friend WithEvents lblAnzRE As Label
Friend WithEvents Label10 As Label
End Class

16
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1722,9 +1722,14 @@ Public Class usrcntlFakturierung
If rechnungsdatum > Today() Then Return False
Dim rechnungenMitStatus0 As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) From Rechnungsausgang
Dim rechnungenMitStatus0 As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(distinct(RechnungsKundenNr)) From Rechnungsausgang
Where [Status] = 0 And [Sammelrechnung] = 6 And UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL",, 0))
Dim rechnungenErledigt As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(distinct(RechnungsKundenNr)) From Rechnungsausgang
Where [Status] <> 0 And [Sammelrechnung] = 6 And UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL",, 0))
lblAnzRE.Text = rechnungenMitStatus0 & " /" & rechnungenErledigt & " (" & rechnungenMitStatus0 + rechnungenErledigt & ")"
Return rechnungenMitStatus0 > 0
End Function
@@ -1853,7 +1858,7 @@ Public Class usrcntlFakturierung
Private Sub REJournalExcel(Sachbearbeiter, rechnungsdatum, kdnr)
Dim dtRechnungsjournal As DataTable = (New SQL).loadDgvBySql("SELECT
Dim dtRechnungsjournal As DataTable = (New SQL).loadDgvBySql("SELECT count(distinct(Rechnungsausgang.RechnungsKundenNr)) as Anzahl,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsLandKz,
Rechnungsausgang.RechnungsNr,
@@ -1894,7 +1899,7 @@ Public Class usrcntlFakturierung
If dtRechnungsjournal.Rows.Count > 0 Then
createSumFunciton(dtRechnungsjournal)
cProgramFunctions.genExcelFromDT_NEW(dtRechnungsjournal, {"I1:I" & (dtRechnungsjournal.Rows.Count + 1), "J1:J" & (dtRechnungsjournal.Rows.Count + 1), "K1:K" & (dtRechnungsjournal.Rows.Count + 1)},, "RECHNUNGSJOURNAL VOM " & rechnungsdatum.ToShortDateString,,, True)
cProgramFunctions.genExcelFromDT_NEW(dtRechnungsjournal, {"J1:J" & (dtRechnungsjournal.Rows.Count + 1), "k1:K" & (dtRechnungsjournal.Rows.Count + 1), "L1:L" & (dtRechnungsjournal.Rows.Count + 1)},, "RECHNUNGSJOURNAL VOM " & rechnungsdatum.ToShortDateString,,, True)
Else
MsgBox("Keine Daten für Rechnungsjournal")
@@ -1906,7 +1911,7 @@ Public Class usrcntlFakturierung
Private Sub REJournaByCountrylExcel(Sachbearbeiter, rechnungsdatum, kdnr)
Dim dtLaender As DataTable = (New SQL).loadDgvBySql("SELECT
Dim dtLaender As DataTable = (New SQL).loadDgvBySql("SELECT count(distinct(Rechnungsausgang.RechnungsKundenNr)) as Anzahl,
Rechnungsausgang.Buchungsjahr,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsLandKz,
@@ -1948,13 +1953,16 @@ Public Class usrcntlFakturierung
Dim SteuerpflichtigerBetrag As Double = 0
Dim SteuerfreierBetrag As Double = 0
Dim Anzahl As Integer = 0
For Each row In dt.Rows
If Not IsDBNull(row("SteuerpflichtigerGesamtbetrag")) AndAlso IsNumeric(row("SteuerpflichtigerGesamtbetrag")) Then SteuerpflichtigerBetrag += CDbl(row("SteuerpflichtigerGesamtbetrag"))
If Not IsDBNull(row("SteuerfreierGesamtbetrag")) AndAlso IsNumeric(row("SteuerfreierGesamtbetrag")) Then SteuerfreierBetrag += CDbl(row("SteuerfreierGesamtbetrag"))
If Not IsDBNull(row("Anzahl")) AndAlso IsNumeric(row("Anzahl")) Then Anzahl += CInt(row("Anzahl"))
Next
Dim drLast = dt.NewRow
If dt.Columns.Contains("Anzahl") Then drLast.Item("Anzahl") = Anzahl
If dt.Columns.Contains("Währungscode") Then drLast.Item("Währungscode") = DBNull.Value
If dt.Columns.Contains("RechnungsLandKz") Then drLast.Item("RechnungsLandKz") = DBNull.Value
If dt.Columns.Contains("RechnungsNr") Then drLast.Item("RechnungsNr") = DBNull.Value

79
VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
View File

@@ -1,5 +1,6 @@

Imports com.sun.xml.internal.rngom
Imports iTextSharp.text.pdf
Imports iTextSharp.text.pdf.parser
Imports System.IO
@@ -1031,14 +1032,15 @@ Public Class cMDMFunctionsAllgemein
End Function
Shared Function generateExcelPosList(USTV_ANTRAG As cUSTVAntrag, posId As String, Antrag_LandKz As String, SteuerNR As String, openFile As Boolean) As String
Shared Function generatePosList(USTV_ANTRAG As cUSTVAntrag, posId As String, Antrag_LandKz As String, SteuerNR As String, openFile As Boolean, type As String, ByRef dt As DataTable, Optional isVZ As Boolean = False) As String
Dim sql As New SQL
Dim sqlWHere = ""
If posId <> "" Then
sqlWHere = " And UStVPo_ID in(" & posId & ")"
ElseIf isVZ Then
sqlWHere = " and UStVPo_VZ = 1 And UStVPo_VZ_RKID is null"
End If
Dim StringSQL = "SELECT [UStVPo_ID] as Number ,[UStVPo_ReDat] as 'Date of Invoice',[UStVPo_ReNr] as 'Number of invoice' ,[UStVPo_Leistungsbezeichnung] as 'Name of service',[UStVPo_Leistender] as 'Name of supplier',leist.[UstV_Leistender_Strasse] + ' ' + leist.[UstV_Leistender_StrasseNr] as Street,
@@ -1053,46 +1055,65 @@ Public Class cMDMFunctionsAllgemein
Dim dtNew As DataTable = sql.loadDgvBySql(StringSQL, "FMZOLL")
If dtNew IsNot Nothing AndAlso dtNew.Rows.Count > 0 Then
If type = "excel" Then
Dim sumVAT As Double = 0
For Each row In dtNew.Rows
If Not IsDBNull(row("Amount of tax refund")) AndAlso IsNumeric(row("Amount of tax refund")) Then sumVAT += CDbl(row("Amount of tax refund"))
If Not IsDBNull(row("Amount of tax refund")) AndAlso IsNumeric(row("Amount of tax refund")) Then row("Amount of tax refund") = CDbl(row("Amount of tax refund"))
If Not IsDBNull(row("Name of supplier")) AndAlso row("Name of supplier") <> "" AndAlso Not IsDBNull(row("VAT")) AndAlso row("VAT") <> "" Then
row("Name of supplier") = row("Name of supplier").ToString.Replace(" " & row("VAT").ToString.Substring(0, 2), "")
Dim sumVAT As Double = 0
For Each row In dtNew.Rows
If Not IsDBNull(row("Amount of tax refund")) AndAlso IsNumeric(row("Amount of tax refund")) Then sumVAT += CDbl(row("Amount of tax refund"))
If Not IsDBNull(row("Amount of tax refund")) AndAlso IsNumeric(row("Amount of tax refund")) Then row("Amount of tax refund") = CDbl(row("Amount of tax refund"))
If Not IsDBNull(row("Name of supplier")) AndAlso row("Name of supplier") <> "" AndAlso Not IsDBNull(row("VAT")) AndAlso row("VAT") <> "" Then
row("Name of supplier") = row("Name of supplier").ToString.Replace(" " & row("VAT").ToString.Substring(0, 2), "")
End If
Next
Dim drLast = dtNew.NewRow
If dtNew.Columns.Contains("Number") Then drLast.Item("Number") = dtNew.Rows.Count + 1
If dtNew.Columns.Contains("Date of Invoice") Then drLast.Item("Date of Invoice") = DBNull.Value
If dtNew.Columns.Contains("Number of invoice") Then drLast.Item("Number of invoice") = DBNull.Value
If dtNew.Columns.Contains("Amount of tax refund") Then drLast.Item("Amount of tax refund") = sumVAT
If dtNew.Columns.Contains("Name of supplier") Then drLast.Item("Name of supplier") = DBNull.Value
If dtNew.Columns.Contains("Street") Then drLast.Item("Street") = DBNull.Value
If dtNew.Columns.Contains("City") Then drLast.Item("City") = DBNull.Value
If dtNew.Columns.Contains("Country") Then drLast.Item("Country") = DBNull.Value
If dtNew.Columns.Contains("ZIP-Code") Then drLast.Item("ZIP-Code") = DBNull.Value
If dtNew.Columns.Contains("VAT") Then drLast.Item("VAT") = "SUM"
If dtNew.Columns.Contains("Name of service") Then drLast.Item("Name of service") = DBNull.Value
dtNew.Rows.InsertAt(drLast, dtNew.Rows.Count)
Dim header1 As String = ""
Dim header2 As String = ""
Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr)
If Antrag_LandKz <> "" Then
header1 = "Statement itemising VAT amounts relating to the period covered by this application"
header2 = "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & " " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & " " & "VAT in " & Antrag_LandKz & ": " & SteuerNR
End If
Next
Dim drLast = dtNew.NewRow
If dtNew.Columns.Contains("Number") Then drLast.Item("Number") = dtNew.Rows.Count + 1
If dtNew.Columns.Contains("Date of Invoice") Then drLast.Item("Date of Invoice") = DBNull.Value
If dtNew.Columns.Contains("Number of invoice") Then drLast.Item("Number of invoice") = DBNull.Value
If dtNew.Columns.Contains("Amount of tax refund") Then drLast.Item("Amount of tax refund") = sumVAT
If dtNew.Columns.Contains("Name of supplier") Then drLast.Item("Name of supplier") = DBNull.Value
If dtNew.Columns.Contains("Street") Then drLast.Item("Street") = DBNull.Value
If dtNew.Columns.Contains("City") Then drLast.Item("City") = DBNull.Value
If dtNew.Columns.Contains("Country") Then drLast.Item("Country") = DBNull.Value
If dtNew.Columns.Contains("ZIP-Code") Then drLast.Item("ZIP-Code") = DBNull.Value
If dtNew.Columns.Contains("VAT") Then drLast.Item("VAT") = "SUM"
If dtNew.Columns.Contains("Name of service") Then drLast.Item("Name of service") = DBNull.Value
Return cProgramFunctions.genExcelFromDT_NEW_(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, header1, header2, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "J", True, True, openFile)
Else
If dtNew.Columns.Contains("Number") Then
dt = dtNew
Return "prt"
Else
Return ""
End If
dtNew.Rows.InsertAt(drLast, dtNew.Rows.Count)
Dim header1 As String = ""
Dim header2 As String = ""
Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr)
If Antrag_LandKz <> "" Then
header1 = "Statement itemising VAT amounts relating to the period covered by this application"
header2 = "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & " " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & " " & "VAT in " & Antrag_LandKz & ": " & SteuerNR
End If
Return cProgramFunctions.genExcelFromDT_NEW_(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, header1, header2, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "J", True, True, openFile)
End If
End Function
End Class