antrag, Email, MWST-Liste
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user