-- renglon 4 de acumulados

2020-12-17 10:17:34 -07:00
parent 020ee48910
commit 49178fb026
1 changed files with 1 additions and 1 deletions
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -9141,7 +9141,7 @@ Partial Class Clientes
            End If

            Dim ImporteBonificacion As Decimal = 0
-            If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) AndAlso ObjAcum.DtResultados.Rows.Count > 0 Then
+            If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) AndAlso ObjAcum.DtResultados.Rows.Count >= 4 Then
                GvUsadosResumen.DataSource = ObjAcum.DtResultados
                ImporteBonificacion = ObjAcum.DtResultados.Rows(4)("Valor").ToString().ToDecimal()
            End If