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

@@ -110,28 +110,28 @@ Public Class ClsMovimientos
 
     Public Sub Commit()
         SqlTransacc.Commit()
-    End Sub
-
+    End Sub
+
 #Region "CxC"
-    'Public Function GetCxCCliente(CveCliente As Integer) As Boolean
-    '    Dim Retorno As Boolean = False
-    '    'Data = New DataTable
-    '    'SqlAdapter = New SqlDataAdapter("PA_ClienteCxC", SqlConexion)
-    '    'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
-    '    DataAdapter("PA_ClienteCxC")
-    '    SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-
-    '    Try
-    '        SqlAdapter.Fill(Data)
-    '        Retorno = True
-    '    Catch ex As SqlException
-    '        OnError("Ocurrió un error al consultar las CxC del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-    '    End Try
-
-    '    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 GetCxCCliente(CveCliente As Integer) As Boolean
+    '    Dim Retorno As Boolean = False
+    '    'Data = New DataTable
+    '    'SqlAdapter = New SqlDataAdapter("PA_ClienteCxC", SqlConexion)
+    '    'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
+    '    DataAdapter("PA_ClienteCxC")
+    '    SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As SqlException
+    '        OnError("Ocurrió un error al consultar las CxC del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+    '    End Try
+
+    '    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 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
@@ -146,8 +146,7 @@ Public Class ClsMovimientos
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .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("@FechaCorte", SqlDbType.Date).Value = FechaCorte
             .Add("@FechaVencimientoI", SqlDbType.Date).Value = FechaVencimientoI
             .Add("@FechaVencimientoF", SqlDbType.Date).Value = FechaVencimientoF
         End With

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

@@ -1459,9 +1459,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
     Public Property CveEstado As Integer
     Public Property Estado As String
     Public Property ClaveEstado As String
-    Public Property Telefono 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

CRM/Acercamiento.aspx

@@ -1255,7 +1255,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 +1702,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;
@@ -1360,7 +1361,12 @@ public partial class CRM_Acercamiento : ClsPaginas
 
                         if (e.Row.DataKey("Valor").ToString() != "")
                         {
-                            e.Row.FCRadioButtonList("RdlRespuestaDinamica").SelectedValue = e.Row.FCRadioButtonList("RdlRespuestaDinamica").Items.FindByText(e.Row.DataKey("Valor").ToString()).Value;
+                            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>");
@@ -1515,20 +1521,46 @@ 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 (ExisteRegistro && !responnseModelUpdateDatosTecnicosCRM.IsSuccess)
+            if (CveEncuestaAplicadaDetalle > 0)
             {
-                //SI HAY ERROR REGRESA 0
-                _CveEncuestaAplicada = 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
             {
-                //SI HAY ERROR REGRESA 0
-                _CveEncuestaAplicada = 0;
+                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)))
             //{

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/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"];
@@ -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.cs

@@ -160,7 +160,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 +186,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 +198,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"];
@@ -221,12 +221,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();
     }

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
-            DrPS("IVA") = (IVA * Total).RoundSQL
+
+            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/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,13 +835,14 @@ 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
-                    DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
-                End If
+            '    If ObjDatos.DtResultados.Rows.Count > 0 Then
+            '        DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
+            '    End If
 
-            End If
+            'End If
+            DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
         End If
         LblTotalTraslados.Text = String.Format("{0} Traslados", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'").Rows.Count.ToString("N0"))
 
@@ -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
 

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

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>
@@ -301,9 +301,14 @@
                                                         <i></i>
                                                     </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>
-                                                        <i></i>
+                                                         <asp:TextBox CssClass="form-control" ID="TxtTelefono" runat="server" MaxLength="10"></asp:TextBox>
+                                                         <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">
                                                         <asp:TextBox CssClass="form-control" ID="TxtCelular" runat="server" MaxLength="10"></asp:TextBox>
@@ -316,15 +321,20 @@
                                                         <asp:RegularExpressionValidator ID="REVCorreo" runat="server" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" CssClass="help-block errorimput" ControlToValidate="TxtCorreo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo - Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
                                                         <i></i>
                                                     </div>
-
-
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <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">
@@ -332,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>
+                                                                <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"
@@ -379,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))

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

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(); }")
@@ -1588,7 +1610,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">

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>