AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2019-12-03 18:41:41 -07:00
parent 3e807fa19a 6b5e058ce0
commit 59948d9abd
3 changed files with 17 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -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

12
RH/Reclutamiento.aspx
View File

@@ -2171,11 +2171,19 @@
<div class="form-group ">
<label class="col-md-2" for="<%= DDLUsuarioNomina.ClientID.ToString()%>">Nominista:</label>
<asp:DropDownList ID="DDLUsuarioNomina" runat="server" CssClass="select2me" Width="200px" DataTextField="Nombre" DataValueField="CveUsuario">
<asp:ListItem Selected="True" Value="-1">Seleccione uno</asp:ListItem>
<asp:ListItem Value="1446">Alicia Cordova</asp:ListItem>
<asp:ListItem Value="79">Pamela Cabrera</asp:ListItem>
<asp:ListItem Value="2625">Paola Guerrereo</asp:ListItem>
<asp:ListItem Value="2626">Lucero Millanes</asp:ListItem>
<%--<asp:ListItem Value="1446">Alicia Cordova</asp:ListItem>
<asp:ListItem Value="16">Matilde Gonzalez</asp:ListItem>
<asp:ListItem Value="1670">Claudia Hernandez</asp:ListItem>
<asp:ListItem Value="1670">Claudia Hernandez</asp:ListItem>--%>
</asp:DropDownList>
<asp:RequiredFieldValidator InitialValue="-1" ID="rfvDDLUsuarioNomina" Enabled="true" CssClass="help-block errorimput" Display="none" ControlToValidate="DDLUsuarioNomina" ValidationGroup="FirmaDocumentos" runat="server" Text="*" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="rfvcDDLUsuarioNomina" runat="server" HighlightCssClass="vco" TargetControlID="rfvDDLUsuarioNomina" Width="300px"></ajax:ValidatorCalloutExtender>

8
RH/Reclutamiento.aspx.vb
View File

@@ -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"))