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

antrag, Email, MWST-Liste

Browse Source
This commit is contained in:
d.breimaier
2025-05-27 13:23:03 +02:00
parent 7b783d6104
commit 2f704e569f
8 changed files with 1145 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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
'-----------------------------------------------------------------

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

9
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>

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)

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