diff --git a/Contabilidad/RepGastosCC.aspx.vb b/Contabilidad/RepGastosCC.aspx.vb
index 553e99dab..90d6291b3 100644
--- a/Contabilidad/RepGastosCC.aspx.vb
+++ b/Contabilidad/RepGastosCC.aspx.vb
@@ -35,13 +35,17 @@ Partial Class RepGastosCC
Dim Obj As New ClsContabilidad
If Obj.GetGastosRepCC(txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim().ToDate, UsuarioActual.CveEmpresa) Then
- GvDatos.DataSource = Obj.DtResultados
-
+ Dim dt As DataTable = Obj.DtResultados
+ If DdlOpcionCuenta.SelectedValue = "2" Then
+ dt = dt.FiltraParametros("Total > 0")
+ ElseIf DdlOpcionCuenta.SelectedValue = "1" Then
+ dt = dt.FiltraParametros("isnull(Total,0) = 0")
+ End If
+ GvDatos.DataSource = dt
End If
Obj.Dispose()
GvDatos.DataBind()
-
UPDatos.Update()
End Sub
#End Region
@@ -68,7 +72,7 @@ Partial Class RepGastosCC
' e.Row.Cells(5).Text = e.Row.Cells(5).Text + "%"
- e.Row.Cells(1).Width = 250
+ e.Row.Cells(1).Width = 300
e.Row.Cells(0).Visible = False
For Each Cells As TableCell In e.Row.Cells
@@ -92,14 +96,12 @@ Partial Class RepGastosCC
End If
ElseIf e.Row.RowType = DataControlRowType.Header Then
e.Row.Cells(0).Visible = False
-
+ e.Row.Cells(1).CssClass = "grid-column250"
End If
End Sub
#End Region
-
-
#Region "PDF"
'Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
' If DtVentas IsNot Nothing Then