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

RMC Einarbeitung von EasyTrip, Sammelrechnung, Creditsafe, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-09-19 12:01:07 +02:00
parent 4625286e43
commit fd1f235d99
8 changed files with 80 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -1039,20 +1039,24 @@ Public Class frmMDM_USTVAntrag
USTV_POS.UStVPo_Schnittstelle = True
USTV_POS.UStVPo_Leistungsbezeichnung = "Diesel"
Dim leistender As New cUStVLeistender("RMC Service GmbH" & " " & Antrag_LandKz, Antrag_LandKz)
Dim leist As String = "RMC Service GmbH"
If USTV_POS.UStVPo_ReNr.ToString.ToLower.StartsWith("fit") Then leist = "Con.Tir Scar"
Dim leistender As New cUStVLeistender(leist & " " & Antrag_LandKz, Antrag_LandKz)
If leistender.UStV_LeistenderId < 1 Then
leistender = New cUStVLeistender("RMC Service GmbH")
leistender = New cUStVLeistender(leist)
End If
USTV_POS.UStVPo_Leistender = leistender.UStV_Leistender.ToString
USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
USTV_POS.UStVPo_Zeitstempel = Now()
' Berechnungen
'von RMC bekommen wir Fremdwährung und EUR, d.b. wir können und den Umrechnungskurs selbst berechnen!
'EasyTrip können wir nicht auslesen, deshalb geben wir immer 0,1 als Betrag mit!
Dim umrechKurs As Double = 1
If (CDbl(r.Item("rmc_betragBrutto")) <> 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) <> 0) Then
@@ -1072,7 +1076,7 @@ Public Class frmMDM_USTVAntrag
End If
If USTV_POS.INSERT() Then
cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdNr, USTV_POS.UStVAn_ID)
cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr.ToString, kdNr, USTV_POS.UStVAn_ID)
End If
End If
@@ -2135,7 +2139,7 @@ Public Class frmMDM_USTVAntrag
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 7 'RMC - neue Schnittstelle - OK
sqlText = "Update [tblRMCImport] Set rmc_archiv=0, [rmc_archiviertDatum] = NULL, UStVAn_ID = NULL FROM [tblRMCImport] inner join adressen on adressen.WölflKundenNr = tblRMCImport.rmc_kdNr Where cast(rmc_reDatum as date) = '" & RechnungsDatum.ToShortDateString & "' And rmc_reNr = " & RechnungsNr & " AND adressen.AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr
sqlText = "Update [tblRMCImport] Set rmc_archiv=0, [rmc_archiviertDatum] = NULL, UStVAn_ID = NULL FROM [tblRMCImport] inner join adressen on adressen.WölflKundenNr = tblRMCImport.rmc_kdNr Where cast(rmc_reDatum as date) = '" & RechnungsDatum.ToShortDateString & "' And rmc_reNr = '" & RechnungsNr & "' AND adressen.AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr
If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")
Case 8, 12 'IDS neue Schnittstelle - OK
sqlText = "update tblIDSTransactionsNew set UStVAn_ID = NULL