Mahnungen, Ust-Antrag, Kundenuebersicht, EORI, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -295,6 +295,8 @@ Public Class frmMDM_USTVAntrag
 
                 For Each r As DataRow In dt.Rows
 
+                    Dim kdNr = r.Item("rmc_kdNr")
+
                     Dim USTV_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen
                     USTV_POS.UStVAn_ID = USTV_ANTRAG.[UStVAn_ID]
                     USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr
@@ -322,13 +324,15 @@ Public Class frmMDM_USTVAntrag
                             USTV_POS.UStVPo_USteuerbetrag = r.Item("rmc_betragMWST")
                         End If
 
-                        USTV_POS.INSERT()
+                        If USTV_POS.INSERT() Then
+                            cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdNr)
+                        End If
 
                     End If
 
                 Next
 
-                cRMC.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr)
+
 
             End If
             Return True