diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 1a24dcd2a..5f0026b4c 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -703,7 +703,7 @@ Partial Class Compras_ReembolsosComprobaciones 'Agrego el IVA If gvr.DataKey("IVADeducible").ToDecimal > 0 Then Dim ImporteIVA As Decimal = gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago - If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteIVA, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteIVA), ImporteMX:=(ImporteIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then + If ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteIVA, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteIVA), ImporteMX:=(ImporteIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then MsgError = "Detalle" End If End If diff --git a/RH/Reclutamiento.aspx b/RH/Reclutamiento.aspx index 75ae8c1b9..5108a7c66 100644 --- a/RH/Reclutamiento.aspx +++ b/RH/Reclutamiento.aspx @@ -2171,11 +2171,19 @@
+ Seleccione uno - Alicia Cordova + Pamela Cabrera + Paola Guerrereo + Lucero Millanes + + <%--Alicia Cordova Matilde Gonzalez - Claudia Hernandez + Claudia Hernandez--%> + + + diff --git a/RH/Reclutamiento.aspx.vb b/RH/Reclutamiento.aspx.vb index b1f92e239..1a334f1a0 100644 --- a/RH/Reclutamiento.aspx.vb +++ b/RH/Reclutamiento.aspx.vb @@ -5352,7 +5352,8 @@ Partial Class RH_Reclutamiento End If Dim CveCaptacion As Integer = If(DdlCaptacion.SelectedValue.ToEntero = 0, -1, DdlCaptacion.SelectedValue.ToEntero) - Edad = Now.Year - TxtFechaN4.Text.ToDate.Year + Edad = Now.Year - TxtFechaN4.Text.ToDate.Year + If ValidaGuardaFirmaContratoEvento() Then If objRh.PersonalReclutamientoUpdate(CvePersonal, TxtNombres4.Text, TxtAPaterno4.Text, TxtAmaterno4.Text, TxtEstatura4.Text.ToDecimal, TxtPeso4.Text.ToDecimal, TxtLugarnacimiento4.Text, TxtContactoEmergencia4.Text, TxtTipoSangre4.Text, TxtViveCon4.Text, txtCasaDondevive4.Text, DDLEstadoCivil4.Text.ToEntero, @@ -5447,7 +5448,10 @@ Partial Class RH_Reclutamiento DdlRuta.Items.Insert(0, New ListItem("Seleccione una ruta", "-1")) DDLUsuarioNomina.DataBind() - DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then + DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + End If DdlUniforme.DataBind() DdlUniforme.Items.Insert(0, New ListItem("Seleccione uno", "-1"))