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

nueva consulta de pagos no bancarios

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-09-18 20:41:08 -07:00
parent 4133385762
commit 76b158f2be
7 changed files with 172 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
RH/Personal.aspx
View File

@@ -2822,6 +2822,32 @@
</asp:GridView>
</div>
</div>
<div class="portlet box blue-hoki">
<div class="portlet-title">
<div class="caption ">
<i class="icon-user-following bold "></i>
<span class="caption-subject uppercase">Pagos no bancarios</span>
</div>
<div class="tools"><a href="javascript;" class="collapse" data-original-title="" title=""></a></div>
</div>
<div class="portlet-body ">
<asp:GridView ID="GvPagosNoBancarios" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron pagos no bancarios" Width="50%"
CssClass="table table-striped table-advance table-hover ScrollAD" data-sort="false" BorderWidth="1" BorderColor="#D3D3D3" GridLines="None" DataKeyNames="CvePrePoliza,CveCompra,CveVenta,CvePersonal,ImporteMN,VentaSerieFolio,CompraSerieFolio,NombreCompleto,FechaIng,Abreviatura">
<Columns>
<asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString = "{0:dd/MM/yyyy}"/>
<asp:HyperLinkField HeaderText="Venta Serie Folio" DataTextField="VentaSerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"/>
<asp:HyperLinkField HeaderText="Compra Serie Folio" DataTextField="CompraSerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}"/>
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Literal ID="LtlImp" runat="server" Text='<%# Eval("ImporteMN", "{0:N2}")%>'></asp:Literal>
<asp:Literal ID="LtlMon" runat="server" Text='<%# Eval("Abreviatura")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</div>
<div class="portlet box blue-hoki">
<div class="portlet-title">
<div class="caption ">

12
RH/Personal.aspx.vb
View File

@@ -1509,7 +1509,8 @@ Partial Class RH_Personal
'Carga Conceptos de Nómina
CarcaConceptosNomina()
'Carga Pagos no Bancarios
CargarPagosNoBancarios()
'Carga Resguardos
Dim ObjResguardos As New ClsAF
If ObjResguardos.GetActivosFijosResguardos(-1, -1, CvePersonal, -1) Then
@@ -6338,4 +6339,13 @@ Partial Class RH_Personal
End Sub
Private Sub CargarPagosNoBancarios()
Dim ObjBancos As New ClsBancos
If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
GvPagosNoBancarios.DataSource = ObjBancos.DtResultados
GvPagosNoBancarios.DataBind()
End If
ObjBancos.Dispose()
End Sub
End Class