MDM, IDS, USTVA

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -220,9 +220,6 @@ Public Class frmMDM_USTVAntrag
                 USTV_ANTRAG.UStVAn_3470 = Nothing
             End If
 
-
-
-
         End If
     End Sub
     Function Me_Validate() As Boolean
@@ -694,7 +691,7 @@ Public Class frmMDM_USTVAntrag
 
         getValue(USTV_ANTRAG)
         If USTV_ANTRAG.SAVE Then
-            Me.Close()
+            init()
         End If
     End Sub
 
@@ -913,9 +910,9 @@ Public Class frmMDM_USTVAntrag
                     Case 6  'PLOSE
                         sqlText = "Update [tblPLOSE_Details] 
                         set plose_Archiv=0, [plose_ArchiviertDatum]=NULL, UStVAn_ID = NULL
-                    From [tblPLOSE_Details]  INNER Join Adressen On PLOSEKundenNr=plose_POLSEKundennummer
+                        From [tblPLOSE_Details]  INNER Join Adressen On PLOSEKundenNr=plose_POLSEKundennummer
                         INNER Join [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode]
-                    WHERE cast(plose_RechnungsDatum As Date) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & " AND plose_RechnungsNr = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "' 
+                        WHERE cast(plose_RechnungsDatum As Date) = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReDat & "' And AdressenNr=" & USTV_ANTRAG.UStVAn_KuNr & " AND plose_RechnungsNr = '" & UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ReNr & "' 
                         And plose_LieferantCode IN (0,1,7)  "
 
                         If Not test Then updated = SQL.doSQL(sqlText, "FMZOLL")