Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

AF/CatClasificacionesCaracteristicas.aspx.vb

@@ -53,8 +53,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
             'Carga Globals para DT
             CargaTiposActivosFijos()
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
+            ''CargaCaracteristicasClasificaciones()
-            CargaCaracteristicas()
+            '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()
+            ''CargaCaracteristicasClasificaciones()
-            CargaCaracteristicas()
+            '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(UsuarioActual.CveEmpresa) = Nothing
-            GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados
             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 = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
-                GvDatosCL.DataSource = DV.ToTable()
-                DV.Dispose()
             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 = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
-                GvDatosCA.DataSource = DV.ToTable()
-                DV.Dispose()
             Else
-                GvDatosCA.DataSource = CType(ViewState("DTCatacteristica"), DataTable)
+                GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
             End If
             GvDatosCA.DataBind()
             UpDatosCA.Update()

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
 

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

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

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

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

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
 

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")

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
 

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
 

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

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
 

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

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;

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
 

Inventarios/RepApartados2.aspx.vb

@@ -38,11 +38,7 @@ Partial Class Inventarios_RepApartados2
         DdlCliente.DataBind()
         DdlCliente.Items.Insert(0, New ListItem(" Todos ", "-1"))
 
-
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, -1)
-        Dim DTVendedores As New DataTable
-        DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True)
-        DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False))
-        DdlVendedor.DataSource = DTVendedores
         DdlVendedor.DataBind()
         DdlVendedor.Items.Insert(0, New ListItem(" Todos ", "-1"))
 

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))

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">
+                                            <div class="">
-                                                <asp:Label runat="server" Text="Concepto contable" AssociatedControlID="DdlConceptoContable"></asp:Label>
+                                                <asp:Label runat="server" Text="Concepto SAT" AssociatedControlID="DdlConceptoSAT"></asp:Label>
-                                                <asp:DropDownList ID="DdlConceptoContable" runat="server" AppendDataBoundItems="True" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Class="form-control select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                                <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>

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)
                 //{ 
                 //}

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");

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

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>

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++;
+                column++;
-            libro.Cell(1, column).Value = " ";
+                libro.Cell(1, column).Value = " ";
-            libro.Cell(2, column).Value = "Empleado";
+                libro.Cell(2, column).Value = "Empleado";
-            libro.Cell(3, column).Value = " ";
+                libro.Cell(3, column).Value = " ";
-            libro.Column(column).Width = 35;
+                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++;
+                    column++;
-                if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); }
+                    if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); }
-                if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; }
+                    if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; }
-                libro.Cell(Fila, column).Value = erow["Nombre"];
+                    libro.Cell(Fila, column).Value = erow["Nombre"];
-                foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows)
+                    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, 6, 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).DataType = ClosedXML.Excel.XLDataType.Number;
                 }
-                libro.Range(Fila , 3, Fila , column).Style.NumberFormat.Format = "$###,###,##0.00";
+                libro.Range(Fila , 6, Fila , column).Style.NumberFormat.Format = "$###,###,##0.00";
-                libro.Range(Fila, 3, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
+                libro.Range(Fila, 6, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
 
             }
 

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
 

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"
+            <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: center; width: 100%" GridLines="None">
+                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>

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

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;" />
+                                            <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="<%= 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>
+                                            <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>
 

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)

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));
     }
 }

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

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")
 

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()
 

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()

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

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

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');")

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

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>

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
+        Using ObjRH As New ClsRH
-        Dim Estatus As Boolean = False
+            Dim Estatus As Boolean = False
-        If ChkEstatus.Checked Then Estatus = True
+            Dim comida As Integer = If(chkComida.Checked, 1, 0)
-        If HdnModalidad.Value = "A" Then
+            If ChkEstatus.Checked Then Estatus = True
-            If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(),
+            If HdnModalidad.Value = "A" Then
-                    TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero()) Then
+                If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(),
-                CargaDatos()
+                        TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text) Then
-                CargaGlobalDTTurno()
+                    CargaDatos()
-                Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
+                    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(),
+        End Using
-                    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
         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()

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

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>

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()

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

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)

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