112 lines
4.7 KiB
VB.net
112 lines
4.7 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports Extensiones
|
|
Imports System.Activities.Statements
|
|
Imports Microsoft.Reporting.WebForms
|
|
|
|
Partial Class Contabilidad2_PolizasImpresion
|
|
Inherits ClsPaginas
|
|
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete
|
|
If Not IsPostBack Then
|
|
TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString
|
|
TxtFechaFin.Text = Now.ToShortDateString
|
|
|
|
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
|
|
DdlUsuarioRegistro.DataBind()
|
|
cargaddlpolizas()
|
|
CargaSubProyectos()
|
|
CargaCuentas()
|
|
End If
|
|
End Sub
|
|
Private Sub BtnConsultar_click(sender As Object, args As EventArgs) Handles BtnConsultar.Click
|
|
Dim foli As Integer = -1
|
|
Dim folf As Integer = -1
|
|
If Not FolioInicio.Text = "" Then
|
|
foli = FolioInicio.Text.ToEntero()
|
|
End If
|
|
If Not FolioFin.Text = "" Then
|
|
folf = FolioFin.Text.ToEntero()
|
|
End If
|
|
|
|
Dim ArchivoReporte As String = "Empresas/Grales/Formatos/Polizas.rdlc"
|
|
|
|
If IO.File.Exists(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) Then
|
|
ArchivoReporte = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)
|
|
End If
|
|
|
|
Dim ObjConta As New ClsContabilidad
|
|
If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text, TxtFechaFin.Text, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
|
|
FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero,
|
|
CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero,
|
|
CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then
|
|
If ObjConta.DtResultados.Rows.Count < 10000 Then
|
|
|
|
If ObjConta.DtResultados.Rows.Count > 0 Then
|
|
Dim dr As DataRow
|
|
dr = ObjConta.DtResultados.Rows(0)
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
|
|
params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text))
|
|
params.Add(New ReportParameter("FFin", TxtFechaFin.Text))
|
|
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
|
|
'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
|
|
'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
|
|
params.Add(New ReportParameter("Numero", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("Moneda", ""))
|
|
params.Add(New ReportParameter("CodigoPostal", ""))
|
|
|
|
If UsuarioActual.CveEmpresa = 119 Then
|
|
params.Add(New ReportParameter("UsuarioRegistro", dr("NombreUsuario").ToString))
|
|
End If
|
|
|
|
ImprimirPDF(ArchivoReporte, ObjConta.DtResultados, params)
|
|
|
|
Else
|
|
Alert("Los Filtros Actuales no contienen datos")
|
|
End If
|
|
|
|
Else
|
|
Alert("Los Filtros Actuales contienen muchos datos")
|
|
End If
|
|
End If
|
|
ObjConta.Dispose()
|
|
|
|
End Sub
|
|
Private Sub cargaddlpolizas()
|
|
Dim objcont As New ClsContabilidad
|
|
If objcont.GetTiposPoliza(-1, "-1", UsuarioActual.CveEmpresa) Then
|
|
ddlTipoPoliza.DataSource = objcont.DtResultados
|
|
ddlTipoPoliza.DataBind()
|
|
ddlTipoPoliza.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
End If
|
|
objcont.Dispose()
|
|
DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
End Sub
|
|
|
|
Private Sub CargaSubProyectos()
|
|
DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
|
|
DdlSubProyectos.DataBind()
|
|
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
DdlSubProyectos.Items.Insert(1, New ListItem("Sin Asignar", "-2"))
|
|
End Sub
|
|
|
|
Private Sub CargaCuentas()
|
|
|
|
Dim objconta As New ClsContabilidad
|
|
If objconta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
|
|
DdlCuenta.DataSource = objconta.DtResultados
|
|
End If
|
|
objconta.Dispose()
|
|
DdlCuenta.DataBind()
|
|
|
|
DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
End Sub
|
|
|
|
End Class
|