diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index feabeccc6..138b0c987 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -7906,7 +7906,7 @@ Public Class ClsPaginas
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, Pago.Referencia, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
End If
- If Not ErrorMovtos AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, CveIE:=Pago.CveIE, CveVenta:=VentaActual.CveVenta, CveSubProyecto:=VentaActual.CveSubProyecto, CveCliente:=VentaActual.CveCliente, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
+ If Not ErrorMovtos AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (Pago.ImportePago * TCValuacionPago).RoundSQL, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, CveIE:=Pago.CveIE, CveVenta:=VentaActual.CveVenta, CveSubProyecto:=VentaActual.CveSubProyecto, CveCliente:=VentaActual.CveCliente, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
ErrorMovtos = True
End If
End If
diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index ced536b40..eedeea1c5 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -1568,6 +1568,8 @@ Public Class ClsRH
DtResultados = Data
End Get
End Property
+
+ Public Property TipoSangre As String
#End Region
#Region "Personal"
@@ -1719,6 +1721,7 @@ Public Class ClsRH
Me.CelularPersonal = Data.Rows(0)("CelularPersonal").ToString
Me.TelefonoMarcadoRapido = Data.Rows(0)("TelefonoMarcadoRapido").ToString
Me.ContactoAlterno = Data.Rows(0)("ContactoAlterno").ToString
+ Me.TipoSangre = Data.Rows(0)("TipoSangre").ToString
If Not IsDBNull(Data(0)("CveSubProyectoZona")) Then
CveSubproyectoZona = Data(0)("CveSubProyectoZona").ToString.ToEntero
@@ -1939,7 +1942,7 @@ Public Class ClsRH
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, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, 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,
- Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1) As Boolean
+ Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1") As Boolean
Dim Retorno As Boolean = False
Dim noguardoXcurp As Boolean = False
@@ -2027,6 +2030,9 @@ Public Class ClsRH
.Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado
.Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
.Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo
+ .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre
+
+
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
@@ -2066,7 +2072,8 @@ Public Class ClsRH
CveJornada As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, 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,
Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1,
- Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1) As Boolean
+ Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1,
+ Optional TipoSangre As String = "-1") As Boolean
Dim Retorno As Boolean = False
@@ -2160,6 +2167,7 @@ Public Class ClsRH
.Add("@Fiscalizable", SqlDbType.Int).Value = Fiscalizable
.Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
.Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo
+ .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre
End With
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5f2f2ca32..e27f1c07e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5743,53 +5743,53 @@ Partial Class Compras_Compras
'If importeMovimiento <> 0 Then
For Each gvRowCredito As GridViewRow In GvCreditos.Rows
- Dim ImportePagoCredito As Decimal = If(gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal > 0, gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal, (gvRowCredito.FCTextBox("TxtCapital").Text.ToDecimal + gvRowCredito.FCTextBox("TxtInteres").Text.ToDecimal))
- Dim ImporteIEAnticipo As Decimal = gvRowCredito.DataKey("ImporteIE").ToDecimal '' Lo que se pago desde el movimiento Bancario
+ Dim ImportePagoCredito As Decimal = If(gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal > 0, gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal, (gvRowCredito.FCTextBox("TxtCapital").Text.ToDecimal + gvRowCredito.FCTextBox("TxtInteres").Text.ToDecimal))
+ Dim ImporteIEAnticipo As Decimal = gvRowCredito.DataKey("ImporteIE").ToDecimal '' Lo que se pago desde el movimiento Bancario
- Dim CveMonedaCredito As Integer = gvRowCredito.DataKey("CveMoneda").ToEntero
+ Dim CveMonedaCredito As Integer = gvRowCredito.DataKey("CveMoneda").ToEntero
- Dim OtrosGastosIngresosCredito As Decimal = gvRowCredito.FCTextBox("TxtComision").Text.ToDecimal
- Dim CveIECredito As Integer = gvRowCredito.DataKey("CveIE").ToEntero
- Dim CveCreditoDetalleTemp As Integer = gvRowCredito.DataKey("CveCreditoDetalle").ToEntero
- Dim CveCreditoTemp As Integer = gvRowCredito.DataKey("CveCredito").ToEntero
+ Dim OtrosGastosIngresosCredito As Decimal = gvRowCredito.FCTextBox("TxtComision").Text.ToDecimal
+ Dim CveIECredito As Integer = gvRowCredito.DataKey("CveIE").ToEntero
+ Dim CveCreditoDetalleTemp As Integer = gvRowCredito.DataKey("CveCreditoDetalle").ToEntero
+ Dim CveCreditoTemp As Integer = gvRowCredito.DataKey("CveCredito").ToEntero
- If ImportePagoCredito > 0 Then
- Dim Pago As New CompraPago
- Pago.ImportePago = ImportePagoCredito
- Pago.CveIE = CveIECredito
- Pago.CveMonedaPago = 1
- Pago.CveCompraAmortizacion = -1
- Pago.CveProveedor = CveProveedor
- Pago.CveCreditoDetalle = CveCreditoDetalleTemp
- Pago.TipoPago = "Egsc"
+ If ImportePagoCredito > 0 Then
+ Dim Pago As New CompraPago
+ Pago.ImportePago = ImportePagoCredito
+ Pago.CveIE = CveIECredito
+ Pago.CveMonedaPago = 1
+ Pago.CveCompraAmortizacion = -1
+ Pago.CveProveedor = CveProveedor
+ Pago.CveCreditoDetalle = CveCreditoDetalleTemp
+ Pago.TipoPago = "Egsc"
- If OtrosGastosIngresosCredito <> 0 Then
- Pago.OtroGastoIngreso = OtrosGastosIngresosCredito
+ If OtrosGastosIngresosCredito <> 0 Then
+ Pago.OtroGastoIngreso = OtrosGastosIngresosCredito
+ End If
+
+ ErrorCreditosCompra = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+
+ If ErrorCreditosCompra Then
+ Exit For
+ End If
+
+ Dim ImporteDifCredito As Decimal = (ImporteIEAnticipo + OtrosGastosIngresosCredito) - ImportePagoCredito ' CompraActual.Total
+
+ If ImporteDifCredito > 0 Then
+
+ ' Dim ImportePagoCreditoMN As Decimal = ImportePagoCredito * tipoCambioActual
+ Dim ImporteDifCreditoMN As Decimal = ImporteDifCredito * tipoCambioActual
+
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDifCredito, ImporteDifCreditoMN, 50, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCredito:=CveCreditoTemp, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+ ErrorPrepoliza = True
End If
- ErrorCreditosCompra = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
-
- If ErrorCreditosCompra Then
- Exit For
- End If
-
- Dim ImporteDifCredito As Decimal = (ImporteIEAnticipo + OtrosGastosIngresosCredito) - ImportePagoCredito ' CompraActual.Total
-
- If ImporteDifCredito > 0 Then
-
- ' Dim ImportePagoCreditoMN As Decimal = ImportePagoCredito * tipoCambioActual
- Dim ImporteDifCreditoMN As Decimal = ImporteDifCredito * tipoCambioActual
-
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDifCredito, ImporteDifCreditoMN, 50, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCredito:=CveCreditoTemp, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
- ErrorPrepoliza = True
- End If
-
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDifCredito, ImporteDifCreditoMN, 21, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
- ErrorPrepoliza = True
- End If
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDifCredito, ImporteDifCreditoMN, 21, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+ ErrorPrepoliza = True
End If
End If
- Next
+ End If
+ Next
'End If
End If
importeMovimiento = 0 : importeMN = 0
diff --git a/Compras/Importaciones.aspx b/Compras/Importaciones.aspx
index 4cd35811e..d026f37c9 100644
--- a/Compras/Importaciones.aspx
+++ b/Compras/Importaciones.aspx
@@ -42,9 +42,24 @@
Pedimento:
-
+
+
+
+
+
+
+
+
@@ -71,9 +86,10 @@
-
Aduanal
+
Aduanal:
-
+ <%----%>
+
<%--
@@ -287,6 +303,9 @@
$('#BtnVincularCompra').click();
}
+
+
+
diff --git a/Compras/Importaciones.aspx.vb b/Compras/Importaciones.aspx.vb
index 79ca7d049..33e65b86f 100644
--- a/Compras/Importaciones.aspx.vb
+++ b/Compras/Importaciones.aspx.vb
@@ -58,8 +58,12 @@ Partial Class Compras_Importaciones
DtCompras = New DataTable
DtComprasVinculadas = New DataTable
- DdlAduanal.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
- DdlAduanal.DataBind()
+ 'DdlAduanal.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+ 'DdlAduanal.DataBind()
+ DdlProveedores.setEsWebService(True)
+ DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+ DdlProveedores.SelectedText = "Todos"
+ DdlProveedores.SelectedValue = "-1"
TxtFecha.Text = Now.ToShortDateString
End Sub
@@ -87,7 +91,9 @@ Partial Class Compras_Importaciones
TxtPedimento.Text = ObjImportaciones.DtResultados.Rows(0)("Pedimento").ToString
TxtDescripcion.Text = ObjImportaciones.DtResultados.Rows(0)("Descripcion").ToString
TxtFecha.Text = ObjImportaciones.DtResultados.Rows(0)("Fecha").ToString
- DdlAduanal.SelectedValue = ObjImportaciones.DtResultados.Rows(0)("CveAduanal").ToString
+
+ DdlProveedores.txtValue.Value = ObjImportaciones.DtResultados.Rows(0)("CveAduanal").ToString
+ DdlProveedores.txtText.Value = ObjImportaciones.DtResultados.Rows(0)("RazonSocial").ToString
'HdnCveCompra.Value = ObjImportaciones.DtResultados.Rows(0)("CveCompra").ToString
'LbCompraProveedor.Text = ObjImportaciones.DtResultados.Rows(0)("RazonSocial").ToString
@@ -139,13 +145,14 @@ Partial Class Compras_Importaciones
Exit Sub
End If
+ Dim Pedimento As String = TxtPedimento.Text.Trim.Replace("-", " ")
Dim ObjImp As New ClsCompras
ObjImp.IniciaTransacSQL()
Dim ErrorImportacion = False
If CveImportacion < 0 Then
- CveImportacion = ObjImp.AddImportacion(TxtPedimento.Text.Trim, TxtDescripcion.Text.Trim, DdlAduanal.SelectedValue.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ CveImportacion = ObjImp.AddImportacion(Pedimento, TxtDescripcion.Text.Trim, DdlProveedores.SelectedValue.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CveImportacion > 0 Then
For Each dr As DataRow In DtCompras.Rows
@@ -168,7 +175,7 @@ Partial Class Compras_Importaciones
End If
Else
- If Not ObjImp.UpdateImportacion(TxtPedimento.Text.Trim, CveImportacion, TxtDescripcion.Text, DdlAduanal.SelectedValue.ToString.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+ If Not ObjImp.UpdateImportacion(Pedimento, CveImportacion, TxtDescripcion.Text, DdlProveedores.SelectedValue.ToString.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
ErrorImportacion = True
End If
End If
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 0536165ec..0ec2f8250 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -3386,10 +3386,17 @@ Partial Class PopUpVerFactura
Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
+ Dim Ruta As String = ""
+ Dim Supervisor As String = ""
+
If String.IsNullOrEmpty(Recibio) Then
Dim ObjRH As New ClsRH
If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString
+ If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
+ Ruta = ObjRH.DtResultados.Rows(0)("Ruta").ToString
+ Supervisor = ObjRH.DtResultados.Rows(0)("Supervisor").ToString
+ End If
End If
ObjRH.Dispose()
End If
@@ -3576,7 +3583,8 @@ Partial Class PopUpVerFactura
MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
- CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo)
+ CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo,
+ Ruta:=Ruta, Supervisor:=Supervisor)
End Sub
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -3594,7 +3602,8 @@ Partial Class PopUpVerFactura
EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
- Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "")
+ Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "",
+ Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing)
Select Case CveConcepto
@@ -4936,6 +4945,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego))
End If
+
params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Observaciones", Observaciones))
@@ -4961,6 +4971,13 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
+ If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
+ params.Add(New ReportParameter("Ruta", Ruta))
+ params.Add(New ReportParameter("Supervisor", Supervisor))
+ params.Add(New ReportParameter("NombreEmpleado", Recibio))
+ params.Add(New ReportParameter("UsuarioEntrega", UsuarioRegistro))
+ End If
+
Dim Mov As New ClsInventarios
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb
index 6df9b44f3..0a03c35dc 100644
--- a/RH/CatPersonal.aspx.vb
+++ b/RH/CatPersonal.aspx.vb
@@ -132,6 +132,7 @@ Partial Class RH_CatPersonal
If FechaFIngreso = Nothing Then
FechaFIngreso = "-1"
End If
+
If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", CveTurno, CvePuesto, CveDepartamento, CveRuta, CveEscolaridad, CveEstadoCivil, CveGenero, CveEstatusPersonal, CveSubProyecto, CveClienteAsignado, HorarioTrabajo, CveSupervisor, CveTipoPeriodo, CveMetodoPago, CveTipoContrato, CveMotivoBaja, CveProyecto, FechaIFinContrato, FechaFFinContrato, FechaIIngreso, FechaFIngreso, UsuarioActual.CveEmpresa, ddlclasificacion.SelectedValue.ToEntero()) Then
DTDatos = ObjPersonal.DtResultados
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 016ed642c..394ab0825 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -324,11 +324,40 @@