Import_DY, Prüfung Belege, VAT_ATEZ, etc.
This commit is contained in:
@@ -1026,7 +1026,7 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_POS.UStVPo_ReDat = r.Item("rmc_reDatum")
|
||||
USTV_POS.UStVPo_ReNr = r.Item("rmc_reNr").ToString
|
||||
USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
|
||||
'USTV_POS.UStVPo_daId = r.Item("rmc_daId")
|
||||
USTV_POS.UStVPo_daId = r.Item("rmc_daId")
|
||||
If IsNumeric(USTV_POS.UStVPo_daId) AndAlso USTV_POS.UStVPo_daId > 0 Then
|
||||
USTV_POS.UStVPo_daId_loeschbar = False
|
||||
Else
|
||||
@@ -1041,7 +1041,10 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Dim leist As String = "RMC Service GmbH"
|
||||
|
||||
If USTV_POS.UStVPo_ReNr.ToString.ToLower.StartsWith("fit") Then leist = "Con.Tir Scar"
|
||||
If USTV_POS.UStVPo_ReNr.ToString.ToLower.StartsWith("fit") Then
|
||||
leist = "Con.Tir Scar"
|
||||
USTV_POS.UStVPo_Leistungsbezeichnung = "Maut"
|
||||
End If
|
||||
|
||||
Dim leistender As New cUStVLeistender(leist & " " & Antrag_LandKz, Antrag_LandKz)
|
||||
If leistender.UStV_LeistenderId < 1 Then
|
||||
@@ -1427,10 +1430,6 @@ Public Class frmMDM_USTVAntrag
|
||||
USTV_POS.UStVPo_Leistungsbezeichnung = "Maut/Diesel"
|
||||
USTV_POS.UStVPo_Schnittstelle = True
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
|
||||
|
||||
|
||||
@@ -1473,11 +1472,6 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim leistenderName As String = r.Cells("seller_name").Value
|
||||
Dim leistenderUID As String = r.Cells("seller_VAT_id").Value
|
||||
Dim leistender As New cUStVLeistender(leistenderUID, True)
|
||||
@@ -3674,13 +3668,15 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Select Case spracheRechnung
|
||||
Case "DE" : Attachmens_Bez = "Lief.-Rechn" : Attachmens_Bez_POS = "POS-Liste"
|
||||
Case "EN", "TR" : Attachmens_Bez = "Supplier Invoice(s)" : Attachmens_Bez_POS = "Item List"
|
||||
Case "RO" : Attachmens_Bez = "Factura furnizorului" : Attachmens_Bez_POS = "Lista articolelor"
|
||||
Case "EN", "TR" : Attachmens_Bez = "Supplier-Invoice(s)" : Attachmens_Bez_POS = "Item-List"
|
||||
Case "RO" : Attachmens_Bez = "Factura-furnizorului" : Attachmens_Bez_POS = "Lista-articolelor"
|
||||
End Select
|
||||
|
||||
Dim path As String = PDFInvoicesPath(posID)
|
||||
Dim fileInfo As New FileInfo(path)
|
||||
If path <> "" Then Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez & fileInfo.Extension)
|
||||
If path <> "" Then
|
||||
Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez & fileInfo.Extension)
|
||||
End If
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie die Positionsliste an die Mail hinzufügen?", vbYesNoCancel) Then
|
||||
|
||||
@@ -3691,7 +3687,9 @@ Public Class frmMDM_USTVAntrag
|
||||
Dim pathPosList As String = generatePOSListe(spedBuch, posID, False)
|
||||
If pathPosList <> "" Then
|
||||
Dim fileInfoPos As New FileInfo(pathPosList)
|
||||
If pathPosList <> "" Then Mail.Attachments.Add(pathPosList, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez_POS & fileInfoPos.Extension)
|
||||
If pathPosList <> "" Then
|
||||
Mail.Attachments.Add(pathPosList, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez_POS & fileInfoPos.Extension)
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -3710,6 +3708,10 @@ Public Class frmMDM_USTVAntrag
|
||||
Mail.CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an")
|
||||
Mail.BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an")
|
||||
|
||||
If Mail.To = "" Then
|
||||
Mail.To &= IIf(AD.E_Mail IsNot Nothing, AD.E_Mail, "")
|
||||
End If
|
||||
|
||||
Mail.Display()
|
||||
Me.Cursor = Cursors.Default
|
||||
Catch ex As Exception
|
||||
|
||||
@@ -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