rh

Nomina/CatPeriodos.aspx.vb

@@ -379,10 +379,12 @@ Partial Class Nomina_CatPeriodos
         Dim cveTipoPeriodo As Integer = DdlTipoPeriodoCM.SelectedValue.ToEntero()
         Dim cveSubTipoPeriodo As Integer = TxtCveSubTipoPeriodoCM.Text.ToEntero()
         Dim numero As Integer = TxtNumeroCM.Text.ToEntero()
-        Dim fechaInicio As String = TxtFechaInicioCM.Text
+        Dim fechaInicio As String = TxtFechaInicioCM.Text.ToDateTime().ToString("yyyy-MM-dd")
 
         Using onom As New ClsNominas
             If onom.CargaPeriodosEjercicio(ejercicio, cveTipoPeriodo, cveSubTipoPeriodo, numero, fechaInicio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+                CargaDatos()
+                RegistraScript("$('#divCargaMasiva').modal('hide');")
                 Alert("Se cargo satisfactoriamente.")
             End If
         End Using