Personalizacion Rep Ventas Rep ventas Detalles

Ventas/RepVentaDetalle.aspx.vb

@@ -28,6 +28,9 @@ Partial Class RepVentaDetalle
     End Property
     Private Property DtVentas As DataTable
         Get
+            If ViewState("DtVentas") Is Nothing Then
+                ViewState("DtVentas") = New DataTable
+            End If
             Return DirectCast(ViewState("DtVentas"), DataTable)
         End Get
         Set(value As DataTable)
@@ -94,6 +97,20 @@ Partial Class RepVentaDetalle
         End Set
     End Property
 
+
+    Public Property Primeracontsulta As Boolean
+        Get
+            If ViewState("Primeracontsulta") Is Nothing Then
+                ViewState("Primeracontsulta") = True
+            End If
+            Return Boolean.Parse(ViewState("Primeracontsulta").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("Primeracontsulta") = value
+        End Set
+    End Property
+
 #End Region
     'pRivate ReadOnly Property ColumnasVisibles As 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -111,6 +128,8 @@ Partial Class RepVentaDetalle
                 DVServicioDomicilio.Visible = True
 
             End If
+            PrePersonalizacion()
+            CargaPersonalizacion()
         End If
     End Sub
 
@@ -407,6 +426,16 @@ Partial Class RepVentaDetalle
             ImgImprimir.Enabled = True
             GvDatos.DataSource = AddRows(ObjVentas.DtResultados)
             GvVsh.DataSource = ObjVentas.DtResultados.FiltraParametros("CveVenta > 0")
+
+            If DtVentas.SUMD("Descuento") <= 0 Then
+                GvDatos.Columns(5).Visible = False ' se oculta descuentos, si está vac+io
+            Else
+                If Primeracontsulta Then
+                    GvDatos.Columns(5).Visible = True
+                    ChkDescuento.Checked = True
+                End If
+            End If
+
         Else
             GvDatos.DataSource = Nothing
             GvVsh.DataSource = Nothing
@@ -416,8 +445,19 @@ Partial Class RepVentaDetalle
         If DtVentas IsNot Nothing AndAlso DtVentas.Rows.Count > 0 AndAlso DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(5).Visible = False ' se oculta descuentos, si está vac+io
         Agrupador = DdlGrupo.SelectedItem.Text
 
-        GvDatos.DataBind()
+        GvDatosDataBind()
         GvVsh.DataBind()
+
+        Primeracontsulta = False
+
+    End Sub
+
+    Private Sub GvDatosDataBind()
+
+        GvDatos.DataSource = DtVentas
+        GvDatos.DataBind()
+        UPDatos.Update()
+
     End Sub
 
 #End Region
@@ -526,8 +566,388 @@ Partial Class RepVentaDetalle
 
 #Region "PERSONALIZAR COLUMNAS"
 
+    Private Sub PrePersonalizacion()
+
+        If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then
+            ChkIEPS.Visible = True
+        Else
+            ChkIEPS.Visible = False
+            GvDatos.Columns(9).Visible = False
+        End If
+    End Sub
+
+    Private Sub PersonalizaDefault()
+
+        ChkTipoDocto.Checked = True
+        ChkFolio.Checked = True
+        ChkFecha.Checked = True
+        ChkSubTotal.Checked = True
+
+        If DtVentas.Rows.Count > 0 AndAlso DtVentas.SUMD("Descuento") > 0 Then
+            ChkDescuento.Checked = True
+        End If
+
+        ChkIVA.Checked = True
+        If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then
+            ChkIEPS.Checked = True
+        End If
+
+        ChkTotal.Checked = True
+        ChkMoneda.Checked = True
+        ChkSucursal.Checked = True
+        ChkEstatusFactura.Checked = True
+        ChkCliente.Checked = True
+
+    End Sub
+
+    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) Handles BtnPersonalizar.Click
 
+        If ChkGuardarPersonalizacion.Checked Then
+            GuardaPersonalizacion()
+        End If
+
+        Personaliza()
+        GvDatosDataBind()
+        UPDatos.Update()
+
+    End Sub
+
+    Private Sub GuardaPersonalizacion()
+
+        Dim objUsuario As New ClsSisUsuarios
+        Dim ListPersonalizada As New List(Of String)
+
+        If ChkOrdenCompra.Checked Then
+            ListPersonalizada.Add("OrdenCompra")
+        End If
+
+        If ChkFolio.Checked Then
+            ListPersonalizada.Add("Folio")
+        End If
+
+        If ChkPedidoContrato.Checked Then
+            ListPersonalizada.Add("PedidoContrato")
+        End If
+
+
+        If ChkFolio.Checked Then
+            ListPersonalizada.Add("Folio")
+        End If
+
+        If ChkFecha.Checked Then
+            ListPersonalizada.Add("Fecha")
+        End If
+
+        If ChkCliente.Checked Then
+            ListPersonalizada.Add("Cliente")
+        End If
+
+        If ChkSubTotal.Checked Then
+            ListPersonalizada.Add("SubTotal")
+        End If
+
+        If ChkDescuento.Checked Then
+            ListPersonalizada.Add("Descuento")
+        End If
+
+        If ChlMotivoDescuento.Checked Then
+            ListPersonalizada.Add("MotivoDescuento")
+        End If
+
+        If ChkAmortizacion.Checked Then
+            ListPersonalizada.Add("Amortizacion")
+        End If
+
+        If ChkIVA.Checked Then
+            ListPersonalizada.Add("IVA")
+        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 ChkTotalImpuestos.Checked Then
+            ListPersonalizada.Add("TotalImpuestos")
+        End If
+
+        If ChkTotal.Checked Then
+            ListPersonalizada.Add("Total")
+        End If
+
+        If ChkMoneda.Checked Then
+            ListPersonalizada.Add("Moneda")
+        End If
+
+        If ChkSucursal.Checked Then
+            ListPersonalizada.Add("Sucursal")
+        End If
+
+        If ChkSucursalEjecucion.Checked Then
+            ListPersonalizada.Add("SucursalEjecucion")
+        End If
+
+        If ChkCodigo.Checked Then
+            ListPersonalizada.Add("Codigo")
+        End If
+
+        If ChkSucursalCliente.Checked Then
+            ListPersonalizada.Add("SucursalCliente")
+        End If
+
+        If ChkSucursalCobranza.Checked Then
+            ListPersonalizada.Add("SucursalCobranza")
+        End If
+
+        If ChkVendedor.Checked Then
+            ListPersonalizada.Add("Vendedor")
+        End If
+
+        If ChkEstatusFactura.Checked Then
+            ListPersonalizada.Add("EstatusFactura")
+        End If
+
+        If ChkMotivoCancelacion.Checked Then
+            ListPersonalizada.Add("MotivoCancelacion")
+        End If
+
+        If ChkSeTimbro.Checked Then
+            ListPersonalizada.Add("SeTimbro")
+        End If
+
+        If ChkSeEnvioMail.Checked Then
+            ListPersonalizada.Add("SeEnvioMail")
+        End If
+
+        If ChkCuentaContable.Checked Then
+            ListPersonalizada.Add("CuentaContable")
+        End If
+
+        If ChkUsuario.Checked Then
+            ListPersonalizada.Add("Usuario")
+        End If
+
+        If ChkObservaciones.Checked Then
+            ListPersonalizada.Add("Observaciones")
+        End If
+
+        If ChkFolioFiscal.Checked Then
+            ListPersonalizada.Add("FolioFiscal")
+        End If
+
+        If ChkMailCliente.Checked Then
+            ListPersonalizada.Add("MailCliente")
+        End If
+
+        If ChkEstatusFacturacion.Checked Then
+            ListPersonalizada.Add("EstatusFacturacion")
+        End If
+
+        If ChkFolioFacturacion.Checked Then
+            ListPersonalizada.Add("FolioFacturacion")
+        End If
+
+        If ChkSaldo.Checked Then
+            ListPersonalizada.Add("Saldo")
+        End If
+
+        If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then
+            'Alert("Personalizacion guardada")
+        End If
+
+        objUsuario.Dispose()
+
+    End Sub
+
+
+    Private Sub CargaPersonalizacion()
+
+        Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("RepVentaDetalles.aspx")
+
+        If strBasePersonalizacion.Trim.Length > 0 Then
+
+            ChkTipoDocto.Checked = False
+            ChkOrdenCompra.Checked = False
+            ChkPedidoContrato.Checked = False
+
+            ChkFolio.Checked = False
+            ChkFecha.Checked = False
+            ChkCliente.Checked = False
+            ChkSubTotal.Checked = False
+            ChkDescuento.Checked = False
+            ChlMotivoDescuento.Checked = False
+            ChkAmortizacion.Checked = False
+            ChkIVA.Checked = False
+            ChkIEPS.Checked = False
+            ChkRetIVA.Checked = False
+            ChkRetISR.Checked = False
+            ChkTotalImpuestos.Checked = False
+            ChkTotal.Checked = False
+            ChkMoneda.Checked = False
+            ChkSucursal.Checked = False
+            ChkSucursalEjecucion.Checked = False
+            ChkCodigo.Checked = False
+            ChkSucursalCliente.Checked = False
+            ChkSucursalCobranza.Checked = False
+            ChkSucursalEjecucion.Checked = False
+            ChkVendedor.Checked = False
+            ChkEstatusFactura.Checked = False
+            ChkMotivoCancelacion.Checked = False
+            ChkSeTimbro.Checked = False
+            ChkSeEnvioMail.Checked = False
+            ChkCuentaContable.Checked = False
+            ChkUsuario.Checked = False
+            ChkObservaciones.Checked = False
+            ChkFolioFiscal.Checked = False
+            ChkMailCliente.Checked = False
+            ChkEstatusFacturacion.Checked = False
+            ChkFolioFacturacion.Checked = False
+            ChkSaldo.Checked = False
+
+            Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
+
+            For Each personalizacion As String In Personalizaciones
+                Select Case personalizacion
+                    Case "TipoDocto"
+                        ChkTipoDocto.Checked = True
+                        Exit Select
+                    Case "OrdenCompra"
+                        ChkOrdenCompra.Checked = True
+                        Exit Select
+                    Case "PedidoContrato"
+                        ChkPedidoContrato.Checked = True
+                        Exit Select
+                    Case "Folio"
+                        ChkFolio.Checked = True
+                        Exit Select
+                    Case "Fecha"
+                        ChkFecha.Checked = True
+                        Exit Select
+                    Case "Cliente"
+                        ChkCliente.Checked = True
+                        Exit Select
+                    Case "SubTotal"
+                        ChkSubTotal.Checked = True
+                        Exit Select
+                    Case "Descuento"
+                        ChkDescuento.Checked = True
+                        Exit Select
+                    Case "MotivoDescuento"
+                        ChlMotivoDescuento.Checked = True
+                        Exit Select
+                    Case "Amortizacion"
+                        ChkAmortizacion.Checked = True
+                        Exit Select
+                    Case "IVA"
+                        ChkIVA.Checked = True
+                        Exit Select
+                    Case "IEPS"
+                        ChkIEPS.Checked = True
+                        Exit Select
+                    Case "RetIVA"
+                        ChkRetIVA.Checked = True
+                        Exit Select
+                    Case "RetISR"
+                        ChkRetISR.Checked = True
+                        Exit Select
+                    Case "TotalImpuestos"
+                        ChkTotalImpuestos.Checked = True
+                        Exit Select
+                    Case "Total"
+                        ChkTotal.Checked = True
+                        Exit Select
+                    Case "Moneda"
+                        ChkMoneda.Checked = True
+                        Exit Select
+                    Case "Sucursal"
+                        ChkSucursal.Checked = True
+                        Exit Select
+                    Case "SucursalEjecucion"
+                        ChkSucursalEjecucion.Checked = True
+                        Exit Select
+                    Case "Codigo"
+                        ChkCodigo.Checked = True
+                        Exit Select
+                    Case "SucursalCliente"
+                        ChkSucursalCliente.Checked = True
+                        Exit Select
+                    Case "SucursalCobranza"
+                        ChkSucursalCobranza.Checked = True
+                        Exit Select
+                    Case "SucursalEjecucion"
+                        ChkSucursalEjecucion.Checked = True
+                        Exit Select
+                    Case "Vendedor"
+                        ChkVendedor.Checked = True
+                        Exit Select
+                    Case "EstatusFactura"
+                        ChkEstatusFactura.Checked = True
+                        Exit Select
+                    Case "MotivoCancelacion"
+                        ChkMotivoCancelacion.Checked = True
+                        Exit Select
+                    Case "SeTimbro"
+                        ChkSeTimbro.Checked = True
+                        Exit Select
+                    Case "SeEnvioMail"
+                        ChkSeEnvioMail.Checked = True
+                        Exit Select
+                    Case "CuentaContable"
+                        ChkCuentaContable.Checked = True
+                        Exit Select
+                    Case "Usuario"
+                        ChkUsuario.Checked = True
+                        Exit Select
+                    Case "Observaciones"
+                        ChkObservaciones.Checked = True
+                        Exit Select
+                    Case "FolioFiscal"
+                        ChkFolioFiscal.Checked = True
+                        Exit Select
+                    Case "MailCliente"
+                        ChkMailCliente.Checked = True
+                        Exit Select
+                    Case "EstatusFacturacion"
+                        ChkEstatusFacturacion.Checked = True
+                        Exit Select
+                    Case "FolioFacturacion"
+                        ChkFolioFacturacion.Checked = True
+                        Exit Select
+                    Case "Saldo"
+                        ChkSaldo.Checked = True
+                        Exit Select
+                    Case Else
+                        Exit Select
+                End Select
+            Next
+
+            Personaliza()
+        Else
+            PersonalizaDefault()
+        End If
+
+        UPPersonalizar.Update()
+
+    End Sub
+
+
+    Private Sub Personaliza()
+
+        GvDatos.Columns(0).Visible = ChkTipoDocto.Checked
         GvDatos.Columns(1).Visible = ChkFolio.Checked
         GvDatos.Columns(2).Visible = ChkFecha.Checked
         GvDatos.Columns(3).Visible = ChkCliente.Checked
@@ -561,6 +981,8 @@ Partial Class RepVentaDetalle
         GvDatos.Columns(31).Visible = ChkEstatusFacturacion.Checked
         GvDatos.Columns(32).Visible = ChkFolioFacturacion.Checked
         GvDatos.Columns(33).Visible = ChkSaldo.Checked
+        GvDatos.Columns(34).Visible = ChkOrdenCompra.Checked
+        GvDatos.Columns(35).Visible = ChkPedidoContrato.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then
@@ -568,7 +990,7 @@ Partial Class RepVentaDetalle
         Else
             ImgExcelPersonalizado.Visible = False
         End If
-        UPDatos.Update()
+
     End Sub
 
 #End Region
@@ -871,4 +1293,6 @@ Partial Class RepVentaDetalle
 #End Region
 
 
+
+
 End Class