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

App_Code/ClsCRM.vb

@@ -1102,7 +1102,8 @@ Public Class ClsCRM
     End Function
 
     Public Function RepAcercamientosDetalle(CveEmpresa As Int32, cveVendedor As Int32, cveMedioCaptacion As Int32, cveProbabilidadAcercamiento As Int32, cveEtapaProceso As Int32, sFecha As String, sFechaIni As String,
-                                            sFechaFin As String, Optional CveTipoProceso As Integer = -1, Optional CveRechazoMotivo As Integer = -1) As Boolean
+                                            sFechaFin As String, Optional CveTipoProceso As Integer = -1, Optional CveRechazoMotivo As Integer = -1, Optional EnPausa As Integer = -1, Optional CveGiroClasificacion As Integer = -1,
+                                            Optional EsRechazo As Boolean = False) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_CRM_RepAcercamientosDetalle", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -1116,6 +1117,9 @@ Public Class ClsCRM
             .Add("@SFechaFin", SqlDbType.VarChar).Value = sFechaFin
             .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
             .Add("@CveRechazoMotivo", SqlDbType.Int).Value = CveRechazoMotivo
+            .Add("@EnPausa", SqlDbType.Int).Value = EnPausa
+            .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
+            .Add("@EsRechazo", SqlDbType.Bit).Value = EsRechazo
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsEncuestas.vb

@@ -23,6 +23,8 @@ Public Class ClsEncuestas
         End Get
     End Property
 
+    Public Property CveEncuesta As Integer = -1
+
 #End Region
 
     Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
@@ -460,8 +462,10 @@ Public Class ClsEncuestas
 #Region "  E N C U E S T A S   -   E S T R U C T U R A  "
 
     Public Function AddEncuesta(CveCampaña As Integer, CveCliente As Integer, NombreEncuesta As String, Observaciones As String, NumInvitaciones As Integer,
-                                CveTipoEncuesta As Integer, SeContesto As Boolean, Fecha As DateTime, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+                                CveTipoEncuesta As Integer, SeContesto As Boolean, Fecha As DateTime, CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoProceso As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
+
+        CveEncuesta = -1
         DataAdapter("PA_Enc_EncuestasAdd", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCampana", SqlDbType.Int).Value = CveCampaña
@@ -474,9 +478,12 @@ Public Class ClsEncuestas
             .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
+            .Add("@CveEncuesta", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
         Try
             SqlAdapter.Fill(Data)
+            CveEncuesta = SqlAdapter.SelectCommand.Parameters("@CveEncuesta").Value.ToString.ToEntero
             Retorno = True
         Catch ex As Exception
             OnError("Ocurrió un error al Agregar una Encuesta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)

App_Code/ClsGenerales.vb

@@ -4184,9 +4184,6 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-
-
-
     Public Function GetFolioFechaCancelacion(CveEmpresa As Integer, Tipo As Integer) As Boolean
 
         Dim Retorno As Boolean = False
@@ -4207,6 +4204,197 @@ Public Class ClsGenerales
     End Function
 
 
+#Region "C I T R I C O S"
+    Public Function GetTipoOrganicos(Optional CveEmpresa As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_TipoOrganicosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .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 Catálogo de Tipos de Orgánicos de Productos y Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddTipoOrganico(TipoOrganico As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_TipoOrganicosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@TipoOrganico", SqlDbType.VarChar).Value = TipoOrganico
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Tipo de Orgánico con el mismo nombre: " & TipoOrganico & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al Guardar el Tipo de Orgánico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al Guardar el Tipo de Orgánico", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateTipoOrganico(TipoOrganico As String, Estatus As Boolean, CveTipoOrganico As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_TipoOrganicosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@TipoOrganico", SqlDbType.VarChar).Value = TipoOrganico
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveTipoOrganico", SqlDbType.Int).Value = CveTipoOrganico
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Tipo de Orgánico con el mismo nombre: " & TipoOrganico & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar los cambios en el Tipo de Orgánico", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios en el Tipo de Orgánico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveTipoOrganico(CveTipoOrganico As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_TipoOrganicosRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveTipoOrganico", SqlDbType.Int).Value = CveTipoOrganico
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 547;") Then
+                Alert("El Tipo de Orgánico no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al eliminar el Tipo de Orgánico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar el Tipo de Orgánico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function GetEmpacados(Optional CveEmpresa As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_EmpacadosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .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 Catálogo de Empacados de Productos y Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddEmpacado(TipoEmpacado As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_EmpacadosAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@TipoEmpacado", SqlDbType.VarChar).Value = TipoEmpacado
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Empacado con el mismo nombre: " & TipoEmpacado & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar el Empacado.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar el Empacado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateEmpacado(TipoEmpacado As String, Estatus As Boolean, CveTipoEmpacado As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_EmpacadosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@TipoEmpacado", SqlDbType.VarChar).Value = TipoEmpacado
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveTipoEmpacado", SqlDbType.Int).Value = CveTipoEmpacado
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya existe un Empacado con el mismo nombre: " & TipoEmpacado & ".", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al guardar los cambios en el Empacado", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar los cambios en el Empacado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveEmpacado(CveTipoEmpacado As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Gral_EmpacadosRemove")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveTipoEmpacado", SqlDbType.Int).Value = CveTipoEmpacado
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 547;") Then
+                Alert("El Empacado no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+            Else
+                Me.OnError("Ocurrió un error al eliminar el Empacado.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar el Empacado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
 #Region "IDisposable Support"
 
 

App_Code/ClsMovimientos.vb

@@ -131,7 +131,7 @@ Public Class ClsMovimientos
     '    Return Retorno
     'End Function
 
-    Public Function GetCxCClienteDetalle(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveClienteSucursal As Integer, Optional TipoDocto As String = "-1", Optional FechaCorte As Date = MaxFecha, Optional CveIESustitucion As Integer = -1, Optional FechaVencimientoI As Date = MinFecha, Optional FechaVencimientoF As Date = MaxFecha) As Boolean
+    Public Function GetCxCClienteDetalle(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveClienteSucursal As Integer, Optional TipoDocto As String = "-1", Optional FechaCorte As Date = MaxFecha, Optional FechaVencimientoI As Date = MinFecha, Optional FechaVencimientoF As Date = MaxFecha) As Boolean
         Dim Retorno As Boolean = False
 
         FechaCorte = IIf(FechaCorte = Nothing, Date.Now.AddYears(1), FechaCorte).ToString.ToDate
@@ -147,7 +147,6 @@ Public Class ClsMovimientos
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
             .Add("@FechaCorte", SqlDbType.Date).Value = FechaCorte
-            .Add("@CveIESustitucion", SqlDbType.Int).Value = CveIESustitucion
             .Add("@FechaVencimientoI", SqlDbType.Date).Value = FechaVencimientoI
             .Add("@FechaVencimientoF", SqlDbType.Date).Value = FechaVencimientoF
         End With

App_Code/ClsNominas.vb

@@ -2593,7 +2593,7 @@ Public Class ClsNominas
         Return retorno
     End Function
 #End Region
-    Public Function GetCalculoSBC(CveEmpresa As Integer, Tipo As Integer, FechaCalculo As String) As Boolean
+    Public Function GetCalculoSBC(CveEmpresa As Integer, Tipo As Integer, FechaCalculo As String, Optional CveRegistroPatronal As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         Try
             DTSet = New DataSet()
@@ -2601,6 +2601,7 @@ Public Class ClsNominas
             With SqlAdapter.SelectCommand.Parameters
                 .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
                 .Add("@Tipo", SqlDbType.Int).Value = Tipo
+                .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
                 .Add("@Fecha", SqlDbType.Date).Value = FechaCalculo
             End With
             SqlAdapter.Fill(DTSet)

App_Code/ClsProductosServicios.vb

@@ -417,7 +417,7 @@ Public Class ClsProductosServicios
                           Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False,
                           Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False,
                           Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0,
-                          Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False) As Integer
+                          Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_ProductosServiciosAdd")
@@ -513,6 +513,10 @@ Public Class ClsProductosServicios
             .Add("@FechaVigenciaRSCO", SqlDbType.Date).Value = FechaVigenciaRSCO
             .Add("@VigenciaIndeterminadaRSCO", SqlDbType.Bit).Value = VigenciaIndeterminadaRSCO
 
+            'Nuevo MLopez 18/11/2022
+            .Add("@CveTipoEmpacado", SqlDbType.Int).Value = CveTipoEmpacado
+            .Add("@CveTipoOrganico", SqlDbType.Int).Value = CveTipoOrganico
+
         End With
 
         Try
@@ -661,7 +665,7 @@ Public Class ClsProductosServicios
                              Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False,
                              Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False,
                              Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0,
-                             Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False) As Boolean
+                             Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -757,6 +761,10 @@ Public Class ClsProductosServicios
             .Add("@FechaVigenciaRSCO", SqlDbType.Date).Value = FechaVigenciaRSCO
             .Add("@VigenciaIndeterminadaRSCO", SqlDbType.Bit).Value = VigenciaIndeterminadaRSCO
 
+            'Nuevo MLopez 18/11/2022
+            .Add("@CveTipoEmpacado", SqlDbType.Int).Value = CveTipoOrganico
+            .Add("@CveTipoOrganico", SqlDbType.Int).Value = CveTipoEmpacado
+
         End With
 
         Try
@@ -1375,7 +1383,7 @@ Public Class ClsProductosServicios
         Return Retorno
     End Function
 
-    Public Function AddPSAlias(PS As String, CvePS As Integer, Flexible As Boolean, CveUsuarioModifico As Integer) As Boolean
+    Public Function AddPSAlias(PS As String, CvePS As Integer, Flexible As Boolean, CveUsuarioModifico As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_ProductosServiciosAliasAdd")
 
@@ -1384,6 +1392,7 @@ Public Class ClsProductosServicios
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@Flexible", SqlDbType.Bit).Value = If(Flexible, 1, 0)
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try

App_Code/ClsRH.vb

@@ -1460,8 +1460,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
     Public Property Estado As String
     Public Property ClaveEstado As String
     Public Property Telefono As String
+    Public Property TelefonoEmergencia As String
     Public Property Celular As String
     Public Property LugarNacimiento As String
+    Public Property CredencialElector As String
     Public Property NombrePadre As String
     Public Property NombreMadre As String
     'RH
@@ -1673,9 +1675,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
                 Me.Estado = Data.Rows(0)("Estado").ToString
                 Me.ClaveEstado = Data.Rows(0)("ClaveEstado").ToString
                 Me.Telefono = Data.Rows(0)("Telefono").ToString
+                Me.TelefonoEmergencia = Data.Rows(0)("NombreTelEmergencia").ToString
                 Me.Celular = Data.Rows(0)("Celular").ToString
                 Me.RFC = Data.Rows(0)("RFC").ToString
                 Me.CURP = Data.Rows(0)("CURP").ToString
+                Me.CredencialElector = Data.Rows(0)("CredencialElector").ToString
                 Me.NombrePadre = Data.Rows(0)("NombrePadre").ToString
                 Me.NombreMadre = Data.Rows(0)("NombreMadre").ToString
                 Me.Cliente = Data.Rows(0)("ClienteAsignado").ToString
@@ -1849,9 +1853,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
                 Me.CveEstado = Data.Rows(0)("CveEstado").ToString.ToEntero
                 Me.Estado = Data.Rows(0)("Estado").ToString
                 Me.Telefono = Data.Rows(0)("Telefono").ToString
+                Me.TelefonoEmergencia = Data.Rows(0)("NombreTelEmergencia").ToString
                 Me.Celular = Data.Rows(0)("Celular").ToString
                 Me.RFC = Data.Rows(0)("RFC").ToString
                 Me.CURP = Data.Rows(0)("CURP").ToString
+                Me.CredencialElector = Data.Rows(0)("CredencialElector").ToString
                 Me.NombrePadre = Data.Rows(0)("NombrePadre").ToString
                 Me.NombreMadre = Data.Rows(0)("NombreMadre").ToString
                 Me.Cliente = Data.Rows(0)("ClienteAsignado").ToString
@@ -1929,7 +1935,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         SalarioDiarioSS As Double, Bono As Double, NumDiasAguinaldo As Integer, PorPrimaVacacional As Double, CveMetodoPago As Integer, FechaInicioContrato As Date, FechaFinContrato As String,
         CveTipoContrato As Integer, Ubicacion As String, CveTurno As Integer, CvePuesto As Integer, CveDepartamento As Integer, CveRuta As Integer, CveEscolaridad As Integer,
         CveEstadoCivil As Integer, CveGenero As Integer, CveMotivoBaja As Integer, FechaBaja As String, CveEstatusPersonal As Integer, FechaNacimiento As Date, LugarNacimiento As String,
-        Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, Celular As String, RFC As String, CURP As String,
+        Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, TelefonoEmergencia As String, Celular As String, RFC As String, CURP As String, CredencialElector As String,
         NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
         CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1,
@@ -1985,9 +1991,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@CveEstado", SqlDbType.VarChar).Value = CveEstado
             '.Add("@Estado", SqlDbType.VarChar).Value = Estado
             .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+            .Add("@TelefonoEmergencia", SqlDbType.VarChar).Value = TelefonoEmergencia
             .Add("@Celular", SqlDbType.VarChar).Value = Celular
             .Add("@RFC", SqlDbType.VarChar).Value = RFC
             .Add("@CURP", SqlDbType.VarChar).Value = CURP
+            .Add("@CredencialElector", SqlDbType.VarChar).Value = CredencialElector
             .Add("@NombrePadre", SqlDbType.VarChar).Value = NombrePadre
             .Add("@NombreMadre", SqlDbType.VarChar).Value = NombreMadre
             .Add("@CveClienteAsignado", SqlDbType.Int).Value = CveClienteAsignado
@@ -2060,7 +2068,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         SalarioDiarioSS As Double, Bono As Double, NumDiasAguinaldo As Integer, PorPrimaVacacional As Double, CveMetodoPago As Integer, FechaInicioContrato As Date, FechaFinContrato As String,
         CveTipoContrato As Integer, Ubicacion As String, CveTurno As Integer, CvePuesto As Integer, CveDepartamento As Integer, CveRuta As Integer, CveEscolaridad As Integer,
         CveEstadoCivil As Integer, CveGenero As Integer, CveMotivoBaja As Integer, FechaBaja As String, CveEstatusPersonal As Integer, FechaNacimiento As Date, LugarNacimiento As String,
-        Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, Celular As String, RFC As String, CURP As String,
+        Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, TelefonoEmergencia As String, Celular As String, RFC As String, CURP As String, CredencialElector As String,
         NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CvePersonal As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
         CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
@@ -2118,9 +2126,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@CveEstado", SqlDbType.VarChar).Value = CveEstado
             '.Add("@Estado", SqlDbType.VarChar).Value = Estado
             .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
+            .Add("@TelefonoEmergencia", SqlDbType.VarChar).Value = TelefonoEmergencia
             .Add("@Celular", SqlDbType.VarChar).Value = Celular
             .Add("@RFC", SqlDbType.VarChar).Value = RFC
             .Add("@CURP", SqlDbType.VarChar).Value = CURP
+            .Add("@CredencialElector", SqlDbType.VarChar).Value = CredencialElector
             .Add("@NombrePadre", SqlDbType.VarChar).Value = NombrePadre
             .Add("@NombreMadre", SqlDbType.VarChar).Value = NombreMadre
             .Add("@CveClienteAsignado", SqlDbType.Int).Value = CveClienteAsignado
@@ -7089,15 +7099,16 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             End If
 
             ListaTagsDocumentost.Add(New TagsDocumentos("{Sexo}", DtResultados(0)("Genero").ToString))
-            ListaTagsDocumentost.Add(New TagsDocumentos("{NombreEmpresa}", DtResultados(0)("Empresa").ToString))
-
             Dim SalarioDiarioTag As String = DtResultados(0)("SalarioDiario").ToString.ToDouble.Texto2Letras()
-
             ListaTagsDocumentost.Add(New TagsDocumentos("{Sueldo}", DtResultados(0)("SalarioDiario").ToString.ToDouble.ToString("###,###,###.00")))
             ListaTagsDocumentost.Add(New TagsDocumentos("{SueldoLetra}", SalarioDiarioTag))
             ListaTagsDocumentost.Add(New TagsDocumentos("{Nacionalidad}", DtResultados(0)("ClaveSATPaisDescripcion").ToString))
 
-
+            ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaNombre}", DtResultados(0)("Empresa").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaDireccion}", DtResultados(0)("EmpresaDireccion").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaCiudad}", DtResultados(0)("EmpresaCiudad").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaRFC}", DtResultados(0)("EmpresaRFC").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{EmpresaRepresentante}", DtResultados(0)("EmpresaRepresentante").ToString))
 
         End If
 

App_Code/LogicNominas.vb

@@ -10,7 +10,7 @@ Public Class LogicNominas
     Public Sub New()
         guardarLogTimbrado = False
     End Sub
-    Public Function TimbrarNomina(CveNomina As Integer, CvePersonal As Integer, CvePeriodo As Integer, UsuarioActual As Usuario, Optional CvePAC As Integer = 4) As String
+    Public Function TimbrarNomina(CveNomina As Integer, CvePersonal As Integer, CvePeriodo As Integer, UsuarioActual As Usuario, Optional CvePAC As Integer = 4, Optional versionTimbre As VersionTimbradoEnum = VersionTimbradoEnum.PorDefectoEmpresa) As String
         Dim Retorno As String = ""
         GetError = "" 'Le reasigno el current error a nulo
         Dim sw As Diagnostics.Stopwatch = Nothing
@@ -19,7 +19,7 @@ Public Class LogicNominas
 
             sw.Start()
         End If
-        Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, CvePAC) 'CvePersonal, CvePeriodo,
+        Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, versionTimbre) 'CvePersonal, CvePeriodo,
         If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then
             If Not cfdi.Timbrado Then
                 Dim ObjTimbrado As New Timbrado
@@ -28,7 +28,7 @@ Public Class LogicNominas
                 ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero()
                 ObjFactura.Serie = cfdi.Comprobante.Serie
                 ObjFactura.Timbre = cfdi
-                If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC) Then
+                If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, versionTimbre) Then
                     Retorno = ObjTimbrado.MensajeErrorCFDI
                 End If
             End If
@@ -37,7 +37,7 @@ Public Class LogicNominas
             Else
                 If hasfiniquito Then
 
-                    cfdi = PreTimbrar(CveNomina, UsuarioActual, True) 'CvePersonal, CvePeriodo,
+                    cfdi = PreTimbrar(CveNomina, UsuarioActual, True, versionTimbre) 'CvePersonal, CvePeriodo,
                     If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then
 
                         If Not cfdi.Timbrado Then
@@ -47,7 +47,7 @@ Public Class LogicNominas
                             ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero()
                             ObjFactura.Serie = cfdi.Comprobante.Serie
                             ObjFactura.Timbre = cfdi
-                            If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC) Then
+                            If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, versionTimbre) Then
                                 Retorno = ObjTimbrado.MensajeErrorCFDI
                             End If
                             If Retorno <> "" Then
@@ -81,7 +81,13 @@ Public Class LogicNominas
         Return Retorno
     End Function
     Dim hasfiniquito As Boolean
-    Public Function PreTimbrar(CveNomina As Integer, UsuarioActual As Usuario, TimbreIndemnizacion As Boolean, Optional CvePAC As Integer = 4) As CFDITimbre
+    Public Function PreTimbrar(CveNomina As Integer, UsuarioActual As Usuario, TimbreIndemnizacion As Boolean, Optional versionTimbrex As VersionTimbradoEnum = VersionTimbradoEnum.PorDefectoEmpresa) As CFDITimbre
+
+        Dim versionTimbre As VersionTimbradoEnum = versionTimbrex
+        If versionTimbre = VersionTimbradoEnum.PorDefectoEmpresa Then
+            versionTimbre = If(UsuarioActual.Empresa.Funcionalidad(350) = "1", VersionTimbradoEnum.Version4_0, VersionTimbradoEnum.Version3_3)
+        End If
+
         Dim continuar As Boolean = True
         hasfiniquito = False
         Dim CvePersonal As Integer = -1
@@ -319,7 +325,7 @@ Public Class LogicNominas
         End If
         cfdi.Nomina.CveNomina = CveNomina
 
-        cfdi.Receptor.UsoCFDI = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "CN01", "P01")
+        cfdi.Receptor.UsoCFDI = If(versionTimbre = VersionTimbradoEnum.Version4_0, "CN01", "P01")
         cfdi.Receptor.RFC = RFC
         cfdi.Receptor.Nombre = NombreCompleto
 
@@ -427,7 +433,7 @@ Public Class LogicNominas
         If ObjDeducciones IsNot Nothing AndAlso ObjDeducciones.Count > 0 Then cfdi.Nomina.Deducciones = ObjDeducciones
 
 
-        cfdi.Comprobante.Version = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "4.0", "3.3")
+        cfdi.Comprobante.Version = If(versionTimbre = VersionTimbradoEnum.Version4_0, "4.0", "3.3")
         cfdi.Comprobante.Serie = Serie
         cfdi.Comprobante.Folio = Folio
         cfdi.Comprobante.Fecha = Now
@@ -439,8 +445,8 @@ Public Class LogicNominas
         cfdi.Comprobante.TipoComprobante = "N"
         cfdi.Comprobante.TipoDocto = "Egs"
         cfdi.Comprobante.MetodoPago = "PUE"
-        cfdi.Comprobante.CondicionesdePago = If(CvePAC < 4, "CONTADO", "") '"" '""
-        cfdi.Comprobante.FormadePago = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "", "99")
+        cfdi.Comprobante.CondicionesdePago = "" '"CONTADO"
+        cfdi.Comprobante.FormadePago = If(versionTimbre = VersionTimbradoEnum.Version4_0, "", "99")
         cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL
         cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta
         '4.0

App_Code/Timbrado.vb

@@ -12,6 +12,12 @@ Imports Extensiones
 Imports Newtonsoft.Json.Linq
 Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20
 
+
+Public Enum VersionTimbradoEnum As Integer
+    PorDefectoEmpresa = -1
+    Version3_3 = 1
+    Version4_0 = 2
+End Enum
 Public Class Timbrado
 
 #Region "P R O P I E D A D E S"
@@ -1192,11 +1198,14 @@ Public Class Timbrado
         Return Timbre
 
     End Function
-    Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1) As Boolean
+    Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1, Optional versionTimbre As VersionTimbradoEnum = VersionTimbradoEnum.PorDefectoEmpresa) As Boolean
 
         Dim Retorno As Boolean = False
         Dim tCvePAC As Integer = UsuarioActual.Empresa.CvePAC
         If CvePACEspecial <> -1 Then tCvePAC = CvePACEspecial
+        If versionTimbre = VersionTimbradoEnum.PorDefectoEmpresa Then
+            versionTimbre = If(UsuarioActual.Empresa.Funcionalidad(350) = "1", VersionTimbradoEnum.Version4_0, VersionTimbradoEnum.Version3_3)
+        End If
 
         'validación especial. 
         If Ventas.TipoDocto.Contiene("Ing", "Dev") Then
@@ -1228,15 +1237,15 @@ Public Class Timbrado
                 Retorno = If(Ret = "", True, False)
 
             Case 3
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
-                    Retorno = TimbrarFacturaProFactv40(UsuarioActual, Ventas)
+                If versionTimbre = VersionTimbradoEnum.Version4_0 Then
+                    Retorno = TimbrarFacturaProFactV40(UsuarioActual, Ventas)
                 Else
                     Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas)
                 End If
 
                     'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
             Case 4
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                If versionTimbre = VersionTimbradoEnum.Version4_0 Then
                     Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial)
                     If Ret <> "" Then MensajeErrorCFDI = Ret
                     Retorno = If(Ret = "", True, False)
@@ -1248,7 +1257,7 @@ Public Class Timbrado
 
 
             Case 5
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                If versionTimbre = VersionTimbradoEnum.Version4_0 Then
                     Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial)
                     If Ret <> "" Then MensajeErrorCFDI = Ret
                     Retorno = If(Ret = "", True, False)

App_Code/modExtensiones.vb

@@ -71,7 +71,7 @@ Namespace Extensiones
             Dim dataTable As DataTable = New DataTable()
             Dim worksheet As GemBox.Spreadsheet.ExcelWorksheet = excelFile.Worksheets(0)
 
-            For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
+            For cols = 0 To worksheet.Rows(curRow).AllocatedCells.Count - 1
 
                 If firstRowHasHeaders Then
 
@@ -80,12 +80,14 @@ Namespace Extensiones
                     Else
                         dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
                     End If
+
                 Else
                     dataTable.Columns.Add("Column " & (cols + 1))
                 End If
             Next
-            If firstRowHasHeaders Then curRow += 1
-
+            If firstRowHasHeaders Then
+                curRow = curRow + 1
+            End If
             While curRow < worksheet.Rows.Count
                 columns = New String(cols - 1) {}
 

Bancos/DepositoTerminal.aspx.vb

@@ -142,8 +142,8 @@ Partial Class Bancos_DepositoTerminal
             IdCuentaBancaria = 0
             IdCuentaBancariaComplementaria = 0
 
-            CveCuentaBancaria = 0
-            CveCuentaBancariaComplementaria = 0
+            'CveCuentaBancaria = 0
+            'CveCuentaBancariaComplementaria = 0
         End If
 
         If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
@@ -259,7 +259,7 @@ Partial Class Bancos_DepositoTerminal
                                 ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
 
                                 IdCuentaBancaria = 0
-                                CveCuentaBancaria = 0
+                                'CveCuentaBancaria = 0
                             End If
 
                             If gvr.DataKey("CveMoneda").ToEntero = 2 Then
@@ -436,14 +436,14 @@ Partial Class Bancos_DepositoTerminal
                     Next
 
                     If IdCuentaBancariaComplementaria > 0 Then
-                        If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then
+                        If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal) Then
                             MsgError = "No se pudo insertar la póliza"
                         End If
-                        If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancariaComplementaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancariaComplementaria) Then
+                        If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancariaComplementaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal) Then
                             MsgError = "No se pudo insertar la póliza"
                         End If
                     Else
-                        If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then
+                        If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal) Then
                             MsgError = "No se pudo insertar la póliza"
                         End If
                     End If

CRM/Acercamiento.aspx

@@ -77,6 +77,11 @@
         .MultiLineTextBox {
             resize: none;
         }
+
+
+        .listTerminado{            
+            text-decoration: line-through;
+        }
     </style>
 
     <style>
@@ -587,7 +592,7 @@
                                                     <div class="col-md-12">
 
                                                         <asp:GridView ID="GVcheklist" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVcheklist mysmallbtn" AutoGenerateColumns="False"
-                                                            DataKeyNames="CveEventoCheckList,CveEvento,CveTipoEvento,EventoComentario,Estatus,CveUsuario,Usuario,FechaIng">
+                                                            DataKeyNames="CveEventoCheckList,CveEvento,CveTipoEvento,EventoComentario,Estatus,CveUsuario,Usuario,FechaIng"  OnRowDataBound="GVcheklist_RowDataBound">
                                                             <Columns>
                                                                 <asp:TemplateField HeaderText="" ItemStyle-Width="30">
                                                                     <ItemTemplate>
@@ -598,7 +603,7 @@
                                                                     <ItemTemplate>
                                                                         <%--<pre>--%>
                                                                         <span class="pre">
-                                                                            <asp:Literal ID="lbleventoComentario" runat="server" Text='<%# Eval("EventoComentario")%>'> </asp:Literal>
+                                                                            <asp:Label  ID="lbleventoComentario" runat="server" Text='<%# Eval("EventoComentario")%>'> </asp:Label>
                                                                         </span>
                                                                         <%--</pre>--%>
                                                                     </ItemTemplate>
@@ -1255,7 +1260,7 @@
                             <div class="form-group form-md-line-input input-iconright">
                                 <div class="col-md-4 input-group input-sm date date-picker" data-date-format="dd/mm/yyyy hh:mm">
 
-                                    <asp:TextBox ID="TxtFechaInicioAgenda" runat="server" Width="100%" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18"></asp:TextBox>
+                                    <asp:TextBox ID="TxtFechaInicioAgenda" runat="server" Width="100%" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" autocomplete="false" ></asp:TextBox>
                                     <label for="<%= TxtFechaInicioAgenda.ClientID.ToString()%>"><span style='color: #F3565D'>*</span> Fecha de Inicio:</label>
                                 </div>
                                 <asp:RequiredFieldValidator ID="RFVFechaInicioAgenda" CssClass="help-block errorimput" runat="server" ControlToValidate="TxtFechaInicioAgenda" ErrorMessage="<b><span style='text-decoration: underline'>ERROR</span></b>: El campo <b>''Fecha de Inicio''</b> es necesario, por favor ingréselo." ValidationGroup="VGGuardarAgenda"></asp:RequiredFieldValidator>
@@ -1702,6 +1707,10 @@
 
         }
 
+        function retFalse() {
+            return false;
+        }
+
     </script>
     <script
         src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAJnZ1CoEUX425C20aqzFw4dYxFL_LfThk&libraries=places">

CRM/Acercamiento.aspx.cs

@@ -312,6 +312,7 @@ public partial class CRM_Acercamiento : ClsPaginas
                 CargaCheckLis();
             }
             CargarPS();
+            //BtnGuardarAcercamiento.Visible = true;
         }
     }
 
@@ -1087,12 +1088,12 @@ public partial class CRM_Acercamiento : ClsPaginas
             if (CveEtapa == -1)
             {
                 GVEventoBitacora.DataSource = DTEventosBitacora.FiltraParametros(String.Format("[Archivo] = '' OR [Archivo] IS NULL OR CONVERT([Descripcion],System.String)  LIKE 'Check List%'", CveEtapa));
-                RptArchivosBitacora.DataSource = DTEventosBitacora.FiltraParametros(String.Format("[Archivo] <> ''", CveEtapa));
+                RptArchivosBitacora.DataSource = DTEventosBitacora.FiltraParametros(String.Format("[Archivo] <> '' AND CONVERT([Descripcion],System.String) NOT LIKE 'Check List%'", CveEtapa));
             }
             else
             {
                 GVEventoBitacora.DataSource = DTEventosBitacora.FiltraParametros(String.Format("[CveEtapaProcesoCRM] = {0} AND ( [Archivo] = '' OR [Archivo] IS NULL ) OR CONVERT([Descripcion],System.String)  LIKE 'Check List%'", CveEtapa));
-                RptArchivosBitacora.DataSource = DTEventosBitacora.FiltraParametros(String.Format("[CveEtapaProcesoCRM] = {0} AND [Archivo] <> '' OR CONVERT([Descripcion],System.String)  LIKE 'Check List%'", CveEtapa));
+                RptArchivosBitacora.DataSource = DTEventosBitacora.FiltraParametros(String.Format("[CveEtapaProcesoCRM] = {0} AND [Archivo] <> '' AND CONVERT([Descripcion],System.String) NOT LIKE 'Check List%'", CveEtapa));
             }
         }
         else
@@ -1291,7 +1292,7 @@ public partial class CRM_Acercamiento : ClsPaginas
         var responseGenericGetDatosTecnicosEmpresaCRM = encuestaService.GetDatosTecnicosEmpresaCRM(new RequestDatosTecnicosEmpresaCRMGet() { CveEmpresa = UsuarioActual.Empresa.CveEmpresa, CveEncuesta = CveEncuestaProcesoCRM, CveEncuestaAplicada = CveEncuestaAplicadaProceso, CvePregunta = -1 });
         if (responseGenericGetDatosTecnicosEmpresaCRM.IsSuccess)
         {
-            GvDatosTecnicos.DataSource = responseGenericGetDatosTecnicosEmpresaCRM.Result;
+            GvDatosTecnicos.DataSource = responseGenericGetDatosTecnicosEmpresaCRM.Result.ToDataTable() ;
             if (responseGenericGetDatosTecnicosEmpresaCRM.Result.Count > 0)
             {
                 GvDatosTecnicos.Visible = true;
@@ -1359,9 +1360,14 @@ public partial class CRM_Acercamiento : ClsPaginas
                         }
 
                         if (e.Row.DataKey("Valor").ToString() != "")
+                        {
+                            try
                             {
                                 e.Row.FCRadioButtonList("RdlRespuestaDinamica").SelectedValue = e.Row.FCRadioButtonList("RdlRespuestaDinamica").Items.FindByText(e.Row.DataKey("Valor").ToString()).Value;
                             }
+                            catch { }
+                            
+                        }
 
                         //e.Row.FCRequiredFieldValidator("RFVRdlRespuestaDinamica").ErrorMessage = string.Format("<i><span style='color: darkred;'>Campo requerido</span></i>");
                         break;
@@ -1515,19 +1521,45 @@ public partial class CRM_Acercamiento : ClsPaginas
                     }
             }
 
-            var responnseModelUpdateDatosTecnicosCRM = encuestaService.UpdateDatosTecnicosCRM(new RequestDatosTecnicosCRMUpdate() { CveEncuestaAplicadaDetalle = CveEncuestaAplicadaDetalle, CveEncuestaAplicada = CveEncuestaAplicada, CvePregunta = CvePregunta, CveRespuesta = CveRespuesta, Respuesta = Respuesta });
-            var responnseModelAddEncuestaAplicadaDetalle = encuestaService.AddEncuestaAplicadaDetalle(new RequestEncuestaAplicadaDetalleAdd() { CveEncuestaAplicada = _CveEncuestaAplicada, CvePregunta = CvePregunta, CveRespuesta = CveRespuesta, Valor = Respuesta });
             //ACTUALIZAMOS LOS DATOS TECNICOS
+            if (CveEncuestaAplicadaDetalle > 0)
+            {
+
+                var responnseModelUpdateDatosTecnicosCRM = encuestaService.UpdateDatosTecnicosCRM(new RequestDatosTecnicosCRMUpdate() { CveEncuestaAplicadaDetalle = CveEncuestaAplicadaDetalle, CveEncuestaAplicada = CveEncuestaAplicada, CvePregunta = CvePregunta, CveRespuesta = CveRespuesta, Respuesta = Respuesta });
+
+
                 if (ExisteRegistro && !responnseModelUpdateDatosTecnicosCRM.IsSuccess)
                 {
                     //SI HAY ERROR REGRESA 0
                     _CveEncuestaAplicada = 0;
                 }
-            else if (!ExisteRegistro && !responnseModelAddEncuestaAplicadaDetalle.IsSuccess)
+
+
+               
+            }
+            else
+            {
+                var responnseModelAddEncuestaAplicadaDetalle = encuestaService.AddEncuestaAplicadaDetalle(new RequestEncuestaAplicadaDetalleAdd() { CveEncuestaAplicada = _CveEncuestaAplicada, CvePregunta = CvePregunta, CveRespuesta = CveRespuesta, Valor = Respuesta });
+                if (!ExisteRegistro && !responnseModelAddEncuestaAplicadaDetalle.IsSuccess)
                 {
                     //SI HAY ERROR REGRESA 0
                     _CveEncuestaAplicada = 0;
                 }
+            }
+
+            
+            
+            ////ACTUALIZAMOS LOS DATOS TECNICOS
+            //if (ExisteRegistro && !responnseModelUpdateDatosTecnicosCRM.IsSuccess)
+            //{
+            //    //SI HAY ERROR REGRESA 0
+            //    _CveEncuestaAplicada = 0;
+            //}
+            //else if (!ExisteRegistro && !responnseModelAddEncuestaAplicadaDetalle.IsSuccess)
+            //{
+            //    //SI HAY ERROR REGRESA 0
+            //    _CveEncuestaAplicada = 0;
+            //}
 
             ////ACTUALIZAMOS LOS DATOS TECNICOS
             //if (ExisteRegistro && !(ObjDatosTecnicos.UpdateDatosTecnicosCRM(CveEncuestaAplicadaDetalle, CveEncuestaAplicada, CvePregunta, CveRespuesta, Respuesta)))
@@ -2042,4 +2074,21 @@ public partial class CRM_Acercamiento : ClsPaginas
 
     #endregion
 
+
+    protected void GVcheklist_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow) {
+
+            var Estatus = Boolean.Parse(e.Row.DataKey("Estatus"));
+            CheckBox chk = e.Row.FCCheckBox("");
+
+            if (Estatus)
+            {
+                e.Row.FCLabel("lbleventoComentario").Attributes.Add("class", "listTerminado");
+                
+            }
+            
+        }
+
+    }
 }

CRM/CatTipoProceso.aspx

@@ -38,7 +38,7 @@
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVTiposProcesos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
             </div>
             <asp:GridView ID="GVTiposProcesos" runat="server" DataKeyNames="CveTipoProceso,TipoProceso, Descripcion, NoEtapas, Estatus, CveEstatus, UsuarioIng, CveUsuarioIng, FechaIng,
-                RequiereMedioCaptacion,RequiereImporte,RequiereProbabilidadAcercamiento,RequierePS,RequiereComision"
+                RequiereMedioCaptacion,RequiereImporte,RequiereProbabilidadAcercamiento,RequierePS,RequiereComision,CveEncuesta"
                 EmptyDataText="No se han registrado Tipos de Procesos"
                 EmptyDataRowStyle-HorizontalAlign="Center" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" data-sort="true"
                 GridLines="None" AutoGenerateColumns="false" OnRowDeleting="GVTiposProcesos_RowDeleting" OnRowDataBound="GVTiposProcesos_RowDataBound">
@@ -73,6 +73,17 @@
                             <asp:Label ID="lblUsuarioIng" runat="server" Text='<%# Eval("UsuarioIng")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+                       <asp:TemplateField HeaderText="Encuesta" ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Center">
+                                <ItemTemplate>
+                                    <asp:LinkButton ID="LnkEncuesta" runat="server" AlternateText="Usuarios Asignados" CausesValidation="False"
+                                        Width="24.1px"
+                                        OnClick="LnkEncuesta_Click" 
+                                        CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-list''></i>" 
+                                         />
+                                </ItemTemplate>
+                            </asp:TemplateField>
+
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderText="Comandos">
                         <ItemTemplate>
                             <asp:LinkButton ID="LnkEditar" runat="server" OnClick="LnkEditar_Click" data-toggle="tooltip" CssClass="btn btn-circle btn-sm green" title="Editar" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
@@ -83,6 +94,7 @@
             </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
+
     <div id="DivModalTipoProceso" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel class="modal-dialog" runat="server" ID="UPModalTipoProceso" UpdateMode="Conditional">
             <ContentTemplate>
@@ -144,6 +156,190 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
+
+
+    <%--ENCUESTA INICIO--%>
+
+    <div id="DVModalEncuesta" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalEncuesta" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content" style="width:1000px!important">
+                    <div class="modal-header ">
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LltlModalEncuestaTitulo" Text="Encuesta" runat="server"> </asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="row">
+                            <div class="col-md-12" style="text-align: right!important">
+                                <asp:LinkButton runat="server" ID="LnkAgregarPregunta" OnClick="LnkAgregarPregunta_Click" Style="margin-left: 10px;" data-toggle="tooltip" title="Agregar"
+                                    class="btn btn-circle btn-sm blue"><i class="fa fa-plus"></i> Agregar Pregunta</asp:LinkButton>
+                            </div>
+                        </div>
+
+                        <div class="row">
+                            <div class="col-md-12">
+
+                                <asp:GridView runat="server" ID="GvEstructura" DataKeyNames="Tipo,CvePregunta,CveRespuesta,Respuesta,Pregunta,RespuestaDefault,CveTema,Tema,CveTipoPregunta,TipoPregunta"
+                                    EmptyDataText="No se encontraron registros"
+                                    OnRowDataBound="GvEstructura_RowDataBound" GridLines="None" AutoGenerateColumns="false" CssClass="table table-advance table-hover Widthall mysmallbtn">
+                                    <Columns>
+                                        <asp:TemplateField HeaderText="Tema / Tipo de Pregunta">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlTipoPregunta" Visible="True" runat="server" Text='<%# Eval("TipoPregunta")%>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:TemplateField HeaderText="Pregunta">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlPregunta" Visible="False" runat="server" Text='<%# Eval("Pregunta")%>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:TemplateField HeaderText="Respuesta Default">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlDefault" runat="server" Text=''></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:TemplateField HeaderText="Respuesta">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlRespuesta" Visible="false" runat="server" Text='<%# Eval("Respuesta")%>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:TemplateField ItemStyle-Width="40px">
+                                            <ItemTemplate>
+                                                <asp:LinkButton ID="ImgA" Visible="false" runat="server" AlternateText="Agregar" OnClick="AddEstructura" CssClass="btn blue btn-outline btn-circle btn-sm" 
+                                                    Text="<i class='fa fa-plus'></i> Agregar Respuesta" />
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:TemplateField ItemStyle-Width="40px">
+                                            <ItemTemplate>
+                                                <asp:LinkButton Visible="false" ID="imgE" runat="server" AlternateText="Editar" OnClick="UpdateEstructura" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:TemplateField ItemStyle-Width="40px">
+                                            <ItemTemplate>
+                                                <asp:LinkButton Visible="false" ID="imgD" runat="server" AlternateText="Eliminar" OnClick="EliminarEstructura" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Estas seguro que desea eliminar?" data-btn-ok-label="si" />
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+
+                            </div>
+                        </div>
+
+
+
+
+
+                    </div>
+                    <div class="modal-footer">
+                        <%--<asp:Button ID="Button1" OnClick="BtnGuardar_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="VGGuardar" />--%>
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+
+        <div id="DVModalPreguntas" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalPreguntas" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlPregunta" runat="server">Agregar Pregunta</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+
+                 
+
+                        <div class="row">
+                            <div class="form-group col-md-6 form-md-line-input input-iconright">
+                                <asp:DropDownList ID="DdlTipoPregunta" OnSelectedIndexChanged="DdlTipoPregunta_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control input-sm select2me js-movimiento-programmatic" runat="server" CausesValidation="true" AppendDataBoundItems="true" Width="240px" ValidationGroup="GrpPregunta">
+                                    <asp:ListItem Value="-1" Text="Seleccione"></asp:ListItem>
+                                    <asp:ListItem Value="1" Text="Pregunta Abierta"></asp:ListItem>
+                                    <asp:ListItem Value="6" Text="Pregunta Abierta Multitexto"></asp:ListItem>
+                                    <asp:ListItem Value="2" Text="Opción Múltiple"></asp:ListItem>
+                                    <asp:ListItem Value="3" Text="Lista de Selección"></asp:ListItem>
+                                    <asp:ListItem Value="4" Text="Si/No"></asp:ListItem>
+                                    <asp:ListItem Value="5" Text="Entero"></asp:ListItem>
+                                    <asp:ListItem Value="7" Text="Fecha"></asp:ListItem>
+                                </asp:DropDownList>
+                                <asp:RequiredFieldValidator ID="RFVTipoPregun" runat="server" ControlToValidate="DdlTipoPregunta" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPregunta"></asp:RequiredFieldValidator>
+                                <label for="<%= DdlTipoPregunta.ClientID.ToString()%>" style="width: 240px">Tipo Pregunta:</label>
+                            </div>
+                            <div runat="server" id="DivChkrespuestaDefult" visible="false" class="form-group col-md-6 form-md-line-input input-iconright">
+                                <asp:CheckBox ID="ChkRespuestaDefault" Style="padding-top: 11px;" runat="server" CssClass="form-control make-switchsd" BorderStyle="None" data-size="small"></asp:CheckBox>
+                                <label for="ChkRespuestaDefault.ClientID.ToString()" style="">Respuesta Default: </label>
+                            </div>
+                        </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtPregunta" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVPregunta" runat="server" ControlToValidate="TxtPregunta" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPregunta"></asp:RequiredFieldValidator>
+                            <label for="<%= TxtPregunta.ClientID.ToString()%>">Pregunta:</label>
+                        </div>
+
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="LbAgregarPregunta" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpPregunta" OnClick="LbAgregarPregunta_Click" />
+                        <button id="LbCancelarPregunta" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+        <div id="ModalRespuestas" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalRespuestas" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlRespuesta" runat="server">Agregar Respuesta</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+
+                     <%--   <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlPregunta" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" Enabled="true" AppendDataBoundItems="true" DataTextField="Pregunta" DataValueField="CvePregunta" Width="240px" CausesValidation="true" ValidationGroup="GrpRespuesta"></asp:DropDownList>
+                            <asp:RequiredFieldValidator ID="RFVPreguntaResp" runat="server" ControlToValidate="DdlPregunta" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pregunta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRespuesta"></asp:RequiredFieldValidator>
+                            <label for="<%= DdlPregunta.ClientID.ToString()%>" style="width: 240px">Pregunta:</label>
+                        </div>--%>
+
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtRespuesta" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVRespuesta" runat="server" ControlToValidate="TxtRespuesta" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Respuesta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRespuesta"></asp:RequiredFieldValidator>
+                            <label for="<%= TxtRespuesta.ClientID.ToString()%>">Respuesta:</label>
+                        </div>
+
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:CheckBox runat="server" ID="ChkSeguirRespondiendo" Text="Seguir Respondiendo" />
+                        </div>
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:Button ID="LbAgregarRespuesta" OnClick="LbAgregarRespuesta_Click" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpRespuesta" />
+                        <button id="LbCancelarRespuesta" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+
+
+    <%--ENCUESTA FIN --%>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">

CRM/CatTipoProceso.aspx.cs

@@ -7,6 +7,9 @@ using System.Web.UI.WebControls;
 using System.Data;
 using Microsoft.Reporting.WebForms;
 using Extensiones;
+using System.ComponentModel.Design;
+using DocumentFormat.OpenXml.Wordprocessing;
+using Profact.TimbraCFDI33.Complementos.CartaPorte10;
 
 public partial class CRM_CatTipoProceso : ClsPaginas
 {
@@ -47,6 +50,108 @@ public partial class CRM_CatTipoProceso : ClsPaginas
             ViewState["CveTipoProceso"] = value;
         }
     }
+
+
+    private int CvePregunta{
+        get
+        {
+            if (ViewState["CvePregunta"] == null)
+            {
+                ViewState["CvePregunta"] = -1;
+            }
+            return ViewState["CvePregunta"].ToString().ToEntero();
+        }
+        set{
+            ViewState["CvePregunta"] = value;
+        }
+    }
+
+    
+
+    //private int CveCampana
+    //{
+    //    get
+    //    {
+    //        if(ViewState["CveCampana"] == null)
+    //        {
+    //            ViewState["CveCampana"] = -1;
+    //        }
+    //        return ViewState["CveCampana"].ToString().ToEntero();
+    //    }
+
+    //    set
+    //    {
+    //        ViewState["CveCampana"] = value;
+    //    }
+    //}
+
+    //private int CveTipoEncuesta
+    //{
+    //    get
+    //    {
+    //        if (ViewState["CveTipoEncuesta"] == null)
+    //        {
+    //            ViewState["CveTipoEncuesta"] = -1;
+    //        }
+
+    //        return ViewState["CveTipoEncuesta"].ToString().ToEntero();
+    //    }
+
+    //    set
+    //    {
+    //        ViewState["CveTipoEncuesta"] = value;
+    //    }
+    //}
+
+    private int CveEncuesta
+    {
+        get
+        {
+            if (ViewState["CveEncuesta"] == null)
+            {
+                ViewState["CveEncuesta"] = -1;
+            }
+            return ViewState["CveEncuesta"].ToString().ToEntero();
+        }
+        set
+        {
+            ViewState["CveEncuesta"] = value;
+        }
+    }
+
+    private int CveTema
+    {
+        get
+        {
+            if (ViewState["CveTema"] == null)
+            {
+                ViewState["CveTema"] = -1;
+            }
+            return ViewState["CveTema"].ToString().ToEntero();
+        }
+        set
+        {
+            ViewState["CveTema"] = value;
+        }
+    }
+
+
+    private int CveRespuesta
+    {
+        get
+        {
+            if (ViewState["CveRespuesta"] == null)
+            {
+                ViewState["CveRespuesta"] = -1;
+            }
+            return ViewState["CveRespuesta"].ToString().ToEntero();
+        }
+        set
+        {
+            ViewState["CveRespuesta"] = value;
+        }
+    }
+
     #endregion
     protected void Page_Load(object sender, EventArgs e)
     {
@@ -227,4 +332,555 @@ public partial class CRM_CatTipoProceso : ClsPaginas
 
         ImprimirPDF("Empresas/Grales/Formatos/RepCatTipoProceso.rdlc", TmpDT, param, "Report Cat Tipo Proceso", formato, RDSName: "DataSet1");
     }
+
+
+
+
+    #region "ENCUESTAS"
+
+    private bool ValidaEncuesta(int CveTipoProcesoEnc, string TipoProcesEnc)       
+    {
+        //CveCampana = -1;
+        //CveTipoEncuesta = -1;
+
+        //CveEncuesta = -1;        
+
+        bool respuesta = false;
+        bool ActualizarDatos = false;
+
+        ClsEncuestas objEcuesta = new ClsEncuestas();
+        objEcuesta.IniciaTransacSQL();
+
+        int CveCampanaVal = 0;
+        int CveTipoEncuestaVal = 0;
+       
+
+        if ( objEcuesta.GetCampañas(-1, -1, UsuarioActual.CveEmpresa))
+        {
+            CveCampanaVal = ModExtensiones.FiltroPrimeroValor(objEcuesta.DtResultados, "CveCampana", $" Campana = 'CRM Tipos de Procesos'").ToEntero();
+
+            if(!(CveCampanaVal > 0))            
+            {
+
+                if (objEcuesta.AddCampañas("CRM Tipos de Procesos", "CRM Tipos de Procesos", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+                {
+                    if (objEcuesta.GetCampañas(-1, -1, UsuarioActual.CveEmpresa))
+                    {
+                        CveCampanaVal = ModExtensiones.FiltroPrimeroValor(objEcuesta.DtResultados, "CveCampana", $" Campana = 'CRM Tipos de Procesos'").ToEntero();                       
+                    }
+                }
+            }
+        }
+
+
+        if(CveCampanaVal > 0)
+        {
+            if (objEcuesta.GetTiposEncuestas(-1, -1, UsuarioActual.CveEmpresa))
+            {
+                CveTipoEncuestaVal  = ModExtensiones.FiltroPrimeroValor(objEcuesta.DtResultados, "CveTipoEncuesta", $" TipoEncuesta = 'CRM Tipos de Procesos'").ToEntero();
+
+                if (!(CveTipoEncuestaVal > 0))
+                {
+                    if (objEcuesta.AddTiposEncuestas("CRM Tipos de Procesos", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,6))
+                    {
+                        if (objEcuesta.GetTiposEncuestas(-1, -1, UsuarioActual.CveEmpresa))
+                        {
+                            CveTipoEncuestaVal = ModExtensiones.FiltroPrimeroValor(objEcuesta.DtResultados, "CveTipoEncuesta", $" TipoEncuesta = 'CRM Tipos de Procesos'").ToEntero();                           
+
+                            if (!(CveTipoEncuestaVal > 0))
+                            {                                
+                                Alert("No se pudo obtener el Tipo de encuesta", ModExtensiones.TipoMensaje.MsgAdvertencia);
+                            }                                                       
+                        }
+                    }
+                }
+            }
+        }
+        else
+        {
+            Alert("No se pudo obtener la campaña", ModExtensiones.TipoMensaje.MsgAdvertencia);
+        }       
+
+        if(CveCampanaVal > 0 && CveTipoEncuestaVal > 0 && CveTema > 0 && CveEncuesta <= 0)
+        {
+            if(objEcuesta.AddEncuesta(CveCampanaVal, -1,$"CRM {TipoProcesEnc}", $"CRM {TipoProcesEnc}",0, CveTipoEncuestaVal, false, DateTime.Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoProceso: CveTipoProcesoEnc))
+            {
+                CveEncuesta = objEcuesta.CveEncuesta;
+                respuesta = true;
+                ActualizarDatos = true;
+            }
+        }
+
+        if (respuesta)
+        {
+            objEcuesta.Commit();
+        }
+        else
+        {
+            objEcuesta.RollBack();
+        }
+
+        objEcuesta.Dispose();
+
+
+        if (ActualizarDatos)
+        {
+            CargaDatos();
+        }
+
+        return respuesta;
+    }
+
+    private bool ValidaEncuestaTemaPreguntas()
+    {
+
+        CveTema = -1;
+
+        bool respuesta = false;
+
+        ClsEncuestas objEcuesta = new ClsEncuestas();
+        objEcuesta.IniciaTransacSQL();
+
+        int CveTemaVal = 0;
+
+        if (objEcuesta.GetTemasEncuestas(-1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+        {
+            CveTemaVal = ModExtensiones.FiltroPrimeroValor(objEcuesta.DtResultados, "CveTema", $" Tema = 'CRM Tipos de Procesos'").ToEntero();
+
+            if (CveTemaVal > 0)
+            {
+                CveTema = CveTemaVal;
+                respuesta = true;
+            }
+            else
+            {
+                if (objEcuesta.AddTemasEncuestas("CRM Tipos de Procesos", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+                {
+                    if (objEcuesta.GetTemasEncuestas(-1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+                    {
+                        CveTemaVal = ModExtensiones.FiltroPrimeroValor(objEcuesta.DtResultados, "CveTema", $" Tema = 'CRM Tipos de Procesos'").ToEntero();
+                        CveTema = CveTemaVal;
+
+                        if (CveTema > 0)
+                        {
+                            respuesta = true;
+                        }
+                        else
+                        {
+                            Alert("No se pudo obtener el tema de las preguntas", ModExtensiones.TipoMensaje.MsgAdvertencia);
+                        }
+                    }
+                }
+            }
+        }
+
+        if (respuesta)
+        {
+            objEcuesta.Commit();
+        }
+        else
+        {
+            objEcuesta.RollBack();
+        }
+
+        objEcuesta.Dispose();
+
+
+        return respuesta;
+
+    }
+
+
+    protected void LnkEncuesta_Click(object sender, EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+
+        int CveTipoProcesoEnc = GvRow.DataKey("CveTipoProceso").ToEntero();
+        string  TipoProcesEnc = GvRow.DataKey("TipoProceso");
+        CveEncuesta = GvRow.DataKey("CveEncuesta").ToEntero();
+        //Literal LltlModalEncuestaTitulo = GvRow.FCLiteral("LltlModalEncuestaTitulo");
+        
+        if (!ValidaEncuestaTemaPreguntas())
+        {
+            return;
+        }
+
+        if (!(CveEncuesta > 0))
+        {
+            if (!ValidaEncuesta(CveTipoProcesoEnc, TipoProcesEnc) )
+            {
+                return;
+            }        
+        }
+
+       
+
+        LltlModalEncuestaTitulo.Text = $"Encuesta {TipoProcesEnc}";
+        UpModalEncuesta.Update();
+        CargaEstructura(CveEncuesta);
+        RegistraScript("$('#DVModalEncuesta').modal('show');");
+
+       // Alert($"CveEncuesta: {CveEncuesta} <br> CveTema:{CveTema}");        
+    }
+
+    #endregion
+
+
+    protected void LnkAgregarPregunta_Click(object sender, EventArgs e)
+    {
+        CvePregunta = -1;
+        LimpiaControlesModalEncuesta();
+
+        RegistraScript("$('#DVModalPreguntas').modal('show');");
+    }
+
+    private void LimpiaControlesModalEncuesta()
+    {
+        TxtPregunta.Text = " ";
+        DdlTipoPregunta.SelectedIndex = 0;
+        DivChkrespuestaDefult.Visible = false;
+        ChkRespuestaDefault.Checked = true;
+        UpModalPreguntas.Update();
+    }
+    protected void DdlTipoPregunta_SelectedIndexChanged(object sender, EventArgs e)
+    {
+        // REVISAR PORQUE NO ENTRA BIEN AQUI, DIV MAL CERRADO???
+        if (DdlTipoPregunta.SelectedValue == "4")
+            DivChkrespuestaDefult.Visible = true;
+        else
+            DivChkrespuestaDefult.Visible = false;
+        UpModalPreguntas.Update();
+    }
+
+
+    protected void LbAgregarPregunta_Click(object sender, EventArgs e)
+    {   
+        ClsEncuestas Objeto = new ClsEncuestas();
+        
+        Objeto.IniciaTransacSQL();//ESTA TRANSACCIONADO POR QUE EL UPDATE ELIMINA RESPUESTAS CUANDO SE CAMBIA EL TIPO DE PREGUNTA
+
+        bool errorProceso = true;
+
+        int RespuestaDefault = -1;
+        if (DdlTipoPregunta.SelectedValue.ToEntero() == 4)
+        {
+            RespuestaDefault = ChkRespuestaDefault.Checked ? 1 : 0;
+        }
+
+
+
+        if (CvePregunta> 0)
+        {
+            if (Objeto.UpdatePreguntas(CvePregunta, TxtPregunta.Text, DdlTipoPregunta.SelectedValue.ToEntero(), CveTema, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RespuestaDefault))
+            {
+                Alert("La Pregunta se actualizó correctamente.", ModExtensiones.TipoMensaje.ToastInformacion);
+                errorProceso = false;                
+            }         
+        }
+        else
+        {
+            if (Objeto.AddPreguntas(TxtPregunta.Text, CveEncuesta, DdlTipoPregunta.SelectedValue.ToEntero(), CveTema, UsuarioActual.CveUsuario, RespuestaDefault))
+            {
+                Alert("La Pregunta se agregó correctamente.", ModExtensiones.TipoMensaje.ToastInformacion);
+                errorProceso = false;                
+            }
+        }
+
+        
+        
+        if (errorProceso)//ESTA TRANSACCIONADO POR QUE EL UPDATE ELIMINA RESPUESTAS CUANDO SE CAMBIA EL TIPO DE PREGUNTA
+        {
+            Objeto.RollBack();
+        }
+        else
+        {
+            Objeto.Commit();
+        }
+
+
+        Objeto.Dispose();
+
+
+
+        if (!errorProceso)
+        {
+            CargaEstructura(CveEncuesta);
+            RegistraScript("$('#DVModalPreguntas').modal('hide');");
+        }
+
+    }
+
+    private void CargaEstructura(int tCveEncuesta)
+    {
+        ClsEncuestas Objeto = new ClsEncuestas();        
+
+        if (Objeto.GetEstructura(tCveEncuesta, UsuarioActual.CveEmpresa))
+        {
+             GvEstructura.DataSource = Objeto.DtResultados;
+        }
+
+        Objeto.Dispose();
+
+        GvEstructura.DataBind();
+        UpModalEncuesta.Update();
+    }
+
+    protected void GvEstructura_RowDataBound(object sender, System.Web.UI.WebControls.GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            var Tipo = e.Row.DataKey("Tipo").ToString();
+
+            switch (Tipo)
+            {
+                case "1":
+                    {
+                        e.Row.Font.Bold = true;
+                        e.Row.ForeColor = System.Drawing.Color.White;
+                        e.Row.BackColor = System.Drawing.Color.FromArgb(1, 186, 205, 206);
+
+                        break;
+                    }
+
+                case "2":
+                    {
+                        e.Row.BackColor = System.Drawing.Color.FromArgb(1, 213, 225, 225);
+                        e.Row.FCLiteral("LtlPregunta").Visible = true;                        
+                        e.Row.FCLinkButton("ImgA").Visible = true;
+
+                        e.Row.FCLinkButton("imgE").Visible = true;
+                        e.Row.FCLinkButton("imgD").Visible = true;
+                        
+
+
+                        break;
+                    }
+
+                case "3":
+                    {
+                        e.Row.BackColor = System.Drawing.Color.White;
+                        e.Row.FCLiteral("LtlRespuesta").Visible = true;
+                        e.Row.FCLinkButton("imgE").Visible = true;
+                        e.Row.FCLinkButton("imgD").Visible = true;
+
+
+                        break;
+                    }
+            }
+
+            if (!(e.Row.DataKey("CvePregunta").ToEntero() > 0))
+                e.Row.FCLiteral("LtlTipoPregunta").Text = e.Row.DataKey("Tema");
+
+            if (e.Row.DataKey("RespuestaDefault").ToString() == "0")
+                e.Row.FCLiteral("LtlDefault").Text = "No";
+            else if (e.Row.DataKey("RespuestaDefault").ToString() == "1")
+                e.Row.FCLiteral("LtlDefault").Text = "Si";
+        }
+    }
+
+
+
+    protected void AddEstructura(object sender, EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int Tipo = GvRow.DataKey("Tipo").ToString().ToEntero();
+
+        if (Tipo == 2)
+        {
+            LtlRespuesta.Text = "Agregar Respuesta";
+            LbAgregarRespuesta.Text = "Guardar";
+            CveRespuesta = -1;
+            CvePregunta = GvRow.DataKey("CvePregunta").ToEntero();
+            TxtRespuesta.Text = "";            
+            UpModalRespuestas.Update();
+
+            RegistraScript(string.Format("$('#{0}').modal();", "ModalRespuestas"));
+        }         
+    }
+
+    protected void EliminarEstructura(object sender, EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int Tipo = GvRow.DataKey("Tipo").ToString().ToEntero();
+        switch (Tipo)
+        {
+            case 3:
+                {
+                    // RESPUESTA
+                    EliminarRespuesta(GvRow);
+                    break;
+                }
+
+            case 2:
+                {
+                    // PREGUNTAS
+                    EliminarPregunta(GvRow);
+                    break;
+                }
+        }
+    }
+
+    protected void UpdateEstructura(object sender, EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+        int Tipo = GvRow.DataKey("Tipo").ToString().ToEntero();
+        switch (Tipo)
+        {
+            case 3:
+                {
+                    ActualizaRespuestas(GvRow);
+                    break;
+                }
+            case 2:
+                {
+                    ActualizaPregunta(GvRow);
+                    break;
+                }
+
+        }
+    }
+
+    private void ActualizaPregunta(GridViewRow GvRow)
+    {
+        
+        LtlPregunta.Text = "Editar Pregunta";
+        LbAgregarPregunta.Text = "Actualizar";
+        CvePregunta = GvRow.DataKey("CvePregunta").ToEntero();
+        TxtPregunta.Text = GvRow.DataKey("Pregunta");        
+        DdlTipoPregunta.SelectedValueExist(GvRow.DataKey("CveTipoPregunta"));
+
+        if (DdlTipoPregunta.SelectedValue == "4")
+        {
+            DivChkrespuestaDefult.Visible = true;
+
+            if (GvRow.DataKey("RespuestaDefault").ToEntero() == 1)
+                ChkRespuestaDefault.Checked = true;
+            else
+                ChkRespuestaDefault.Checked = false;
+        }
+        else
+            DivChkrespuestaDefult.Visible = false;
+
+        UpModalPreguntas.Update();        
+        RegistraScript(string.Format("$('#{0}').modal();", "DVModalPreguntas"));
+    }
+
+    protected void EliminarPregunta(GridViewRow GvRow)
+    {
+        ClsEncuestas Objeto = new ClsEncuestas();
+        if (Objeto.RemovePreguntas(GvRow.DataKey("CvePregunta").ToEntero()))
+        {            
+            Alert("La Pregunta se eliminó correctamente.", ModExtensiones.TipoMensaje.ToastInformacion);
+        }
+
+        Objeto.Dispose();
+        CargaEstructura(CveEncuesta);
+    }
+
+
+
+
+    #region "RESPUESTAS"
+
+
+    //private void CargaPreguntasEnModal()
+    //{
+    //    ClsEncuestas Objeto = new ClsEncuestas();
+    //    if (Objeto.GetPreguntas(DdlFiltroEncuestas.SelectedValue.ToEntero, -1, -1, -1, UsuarioActual.CveEmpresa))
+    //    {
+    //        DdlPregunta.DataSource = Objeto.DtResultados;
+    //        DdlPregunta.Items.Clear();
+    //        DdlPregunta.Items.Insert(0, new ListItem("Seleccione (Todos)", "-1"));
+    //        DdlPregunta.DataBind();
+    //        UpModalRespuestas.Update();
+    //    }
+    //    Objeto.Dispose();
+    //}
+
+
+    //private void AgregaRespuestas(GridViewRow GvRow)
+    //{
+
+    //    LtlRespuesta.Text = "Agregar Respuesta";
+    //    LbAgregarRespuesta.Text = "Guardar";
+
+    //    CveRespuesta = -1;
+    //    //CargaPreguntasEnModal();
+    //    DdlPregunta.SelectedValue = GvRow.DataKey("CvePregunta");
+    //    TxtRespuesta.Text = "";
+    //    //UpHdn.Update();
+    //    UpModalRespuestas.Update();
+
+    //    RegistraScript(string.Format("$('#{0}').modal();", "ModalRespuestas"));
+    //}
+
+
+    private void ActualizaRespuestas(GridViewRow GvRow)
+    {
+        
+        LtlRespuesta.Text = "Editar Respuesta";
+        LbAgregarRespuesta.Text = "Actualizar";
+        CveRespuesta = GvRow.DataKey("CveRespuesta").ToEntero();
+        CvePregunta = GvRow.DataKey("CvePregunta").ToEntero();
+        TxtRespuesta.Text = GvRow.DataKey("Respuesta");        
+        UpModalRespuestas.Update();
+        RegistraScript(string.Format("$('#{0}').modal();", "ModalRespuestas"));
+    }
+
+
+
+    protected void LbAgregarRespuesta_Click(object sender, EventArgs e)
+    {
+        bool errorProceso = true;
+        ClsEncuestas Objeto = new ClsEncuestas();
+        if (!(CveRespuesta > 0))
+        {
+            if (Objeto.AddRespuestas(TxtRespuesta.Text, CvePregunta))
+            {
+                Alert("La Respuesta se registró correctamente..", ModExtensiones.TipoMensaje.ToastInformacion);
+                errorProceso = false;
+            }           
+        }
+        else
+        {
+            if (Objeto.UpdateRespuestas(CveRespuesta, TxtRespuesta.Text, CvePregunta))
+            {
+                Alert("La Respuesta se actualizó correctamente.", ModExtensiones.TipoMensaje.ToastInformacion);
+                errorProceso = false;
+            }
+        }
+
+        Objeto.Dispose();
+
+        if (!errorProceso)
+        {
+            if (ChkSeguirRespondiendo.Checked)
+            {
+                TxtRespuesta.Text = "";
+                UpModalRespuestas.Update();
+            }
+            else
+            {
+                RegistraScript("$('#ModalRespuestas').modal('hide');;");
+            }
+
+            CargaEstructura(CveEncuesta);
+        }
+    }
+
+
+    protected void EliminarRespuesta(GridViewRow GvRow)
+    {
+        ClsEncuestas Objeto = new ClsEncuestas();
+        if (Objeto.RemoveRespuesta(GvRow.DataKey("CveRespuesta").ToEntero()))
+        {
+            Alert("La respuesta se eliminó correctamente.", ModExtensiones.TipoMensaje.ToastInformacion);
+            CargaEstructura(CveEncuesta);
+        }
+        Objeto.Dispose();
+    }
+    
+
+    #endregion
+
 }

CRM/EmpresaCRM.aspx.cs

@@ -1015,6 +1015,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
 
     protected void LnkEditarContacto_Click(object sender, EventArgs e)
     {
+        CargaGridTipoContacto();
+
         EsEditarContacto = true;
         limpiarCamposModalContato();
 
@@ -1030,7 +1032,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
 
         IndexDTContacto = GvRow.RowIndex;
 
-        CargaGridTipoContacto();
+     
 
         UPModalContacto.Update();
 

CRM/RepAcercamientos.aspx.cs

@@ -105,11 +105,11 @@ public partial class CRM_RepAcercamientos : ClsPaginas
         TxtFechaFin.Text = DateTime.Now.AddDays((7 - (int)DateTime.Now.DayOfWeek)).ToShortDateString();
         DdlPS.setEsWebService(true);
         DdlPS.SelectedValue = "-1";
-        DdlPS.SelectedText = "Seleccione";
+        DdlPS.SelectedText = "Todos";
         DataTable dtGiroClasificaciones = get_GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa);
         DdlGiroClasificacion.DataSource = dtGiroClasificaciones;
         DdlGiroClasificacion.DataBind();
-        DdlGiroClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        DdlGiroClasificacion.Items.Insert(0, new ListItem("Todos", "-1"));
 
         ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
         RequestEtapaProceso EtapaProceso = new RequestEtapaProceso(UsuarioActual.CveEmpresa, 1, -1);

CRM/RepAcercamientosProcesos.aspx

@@ -155,7 +155,7 @@
                          <label class="col-md-1" >En Pausa:</label>
                         <div class="col-md-1">
                             <asp:DropDownList ID="DdlEnPausa" Width="100%" runat="server"  CssClass="form-control input-sm select2me" >
-                                <asp:ListItem Value="-1">Todo</asp:ListItem>
+                                <asp:ListItem Value="-1">Todos</asp:ListItem>
                                 <asp:ListItem Value="0">Activos</asp:ListItem>
                                 <asp:ListItem Value="1">En Pausa</asp:ListItem>
                             </asp:DropDownList>

CRM/RepAcercamientosProcesos.aspx.cs

@@ -85,7 +85,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
         DdlPS.setEsWebService(true);
 
         DdlPS.SelectedValue = "-1";
-        DdlPS.SelectedText = "Seleccione";
+        DdlPS.SelectedText = "Todos";
 
         if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa, 1))
         {
@@ -109,10 +109,10 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
         DdlVendedor.DataBind();
         DdlMedioCaptacion.DataBind();
         DdlProbabilidad.DataBind();
-        DdlVendedor.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Seleccione ", "-1"));
-        DdlMedioCaptacion.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Seleccione ", "-1"));
-        DdlProbabilidad.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Seleccione ", "-1"));
-        DdlTipoProceso.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Seleccione", "-1"));
+        DdlVendedor.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todos ", "-1"));
+        DdlMedioCaptacion.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todos ", "-1"));
+        DdlProbabilidad.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todos ", "-1"));
+        DdlTipoProceso.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todos", "-1"));
         DdlVendedor.SelectedValue = "-1";
         DdlMedioCaptacion.SelectedValue = "-1";
         DdlProbabilidad.SelectedValue = "-1";
@@ -121,7 +121,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
         DataTable dtGiroClasificaciones = get_GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa);
         DdlGiroClasificacion.DataSource = dtGiroClasificaciones;
         DdlGiroClasificacion.DataBind();
-        DdlGiroClasificacion.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Seleccione", "-1"));
+        DdlGiroClasificacion.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todos", "-1"));
 
         int n;
         string CveProbabilidadAcercamiento = Request["CveProbabilidadAcercamiento"];
@@ -178,7 +178,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
             hypt.HeaderText = $"Total";
             hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2", "Grupo1" };
             string  strfilstros =string.Format("&cveVendedor={0}&cveMedioCaptacion={1}&cveProbabilidadAcercamiento={2}", cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento);
-            hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.aspx?CveTipoProceso={DdlTipoProceso.SelectedValue}&CveGrupo1={DdlGrupo1.SelectedValue}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}";
+            hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.aspx?CveTipoProceso={DdlTipoProceso.SelectedValue}&CveGrupo1={DdlGrupo1.SelectedValue}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}&EnPausa={DdlEnPausa.SelectedValue}&CveEtapaProceso={DdlEtapaProceso.SelectedValue}&CveGiroClasificacion={DdlGiroClasificacion.SelectedValue}";
             switch (idgrupo1)
             {
                 case 1:
@@ -196,7 +196,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
                 case 4:
                     test.HeaderText = "Fecha";
                     Agrupador = "Fecha";
-                    hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.aspx?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={{2}}&FechaFin={{2}}{strfilstros}";
+                    hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.aspx?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={{2}}&FechaFin={{2}}{strfilstros}&EnPausa={DdlEnPausa.SelectedValue}&CveEtapaProceso={DdlEtapaProceso.SelectedValue}&CveGiroClasificacion={DdlGiroClasificacion.SelectedValue}";
                     break;
                 case 6:
                     test.HeaderText = "Giro";
@@ -216,7 +216,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
                 hyp.DataTextField = $"C_{row["CveEtapaProceso"]}";
                 hyp.HeaderText = $"{row["EtapaProceso"]}";
                 hyp.DataNavigateUrlFields = new string[]{ "CveGrupo1","CveGrupo2"};
-                hyp.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.aspx?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}&cveEtapaProceso={row["CveEtapaProceso"]}";
+                hyp.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.aspx?CveTipoProceso={DdlGrupo1.SelectedValue}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}&cveEtapaProceso={row["CveEtapaProceso"]}&EnPausa={DdlEnPausa.SelectedValue}&CveEtapaProceso={DdlEtapaProceso.SelectedValue}&CveGiroClasificacion={DdlGiroClasificacion.SelectedValue}";
                 GVRepAcercamientosEtapas.Columns.Add(hyp);
             }
         }
@@ -385,12 +385,12 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
         DdlMedioCaptacion.Items.Clear();
         DdlMedioCaptacion.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
         DdlMedioCaptacion.DataBind();
-        DdlMedioCaptacion.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Seleccione", "-1"));
+        DdlMedioCaptacion.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todos", "-1"));
 
         DdlProbabilidad.Items.Clear();
         DdlProbabilidad.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
         DdlProbabilidad.DataBind();
-        DdlProbabilidad.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Seleccione", "-1"));
+        DdlProbabilidad.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todos", "-1"));
 
         upDatosRepA.Update();
     }

CRM/RepAcercamientosProcesosDetalle.aspx

@@ -252,6 +252,27 @@
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control select2me"></asp:DropDownList>
                         </div>
+
+                         <label class="col-md-1" >En Pausa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEnPausa" Width="100%" runat="server"  CssClass="form-control input-sm select2me" >
+                                <asp:ListItem Value="-1">Todo</asp:ListItem>
+                                <asp:ListItem Value="0">Activos</asp:ListItem>
+                                <asp:ListItem Value="1">En Pausa</asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
+
+                      <%--  <label class="col-md-1" >Etapa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEtapaProceso" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="EtapaProceso" DataValueField="CveEtapaProceso">
+                            </asp:DropDownList>
+                        </div>--%>
+                      <%--   <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DropDownList1" Width="100%" runat ="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control select2me"></asp:DropDownList>
+                        </div>--%>
+
                     </div>
                 </div>
             </div>

CRM/RepAcercamientosProcesosDetalle.aspx.cs

@@ -9,6 +9,8 @@ using System.Data;
 using System.Text;
 using System.IO;
 using Microsoft.Reporting.WebForms;
+using ADSNetLibrary.SIGAPI.Models.CRM.Request;
+using ADSNetLibrary.SIGAPI.Services.CRM;
 
 public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
 {
@@ -62,6 +64,21 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
         set { ViewState["RsFechaFin"] = value; }
     }
 
+
+    private bool REsRechazo
+    {
+        get { 
+            if(ViewState["REsRechazo"] == null)
+            {
+                ViewState["REsRechazo"] = false;
+            }
+
+            return  bool.Parse(ViewState["REsRechazo"].ToString()) ; 
+        }
+        set { ViewState["REsRechazo"] =(bool) value; }
+    }
+
+    
     private DataTable DtMedioCaptacion
     {
         get
@@ -112,15 +129,20 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
 
             CveRechazoMotivo = Request["CveRechazoMotivo"] == null ? -1 : Request["CveRechazoMotivo"].ToString().ToEntero();
 
+            REsRechazo = Request["EsRechazo"] == null ? false : (Request["EsRechazo"].ToString().ToEntero()==1?true:false);
+
             RsFecha = Request["Fecha"] == null ? Extensiones.ModExtensiones.MinFecha.ToString() : Request["Fecha"].ToString();
             RsFechaIni = Request["FechaInicio"] == null ? Extensiones.ModExtensiones.MinFecha.ToString() : Request["FechaInicio"].ToString();
             RsFechaFin = Request["FechaFin"] == null ? Extensiones.ModExtensiones.MaxFecha.ToString() : Request["FechaFin"].ToString();
             TxtFechaInicio.Text = Request["FechaInicio"] == null ? Extensiones.ModExtensiones.MinFecha.ToString() : Request["FechaInicio"].ToString();
             TxtFechaFin.Text = Request["FechaFin"] == null ? Extensiones.ModExtensiones.MaxFecha.ToString() : Request["FechaFin"].ToString();
+            
             try { RsFechaIni = RsFechaIni.ToDateTime().ToString("yyyy/MM/dd"); TxtFechaInicio.Text = RsFechaIni.ToDateTime().ToString("dd/MM/yyyy"); }
             catch (Exception) { RsFechaIni = ""; }
+            
             try { RsFechaFin = RsFechaFin.ToDateTime().ToString("yyyy/MM/dd"); TxtFechaFin.Text = RsFechaFin.ToDateTime().ToString("dd/MM/yyyy"); }
             catch (Exception) { RsFechaFin = ""; }
+
             switch (RCveTipoProceso)
             {
                 case 1:
@@ -145,6 +167,10 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
             DdlVendedor.SelectedValueExist(RcveVendedor);
             DdlMedioCaptacion.SelectedValueExist(RcveMedioCaptacion);
             DdlProbabilidad.SelectedValueExist(RcveProbabilidadAcercamiento);
+            //Request["CveTipoProceso"] == null ? -1 : Request["CveTipoProceso"].ToString().ToEntero()
+            DdlEnPausa.SelectedValueExist(Request["EnPausa"] == null ? -1 : Request["EnPausa"].ToString().ToEntero());
+            DdlGiroClasificacion.SelectedValueExist(Request["CveGiroClasificacion"] == null ? -1 : Request["CveGiroClasificacion"].ToString().ToEntero());
+
             cargarDatos();
         }
     }
@@ -160,7 +186,7 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
         DdlPS.setEsWebService(true);
 
         DdlPS.SelectedValue = "-1";
-        DdlPS.SelectedText = "Seleccione";
+        DdlPS.SelectedText = "Todos";
 
         if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa, 1))
         {
@@ -186,10 +212,10 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
         DdlVendedor.DataBind();
         DdlMedioCaptacion.DataBind();
         DdlProbabilidad.DataBind();
-        DdlVendedor.Items.Insert(0, new ListItem("Seleccione ", "-1"));
-        DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1"));
-        DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione ", "-1"));
-        DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        DdlVendedor.Items.Insert(0, new ListItem("Todos ", "-1"));
+        DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos ", "-1"));
+        DdlProbabilidad.Items.Insert(0, new ListItem("Todos ", "-1"));
+        DdlTipoProceso.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlVendedor.SelectedValue = "-1";
         DdlMedioCaptacion.SelectedValue = "-1";
         DdlProbabilidad.SelectedValue = "-1";
@@ -198,7 +224,7 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
         DataTable dtGiroClasificaciones = get_GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa);
         DdlGiroClasificacion.DataSource = dtGiroClasificaciones;
         DdlGiroClasificacion.DataBind();
-        DdlGiroClasificacion.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Seleccione", "-1"));
+        DdlGiroClasificacion.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todos", "-1"));
 
         int n;
         string CveProbabilidadAcercamiento = Request["CveProbabilidadAcercamiento"];
@@ -214,6 +240,7 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
             DdlTipoProceso.SelectedValue = CveTipoProceso;
         }
         upDatosRepA.Update();
+       
     }
 
     protected void DdlTipoProceso_Change(object sender, EventArgs e)
@@ -221,12 +248,12 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
         DdlMedioCaptacion.Items.Clear();
         DdlMedioCaptacion.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
         DdlMedioCaptacion.DataBind();
-        DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos", "-1"));
 
         DdlProbabilidad.Items.Clear();
         DdlProbabilidad.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
         DdlProbabilidad.DataBind();
-        DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        DdlProbabilidad.Items.Insert(0, new ListItem("Todos", "-1"));
 
         upDatosRepA.Update();
     }
@@ -234,7 +261,8 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
     {
         ClsCRM ObjRepA = new ClsCRM();
         ObjRepA.RepAcercamientosDetalle(UsuarioActual.CveEmpresa, RcveVendedor, RcveMedioCaptacion, RcveProbabilidadAcercamiento, RcveEtapaProceso, RsFecha, RsFechaIni, 
-            RsFechaFin,CveTipoProceso:DdlTipoProceso.SelectedValue.ToEntero(), CveRechazoMotivo: CveRechazoMotivo);
+            RsFechaFin,CveTipoProceso:DdlTipoProceso.SelectedValue.ToEntero(), CveRechazoMotivo: CveRechazoMotivo, EnPausa: DdlEnPausa.SelectedValue.ToEntero(), CveGiroClasificacion: DdlGiroClasificacion.SelectedValue.ToEntero(),
+            EsRechazo: REsRechazo);
         GVRepAcercamientosDetalle.DataSource = ObjRepA.DtResultados;
         DTRepAcercamientosDetalle = ObjRepA.DtResultados;
         ObjRepA.Dispose();

CRM/RepAcercamientosRechazos.aspx.cs

@@ -159,12 +159,12 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
             if (DdlGrupo1.SelectedValue == "1") {
                 hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2", "Grupo1", "CveVendedor" };
                 strfilstros = string.Format("&cveMedioCaptacion={0}&cveProbabilidadAcercamiento={1}", cveMedioCaptacion, cveProbabilidadAcercamiento);
-                hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&cveVendedor={{3}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}";
+                hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&cveVendedor={{3}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}&EnPausa={DdlEnPausa.SelectedValue}&CveEtapaProceso={DdlEtapaProceso.SelectedValue}&CveGiroClasificacion={DdlGiroClasificacion.SelectedValue}&EsRechazo=1";
             }
             else {
                 hypt.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2" , "Grupo1" };
                 strfilstros = string.Format("&cveVendedor={0}&cveMedioCaptacion={1}&cveProbabilidadAcercamiento={2}", cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento);
-                hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&c&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}";
+                hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&c&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}&EnPausa={DdlEnPausa.SelectedValue}&CveEtapaProceso={DdlEtapaProceso.SelectedValue}&CveGiroClasificacion={DdlGiroClasificacion.SelectedValue}&EsRechazo=1";
             }
             switch (idgrupo1)
             {
@@ -183,7 +183,7 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
                 case 4:
                     test.HeaderText = "Fecha";
                     Agrupador = "Fecha";
-                    hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={{2}}&FechaFin={{2}}{strfilstros}";
+                    hypt.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&FechaInicio={{2}}&FechaFin={{2}}{strfilstros}&EnPausa={DdlEnPausa.SelectedValue}&CveEtapaProceso={DdlEtapaProceso.SelectedValue}&CveGiroClasificacion={DdlGiroClasificacion.SelectedValue}&EsRechazo=1";
                     break;
             }
             GVRepAcercamientosEtapas.Columns.Add(test);
@@ -195,7 +195,7 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
                 hyp.DataTextField = $"C_{row["CveRechazoMotivo"]}";
                 hyp.HeaderText = $"{row["RechazoMotivo"]}";
                 hyp.DataNavigateUrlFields = new string[] { "CveGrupo1", "CveGrupo2", "CveVendedor" };
-                hyp.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&CveVendedor={{2}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}&CveRechazoMotivo={row["CveRechazoMotivo"]}";
+                hyp.DataNavigateUrlFormatString = $"/CRM/RepAcercamientosProcesosDetalle.ASPX?CveTipoProceso={cveTipoProceso}&CveGrupo1={{0}}&CveGrupo2={{1}}&CveVendedor={{2}}&FechaInicio={TxtFechaInicio.Text}&FechaFin={TxtFechaFin.Text}{strfilstros}&CveRechazoMotivo={row["CveRechazoMotivo"]}&EnPausa={DdlEnPausa.SelectedValue}&CveEtapaProceso={DdlEtapaProceso.SelectedValue}&CveGiroClasificacion={DdlGiroClasificacion.SelectedValue}&EsRechazo=1";
 
                 GVRepAcercamientosEtapas.Columns.Add(hyp);
             }

Compras/Compras.aspx

@@ -4616,6 +4616,7 @@
                                     <asp:HiddenField ID="HdnPSAliasClasificacion" ClientIDMode="Static" runat="server" />
                                     <asp:HiddenField ID="HdnPSAliasCveSATPS" ClientIDMode="Static" runat="server" />
                                     <asp:HiddenField ID="HdnPSAliasSATClavePS" ClientIDMode="Static" runat="server" />
+                                    <asp:HiddenField ID="HdnPSAliasCveTipoPS" ClientIDMode="Static" runat="server" />
                                 </div>
                             </div>
                             <div class="row">

Compras/Compras.aspx.vb

@@ -1,15 +1,11 @@
 Option Explicit On
 Option Strict On
-Imports System.Activities
-Imports System.Data
+
 Imports System.Diagnostics
 Imports System.Globalization
 Imports System.IO
 Imports System.Threading.Tasks
-Imports System.Xml
-Imports Extensiones
-Imports Microsoft.ReportingServices.DataProcessing
-Imports Newtonsoft.Json
+
 
 Partial Class Compras_Compras
     Inherits ClsPaginas
@@ -1873,7 +1869,12 @@ Partial Class Compras_Compras
                             DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
                             DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
                             DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
-
+                        Case "T"
+                            DdlTipoCompra.Items.Clear()
+                            DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
+                            DdlTipoComprobante.SelectedValue = "Fac"
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC"))
+                            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV"))
 
                     End Select
 
@@ -2158,7 +2159,7 @@ Partial Class Compras_Compras
                         TxtSerie.Enabled = True
                     End If
 
-                    If LblMetodoPago.Text = "" Then
+                    If LblMetodoPago.Text = "" AndAlso TipoComprobante <> "T" Then
                         Alert("El xml no contiene la etiqueta  'método de pago', favor de verificar la emisión con el proveedor.", TipoMensaje.MsgAdvertencia)
                         BtnGuardar.Visible = False
                     End If
@@ -4775,7 +4776,7 @@ Partial Class Compras_Compras
                             'End If
 
                             'METODO DE PREPOLIZA DE ALMACEN
-                            If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163, 172, 173) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                            If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
                                 Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                                 If ImporteAlmacen > 0 Then
                                     If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -6266,7 +6267,7 @@ Partial Class Compras_Compras
 
                                                         Case 6 'Compra
 
-                                                            Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 158, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
+                                                            Dim AgregaMercanciaInventario As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
 
                                                             Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
 
@@ -17603,6 +17604,11 @@ Partial Class Compras_Compras
         Dim Total = (Cantidad * PU) - Descuento + OtrosGastos
         DrPS("NoDeducible") = ChkEsNoDeduciblePS.Checked
 
+        Dim ActualizarIva As Boolean = False
+        If Cantidad.RoundSQL(2) <> TxtCantidad.Text.Trim.ToDouble.RoundSQL(2) Or PU.RoundSQL(2) <> TxtPrecio.Text.Trim.ToDouble.RoundSQL(2) Then
+            ActualizarIva = True
+        End If
+
 
         If Cantidad <> TxtCantidad.Text.Trim.ToDouble OrElse PU <> TxtPrecio.Text.Trim.ToDouble OrElse Descuento <> TxtDescuentoModal.Text.ToDouble OrElse OtrosGastos <> TxtOtrosGastos.Text.ToDouble Then
             Cantidad = TxtCantidad.Text.Trim.ToDouble
@@ -17616,8 +17622,12 @@ Partial Class Compras_Compras
             DrPS("OtrosGastos") = OtrosGastos
             DrPS("Total") = Total
             AplicaCalculaTotales = True
+
         End If
 
+
+
+
         'PS - CLASIFICACION
         If DdlPS.SelectedValue.ToEntero > 0 Then
 
@@ -17676,7 +17686,11 @@ Partial Class Compras_Compras
             DrPS("IVA") = 0
             DrPS("IVAPorcentaje") = 0
         Else
+
+            If ActualizarIva Then
                 DrPS("IVA") = (IVA * Total).RoundSQL
+            End If
+
             DrPS("IVAPorcentaje") = IVA
         End If
 
@@ -17927,6 +17941,7 @@ Partial Class Compras_Compras
                 DdlUnidadAlias.DataBind()
                 HdnPSAliasCveClasificacion.Value = DrPS("CveClasificacion").ToString
                 HdnPSAliasClasificacion.Value = DrPS("Clasificacion").ToString
+                HdnPSAliasCveTipoPS.Value = DrPS("CveTipoPS").ToString
             End If
         End If
         UpPSAlias.Update()
@@ -17958,7 +17973,7 @@ Partial Class Compras_Compras
         End If
 
         Dim PS As New ClsProductosServicios
-        If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, ChkAliasFlexible.Checked, UsuarioActual.CveUsuario) Then
+        If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, ChkAliasFlexible.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa) = PS.DtResultados
 
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS
@@ -17970,6 +17985,7 @@ Partial Class Compras_Compras
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Obs") = TxtPSAlias.Text.Trim
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
+            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveTipoPS") = HdnPSAliasCveTipoPS.Value.ToEntero
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPSActualizado") = 0
             If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
                 TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", CvePS)).ToEntero
@@ -17986,6 +18002,7 @@ Partial Class Compras_Compras
                 drt("Obs") = TxtPSAlias.Text.Trim
                 drt("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
                 drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
+                drt("CveTipoPS") = HdnPSAliasCveTipoPS.Value
                 drt("CveSATPSActualizado") = 0
                 If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
                     drt("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", drt("CvePS"))).ToEntero
@@ -17996,6 +18013,7 @@ Partial Class Compras_Compras
             GvPS.DataSource = TmpDT
             GvPS.DataBind()
             UpPS.Update()
+            CargaGvInv()
 
             Alert("Registro actualizado con éxito.", TipoMensaje.MsgInformacion)
 

Compras/RepComprasAFDetalle.aspx.vb

@@ -392,7 +392,7 @@ Partial Class Compras_RepComprasAFDetalle
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
 
         If Imagen.Exists Then
-            pparams.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
         Else
             params.Add(New ReportParameter("LogoPath", ""))
         End If

Compras/eFacturas.aspx

@@ -457,7 +457,7 @@
                                 </tr>
                             </table>
 
-                         <asp:GridView ID="GvTraslados" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFactura,CveCompra,CveProveedor,SerieFolio,NombreProveedor,UUID,RFCDe,RFCPara,TipoFactura,FueValidado,TipoComprobante,Version,RFCde,XML,CveComplementoTraslado,PDF,SerieFolioVinculado,CveCompraTraslado"
+                         <asp:GridView ID="GvTraslados" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFactura,CveCompra,CveProveedor,SerieFolio,NombreProveedor,UUID,RFCDe,RFCPara,TipoFactura,FueValidado,TipoComprobante,Version,RFCde,XML,PDF "
                                 EmptyDataText="No se encontraron Registros con el filtro actual" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None">
                                 <Columns>
                                     <asp:TemplateField HeaderText="Tipo">
@@ -520,6 +520,7 @@
                                     </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Agregar">
                                         <ItemTemplate>
+                                            <asp:HyperLink ID="HplAgregar" runat="server" CssClass="btn btn-circle btn-sm green" Visible='<%# Eval("CveProveedor").ToString <> "" %>' data-toggle="tooltip" title="Agregar Factura" rel="opener" Target="_blank" ><i class="fa fa-plus"></i></asp:HyperLink>
                                             <asp:HyperLink ID="HplAgregarT" runat="server" CssClass="btn btn-circle btn-sm green" Visible='<%# Eval("CveProveedor").ToString <> "" %>' data-toggle="tooltip" title="Agregar Factura" Target="_blank" rel="opener"><i class="fa fa-plus"></i></asp:HyperLink>
                                             <asp:LinkButton ID="LnkAgregarTraslado" runat="server" OnClick="LnkAgregarTraslado_Click" CssClass="btn btn-sm blue" Visible="false" data-toggle="tooltip" ></asp:LinkButton>
                                         </ItemTemplate>

Compras/eFacturas.aspx.vb

@@ -835,14 +835,15 @@ Partial Class Compras_eFacturas
 
         If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
             TabTraslados.Visible = True
-            If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then
+            'If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then
 
-                If ObjDatos.DtResultados.Rows.Count > 0 Then
+            '    If ObjDatos.DtResultados.Rows.Count > 0 Then
+            '        DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
+            '    End If
+
+            'End If
             DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
         End If
-
-            End If
-        End If
         LblTotalTraslados.Text = String.Format("{0} Traslados", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'").Rows.Count.ToString("N0"))
 
         If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then
@@ -905,9 +906,6 @@ Partial Class Compras_eFacturas
                 Dim msgs As String() = Mensajes.Split("|"c)
                 Dim NFacturas As Integer = 0
 
-
-
-
                 If msgs.Length >= 2 Then
                     Try
                         NFacturas = msgs(0).ToEntero
@@ -921,11 +919,8 @@ Partial Class Compras_eFacturas
                     Mensajes = "La actualización se realizó correctamente"
                 End If
 
-
-
                 LnkNoRecibidas_Click(LnkNoRecibias, EventArgs.Empty, ValidaRowCount:=ValidaRowCount)
 
-
                 'Else
                 '    Dim Str As New StringBuilder
                 '    Dim conta As Integer = 1
@@ -4706,12 +4701,7 @@ Partial Class Compras_eFacturas
                 End If
 
                 ObjCompra.Dispose()
-
-
-
             End If
-
-
         Next
 
 
@@ -4734,8 +4724,6 @@ Partial Class Compras_eFacturas
 
     Protected Sub GvTraslados_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvTraslados.RowDataBound
 
-
-
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             If e.Row.DBCampo("TipoComprobante") = "T" Then
@@ -4752,7 +4740,10 @@ Partial Class Compras_eFacturas
             If File.Exists(String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))) Then
                 e.Row.FCLiteral("LtlXML").Text = String.Format("<a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?RFC={0}&File={1}"">Ver</a>", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML")))
                 If e.Row.DBCampo("TipoComprobante") = "T" And e.Row.DBCampo("FueValidado") = "1" Then
-                    e.Row.FCLinkButton("LnkAgregarTraslado").Visible = True
+                    ' e.Row.FCLinkButton("LnkAgregarTraslado").Visible = True
+                    e.Row.FCHyperLink("HplAgregar").NavigateUrl = String.Format("/Compras/Compras.aspx?CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo("RFCDe"))
+
+
                 End If
             Else
                 e.Row.FCLiteral("LtlXML").Text = "N/D" ' String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML")) '
@@ -4808,18 +4799,18 @@ Partial Class Compras_eFacturas
             End If
 
 
-            Dim CveComplementoTraslado As Integer = e.Row.DataKey("CveComplementoTraslado").ToString.ToEntero
+            'Dim CveComplementoTraslado As Integer = e.Row.DataKey("CveComplementoTraslado").ToString.ToEntero
 
 
-            If CveComplementoTraslado > 0 Then
-                e.Row.FCLinkButton("LnkAgregarTraslado").CssClass = "btn btn-sm green"
-                e.Row.FCLinkButton("LnkAgregarTraslado").Text = "<i class='fa fa-info' ></i>"
-                e.Row.FCLinkButton("LnkAgregarTraslado").Attributes.Add("Title", "Ver vinculación")
-            Else
-                e.Row.FCLinkButton("LnkAgregarTraslado").CssClass = "btn btn-sm blue"
-                e.Row.FCLinkButton("LnkAgregarTraslado").Text = "<i class='fa fa-check'></i>"
-                e.Row.FCLinkButton("LnkAgregarTraslado").Attributes.Add("Title", "Vincular Traslado")
-            End If
+            'If CveComplementoTraslado > 0 Then
+            '    e.Row.FCLinkButton("LnkAgregarTraslado").CssClass = "btn btn-sm green"
+            '    e.Row.FCLinkButton("LnkAgregarTraslado").Text = "<i class='fa fa-info' ></i>"
+            '    e.Row.FCLinkButton("LnkAgregarTraslado").Attributes.Add("Title", "Ver vinculación")
+            'Else
+            '    e.Row.FCLinkButton("LnkAgregarTraslado").CssClass = "btn btn-sm blue"
+            '    e.Row.FCLinkButton("LnkAgregarTraslado").Text = "<i class='fa fa-check'></i>"
+            '    e.Row.FCLinkButton("LnkAgregarTraslado").Attributes.Add("Title", "Vincular Traslado")
+            'End If
 
         End If
 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -2360,7 +2360,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim ErrorArchivo = False
         Dim ErrorExcel = False
         DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue
-        dt = ReadExcelFile(Ruta + FileName, True)
+        dt = ReadExcelFile(Ruta + FileName, True, 0)
 
         If Not ErrorArchivo Then
 

Empresas/7/Formatos/Cotizacion.rdlc

@@ -1,5 +1,115 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DsOC">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>06ae5329-8ff5-42b5-b7f4-6d68e5186420</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DsOC">
+      <Query>
+        <DataSourceName>DsOC</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="CveOrdenCompraDetalle">
+          <DataField>CveOrdenCompraDetalle</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="CveOrdenCompra">
+          <DataField>CveOrdenCompra</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Cantidad">
+          <DataField>Cantidad</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="CveUnidadMedida">
+          <DataField>CveUnidadMedida</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Abreviatura">
+          <DataField>Abreviatura</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="PS">
+          <DataField>PS</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveClasificacion">
+          <DataField>CveClasificacion</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Clasificacion">
+          <DataField>Clasificacion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveActivoFijo">
+          <DataField>CveActivoFijo</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Codigo">
+          <DataField>Codigo</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="TipoDato">
+          <DataField>TipoDato</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="CodigoAF">
+          <DataField>CodigoAF</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CodigoPS">
+          <DataField>CodigoPS</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="UnidadMedida">
+          <DataField>UnidadMedida</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="Total">
+          <DataField>Total</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="UM">
+          <DataField>UM</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Obs">
+          <DataField>Obs</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SubProyecto">
+          <DataField>SubProyecto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="PU">
+          <DataField>PU</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsOC</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Orlando Bojorquez\Documents\Visual Studio 2013\WebSites\WebSite1\App_Code\DsOC.xsd</rd:SchemaPath>
+        <rd:TableName>DtOCDetalle</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportSections>
+    <ReportSection>
       <Body>
         <ReportItems>
           <Tablix Name="Tablix1">
@@ -1609,114 +1719,8 @@
         <BottomMargin>0.5in</BottomMargin>
         <Style />
       </Page>
-  <AutoRefresh>0</AutoRefresh>
-  <DataSources>
-    <DataSource Name="DsOC">
-      <ConnectionProperties>
-        <DataProvider>System.Data.DataSet</DataProvider>
-        <ConnectString>/* Local Connection */</ConnectString>
-      </ConnectionProperties>
-      <rd:DataSourceID>06ae5329-8ff5-42b5-b7f4-6d68e5186420</rd:DataSourceID>
-    </DataSource>
-  </DataSources>
-  <DataSets>
-    <DataSet Name="DsOC">
-      <Query>
-        <DataSourceName>DsOC</DataSourceName>
-        <CommandText>/* Local Query */</CommandText>
-      </Query>
-      <Fields>
-        <Field Name="CveOrdenCompraDetalle">
-          <DataField>CveOrdenCompraDetalle</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="CveOrdenCompra">
-          <DataField>CveOrdenCompra</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="Cantidad">
-          <DataField>Cantidad</DataField>
-          <rd:TypeName>System.Double</rd:TypeName>
-        </Field>
-        <Field Name="CveUnidadMedida">
-          <DataField>CveUnidadMedida</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="Abreviatura">
-          <DataField>Abreviatura</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="PS">
-          <DataField>PS</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="CveClasificacion">
-          <DataField>CveClasificacion</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="Clasificacion">
-          <DataField>Clasificacion</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="CveActivoFijo">
-          <DataField>CveActivoFijo</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="Codigo">
-          <DataField>Codigo</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="TipoDato">
-          <DataField>TipoDato</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="CodigoAF">
-          <DataField>CodigoAF</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="CodigoPS">
-          <DataField>CodigoPS</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="UnidadMedida">
-          <DataField>UnidadMedida</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Importe">
-          <DataField>Importe</DataField>
-          <rd:TypeName>System.Decimal</rd:TypeName>
-        </Field>
-        <Field Name="Total">
-          <DataField>Total</DataField>
-          <rd:TypeName>System.Decimal</rd:TypeName>
-        </Field>
-        <Field Name="UM">
-          <DataField>UM</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Obs">
-          <DataField>Obs</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="SubProyecto">
-          <DataField>SubProyecto</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="PU">
-          <DataField>PU</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-      </Fields>
-      <rd:DataSetInfo>
-        <rd:DataSetName>DsOC</rd:DataSetName>
-        <rd:SchemaPath>C:\Users\Orlando Bojorquez\Documents\Visual Studio 2013\WebSites\WebSite1\App_Code\DsOC.xsd</rd:SchemaPath>
-        <rd:TableName>DtOCDetalle</rd:TableName>
-        <rd:TableAdapterFillMethod />
-        <rd:TableAdapterGetDataMethod />
-        <rd:TableAdapterName />
-      </rd:DataSetInfo>
-    </DataSet>
-  </DataSets>
+    </ReportSection>
+  </ReportSections>
   <ReportParameters>
     <ReportParameter Name="ClienteCodigo">
       <DataType>String</DataType>
@@ -2214,6 +2218,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="VSH">

GPS/PalletEtiqueta.rdlc

@@ -1606,7 +1606,7 @@ KM12 HERMOSILLO, SONORA</Value>
         <Height>5.84433in</Height>
         <Style />
       </Body>
-      <Width>5.09083in</Width>
+      <Width>4.93458in</Width>
       <Page>
         <PageHeight>29.7cm</PageHeight>
         <PageWidth>21cm</PageWidth>

General/SaldosIniciales.aspx.vb

@@ -3524,7 +3524,7 @@ Partial Class General_SaldosIniciales
                     End If
                     If Not ObjRH.AddPersonal(Codigo, ApellidoPaterno, ApellidoMaterno, Nombre, CorreoElectronico, FechaIn, CveTipoPeriodo, NumeroSS, CBool(AltaIMSS), SalarioDiario.ToDouble, SalarioDiario.ToDouble, SDI.ToDouble, SDI.ToDouble,
                                   -1, -1, -1, CveMetodoPago, FechaIn, FechaFn.ToString, CveTipoContrato, Direccion, CveTurno, CvePuesto, CveDepartamento, -1, CveEscolaridad, CveEstadoCivil, CveGenero, -1, FechaBaja, CveEstatusPersonal, FechaNac,
-                                 LugarNacimiento, Direccion, "", "", "", CodigoPostal, Ciudad, CveEstado, Telefono, Celular, RFC, CURP, NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, CveSubProyecto, "", -1,
+                                 LugarNacimiento, Direccion, "", "", "", CodigoPostal, Ciudad, CveEstado, Telefono, "", Celular, RFC, CURP, "", NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, CveSubProyecto, "", -1,
                                  ClabeInterbancaria, "", CveJornada, CveJornada, "", -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina, CveRegistroPatronal:=CveRegistroPatronal) Then
                         If (ObjRH.noguardoXcurpb) Then
                         Else

Nomina/Finiquito.aspx.cs

@@ -1,5 +1,6 @@
 using System;
 using System.Collections.Generic;
+using System.Collections.Specialized;
 using System.Data;
 using System.Linq;
 using System.Web;
@@ -539,7 +540,10 @@ public partial class Nomina_Finiquito : ClsPaginas
         int CveNomina = dtr.Rows[0]["CveNomina"].ToString().ToEntero();
         LogicNominas lognom = new LogicNominas();
 
-        string Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual);
+
+        string Msg = "";
+            Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual,versionTimbre:(UsuarioActual.CveEmpresa == 119? VersionTimbradoEnum.PorDefectoEmpresa: VersionTimbradoEnum.Version3_3));
+
         if (Msg != null && Msg.Length > 0)
         { Alert(Msg, TipoMensaje.MsgAdvertencia); }
         else
@@ -547,7 +551,7 @@ public partial class Nomina_Finiquito : ClsPaginas
             using (ClsNominas ObjPeriodo = new ClsNominas())
             {
 
-                ObjPeriodo.CambiaEstatusPeriodo(CvePeriodo, (int)enumNominasEstatus.Timbrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+                //ObjPeriodo.CambiaEstatusPeriodo(CvePeriodo, (int)enumNominasEstatus.Timbrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
                 loadsobrerecibo(ObjPeriodo);
             }
             //ObjPeriodo.Dispose();

Nomina/Nomina.aspx

@@ -4060,7 +4060,7 @@
                                                 <ItemTemplate>
                                                     <asp:Label runat="server" Text='<%# Eval("RetiroSIG","{0:N2}")%>'> </asp:Label></td>
                                                 </ItemTemplate>
-                                            </asp:TemplateField>
+                                            </asp:TemplateField>showResult
                                         </Columns>
                                     </asp:GridView>--%>
                                 </div>

Nomina/Nomina.aspx.cs

@@ -97,11 +97,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
     {
         get
         {
-            if (ViewState["dtempleados"] == null) { return null; }
-            else { return (DataTable)ViewState["dtempleados"]; }
+            if (ViewState["DtSuaProcesado"] == null) { return null; }
+            else { return (DataTable)ViewState["DtSuaProcesado"]; }
         }
 
-        set { ViewState["dtempleados"] = value; }
+        set { ViewState["DtSuaProcesado"] = value; }
     }
 
     protected bool PermisoCancelarEmitido
@@ -206,12 +206,40 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         set { ViewState["FiltAgrupador"] = value; }
     }
+
+
+    //private HybridDictionary EmpresasFuncionalidades
+    //{
+    //    get
+    //    {
+    //        if (ViewState["EmpresasFuncionalidades"] == null) { return null; }
+    //        else { return (HybridDictionary)ViewState["EmpresasFuncionalidades"]; }
+    //    }
+
+    //    set { ViewState["EmpresasFuncionalidades"] = value; }
+    //}
+
+    //private HybridDictionary EmpresasFuncionalidadesnoV4
+    //{
+    //    get
+    //    {
+    //        if (ViewState["EmpresasFuncionalidadesnoV4"] == null) { return null; }
+    //        else { return (HybridDictionary)ViewState["EmpresasFuncionalidadesnoV4"]; }
+    //    }
+
+    //    set { ViewState["EmpresasFuncionalidadesnoV4"] = value; }
+    //}
+
     #endregion
     protected void Page_Load(object sender, EventArgs e)
     {
 
         if (!IsPostBack)
         {
+            if(UsuarioActual.CveUsuario == 100) {
+                Alert("recuerda que solo la empresa (119) tiene activado el timbrado 4.0", TipoMensaje.ToastAdventencia);
+            }
+            //CreaObjetoEmpresa(UsuarioActual);
             DataTable dtperinc = null;
             using (ClsNominas objnom = new ClsNominas())
             {
@@ -1255,7 +1283,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
             {
                 LogicNominas lognom = new LogicNominas();
 
-                string Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual);
+                string Msg = ""; 
+                    Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, versionTimbre: (UsuarioActual.CveEmpresa == 119 ? VersionTimbradoEnum.PorDefectoEmpresa : VersionTimbradoEnum.Version3_3));
+               
                 if (Msg != null && Msg.Length > 0)
                 {
                     Msg = msgCorregidoSat(Msg, CvePersonal, RFC, CURP);
@@ -1311,28 +1341,40 @@ public partial class Nomina_Nomina2 : ClsPaginas
         }
         UpDatos.Update();
     }
-    private void CreaObjetoEmpresa(ref Usuario UsuarioActual)
-    {
-        ClsSisEmpresas ObjEmpresa = new ClsSisEmpresas();
-        if (ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1"))
-        {
-            if (ObjEmpresa.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa))
-            {
-                System.Data.DataTable dttmp = ObjEmpresa.DtResultados;
+    //private void CreaObjetoEmpresa(Usuario UsuarioActual)
+    //{
+    //    ClsSisEmpresas ObjEmpresa = new ClsSisEmpresas();
+    //    if (ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1"))
+    //    {
+    //        if (ObjEmpresa.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa))
+    //        {
+    //            System.Data.DataTable dttmp = ObjEmpresa.DtResultados;
 
-                HybridDictionary EmpresasFuncionalidades = new HybridDictionary();
-                foreach (System.Data.DataRow Row in dttmp.Rows)
-                    EmpresasFuncionalidades.Add(Convert.ToInt32(Row["CveFuncionalidad"]), Row["Valor"].ToString());
-                ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades);
-            }
+    //            EmpresasFuncionalidades = new HybridDictionary();
+    //            EmpresasFuncionalidadesnoV4 = new HybridDictionary();
+    //            foreach (System.Data.DataRow Row in dttmp.Rows)
+    //            {
+    //                if (Convert.ToInt32(Row["CveFuncionalidad"]) != 350)
+    //                {
+    //                    EmpresasFuncionalidadesnoV4.Add(Convert.ToInt32(Row["CveFuncionalidad"]), Row["Valor"].ToString());
+    //                    EmpresasFuncionalidades.Add(Convert.ToInt32(Row["CveFuncionalidad"]), Row["Valor"].ToString());
+    //                }
+    //                else
+    //                {
+    //                    EmpresasFuncionalidades.Add(Convert.ToInt32(Row["CveFuncionalidad"]), Row["Valor"].ToString());
 
-            UsuarioActual.Empresa = ObjEmpresa.Empresa;
-        }
-        else
-        {
-        }
-        ObjEmpresa.Dispose();
-    }
+    //                }
+    //            }
+    //            ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades);
+    //        }
+
+    //        UsuarioActual.Empresa = ObjEmpresa.Empresa;
+    //    }
+    //    else
+    //    {
+    //    }
+    //    ObjEmpresa.Dispose();
+    //}
     protected void LnkReenviarCorreo_Click(object sender, EventArgs e)
     {
         LinkButton lnk = (LinkButton)sender;
@@ -1427,7 +1469,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
         {
             UsuarioActual = this.UsuarioActual;
         }*/
-        string Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual,(UsuarioActual.CveUsuario==100?4:4));
+        string Msg = "";// lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, (UsuarioActual.CveUsuario == 100 ? 4 : 4));
+            Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual, versionTimbre: (UsuarioActual.CveEmpresa == 119 ? VersionTimbradoEnum.PorDefectoEmpresa : VersionTimbradoEnum.Version3_3));
+        
         if (Msg != null && Msg.Length > 0)
         { Alert(string.Format("El empleado no se pudo timbrar, el sat nos devolvio el siguiente mensaje:<br/>{0}", Msg), TipoMensaje.MsgAdvertencia); }
         else
@@ -2562,12 +2606,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
         DdlFormapagovacaciones_SelectedIndexChanged(null, null);
         ChkVacPrimaVacacional.Checked = true;
         ChkVacCobrarIMSS.Checked = true;
-        using(ClsNominas objnom = new ClsNominas())
+        using (ClsNominas objnom = new ClsNominas())
         {
-            if(objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, SRCvePersonal))
+            if (objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, SRCvePersonal))
             {
                 DataRow drow = objnom.DtResultados.FiltroPrimero("Selected =1");
-                if(drow != null)
+                if (drow != null)
                 {
                     DdlVacPeriodo.SelectedValueExist(drow["Ejercicio"].ToString());
 
@@ -7364,7 +7408,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         TxtSRINCfolio.Text = "";
         TxtSRINCfechaInicio.Text = "";
         TxtSRINCdiasAutorizados.Text = "";
-        TxtDiasPagoEmpresa.Text = UsuarioActual.CveEmpresa ==141?"3":"";
+        TxtDiasPagoEmpresa.Text = UsuarioActual.CveEmpresa == 141 ? "3" : "";
         DdlSRINCcveTipodeIncidencia.SelectedValue = "-1";
         DdlSRINCcveRamoSeguro.SelectedValue = "-1";
         DdlSRINCcveTipoRiesgo.SelectedValue = "-1";
@@ -8070,7 +8114,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
         using (ClsNominas nom = new ClsNominas())
         {
-            if (nom.GetPeriodos(-1,UsuarioActual.CveEmpresa,-1,-1, DdlPeriodo.SelectedValue.ToEntero(),-1) && (nom.DtResultados.Rows.Count>0))
+            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();
@@ -8124,10 +8168,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
     {
 
 
-        int chkImporteValor = 1;
-        int chkImporte = 1;
-        int chkImporteGravado = 0;
-        List<Archivo> Filesgral = TxtArchivoNomina.getfiles().Archivos;
+        //int chkImporteValor = 1;
+        //int chkImporte = 1;
+        //int chkImporteGravado = 0;
+        DateTime fechai = TxtRIFechaInicio.Text.ToDateTime();
+        DateTime fechaf = TxtRIFechaFin.Text.ToDateTime();
+        List<Archivo> Filesgral = TxtAsistenciaTabular.getfiles().Archivos;
         bool continuar = Filesgral.Count > 0;
         string stringError = "";
         Archivo fileItem = continuar ? Filesgral[0] : null;
@@ -8156,7 +8202,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         {
             try
             {
-                DataTable dtxz = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true,4);
+                DataTable dtxz = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true, 4);
                 DTEXcel = dtxz.FiltraParametros("  LEN(Codigo)>0  AND Codigo  <> 'Codigo'");
 
             }
@@ -8174,32 +8220,96 @@ public partial class Nomina_Nomina2 : ClsPaginas
             continuar = false;
             stringError = "No se encontraron cambios";
         }
-        if(continuar)
+        if (continuar)
         {
 
-            for (int j = 2; j < DTEXcel.Rows.Count; j++)
+            using (ClsNominas nom = new ClsNominas())
             {
-                for (int i = 1; i < DTEXcel.Columns.Count; i++)
+                if (nom.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodoSeleccionado, -1) && (nom.DtResultados.Rows.Count > 0))
                 {
-                    /*
-                    //
-                    string conceptocodigo = drowx[i].ToString(); string CveConcepto;
-                    DataRow dconr = dtConceptos.FiltroPrimero(string.Format("codigo='{0}'", conceptocodigo));
-                    if (dconr != null)
+                    fechai = nom.DtResultados.Rows[0]["FechaInicio"].ToString().ToDateTime();
+                    fechaf = nom.DtResultados.Rows[0]["FechaFin"].ToString().ToDateTime();
+                }
+            }
+
+            for (int i = 2; i < DTEXcel.Columns.Count; i++)
             {
-                        CveConcepto = dconr["CveConcepto"].ToString();
-                        dtxz.Columns[i].ColumnName = CveConcepto;
+                DateTime FechaAsis = DTEXcel.Columns[i].ColumnName.ToDateTime();
+                if( FechaAsis < fechai || FechaAsis > fechaf)
+                {
+                    continuar = false;
+                    stringError = "Las fechas no concuerdadn con el periodo seleccionado";
+
+                }
+            }
+        }
+        if (continuar)
+        {
+            int CvePersonal = 0;
+            string Codigo;
+            DateTime FechaAsis;
+            DataTable dtasis = GlobalDTAsistenciasInasistencias.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
+            List<string> listaerrores = new List<string>();
+            using (ClsRH ObjPersonal = new ClsRH())
+            {
+                for (int j = 0; j < DTEXcel.Rows.Count; j++)
+                {
+                    Codigo = DTEXcel.Rows[j]["Codigo"].ToString();
+                    CvePersonal = -1;
+                    if (Codigo != "-1" && ObjPersonal.GetPersonal(CvePersonal, Codigo, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) &&
+                                ObjPersonal.DtResultados.Rows.Count == 1)
+                    {
+                        CvePersonal = ObjPersonal.CvePersonal;
+                        //CveMetodoPago = objpersonal.CveMetodoPago;
+                    }
+                    for (int i = 2; i < DTEXcel.Columns.Count; i++)
+                    {
+                        FechaAsis = DTEXcel.Columns[i].ColumnName.ToDateTime();
+                        string tipoasistencia = DTEXcel.Rows[j][i].ToString();
+                        DataRow drasis = dtasis.FiltroPrimero(string.Format("Tipo = '{0}'", tipoasistencia));
+                        if (CvePersonal > 0 && drasis != null && ObjPersonal.AddAsistencia(CvePersonal, -2, -2, FechaAsis,
+                            drasis["CveAsistenciasInasistencias"].ToString().ToEntero(), 100, -2, -2, -2, TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+                        {
+                            continuar = true;
+                        }
+                        if (CvePersonal > 0 && drasis == null && !listaerrores.Contains(tipoasistencia) && tipoasistencia != "" && tipoasistencia != "--" && tipoasistencia != "-")
+                        {
+                            listaerrores.Add(DTEXcel.Rows[j][i].ToString());
+                            // stringError = String.Format("{0}<br>el empleado {1} tiene una asistencia invalidad el dia {2:dd/MM/yyyy}", stringError, Codigo, FechaAsis);
+                        }
+                    }
+                }
+            }
+            if (continuar)
+            {
+                cargarasistencia();
+                if (listaerrores.Count > 0)
+                {
+                    string strmsg = "Los siguientes tipos de asistencia no pudieron ser cargados porque no se encuentran registrados ";
+                    for (int i = 0; i < listaerrores.Count; i++)
+                    {
+                        strmsg = String.Format("{0}<br/>{1}", strmsg, listaerrores[i]);
+                    }
+                    Alert(strmsg, TipoMensaje.MsgInformacion);
                 }
                 else
                 {
-                        continuar = false;
-                        stringError = string.Format("Ocurrio un Error al procesar el excel código no valido '{0}'({1}).", conceptocodigo, i);
-                        break;
-                    }*/
-                    //int CveConcepto = dtxz.Columns[i].ColumnName.ToEntero();
+                    Alert("La Asistencia se guardó correctamente.", TipoMensaje.MsgInformacion);
+                }
+                UpDatos.Update();
+
+            }
+            else
+            {
+                Alert(stringError, TipoMensaje.MsgAdvertencia);
             }
         }
+        else
+        {
+            Alert(stringError, TipoMensaje.MsgAdvertencia);
         }
+        RegistraScript("$('#DModalAsistenciaTabular').modal('hide')");
+
     }
 
     protected void LnkProcesarReporteIncidencia_Click(object sender, EventArgs e)
@@ -9017,4 +9127,5 @@ public partial class Nomina_Nomina2 : ClsPaginas
         RegistraScript(string.Format("$('#ModalViewCorreo').modal();", TxtmcImporte.ClientID));
     }
 
+
 }

RH/CalculoSBC.aspx

@@ -4,11 +4,11 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
-        .GVCalculosSBC tr th:nth-child(n+8):not(:nth-child(n+12)) {
+        .GVCalculosSBC tr th:nth-child(n+8):not(:nth-child(n+13)) {
             background-color: #a9a9e8 !important;
         }
 
-        .GVCalculosSBC tr th:nth-child(n+12):not(:nth-child(n+15)) {
+        .GVCalculosSBC tr th:nth-child(n+13):not(:nth-child(n+16)) {
             background-color: #88d6cd !important;
         }
     </style>
@@ -23,7 +23,9 @@
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-
+                <asp:LinkButton ID="LnkUpSuamodal" OnClick="LnkUpSuamodal_Click" runat="server"><i class="fa fa-check"></i> Cargar archivo SUA</asp:LinkButton>
+            </li>
+            <li>
                 <asp:LinkButton ID="LnkDescargar" OnClick="LnkDescargar_Click" runat="server"><i class="fa fa-ad-excel"></i> Descargar</asp:LinkButton>
             </li>
             <li>
@@ -32,7 +34,7 @@
             <li>
                 <asp:LinkButton ID="Lnkmostrararchivos" OnClick="Lnkmostrararchivos_Click" runat="server"><i class="fa fa-save"></i> Mostrar archivos</asp:LinkButton>
             </li>
-            <li style="display: none">
+            <li>
                 <asp:LinkButton ID="LnkDownArchivosSua" OnClick="LnkDownArchivosSua_Click" runat="server"><i class="fa fa-download"></i> Descargar Archivos IDSE</asp:LinkButton>
             </li>
         </ContentTemplate>
@@ -55,7 +57,7 @@
                     <div class="titlefiltros  caption">
                         <div class="row">
                             <asp:Label ID="Label1" runat="server" CssClass="col-md-1 ">Tipo :</asp:Label>
-                            <div class="col-md-3" id="Div1" runat="server">
+                            <div class="col-md-2" id="Div1" runat="server">
                                 <asp:DropDownList ID="DdlTipo" runat="server" CssClass="form-control select2me">
                                     <asp:ListItem Value="1" Text="Cambio en salario variable" Selected="True"></asp:ListItem>
                                     <asp:ListItem Value="2" Text="modificación de salario"></asp:ListItem>
@@ -63,7 +65,7 @@
                             </div>
 
                             <asp:Label ID="LblFechaPago" runat="server" CssClass="col-md-1 ">Fecha :</asp:Label>
-                            <div class="col-md-3" id="DivFechaPago" runat="server">
+                            <div class="col-md-2" id="DivFechaPago" runat="server">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
                                     <asp:TextBox ID="TxtFechaPago" runat="server" Text="01/03/2021" CssClass="form-control" CausesValidation="true" Width="90%" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
@@ -77,7 +79,14 @@
                                 <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="TxtFechaPago" Display="None" ErrorMessage="El campo <b>''Fecha Pago''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-                            <div class="col-md-4">
+
+                            <asp:Label runat="server" AssociatedControlID="DdlRegistroPatronal" Text="Registro Patronal:" CssClass="col-md-1 "></asp:Label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlRegistroPatronal" runat="server" Width="100%" DataTextField="RegistroPatronal" CssClass="form-control input-sm select2me" DataValueField="CveRegistroPatronal" AppendDataBoundItems="true">
+                                    <asp:ListItem Value="-1" Text="Todas"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-2">
                                 <asp:LinkButton ID="LnkCalcular" OnClick="LnkCalcular_Click" runat="server" Text="Calcular" Visible="true" class="btn btn-primary" />
                             </div>
                         </div>
@@ -86,18 +95,23 @@
                     </div>
                 </div>
             </div>
+            <div style="float: right;">
+                <asp:TextBox CssClass="TxtBusqueda form-control input-sm" runat="server" onkeyup="FiltrarTablaV2('.TxtBusqueda','.GVBuscaddor')" Style="display: inline-block; margin-right: -20px; width: 150px;"></asp:TextBox>
+                <a href="javascript:;" onclick="FiltrarTablaV2('.TxtBusqueda','.GVCalculosSBC')" style="margin-top: -3px;" class="btn btn-circle btn-sm font-bold yellow-gold"><i class="icon-magnifier" style="font-weight: bold;"></i></a>
+            </div>
             <ajax:TabContainer ID="Tab" runat="server" Width="100%">
                 <ajax:TabPanel ID="TabSBC" runat="server" HeaderText="Salario base cotización">
                     <ContentTemplate>
                         <table id="tableheader" style="display: none">
                             <tr>
                                 <th colspan="7"></th>
-                                <th colspan="4" style="background-color: #a9a9e8 !important;">Actual</th>
+                                <th colspan="5" style="background-color: #a9a9e8 !important;">Actual</th>
                                 <th colspan="3" style="background-color: #88d6cd !important;">Nuevo</th>
                                 <th></th>
+                                <%--<th></th>--%>
                             </tr>
                         </table>
-                        <asp:GridView ID="GVCalculosSBC" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVCalculosSBC" AutoGenerateColumns="False" data-tableheader="#tableheader"
+                        <asp:GridView ID="GVCalculosSBC" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVCalculosSBC GVBuscaddor" AutoGenerateColumns="False" data-tableheader="#tableheader"
                             DataKeyNames="CvePersonal,Codigo,Nombre,FechaInicio,Antiguedad,Incapacitado,NumeroSS,CveTipodeSalario,TipodeSalario,SalarioDiario,SDINuevo,SalarioVariableNuevo,SalarioDiarioSSNuevo,SDI,SalarioVariable,SalarioDiarioSS,PorPrimaVacacional,NumDiasAguinaldo,Acumulado,diasBimestre,Faltas,Incapaciadad,diaslaborados,Movtotxt,RegistroPatronal">
                             <Columns>
                                 <asp:TemplateField HeaderText="Código">
@@ -179,6 +193,15 @@
                                         <asp:Label ID="lblsalarioDiarioSS" runat="server" Text='<%# Eval("SalarioDiarioSS","{0:N2}")%>'> </asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Right">
+                                    <HeaderTemplate>
+                                        Salario 
+                                        <br />SUA
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblSalarioSUA" runat="server" Text='<%# Eval("SalarioSUA","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
 
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                                     <HeaderTemplate>
@@ -186,7 +209,7 @@
                                         integrado
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:Label ID="lblsDI" runat="server" Text='<%# Eval("SDINuevo","{0:N2}")%>'> </asp:Label>
+                                        <asp:Label ID="lblsDIn" runat="server" Text='<%# Eval("SDINuevo","{0:N2}")%>'> </asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right">
@@ -196,7 +219,7 @@
                                         variable
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:Label ID="lblsalarioVariable" runat="server" Text='<%# Eval("SalarioVariableNuevo","{0:N2}")%>'> </asp:Label>
+                                        <asp:Label ID="lblsalarioVariablev" runat="server" Text='<%# Eval("SalarioVariableNuevo","{0:N2}")%>'> </asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right">
@@ -206,7 +229,7 @@
                                         cotización 
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:Label ID="lblsalarioDiarioSS" runat="server" Text='<%# Eval("SalarioDiarioSSNuevo","{0:N2}")%>'> </asp:Label>
+                                        <asp:Label ID="lblsalarioDiarioSSs" runat="server" Text='<%# Eval("SalarioDiarioSSNuevo","{0:N2}")%>'> </asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField ItemStyle-HorizontalAlign="center">
@@ -214,7 +237,15 @@
                                         Modificación
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:Label ID="lblsalarioDiarioSS" runat="server" Text='<%# (Eval("SalarioDiarioSSNuevo", "{0:N2}") == Eval("SalarioDiarioSS", "{0:N2}") ? "NO" : "SI")  %>'> </asp:Label>
+                                        <asp:Label ID="lblsalarioDiarioSSf" runat="server" Text='<%# (Eval("SalarioDiarioSSNuevo", "{0:N2}") == Eval("SalarioDiarioSS", "{0:N2}") ? "NO" : "SI")  %>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                                <asp:TemplateField ItemStyle-HorizontalAlign="center" Visible="false">
+                                    <ItemTemplate>
+                                        <div style="width: 50px;">
+                                            <asp:CheckBox runat="server" ID="chkCon" />
+                                        </div>
                                     </ItemTemplate>
                                 </asp:TemplateField>
                             </Columns>
@@ -224,7 +255,7 @@
                 <ajax:TabPanel ID="TabParteFija" runat="server" HeaderText="Parte fija">
                     <ContentTemplate>
 
-                        <asp:GridView ID="GVCFija" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+                        <asp:GridView ID="GVCFija" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVBuscaddor" AutoGenerateColumns="False" HeaderStyle-CssClass="ADtr"
                             DataKeyNames="CvePersonal,Codigo,Nombre,FechaInicio,Antiguedad,Incapacitado,NumeroSS,CveTipodeSalario,TipodeSalario,SalarioDiario,SDI,SalarioVariable,SalarioDiarioSS,PorPrimaVacacional,NumDiasAguinaldo,Acumulado,diasBimestre,Faltas,Incapaciadad,diaslaborados">
                             <Columns>
                                 <asp:TemplateField HeaderText="Código">
@@ -331,7 +362,7 @@
                 <ajax:TabPanel ID="TabParteVariable" runat="server" HeaderText="Parte variable">
                     <ContentTemplate>
 
-                        <asp:GridView ID="GVPV" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+                        <asp:GridView ID="GVPV" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall  GVBuscaddor" AutoGenerateColumns="False" HeaderStyle-CssClass="ADtr"
                             DataKeyNames="CvePersonal,Codigo,Nombre,FechaInicio,Antiguedad,Incapacitado,NumeroSS,CveTipodeSalario,TipodeSalario,SalarioDiario,SDI,SalarioVariable,SalarioDiarioSS,PorPrimaVacacional,NumDiasAguinaldo,Acumulado,diasBimestre,Faltas,Incapaciadad,diaslaborados">
                             <Columns>
                                 <asp:TemplateField HeaderText="Código">
@@ -344,9 +375,10 @@
                                         <asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:TemplateField  >
+                                <asp:TemplateField>
                                     <HeaderTemplate>
-                                        Fecha alta <br />
+                                        Fecha alta
+                                        <br />
                                         o reingreso
                                     </HeaderTemplate>
                                     <ItemTemplate>
@@ -375,16 +407,18 @@
 
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                                     <HeaderTemplate>
-                                       Percepciones  <br />
+                                        Percepciones 
+                                        <br />
                                         variables
                                     </HeaderTemplate>
                                     <ItemTemplate>
                                         <asp:Label ID="lblacumulado" runat="server" Text='<%# Eval("Acumulado","{0:N2}")%>'> </asp:Label>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:TemplateField  >
+                                <asp:TemplateField>
                                     <HeaderTemplate>
-                                       Días <br />
+                                        Días
+                                        <br />
                                         incapacidad
                                     </HeaderTemplate>
                                     <ItemTemplate>
@@ -417,7 +451,7 @@
                 </ajax:TabPanel>
                 <ajax:TabPanel ID="TabDetalleParteVariable" runat="server" HeaderText="Detalle parte variable">
                     <ContentTemplate>
-                        <asp:GridView ID="GVDetalleParteVariable" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall"></asp:GridView>
+                        <asp:GridView ID="GVDetalleParteVariable" HeaderStyle-CssClass="ADtr" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVBuscaddor"></asp:GridView>
                     </ContentTemplate>
                 </ajax:TabPanel>
             </ajax:TabContainer>
@@ -580,7 +614,223 @@
         </div>
     </div>
 
+    <div id="DmodalCompareSua" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpArchivoSua" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Procesar Archivo SUA</h4>
+                    </div>
+                    <div class="modal-body">
 
+                        <div class="portlet light smmallpadding bordered" id="cargaarchivoprocesasua">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-download font-green"></i>
+                                    <span class="caption-subject bold uppercase">Cargar Archivo</span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding">
+                                <asp:TextBox ID="TxtArchivoSua" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                                <div class="text-center">
+                                </div>
+                            </div>
+                        </div>
+                        <div class="portlet light smmallpadding bordered" id="resultadoprocesasua" style="display: none">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-download font-green"></i>
+                                    <span class="caption-subject bold uppercase">Paso 2:Resultado (Periodo :
+                                        <asp:Literal ID="LtlPeriodo" runat="server"></asp:Literal>)</span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="expand" data-original-title="" title=""></a>
+                                </div>
+                                <div class="actions">
+                                    <div class="btn-group">
+                                        <asp:LinkButton ID="LnkDownExcelSua" OnClick="LnkDownExcelSua_Click" CssClass="btn btn-default" runat="server"><i class="fa fa-ad-excel"></i>Descargar</asp:LinkButton>
+                                    </div>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding " style="display: none;">
+                                <div style="width: 1200px; min-height: 340px;">
+
+                                    <table id="headerProcesaSUAxd" style="display: none">
+                                        <tr>
+                                            <th colspan="5"></th>
+                                            <th colspan="10">Obrera</th>
+                                            <th colspan="10">Patronal</th>
+                                        </tr>
+                                        <tr>
+                                            <th></th>
+                                            <th colspan="2">Salario</th>
+                                            <th colspan="2">Días</th>
+                                            <th colspan="2">Cuota Excedente</th>
+                                            <th colspan="2">Prestaciones en Dinero</th>
+                                            <th colspan="2">Gastos Medicos</th>
+                                            <th colspan="2">Invalidez y Vida</th>
+                                            <th colspan="2">Cesantia y Vejez</th>
+                                            <th colspan="2">Cuota Fija</th>
+                                            <th colspan="2">Riesgos de Trabajo</th>
+                                            <th colspan="2">Guarderia</th>
+                                            <th colspan="2">Retiro</th>
+                                            <th colspan="2">Cesantia y Vejez</th>
+                                        </tr>
+                                    </table>
+                                    <asp:GridView ID="GVProcesarSUA" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD" AutoGenerateColumns="False"
+                                        OnRowDataBound="GVProcesarSUA_RowDataBound" data-height="300" data-tableheader="#headerProcesaSUAxd"
+                                        DataKeyNames="CvePersonal,CodigoNombreCompleto,CuotaFijaSUA,CuotaFijaSIG,CuotaExcedenteSUA,CuotaExcedenteSIG,PrestacionesDineroSUA,PrestacionesSIG,GastosMedPenSUA,GastosMedicosSIG,RiesgosdeTrabajoSUA,RiesgoTrabajoSIG,InvalidezyVidaSUA,InvalidezyVidaSIG,GuarderiaSUA,GuarderiaSIG,RetiroSUA,RetiroSIG,SalarioSUA,SalarioSIG,CesantiayVejezObreraSUA,CesantiayVejezObreraSIG,CesantiayVejezPatronalSUA,CesantiayVejezPatronalSIG">
+                                        <Columns>
+                                            <asp:TemplateField HeaderText="Nombre">
+                                                <ItemTemplate>
+                                                    <asp:Label ID="lblcodigoNombreCompleto" runat="server" Text='<%# Eval("CodigoNombreCompleto")%>'> </asp:Label>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SUA">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("SalarioSUA","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SIG">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("SalarioSIG","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SUA">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("DiasMes","{0:N0}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SIG">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("DiasAsistio","{0:N0}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SUA">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("CuotaExcedenteSUA","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SIG">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("CuotaExcedenteSIG","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SUA">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("PrestacionesDineroSUA","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SIG">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("PrestacionesSIG","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SUA">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("GastosMedPenSUA","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SIG">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("GastosMedicosSIG","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SUA">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("InvalidezyVidaSUA","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SIG">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("InvalidezyVidaSIG","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SUA">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("CesantiayVejezObreraSUA","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SIG">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("CesantiayVejezObreraSIG","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SUA">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("CuotaFijaSUA","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SIG">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("CuotaFijaSIG","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SUA">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("RiesgosdeTrabajoSUA","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SIG">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("RiesgoTrabajoSIG","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SUA">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("GuarderiaSUA","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SIG">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("GuarderiaSIG","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SUA">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("RetiroSUA","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SIG">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("RetiroSIG","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SUA">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("CesantiayVejezPatronalSUA","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                            <asp:TemplateField HeaderText="SIG">
+                                                <ItemTemplate>
+                                                    <asp:Label runat="server" Text='<%# Eval("CesantiayVejezPatronalSIG","{0:N2}")%>'> </asp:Label></td>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                        </Columns>
+                                    </asp:GridView>
+                                </div>
+                            </div>
+                        </div>
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:LinkButton ID="LnkUpSuaFile" OnClick="LnkUpSuaFile_Click" CssClass="btn btn-primary" runat="server"> Procesar</asp:LinkButton>
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+            <Triggers>
+                <asp:PostBackTrigger ControlID="LnkDownExcelSua" />
+            </Triggers>
+        </asp:UpdatePanel>
+    </div>
 
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
@@ -600,6 +850,32 @@
                 document.body.removeChild(elem);
             }
         }
+
+
+        function showResult() {
+            /*
+            setTimeout(function () {
+                let collapse = $('#cargaarchivoprocesasua .expand');
+                let body = $('#cargaarchivoprocesasua .portlet-body');
+                if (collapse && collapse.length > 0) {
+                    collapse.removeClass('collapse');
+                    collapse.addClass('expand');
+                }
+                if (body && body.length > 0) {
+                    body.css('display', 'none');
+                }
+                collapse = $('#resultadoprocesasua .collapse');
+                body = $('#resultadoprocesasua .portlet-body');
+                if (collapse && collapse.length > 0) {
+                    collapse.addClass('collapse');
+                    collapse.removeClass('expand');
+                }
+                if (body && body.length > 0) {
+                    body.css('display', '');
+                }
+                setTimeout(function () { loadadscroll(); }, 50);
+            }, 400);*/
+        }
     </script>
 </asp:Content>
 

RH/CalculoSBC.aspx.cs

@@ -2,6 +2,7 @@
 using System.Collections.Generic;
 using System.Data;
 using System.Linq;
+using System.Text;
 using System.Web;
 using System.Web.UI;
 using System.Web.UI.WebControls;
@@ -23,6 +24,17 @@ public partial class RH_CalculoSBC : ClsPaginas
         if (!IsPostBack)
         {
             TxtFechaPago.Text = String.Format("{0:01/MM/yyyy}", DateTime.Now);
+
+
+            ClsRH ObjRH = new ClsRH();
+
+            if (ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, 1))
+                DdlRegistroPatronal.DataSource = ObjRH.DtResultados;
+            else
+                DdlRegistroPatronal.DataSource = null;
+
+            DdlRegistroPatronal.DataBind(); 
+            ObjRH.Dispose();
             //string rutarchivos = string.Format("{0}modificacionsalarios\\", UsuarioActual.Empresa.RutaArchivos);
             //Alert(rutarchivos);
             //ADSNetLibrary.SIGAPI.Services.Agropecuaria.IAgropecuariaService servicioAgro = new ADSNetLibrary.SIGAPI.Services.Agropecuaria.AgropecuariaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
@@ -34,11 +46,157 @@ public partial class RH_CalculoSBC : ClsPaginas
         }
     }
 
+    protected void LnkDownExcelSua_Click(object sender, EventArgs e)
+    {
+    }
+        protected void LnkUpSuamodal_Click(object sender, EventArgs e)
+    {
+        TxtArchivoSua.Text = "";
+        GVProcesarSUA.DataSource = null;
+        GVProcesarSUA.DataBind();
+        RegistraScript("$('#DmodalCompareSua').modal();shownew();");
+        UpArchivoSua.Update();
+    }
+    protected void LnkUpSuaFile_Click(object sender, EventArgs e)
+    {
+        string fileurl = "";
+        GVProcesarSUA.DataSource = null;
+        Files archivos = TxtArchivoSua.getfiles();
+        if (archivos.Archivos.Count > 0)
+        {
+            fileurl = archivos.Archivos[0].FileUrl;
+            string SuaFiletext = System.IO.File.ReadAllText(fileurl, Encoding.GetEncoding("iso-8859-1"));
+            using (ClsNominas ObjPersonal = new ClsNominas())
+            {
+                if (ObjPersonal.ProcesarSUA(SuaFiletext, UsuarioActual.CveEmpresa))
+                {
+                    if (ObjPersonal.DTSetResultados.Tables.Count > 4)
+                    {
+                        DateTime dateperiodo;
+                        DateTime.TryParseExact(string.Format("{0}01", ObjPersonal.DTSetResultados.Tables[1].Rows[0]["Periodo"]), "yyyyMMdd", new System.Globalization.CultureInfo("es-MX"), System.Globalization.DateTimeStyles.None, out dateperiodo);
+                        LtlPeriodo.Text = dateperiodo.Date.ToString("MMMM yyyy", new System.Globalization.CultureInfo("es-MX"));
+                        //DtSuaProcesado = ObjPersonal.DTSetResultados.Tables[3];
+                        GVProcesarSUA.DataSource = ObjPersonal.DTSetResultados.Tables[3];
+                    }
+                }
+            }
+
+        }
+        GVProcesarSUA.DataBind();
+        TxtArchivoSua.Text = "";
+        //RegistraScript("showResult();");
+        RegistraScript("$('#DmodalCompareSua').modal('hide');shownew();");
+        Alert("El archivo se a procesado Correctamente");
+        LnkCalcular_Click(null,null);
+        UpArchivoSua.Update();
+    }
+
+    protected void GVProcesarSUA_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            if (e.Row.RowIndex == 0)
+            {
+                e.Row.CssClass = "Totales";
+            }
+            string SalarioSUA = string.Format("{0:N2}", e.Row.DataKey("SalarioSUA").ToDecimal());
+            string SalarioSIG = string.Format("{0:N2}", e.Row.DataKey("SalarioSIG").ToDecimal());
+            int celda = 1;
+            if (Math.Abs(SalarioSUA.ToDecimal() - SalarioSIG.ToDecimal()) > 1)
+            {
+                e.Row.Cells[celda].CssClass = "cellFail";
+                e.Row.Cells[celda + 1].CssClass = "cellFail";
+            }
+            celda = celda + 4;
+            string CuotaExcedenteSUA = string.Format("{0:N2}", e.Row.DataKey("CuotaExcedenteSUA").ToDecimal());
+            string CuotaExcedenteSIG = string.Format("{0:N2}", e.Row.DataKey("CuotaExcedenteSIG").ToDecimal());
+            if (Math.Abs(CuotaExcedenteSUA.ToDecimal() - CuotaExcedenteSIG.ToDecimal()) > 1)
+            {
+                e.Row.Cells[celda].CssClass = "cellFail";
+                e.Row.Cells[celda + 1].CssClass = "cellFail";
+            }
+            celda = celda + 2;
+            string PrestacionesDineroSUA = string.Format("{0:N2}", e.Row.DataKey("PrestacionesDineroSUA").ToDecimal());
+            string PrestacionesSIG = string.Format("{0:N2}", e.Row.DataKey("PrestacionesSIG").ToDecimal());
+            if (Math.Abs(PrestacionesDineroSUA.ToDecimal() - PrestacionesSIG.ToDecimal()) > 1)
+            {
+                e.Row.Cells[celda].CssClass = "cellFail";
+                e.Row.Cells[celda + 1].CssClass = "cellFail";
+            }
+            celda = celda + 2;
+            string GastosMedPenSUA = string.Format("{0:N2}", e.Row.DataKey("GastosMedPenSUA").ToDecimal());
+            string GastosMedicosSIG = string.Format("{0:N2}", e.Row.DataKey("GastosMedicosSIG").ToDecimal());
+            if (Math.Abs(GastosMedPenSUA.ToDecimal() - GastosMedicosSIG.ToDecimal()) > 1)
+            {
+                e.Row.Cells[celda].CssClass = "cellFail";
+                e.Row.Cells[celda + 1].CssClass = "cellFail";
+            }
+            celda = celda + 2;
+            string InvalidezyVidaSUA = string.Format("{0:N2}", e.Row.DataKey("InvalidezyVidaSUA").ToDecimal());
+            string InvalidezyVidaSIG = string.Format("{0:N2}", e.Row.DataKey("InvalidezyVidaSIG").ToDecimal());
+            if (Math.Abs(InvalidezyVidaSUA.ToDecimal() - InvalidezyVidaSIG.ToDecimal()) > 1)
+            {
+                e.Row.Cells[celda].CssClass = "cellFail";
+                e.Row.Cells[celda + 1].CssClass = "cellFail";
+            }
+            celda = celda + 2;
+            string CesantiayVejezObreraSUA = string.Format("{0:N2}", e.Row.DataKey("CesantiayVejezObreraSUA").ToDecimal());
+            string CesantiayVejezObreraSIG = string.Format("{0:N2}", e.Row.DataKey("CesantiayVejezObreraSIG").ToDecimal());
+            if (Math.Abs(CesantiayVejezObreraSUA.ToDecimal() - CesantiayVejezObreraSIG.ToDecimal()) > 1)
+            {
+                e.Row.Cells[celda].CssClass = "cellFail";
+                e.Row.Cells[celda + 1].CssClass = "cellFail";
+            }
+            celda = celda + 2;
+            string CuotaFijaSUA = string.Format("{0:N2}", e.Row.DataKey("CuotaFijaSUA").ToDecimal());
+            string CuotaFijaSIG = string.Format("{0:N2}", e.Row.DataKey("CuotaFijaSIG").ToDecimal());
+            if (Math.Abs(CuotaFijaSUA.ToDecimal() - CuotaFijaSIG.ToDecimal()) > 1)
+            {
+                e.Row.Cells[celda].CssClass = "cellFail";
+                e.Row.Cells[celda + 1].CssClass = "cellFail";
+            }
+            celda = celda + 2;
+            string RiesgosdeTrabajoSUA = string.Format("{0:N2}", e.Row.DataKey("RiesgosdeTrabajoSUA").ToDecimal());
+            string RiesgoTrabajoSIG = string.Format("{0:N2}", e.Row.DataKey("RiesgoTrabajoSIG").ToDecimal());
+            if (Math.Abs(RiesgosdeTrabajoSUA.ToDecimal() - RiesgoTrabajoSIG.ToDecimal()) > 1)
+            {
+                e.Row.Cells[celda].CssClass = "cellFail";
+                e.Row.Cells[celda + 1].CssClass = "cellFail";
+            }
+            celda = celda + 2;
+            string GuarderiaSUA = string.Format("{0:N2}", e.Row.DataKey("GuarderiaSUA").ToDecimal());
+            string GuarderiaSIG = string.Format("{0:N2}", e.Row.DataKey("GuarderiaSIG").ToDecimal());
+            if (Math.Abs(GuarderiaSUA.ToDecimal() - GuarderiaSIG.ToDecimal()) > 1)
+            {
+                e.Row.Cells[celda].CssClass = "cellFail";
+                e.Row.Cells[celda + 1].CssClass = "cellFail";
+            }
+            celda = celda + 2;
+            string RetiroSUA = string.Format("{0:N2}", e.Row.DataKey("RetiroSUA").ToDecimal());
+            string RetiroSIG = string.Format("{0:N2}", e.Row.DataKey("RetiroSIG").ToDecimal());
+            if (Math.Abs(RetiroSUA.ToDecimal() - RetiroSIG.ToDecimal()) > 1)
+            {
+                e.Row.Cells[celda].CssClass = "cellFail";
+                e.Row.Cells[celda + 1].CssClass = "cellFail";
+            }
+            celda = celda + 2;
+            string CesantiayVejezPatronalSUA = string.Format("{0:N2}", e.Row.DataKey("CesantiayVejezPatronalSUA").ToDecimal());
+            string CesantiayVejezPatronalSIG = string.Format("{0:N2}", e.Row.DataKey("CesantiayVejezPatronalSIG").ToDecimal());
+            if (Math.Abs(CesantiayVejezPatronalSUA.ToDecimal() - CesantiayVejezPatronalSIG.ToDecimal()) > 1)
+            {
+                e.Row.Cells[celda].CssClass = "cellFail";
+                e.Row.Cells[celda + 1].CssClass = "cellFail";
+            }
+
+        }
+    }
+
     protected void LnkCalcular_Click(object sender, EventArgs e)
     {
         using (ClsNominas objnom = new ClsNominas())
         {
-            if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero(), TxtFechaPago.Text))
+            if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero(), TxtFechaPago.Text,DdlRegistroPatronal.SelectedValue.ToEntero()))
             {
                 GVCalculosSBC.DataSource = objnom.DTSetResultados.Tables[0];
                 GVCFija.DataSource = objnom.DTSetResultados.Tables[0];
@@ -92,7 +250,7 @@ public partial class RH_CalculoSBC : ClsPaginas
                     double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2);
                     double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2);
                     string RegistroPatronal = item.DataKey("RegistroPatronal");
-                    if(oldRegistroPatronal != "-1" && oldRegistroPatronal != RegistroPatronal)
+                    if(oldRegistroPatronal != "-1" && oldRegistroPatronal != RegistroPatronal )
                     {
                         MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater,
                 $"*************                                           00{(contador < 1000 ? "0" : "")}{(contador < 100 ? "0" : "")}{(contador < 10 ? "0" : "")}{contador}                                                                       00001                             9");
@@ -103,7 +261,7 @@ public partial class RH_CalculoSBC : ClsPaginas
                         concater = "";
                         contador = 0;
                     }
-                    if (SalarioDiarioSSNuevo != SalarioDiarioSS)
+                    if (SalarioDiarioSSNuevo != SalarioDiarioSS || item.FCCheckBox("chkCon").Checked)
                     {
                         MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater, item.DataKey("Movtotxt"));
                         concater = "\\r\\n";
@@ -249,18 +407,18 @@ public partial class RH_CalculoSBC : ClsPaginas
         //libro.Range(3, 2, 3, 6).Merge().Value = $"del {fechai:dd/MM/yyyy} al {fechaf:dd/MM/yyyy}";
         libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{DateTime.Now:dd/MM/yyyy}";
         libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{DateTime.Now:HH:mm}";
-        libro.Range(5, 8, 5, 11).Merge().Value = "Actual";
-        libro.Range(5, 12, 5, 14).Merge().Value = "Nuevo";
+        libro.Range(5, 8, 5, 12).Merge().Value = "Actual";
+        libro.Range(5, 13, 5, 15).Merge().Value = "Nuevo";
 
         libro.Range(5, 1, 6, 14).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
 
-        libro.Range(5, 1, 6, 13).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
-        libro.Range(5, 1, 5, 13).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.None;
+        libro.Range(5, 1, 6, 16).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+        libro.Range(5, 1, 5, 16).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.None;
 
-        libro.Range(5, 8, 6, 11).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(128, 100, 162));
-        libro.Range(5, 8, 6, 11).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-        libro.Range(5, 12, 6, 14).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(136, 214, 205));
-        libro.Range(5, 12, 6, 14).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+        libro.Range(5, 8, 6, 12).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(128, 100, 162));
+        libro.Range(5, 8, 6, 12).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+        libro.Range(5, 13, 6, 15).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(136, 214, 205));
+        libro.Range(5, 13, 6, 15).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
 
 
         libro.Range(7, 8, 7 + dt.Rows.Count, 12).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Right;

RH/CatDocumentos.aspx

@@ -372,23 +372,22 @@
 
 
         <div id="DvTags" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog" style="width: 450px;">
+        <div class="modal-dialog modal-lg">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpEtiquetas" UpdateMode="Conditional">
                 <ContentTemplate>
-
-                    <div class="modal-header ">
+                    <div class="modal-header">
                         <button type="button" class="close" data-dismiss="modal">×</button>
                         <h4 class="modal-title"> 
                             <h4> <asp:Literal ID="Literal2" runat="server">Etiquetas</asp:Literal></h4>
                         </h4>
                     </div>
-
-                    <div class="modal-body">
+                    <div class="modal-body ADScroller ADScroller-body" style="max-height:80vh">
+                        <div class="col-md-6 table-responsive">
                         <table  class="table table-hover">
 	                        <thead>
 		                        <tr>
-			                        <th>Etiqueta</th>
-			                        <th>Descripción</th>
+			                        <th class="col-md-4">Etiqueta</th>
+			                        <th class="col-md-6">Descripción</th>
 		                        </tr>
 	                        </thead>
 	                        <tbody>
@@ -411,11 +410,23 @@
 		                        <tr><td>{CreditoInfonavit}</td><td></td></tr>
 		                        <tr><td>{RentaMensual}</td><td></td></tr>
 		                        <tr><td>{TransportePublico}</td><td></td></tr>
-		                        <tr><td>{TrabajadoAnteriormente}</td><td>La persona a trabajado enteriormente en la empresa</td></tr>
-		                        <tr><td>{TrabajadoAnteriormenteObservaciones}</td><td>Detalle de trabajo enterior en empresa</td></tr>
+		                        <tr><td>{TrabajadoAnteriormente}</td><td>La persona ha trabajado anteriormente en la empresa</td></tr>
+		                        <tr><td>{TrabajadoAnteriormenteObservaciones}</td><td>Detalle de trabajo anterior en empresa</td></tr>
                                 <tr><td>{ParientesEmpresa}</td><td>Se tienen parientes en la empresa</td></tr>
 		                        <tr><td>{AcusadoDelito}</td><td></td></tr>
 		                        <tr><td>{AcusadoDelitoObservaciones}</td><td></td></tr>
+	                        </tbody>
+                            </table>
+                        </div>
+                        <div class="col-md-6 table-responsive">
+                        <table  class="table table-hover">
+	                        <thead>
+		                        <tr>
+			                        <th class="col-md-4">Etiqueta</th>
+			                        <th class="col-md-6">Descripción</th>
+		                        </tr>
+	                        </thead>
+	                        <tbody>
                                 <tr><td>{Calle}</td><td></td></tr>
 		                        <tr><td>{Colonia}</td><td></td></tr>
 		                        <tr><td>{CP}</td><td></td></tr>
@@ -431,25 +442,19 @@
 		                        <tr><td>{Puesto}</td><td></td></tr>
 		                        <tr><td>{FechaActual}</td><td></td></tr>
 		                        <tr><td>{FechaActualDF}</td><td></td></tr>
-                               
-                                
-
                                 <tr><td>{FechaFin}</td><td>Fecha Fin de Contrato</td></tr>
-                                <tr><td>Sexo</td><td>Sexo</td></tr>
-                                <tr><td>{NombreEmpresa}</td><td>Empresa</td></tr>
+                                <tr><td>{Sexo}</td><td>Sexo</td></tr>
                                 <tr><td>{Sueldo}</td><td>Sueldo</td></tr>
                                 <tr><td>{SueldoLetra}</td><td>Sueldo en letra</td></tr>
                                 <tr><td>{Nacionalidad}</td><td>Nacionalidad</td></tr>
-
-
-
+                                <tr><td>{EmpresaNombre}</td><td>Empresa</td></tr>
+                                <tr><td>{EmpresaDireccion}</td><td>Dirección de la Empresa</td></tr>
+                                <tr><td>{EmpresaCiudad}</td><td>Ciudad de la Empresa</td></tr>
+                                <tr><td>{EmpresaRFC}</td><td>RFC Empresa</td></tr>
+                                <tr><td>{EmpresaRepresentante}</td><td>Representante Empresa</td></tr>
 	                        </tbody>
                             </table>
-
- 
-                        
-                                       
-
+                        </div>
                     </div>
 
                     <div class="modal-footer">                       

RH/CatPersonal.aspx.vb

@@ -1190,8 +1190,8 @@ Partial Class RH_CatPersonal
                    CveEtadoCivil, DdlGeneroAdd.SelectedValue.ToEntero(),
                    -1, "-1", CveEstatusPersonal, TxtFechaNacimiento.Text.ToDate,
                    "", "", "", "", "", "", "",
-                   DdlEstados.SelectedValue.ToEntero, "", "", TxtRFC.Text.Trim,
-                   TxtCURP.Text.Trim, "", "", -1, CveSATRiesgoPuesto, DdlRegimenContratacion.SelectedValue.ToEntero,
+                   DdlEstados.SelectedValue.ToEntero, "", "", "", TxtRFC.Text.Trim,
+                   TxtCURP.Text.Trim, "", "", "", -1, CveSATRiesgoPuesto, DdlRegimenContratacion.SelectedValue.ToEntero,
                    -1, DdlSubProyectoAsignadoAdd.SelectedValue.ToEntero, "",
                    DdlSupervisor.SelectedValue.ToEntero, "", "", DdlJornada.SelectedValue.ToEntero, -1, "-1",
                    0, "Seleccione", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, CveUniforme:=-1,

RH/Personal.aspx

@@ -264,7 +264,7 @@
                                                         <label for="<%= TxtCalle.ClientID.ToString()%>">Calle: </label>
                                                         <i></i>
                                                     </div>
-                                                    <div class="row">
+                                                    <div class="row" style="margin-bottom:5px">
                                                         <div class="col-md-6">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox CssClass="form-control" ID="TxtNumExt" runat="server" MaxLength="70"></asp:TextBox>
@@ -302,7 +302,12 @@
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
                                                          <asp:TextBox CssClass="form-control" ID="TxtTelefono" runat="server" MaxLength="10"></asp:TextBox>
-                                                        <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono </label>
+                                                         <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
+                                                         <i></i>
+                                                    </div>
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                         <asp:TextBox CssClass="form-control" ID="TxtTelefonoEmergencia" runat="server" MaxLength="70"></asp:TextBox>
+                                                         <label for="<%= TxtTelefonoEmergencia.ClientID.ToString()%>">Contacto en caso de emergencia (nombre y teléfono):</label>
                                                          <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
@@ -317,18 +322,19 @@
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox ID="TxtMailrecibonomina" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
+                                                        <asp:TextBox CssClass="form-control" ID="TxtMailrecibonomina" runat="server" CausesValidation="true" MaxLength="70"></asp:TextBox>
                                                         <asp:Label runat="server" AssociatedControlID="TxtMailrecibonomina" Text="Mail recibo nómina:"></asp:Label>
                                                     </div>
-
-
                                                     <div class="form-group form-md-line-input input-iconright" style="display: none">
                                                         <asp:TextBox CssClass="form-control" ID="TxtLugarNacimiento" runat="server" MaxLength="70"></asp:TextBox>
                                                         <label for="<%= TxtLugarNacimiento.ClientID.ToString()%>">Lugar de nacimiento: </label>
                                                         <i></i>
                                                     </div>
-
-
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                         <asp:TextBox CssClass="form-control" ID="TxtCredencialElector" runat="server" MaxLength="50"></asp:TextBox>
+                                                         <label for="<%= TxtCredencialElector.ClientID.ToString()%>">Credencial Elector: </label>
+                                                         <i></i>
+                                                    </div>
 
                                                     <div runat="server" id="DivPadres" visible="true">
                                                         <div class="form-group form-md-line-input input-iconright">
@@ -336,40 +342,34 @@
                                                             <label for="<%= TxtNombrePadre.ClientID.ToString()%>">Nombre del Padre: </label>
                                                             <i></i>
                                                         </div>
-
                                                         <div class="form-group form-md-line-input input-iconright">
                                                             <asp:TextBox CssClass="form-control" ID="TxtNombreMadre" runat="server" MaxLength="50"></asp:TextBox>
                                                                 <label for="<%= TxtNombreMadre.ClientID.ToString()%>">Nombre de la Madre: </label>
                                                             <i></i>
                                                         </div>
                                                     </div>
-                                                    <br />
-                                                    <div runat="server" id="DivFamiliares" visible="false">
 
+                                                    <div runat="server" id="DivFamiliares" visible="false">
                                                         <asp:UpdatePanel ID="UPTabFamiliares" runat="server" UpdateMode="Conditional">
                                                             <ContentTemplate>
                                                                 <asp:GridView ID="GvFamiliares" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFamiliar,Parentesco,Nombre,Domicilio,Edad,Ocupacion,CveParentesco,Telefono,Observaciones,Beneficiario"
                                                                     EmptyDataText="No se encontraron  registros de familiares" ToolTip="Listado de familiares" CssClass="table  table-hover table-advance ADScroller Widthall btn-xs" GridLines="None">
                                                                     <Columns>
-
                                                                         <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Nombre">
                                                                             <ItemTemplate>
                                                                                 <asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
                                                                             </ItemTemplate>
                                                                         </asp:TemplateField>
-
                                                                         <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Parentesco">
                                                                             <ItemTemplate>
                                                                                 <asp:Literal ID="LtlParentesco" runat="server" Text='<%# Eval("Parentesco")%>'></asp:Literal>
                                                                             </ItemTemplate>
                                                                         </asp:TemplateField>
-
                                                                         <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Bene.">
                                                                             <ItemTemplate>
                                                                                 <asp:CheckBox runat="server" ID="ChkBeneficiario" Checked='<%# (Eval("Beneficiario").ToString().ToUpper() = "TRUE") Or (Eval("Beneficiario").ToString() = "1") %>' Enabled="false" />
                                                                             </ItemTemplate>
                                                                         </asp:TemplateField>
-
                                                                         <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="40px">
                                                                             <ItemTemplate>
                                                                                 <asp:LinkButton ID="ImgE" OnClick="Edit_ClickFamiliar" runat="server" AlternateText="Editar" CausesValidation="False"
@@ -383,16 +383,9 @@
                                                                         </asp:TemplateField>
                                                                     </Columns>
                                                                 </asp:GridView>
-
                                                             </ContentTemplate>
                                                         </asp:UpdatePanel>
-
-
-
-
-
                                                     </div>
-
                                                 </div>
                                             </div>
                                         </div>

RH/Personal.aspx.vb

@@ -1612,8 +1612,10 @@ Partial Class RH_Personal
                 TxtCiudad.Text = ObjPersonal.Ciudad
                 TxtEstado.Text = ObjPersonal.Estado
                 TxtTelefono.Text = ObjPersonal.Telefono
+                TxtTelefonoEmergencia.Text = ObjPersonal.TelefonoEmergencia
                 TxtCelular.Text = ObjPersonal.Celular
                 TxtLugarNacimiento.Text = ObjPersonal.LugarNacimiento.ToString()
+                TxtCredencialElector.Text = ObjPersonal.CredencialElector
                 TxtNombrePadre.Text = ObjPersonal.NombrePadre
                 TxtNombreMadre.Text = ObjPersonal.NombreMadre
                 Session("FileUpload") = ObjPersonal.URL
@@ -1926,7 +1928,7 @@ Partial Class RH_Personal
                -1, "-1",
                DdlEstatusPersonal.SelectedValue.ToEntero(), TxtFechaNacimiento.Text.ToDate,
                TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
-               DdlEstados.SelectedValue.ToEntero(), TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
+               DdlEstados.SelectedValue.ToEntero(), TxtTelefono.Text.Trim, TxtTelefonoEmergencia.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim, TxtCredencialElector.Text.Trim,
                TxtCURP.Text.Trim, TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim, DdlBanco.SelectedValue.ToEntero(), DdlRiesgoPuesto.SelectedValue.ToEntero(), DdlRegimenContratacion.SelectedValue.ToEntero(),
                DdlClienteAsignado.SelectedValue.ToEntero(), DdlSubProyectoAsignado.SelectedValue.ToEntero(), URL,
                DdlSupervisor.SelectedValue.ToEntero(), TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero(), DdlViaticos.SelectedValue.ToEntero(), DdlViaticos.SelectedItem.Text,
@@ -2009,8 +2011,8 @@ Partial Class RH_Personal
                DdlMotivoBaja.SelectedValue.ToEntero(), If(DdlEstatusPersonal.SelectedValue = "2", TxtFechaBaja.Text.Trim, "-1"),
                DdlEstatusPersonal.SelectedValue.ToEntero(), TxtFechaNacimiento.Text.ToDate,
                TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
-               DdlEstados.SelectedValue.ToEntero(), TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
-               TxtCURP.Text.Trim, TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim,
+               DdlEstados.SelectedValue.ToEntero(), TxtTelefono.Text.Trim, TxtTelefonoEmergencia.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
+               TxtCURP.Text.Trim, TxtCredencialElector.Text.Trim, TxtNombrePadre.Text.Trim, TxtNombreMadre.Text.Trim,
                DdlBanco.SelectedValue.ToEntero(), DdlRiesgoPuesto.SelectedValue.ToEntero(), DdlRegimenContratacion.SelectedValue.ToEntero(),
                DdlClienteAsignado.SelectedValue.ToEntero(), DdlSubProyectoAsignado.SelectedValue.ToEntero(), CvePersonal,
                URL, DdlSupervisor.SelectedValue.ToEntero(), TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero(), DdlViaticos.SelectedValue.ToEntero(), DdlViaticos.SelectedItem.Text,
@@ -3650,9 +3652,11 @@ Partial Class RH_Personal
                 params.Add(New ReportParameter("Ciudad", ObjPersonal.CP))
                 params.Add(New ReportParameter("Estado", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Telefono", ObjPersonal.Telefono))
+                params.Add(New ReportParameter("TelefonoEmergencia", ObjPersonal.TelefonoEmergencia))
                 params.Add(New ReportParameter("Celular", ObjPersonal.Celular))
                 params.Add(New ReportParameter("Correo", ObjPersonal.Correo))
                 params.Add(New ReportParameter("LugarNacimiento", Now.ToDateTime.ToShortDateString))
+                params.Add(New ReportParameter("CredencialElector", ObjPersonal.CredencialElector))
                 params.Add(New ReportParameter("NombrePadre", ObjPersonal.NombrePadre))
                 params.Add(New ReportParameter("NombreMadre", ObjPersonal.NombreMadre))
                 params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))

SAT/SolicitudesIngresoSat.aspx

@@ -312,17 +312,17 @@
 
 
             <div class="row" runat="server" id="DVResumen1" visible="false">
-                <div class="col-md-6" style="text-align: right">
+                <div class="col-md-7" style="text-align: right">
                     <input type="text" id="TxtBusquedaResumen" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaResumen','{0}')", GvResumen.ClientID) %>" style="display: inline-block; width: 150px;" />
                     <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaResumen','{0}')", GvResumen.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                 </div>
             </div>
             <div class="row" runat="server" id="DVResumen2" visible="false">
 
-                <div class="col-md-6">
+                <div class="col-md-7">
                     <asp:GridView ID="GvResumen" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False" OnRowDataBound="GvResumen_RowDataBound"
                         ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
-                        DataKeyNames="Mes">
+                        DataKeyNames="Fecha">
                         <Columns>
                             <asp:TemplateField HeaderText="Mes">
                                 <ItemTemplate>

SAT/SolicitudesIngresoSat.aspx.cs

@@ -396,9 +396,9 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
     {
         if(e.Row.RowType == DataControlRowType.DataRow)
         {
-            if(e.Row.DataKey("Mes").ToString() == "")
+            if(e.Row.DataKey("Fecha") == "")
             {
-                e.Row.Cells[0].Text = "Total";                
+                // e.Row.Cells[0].Text = "Total";                
                 e.Row.Attributes.Add("class", "Totales");
 
             }

Scripts/custom.js

@@ -587,8 +587,8 @@ function CargaPickers() {
             TThis.datetimepicker({
                 dayOfWeekStart: 1,
                 lang: 'es',
-                format: 'd/m/Y',
-                formatDate: 'd/m/Y',
+                format: 'd/m/Y H:i',
+                formatDate: 'd/m/Y H:i',
                 step: 30
             });
             if (datetimeButton && datetimeButton.length) {

Ventas/Clientes.aspx.vb

@@ -2299,7 +2299,6 @@ Partial Class Clientes
                     End If
                 End If
 
-
                 If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
                     Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
                     Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
@@ -2308,9 +2307,9 @@ Partial Class Clientes
                 End If
 
                 If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
-                    If File.Exists($"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf") AndAlso File.Exists($"{Ruta}XML\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.xml") Then
                     Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf"
                     Dim XML As String = $"{Ruta}XML\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.xml"
+                    If File.Exists(PDF) AndAlso File.Exists(XML) Then
 
                         Dim ResultadoMail As Integer = 0
                         Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
@@ -2344,38 +2343,38 @@ Partial Class Clientes
                     Else
                         Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
                     End If
-                ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
-                    If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") Then
-                        Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf"
+                    'ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
+                    '    If File.Exists(Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf") Then
+                    '        Dim PDF As String = Ruta & "PDF\" & HdnFolioVenta.Value & ".pdf"
 
-                        Dim ResultadoMail As Integer = 0
-                        Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
-                        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
-                        If Dr("Adjunto").ToString() <> "" Then
-                            Adjunto = Dr("Adjunto").ToString()
-                            Dim ArchivoAdjunto As String = $"{Ruta}Ventas\{Adjunto}"
-                            LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoAdjunto})
-                        End If
+                    '        Dim ResultadoMail As Integer = 0
+                    '        Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
+                    '        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = PDF})
+                    '        If Dr("Adjunto").ToString() <> "" Then
+                    '            Adjunto = Dr("Adjunto").ToString()
+                    '            Dim ArchivoAdjunto As String = $"{Ruta}Ventas\{Adjunto}"
+                    '            LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoAdjunto})
+                    '        End If
 
-                        'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
-                        If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, Asunto, Cuerpo, TxtCC.Text.Trim, LSRutasMail) Then
-                            ResultadoMail = 1
-                            TxtCC.Text = ""
-                            TxtBody.Text = ""
-                            RegistraScript("$('#ModalDivMail').modal('hide');")
-                            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
-                            CargaHistorial()
-                            UpnHistorial.Update()
-                        Else
-                            ResultadoMail = 3
-                        End If
+                    '        'If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Entrega de Factura", PDF, XML, ArrayCC, TxtBody.Text.Trim) Then
+                    '        If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, Asunto, Cuerpo, TxtCC.Text.Trim, LSRutasMail) Then
+                    '            ResultadoMail = 1
+                    '            TxtCC.Text = ""
+                    '            TxtBody.Text = ""
+                    '            RegistraScript("$('#ModalDivMail').modal('hide');")
+                    '            Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
+                    '            CargaHistorial()
+                    '            UpnHistorial.Update()
+                    '        Else
+                    '            ResultadoMail = 3
+                    '        End If
 
-                        Dim ObjVentas As New ClsVentas
-                        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero())
-                        ObjVentas.Dispose()
-                    Else
-                        Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
-                    End If
+                    '        Dim ObjVentas As New ClsVentas
+                    '        ObjVentas.UpdateVentaMail(ResultadoMail, HdnCveVenta.Value.ToEntero())
+                    '        ObjVentas.Dispose()
+                    '    Else
+                    '        Alert("No se pudo adjuntar el correo electrónico.", TipoMensaje.MsgError)
+                    '    End If
                 ElseIf HdnTipoDocto.Value = "Cot" Then
                     If File.Exists($"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf") Then
                         Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf"
@@ -2966,7 +2965,7 @@ Partial Class Clientes
             'HLRemision.HRef = $"/Ventas/Ventas.aspx?CveRemision={e.Row.DBCampo("CveVenta")}"
 
             Dim Liga As String = String.Format("< a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta"))
-            HLSendMail.HRef = String.Format("javascript:(function mail(){{$get('HdnTipoDocto').value='{0}';$get('HdnCveVenta').value='{1}';$get('HdnFolioVenta').value='{2}';$get('TxtParaMail').value='{3}';$get('HdnSerieFolio').value='{4}';$get('HdnSubProyecto').value='{5}';$('#ModalDivMail').modal();return false;}})();", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveVenta"), e.Row.DBCampo("folio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto"))
+            HLSendMail.HRef = String.Format("javascript:(function mail(){{$get('HdnTipoDocto').value='{0}';$get('HdnCveVenta').value='{1}';$get('HdnFolioVenta').value='{2}';$get('TxtParaMail').value='{3}';$get('HdnSerieFolio').value='{4}';$get('HdnSubProyecto').value='{5}';$('#ModalDivMail').modal();void(0);}})();", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveVenta"), e.Row.DBCampo("folio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto"))
             e.Row.FCLiteral("LtlFactura").Text = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">{1}</a>", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("Folio"))
 
             UpSendMail.Update()

Ventas/ProductosServicios.aspx

@@ -385,6 +385,7 @@
                                         </ContentTemplate>
                                     </asp:UpdatePanel>
                                 </div>
+
                                 <div class="row">
                                     <div class="col-md-12" id="DivLlantas" runat="server" visible="false">
                                         <div class="portlet xspadding light bordered">
@@ -434,6 +435,7 @@
                                         </div>
                                     </div>
                                 </div>
+
                                 <div class="row">
                                     <asp:UpdatePanel ID="UpPSAdicionales" runat="server" UpdateMode="Conditional">
                                         <ContentTemplate>
@@ -495,6 +497,45 @@
                                         </ContentTemplate>
                                     </asp:UpdatePanel>
                                 </div>
+
+                                <div class="row">
+                                    <div class="col-md-12" id="DivCitricos" runat="server" visible="false">
+                                        <div class="portlet xspadding light bordered">
+                                            <div class="portlet-title">
+                                                <div class="caption font-green">
+                                                    <i class="icon-briefcase font-green"></i>
+                                                    <span class="caption-subject bold uppercase">Cítricos</span>
+                                                </div>
+                                                <div class="actions">
+                                                    <div class="btn-group">
+                                                    </div>
+                                                </div>
+                                            </div>
+                                            <div class="portlet-body form">
+                                                <div class="row">
+                                                    <div class="col-md-12">
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:DropDownList ID="DdlEmpacado" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoEmpacado" DataValueField="CveTipoEmpacado" Height="22px">
+                                                                <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
+                                                            </asp:DropDownList>
+                                                            <label for="<%= DdlEmpacado.ClientID.ToString()%>">Empacado:</label>
+                                                            <i></i>
+                                                        </div>
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:DropDownList ID="DdlTipoOrganico" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoOrganico" DataValueField="CveTipoOrganico" Height="22px">
+                                                                <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
+                                                            </asp:DropDownList>
+                                                            <label for="<%= DdlTipoOrganico.ClientID.ToString()%>">Tipo Orgánico:</label>
+                                                            <i></i>
+                                                        </div>
+                                                    </div>
+
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+
                             </div>
                         </div>
                     </ContentTemplate>

Ventas/ProductosServicios.aspx.vb

@@ -397,6 +397,12 @@ Partial Class ProductosyServicios
 
         CvePSAdicional = -1
 
+        'Nueva funcionalidad MLopez: 18/11/2022 -- Empresa Citrícola
+        If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then
+            DivCitricos.Visible = True
+            CargaPanelCitricos()
+        End If
+
     End Sub
 
     'Private Sub CargaPSAdicional(Objeto As ADServerControl.Dropdownlost)
@@ -431,6 +437,22 @@ Partial Class ProductosyServicios
 
     End Sub
 
+    Private Sub CargaPanelCitricos()
+        Dim ObjGral As New ClsGenerales()
+        If ObjGral.GetEmpacados(UsuarioActual.CveEmpresa) Then
+            DdlEmpacado.DataSource = ObjGral.DtResultados
+        End If
+        If ObjGral.GetTipoOrganicos(UsuarioActual.CveEmpresa) Then
+            DdlTipoOrganico.DataSource = ObjGral.DtResultados
+        End If
+        ObjGral.Dispose()
+
+        DdlEmpacado.DataBind()
+        DdlTipoOrganico.DataBind()
+
+    End Sub
+
+
     Private Sub MuestraPanel(Optional AfterPageLoad As Boolean = False)
         If AfterPageLoad Then
             RegistraScript("window.onload = function MuestraPanel() { document.getElementById(""C_BtnMostrarPanel"").click(); }")
@@ -940,6 +962,9 @@ Partial Class ProductosyServicios
                 '    DdlPSAdicional.SelectedText = "Seleccione"
                 'End If
 
+                DdlEmpacado.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTipoEmpacado").ToString)
+                DdlTipoOrganico.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTipoOrganico").ToString)
+
                 Try
                     DdlClasificacion_SelectedIndexChanged(DdlClasificacion, Nothing)
 
@@ -1428,6 +1453,7 @@ Partial Class ProductosyServicios
                                                CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
                                                CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=CveTamaño,
                                                CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
+                                               CveTipoEmpacado:=DdlEmpacado.SelectedValue.ToEntero(), CveTipoOrganico:=DdlTipoOrganico.SelectedValue.ToEntero(),
                                                ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
                                                CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
@@ -1478,6 +1504,7 @@ Partial Class ProductosyServicios
                                                   CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
                                                   CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=CveTamaño,
                                                   CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
+                                                  CveTipoEmpacado:=DdlEmpacado.SelectedValue.ToEntero(), CveTipoOrganico:=DdlTipoOrganico.SelectedValue.ToEntero(),
                                                   ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                   ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
                                                   AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
@@ -1588,7 +1615,7 @@ Partial Class ProductosyServicios
         Dim ObjAliasAdd As New ClsProductosServicios
         Dim TieneError = False
 
-        If ObjAliasAdd.AddPSAlias(TxtAlias.Text.ToString, CvePS, False, UsuarioActual.CveUsuario) Then
+        If ObjAliasAdd.AddPSAlias(TxtAlias.Text.ToString, CvePS, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             CargarAlias()
             UPGVAlias.Update()
             Alert("Alias " + TxtAlias.Text + " agregado.", TipoMensaje.MsgInformacion)

Ventas/Promociones.aspx

@@ -47,6 +47,14 @@
                                 <label class="col-md-2 truncate">Promoción:</label>
                                 <div class="col-md-10">
                                     <asp:TextBox ID="TxtPromocion" Width="90%" runat="server" />
+                                    <div>
+                                        <asp:RequiredFieldValidator ID="RfvTxtPromocion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPromocion"  Display="Dynamic"
+                                            ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Promoción''</b> es necesario, por favor ingréselo." 
+                                            ValidationGroup="GrpGuardar">
+                                        </asp:RequiredFieldValidator>
+                                    </div>
+                                    
+                                    
                                 </div>
                             </div>
                             <div class="row">

Ventas/Ventas.aspx

@@ -404,7 +404,8 @@
                     <div class="caption font-green">
 
                         <i class="icon-pin font-green"></i>
-                        <span class="caption-subject bold uppercase"><a id="HlCliente" href="javascript:void(0);" runat="server" class="Texto" onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarClientes.aspx?Opt=Fact', 800, 547, 'N', 'PopUpBuscar')">Cliente:  </a></span>
+                        <span class="caption-subject bold uppercase"><a id="HlCliente" href="javascript:void(0);" runat="server" class="Texto" onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarClientes.aspx?Opt=Fact', 800, 547, 'N', 'PopUpBuscar')">
+                            <asp:Label runat="server" id="LblTituloPorletCliente" Text ="Cliente:"> </asp:Label></a></span>
                         <asp:LinkButton ID="LnkAgregarCliente" runat="server" AlternateText="Agregar Cliente" Text="<i class='fa fa-plus-square'></i>" />
                         <asp:TextBox ID="TxtCodigo" runat="server" AutoPostBack="true" BorderStyle="None" Width="65px"></asp:TextBox>
                         <asp:HiddenField ID="HdnCveCliente" runat="server" ClientIDMode="Static" Value="-1" />
@@ -424,7 +425,8 @@
                     <div class="form-body">
 
                         <table border="0" width="463px">
-                            <tr align="left">
+                            
+                            <tr align="left" runat="server" id="trNombreCliente">
                                 <td width="95px"><b>Nombre:</b>&nbsp;</td>
                                 <td width="200px">
                                     <asp:Label ID="LblCliente" runat="server" Text="Cliente"></asp:Label></td>
@@ -432,12 +434,6 @@
                                 <td width="135px">
                                     <asp:CheckBox ID="ChkEnviarFactura" runat="server" /></td>
                             </tr>                 
-                            <%--                            <tr runat="server" id="trFacturacionSucursal" visible="false">
-                                <td><b>Facturar Sucursal :</b></td>
-                                <td>
-                                    <asp:CheckBox ID="ChkFacturarSucursal" runat="server" OnCheckedChanged="ChkFacturarSucursal_CheckedChanged" />
-                                </td>
-                            </tr>--%>
                             <tr runat="server" id="trsucursalciente" visible="false">
                                 <td align="left"><b>
                                     <asp:Label ID="LblSucursal" runat="server" Text="Sucursal"></asp:Label>
@@ -510,6 +506,26 @@
                                     </table>
                                 </td>
                             </tr>
+
+                                  <%--CRM--%>
+                            <tr align="left" runat="server" id="trCRM1" visible="false">
+                                <td width="95px"><b>Empresa:</b>&nbsp;</td>
+                                <td width="200px">
+                                    <asp:Label ID="LblEmpresaCRM" runat="server" Text="Cliente"></asp:Label></td>
+                            </tr>
+                            <tr align="left" runat="server" id="trCRM2" visible="false" >
+                                <td><b>RFC:</b>&nbsp;</td>
+                                <td>
+                                    <asp:Label ID="LblRFCCRM" runat="server" Text="AAA010101AAA"></asp:Label></td>
+                            </tr>
+                            <tr align="left" runat="server" id="trCRM3" visible="false" >
+                                <td><b>Medio de Captación::</b>&nbsp;</td>
+                                <td>
+                                    <asp:Label ID="LblMedioCaptacionCRM" runat="server" Text=""></asp:Label></td>
+                            </tr>
+                             <%--CRM--%>
+
+
                             <tr runat="server" id="TrAtencionA" visible="false">
                                 <td><b>Atención A:</b></td>
                                 <td>
@@ -536,16 +552,20 @@
                                 </td>
                             </tr>
 
+                               
+                      
+
+
                         </table>
                     </div>
                 </div>
             </ContentTemplate>
         </asp:UpdatePanel>
 
-        <asp:UpdatePanel ID="UpEmpresaCRM" runat="server" Visible="false" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="width: 473px;">
+<%--        <asp:UpdatePanel ID="UpEmpresaCRM" runat="server" Visible="false" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="width: 473px;">
             <ContentTemplate>
                 <div class="portlet-title">
-                    <div class="caption font-green">
+                    <div class="caption font-green" >
                         <i class="icon-pin font-green"></i>
                         <span class="caption-subject bold uppercase">EMPRESA CRM </span>
                     </div>
@@ -557,26 +577,15 @@
                     <div class="form-body">
 
                         <table border="0" width="463px">
-                            <tr align="left">
-                                <td width="95px"><b>Empresa:</b>&nbsp;</td>
-                                <td width="200px">
-                                    <asp:Label ID="LblEmpresaCRM" runat="server" Text="Cliente"></asp:Label></td>
-                            </tr>
-                            <tr align="left">
-                                <td><b>RFC:</b>&nbsp;</td>
-                                <td>
-                                    <asp:Label ID="LblRFCCRM" runat="server" Text="AAA010101AAA"></asp:Label></td>
-                            </tr>
-                            <tr align="left">
-                                <td><b>Medio de Captación::</b>&nbsp;</td>
-                                <td>
-                                    <asp:Label ID="LblMedioCaptacionCRM" runat="server" Text=""></asp:Label></td>
-                            </tr>
+                            
+                         
+
+
                         </table>
                     </div>
                 </div>
             </ContentTemplate>
-        </asp:UpdatePanel>
+        </asp:UpdatePanel>--%>
 
         <asp:UpdatePanel ID="UpParametros" runat="server" UpdateMode="Conditional" class="portlet light xspadding .nolineheight bordered whitoutcol" style="width: 310px;">
             <ContentTemplate>

Ventas/Ventas.aspx.vb

@@ -2407,7 +2407,7 @@ Partial Class Ventas
             UpFacturar.Update()
             'CargaTiposDocumentos()
             TrEmitir.Visible = False
-            If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+            If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83, 172, 173) Then
                 DivCartaPorte.Visible = True
             End If
             ViewState("EstablecioFolio") = False
@@ -2512,7 +2512,13 @@ Partial Class Ventas
                 TrObsAlmacen.Visible = False
                 TrTxtObsAlmacen.Visible = False
                 TrPedido.Visible = False
+
+
+
                 TrOC.Visible = False
+
+
+
                 DdlTipoComprobante.SelectedValue = "Op"
             Else
                 Opcion = "Ing"
@@ -6164,6 +6170,8 @@ Partial Class Ventas
         If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto)
     End Sub
 
+
+
     Private Sub CargaEmpresaCRM(CveEmpresaCRM As Integer)
         Dim ObjCRM As New ClsCRM
         If ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM) Then
@@ -6180,7 +6188,8 @@ Partial Class Ventas
                     TxtCodigo.ReadOnly = True
 
                     UpCliente.Visible = True
-                    UpEmpresaCRM.Visible = False
+
+                    'UpEmpresaCRM.Visible = False
                 Else
                     LblEmpresaCRM.Text = ObjCRM.DtResultados.Rows(0)("Empresa").ToString()
                     LblRFCCRM.Text = ObjCRM.DtResultados.Rows(0)("RFC").ToString()
@@ -6190,8 +6199,28 @@ Partial Class Ventas
                     LblEnviarMail.Visible = False
 
                     UPCondicionesPago.Visible = True
-                    UpCliente.Visible = False
-                    UpEmpresaCRM.Visible = True
+                    'UpCliente.Visible = False
+                    'UpEmpresaCRM.Visible = True
+
+                    trNombreCliente.Visible = False
+                    trsucursalciente.Visible = False
+                    TrDireccion.Visible = False
+                    TrCiudad.Visible = False
+                    TrRFC.Visible = False
+                    TrOP.Visible = False
+                    trDireccionEnvio.Visible = False
+
+                    TrAtencionA.Visible = True
+                    trCRM1.Visible = True
+                    trCRM2.Visible = True
+                    trCRM3.Visible = True
+
+                    LblTituloPorletCliente.Text = "EMPRESA CRM"
+
+                    tdTelefonoGen.Visible = False
+                    tdTxtTelefonoGen.Visible = False
+
+
 
                 End If
                 Me.CveVendedorEmpresaCRM = ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString().ToEntero()
@@ -6199,6 +6228,10 @@ Partial Class Ventas
                 DdlVendedor.SelectedValueExist(ObjCRM.DtResultados.Rows(0)("CveVendedorAsignado").ToString())
                 DdlVendedor.Enabled = False
                 LbAgregar.Enabled = True
+
+                'TrAtencionA.Visible = True
+                TrOC.Visible = True
+
             End If
 
 
@@ -6209,6 +6242,8 @@ Partial Class Ventas
         End If
         ObjCRM.Dispose()
     End Sub
+
+
     Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = -1)
 
         If CveCliente <= 0 Then Exit Sub
@@ -17801,7 +17836,7 @@ Partial Class Ventas
         End If
 
         'SI NO TIENE LA FUNCIONALIDAD VALIDARA LAS MONEDAS
-        If Not UsuarioActual.Empresa.Funcionalidad(524) <> "" Then
+        If UsuarioActual.Empresa.Funcionalidad(524) <> "" Then
             If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count >= 1 Then
                 Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
                 If DrPS IsNot Nothing Then

packages.config

@@ -23,7 +23,7 @@
   <package id="Microsoft.Bcl.AsyncInterfaces" version="5.0.0" targetFramework="net461" />
   <package id="Microsoft.Bcl.Build" version="1.0.14" targetFramework="net461" />
   <package id="Microsoft.Bcl.HashCode" version="1.1.1" targetFramework="net461" />
-  <package id="Microsoft.CodeDom.Providers.DotNetCompilerPlatform" version="3.6.0" targetFramework="net45" />
+  <package id="Microsoft.CodeDom.Providers.DotNetCompilerPlatform" version="3.6.0" targetFramework="net45" requireReinstallation="true" />
   <package id="Microsoft.CSharp" version="4.7.0" targetFramework="net461" />
   <package id="Microsoft.EntityFrameworkCore" version="3.1.14" targetFramework="net461" />
   <package id="Microsoft.EntityFrameworkCore.Abstractions" version="3.1.14" targetFramework="net461" />
@@ -39,9 +39,9 @@
   <package id="Microsoft.Extensions.Logging.Abstractions" version="3.1.14" targetFramework="net461" />
   <package id="Microsoft.Extensions.Options" version="3.1.14" targetFramework="net461" />
   <package id="Microsoft.Extensions.Primitives" version="3.1.14" targetFramework="net461" />
-  <package id="Microsoft.IdentityModel.JsonWebTokens" version="6.11.0" targetFramework="net461" />
-  <package id="Microsoft.IdentityModel.Logging" version="6.11.0" targetFramework="net461" />
-  <package id="Microsoft.IdentityModel.Tokens" version="6.11.0" targetFramework="net461" />
+  <package id="Microsoft.IdentityModel.JsonWebTokens" version="6.11.0" targetFramework="net461" requireReinstallation="true" />
+  <package id="Microsoft.IdentityModel.Logging" version="6.11.0" targetFramework="net461" requireReinstallation="true" />
+  <package id="Microsoft.IdentityModel.Tokens" version="6.11.0" targetFramework="net461" requireReinstallation="true" />
   <package id="Microsoft.Net.Compilers" version="1.0.0" targetFramework="net45" developmentDependency="true" />
   <package id="Microsoft.Owin" version="4.2.0" targetFramework="net461" />
   <package id="Microsoft.Owin.Host.SystemWeb" version="3.0.1" targetFramework="net461" />
@@ -66,7 +66,7 @@
   <package id="System.Data.SqlClient" version="4.8.2" targetFramework="net461" />
   <package id="System.Diagnostics.DiagnosticSource" version="4.7.1" targetFramework="net461" />
   <package id="System.Drawing.Common" version="5.0.2" targetFramework="net461" />
-  <package id="System.IdentityModel.Tokens.Jwt" version="6.11.0" targetFramework="net461" />
+  <package id="System.IdentityModel.Tokens.Jwt" version="6.11.0" targetFramework="net461" requireReinstallation="true" />
   <package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net461" />
   <package id="System.IO.Packaging" version="4.0.0" targetFramework="net461" />
   <package id="System.Memory" version="4.5.4" targetFramework="net461" />
@@ -75,6 +75,6 @@
   <package id="System.Text.Encodings.Web" version="5.0.1" targetFramework="net461" />
   <package id="System.Text.Json" version="5.0.2" targetFramework="net461" />
   <package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net461" />
-  <package id="System.ValueTuple" version="4.5.0" targetFramework="net461" />
+  <package id="System.ValueTuple" version="4.5.0" targetFramework="net461" requireReinstallation="true" />
   <package id="WebGrease" version="1.6.0" targetFramework="net461" />
 </packages>

vwd.webinfo

@@ -0,0 +1,590 @@
+<?xml version="1.0"?>
+<!-- 
+  Visual Studio global web project settings.
+-->
+<VisualWebDeveloper>
+
+  <StartupServices>
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
+  </StartupServices>
+</VisualWebDeveloper>