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

ustva, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-09 08:53:41 +01:00
parent 6d7d37cf44
commit 2d0b21aacb
2 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -3992,6 +3992,7 @@ Public Class frmMDM_USTVAntrag
Directory.CreateDirectory(directoryPath) Directory.CreateDirectory(directoryPath)
End If End If
Dim app As New VATRefundApplication() With { Dim app As New VATRefundApplication() With {
.CodF1 = New FormInfo With {.FormType = "D318", .FormId = 318, .UniversalCode = "D318_A1.0.0"}, .CodF1 = New FormInfo With {.FormType = "D318", .FormId = 318, .UniversalCode = "D318_A1.0.0"},
.RefundPeriod = New Period With {.StartDate = CDate(USTV_ANTRAG.UStVAn_ReDatVon).Month, .EndDate = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month}, .RefundPeriod = New Period With {.StartDate = CDate(USTV_ANTRAG.UStVAn_ReDatVon).Month, .EndDate = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month},
@@ -4006,13 +4007,13 @@ Public Class frmMDM_USTVAntrag
.an_r = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Year, .an_r = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Year,
.d_rec = 0, .d_rec = 0,
.luna_r = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month, .luna_r = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month,
.cif = ADR.UstIdNr, .cif = IIf(Not IsDBNull(ADR.UstIdNr) AndAlso ADR.UstIdNr IsNot Nothing, ADR.UstIdNr, ""),
.totalPlata_A = 0 .totalPlata_A = 0
}, },
.ProrateAdjustment = New ProrateAdjustment With {.Year = "", .FinalProrate = ""}, .ProrateAdjustment = New ProrateAdjustment With {.Year = "", .FinalProrate = ""},
.Applicant = New Party With { .Applicant = New Party With {
.NameFree = ADR.Name_1, .NameFree = ADR.Name_1,
.VATIdentificationNumber = ADR.UstIdNr, .VATIdentificationNumber = IIf(Not IsDBNull(ADR.UstIdNr) AndAlso ADR.UstIdNr IsNot Nothing, ADR.UstIdNr, ""),
.AddressFree = ADR.Straße.ToString & vbCrLf & ADR.LandKz.ToString & " - " & ADR.PLZ.ToString & " -" & ADR.Ort.ToString, '"RO - 550270 - MUN. SIBIU", .AddressFree = ADR.Straße.ToString & vbCrLf & ADR.LandKz.ToString & " - " & ADR.PLZ.ToString & " -" & ADR.Ort.ToString, '"RO - 550270 - MUN. SIBIU",
.PostCode = "", .Phone = "", .EmailAddress = "juricevic@verag.ag" .PostCode = "", .Phone = "", .EmailAddress = "juricevic@verag.ag"
}, },
@@ -4052,13 +4053,11 @@ Public Class frmMDM_USTVAntrag
UIDNrLeistender = UIDNrLeistender.ToString.Replace(Antrag_LandKz, "") UIDNrLeistender = UIDNrLeistender.ToString.Replace(Antrag_LandKz, "")
End If End If
app.PurchaseInformation.Invoices.Add(New Invoice With { app.PurchaseInformation.Invoices.Add(New Invoice With {
.SequenceNumber = counter, .SequenceNumber = counter,
.SimplifiedInvoice = 0, .SimplifiedInvoice = 0,
.ReferenceNumber = row.Cells("UStVPo_ReNr").Value, ' "25/000616354/987", .ReferenceNumber = row.Cells("UStVPo_ReNr").Value, ' "25/000616354/987",
.IssuingDate = row.Cells("UStVPo_ReDat").Value,'"2025-11-30", .IssuingDate = CDate(row.Cells("UStVPo_ReDat").Value).ToString("yyyy-MM-dd"),'"2025-11-30",
.GoodsDescription = New GoodsDescription With {.GoodsItem = New GoodsItem With {.Code = 1, .SubCode = "1.1.2", .FreeText = ""}}, .GoodsDescription = New GoodsDescription With {.GoodsItem = New GoodsItem With {.Code = 1, .SubCode = "1.1.2", .FreeText = ""}},
.TransactionDescription = New TransactionDescription With {.TaxableAmount = "00.00", .VATAmount = row.Cells("UStVPo_USteuerbetrag").Value.ToString.Replace(",", ".")}, .TransactionDescription = New TransactionDescription With {.TaxableAmount = "00.00", .VATAmount = row.Cells("UStVPo_USteuerbetrag").Value.ToString.Replace(",", ".")},
.Deduction = New Deduction With {.ProRataRate = "", .DeductibleVATAmount = row.Cells("UStVPo_USteuerbetrag").Value.ToString.Replace(",", ".")}, .Deduction = New Deduction With {.ProRataRate = "", .DeductibleVATAmount = row.Cells("UStVPo_USteuerbetrag").Value.ToString.Replace(",", ".")},
@@ -4161,14 +4160,14 @@ Public Class frmMDM_USTVAntrag
End If End If
If fileZipped Then If fileZipped Then
app.DocumentCopy.Add(New DocumentCopy With { ' app.DocumentCopy.Add(New DocumentCopy With {
.Bifa_atasament = 1, '.Bifa_atasament = 1,
.Document = New DocumentFile With { '.Document = New DocumentFile With {
.FileName = fileNamePDFAttZIP, ' .FileName = fileNamePDFAttZIP,
.FileType = "application/zip", ' .FileType = "application/zip",
.FileDescription = "INVOICES/POA" ' .FileDescription = "INVOICES/POA"
} '}
}) '})
End If End If

1
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -548,6 +548,7 @@ Public Class ustCntlUSTV_AntragPosition
If txtRgDatum.Text <> "" Then If txtRgDatum.Text <> "" Then
txtRgDatum.Text = txtRgDatum.Text.Replace("-", ".") txtRgDatum.Text = txtRgDatum.Text.Replace("-", ".")
txtRgDatum.Text = txtRgDatum.Text.Replace(",", ".")
'If IsDate(txtRgDatum.Text) Then txtChanged = True 'If IsDate(txtRgDatum.Text) Then txtChanged = True
End If End If