From b7a31013a983e82be4cd7fe46d91174314d6dd27 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 2 Sep 2023 11:10:47 -0700 Subject: [PATCH] Importaciones --- App_Code/ClsPaginas.vb | 2 +- App_Code/ClsRH.vb | 12 ++++- Compras/Compras.aspx.vb | 78 ++++++++++++++++----------------- Compras/Importaciones.aspx | 25 +++++++++-- Compras/Importaciones.aspx.vb | 17 ++++--- Compras/PopUpVerFactura.aspx.vb | 21 ++++++++- RH/CatPersonal.aspx.vb | 1 + RH/Personal.aspx | 42 +++++++++++++++--- RH/Personal.aspx.vb | 9 ++-- 9 files changed, 147 insertions(+), 60 deletions(-) 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 @@
-
- - - + + +
+
+
+ + + +
+ +
+
+ +
+ + Seleccione Uno + A+ + A- + B+ + B- + AB+ + AB- + O+ + O- + + + +
+
+
+ + +
@@ -879,7 +908,8 @@
- + @@ -5211,12 +5241,14 @@ +
+
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 6cff3f356..d0dd4ae70 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1037,8 +1037,10 @@ Partial Class RH_Personal End If - If UsuarioActual.Empresa.Funcionalidad(712) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(712) = "1" Or UsuarioActual.CveEmpresa = 1 Then DvRuta.Visible = True + DVTxtTelefono.Attributes.Add("class", "col-md-6") + DVDdlTipoSangre.Visible = True End If End If @@ -1701,6 +1703,7 @@ Partial Class RH_Personal TxtTelefonoExtension.Text = ObjPersonal.TelefonoExtension TxtCelularPersonal.Text = ObjPersonal.CelularPersonal TxtTelefonoMarcadoRapido.Text = ObjPersonal.TelefonoMarcadoRapido + DdlTipoSangre.SelectedValueExist(ObjPersonal.TipoSangre) 'TxtContactoAlterno.Text = ObjPersonal.ContactoAlterno @@ -2012,7 +2015,7 @@ Partial Class RH_Personal UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), TxtBeneficiario.Text.Trim, DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(), TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), - CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal) Then + CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then If Archivo.Exists Then @@ -2098,7 +2101,7 @@ Partial Class RH_Personal TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), - Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal) Then + Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then 'Funcion usa RH Familiares If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then