Compilación

Ventas/RepVentaDetalle.aspx.vb

@@ -765,6 +765,19 @@ Partial Class RepVentaDetalle
             ListPersonalizada.Add("Saldo")
         End If
 
+
+        If ChkMetodoPago.Checked Then
+            ListPersonalizada.Add("MetodoPago")
+        End If
+
+        If ChkFormaPago.Checked Then
+            ListPersonalizada.Add("FormaPago")
+        End If
+
+        If ChkUsoCFDI.Checked Then
+            ListPersonalizada.Add("UsoCFDI")
+        End If
+
         If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then
             'Alert("Personalizacion guardada")
         End If
@@ -818,6 +831,10 @@ Partial Class RepVentaDetalle
             ChkFolioFacturacion.Checked = False
             ChkSaldo.Checked = False
 
+            ChkMetodoPago.Checked = False
+            ChkFormaPago.Checked = False
+            ChkUsoCFDI.Checked = False
+
             Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
 
             For Each personalizacion As String In Personalizaciones
@@ -930,6 +947,17 @@ Partial Class RepVentaDetalle
                     Case "Saldo"
                         ChkSaldo.Checked = True
                         Exit Select
+
+                    Case "MetodoPago"
+                        ChkMetodoPago.Checked = True
+                        Exit Select
+                    Case "FormaPago"
+                        ChkFormaPago.Checked = True
+                        Exit Select
+                    Case "UsoCFDI"
+                        ChkUsoCFDI.Checked = True
+                        Exit Select
+
                     Case Else
                         Exit Select
                 End Select
@@ -983,6 +1011,9 @@ Partial Class RepVentaDetalle
         GvDatos.Columns(33).Visible = ChkSaldo.Checked
         GvDatos.Columns(34).Visible = ChkOrdenCompra.Checked
         GvDatos.Columns(35).Visible = ChkPedidoContrato.Checked
+        GvDatos.Columns(36).Visible = ChkMetodoPago.Checked
+        GvDatos.Columns(37).Visible = ChkFormaPago.Checked
+        GvDatos.Columns(38).Visible = ChkUsoCFDI.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then