diff --git a/Compras/RepComprasDetalle.aspx b/Compras/RepComprasDetalle.aspx index a2cbbff15..6eb03716b 100644 --- a/Compras/RepComprasDetalle.aspx +++ b/Compras/RepComprasDetalle.aspx @@ -401,6 +401,15 @@ + + + Observaciones + + + + + + @@ -464,24 +473,29 @@ + + + + + diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index d1c57402a..6c9f43f77 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -168,6 +168,7 @@ Partial Class Compras_RepComprasDetalle ChkRazon.Checked = True ChkFolio.Checked = True ChkFecha.Checked = True + ChkObs.Checked = True End Sub @@ -597,54 +598,15 @@ Partial Class Compras_RepComprasDetalle #End Region Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click - If ChkIVA.Checked Then - GvDatos.Columns(4).Visible = True - Else - GvDatos.Columns(4).Visible = False - End If - - If ChkIEPS.Checked Then - GvDatos.Columns(5).Visible = True - Else - GvDatos.Columns(5).Visible = False - End If - - If ChkDesc.Checked Then - GvDatos.Columns(6).Visible = True - Else - GvDatos.Columns(6).Visible = False - End If - - If ChkTotal.Checked Then - GvDatos.Columns(7).Visible = True - Else - GvDatos.Columns(7).Visible = False - End If - - If ChkAbre.Checked Then - GvDatos.Columns(8).Visible = True - Else - GvDatos.Columns(8).Visible = False - End If - - If ChkRazon.Checked Then - GvDatos.Columns(9).Visible = True - Else - GvDatos.Columns(9).Visible = False - End If - - If ChkFolio.Checked Then - GvDatos.Columns(10).Visible = True - Else - GvDatos.Columns(10).Visible = False - End If - - If ChkFecha.Checked Then - GvDatos.Columns(11).Visible = True - Else - GvDatos.Columns(11).Visible = False - End If - + GvDatos.Columns(4).Visible = ChkIVA.Checked + GvDatos.Columns(5).Visible = ChkIEPS.Checked + GvDatos.Columns(6).Visible = ChkDesc.Checked + GvDatos.Columns(7).Visible = ChkTotal.Checked + GvDatos.Columns(8).Visible = ChkAbre.Checked + GvDatos.Columns(9).Visible = ChkRazon.Checked + GvDatos.Columns(10).Visible = ChkFolio.Checked + GvDatos.Columns(11).Visible = ChkFecha.Checked + GvDatos.Columns(12).Visible = ChkObs.Checked UPDatos.Update() End Sub