diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb
index 96243065a..d67d76f89 100644
--- a/AF/CatClasificacionesCaracteristicas.aspx.vb
+++ b/AF/CatClasificacionesCaracteristicas.aspx.vb
@@ -53,8 +53,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
             'Carga Globals para DT
             CargaTiposActivosFijos()
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
-            CargaCaracteristicas()
+            ''CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicas()
         End If
     End Sub
 
@@ -77,30 +77,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
         ObjAF.Dispose()
     End Sub
-    Private Sub CargaCaracteristicasClasificaciones()
-        Dim ObjAF As New ClsAF
-
-        If ObjAF.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
-            GlobalDTAFCaracteristicasClasificaciones = ObjAF.DtResultados
-            ViewState("DTCaracteristicaClasificacion") = ObjAF.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-        Else
-            Alert("Ocurrio un error al obtener las caracteristicas clasificaciones de Activos Fijos", TipoMensaje.MsgError)
-        End If
-
-        ObjAF.Dispose()
-    End Sub
-    Private Sub CargaCaracteristicas()
-        Dim ObjAF As New ClsAF
-
-        If ObjAF.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
-            GlobalDTAFCaracteristicas = ObjAF.DtResultados
-        Else
-            Alert("Ocurrio un error al obtener las caracteristicas de Activos Fijos", TipoMensaje.MsgError)
-        End If
-
-        ObjAF.Dispose()
-    End Sub
-
 #Region "CLASIFICACIONES"
     Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click
         Dim ObjCaracteristicaClasificacion As New ClsAF
@@ -111,7 +87,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
             UpTitulosCL.Update()
 
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
 
             If ViewState("OrdenCL").ToString() <> String.Empty Then
                 CargaGrid(ViewState("OrdenCL").ToString(), 0)
@@ -126,16 +101,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
 #Region "CARGA DATOS"
     Public Sub CargaDatosCL()
-        Dim ObjCaracteristicaClasificacion As New ClsAF
-        If ObjCaracteristicaClasificacion.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
-            ViewState("DTCaracteristicaClasificacion") = ObjCaracteristicaClasificacion.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-            GlobalDTAFCaracteristicasClasificaciones = ObjCaracteristicaClasificacion.DtResultados
-        Else
-            Me.GvDatosCL.DataSource = Nothing
-        End If
-
-        ObjCaracteristicaClasificacion.Dispose()
-
         If ViewState("OrdenCL").ToString() <> String.Empty Then
             CargaGrid(ViewState("OrdenCL").ToString(), 0)
         Else
@@ -184,7 +149,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
             GvDatosCL.EditIndex = -1
 
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicasClasificaciones()
 
             Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
@@ -219,7 +184,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
             GvDatosCL.EditIndex = -1
 
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicasClasificaciones()
 
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
@@ -267,8 +232,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
 
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
-            CargaCaracteristicas()
+            ''CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicas()
 
             If ViewState("OrdenCA").ToString() <> String.Empty Then
                 CargaGrid(ViewState("OrdenCA").ToString(), 1)
@@ -281,16 +246,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
 #Region " CARGA DATOS"
     Public Sub CargaDatosCA()
-        Dim ObjCaracteristicas As New ClsAF
-        If ObjCaracteristicas.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados
-        Else
-            Me.GvDatosCA.DataSource = Nothing
-        End If
-
-        ObjCaracteristicas.Dispose()
-
         If ViewState("OrdenCA").ToString() <> String.Empty Then
             CargaGrid(ViewState("OrdenCA").ToString(), 1)
         Else
@@ -301,7 +256,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
     End Sub
     Private Sub CargaClasificacionesCA()
         DdlClasificacionesCA.Items.Clear()
-        DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero))
+        DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero))
         DdlClasificacionesCA.DataBind()
         UpdatePanel1.Update()
     End Sub
@@ -374,8 +329,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
         Dim ObjCaracteristicas As New ClsAF
         If ObjCaracteristicas.RemoveCaracteristica(GvDatosCA.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
             GvDatosCA.EditIndex = -1
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados
+            GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
             Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -412,7 +366,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
         If ObjCaracteristicas.UpdateCaracteristica(CveCaracteristicaClasificacion, Caracteristica, CveTipoActivoFijo, CveSubTipoActivoFijo, TipoCampo, Longitud, CBool(Requerida), Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristica) Then
             GvDatosCA.EditIndex = -1
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
 
             CargaSubTiposActivosFijos()
 
@@ -521,7 +475,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
         DdlCaracteristicaOpciones.Items.Clear()
         'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero)
         Dim Filtro = If(DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", DdlTiposActivosFijosOpciones.SelectedValue.ToEntero))
-        DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro)
+        DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro)
         DdlCaracteristicaOpciones.DataBind()
         DdlCaracteristicaOpciones.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -581,7 +535,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
                 e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").Items.Insert(0, New ListItem("Todos", "-1"))
                 e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo")
 
-                e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas
+                e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
                 e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataBind()
                 FiltraCaracteristicas1(e.Row.FCDropDownList("DdlTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlCaracteristicasOpciones"))
                 e.Row.FCDropDownList("DdlCaracteristicasOpciones").SelectedValue = e.Row.DBCampo("CveCaracteristica")
@@ -691,7 +645,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
         ddlC.Items.Clear()
         'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero)
         Dim Filtro = If(ddlST.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", ddlST.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", ddlT.SelectedValue.ToEntero))
-        ddlC.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro)
+        ddlC.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro)
         ddlC.DataBind()
         ddlC.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -742,21 +696,17 @@ Partial Class AF_CatClasificacionesCaracteristicas
     Private Sub CargaGrid(Orden As String, gvi As Integer)
         If gvi = 0 Then
             If Orden <> String.Empty Then
-                Dim DV As New DataView(CType(ViewState("DTCaracteristicaClasificacion"), DataTable), "", Orden, DataViewRowState.CurrentRows)
-                GvDatosCL.DataSource = DV.ToTable()
-                DV.Dispose()
+                GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
             Else
-                GvDatosCL.DataSource = CType(ViewState("DTCaracteristicaClasificacion"), DataTable)
+                GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
             End If
             GvDatosCL.DataBind()
             UpDatosCL.Update()
         ElseIf gvi = 1 Then
             If Orden <> String.Empty Then
-                Dim DV As New DataView(CType(ViewState("DTCatacteristica"), DataTable), "", Orden, DataViewRowState.CurrentRows)
-                GvDatosCA.DataSource = DV.ToTable()
-                DV.Dispose()
+                GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
             Else
-                GvDatosCA.DataSource = CType(ViewState("DTCatacteristica"), DataTable)
+                GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
             End If
             GvDatosCA.DataBind()
             UpDatosCA.Update()
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 9531d6855..7be58e7ef 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -3843,6 +3843,8 @@ Public Class ClsContabilidad
 
         Return Retorno
     End Function
+
+    'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
     Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
         Dim Retorno = False
 
@@ -5533,6 +5535,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+    'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
     Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
         Dim Retorno = False
 
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 8bfdbc021..d187b5980 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -1,5 +1,6 @@
 Imports System.Data
 Imports System.Data.SqlClient
+Imports ADSNetLibrary.SIGAPI.Models
 Imports Extensiones
 Imports HigLabo
 
@@ -261,6 +262,29 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
+
+    'Reporte Conceptos Acumulados
+    Public Function GetRepConceptosAcumulados(CveConcepto As Integer, Ejercicio As Integer, CveTipoPeriodo As Integer, CvePeriodo As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Nom_ConceptosAcumuladosGetRep")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
+            .Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo
+            .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
+            .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte Conceptos Acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
     Public Function ManifiestoForVtaGet(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String, CveEmbarqueManifiesto As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_ManifiestoForVtaGet", CommandType.StoredProcedure)
@@ -1333,7 +1357,8 @@ Public Class ClsNominas
 
     Public Function AddConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer,
                                 EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer,
-                                AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer) As Integer
+                                AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer,
+                                ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, IdCtaContableB As Integer, CveCuentaB As Integer) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_Nom_ConceptosAdd")
@@ -1360,6 +1385,14 @@ Public Class ClsNominas
             .Add("Especie", SqlDbType.Bit).Value = Especie
             .Add("Imprimir", SqlDbType.Bit).Value = Imprimir
             .Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto
+
+            .Add("CtaImporteNegativoProv", SqlDbType.Int).Value = ctaImporteNegativoProv
+            .Add("Contabiliza", SqlDbType.Int).Value = contabiliza
+            .Add("CargoOAbono", SqlDbType.Int).Value = CargoOAbono
+            .Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB
+            .Add("IdCtaContableB", SqlDbType.Int).Value = IdCtaContableB
+            .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB
+
         End With
 
         Try
@@ -1384,7 +1417,8 @@ Public Class ClsNominas
 
     Public Function UpdateConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveConcepto As Integer,
                                    EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer,
-                                   AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer) As Boolean
+                                   AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer,
+                                   ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, IdCtaContableB As Integer, CveCuentaB As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Nom_ConceptosUpdate")
@@ -1410,6 +1444,13 @@ Public Class ClsNominas
             .Add("Imprimir", SqlDbType.Bit).Value = Imprimir
             .Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto
             .Add("CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+            .Add("CtaImporteNegativoProv", SqlDbType.Int).Value = ctaImporteNegativoProv
+            .Add("Contabiliza", SqlDbType.Int).Value = contabiliza
+            .Add("CargoOAbono", SqlDbType.Int).Value = CargoOAbono
+            .Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB
+            .Add("IdCtaContableB", SqlDbType.Int).Value = IdCtaContableB
+            .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB
         End With
 
         Try
diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index c516288de..9e98ac57a 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -3520,9 +3520,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 #End Region
 
 #Region "ClsRHTurnos"
-    Public Function GetTurnos() As Boolean
+    Public Function GetTurnos(Optional CveEmpresa As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_RH_TurnoGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -3533,7 +3536,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
     Public Function AddTurno(Turno As String, HorarioDe As String, HorarioA As String, CveUsuario As Integer, CveEmpresa As Integer, CveChecadorHorario As Integer,
-                             ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer) As Boolean
+                             ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer,
+                             Comida As Integer, ComidaDe As String, ComidaA As String) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -3543,6 +3547,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@Turno", SqlDbType.VarChar).Value = Turno
             .Add("@HorarioDe", SqlDbType.Time).Value = HorarioDe
             .Add("@HorarioA", SqlDbType.Time).Value = HorarioA
+
+            .Add("@Comida", SqlDbType.Int).Value = Comida
+            .Add("@ComidaDe", SqlDbType.Time).Value = ComidaDe
+            .Add("@ComidaA", SqlDbType.Time).Value = ComidaA
+
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveChecadorHorario", SqlDbType.Int).Value = CveChecadorHorario
@@ -3568,7 +3577,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
     Public Function UpdateTurno(Turno As String, HorarioDe As String, HorarioA As String, Estatus As Boolean, CveTurno As Integer, CveUsuario As Integer, CveChecadorHorario As Integer,
-                                ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer) As Boolean
+                                ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer,
+                             Comida As Integer, ComidaDe As String, ComidaA As String) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -3578,6 +3588,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@Turno", SqlDbType.VarChar).Value = Turno
             .Add("@HorarioDe", SqlDbType.Time).Value = HorarioDe
             .Add("@HorarioA", SqlDbType.Time).Value = HorarioA
+
+            .Add("@Comida", SqlDbType.Int).Value = Comida
+            .Add("@ComidaDe", SqlDbType.Time).Value = ComidaDe
+            .Add("@ComidaA", SqlDbType.Time).Value = ComidaA
+
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveTurno", SqlDbType.Int).Value = CveTurno
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb
index 9c9dc72d7..a04dc3bc3 100644
--- a/Bancos/ConciliacionesBancarias.aspx.vb
+++ b/Bancos/ConciliacionesBancarias.aspx.vb
@@ -638,14 +638,14 @@ Partial Class Bancos_ConciliacionesBancariasaspx
                 End If
             End If
             If CveCuenta > 0 Then
-                If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuenta, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then
+                If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuenta, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, -1, -1, UsuarioActual.CveEmpresa, "1") Then
                     If ObjConta.DtResultados.Rows.Count > 1 Then
                         SaldoFinalContabilidad = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
                     End If
                 End If
             End If
             If CveCuentaComplementaria > 0 Then
-                If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then
+                If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, -1, -1, UsuarioActual.CveEmpresa, "1") Then
                     If ObjConta.DtResultados.Rows.Count > 1 Then
                         SaldoFinalContabilidadComplementaria = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
                     End If
diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index d93124cd0..0257fb67f 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -313,7 +313,7 @@ Partial Class Bancos_FluctuacionCambiaria
                 Dim Total As Decimal = 0
                 Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero
                 If CveCuentaExtranjera > 0 Then
-                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, "-1", UsuarioActual.CveEmpresa, "1") Then
+                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then
                         If Conta.DtResultados.Rows.Count > 1 Then
                             Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
                         End If
@@ -324,7 +324,7 @@ Partial Class Bancos_FluctuacionCambiaria
                 Dim SaldoActualContabilidad As Decimal = 0
                 Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero
                 If CveCuentaComplementaria > 0 Then
-                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, "-1", UsuarioActual.CveEmpresa, "1") Then
+                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then
                         If Conta.DtResultados.Rows.Count > 1 Then
                             SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
                         End If
diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb
index ab44c7dd8..ff4a419e3 100644
--- a/Bancos/Transferencias.aspx.vb
+++ b/Bancos/Transferencias.aspx.vb
@@ -321,8 +321,6 @@ Partial Class Bancos_Transferencias
                     Dim IDCtaContableComplementariaDestino As Integer = 0
                     Dim IdCtaContableDestino As Integer = 0
                     Dim CuentasContablesInvalidasSIG As New StringBuilder
-                    Dim CveCuentaOrigen As Integer = 0
-                    Dim CveCuentaDestino As Integer = 0
                     Dim RowCuentaOrigen As DataRow = Nothing
 
 
@@ -347,18 +345,8 @@ Partial Class Bancos_Transferencias
                         CuentasContablesInvalidas.Append("<br> Cuenta Contable Destino")
                     End If
 
-                    'Conta SIG
-                    If CveCuentaOrigen < 1 Then
-                        CuentasContablesInvalidasSIG.Append("<br> Cuenta Contable Origen")
-                    End If
-
-                    If CveCuentaDestino < 1 Then
-                        CuentasContablesInvalidasSIG.Append("<br> Cuenta Contable Destino")
-                    End If
-
                     If Opcion = 1 Then ' CUANDO ES DOMICILIZACION
                         IdCtaContableOrigen = IdCtaContableDestino
-                        CveCuentaOrigen = CveCuentaDestino
                     End If
 
                     Dim TipoMovtoDetalle As Boolean = True
@@ -369,7 +357,6 @@ Partial Class Bancos_Transferencias
                                                    TxtImporte.Text.ToDouble, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableOrigen, -1, CveIE,
                                                    ImporteMX:=If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), TxtImporte.Text.ToDouble, ImporteMXOrigen),
                                                    ImporteME:=If(CveMonedaOrigen > 1, TxtImporte.Text.ToDouble * TC, 0),
-                                                   CveCuenta:=CveCuentaOrigen,
                                                    CveIEDevolucion:=CveIEDevolucion) Then
 
                         If CveMonedaOrigen > 1 AndAlso Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
@@ -401,7 +388,7 @@ Partial Class Bancos_Transferencias
                             If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle,
                                                                ImporteDestino, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableDestino, -1, CveIEDestino,
                                                                ImporteMX:=If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), ImporteDestino, ImporteMXDestino),
-                                                               ImporteME:=If(CveMonedaDestino > 1, ImporteDestino, 0), CveCuenta:=CveCuentaDestino) Then
+                                                               ImporteME:=If(CveMonedaDestino > 1, ImporteDestino, 0)) Then
                                 MsgError = "Ocurrio un error al ingresar la prepoliza"
                             End If
 
diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb
index 8c2a8b97a..3f990190e 100644
--- a/Contabilidad2/MovimientosconProveedores.aspx.vb
+++ b/Contabilidad2/MovimientosconProveedores.aspx.vb
@@ -52,11 +52,11 @@ Partial Class MovimientosconProveedores
             ViewState("DTCuentas") = value
         End Set
     End Property
-    Private Property CveSubProyecto As String
+    Private Property CveSubProyecto As Integer
         Get
-            CveSubProyecto = ViewState("CveSubProyecto").ToString
+            CveSubProyecto = ViewState("CveSubProyecto").ToString().ToEntero()
         End Get
-        Set(value As String)
+        Set(value As Integer)
             ViewState("CveSubProyecto") = value
         End Set
     End Property
@@ -108,7 +108,7 @@ Partial Class MovimientosconProveedores
                     End If
 
                     If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
-                        CveSubProyecto = Request("CveSubProyecto").ToString
+                        CveSubProyecto = Request("CveSubProyecto").ToString.ToEntero
                     End If
 
 
@@ -184,12 +184,12 @@ Partial Class MovimientosconProveedores
         End If
         'Dim CveSubProyecto As String
         If Request("CveSubProyecto") IsNot Nothing Then
-            CveSubProyecto = Request("CveSubProyecto").ToString
+            CveSubProyecto = Request("CveSubProyecto").ToString.ToEntero
         Else
-            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
+            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
         End If
 
-        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, 1) Then
+        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte, 1) Then
 
             If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
                 DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")
diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb
index 2c528d53d..616d9d695 100644
--- a/Contabilidad2/RepAnexoCatalogo.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb
@@ -201,7 +201,7 @@ Partial Class AC2_RepAnexoCatalogo
 
         DdlCuentas.DataBind()
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
 
     End Sub
 
diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb
index 9fd2fe7a7..e14be48d4 100644
--- a/Contabilidad2/RepEstadoActividades.aspx.vb
+++ b/Contabilidad2/RepEstadoActividades.aspx.vb
@@ -117,7 +117,7 @@ Partial Class AC_RepEstadoActividades
         End If
         DdlPeriodo.SelectedValue = Now.Month.ToString
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
 
     End Sub
 
diff --git a/Contabilidad2/RepEstadoResultados.aspx.vb b/Contabilidad2/RepEstadoResultados.aspx.vb
index 87b1df7e3..03ad46471 100644
--- a/Contabilidad2/RepEstadoResultados.aspx.vb
+++ b/Contabilidad2/RepEstadoResultados.aspx.vb
@@ -177,10 +177,10 @@ Partial Class Contabilidad2_RepEstadoResultados
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
 
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, -1, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatos = Nothing
diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
index 395451537..eaa7625c1 100644
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
@@ -228,7 +228,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         ObjTipoCuenta.Dispose()
         DdlCuentas.DataBind()
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
 
     End Sub
 
diff --git a/Finanzas/RepEstadoResultados.aspx.vb b/Finanzas/RepEstadoResultados.aspx.vb
index 04957a446..0081aa14c 100644
--- a/Finanzas/RepEstadoResultados.aspx.vb
+++ b/Finanzas/RepEstadoResultados.aspx.vb
@@ -173,10 +173,10 @@ Partial Class Contabilidad2_RepEstadoResultados
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
 
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, -1, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatos = Nothing
diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs
index 44a8d193e..93a38ff12 100644
--- a/Inventarios/EntregasPorRealizar.aspx.cs
+++ b/Inventarios/EntregasPorRealizar.aspx.cs
@@ -99,7 +99,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
                 int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero();
                 int Orden = row.DataKey("Orden").ToEntero();
 
-                if (!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal:CvePersonal, CveAsignacionEntrega: CveAsignacionEntrega, Orden: Orden))
+                if (!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal:CvePersonal, CveAsignacionEntrega: CveAsignacionEntrega ))
                 {
                     TieneError = true;
                     break;
diff --git a/Inventarios/RecepcionDevolucion.aspx.vb b/Inventarios/RecepcionDevolucion.aspx.vb
index b1b536de3..bb687ac11 100644
--- a/Inventarios/RecepcionDevolucion.aspx.vb
+++ b/Inventarios/RecepcionDevolucion.aspx.vb
@@ -769,7 +769,7 @@ Partial Class Inventarios_RecepcionDevolucion
         ObjRemisionNC.IEPS = ImporteIEPS
         ObjRemisionNC.Total = Total
         ObjRemisionNC.TotalOtrosConceptos = 0
-        ObjRemisionNC.ObservacionesMovimiento = TxtObservaciones.Text
+        ObjRemisionNC.ObservacionesAlmacen = TxtObservaciones.Text
 
         ObjRemisionNC.DtInventario = DtInventario
 
diff --git a/Inventarios/RepApartados2.aspx.vb b/Inventarios/RepApartados2.aspx.vb
index 521f152f6..2b3270f10 100644
--- a/Inventarios/RepApartados2.aspx.vb
+++ b/Inventarios/RepApartados2.aspx.vb
@@ -38,11 +38,7 @@ Partial Class Inventarios_RepApartados2
         DdlCliente.DataBind()
         DdlCliente.Items.Insert(0, New ListItem(" Todos ", "-1"))
 
-
-        Dim DTVendedores As New DataTable
-        DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True)
-        DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False))
-        DdlVendedor.DataSource = DTVendedores
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, -1)
         DdlVendedor.DataBind()
         DdlVendedor.Items.Insert(0, New ListItem(" Todos ", "-1"))
 
diff --git a/Inventarios/RepEntregasForaneas.aspx.vb b/Inventarios/RepEntregasForaneas.aspx.vb
index 5e7d46689..6709e9a4d 100644
--- a/Inventarios/RepEntregasForaneas.aspx.vb
+++ b/Inventarios/RepEntregasForaneas.aspx.vb
@@ -733,7 +733,6 @@ Partial Class Inventarios_RepEntregasForaneas
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
         params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
-        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
         Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
diff --git a/Nomina/ConceptoNomina.aspx b/Nomina/ConceptoNomina.aspx
index 5e4827a94..d2db06b9e 100644
--- a/Nomina/ConceptoNomina.aspx
+++ b/Nomina/ConceptoNomina.aspx
@@ -171,20 +171,20 @@
 
                                     <div class="row">
                                         <div class="col-md-6">
-                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
+                                            <div class="">
                                                 <asp:Label runat="server" Text="Concepto padre" AssociatedControlID="DdlConceptoPadre"></asp:Label>
                                                 <asp:DropDownList ID="DdlConceptoPadre" runat="server" AppendDataBoundItems="True" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control  select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
                                             </div>
                                         </div>
                                         <div class="col-md-6">
-                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
-                                                <asp:Label runat="server" Text="Concepto contable" AssociatedControlID="DdlConceptoContable"></asp:Label>
-                                                <asp:DropDownList ID="DdlConceptoContable" runat="server" AppendDataBoundItems="True" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Class="form-control select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                            <div class="">
+                                                <asp:Label runat="server" Text="Concepto SAT" AssociatedControlID="DdlConceptoSAT"></asp:Label>
+                                                <asp:DropDownList ID="DdlConceptoSAT" runat="server" AppendDataBoundItems="True" DataTextField="NombreClave" DataValueField="CveSATConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
                                             </div>
                                         </div>
                                     </div>
 
-                                    <div class="row">
+                                    <div class="row " style="display: none">
                                         <div class="col-md-6">
                                             <div class="form-group form-md-line-input form-md-floating-label input-iconright">
                                                 <asp:Label runat="server" Text="Clasificación" AssociatedControlID="DdlClasificacion"></asp:Label>
@@ -199,23 +199,83 @@
                                         </div>
                                     </div>
 
-                                    <div class="row">
-                                        <div class="col-md-6">
-                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
-                                                <asp:Label runat="server" Text="Cuenta contable" AssociatedControlID="DdlCtaContable"></asp:Label>
-                                                <asp:DropDownList ID="DdlCtaContable" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
-                                            </div>
-                                        </div>
-                                        <div class="col-md-6">
-                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
-                                                <asp:Label runat="server" Text="Concepto SAT" AssociatedControlID="DdlConceptoSAT"></asp:Label>
-                                                <asp:DropDownList ID="DdlConceptoSAT" runat="server" AppendDataBoundItems="True" DataTextField="NombreClave" DataValueField="CveSATConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
-                                            </div>
-                                        </div>
-                                    </div>
 
                                 </div>
                             </div>
+
+                            <asp:UpdatePanel ID="Up" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <div class="portlet smmallpadding light bordered" id="Div1" runat="server">
+                                        <div class="portlet-title">
+                                            <div class="caption uppercase " style="position: relative;">
+                                                <i class="fa fa-info-circle font-yellow-gold"></i>
+                                                <span class="caption-subject font-yellow-gold bold uppercase">Provisión del concepto </span>
+                                            </div>
+                                            <div class="actions">
+                                                <label class=" " style="margin-top: 6px; margin-bottom: 6px;">Contabiliza:</label>
+                                                <div class="btn-group">
+                                                    <asp:CheckBox ID="ChkContabiliza" AutoPostBack="true" CssClass="chksino" Text=" " runat="server" />
+                                                </div>
+                                            </div>
+                                        </div>
+                                        <asp:Panel class="portlet-body rowpadding" runat="server" ID="DivCtasProvision">
+
+                                            <div class="row">
+                                                <div class="col-md-6">
+                                                    <div class="">
+                                                        <asp:Label runat="server" Text="Concepto contable" AssociatedControlID="DdlConceptoContable"></asp:Label>
+                                                        <asp:DropDownList ID="DdlConceptoContable" runat="server" AppendDataBoundItems="True" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Class="form-control select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                                    </div>
+                                                </div>
+                                                <div class="col-md-6">
+                                                    <div class="">
+                                                        <asp:Label runat="server" Text="Cuenta contable" AssociatedControlID="DdlCtaContable"></asp:Label>
+                                                        <asp:DropDownList ID="DdlCtaContable" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                                    </div>
+                                                </div>
+                                            </div>
+                                            <div class="row">
+                                                <div  class="col-md-6">
+                                                    <div class="">
+                                                        <asp:Label runat="server" Text="Cargo ó Abono" AssociatedControlID="ddlCargooAbono"></asp:Label>
+                                                        <asp:DropDownList ID="ddlCargooAbono" runat="server" AppendDataBoundItems="True" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
+                                                            <asp:ListItem Value="0" Text="Cargo" />
+                                                            <asp:ListItem Value="1" Text="Abono" />
+                                                        </asp:DropDownList>
+                                                    </div>
+                                                </div>
+                                                <div class="col-md-6">
+                                                    <label class=" " style="margin-top: 6px; margin-bottom: 6px;">Cuenta contable distinta en negativos:</label>
+                                                    <asp:CheckBox ID="chkCtaImporteNegativoProv"  AutoPostBack="true" CssClass="chksino" Text=" " runat="server" />
+                                                </div>
+                                            </div>
+                                            <asp:Panel class="row"  runat="server" ID="Divctasnegativas">
+                                                <div class="col-md-6">
+                                                    <div class="">
+                                                        <asp:Label runat="server" Text="Concepto contable" AssociatedControlID="DdlConceptoContableB"></asp:Label>
+                                                        <asp:DropDownList ID="DdlConceptoContableB" runat="server" AppendDataBoundItems="True" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Class="form-control select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                                    </div>
+                                                </div>
+                                                <div class="col-md-6">
+                                                    <div class="">
+                                                        <asp:Label runat="server" Text="Cuenta contable B" AssociatedControlID="DdlCtaContableB"></asp:Label>
+                                                        <asp:DropDownList ID="DdlCtaContableB" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                                    </div>
+                                                </div>
+                                                <%--<div class="col-md-6">
+                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
+                                                <asp:Label runat="server" Text="Cargo ó Abono" AssociatedControlID="ddlCargooAbonoB"></asp:Label>
+                                                <asp:DropDownList ID="ddlCargooAbonoB" runat="server" AppendDataBoundItems="True" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
+                                                    <asp:ListItem Value="0" Text="Cargo" />
+                                                    <asp:ListItem Value="1" Text="Abono" />
+                                                </asp:DropDownList>
+                                            </div>
+                                        </div>--%>
+                                            </asp:Panel>
+                                        </asp:Panel>
+                                    </div>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
                         </div>
 
                         <div class="col-md-5">
@@ -348,7 +408,7 @@
                                     <div class="row">
                                         <label class="col-md-3 truncate ">Movimiento Permanente:</label>
                                         <div class="col-md-3">
-                                            <asp:CheckBox ID="ChkMovtoPermanente" AutoPostBack="true" OnCheckedChanged ="ChkMovtoPermanente_CheckedChanged" CssClass="chksino" Text=" " runat="server" />
+                                            <asp:CheckBox ID="ChkMovtoPermanente" AutoPostBack="true" OnCheckedChanged="ChkMovtoPermanente_CheckedChanged" CssClass="chksino" Text=" " runat="server" />
                                         </div>
                                     </div>
                                 </div>
diff --git a/Nomina/ConceptoNomina.aspx.cs b/Nomina/ConceptoNomina.aspx.cs
index 7347cb4f8..a77ff6052 100644
--- a/Nomina/ConceptoNomina.aspx.cs
+++ b/Nomina/ConceptoNomina.aspx.cs
@@ -1,5 +1,6 @@
 using Extensiones;
 using System;
+using System.Activities.Expressions;
 using System.Collections.Generic;
 using System.Data;
 using System.Linq;
@@ -75,6 +76,8 @@ public partial class Nomina_CatConcepto : ClsPaginas
             tree_Tables();
             InicializaDatos();
         }
+        DivCtasProvision.Visible = ChkContabiliza.Checked;
+        Divctasnegativas.Visible = chkCtaImporteNegativoProv.Checked;
     }
 
     #region Arboles conceptos 
@@ -226,6 +229,11 @@ public partial class Nomina_CatConcepto : ClsPaginas
         DdlConceptoContable.DataBind();
         DdlConceptoContable.Items.Insert(0, new ListItem("Seleccione", "-1"));
         DdlConceptoContable.SelectedValueExist("-1");
+
+        DdlConceptoContableB.DataSource = get_GlobalDTContaConceptosContables(-1);
+        DdlConceptoContableB.DataBind();
+        DdlConceptoContableB.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        DdlConceptoContableB.SelectedValueExist("-1");
     }
     protected void CargaClasificacion()
     {
@@ -260,6 +268,7 @@ public partial class Nomina_CatConcepto : ClsPaginas
         if (UsuarioActual.Empresa.TipoContabilidad == 2)
         {
             DdlCtaContable.DataValueField = "Id";
+            DdlCtaContableB.DataValueField = "Id";
             using (ClsContPAQi ObjConta = new ClsContPAQi(UsuarioActual.Empresa))
             {
 
@@ -267,11 +276,15 @@ public partial class Nomina_CatConcepto : ClsPaginas
                 {
                     DdlCtaContable.DataSource = ObjConta.DtResultados;
                     DdlCtaContable.DataBind();
+                    DdlCtaContableB.DataSource = ObjConta.DtResultados;
+                    DdlCtaContableB.DataBind();
                 }
             }
 
             DdlCtaContable.Items.Insert(0, new ListItem("Seleccione", "-1"));
             DdlCtaContable.SelectedValueExist("-1");
+            DdlCtaContableB.Items.Insert(0, new ListItem("Seleccione", "-1"));
+            DdlCtaContableB.SelectedValueExist("-1");
         }
         else
         {
@@ -331,6 +344,15 @@ public partial class Nomina_CatConcepto : ClsPaginas
         int Especie = ChkEspecie.Checked ? 1 : 0;
         int Imprimir = ChkImprimir.Checked ? 1 : 0;
         int CveSATConcepto = DdlConceptoSAT.SelectedValue.ToEntero();
+
+        
+        int ctaImporteNegativoProv = (chkCtaImporteNegativoProv.Checked ? 1 : 0);
+        int contabiliza = (ChkContabiliza.Checked ? 1 : 0);
+        int CargoOAbono = ddlCargooAbono.SelectedValue.ToEntero();
+        int cveConceptoContableB = DdlConceptoContableB.SelectedValue.ToEntero();
+        int IdCtaContableB = (DdlCtaContableB.DataValueField == "Id" ? DdlCtaContableB.SelectedValue.ToEntero() : 0);
+        int CveCuentaB = (DdlCtaContableB.DataValueField == "Id" ? 0 : DdlCtaContableB.SelectedValue.ToEntero());
+
         ClsNominas ObjNomina = new ClsNominas();
         ObjNomina.IniciaTransacSQL();
 
@@ -338,7 +360,9 @@ public partial class Nomina_CatConcepto : ClsPaginas
 
         if (EsEditar)
         {
-            TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto, UsuarioActual.CveEmpresa);
+            TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion, 
+                IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto, 
+                UsuarioActual.CveEmpresa, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB , IdCtaContableB , CveCuentaB);
 
             if (!TieneError)
             {
@@ -368,7 +392,9 @@ public partial class Nomina_CatConcepto : ClsPaginas
         }
         else
         {
-            CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto);
+            CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 
+                retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, 
+                CveSATConcepto, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB, IdCtaContableB, CveCuentaB);
 
 
 
@@ -460,15 +486,21 @@ public partial class Nomina_CatConcepto : ClsPaginas
                 if (drow["TipoCalculo"].Equals("True")) ChkTipoCalculo.Checked = true;
                 DdlConceptoPadre.SelectedValueExist(drow["CveConceptoPadre"]);
                 DdlConceptoContable.SelectedValueExist(drow["CveConceptoContable"]);
+                DdlConceptoContableB.SelectedValueExist(drow["CveConceptoContableB"]);
 
                 ChkEstado.Checked = drow["Estado"].Equals("Activo");
                 ChkSistema.Checked = drow["Sistema"].Equals("Sí");
                 ChkAutomaticoLiquidacion.Checked = drow["AplicaFiniquito"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
+                ChkContabiliza.Checked = drow["Contabiliza"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
+                chkCtaImporteNegativoProv.Checked = drow["CtaImporteNegativoProv"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
                 ChkAutomaticoGlobal.Checked = drow["AutomaticoGlobal"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
                 ChkEspecie.Checked = drow["Especie"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
                 ChkImprimir.Checked = drow["Imprimir"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
 
                 DdlClasificacion.SelectedValueExist(drow["CveClasificacion"]);
+                //DdlTipoProvision.SelectedValueExist(drow["TipoProvision"]);
+                ddlCargooAbono.SelectedValueExist(drow["CargoOAbono"]);
+                //ddlCargooAbonoB.SelectedValueExist(drow["CargoOAbonoB"]);
                 DdlTipoGasto.SelectedValueExist(drow["CveTipoGasto"]);
                 //DdlCtaContable.SelectedValueExist(drow["CveCuenta"]);
                 if (DdlCtaContable.DataValueField == "Id")
@@ -479,6 +511,18 @@ public partial class Nomina_CatConcepto : ClsPaginas
                 {
                     DdlCtaContable.SelectedValueExist(drow["CveCuenta"]);
                 }
+                if (DdlCtaContableB.DataValueField == "Id")
+                {
+                    DdlCtaContableB.SelectedValueExist(drow["IdCtaContableB"]);
+                }
+                else
+                {
+                    DdlCtaContableB.SelectedValueExist(drow["CveCuentaB"]);
+                }
+                if (ChkContabiliza.Checked && (DdlCtaContable.SelectedValue.ToEntero() <= 0 || (chkCtaImporteNegativoProv.Checked && DdlCtaContableB.SelectedValue.ToEntero() <= 0)))
+                {
+                    Alert("el concepto esta marcado como contabilizable pero no estan asignadas correctamente las cuentas.", ModExtensiones.TipoMensaje.MsgAdvertencia);
+                }
                 //if (UsuarioActual.Empresa.TipoContabilidad == 1)
                 //{ 
                 //}
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 8d0aa1b55..2ebfaa684 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -8466,15 +8466,17 @@ public partial class Nomina_Nomina2 : ClsPaginas
         DateTime fechai = TxtRIFechaInicio.Text.ToDateTime();
         DateTime fechaf = TxtRIFechaFin.Text.ToDateTime();
         ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
+        int CveTipoPeriodo=0;
         using (ClsNominas nom = new ClsNominas())
         {
             if (nom.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodoSeleccionado, -1) && (nom.DtResultados.Rows.Count > 0))
             {
                 fechai = nom.DtResultados.Rows[0]["FechaInicio"].ToString().ToDateTime();
                 fechaf = nom.DtResultados.Rows[0]["FechaFin"].ToString().ToDateTime();
+                CveTipoPeriodo = -nom.DtResultados.Rows[0]["CveTipoPeriodo"].ToString().ToEntero();
             }
 
-            if (nom.ReportedeincidenciasGET(UsuarioActual.CveEmpresa, fechai, fechaf, -4))
+            if (nom.ReportedeincidenciasGET(UsuarioActual.CveEmpresa, fechai, fechaf,  CveTipoPeriodo))
             {
 
                 var libro = wb.AddWorksheet(nom.DTSetResultados.Tables[2], "Incidencias");
diff --git a/Nomina/ReportePTU.aspx.vb b/Nomina/ReportePTU.aspx.vb
index e41cef5ff..5fbbcfe24 100644
--- a/Nomina/ReportePTU.aspx.vb
+++ b/Nomina/ReportePTU.aspx.vb
@@ -156,7 +156,7 @@ Partial Class Nomina_ReportePTU
                 If Not IsNothing(rowc) Then
                     CveConcepto = rowc("CveConcepto").ToString().ToEntero()
                 Else
-                    CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0)
+                    CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1)
                 End If
                 If CveConcepto < 1 Then
                     continuar = False
diff --git a/Nomina/ReportedeAcumulados.aspx b/Nomina/ReportedeAcumulados.aspx
index 3bcd6de90..0236e30d8 100644
--- a/Nomina/ReportedeAcumulados.aspx
+++ b/Nomina/ReportedeAcumulados.aspx
@@ -321,7 +321,14 @@
                                 <ItemTemplate>
                                     <asp:Literal ID="LtlSucursal" runat="server"></asp:Literal>
                                 </ItemTemplate>
-                                <ItemStyle Width="1500px" HorizontalAlign="Left" />
+                                <ItemStyle Width="150px" HorizontalAlign="Left" />
+                            </asp:TemplateField>
+                            <asp:TemplateField>
+                                <HeaderTemplate>NSS</HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:Literal ID="LtlNSS" Text='<%# Eval("NumeroSS")%>' runat="server"></asp:Literal>
+                                </ItemTemplate>
+                                <ItemStyle Width="150px" HorizontalAlign="Left" />
                             </asp:TemplateField>
                             <asp:TemplateField>
                                 <HeaderTemplate>Registro Patronal</HeaderTemplate>
diff --git a/Nomina/ReportedeAcumulados.aspx.cs b/Nomina/ReportedeAcumulados.aspx.cs
index af8ad6723..6338ae4a3 100644
--- a/Nomina/ReportedeAcumulados.aspx.cs
+++ b/Nomina/ReportedeAcumulados.aspx.cs
@@ -196,7 +196,7 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
 
             //string ctipo = "P";
 
-            int CurrentColumn = 4;
+            int CurrentColumn = 5;
             BoundField bf;
             foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 ").Rows)
             {
@@ -407,13 +407,28 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
             libro.Cell(1, column).Value = " ";
             libro.Cell(2, column).Value = "Codigo";
             libro.Cell(3, column).Value = " ";
-            column++;
-            libro.Cell(1, column).Value = " ";
-            libro.Cell(2, column).Value = "Empleado";
-            libro.Cell(3, column).Value = " ";
-            libro.Column(column).Width = 35;
+                column++;
+                libro.Cell(1, column).Value = " ";
+                libro.Cell(2, column).Value = "Empleado";
+                libro.Cell(3, column).Value = " ";
+                libro.Column(column).Width = 35;
+                column++;
+                libro.Cell(1, column).Value = " ";
+                libro.Cell(2, column).Value = "Sucursal";
+                libro.Cell(3, column).Value = " ";
+                libro.Column(column).Width = 35;
+                column++;
+                libro.Cell(1, column).Value = " ";
+                libro.Cell(2, column).Value = "NSS";
+                libro.Cell(3, column).Value = " ";
+                libro.Column(column).Width = 35;
+                column++;
+                libro.Cell(1, column).Value = " ";
+                libro.Cell(2, column).Value = "Registro Patronal";
+                libro.Cell(3, column).Value = " ";
+                libro.Column(column).Width = 35;
 
-            int iniciotipe = column;
+                int iniciotipe = column;
             foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 ").Rows)
             {
 
@@ -520,11 +535,17 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
                 }
                 column = 1;
                 libro.Cell(Fila, column).Value = string.Format("'{0}",erow["Codigo"]);
-                column++;
-                if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); }
-                if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; }
-                libro.Cell(Fila, column).Value = erow["Nombre"];
-                foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows)
+                    column++;
+                    if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); }
+                    if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; }
+                    libro.Cell(Fila, column).Value = erow["Nombre"];
+                    column++; 
+                    libro.Cell(Fila, column).Value = erow["SubProyecto"];
+                    column++; 
+                    libro.Cell(Fila, column).Value =string.Format("'{0}", erow["NumeroSS"]);
+                    column++; 
+                    libro.Cell(Fila, column).Value = erow["RegistroPatronal"];
+                    foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows)
                 {
                     column++;
                     string Concepto = string.Format("V_{0}", row["CveConcepto"]);
@@ -594,11 +615,11 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
                 if (newsubproyecto)
                 {
                     libro.Range(Fila - 3, 1, Fila - 3, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(184, 204, 228));
-                    libro.Range(Fila - 3, 3, Fila - 3, column).Style.NumberFormat.Format = "$###,###,##0.00";
-                    libro.Range(Fila - 3, 3, Fila - 3, column).DataType = ClosedXML.Excel.XLDataType.Number;
+                    libro.Range(Fila - 3, 6, Fila - 3, column).Style.NumberFormat.Format = "$###,###,##0.00";
+                    libro.Range(Fila - 3,6, Fila - 3, column).DataType = ClosedXML.Excel.XLDataType.Number;
                 }
-                libro.Range(Fila , 3, Fila , column).Style.NumberFormat.Format = "$###,###,##0.00";
-                libro.Range(Fila, 3, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
+                libro.Range(Fila , 6, Fila , column).Style.NumberFormat.Format = "$###,###,##0.00";
+                libro.Range(Fila, 6, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
 
             }
 
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 959542ab0..9d01b0ed8 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -930,17 +930,13 @@ Partial Class OC_OC
 
     Private Sub ValidaCancelacionConAlamcen()
 
-        ' BtnCancelarPrevio.Visible = True
-        ' BtnCancelarPrevio.Enabled = True
 
         If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then
 
-
             'BtnCancelarPrevio.Attributes.Remove("onclick")
             BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip")
             BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.")
             BtnCancelarPrevio.OnClientClick = "return false;"
-            'BtnCancelarPrevio.Attributes.Add("onclick", "$('#DivCancelarCompra').modal('hide')")
 
         End If
 
diff --git a/OI/Circular.aspx b/OI/Circular.aspx
index 8e76b0d57..fc7c6ac03 100644
--- a/OI/Circular.aspx
+++ b/OI/Circular.aspx
@@ -68,11 +68,12 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario" EmptyDataText="No se encontraron Circulares"
-                ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center; width: 100%" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario,FechaIng" EmptyDataText="No se encontraron Circulares"
+                ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: left; width: 100%" GridLines="None">
                 <Columns>
                     <asp:HyperLinkField HeaderText="Asunto" DataTextField="Asunto" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalleB.aspx?CveCircular={0}" />
                     <asp:HyperLinkField HeaderText="Usuario" DataTextField="Usuario" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalleB.aspx?CveCircular={0}" />
+                    <asp:HyperLinkField HeaderText="Fecha Ing." DataTextField="FechaIng" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalleB.aspx?CveCircular={0}" ItemStyle-Width="250px" />
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
diff --git a/OI/Circular.aspx.vb b/OI/Circular.aspx.vb
index 63b26eecf..8f39dc8a6 100644
--- a/OI/Circular.aspx.vb
+++ b/OI/Circular.aspx.vb
@@ -30,7 +30,7 @@ Partial Class OI_Circular
 
         DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlUsuario.DataBind()
-        DdlUsuario.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
     Private Sub CargaDatos()
         Dim ObjOI As New ClsOIEventos
@@ -40,6 +40,7 @@ Partial Class OI_Circular
         End If
         ObjOI.Dispose()
         GvDatos.DataBind()
+        UpDatos.Update()
     End Sub
 
     Protected Sub btConsultar_Click() Handles btConsultar.Click
diff --git a/OI/CircularDetalleB.aspx b/OI/CircularDetalleB.aspx
index 24f6fc8e6..cd5e17ab2 100644
--- a/OI/CircularDetalleB.aspx
+++ b/OI/CircularDetalleB.aspx
@@ -108,14 +108,14 @@
                     <h3 class="panel-title">Asunto</h3>
                 </div>
                 <div class="bodycorreos">
-                    <asp:TextBox ID="TxtAsunto" runat="server" CssClass="form-control "></asp:TextBox>
+                    <asp:TextBox ID="TxtAsunto" text="Circular " runat="server" CssClass="form-control"></asp:TextBox>
                     <asp:RequiredFieldValidator ID="RfvAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCircular"></asp:RequiredFieldValidator>                    
                 </div>
             </div>
 
 
             <div class="pnlCorreo" style="margin-bottom: 5px;">
-                <div class="headerCorreo headerCorreoCCP" style="background-color: transparent;">
+                <div class="headerCorreo headerCorreoCCP" style="background-color: transparent; float:right;">
                     <h3 class="panel-title ">Adjuntar Archivos:</h3>
                     <asp:TextBox ID="TxtArchivo" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
 
@@ -137,6 +137,7 @@
 
             <div class="text-center">
                 <asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" CssClass="btn btn-primary" Text="Guardar" Visible="true" ValidationGroup="GrpCircular" />
+                <asp:Button ID="BtnCancelar" PostBackUrl="Circular.aspx" runat="server" CssClass="btn btn-danger" Style="margin-left: 20px!important;" Text="Cancelar" Visible="true"/>
                 <asp:Button ID="BtnEliminar" OnClick="BtnEliminar_Click" runat="server" CssClass="btn btn-danger" Text="Eliminar" Visible="false" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
             </div>
 
@@ -173,7 +174,7 @@
                                 <div class="row" id="DVModalFiltrosUsuarios" visible="true" runat="server">
                                     <div class="col-md-6">
                                         <div class="form-group form-md-line-input">
-                                            <asp:DropDownList runat="server" ID="DdlRoles" DataValueField="CveRol" DataTextField="Rol" CssClass="select2me form-control" Width="100%" OnSelectedIndexChanged="DdlRoles_SelectedIndexChanged"  AutoPostBack="true" />
+                                            <asp:DropDownList runat="server" ID="DdlRoles" DataValueField="CveRol" DataTextField="Rol" CssClass="select2me form-control" Width="100%" OnSelectedIndexChanged="DdlRoles_SelectedIndexChanged" AutoPostBack="true"/>
                                             <asp:Label runat="server" Text="Perfil:" AssociatedControlID="DdlRoles"></asp:Label>
                                         </div>
                                     </div>
@@ -221,8 +222,8 @@
                              
                                 <div class="row" >
                                         <div class="row col-md-12" align="right" style="margin-top:5px!important">
-                                            <input type="text" id="TxtBusquedaCorreos" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaCorreos','{0}')", GVUsuarios.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaCorreos','{0}')", GVUsuarios.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                            <input type="text" id="TxtBusquedaCorreos" class="form-control input-sm" onkeyup="filtrarx()"  style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                            <a href="javascript:;" onclick="filtrarx()" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                                         </div>                                    
                                 </div>
 
@@ -315,7 +316,6 @@
         function chkAll_OncLick(chk) {            
             $('.GVUsuarios tr:visible input[type="checkbox"]').prop("checked", chk.checked);
         }
-
         //function showhideUser() {
 
         //   // alert(CveRol);
@@ -346,12 +346,20 @@
         //    });
         //    input.addClass('ConEvento');
         //}
-        //function ADSReady() {
+        function filtrarx() {
+            //console.log('Entre 3')
+            //var filtro = sotext($("div[id^='C_DVModalFiltros'] select:first").attr("id"));
+            //console.log(filtro)
+            FiltrarTablaStrMulti('<%=GVUsuarios.ClientID %>', null, sotext('<%=DdlRoles.ClientID %>'), $('#TxtBusquedaCorreos').val());
+        }
+        function ADSBegin() { 
         //    loadeventos();
         //    showhideUser()
-        //}
-
-
+        }
+        //inicializa tablas select2me etc etc.....
+        function ADSReady() { 
+            filtrarx();
+        }
     </script>
 </asp:Content>
 
diff --git a/OI/CircularDetalleB.aspx.cs b/OI/CircularDetalleB.aspx.cs
index 600a24197..9a363615b 100644
--- a/OI/CircularDetalleB.aspx.cs
+++ b/OI/CircularDetalleB.aspx.cs
@@ -189,7 +189,7 @@ public partial class OI_CircularDetalleB :  ClsPaginas
 
         ClsOIEventos ObjOI = new ClsOIEventos();
 
-        if (ObjOI.GetCircularCorreos(intTipoConsulta, UsuarioActual.CveEmpresa,DdlRoles.SelectedValue.ToEntero(),DdlSubProyecto.SelectedValue.ToEntero(), DdlCveClasificacionProveedor.SelectedValue.ToEntero(), DdlSubProyectoPersonal.SelectedValue.ToEntero(),DdlClasificacion.SelectedValue.ToEntero()))
+        if (ObjOI.GetCircularCorreos(intTipoConsulta, UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToEntero(), DdlCveClasificacionProveedor.SelectedValue.ToEntero(), DdlSubProyectoPersonal.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero()))
         {
             
             if (ObjOI.DtResultados.Rows.Count >= 1000)
@@ -203,7 +203,7 @@ public partial class OI_CircularDetalleB :  ClsPaginas
 
                 GVUsuarios.DataSource = dt;
 
-                Alert($"{ObjOI.DtResultados.Rows.Count } registros se limito a 2000 registros, se recomienda usar los filtros.", ModExtensiones.TipoMensaje.ToastAdventencia);
+                Alert($"{ObjOI.DtResultados.Rows.Count} registros se limito a 2000 registros, se recomienda usar los filtros.", ModExtensiones.TipoMensaje.ToastAdventencia);
             }
             else
             {
@@ -216,14 +216,11 @@ public partial class OI_CircularDetalleB :  ClsPaginas
             GVUsuarios.DataSource = null;
         }
 
-
         RegistraScript("CveRol = -1; CveSucursal = -1;usuariotext = \"\";");
-       
 
         ObjOI.Dispose();
         GVUsuarios.DataBind();
         UpModalSeleccionCorreos.Update();
-        
     }
 
     protected void GVUsuarios_RowDataBound(object sender, GridViewRowEventArgs e)
@@ -301,7 +298,7 @@ public partial class OI_CircularDetalleB :  ClsPaginas
             if (ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Text.Replace("< ","<"), TxtCorreo.Text, TxtCorreoAdicional.Text, AdjuntoValidate))
             {
                 GuardarArchivo(CveCircular);
-                Alert("Actualizado correctamente");
+                Alert("La circular se ha actualizado correctamente.");
             }
         }
         else
@@ -313,7 +310,7 @@ public partial class OI_CircularDetalleB :  ClsPaginas
             if (CircularInsertado > 0)
             {
                 GuardarArchivo(CircularInsertado);
-                Alert("Ingresado correctamente");
+                Alert("La circular se ha guardado correctamente.");
                 CveCircular = CircularInsertado;
 
                 if (CveCircular > 0)
@@ -443,7 +440,7 @@ public partial class OI_CircularDetalleB :  ClsPaginas
                 MandaCorreo(TxtAsunto.Text, Correo, Contador > 0 ? "" : TxtCorreoAdicional.Text, TxtCircular.Text.Replace("< ", "<"), ArchivoBytes, HkArchivo.Text);
                 Contador += 1;
             }
-            Alert("El correo se envió correctamente");
+            Alert("El correo se envió correctamente.");
         }
         catch (Exception )
         {
@@ -522,10 +519,13 @@ public partial class OI_CircularDetalleB :  ClsPaginas
 
     protected void DdlRoles_SelectedIndexChanged(object sender, EventArgs e)
     {
-        ConsultaCorreos();
-    }
+        //ConsultaCorreos();
+        // Filtro las filas según el dropdown option
+        //RegistraScript("console.log('Entre 1')");
+		//RegistraScript($"FiltrarTablaStrMulti('{GVUsuarios.ClientID}', null, sotext('{DdlRoles.ClientID}'), $('#TxtBusquedaCorreos').val());");
+	}
 
-    protected void DdlSubProyecto_SelectedIndexChanged(object sender, EventArgs e)
+	protected void DdlSubProyecto_SelectedIndexChanged(object sender, EventArgs e)
     {
         ConsultaCorreos();
     }
@@ -542,7 +542,7 @@ public partial class OI_CircularDetalleB :  ClsPaginas
 
     protected void DdlClasificacion_SelectedIndexChanged(object sender, EventArgs e)
     {
-       // ConsultaCorreos();
+        ConsultaCorreos();
     }
 
     protected void LnlActualizarCorreos_Click(object sender, EventArgs e)
diff --git a/OI/RepTareas3.aspx.cs b/OI/RepTareas3.aspx.cs
index bc044fee3..a37a27eab 100644
--- a/OI/RepTareas3.aspx.cs
+++ b/OI/RepTareas3.aspx.cs
@@ -17,6 +17,6 @@ public partial class OI_RepTareas3 :  System.Web.UI.Page
     protected void LnkAddEvento_Click(object sender, EventArgs e)
     {
 
-        RegistraScript(string.Format("$('#{0}').modal()", iddivAgregar));
+        //RegistraScript(string.Format("$('#{0}').modal()", iddivAgregar));
     }
 }
\ No newline at end of file
diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb
index a197bd468..dc7598417 100644
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/OS/CatEstatusOrdenServicio.aspx.vb
@@ -78,7 +78,7 @@ Partial Class OS_CatEstatusOrdenServicio
     Public Sub CargaDatos()
         DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
         Using ObjEstatusOrdenServicios As New ClsOS
-            If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then
+            If ObjEstatusOrdenServicios.GetEstatusOrdenServicio(UsuarioActual.CveEmpresa) Then
                 DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
                 GvDatos.DataSource = DtEstatusOS
                 GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
diff --git a/Prospectos/CatEventosEstructuras.aspx.vb b/Prospectos/CatEventosEstructuras.aspx.vb
index e30a647ca..ac39d71f9 100644
--- a/Prospectos/CatEventosEstructuras.aspx.vb
+++ b/Prospectos/CatEventosEstructuras.aspx.vb
@@ -14,7 +14,7 @@ Partial Class Prospectos_CatEventosEstructuras
             CargaEventoTipo()
             CargaDatos()
             CargaAnfitrion(DdlAnfitrion)
-            DdlMunicipio.DataSource = GlobalDTGralMunicipios(26)
+            DdlMunicipio.DataSource = GlobalDTGralMunicipios("26")
             DdlMunicipio.DataBind()
         End If
     End Sub
@@ -102,7 +102,7 @@ Partial Class Prospectos_CatEventosEstructuras
                 e.Row.FCDropDownList("DdlEventoTipo").DataBind()
                 e.Row.FCDropDownList("DdlEventoTipo").SelectedValue = e.Row.DBCampo("CveEventoTipo")
 
-                e.Row.FCDropDownList("DdlMunicipio").DataSource = GlobalDTGralMunicipios(26)
+                e.Row.FCDropDownList("DdlMunicipio").DataSource = GlobalDTGralMunicipios("26")
                 e.Row.FCDropDownList("DdlMunicipio").DataBind()
                 e.Row.FCDropDownList("DdlMunicipio").SelectedValue = e.Row.DBCampo("CveMunicipio")
 
diff --git a/Prospectos/CatProspectosRedesMetas.aspx.vb b/Prospectos/CatProspectosRedesMetas.aspx.vb
index 6033c63a6..6f8efd243 100644
--- a/Prospectos/CatProspectosRedesMetas.aspx.vb
+++ b/Prospectos/CatProspectosRedesMetas.aspx.vb
@@ -35,7 +35,7 @@ Partial Class Prospectos_CatProspectosRedesMetas
             DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind()
             DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind()
             DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind()
-            DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind()
+            DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind()
 
             CargaDatos()
 
diff --git a/Prospectos/Prospectos.aspx.vb b/Prospectos/Prospectos.aspx.vb
index 49ace671c..5ced21f5c 100644
--- a/Prospectos/Prospectos.aspx.vb
+++ b/Prospectos/Prospectos.aspx.vb
@@ -79,7 +79,7 @@ Partial Class Prospectos_Prospectos
             DdlPaises.SelectedValue = "1"
             DdlEmpresaPaises.SelectedValue = "1"
             DdlEmpresaPaises.DataSource = GlobalDTGralPaises : DdlEmpresaPaises.DataBind()
-            DdlFiscalEstados.DataSource = GlobalDTGralEstados(1) : DdlFiscalEstados.DataBind()
+            DdlFiscalEstados.DataSource = GlobalDTGralEstados("1") : DdlFiscalEstados.DataBind()
 
             'DdlMunicipios.DataSource = GlobalDTGralMunicipios : DdlMunicipios.DataBind()
 
@@ -88,7 +88,7 @@ Partial Class Prospectos_Prospectos
                 CargaDatos()
                 'Configuración de Modalidad Update
                 BtnGuardar.Text = "Guardar Cambios"
-                LtlTitulo.Text = "Consulta del Prospecto:"
+                LtlTitulo.Text = "Consulta del Prospecto: "
                 'ImgAddObs.Attributes.Add("onclick", "javascript:$('#DivEventoBitacora').show(1000); PosicionaObjeto(this.id,'DivEventoBitacora');")
 
                 'Else
@@ -337,11 +337,11 @@ Partial Class Prospectos_Prospectos
 
 
     Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
-        ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
     End Sub
 
     Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
-        ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
     End Sub
 
     Protected Sub CargaCaracteristicas()
diff --git a/Prospectos/ProspectosEstructuras.aspx.vb b/Prospectos/ProspectosEstructuras.aspx.vb
index 09203cf85..7a172decd 100644
--- a/Prospectos/ProspectosEstructuras.aspx.vb
+++ b/Prospectos/ProspectosEstructuras.aspx.vb
@@ -208,11 +208,11 @@ Partial Class Prospectos_ProspectosEstructuras
     End Sub
 
     Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
-        ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
     End Sub
 
     Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
-        ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
     End Sub
 
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
diff --git a/Prospectos/ProspectosRedes.aspx.vb b/Prospectos/ProspectosRedes.aspx.vb
index b463acb29..3fcdd5eea 100644
--- a/Prospectos/ProspectosRedes.aspx.vb
+++ b/Prospectos/ProspectosRedes.aspx.vb
@@ -201,11 +201,11 @@ Partial Class Prospectos_ProspectosRedes
     End Sub
 
     Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
-        ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
     End Sub
 
     Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
-        ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
     End Sub
 
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
diff --git a/Prospectos/RedesArbol.aspx.vb b/Prospectos/RedesArbol.aspx.vb
index 0f28d9c0e..601b71be0 100644
--- a/Prospectos/RedesArbol.aspx.vb
+++ b/Prospectos/RedesArbol.aspx.vb
@@ -36,7 +36,7 @@ Partial Class Prospectos_RedesArbol
             DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind()
             DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind()
             DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind()
-            DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind()
+            DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind()
 
             CargaDatos(True)
             ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');")
diff --git a/Prospectos/RedesEncuestas.aspx.vb b/Prospectos/RedesEncuestas.aspx.vb
index b811fa03e..b0e2ade0c 100644
--- a/Prospectos/RedesEncuestas.aspx.vb
+++ b/Prospectos/RedesEncuestas.aspx.vb
@@ -155,11 +155,11 @@ Partial Class Prospectos_RedesEncuestas
     End Sub
 
     Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
-        ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
     End Sub
 
     Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
-        ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
+        ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
     End Sub
 
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
diff --git a/RH/CatTurno.aspx b/RH/CatTurno.aspx
index 071c837a8..cbd930149 100644
--- a/RH/CatTurno.aspx
+++ b/RH/CatTurno.aspx
@@ -39,7 +39,7 @@
             </div>
             <table id="thheader" style="display: none;">
                 <tr>
-                    <th colspan="4"></th>
+                    <th colspan="6"></th>
                     <th class="bright bleft" colspan="2">Entrada</th>
                     <th class="bright bleft">Salida</th>
                     <th colspan="4"></th>
@@ -47,12 +47,19 @@
             </table>
             <asp:GridView ID="GvTurno" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" CellSpacing="0" Width="100%" AutoGenerateColumns="False"
                 EmptyDataText="No se encontraron registros" ToolTip="Listado de Turnos" data-tableheader="#thheader"
-                DataKeyNames="CveTurno,Turno,CveChecadorHorario,HorarioDe,HorarioA,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,ChecadorHorario,ToleranciaERetardo,ToleranciaEFalta,ToleranciaEFalta2,ToleranciaSRetardo,ToleranciaSFalta">
+                DataKeyNames="CveTurno,Turno,CveChecadorHorario,HorarioDe,HorarioA,Comida,ComidaDe,ComidaA,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,ChecadorHorario,ToleranciaERetardo,ToleranciaEFalta,ToleranciaEFalta2,ToleranciaSRetardo,ToleranciaSFalta">
                 <Columns>
                     <asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="ChecadorHorario" HeaderText="Checador Horario" ItemStyle-HorizontalAlign="Left" />
+                    <%--<asp:BoundField DataField="ChecadorHorario" HeaderText="Checador Horario" ItemStyle-HorizontalAlign="Left" />--%>
                     <asp:BoundField DataField="HorarioDe" HeaderText="Hr. Entrada" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField DataField="HorarioA" HeaderText="Hr. Salida" ItemStyle-HorizontalAlign="Center" />
+                    <asp:BoundField DataField="ComidaDe" HeaderText="Hr.Comida E" ItemStyle-HorizontalAlign="Center" />
+                    <asp:BoundField DataField="ComidaA" HeaderText="Hr. Comida S" ItemStyle-HorizontalAlign="Center" />
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comida">
+                        <ItemTemplate>
+                            <asp:Label ID="LblEstatusZ" runat="server" Text='<%# Eval("SComida") %>'>></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                     <asp:BoundField DataField="ToleranciaERetardo" HeaderStyle-CssClass=" bleft" HeaderText="Tolerancia" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField DataField="ToleranciaEFalta2" HeaderStyle-CssClass="bright " HeaderText="Retardo" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField DataField="ToleranciaSFalta" HeaderStyle-CssClass="bright bleft" HeaderText="Tolerancia" ItemStyle-HorizontalAlign="Center" />
@@ -118,6 +125,31 @@
                                     <ajax:ValidatorCalloutExtender ID="VCOHorarioA2" runat="server" HighlightCssClass="vco" TargetControlID="MEVHorarioA"></ajax:ValidatorCalloutExtender>
                                     <label for="<%= TxtHorarioDe.ClientID.ToString()%>">Hora de Salida:</label>
                                 </div>
+
+                                
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:CheckBox ID="chkComida" runat="server" CssClass="form-control" />
+                                    <label for="<%= chkComida.ClientID.ToString()%>">Con Horario de comida:</label>
+                                </div>
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtComidade" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVComidade" runat="server" ControlToValidate="TxtComidade" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOComidade1" runat="server" HighlightCssClass="vco" TargetControlID="RFVComidade" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:MaskedEditExtender ID="MEEComidade" runat="server" TargetControlID="TxtComidade" Mask="99:99:99" MaskType="Time" InputDirection="RightToLeft"></ajax:MaskedEditExtender>
+                                    <ajax:MaskedEditValidator ID="MEVComidade" runat="server" ControlExtender="MEEComidade" ControlToValidate="TxtComidade" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> no tiene el formato correcto, por favor corrija (Formato 24 Horas)." IsValidEmpty="true" MaximumValue="23:59:59" MinimumValue="00:00:00" ToolTip="Formato 24 Horas" ValidationGroup="GrpObligatorio"></ajax:MaskedEditValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOComidade2" runat="server" HighlightCssClass="vco" TargetControlID="MEVComidade"></ajax:ValidatorCalloutExtender>
+                                    <label for="<%= TxtComidade.ClientID.ToString()%>">Hora de Comida Entrada:</label>
+                                </div>
+                                
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtComidaA" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVComidaA" runat="server" ControlToValidate="TxtComidaA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOComidaA1" runat="server" HighlightCssClass="vco" TargetControlID="RFVComidaA" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:MaskedEditExtender ID="MEEComidaA" runat="server" TargetControlID="TxtComidaA" Mask="99:99:99" MaskType="Time" InputDirection="RightToLeft"></ajax:MaskedEditExtender>
+                                    <ajax:MaskedEditValidator ID="MEVComidaA" runat="server" ControlExtender="MEEComidaA" ControlToValidate="TxtComidaA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> no tiene el formato correcto, por favor corrija (Formato 24 Horas)." IsValidEmpty="true" MaximumValue="23:59:59" MinimumValue="00:00:00" ToolTip="Formato 24 Horas" ValidationGroup="GrpObligatorio"></ajax:MaskedEditValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOComidaA2" runat="server" HighlightCssClass="vco" TargetControlID="MEVComidaA"></ajax:ValidatorCalloutExtender>
+                                    <label for="<%= TxtComidaA.ClientID.ToString()%>">Hora de Comida Salida:</label>
+                                </div>
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtRetardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio"></asp:TextBox>
                                     <asp:Label AssociatedControlID="TxtRetardo" runat="server" Text="Tolerancia Entrada"></asp:Label>
diff --git a/RH/CatTurno.aspx.vb b/RH/CatTurno.aspx.vb
index 6b51584dc..7fe9ebd7a 100644
--- a/RH/CatTurno.aspx.vb
+++ b/RH/CatTurno.aspx.vb
@@ -27,7 +27,7 @@ Partial Class RH_CatTurno
     End Sub
     Private Sub CargaDatos()
         Dim ObjRH As New ClsRH()
-        If ObjRH.GetTurnos Then
+        If ObjRH.GetTurnos(UsuarioActual.CveEmpresa) Then
             GvTurno.DataSource = ObjRH.DtResultados.FiltraParametros(" CveEmpresa =" & UsuarioActual.CveEmpresa)
             GvTurno.DataBind()
         End If
@@ -36,26 +36,28 @@ Partial Class RH_CatTurno
     End Sub
 
     Private Sub BtnAgregarTurno_Click(sender As Object, e As EventArgs) Handles BtnAgregarTurno.Click
-        Dim ObjRH As New ClsRH
-        Dim Estatus As Boolean = False
-        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(), 0, TxtFsalida.Text.ToEntero()) Then
-                CargaDatos()
-                CargaGlobalDTTurno()
-                Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
+        Using ObjRH As New ClsRH
+            Dim Estatus As Boolean = False
+            Dim comida As Integer = If(chkComida.Checked, 1, 0)
+            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(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text) 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(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text) Then
+                    CargaDatos()
+                    CargaGlobalDTTurno()
+                    Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
+                End If
             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(), 0, TxtFsalida.Text.ToEntero()) Then
-                CargaDatos()
-                CargaGlobalDTTurno()
-                Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
-            End If
-        End If
+
+        End Using
         RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddTurno"))
-        ObjRH.Dispose()
         UpDatos.Update()
 
     End Sub
@@ -75,6 +77,11 @@ Partial Class RH_CatTurno
         TxtFretardo.Text = (GvRow.DataKey("ToleranciaEFalta2").ToEntero()).ToString()
         TxtFsalida.Text = GvRow.DataKey("ToleranciaSFalta")
         ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
+        chkComida.Checked = (GvRow.DataKey("Comida") = "1")
+        TxtComidade.Text = GvRow.DataKey("ComidaDe")
+        TxtComidaA.Text = GvRow.DataKey("ComidaA")
+
+
         UpAddTurno.Update()
 
         'CargaGlobalDTTurno()
diff --git a/Scripts/custom.js b/Scripts/custom.js
index ca375cedc..c630cc62c 100644
--- a/Scripts/custom.js
+++ b/Scripts/custom.js
@@ -69,6 +69,15 @@ function alertatoast(tipo, Mensaje, Funcion, timeout) {
 function log(mensaje) {
     console.log(mensaje);
 }
+
+function soval(dropdown) {
+    return $('option:selected', '#' + dropdown).val();
+}
+
+function sotext(dropdown) {
+    return $('option:selected', '#' + dropdown).text();
+}
+
 function FiltrarTabla(idtxt, idtable, idcontador) {
     if ($('#' + idtxt).val() == '') { $('table#' + idtable + ' tr').css('display', ''); }
     else {
@@ -79,6 +88,38 @@ function FiltrarTabla(idtxt, idtable, idcontador) {
         $('#' + idcontador).html($('#' + idtable + ' tr:visible').length);
     }
 }
+
+function FiltrarTablaStr(str, idtable, idcontador) {
+    if (str == '' || str == 'Todos') { $('table#' + idtable + ' tr').css('display', ''); }
+    else {
+        $('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none');
+        $('table#' + idtable + ' tr:contains("' + str + '")').css('display', '');
+        $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', '');
+    }
+    if ($('#' + idcontador).length > 0) {
+        $('#' + idcontador).html($('#' + idtable + ' tr:visible').length);
+    }
+}
+
+function FiltrarTablaStrMulti(idtable, idcontador /*, str1, str2, str3...*/ ) {
+    if (arguments.length <= 2) { return; }
+    let strc = '';
+    for (let i = 2 /*a partir del 3er argumento obtiene los str*/; i < arguments.length; i++) {
+        let str = arguments[i];
+        if (str != '' && str != 'Todos') {
+            strc += ':contains("' + str + '")';
+        }
+    }
+    $('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none');
+    $('table#' + idtable + ' tr' + strc).css('display', '');
+    $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', '');
+    if (idcontador) {
+        if ($('#' + idcontador).length > 0) {
+            $('#' + idcontador).html($('#' + idtable + ' tr:visible').length);
+        }
+    }
+}
+
 function FiltrarTablaClass(idtxt, idtable, idcontador, resta) {
     if (resta == null) {
         resta =1
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 6cc3bcfc3..1724cc382 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -4582,7 +4582,7 @@
 
                                                 <asp:GridView ID="GvLineasAdicionales" Width="100%" runat="server" GridLines="None"
                                                     DataKeyNames="CveLineaAdicional,LineaAdicional,CveCliente,CveProveedor,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveCategoria,FechaIng,CveLineaAdicionalEstatus,Proveedor,DiasVencimiento"
-                                                    CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
+                                                    CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                                                     AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                                                     <Columns>
 
@@ -4874,7 +4874,7 @@
                 <div class="portlet-body">
                     <asp:UpdatePanel ID="UPEventoBitacora" runat="server" UpdateMode="Conditional">
                         <ContentTemplate>
-                            <asp:Button ID="btnupEventoBitacora" OnClick="btnupEventoBitacora_Click" UseSubmitBehavior="false" CssClass="hidden btnupEventoBitacora" runat="server" Text="Button" />
+                            <asp:Button ID="btnupEventoBitacora" OnClick="btnupEventoBitacora_Click" UseSubmitBehavior="false" CssClass="hidden btnupEventoBitacora mysmallbtn" runat="server" Text="Button" />
                             <asp:GridView ID="GvEB" runat="server" AutoGenerateColumns="False" EmptyDataText="No se han capturado comentarios o bitácora" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
                                 <Columns>
                                     <asp:TemplateField>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 82de53a46..1d3ca0dca 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1130,10 +1130,6 @@ Partial Class Clientes
             End If
         End If
 
-
-
-
-
         ObjCliente.Dispose()
 
         DdlSucursalCliente.DataBind()
@@ -1148,9 +1144,9 @@ Partial Class Clientes
         DdlClienteSucursalEnvio.DataBind()
         DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClienteSucursalEnvio.SelectedValue = "-1"
-
-
-
+    End Sub
+    Private Sub CargaSubProyectosSuscursales()
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal)
     End Sub
     Private Sub CargaGridRetenciones()
         Dim ObjClientes As New ClsClientes
@@ -1161,10 +1157,6 @@ Partial Class Clientes
         ObjClientes.Dispose()
         GvRetenciones.DataBind()
     End Sub
-
-
-
-
     Private Sub CargaCuentasEquipos()
         Dim Objeto As New ClsGenerales
         If Objeto.GetCuentasEquipos(CveCliente, -1) Then
@@ -1512,7 +1504,7 @@ Partial Class Clientes
                 ' CargaDocs()
                 CargaCombos()
                 CargaDocumentacionCliente()
-                CargaSubProyectosSuscursales()
+                'CargaSubProyectosSuscursales()
                 'CargaMetodosPago33()
                 'CargaFormaPago33()
                 'CargaComboCFDI()
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index ac6acc141..b95bf73dc 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -827,7 +827,7 @@ Partial Class Ventas_ClientesAbonar
                 CveMoneda = IfNull(Request("CveMoneda"), "1").ToString.ToEntero
             End If
 
-            CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
             If RblTipoPago.SelectedValue = "1" Then
                 Dim CveCuentaDeposito As Integer = 0
@@ -1151,7 +1151,7 @@ Partial Class Ventas_ClientesAbonar
                                 Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioPago).RoundSQL
                                 Dim IdCtaContable As Integer = 0
 
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, VentaActual.IdCtaContableCliente, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then
                                     MsgError = "No se pudo insertar la póliza"
                                 End If
                             End If
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 9ee1483a7..e8ba3f14d 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -180,7 +180,7 @@ Partial Class RepVentaDetalle
         DdlCondicionesPago.SelectedValueExist(CveCondicionesPago)
 
         DdlProyecto.SelectedValueExist(CveProyecto)
-        If DivProyecto.Visible Then CargaSubProyecto()
+        'If DivProyecto.Visible Then CargaSubProyecto()
         DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto)
         DdlSubProyectoEjecucion.SelectedValueExist(CveSubProyectoEjecucion)
         DdlVendedor.SelectedValuesIfExistM(CveVendedor)
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 85d999ca5..b6bda839e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -25922,7 +25922,7 @@ Partial Class Ventas
         If UsuarioActual.CveEmpresa.Contiene(72, 80) Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero() Else CveMarca = DdlMarca.SelectedValue.ToEntero()
 
         Dim ObjProductosServicios As New ClsProductosServicios()
-        If ObjProductosServicios.AddPS(DdlClasificacionPS.SelectedValue.ToEntero(), -1, DdlUnidadMedidaPS.SelectedValue.ToEntero(), TxtCodigoPS.Text.Trim, "", TxtCodigoBarrasPS.Text.Trim, TxtPS.Text.Trim, 0, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInventario, 0, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero(), CveMarca:=CveMarca, CveSATPS:=DdlSATPS.SelectedValue.ToEntero(), CveClasificacionDetalle:=DdlTipo.SelectedValue.ToEntero()) > 0 Then
+        If ObjProductosServicios.AddPS(DdlClasificacionPS.SelectedValue.ToEntero(), -1, DdlUnidadMedidaPS.SelectedValue.ToEntero(), TxtCodigoPS.Text.Trim, "", TxtCodigoBarrasPS.Text.Trim, TxtPS.Text.Trim, 0, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInventario, 0, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero(), CveMarca:=CveMarca, CveSATPS:=DdlSATPS.SelectedValue.ToEntero(), CveClasificacionDetalle:=DdlTipo.SelectedValue.ToEntero(), CveObjetoImpuesto:=2) > 0 Then
             DdlClasificacion.SelectedValueExist(DdlClasificacionPS.SelectedValue.ToEntero())
             DdlClasificacion_SelectedIndexChanged(DdlClasificacionPS, e)
 
@@ -35392,7 +35392,7 @@ Partial Class Ventas
                 DdlRegimenFiscalCliente.DataBind()
             Else
                 Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
-                Dim Val As String
+                Dim Val As String = ""
 
                 If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                     'verifico que sino existe el valor. lo limpie