Import_DY, Prüfung Belege, VAT_ATEZ, etc.
This commit is contained in:
@@ -633,7 +633,15 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
cnS_KIUPLOAD.Hide()
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
If UStV_POS.UStVPo_daId < 1 Then Exit Sub
|
||||
'If UStV_POS.UStVPo_daId Is Nothing AndAlso UStV_POS.UStVPo_USteuerbetragEUR = 0.01 AndAlso UStV_POS.UStVPo_SchnittstellenNr = 7 Then
|
||||
' UStV_POS.UStVPo_daId = sql.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & UStV_POS.UStVPo_ReDat & "' and rmc_reNr='" & UStV_POS.UStVPo_ReNr & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1)
|
||||
'End If
|
||||
|
||||
|
||||
If UStV_POS.UStVPo_daId < 1 Then
|
||||
MsgBox("kein Dokument hinterlegt!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If item IsNot Nothing Then
|
||||
|
||||
@@ -653,9 +661,10 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
MsgBox("Authentifizierung fehlgeschlagen" & vbNewLine & authResp)
|
||||
Exit Sub
|
||||
Else
|
||||
'If API.SendRequestWithAuthHeader("application/json", failreDesc, "/health", "GET") = "200" Then
|
||||
|
||||
'If API.SendRequestWithAuthHeader("application/json", failreDesc, "/health", "GET") = "200" Then
|
||||
'document_type = vat_invoice or receipt
|
||||
|
||||
If API.setJsonVAT(item.Name, UStV_POS.UStVPo_daId) Then
|
||||
|
||||
resp = API.SendRequestWithAuthHeader("application/json", failreDesc, "/process", "POST", dt, item.Name)
|
||||
@@ -668,15 +677,21 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
f.usrcntlVAT_ATEZ1.btnUebernehmen.Enabled = UStV_POS.UStVPo_daId_loeschbar 'NUR ÜBERNEHMEN WENN LÖSCHBAR!
|
||||
f.usrcntlVAT_ATEZ1.initDGV(dt)
|
||||
f.usrcntlVAT_ATEZ1.setColorIndgv()
|
||||
f.usrcntlVAT_ATEZ1.setAmountOnly = IIf(UStV_POS.UStVPo_SchnittstellenNr = 7, True, False)
|
||||
|
||||
|
||||
If f.ShowDialog = DialogResult.OK Then
|
||||
txtRgDatum.Text = f.usrcntlVAT_ATEZ1.va.invoice_date
|
||||
txtRgNr.Text = f.usrcntlVAT_ATEZ1.va.invoice_id
|
||||
txtStrasse.Text = f.usrcntlVAT_ATEZ1.va.seller_address_street
|
||||
txtOrt.Text = f.usrcntlVAT_ATEZ1.va.seller_address_city
|
||||
txtLand.Text = f.usrcntlVAT_ATEZ1.va.seller_address_country
|
||||
txtPLZ.Text = f.usrcntlVAT_ATEZ1.va.seller_address_postcode
|
||||
sbLeistender._value = f.usrcntlVAT_ATEZ1.va.seller_name
|
||||
|
||||
If Not f.usrcntlVAT_ATEZ1.setAmountOnly Then
|
||||
txtRgDatum.Text = f.usrcntlVAT_ATEZ1.va.invoice_date
|
||||
txtRgNr.Text = f.usrcntlVAT_ATEZ1.va.invoice_id
|
||||
txtStrasse.Text = f.usrcntlVAT_ATEZ1.va.seller_address_street
|
||||
txtOrt.Text = f.usrcntlVAT_ATEZ1.va.seller_address_city
|
||||
txtLand.Text = f.usrcntlVAT_ATEZ1.va.seller_address_country
|
||||
txtPLZ.Text = f.usrcntlVAT_ATEZ1.va.seller_address_postcode
|
||||
sbLeistender._value = f.usrcntlVAT_ATEZ1.va.seller_name
|
||||
End If
|
||||
|
||||
If IsNumeric(f.usrcntlVAT_ATEZ1.va.total_VAT_amount) AndAlso f.usrcntlVAT_ATEZ1.va.total_VAT_amount <> 0 AndAlso f.usrcntlVAT_ATEZ1.va.currency <> "" Then
|
||||
Dim antr As New cUSTVAntrag(UStV_POS.UStVAn_ID)
|
||||
|
||||
@@ -684,46 +699,54 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
If f.usrcntlVAT_ATEZ1.va.currency = antr.UStVAn_Währungscode Then
|
||||
Dim kurs As New cEZB_Waehrungskurse(antr.UStVAn_Währungscode)
|
||||
If antr.UStVAn_Währungscode = "EUR" Then
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = f.usrcntlVAT_ATEZ1.va.total_VAT_amount.Replace(",", ".")
|
||||
'If USTV_ANTRAG.UStVAn_Währungscode <> "EUR" Then
|
||||
' USTV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
' USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
'Else
|
||||
UStV_POS.UStVPo_USteuerbetrag = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
UStV_POS.UStVPo_USteuerbetrag = f.usrcntlVAT_ATEZ1.va.total_VAT_amount.Replace(",", ".")
|
||||
UStV_POS.UStVPo_Umrechnungskurs = 1
|
||||
'End If
|
||||
|
||||
UStV_POS.SAVE()
|
||||
Else
|
||||
|
||||
UStV_POS.UStVPo_USteuerbetrag = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
UStV_POS.UStVPo_USteuerbetrag = f.usrcntlVAT_ATEZ1.va.total_VAT_amount.Replace(",", ".")
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
UStV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(UStV_POS.UStVPo_USteuerbetrag) / CDbl(UStV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
UStV_POS.SAVE()
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
'2. Antragswährung <> Belegswährung (EUR zu FREMD und FREMD zu EUR)
|
||||
If antr.UStVAn_Währungscode = "EUR" Then
|
||||
Dim kurs As New cEZB_Waehrungskurse(f.usrcntlVAT_ATEZ1.va.currency)
|
||||
If f.usrcntlVAT_ATEZ1.va.currency <> "EUR" Then
|
||||
UStV_POS.UStVPo_USteuerbetrag = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
UStV_POS.UStVPo_USteuerbetrag = f.usrcntlVAT_ATEZ1.va.total_VAT_amount.Replace(",", ".")
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
UStV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(UStV_POS.UStVPo_USteuerbetrag) / CDbl(UStV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
UStV_POS.SAVE()
|
||||
ElseIf f.usrcntlVAT_ATEZ1.va.currency = "EUR" Then
|
||||
UStV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, antr.UStVAn_Währungscode, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = UStV_POS.UStVPo_USteuerbetrag
|
||||
UStV_POS.UStVPo_Umrechnungskurs = 1
|
||||
UStV_POS.SAVE()
|
||||
End If
|
||||
Else
|
||||
'2.1 Antragswährung <> Belegswährung (FREMD zu FREMD)
|
||||
If f.usrcntlVAT_ATEZ1.va.currency = "EUR" Then
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = f.usrcntlVAT_ATEZ1.va.total_VAT_amount.Replace(",", ".")
|
||||
Dim kurs As New cEZB_Waehrungskurse(antr.UStVAn_Währungscode)
|
||||
UStV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, antr.UStVAn_Währungscode, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
UStV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(UStV_POS.UStVPo_USteuerbetrag) / CDbl(UStV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
UStV_POS.SAVE()
|
||||
Else
|
||||
UStV_POS.UStVPo_USteuerbetrag = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, antr.UStVAn_Währungscode)
|
||||
Dim kurs As New cEZB_Waehrungskurse(antr.UStVAn_Währungscode)
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
UStV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(UStV_POS.UStVPo_USteuerbetrag) / CDbl(UStV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
UStV_POS.SAVE()
|
||||
|
||||
|
||||
End If
|
||||
@@ -735,7 +758,6 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user