Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
219
Contabilidad/FiltraPolizas.aspx.vb
Normal file
219
Contabilidad/FiltraPolizas.aspx.vb
Normal file
@@ -0,0 +1,219 @@
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
Partial Class Contabilidad_FiltraPolizas
|
||||
Inherits ClsPaginas
|
||||
#Region "Propiedades"
|
||||
Private Property DtDatos As DataTable
|
||||
Get
|
||||
Return CType(ViewState("DtDatos"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DtDatos") = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
ViewState("Orden") = ""
|
||||
DdlPeriodo.SelectedValue = Now.Month.ToString
|
||||
TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
|
||||
TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString
|
||||
If UsuarioActual.Empresa.UsaContabilidad Then
|
||||
CargaSegmentoNeg()
|
||||
CargaEjercicios()
|
||||
CargaDatos()
|
||||
CargaGvBitacora()
|
||||
Else
|
||||
Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
|
||||
BtnConsultar.Enabled = False
|
||||
LnkImprimir.Visible = False
|
||||
LnkExcel.Visible = False
|
||||
End If
|
||||
|
||||
'Dim httpApps As HttpApplication = HttpContext.ApplicationInstance
|
||||
|
||||
''Get list of active modules
|
||||
'Dim httpModuleCollections As HttpModuleCollection = httpApps.Modules
|
||||
'' ViewBag.ModulesCount = httpModuleCollections.Count
|
||||
'gvv.DataSource = httpModuleCollections
|
||||
'gvv.DataBind()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Public Sub CargaDatos()
|
||||
Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
|
||||
Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()
|
||||
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero()) Then
|
||||
DtDatos = ObjConta.DtResultados
|
||||
Gv.DataSource = ObjConta.DtResultados
|
||||
'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then
|
||||
' ViewState("DTPolizas") = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
|
||||
' DtDatos = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
|
||||
'Else
|
||||
' ViewState("DTPolizas") = ObjConta.DtResultados
|
||||
' DtDatos = ObjConta.DtResultados
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
Gv.DataBind()
|
||||
|
||||
ObjConta.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSegmentoNeg()
|
||||
Dim ObjContPAQ As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
If ObjContPAQ.GetSegmentosNegocio(-1, "-1") Then
|
||||
DdlSegmentoNeg.DataSource = ObjContPAQ.DtResultados
|
||||
DdlSegmentoNeg.DataBind()
|
||||
End If
|
||||
ObjContPAQ.Dispose()
|
||||
DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaEjercicios()
|
||||
Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
If ClsConta.GetEjercicios() Then
|
||||
DdlEjercicio.DataSource = ClsConta.DtResultados
|
||||
Else
|
||||
DdlEjercicio.DataSource = Nothing
|
||||
End If
|
||||
ClsConta.Dispose()
|
||||
DdlEjercicio.DataBind()
|
||||
|
||||
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
Private Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEjercicio.SelectedIndexChanged
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
Private Sub DdlPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPeriodo.SelectedIndexChanged
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
'Private Sub DdlTipoPoliza_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPoliza.SelectedIndexChanged
|
||||
' CargaDatos()
|
||||
'End Sub
|
||||
|
||||
#Region "O R D E N A M I E N T O"
|
||||
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim Orden As String = ""
|
||||
Dim Campo As String = ""
|
||||
Dim Literal As Literal = Nothing
|
||||
Const OrdenInicial As String = ""
|
||||
Dim Arg(2) As String
|
||||
|
||||
Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
||||
Campo = Arg(0)
|
||||
Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
||||
|
||||
If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
|
||||
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
||||
Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
||||
Else
|
||||
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
|
||||
Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
||||
End If
|
||||
Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
|
||||
ViewState("Orden") = Orden
|
||||
'CargaGrid(Orden)
|
||||
End Sub
|
||||
'Private Sub CargaGrid(Orden As String)
|
||||
' If Orden <> String.Empty Then
|
||||
' Dim DV As New DataView(CType(ViewState("DTPolizas"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
' Gv.DataSource = DV.ToTable()
|
||||
' DV.Dispose()
|
||||
' Else
|
||||
' Gv.DataSource = CType(ViewState("DTPolizas"), DataTable)
|
||||
' End If
|
||||
' Gv.DataBind()
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "IMPRIMIR"
|
||||
Private Sub ImprimirPoliza(Optional Formato As String = "PDF")
|
||||
If DtDatos IsNot Nothing Then
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
Dim dt As DataTable = DtDatos
|
||||
|
||||
|
||||
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("Ejercicio", DdlEjercicio.SelectedItem.ToString))
|
||||
params.Add(New ReportParameter("Periodo", DdlPeriodo.SelectedItem.ToString))
|
||||
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
ImprimirPDF("Empresas/Grales/Formatos/PolizasPeriodo.rdlc", dt, params, String.Format("ReporteDePolizas-{0} {1}", DdlEjercicio.SelectedItem, DdlPeriodo.SelectedItem), Formato:=Formato)
|
||||
Else
|
||||
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
|
||||
ImprimirPoliza("PDF")
|
||||
End Sub
|
||||
|
||||
Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
|
||||
ImprimirPoliza("EXCEL")
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "HISTORIAL DE ELIMINACION"
|
||||
|
||||
Private Sub CargaGvBitacora()
|
||||
Dim ObjGral As New ClsGenerales
|
||||
If ObjGral.GetHistorialBitacoraRemoveGet("Polizas", UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate, DdlTipoPolizaFiltro.SelectedValue.ToEntero) Then
|
||||
GvBitacora.DataSource = ObjGral.DtResultados
|
||||
End If
|
||||
ObjGral.Dispose()
|
||||
GvBitacora.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnMostrar_Click(sender As Object, e As EventArgs) Handles BtnMostrar.Click
|
||||
GvBitacora.Visible = True
|
||||
DivBusquedaBitacora.Visible = True
|
||||
DivFiltrosBitacora.Visible = True
|
||||
BtnOcultar.Visible = True
|
||||
BtnMostrar.Visible = False
|
||||
UpBitacora.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnOcultar_Click(sender As Object, e As EventArgs) Handles BtnOcultar.Click
|
||||
GvBitacora.Visible = False
|
||||
DivBusquedaBitacora.Visible = False
|
||||
DivFiltrosBitacora.Visible = False
|
||||
BtnOcultar.Visible = False
|
||||
BtnMostrar.Visible = True
|
||||
UpBitacora.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnConsultarBitacora_Click(sender As Object, e As EventArgs)
|
||||
CargaGvBitacora()
|
||||
UpBitacora.Update()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user