diff --git a/RH/CatTurno.aspx.vb b/RH/CatTurno.aspx.vb
index 28366cfdd..f2bf474c2 100644
--- a/RH/CatTurno.aspx.vb
+++ b/RH/CatTurno.aspx.vb
@@ -44,17 +44,22 @@ Partial Class RH_CatTurno
         Using ObjRH As New ClsRH
             Dim Estatus As Boolean = False
             Dim comida As Integer = If(chkComida.Checked, 1, 0)
+
+            Dim ComidaDe As String = If(TxtComidade.Text.Trim = "", "00:00:00", TxtComidade.Text.Trim)
+            Dim ComidaA As String = If(TxtComidaA.Text.Trim = "", "00:00:00", TxtComidaA.Text.Trim)
+
+
             If ChkEstatus.Checked Then Estatus = True
             If HdnModalidad.Value = "A" Then
                 If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(),
-                        TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), TxtToleranciaSRetardo.Text.ToEntero(), TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then
+                        TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), TxtToleranciaSRetardo.Text.ToEntero(), TxtFsalida.Text.ToEntero(), comida, ComidaDe, ComidaA, ddlDiaDescanso.SelectedValue.ToEntero()) Then
                     CargaDatos()
                     CargaGlobalDTTurno()
                     Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
                 End If
             ElseIf HdnModalidad.Value = "U" Then
                 If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(),
-                        TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), TxtToleranciaSRetardo.Text.ToEntero(), TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then
+                        TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), TxtToleranciaSRetardo.Text.ToEntero(), TxtFsalida.Text.ToEntero(), comida, ComidaDe, ComidaA, ddlDiaDescanso.SelectedValue.ToEntero()) Then
                     CargaDatos()
                     CargaGlobalDTTurno()
                     Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)