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

traslados

Browse Source
This commit is contained in:
rrene
2021-12-24 07:13:23 -07:00
parent 7e93912a03
commit dd7a15c636
2 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/eFacturas.aspx
View File

@@ -410,7 +410,7 @@
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabTraslados" runat="server" HeaderText="Traslados">
<ajax:TabPanel ID="TabTraslados" runat="server" HeaderText="Traslados" Visible="false" >
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpTraslados" UpdateMode="Conditional">
<ContentTemplate>

25
Compras/eFacturas.aspx.vb
View File

@@ -805,18 +805,20 @@ Partial Class Compras_eFacturas
End If
End If
If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then
If ObjDatos.DtResultados.Rows.Count > 0 Then
DTTrasaldos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
End If
End If
LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P' and TipoComprobante <> 'T' ").Rows.Count.ToString("N0"))
LblTotalPagos.Text = String.Format("{0} Pagos", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'").Rows.Count.ToString("N0"))
If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
TabTraslados.Visible = True
If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then
If ObjDatos.DtResultados.Rows.Count > 0 Then
DTTrasaldos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
End If
End If
End If
LblTotalTraslados.Text = String.Format("{0} Traslados", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'").Rows.Count.ToString("N0"))
If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then
@@ -988,13 +990,14 @@ Partial Class Compras_eFacturas
Case "E"
e.Row.FCLabel("LtTipoComprobante").Text = "Egreso"
e.Row.FCLabel("LtTipoComprobante").CssClass = "label label-sm label-warning"
e.Row.FCLabel("LtTipoComprobante").Attributes.Add("data-toggle", "tooltip")
e.Row.FCLabel("LtTipoComprobante").Attributes.Add("data-toggle", "tooltip") '
e.Row.FCLabel("LtTipoComprobante").Attributes.Add("title", "Egreso")
Case "P"
e.Row.FCLabel("LtTipoComprobante").Text = "Pago"
e.Row.FCLabel("LtTipoComprobante").CssClass = "label label-sm label-primary"
e.Row.FCLabel("LtTipoComprobante").Attributes.Add("data-toggle", "tooltip")
e.Row.FCLabel("LtTipoComprobante").Attributes.Add("title", "Complemento Pago")
End Select
e.Row.Cells(2).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString)