From 5188eecdf0b2aa1f80eed7f9a9196ac379f70d4c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 28 Oct 2020 13:54:45 -0700 Subject: [PATCH] Filtro de pedidos en historial de ventas --- Ventas/Clientes.aspx.vb | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 1b31514dd..f6fcd022c 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -5547,8 +5547,15 @@ Partial Class Clientes Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then - Dim tmp As DataTable = DTHistorialVentas.FiltraParametros($"TipoDocto = '{RblTipo.SelectedValue}'") - If tmp.Rows.Count > 0 Then + Dim tmp As DataTable = Nothing + + If RblTipo.SelectedValue.Contiene("Ped") Then + tmp = DTHistorialVentas.FiltraParametros($"TipoDocto IN('Ped','Pd2')") + Else + tmp = DTHistorialVentas.FiltraParametros($"TipoDocto = '{RblTipo.SelectedValue}'") + End If + + If tmp IsNot Nothing AndAlso tmp.Rows.Count > 0 Then Dim Totales As DataRow = tmp.NewRow Totales("SubTotal") = tmp.SUM("SubTotal") Totales("Total") = tmp.SUM("Total")