Ayven - Formato OC, tomando como base el de E72

Ventas/RepRecuperacionDetalle.aspx.vb

@@ -71,11 +71,22 @@ Partial Class Ventas_RepRecuperacionDetalle
         End Set
     End Property
 
+
+    Private Property Personalizo As Integer
+        Get
+            Return ViewState("Personalizo").ToString.ToEntero
+        End Get
+
+        Set(value As Integer)
+            ViewState("Personalizo") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaCombos()
+            CargaPersonalizacion()
             CargaDatos()
         End If
     End Sub
@@ -373,5 +384,345 @@ Partial Class Ventas_RepRecuperacionDetalle
         Else
             LiEspecifico.Visible = False
         End If
-    End Sub
+    End Sub
+
+
+#Region "PERSONALIZAR"
+
+    Protected Sub LnkPErsonalizar_Click(sender As Object, e As EventArgs)
+        ChkGuardarPersonalizacion.Checked = False
+        RegistraScript("$('#DivPersonalizar').modal('show')")
+    End Sub
+
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs)
+
+        If ChkGuardarPersonalizacion.Checked Then
+            GuardaPersonalizacion()
+        End If
+
+        Personaliza()
+        CargaDatos()
+        'GvDatosDataBind()
+    End Sub
+
+
+    Private Sub Personaliza()
+
+        GvDatos.Columns(0).Visible = True
+        GvDatos.Columns(1).Visible = ChkFecha.Checked
+        GvDatos.Columns(2).Visible = ChkFolio.Checked
+        GvDatos.Columns(3).Visible = True
+        GvDatos.Columns(4).Visible = ChkTotal.Checked
+        GvDatos.Columns(5).Visible = True
+        GvDatos.Columns(6).Visible = ChkSucursal.Checked
+        GvDatos.Columns(7).Visible = True
+        GvDatos.Columns(8).Visible = ChkCliente.Checked
+        GvDatos.Columns(9).Visible = True
+        GvDatos.Columns(10).Visible = True
+        GvDatos.Columns(11).Visible = ChkDiasTranscurridos.Checked
+        GvDatos.Columns(12).Visible = ChkDiasPago.Checked
+        GvDatos.Columns(13).Visible = True
+        GvDatos.Columns(14).Visible = True
+
+        GvDatos.Columns(15).Visible = ChkSucursalCliente.Checked
+        GvDatos.Columns(16).Visible = ChkObservaciones.Checked
+        GvDatos.Columns(17).Visible = ChkDescuento.Checked
+        GvDatos.Columns(18).Visible = ChkVendedor.Checked
+        GvDatos.Columns(19).Visible = ChkCodigo.Checked
+
+        GvDatos.Columns(20).Visible = ChkLimiteCredito.Checked
+        GvDatos.Columns(21).Visible = ChkRetIVA.Checked
+        GvDatos.Columns(22).Visible = ChkRetISR.Checked
+        GvDatos.Columns(23).Visible = ChkSubTotal.Checked
+        GvDatos.Columns(24).Visible = ChkTC.Checked
+        GvDatos.Columns(25).Visible = ChkMostrarDescripcionVenta.Checked
+
+
+        Personalizo = 1
+        If Personalizo = 1 Then
+            'ImgExcelPersonalizado.Visible = True
+        Else
+            'ImgExcelPersonalizado.Visible = False
+        End If
+
+        UpDatos.Update()
+    End Sub
+
+    Private Sub GuardaPersonalizacion()
+        Dim objUsuario As New ClsSisUsuarios
+        Dim ListPersonalizada As New List(Of String)
+
+        If ChkFolio.Checked Then
+            ListPersonalizada.Add("Folio")
+        End If
+
+        If ChkFecha.Checked Then
+            ListPersonalizada.Add("Fecha")
+        End If
+
+        If ChkSubTotal.Checked Then
+            ListPersonalizada.Add("SubTotal")
+        End If
+
+        If ChkObservaciones.Checked Then
+            ListPersonalizada.Add("Observaciones")
+        End If
+
+        If ChkDescuento.Checked Then
+            ListPersonalizada.Add("Descuento")
+        End If
+
+        If ChkVendedor.Checked Then
+            ListPersonalizada.Add("Vendedor")
+        End If
+
+        If ChkSucursal.Checked Then
+            ListPersonalizada.Add("Sucursal")
+        End If
+
+        If ChkCodigo.Checked Then
+            ListPersonalizada.Add("Codigo")
+        End If
+
+        If ChkLimiteCredito.Checked Then
+            ListPersonalizada.Add("LimiteCredito")
+        End If
+
+        If ChkRetIVA.Checked Then
+            ListPersonalizada.Add("RetIVA")
+        End If
+
+        If ChkCliente.Checked Then
+            ListPersonalizada.Add("Cliente")
+        End If
+
+        If ChkRetISR.Checked Then
+            ListPersonalizada.Add("RetISR")
+        End If
+
+        If ChkSucursalCliente.Checked Then
+            ListPersonalizada.Add("SucursalCliente")
+        End If
+
+        If ChkTotal.Checked Then
+            ListPersonalizada.Add("Total")
+        End If
+
+        If ChkDiasTranscurridos.Checked Then
+            ListPersonalizada.Add("DiasTranscurridos")
+        End If
+
+        If ChkDiasPago.Checked Then
+            ListPersonalizada.Add("DiasPago")
+        End If
+
+        If ChkTC.Checked Then
+            ListPersonalizada.Add("TC")
+        End If
+
+        If ChkMostrarDescripcionVenta.Checked Then
+            ListPersonalizada.Add("MostrarDescripcionVenta")
+        End If
+
+        If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepRecuperacionDetalle.aspx", String.Join("|", ListPersonalizada)) Then
+            'Alert("Personalizacion guardada")
+        End If
+
+        objUsuario.Dispose()
+    End Sub
+
+    Private Sub CargaPersonalizacion()
+        Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("RepRecuperacionDetalle.aspx")
+
+        If strBasePersonalizacion.Trim.Length > 0 Then
+
+
+            Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
+
+            For Each personalizacion As String In Personalizaciones
+                Select Case personalizacion
+                    Case "Folio"
+                        ChkFolio.Checked = True
+                    Case "Fecha"
+                        ChkFecha.Checked = True
+                    Case "SubTotal"
+                        ChkSubTotal.Checked = True
+                    Case "Observaciones"
+                        ChkObservaciones.Checked = True
+                    Case "Descuento"
+                        ChkDescuento.Checked = True
+                    Case "Vendedor"
+                        ChkVendedor.Checked = True
+                    Case "Sucursal"
+                        ChkSucursal.Checked = True
+                    Case "Codigo"
+                        ChkCodigo.Checked = True
+                    Case "LimiteCredito"
+                        ChkLimiteCredito.Checked = True
+                    Case "RetIVA"
+                        ChkRetIVA.Checked = True
+                    Case "Cliente"
+                        ChkCliente.Checked = True
+                    Case "RetISR"
+                        ChkRetISR.Checked = True
+                    Case "SucursalCliente"
+                        ChkSucursalCliente.Checked = True
+                    Case "Total"
+                        ChkTotal.Checked = True
+                    Case "DiasTranscurridos"
+                        ChkDiasTranscurridos.Checked = True
+                    Case "DiasPago"
+                        ChkDiasPago.Checked = True
+                    Case "TC"
+                        ChkTC.Checked = True
+                    Case "MostrarDescripcionVenta"
+                        ChkMostrarDescripcionVenta.Checked = True
+                    Case Else
+                        ' Do nothing
+                End Select
+            Next
+
+            Personaliza()
+        Else
+            PersonalizaDefault()
+        End If
+        UPPersonalizar.Update()
+    End Sub
+
+    Private Sub PersonalizaDefault()
+        ChkFolio.Checked = True
+        ChkFecha.Checked = True
+        ChkTotal.Checked = True
+        ChkSucursal.Checked = True
+        ChkCliente.Checked = True
+        ChkDiasTranscurridos.Checked = True
+        ChkDiasPago.Checked = True
+
+
+        ChkSucursalCliente.Checked = False
+        ChkSubTotal.Checked = False
+        ChkObservaciones.Checked = False
+        ChkDescuento.Checked = False
+        ChkVendedor.Checked = False
+        ChkCodigo.Checked = False
+        ChkLimiteCredito.Checked = False
+        ChkRetIVA.Checked = False
+        ChkRetISR.Checked = False
+        ChkTC.Checked = False
+        ChkMostrarDescripcionVenta.Checked = False
+
+        GvDatos.Columns(0).Visible = True
+        GvDatos.Columns(1).Visible = True
+        GvDatos.Columns(2).Visible = True
+        GvDatos.Columns(3).Visible = True
+        GvDatos.Columns(4).Visible = True
+        GvDatos.Columns(5).Visible = True
+        GvDatos.Columns(6).Visible = True
+        GvDatos.Columns(7).Visible = True
+        GvDatos.Columns(8).Visible = True
+        GvDatos.Columns(9).Visible = True
+        GvDatos.Columns(10).Visible = True
+        GvDatos.Columns(11).Visible = True
+        GvDatos.Columns(12).Visible = True
+        GvDatos.Columns(13).Visible = True
+        GvDatos.Columns(14).Visible = True
+        GvDatos.Columns(15).Visible = False
+        GvDatos.Columns(16).Visible = False
+        GvDatos.Columns(17).Visible = False
+        GvDatos.Columns(18).Visible = False
+        GvDatos.Columns(19).Visible = False
+        GvDatos.Columns(20).Visible = False
+        GvDatos.Columns(21).Visible = False
+        GvDatos.Columns(22).Visible = False
+        GvDatos.Columns(23).Visible = False
+        GvDatos.Columns(24).Visible = False
+        GvDatos.Columns(25).Visible = False
+
+    End Sub
+
+
+    'Private Sub GuardaPersonalizacion()
+
+    '    Dim objUsuario As New ClsSisUsuarios
+    '    Dim ListPersonalizada As New List(Of String)
+
+    '    If ChkCantidad.Checked Then
+    '        ListPersonalizada.Add("Cantidad")
+    '    End If
+
+    '    If ChkSubTotal.Checked Then
+    '        ListPersonalizada.Add("Subtotal")
+    '    End If
+
+    '    If ChkDescuentos.Checked Then
+    '        ListPersonalizada.Add("Descuentos")
+    '    End If
+
+    '    If ChkIVA.Checked Then
+    '        ListPersonalizada.Add("IVA")
+    '    End If
+
+    '    If ChkTotal.Checked Then
+    '        ListPersonalizada.Add("Total")
+    '    End If
+
+    '    If ChkSubTotal2.Checked Then
+    '        ListPersonalizada.Add("SubTotal2")
+    '    End If
+    '    If ChkIEPS.Checked Then
+    '        ListPersonalizada.Add("IEPS")
+    '    End If
+    '    If ChkRetIVA.Checked Then
+    '        ListPersonalizada.Add("RetIVA")
+    '    End If
+    '    If ChkRetISR.Checked Then
+    '        ListPersonalizada.Add("RetISR")
+    '    End If
+    '    If ChkImpLoc.Checked Then
+    '        ListPersonalizada.Add("ImpLoc")
+    '    End If
+    '    If ChkMinSub.Checked Then
+    '        ListPersonalizada.Add("MinSub")
+    '    End If
+    '    If ChkAVGSub.Checked Then
+    '        ListPersonalizada.Add("AVGSub")
+    '    End If
+    '    If ChkMaxSub.Checked Then
+    '        ListPersonalizada.Add("MaxSub")
+    '    End If
+    '    If ChkMaxTot.Checked Then
+    '        ListPersonalizada.Add("MaxTot")
+    '    End If
+    '    If ChkAvgTot.Checked Then
+    '        ListPersonalizada.Add("AvgTot")
+    '    End If
+    '    If ChkMinTot.Checked Then
+    '        ListPersonalizada.Add("MinTot")
+    '    End If
+    '    If CheckRefacturado.Checked Then
+    '        ListPersonalizada.Add("CheckRefacturado")
+    '    End If
+
+    '    If ChkCantidad.Checked Then
+    '        ListPersonalizada.Add("Cantidad")
+    '    End If
+
+
+    '    If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentas.aspx", String.Join("|", ListPersonalizada)) Then
+    '        'Alert("Personalizacion guardada")
+    '    End If
+
+    '    objUsuario.Dispose()
+
+    'End Sub
+
+    Private Sub GvDatosDataBind()
+
+        GvDatos.DataSource = DtDatos
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+    End Sub
+
+#End Region
 End Class