Zugferd
This commit is contained in:
@@ -1897,99 +1897,101 @@ Public Class cFakturierung
|
||||
|
||||
Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR")
|
||||
|
||||
If ROW("RechnungsNr") Is DBNull.Value Then Return ""
|
||||
|
||||
Dim RechnungsNr = If(ROW("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr"), "Vorschau")
|
||||
Dim RechnungsDatum = If(ROW("RechnungsDatum") IsNot DBNull.Value, ROW("RechnungsDatum"), "Vorschau")
|
||||
Dim zahlungszieldatum As Date = CDate(RechnungsDatum).AddDays(ZZTage)
|
||||
Dim desc As InvoiceDescriptor = InvoiceDescriptor.CreateInvoice(RechnungsNr, RechnungsDatum, IIf(FIRMA.Firma_ID = 26, CurrencyCodes.GBP, CurrencyCodes.EUR))
|
||||
Dim RechnungsDatum = If(ROW("RechnungsDatum") IsNot DBNull.Value, ROW("RechnungsDatum"), "Vorschau")
|
||||
Dim zahlungszieldatum As Date = CDate(RechnungsDatum).AddDays(ZZTage)
|
||||
Dim desc As InvoiceDescriptor = InvoiceDescriptor.CreateInvoice(RechnungsNr, RechnungsDatum, IIf(FIRMA.Firma_ID = 26, CurrencyCodes.GBP, CurrencyCodes.EUR))
|
||||
|
||||
Select Case BelegartenKz
|
||||
Case "AR"
|
||||
desc.Name = "SPEDITIONSRECHNUNG"
|
||||
desc.Type = InvoiceType.ForwardersInvoice
|
||||
Case "AG"
|
||||
desc.Name = "GUTSCHRIFT"
|
||||
desc.Type = InvoiceType.CreditNote
|
||||
End Select
|
||||
Select Case BelegartenKz
|
||||
Case "AR"
|
||||
desc.Name = "SPEDITIONSRECHNUNG"
|
||||
desc.Type = InvoiceType.ForwardersInvoice
|
||||
Case "AG"
|
||||
desc.Name = "GUTSCHRIFT"
|
||||
desc.Type = InvoiceType.CreditNote
|
||||
End Select
|
||||
|
||||
|
||||
Dim Rechnugnsname2 As String = ""
|
||||
If ROW("RechnungsName 2") IsNot DBNull.Value AndAlso ROW("RechnungsName 2") <> "" Then
|
||||
Rechnugnsname2 = ROW("RechnungsName 2")
|
||||
End If
|
||||
|
||||
Dim RechnungsName_AdressZusatz As String = ""
|
||||
If ROW("RechnungsName_AdressZusatz") IsNot DBNull.Value AndAlso ROW("RechnungsName_AdressZusatz") <> "" Then
|
||||
RechnungsName_AdressZusatz = ROW("RechnungsName_AdressZusatz")
|
||||
End If
|
||||
|
||||
Dim RechnungsStraße As String = ""
|
||||
If ROW("RechnungsStraße") IsNot DBNull.Value AndAlso ROW("RechnungsStraße") <> "" Then
|
||||
RechnungsStraße = ROW("RechnungsStraße")
|
||||
End If
|
||||
|
||||
Dim RechnungsOrt As String = ""
|
||||
If ROW("RechnungsOrt") IsNot DBNull.Value AndAlso ROW("RechnungsOrt") <> "" Then
|
||||
RechnungsOrt = ROW("RechnungsOrt")
|
||||
End If
|
||||
|
||||
Dim RechnungsLandKz As String = ""
|
||||
If ROW("RechnungsLandKz") IsNot DBNull.Value AndAlso ROW("RechnungsLandKz") <> "" Then
|
||||
RechnungsLandKz = ROW("RechnungsLandKz") 'cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "", ROW("RechnungSprache")).ToString.ToUpper
|
||||
End If
|
||||
|
||||
|
||||
Dim RE_UID As String = If(ROW("RechnungsUstIdKz") IsNot DBNull.Value, ROW("RechnungsUstIdKz"), "") & If(ROW("RechnungsUstIdNr") IsNot DBNull.Value, ROW("RechnungsUstIdNr"), "")
|
||||
|
||||
|
||||
'If RECHNUNG.Besonderheiten IsNot Nothing Then
|
||||
' desc.AddNote(RECHNUNG.Besonderheiten.ToString, SubjectCodes.AAI)
|
||||
'End If
|
||||
|
||||
If rpt.txtVermerk.Text IsNot Nothing AndAlso rpt.txtVermerk.Text <> "" Then desc.AddNote(rpt.txtVermerk.Text.ToString, SubjectCodes.AAI)
|
||||
|
||||
desc.AddNote("Es bestehen Rabatt- und Bonusvereinbarungen.", SubjectCodes.AAK)
|
||||
|
||||
desc.SetBuyer(ROW("RechnungsName 1") & " " & Rechnugnsname2, RechnungsOrt, RechnungsOrt, RechnungsStraße, GetCountryCodeFromLandKZ(RechnungsLandKz, vatBuyer), IIf(Not IsDBNull(ROW("RechnungsKundenNr")), ROW("RechnungsKundenNr"), ""))
|
||||
desc.SetSeller(FIRMA.Firma_Bez, FIRMA.Firma_Ort, FIRMA.Firma_Ort, FIRMA.Firma_Straße, GetCountryCodeFromLandKZ(FIRMA.Firma_LandKz, vatSeller))
|
||||
|
||||
If FIRMA.Firma_Steuernummer IsNot Nothing Then desc.AddSellerTaxRegistration(FIRMA.Firma_Steuernummer, TaxRegistrationSchemeID.FC)
|
||||
desc.AddSellerTaxRegistration(FIRMA.Firma_UID.ToString.Replace("UID: ", ""), TaxRegistrationSchemeID.VA)
|
||||
|
||||
' Optionally, to support Peppol-----------------------------
|
||||
|
||||
|
||||
If RE_UID <> "" Then
|
||||
desc.AddBuyerTaxRegistration(RE_UID, TaxRegistrationSchemeID.VA)
|
||||
If vatBuyer Then
|
||||
desc.SetBuyerElectronicAddress(RE_UID, vatBuyer)
|
||||
desc.SetSellerElectronicAddress(FIRMA.Firma_UID.ToString.Replace("UID: ", ""), vatSeller)
|
||||
Dim Rechnugnsname2 As String = ""
|
||||
If ROW("RechnungsName 2") IsNot DBNull.Value AndAlso ROW("RechnungsName 2") <> "" Then
|
||||
Rechnugnsname2 = ROW("RechnungsName 2")
|
||||
End If
|
||||
|
||||
End If
|
||||
Dim RechnungsName_AdressZusatz As String = ""
|
||||
If ROW("RechnungsName_AdressZusatz") IsNot DBNull.Value AndAlso ROW("RechnungsName_AdressZusatz") <> "" Then
|
||||
RechnungsName_AdressZusatz = ROW("RechnungsName_AdressZusatz")
|
||||
End If
|
||||
|
||||
Dim RechnungsStraße As String = ""
|
||||
If ROW("RechnungsStraße") IsNot DBNull.Value AndAlso ROW("RechnungsStraße") <> "" Then
|
||||
RechnungsStraße = ROW("RechnungsStraße")
|
||||
End If
|
||||
|
||||
Dim RechnungsOrt As String = ""
|
||||
If ROW("RechnungsOrt") IsNot DBNull.Value AndAlso ROW("RechnungsOrt") <> "" Then
|
||||
RechnungsOrt = ROW("RechnungsOrt")
|
||||
End If
|
||||
|
||||
Dim RechnungsLandKz As String = ""
|
||||
If ROW("RechnungsLandKz") IsNot DBNull.Value AndAlso ROW("RechnungsLandKz") <> "" Then
|
||||
RechnungsLandKz = ROW("RechnungsLandKz") 'cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "", ROW("RechnungSprache")).ToString.ToUpper
|
||||
End If
|
||||
|
||||
|
||||
Dim steuerProzent As Double = SQL.DLookup(" isnull([Steuersatz %],0)", "[Steuertabelle] ", "[Steuerschlüssel]='" & ROW("Steuerschlüssel") & "'", "FMZOLL", 0)
|
||||
Dim steuerProzenFaktor As Double = 0
|
||||
If steuerProzent > 0 AndAlso steuerProzent < 1 Then
|
||||
steuerProzenFaktor = steuerProzent * 100
|
||||
End If
|
||||
|
||||
Dim einzelpreis As Double = 0
|
||||
Dim sumNetto As Double = 0
|
||||
Dim RE_UID As String = If(ROW("RechnungsUstIdKz") IsNot DBNull.Value, ROW("RechnungsUstIdKz"), "") & If(ROW("RechnungsUstIdNr") IsNot DBNull.Value, ROW("RechnungsUstIdNr"), "")
|
||||
|
||||
|
||||
For Each pos As DataRow In SR_DT.Rows
|
||||
'If RECHNUNG.Besonderheiten IsNot Nothing Then
|
||||
' desc.AddNote(RECHNUNG.Besonderheiten.ToString, SubjectCodes.AAI)
|
||||
'End If
|
||||
|
||||
Dim SteuerpflichtigerBetrag As Double = 0
|
||||
Dim SteuerfreierBetrag As Double = 0
|
||||
Dim anzahl As Double = 0
|
||||
Dim bez As String = ""
|
||||
If rpt.txtVermerk.Text IsNot Nothing AndAlso rpt.txtVermerk.Text <> "" Then desc.AddNote(rpt.txtVermerk.Text.ToString, SubjectCodes.AAI)
|
||||
|
||||
Dim einzepreis = 0
|
||||
desc.AddNote("Es bestehen Rabatt- und Bonusvereinbarungen.", SubjectCodes.AAK)
|
||||
|
||||
einzelpreis = IIf(pos.Item("SteuerpflichtigerBetrag") > 0, pos.Item("SteuerpflichtigerBetrag") / checkNull(pos.Item("Anzahl")), pos.Item("SteuerfreierBetrag") / checkNull(pos.Item("Anzahl")))
|
||||
desc.SetBuyer(ROW("RechnungsName 1") & " " & Rechnugnsname2, RechnungsOrt, RechnungsOrt, RechnungsStraße, GetCountryCodeFromLandKZ(RechnungsLandKz, vatBuyer), IIf(Not IsDBNull(ROW("RechnungsKundenNr")), ROW("RechnungsKundenNr"), ""))
|
||||
desc.SetSeller(FIRMA.Firma_Bez, FIRMA.Firma_Ort, FIRMA.Firma_Ort, FIRMA.Firma_Straße, GetCountryCodeFromLandKZ(FIRMA.Firma_LandKz, vatSeller))
|
||||
|
||||
Dim tradeLineItemNew As TradeLineItem = desc.AddTradeLineItem(
|
||||
If FIRMA.Firma_Steuernummer IsNot Nothing Then desc.AddSellerTaxRegistration(FIRMA.Firma_Steuernummer, TaxRegistrationSchemeID.FC)
|
||||
desc.AddSellerTaxRegistration(FIRMA.Firma_UID.ToString.Replace("UID: ", ""), TaxRegistrationSchemeID.VA)
|
||||
|
||||
' Optionally, to support Peppol-----------------------------
|
||||
|
||||
|
||||
If RE_UID <> "" Then
|
||||
desc.AddBuyerTaxRegistration(RE_UID, TaxRegistrationSchemeID.VA)
|
||||
If vatBuyer Then
|
||||
desc.SetBuyerElectronicAddress(RE_UID, vatBuyer)
|
||||
desc.SetSellerElectronicAddress(FIRMA.Firma_UID.ToString.Replace("UID: ", ""), vatSeller)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Dim steuerProzent As Double = SQL.DLookup(" isnull([Steuersatz %],0)", "[Steuertabelle] ", "[Steuerschlüssel]='" & ROW("Steuerschlüssel") & "'", "FMZOLL", 0)
|
||||
Dim steuerProzenFaktor As Double = 0
|
||||
If steuerProzent > 0 AndAlso steuerProzent < 1 Then
|
||||
steuerProzenFaktor = steuerProzent * 100
|
||||
End If
|
||||
|
||||
Dim einzelpreis As Double = 0
|
||||
Dim sumNetto As Double = 0
|
||||
|
||||
|
||||
For Each pos As DataRow In SR_DT.Rows
|
||||
|
||||
Dim SteuerpflichtigerBetrag As Double = 0
|
||||
Dim SteuerfreierBetrag As Double = 0
|
||||
Dim anzahl As Double = 0
|
||||
Dim bez As String = ""
|
||||
|
||||
Dim einzepreis = 0
|
||||
|
||||
einzelpreis = IIf(pos.Item("SteuerpflichtigerBetrag") > 0, pos.Item("SteuerpflichtigerBetrag") / checkNull(pos.Item("Anzahl")), pos.Item("SteuerfreierBetrag") / checkNull(pos.Item("Anzahl")))
|
||||
|
||||
Dim tradeLineItemNew As TradeLineItem = desc.AddTradeLineItem(
|
||||
name:=checkNull(pos.Item("LeistungsBez")),
|
||||
billedQuantity:=Convert.ToDecimal(checkNull(pos.Item("Anzahl"))),
|
||||
unitCode:=QuantityCodes.C62, ' immer in Stück
|
||||
@@ -1999,68 +2001,68 @@ Public Class cFakturierung
|
||||
taxPercent:=IIf(pos.Item("SteuerpflichtigerBetrag") > 0, Convert.ToDecimal(steuerProzent * 100), 0),
|
||||
taxType:=IIf(pos.Item("SteuerpflichtigerBetrag") > 0, TaxTypes.VAT, TaxTypes.VAT)
|
||||
)
|
||||
Dim netUnitPrice = Convert.ToDecimal(einzelpreis)
|
||||
Dim netPricePos = netUnitPrice * Convert.ToDecimal(checkNull(pos.Item("Anzahl")))
|
||||
sumNetto += netPricePos
|
||||
Dim netUnitPrice = Convert.ToDecimal(einzelpreis)
|
||||
Dim netPricePos = netUnitPrice * Convert.ToDecimal(checkNull(pos.Item("Anzahl")))
|
||||
sumNetto += netPricePos
|
||||
|
||||
|
||||
|
||||
'For Each search As GrapeCity.ActiveReports.SectionReportModel.ARControl In rpt.Detail.Controls
|
||||
' If search.Name = "lblAnzahl" Then
|
||||
' anzahl = IIf(DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text] <> "", DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text], 0)
|
||||
' End If
|
||||
'For Each search As GrapeCity.ActiveReports.SectionReportModel.ARControl In rpt.Detail.Controls
|
||||
' If search.Name = "lblAnzahl" Then
|
||||
' anzahl = IIf(DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text] <> "", DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text], 0)
|
||||
' End If
|
||||
|
||||
' If search.Name = "lblSteuerpflichtig" Then
|
||||
' SteuerpflichtigerBetrag = IIf(DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text] <> "", DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text], 0)
|
||||
' End If
|
||||
' If search.Name = "lblSteuerpflichtig" Then
|
||||
' SteuerpflichtigerBetrag = IIf(DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text] <> "", DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text], 0)
|
||||
' End If
|
||||
|
||||
' If search.Name = "lblSteuerfrei" Then
|
||||
' SteuerfreierBetrag = IIf(DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text] <> "", DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text], 0)
|
||||
' End If
|
||||
' If search.Name = "lblSteuerfrei" Then
|
||||
' SteuerfreierBetrag = IIf(DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text] <> "", DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.Label).[Text], 0)
|
||||
' End If
|
||||
|
||||
' If search.Name = "txtLeistung" Then
|
||||
' bez = IIf(DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.TextBox).[Text] <> "", DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.TextBox).[Text], 0)
|
||||
' End If
|
||||
' If search.Name = "txtLeistung" Then
|
||||
' bez = IIf(DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.TextBox).[Text] <> "", DirectCast(search, GrapeCity.ActiveReports.SectionReportModel.TextBox).[Text], 0)
|
||||
' End If
|
||||
|
||||
'If bez <> "" Then
|
||||
'If bez <> "" Then
|
||||
|
||||
' einzelpreis = IIf(SteuerpflichtigerBetrag > 0, SteuerpflichtigerBetrag / checkNull(anzahl), SteuerfreierBetrag / checkNull(anzahl))
|
||||
' einzelpreis = IIf(SteuerpflichtigerBetrag > 0, SteuerpflichtigerBetrag / checkNull(anzahl), SteuerfreierBetrag / checkNull(anzahl))
|
||||
|
||||
' Dim tradeLineItemNew As TradeLineItem = desc.AddTradeLineItem(
|
||||
' name:=checkNull(bez),
|
||||
' billedQuantity:=Convert.ToDecimal(checkNull(anzahl)),
|
||||
' unitCode:=QuantityCodes.C62, ' immer in Stück
|
||||
' netUnitPrice:=Convert.ToDecimal(einzelpreis),
|
||||
' grossUnitPrice:=Convert.ToDecimal(einzelpreis),
|
||||
' categoryCode:=IIf(SteuerpflichtigerBetrag > 0, TaxCategoryCodes.S, TaxCategoryCodes.Z),
|
||||
' taxPercent:=IIf(SteuerpflichtigerBetrag > 0, Convert.ToDecimal(steuerProzent * 100), 0),
|
||||
' taxType:=IIf(SteuerpflichtigerBetrag > 0, TaxTypes.VAT, TaxTypes.VAT)
|
||||
' )
|
||||
' Dim netUnitPrice = Convert.ToDecimal(einzelpreis)
|
||||
' Dim netPricePos = netUnitPrice * Convert.ToDecimal(checkNull(anzahl))
|
||||
' sumNetto += netPricePos
|
||||
' Dim tradeLineItemNew As TradeLineItem = desc.AddTradeLineItem(
|
||||
' name:=checkNull(bez),
|
||||
' billedQuantity:=Convert.ToDecimal(checkNull(anzahl)),
|
||||
' unitCode:=QuantityCodes.C62, ' immer in Stück
|
||||
' netUnitPrice:=Convert.ToDecimal(einzelpreis),
|
||||
' grossUnitPrice:=Convert.ToDecimal(einzelpreis),
|
||||
' categoryCode:=IIf(SteuerpflichtigerBetrag > 0, TaxCategoryCodes.S, TaxCategoryCodes.Z),
|
||||
' taxPercent:=IIf(SteuerpflichtigerBetrag > 0, Convert.ToDecimal(steuerProzent * 100), 0),
|
||||
' taxType:=IIf(SteuerpflichtigerBetrag > 0, TaxTypes.VAT, TaxTypes.VAT)
|
||||
' )
|
||||
' Dim netUnitPrice = Convert.ToDecimal(einzelpreis)
|
||||
' Dim netPricePos = netUnitPrice * Convert.ToDecimal(checkNull(anzahl))
|
||||
' sumNetto += netPricePos
|
||||
|
||||
' bez = ""
|
||||
' bez = ""
|
||||
|
||||
' End If
|
||||
' End If
|
||||
|
||||
'Next
|
||||
'Next
|
||||
|
||||
Next
|
||||
Next
|
||||
|
||||
|
||||
'Summe aller Rechnungspositions-Nettobeträge der Rechnung
|
||||
Dim lineTotalAmont = sumNetto
|
||||
'Der Gesamtbetrag der Umsatzsteuer für die Rechnung,
|
||||
Dim taxTotalAmount = IIf(Gesamt_RG_BetragSteuerpflichtig <> 0, Math.Round(Convert.ToDecimal(Gesamt_RG_BetragSteuerpflichtig) / (100 + steuerProzenFaktor) * steuerProzenFaktor, 2), 0)
|
||||
' Die Gesamtsumme der Rechnung ohne Umsatzsteuer ' RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + 0 - 0
|
||||
Dim taxBasisAmount = Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei + Gesamt_RG_BetragSteuerpflichtig + 0 - 0 - taxTotalAmount)
|
||||
'Der Gesamtbetrag der Rechnung mit Umsatzsteuer
|
||||
Dim grandTotalAmount = Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei + Gesamt_RG_BetragSteuerpflichtig)
|
||||
'Der ausstehende Betrag, um dessen Zahlung gebeten wird. Dieser Betrag ist der Rechnungsgesamtbetrag einschließlich Umsatzsteuer abzüglich des im Voraus gezahlten Betrages.Im Falle einer vollständig beglichenen Rechnung ist dieser Betrag gleich null. Der Betrag kann negativ sein; In diesem Fall schuldet der Verkäufer dem Käufer den Betrag
|
||||
Dim duePayableAmount = Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei + Gesamt_RG_BetragSteuerpflichtig)
|
||||
'Summe aller Rechnungspositions-Nettobeträge der Rechnung
|
||||
Dim lineTotalAmont = sumNetto
|
||||
'Der Gesamtbetrag der Umsatzsteuer für die Rechnung,
|
||||
Dim taxTotalAmount = IIf(Gesamt_RG_BetragSteuerpflichtig <> 0, Math.Round(Convert.ToDecimal(Gesamt_RG_BetragSteuerpflichtig) / (100 + steuerProzenFaktor) * steuerProzenFaktor, 2), 0)
|
||||
' Die Gesamtsumme der Rechnung ohne Umsatzsteuer ' RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag + 0 - 0
|
||||
Dim taxBasisAmount = Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei + Gesamt_RG_BetragSteuerpflichtig + 0 - 0 - taxTotalAmount)
|
||||
'Der Gesamtbetrag der Rechnung mit Umsatzsteuer
|
||||
Dim grandTotalAmount = Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei + Gesamt_RG_BetragSteuerpflichtig)
|
||||
'Der ausstehende Betrag, um dessen Zahlung gebeten wird. Dieser Betrag ist der Rechnungsgesamtbetrag einschließlich Umsatzsteuer abzüglich des im Voraus gezahlten Betrages.Im Falle einer vollständig beglichenen Rechnung ist dieser Betrag gleich null. Der Betrag kann negativ sein; In diesem Fall schuldet der Verkäufer dem Käufer den Betrag
|
||||
Dim duePayableAmount = Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei + Gesamt_RG_BetragSteuerpflichtig)
|
||||
|
||||
desc.SetTotals(
|
||||
desc.SetTotals(
|
||||
lineTotalAmount:=Convert.ToDecimal(lineTotalAmont),
|
||||
chargeTotalAmount:=0, 'Summe aller in der Rechnung enthaltenen Zuschläge der Dokumentenebene
|
||||
allowanceTotalAmount:=0, 'Summe aller in der Rechnung enthaltenen Abschläge der Dokumenteneben
|
||||
@@ -2072,29 +2074,29 @@ Public Class cFakturierung
|
||||
roundingAmount:=0 'Der Betrag, der dem Rechnungsgesamtbetrag hinzuzufügen ist, um den zu zahlenden Betrag zu runden
|
||||
)
|
||||
|
||||
desc.AddTradePaymentTerms(rpt.Label2.Text, zahlungszieldatum)
|
||||
desc.AddTradePaymentTerms(rpt.Label2.Text, zahlungszieldatum)
|
||||
|
||||
Dim isReverseCharge = IIf(getReverseChargeSumme(FIRMA, ROW("RechnungsLandKz"), ROW("RechnungsNr"), ROW("RechnungsDatum"), "") > 0, True, False)
|
||||
Dim isReverseCharge = IIf(getReverseChargeSumme(FIRMA, ROW("RechnungsLandKz"), ROW("RechnungsNr"), ROW("RechnungsDatum"), "") > 0, True, False)
|
||||
|
||||
|
||||
If Gesamt_RG_BetragSteuerfrei > 0 Then
|
||||
desc.AddApplicableTradeTax(Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei), 0, TaxTypes.VAT, TaxCategoryCodes.Z)
|
||||
If Gesamt_RG_BetragSteuerfrei > 0 Then
|
||||
desc.AddApplicableTradeTax(Convert.ToDecimal(Gesamt_RG_BetragSteuerfrei), 0, TaxTypes.VAT, TaxCategoryCodes.Z)
|
||||
End If
|
||||
|
||||
If Gesamt_RG_BetragSteuerpflichtig > 0 Then
|
||||
desc.AddApplicableTradeTax(Convert.ToDecimal(taxBasisAmount - Gesamt_RG_BetragSteuerfrei), Convert.ToDecimal(steuerProzenFaktor), Convert.ToDecimal(taxTotalAmount), TaxTypes.VAT, IIf(isReverseCharge, TaxCategoryCodes.AE, TaxCategoryCodes.S))
|
||||
End If
|
||||
|
||||
Dim tmpPathZugpferd = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("ZUGFeRD_Invoice_" & RechnungsNr, ".xml", True, False)
|
||||
Dim stream As FileStream = New FileStream(tmpPathZugpferd, FileMode.Create, FileAccess.Write)
|
||||
desc.Save(stream, ZUGFeRDVersion.Version20, Profile.Comfort)
|
||||
|
||||
stream.Flush()
|
||||
stream.Close()
|
||||
Return tmpPathZugpferd
|
||||
|
||||
End If
|
||||
|
||||
If Gesamt_RG_BetragSteuerpflichtig > 0 Then
|
||||
desc.AddApplicableTradeTax(Convert.ToDecimal(taxBasisAmount - Gesamt_RG_BetragSteuerfrei), Convert.ToDecimal(steuerProzenFaktor), Convert.ToDecimal(taxTotalAmount), TaxTypes.VAT, IIf(isReverseCharge, TaxCategoryCodes.AE, TaxCategoryCodes.S))
|
||||
End If
|
||||
|
||||
Dim tmpPathZugpferd = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("ZUGFeRD_Invoice_" & RechnungsNr, ".xml", True, False)
|
||||
Dim stream As FileStream = New FileStream(tmpPathZugpferd, FileMode.Create, FileAccess.Write)
|
||||
desc.Save(stream, ZUGFeRDVersion.Version20, Profile.Comfort)
|
||||
|
||||
stream.Flush()
|
||||
stream.Close()
|
||||
Return tmpPathZugpferd
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user