-- cleanup

This commit is contained in:
2022-06-18 11:19:59 -07:00
parent 23ffe814e9
commit 8a5eae3654
4 changed files with 9 additions and 15 deletions

View File

@@ -1,21 +1,15 @@
Option Strict On Option Strict On
Option Explicit On Option Explicit On
Imports Extensiones
Imports System.Data Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports System.Xml
Imports System.IO Imports System.IO
Imports System.Xml
Imports Extensiones
Imports iTextSharp.text Imports iTextSharp.text
Imports iTextSharp.text.pdf Imports iTextSharp.text.pdf
Imports Microsoft.Reporting.WebForms
Imports Stimulsoft.Report Imports Stimulsoft.Report
Imports Stimulsoft.Report.Components
Imports Stimulsoft.Report.Dictionary
Imports Stimulsoft.Report.Web Imports Stimulsoft.Report.Web
Imports Newtonsoft.Json.Linq
Imports System
Imports Microsoft.VisualBasic
Partial Class PopUpVerFactura Partial Class PopUpVerFactura
Inherits ClsPaginas Inherits ClsPaginas

View File

@@ -1,6 +1,6 @@
 
Imports Extensiones
Imports System.Data Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Partial Class Compras_ReembolsosComprobaciones Partial Class Compras_ReembolsosComprobaciones
@@ -1424,7 +1424,7 @@ Partial Class Compras_ReembolsosComprobaciones
GvCxP.Visible = True GvCxP.Visible = True
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim)) ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), OpcionSaldo:=1)
DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0") DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0")
GvCxP.DataSource = DtDatos GvCxP.DataSource = DtDatos
CvePrePolizaComprobacion = DtDatos.MAX("CvePrePolizaComprobacion").ToEntero CvePrePolizaComprobacion = DtDatos.MAX("CvePrePolizaComprobacion").ToEntero

View File

@@ -261,7 +261,7 @@ Partial Class Compras_RepRembolsoComprobaciones
Dim FechaI As DateTime = If(String.IsNullOrEmpty(txtFechaI.Text.Trim()), ModExtensiones.MinFecha, txtFechaI.Text.ToDateTime()) Dim FechaI As DateTime = If(String.IsNullOrEmpty(txtFechaI.Text.Trim()), ModExtensiones.MinFecha, txtFechaI.Text.ToDateTime())
Dim FechaF As DateTime = If(String.IsNullOrEmpty(txtFechaF.Text.Trim()), ModExtensiones.MaxFecha, txtFechaF.Text.ToDateTime()) Dim FechaF As DateTime = If(String.IsNullOrEmpty(txtFechaF.Text.Trim()), ModExtensiones.MaxFecha, txtFechaF.Text.ToDateTime())
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF) ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), FechaI:=FechaI, FechaF:=FechaF, OpcionSaldo:=-1)
DtDatos = ObjMovtos.DtResultados DtDatos = ObjMovtos.DtResultados
GvCxP.DataSource = DtDatos GvCxP.DataSource = DtDatos

View File

@@ -2,15 +2,15 @@
Option Explicit On Option Explicit On
Imports System.Data Imports System.Data
Imports Extensiones
Imports System.Diagnostics Imports System.Diagnostics
Imports System.Globalization
Imports System.IO Imports System.IO
Imports System.IO.Compression Imports System.IO.Compression
Imports System.Xml Imports System.Xml
Imports Microsoft.Reporting.WebForms
Imports System.Globalization
Imports ADSistemaLibrary.SatXml Imports ADSistemaLibrary.SatXml
Imports ADSistemaLibrary.SatXml.XmlSatCFDI Imports ADSistemaLibrary.SatXml.XmlSatCFDI
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class Compras_eFacturas Partial Class Compras_eFacturas
Inherits ClsPaginas Inherits ClsPaginas