agregando nueva columna personalizable

This commit is contained in:
Antonio Gonzalez
2020-09-17 17:51:55 -07:00
parent 53545003f2
commit 7e268f5f1f
2 changed files with 24 additions and 48 deletions

View File

@@ -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