fix ustva

SDL/Fakturierung/frmFaktEmail.vb

@@ -830,6 +830,9 @@ Public Class frmFaktEmail
                                 If count_offene_importierteErstattungen > 0 Then
                                     SQL.doSQL("UPDATE [tblUStVErstattung] SET GutschriftsNr = " & RECHNUNG.RechnungsNr & ",GutschriftsDatum = '" & CDate(RECHNUNG.RechnungsDatum).ToShortDateString & "', UStVEr_RK_ID = " & RECHNUNG.RK_ID & "  WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & "  and [UStVEr_Importfilename] is not null and [GutschriftsNr] is null and [GutschriftsDatum] is null ", "FMZOLL")
 
+                                Else
+                                    insertNewErstattungsPos(USTV_ANTRAG)
+
                                 End If
 
 
@@ -851,15 +854,7 @@ Public Class frmFaktEmail
                                 End If
 
                             Else
-
+                                insertNewErstattungsPos(USTV_ANTRAG)
-                                Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.RechnungsNr, CDate(RECHNUNG.RechnungsDatum))
-                                If Not ANTR_ERSTATTUNG.hasEntry Then
-                                    ANTR_ERSTATTUNG.UStVEr_ID = ANTR_ERSTATTUNG.getMaxPosNr()
-                                    ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
-                                    ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
-                                    ANTR_ERSTATTUNG.UStVEr_RK_ID = RECHNUNG.RK_ID
-                                    ANTR_ERSTATTUNG.SAVE()
-                                End If
 
                             End If
 
@@ -909,6 +904,21 @@ Public Class frmFaktEmail
 
     End Sub
 
+    Private Sub insertNewErstattungsPos(USTV_ANTRAG As cUSTVAntrag)
+
+
+        Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.RechnungsNr, CDate(RECHNUNG.RechnungsDatum))
+        If Not ANTR_ERSTATTUNG.hasEntry Then
+            ANTR_ERSTATTUNG.UStVEr_ID = ANTR_ERSTATTUNG.getMaxPosNr()
+            ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
+            ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
+            ANTR_ERSTATTUNG.UStVEr_RK_ID = RECHNUNG.RK_ID
+            ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = 0
+            ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = 0
+            ANTR_ERSTATTUNG.SAVE()
+        End If
+    End Sub
+
 
     Function addRgData_ZF_Passau(RechnungsLandKz) As String
         addRgData_ZF_Passau = vbNewLine & vbNewLine

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -761,6 +761,7 @@ Public Class frmMDM_USTVAntrag
                 loadUSTVFrom_PLOSE(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked, IIf(item.Name = "ploseneu", True, False))
                 init()
             ElseIf item.Name = "rmc" Then
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
                 loadUSTVFrom_RMC(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
                 init()
             ElseIf item.Name = "mse" Then
@@ -1196,7 +1197,7 @@ Public Class frmMDM_USTVAntrag
                     End If
 
 
-
+                    VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
                     If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then
 
                         USTV_POS.UStVPo_Schnittstelle = True