RMC, Adressen, USTV, Messenger

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1,7 +1,9 @@
-Imports System.Reflection
-Imports DocumentFormat.OpenXml.Drawing.Charts
+
+Imports System.Reflection
+'Imports DocumentFormat.OpenXml.Drawing.Charts
 Imports Microsoft.Office.Interop
-Imports VERAG_PROG_ALLGEMEIN.TESTJSON
+
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmMDM_USTVAntrag
 
@@ -281,6 +283,62 @@ Public Class frmMDM_USTVAntrag
         End Try
     End Function
 
+
+    Shared Function loadUSTVFrom_RMC(UStVAn_ID, Antrag_LandKz, ArchivierteEintracheNochmalsEinarbetien) As Boolean
+        Try
+            Dim bytSchnittstellenNr = 7 'glaube noch frei?
+            Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
+            Dim dt As New DataTable
+            Dim GET_Antraege = cRMC.GET_Antraege_RMC(dt, USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, ArchivierteEintracheNochmalsEinarbetien)
+
+            If GET_Antraege Then
+
+                For Each r As DataRow In dt.Rows
+
+                    Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen
+                    USTV_POS.UStVAn_ID = USTV_ANTRAG.[UStVAn_ID]
+                    USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr
+                    USTV_POS.UStVPo_ReDat = r.Item("rmc_reDatum")
+                    USTV_POS.UStVPo_ReNr = r.Item("rmc_reNr")
+                    USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr
+
+                    If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
+
+                        USTV_POS.UStVPo_Schnittstelle = True
+                        USTV_POS.UStVPo_Leistungsbezeichnung = "Diesel"
+                        USTV_POS.UStVPo_Leistender = "RMC Service GmbH"
+                        USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                        USTV_POS.UStVPo_Zeitstempel = Now()
+
+                        ' Berechnungen
+                        Dim umrechKurs = 1
+                        If (CDbl(r.Item("rmc_betragBrutto")) > 0 AndAlso CDbl(r.Item("rmc_euroBrutto")) > 0) Then
+                            umrechKurs = CDbl(r.Item("rmc_betragBrutto") / r.Item("rmc_euroBrutto"))
+                        End If
+
+                        If CDbl(r.Item("rmc_betragMWST")) > 0 Then
+                            USTV_POS.UStVPo_USteuerbetragEUR = CDbl(r.Item("rmc_betragMWST") * umrechKurs)
+                            USTV_POS.UStVPo_Umrechnungskurs = umrechKurs
+                            USTV_POS.UStVPo_USteuerbetrag = r.Item("rmc_betragMWST")
+                        End If
+
+                        USTV_POS.INSERT()
+
+                    End If
+
+                Next
+
+                cRMC.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr)
+
+            End If
+            Return True
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return False
+        End Try
+    End Function
+
+
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
         getValue(USTV_ANTRAG)