diff --git a/Contabilidad/RepGastosCC.aspx b/Contabilidad/RepGastosCC.aspx index b43b120a0..6e24f21bb 100644 --- a/Contabilidad/RepGastosCC.aspx +++ b/Contabilidad/RepGastosCC.aspx @@ -80,6 +80,10 @@ border: none; outline: 0; } + + .grid-column250 { + width: 250px; /* Define el ancho en pĂ­xeles */ + } @@ -89,27 +93,20 @@ - + - - <%-- - -
- -
-
-
--%> +
-
+
"> @@ -150,13 +147,25 @@
+
+
> +
+
+ Tipo Movto +
+
+ + + + + +
- -
+ +
-
-
+
" style="display: inline-block; width: 150px;" /> @@ -165,14 +174,15 @@
- - - - - - +
+
+ + + + +
+
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