120 lines
4.2 KiB
VB.net
120 lines
4.2 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports System.IO
|
|
Imports Extensiones
|
|
Imports Microsoft.Reporting.WebForms
|
|
|
|
Partial Class Contabilidad_RepIVADiferencias
|
|
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
|
|
Private Property Ejercicio As Integer
|
|
Get
|
|
Ejercicio = ViewState("Ejercicio").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("Ejercicio") = value
|
|
End Set
|
|
End Property
|
|
Private Property PeriodoNumero As Integer
|
|
Get
|
|
PeriodoNumero = ViewState("PeriodoNumero").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("PeriodoNumero") = value
|
|
End Set
|
|
End Property
|
|
Private Property Periodo As String
|
|
Get
|
|
Periodo = ViewState("Periodo").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Periodo") = value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
CargaCombos()
|
|
If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
|
|
BtnConsultar.Enabled = True
|
|
Ejercicio = DdlEjercicio.SelectedValue.ToEntero
|
|
PeriodoNumero = DdlPeriodo.SelectedValue.ToEntero
|
|
CargaDatos()
|
|
Else
|
|
Alert("La empresa no usa contabilidad ni Armonización Contable", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaCombos()
|
|
DdlEjercicio.Items.Insert(0, NowADS().Year.ToString)
|
|
DdlEjercicio.Items.Insert(1, NowADS().AddYears(-1).Year.ToString)
|
|
DdlPeriodo.SelectedValue = NowADS().Month.ToString
|
|
End Sub
|
|
Private Sub CargaDatos()
|
|
Dim ObjCont As New ClsContPAQi(UsuarioActual.Empresa)
|
|
If ObjCont.GetIVAsDiferencias(Ejercicio, PeriodoNumero) Then
|
|
DtDatos = ObjCont.DtResultados
|
|
Else
|
|
DtDatos = Nothing
|
|
End If
|
|
ObjCont.Dispose()
|
|
Gv.DataSource = DtDatos
|
|
Gv.DataBind()
|
|
UPPDatos.Update()
|
|
Periodo = DdlPeriodo.SelectedItem.ToString
|
|
End Sub
|
|
|
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
|
Ejercicio = DdlEjercicio.SelectedValue.ToEntero
|
|
PeriodoNumero = DdlPeriodo.SelectedValue.ToEntero
|
|
CargaDatos()
|
|
End Sub
|
|
|
|
Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
|
|
'Gv.ExportToExcel("DiferenciasIVA")
|
|
ImprimirReporte("Excel")
|
|
End Sub
|
|
Private Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click
|
|
|
|
ImprimirReporte()
|
|
|
|
End Sub
|
|
Private Sub ImprimirReporte(Optional Formato As String = "PDF")
|
|
'ubicacion del rdlc
|
|
Dim reportpath As String = Server.MapPath("~/Empresas/Grales/Formatos/RepIvaDiferencias.rdlc") '"Empresas/Grales/Formatos/RepIvaDiferencias.rdlc"
|
|
'nombre del reporte
|
|
Dim fileName As String = "Diferencias IVA"
|
|
|
|
If Not IsNothing(DtDatos) AndAlso DtDatos.Rows.Count > 0 Then
|
|
|
|
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
|
|
'parametros a enviar al reporte
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
|
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Ejercicio", Ejercicio.ToString))
|
|
params.Add(New ReportParameter("Periodo", Periodo))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString))
|
|
|
|
ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
|
|
Else
|
|
Alert("No se encontraron registros", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End Sub
|
|
End Class
|