diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 4f6baeb37..9106c2511 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -512,7 +512,7 @@ - diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 32a7ec185..9a5858990 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1358,23 +1358,18 @@ Partial Class Bancos_IE End Sub #End Region - - Private Sub CargaNotas(CvemonedaInterna As Integer) Dim ObjMovtos As New ClsMovimientos() If CvemonedaInterna > 0 Then If ObjMovtos.GetAnticiposProveedor(CveProveedor, -1, CvemonedaInterna, -1) AndAlso ObjMovtos.DtResultados.FiltraParametros("TipoDocto = 'NC'").Rows.Count > 0 Then GvA.DataSource = ObjMovtos.DtResultados.FiltraParametros("TipoDocto = 'NC' and Saldo > 0 and CveCompra > 0") - Else GvA.DataSource = Nothing End If Else GvA.DataSource = Nothing End If - - ObjMovtos.Dispose() @@ -2413,15 +2408,10 @@ Partial Class Bancos_IE Dim FechaCompraNota As Date = GvRow.DataKey("Fecha").ToDate If tCveMoneda > 1 Then - TCCompra = GlobalTipoCambio(FechaCompraNota).ToDecimal + TCCompra = GvRow.DataKey("TipoCambio").ToDecimal TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal - - If TCCompra <= 0 Then - Alert("No se pudo obtener el tipo de cambio de la nota de crédito.", TipoMensaje.MsgAdvertencia) - End If - If TCDocumento <= 0 Then - Alert("No se pudo obtener el tipo de cambio del documentpo.", TipoMensaje.MsgAdvertencia) + Alert("No se pudo obtener el tipo de cambio del documento.", TipoMensaje.MsgAdvertencia) End If End If ImporteAplicar = GvRow.DataKey("Saldo").ToDecimal @@ -2433,23 +2423,9 @@ Partial Class Bancos_IE Else ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() End If - - If tCveMoneda > 1 Then - - TCCompra = GlobalTipoCambio(GvRow.DataKey("Fecha").ToDate).ToDecimal - TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal - - If TCCompra <= 0 Then - Alert("No se pudo obtener el tipo de cambio de la nota de crédito.", TipoMensaje.MsgAdvertencia) - End If - - If TCDocumento <= 0 Then - Alert("No se pudo obtener el tipo de cambio del documentpo.", TipoMensaje.MsgAdvertencia) - End If - End If - ConceptoAplicar = $"Devolución de Proveedor {PagueseA} {ImporteAplicar} NC:{GvRow.DataKey("SerieFolio")}" CveCompraDeCDin = GvRow.DataKey("CveCompra").ToEntero + Dim tCveTipoConcepto As Integer = GvRow.DataKey("CveTipoConcepto").ToEntero 'BANCOS COMPLEMENTARIA If tCveMoneda > 1 Then @@ -2462,8 +2438,9 @@ Partial Class Bancos_IE 'CANCELA NC ImporteAplicar = ImporteAplicar '- TxtOtrosIngresosEgresos.Text.ToDecimal ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() + Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(15, tCveMoneda, False, tCveTipoConcepto) - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), (ImporteAplicarMN), 18, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), (ImporteAplicarMN), ConPreP.CveConcepto, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" Exit Select End If @@ -2473,7 +2450,7 @@ Partial Class Bancos_IE ImporteAplicarMN = ((ImporteAplicar * If(tCveMoneda = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL() - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), -(ImporteAplicarMN), 201, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), -(ImporteAplicarMN), ConPreP.CveConceptoComplementario, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución" End If @@ -2504,72 +2481,79 @@ Partial Class Bancos_IE 'IMPUESTOS Dim PorcentajePagoDevDin As Decimal = (ImporteAplicar / ImporteAplicar).RoundSQL(6) - Dim CveConceptoContableAplciar As Integer = -1 - 'Dim TipoMovtoAplicar = False + Dim CveConceptoContableAplicar As Integer = -1 + Dim CveMonedaDev As Integer = GvRow.DataKey("CveMoneda").ToEntero + Dim TotalCompraDev As Decimal = GvRow.DataKey("Original").ToDecimal + Dim IVADev As Decimal = GvRow.DataKey("IVA").ToDecimal + Dim IEPSDev As Decimal = GvRow.DataKey("IEPS").ToDecimal + PorcentajeCompraDevDinC = GvRow.DataKey("PorcentajeIVA").ToDecimal - Dim ObjCompras As New ClsCompras() - If ObjCompras.GetCompras(CveCompraDeCDin, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then + Dim IVADevMN As Decimal = 0 + Dim IEPSDevMN As Decimal = 0 + Dim PorcentajeDevolucion As Decimal = ((ImporteAplicar * 100D / TotalCompraDev) / 100).RoundSQL(2) - Dim dr As DataRow = ObjCompras.DtResultados.Rows(0) - If dr IsNot Nothing Then + IVADev = Math.Round(IVADev * PorcentajeDevolucion, 2) + IEPSDev = Math.Round(IEPSDev * PorcentajeDevolucion, 2) - Dim CveMonedaDev As Integer = dr("CveMoneda").ToString.ToEntero - Dim TotalCompraDev As Decimal = dr("Total").ToString.ToDecimal + If tCveMoneda > 1 Then + IVADevMN = IVADev + IEPSDevMN = IEPSDev + Else + IVADevMN = (IVADev * If(CveMonedaDev = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL(2) + IEPSDevMN = (IEPSDev * If(CveMonedaDev = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL(2) + End If - Dim IVADev As Decimal = dr("IVA").ToString.ToDecimal - Dim IEPSDev As Decimal = dr("IEPS").ToString.ToDecimal - PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal + Dim ErrorDevolucionImpuestos As Boolean = False + If IVADev > 0 Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, -IVADevMN, 14, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then - Dim IVADevMN As Decimal = 0 - Dim IEPSDevMN As Decimal = 0 - Dim PorcentajeDevolucion As Decimal = ((ImporteAplicar * 100D / TotalCompraDev) / 100).RoundSQL(2) - - IVADev = Math.Round(IVADev * PorcentajeDevolucion, 2) - IEPSDev = Math.Round(IEPSDev * PorcentajeDevolucion, 2) - - If tCveMoneda > 1 Then - IVADevMN = IVADev - IEPSDevMN = IEPSDev - Else - IVADevMN = (IVADev * If(CveMonedaDev = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL(2) - IEPSDevMN = (IEPSDev * If(CveMonedaDev = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL(2) - End If - - Dim ErrorDevolucionImpuestos As Boolean = False - - If IVADev > 0 Then - - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, -IVADevMN, 14, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then - - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, -IVADevMN, 19, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then - MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución" - ErrorDevolucionImpuestos = True - End If - Else - MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución" - ErrorDevolucionImpuestos = True - End If - End If - - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IEPSDev, -IEPSDevMN, 25, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=-IEPSDev) Then - - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IEPSDev, -IEPSDevMN, 26, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=-IEPSDev) Then - MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución" - ErrorDevolucionImpuestos = True - End If - Else + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, -IVADevMN, 19, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución" ErrorDevolucionImpuestos = True End If - - If ErrorDevolucionImpuestos Then - MsgError = MsgError & " Error en devolución compra." - End If + Else + MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución" + ErrorDevolucionImpuestos = True End If End If + If IEPSDevMN <> 0 Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IEPSDev, -IEPSDevMN, 25, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=-IEPSDev) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IEPSDev, -IEPSDevMN, 26, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=-IEPSDev) Then + MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución" + ErrorDevolucionImpuestos = True + End If + Else + MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución" + ErrorDevolucionImpuestos = True + End If + End If + If ErrorDevolucionImpuestos Then + MsgError = MsgError & " Error en devolución compra." + End If + + End If Next + If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then + Dim Impo As Decimal = TxtOtrosIngresosEgresos.Text.ToDecimal + Dim TipoMovtoIE As Boolean + Dim CveConcIE As Integer + If Impo > 0 Then + TipoMovtoIE = True + Impo = Math.Abs(Impo) + CveConcIE = 78 + Else + TipoMovtoIE = False + Impo = Math.Abs(Impo) + CveConcIE = 211 + End If + + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, Impo, CveConcIE, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=0, TipoCambio:=TCDocumento, CveSubProyecto:=CveSubProyecto) Then + MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" + Exit Select + End If + End If Else If tCveMoneda > 1 Then @@ -2620,6 +2604,7 @@ Partial Class Bancos_IE 'CANCELA NC ImporteAplicar = ImporteAplicar - TxtOtrosIngresosEgresos.Text.ToDecimal ImporteAplicarMN = ImporteAplicar ' (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL() + Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(15, tCveMoneda, False, 1) If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), (ImporteAplicarMN), 18, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteME:=ImporteAplicarME, TipoCambio:=TCCompra) Then MsgError = "Ocurrió un error al registrar el asiento de pago de devolución" @@ -2660,9 +2645,7 @@ Partial Class Bancos_IE End If 'IMPUESTOS - Dim PorcentajePagoDevDin = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6) - Dim CveConceptoContableAplciar = -1 - + Dim PorcentajePagoDevDin As Decimal = (TxtImporte.Text.ToDecimal / ImporteOriginalDevDin).RoundSQL(6) Dim ObjCompras As New ClsCompras() If ObjCompras.GetCompras(CveCompraDeCDin, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then @@ -3567,9 +3550,8 @@ Partial Class Bancos_IE Else ErrorCancelarComplemento = True End If - Else - Dim respCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) + Dim respCancelacion As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) If respCancelacion.Verificado Then If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then @@ -3578,7 +3560,6 @@ Partial Class Bancos_IE ErrorCancelarComplemento = False Alert("El complemento se cancelo correctamente.") End If - Else Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia) ErrorCancelarComplemento = True @@ -3848,7 +3829,7 @@ Partial Class Bancos_IE End Sub Protected Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs) Dim ObjConta As New ClsContabilidad - Dim Movimientos = ObjConta.GetMovimientosPoliza(IDPoliza, UsuarioActual.CveEmpresa) + Dim Movimientos As Integer = ObjConta.GetMovimientosPoliza(IDPoliza, UsuarioActual.CveEmpresa) 'Verifica que solo exista 1 compra asociada If Movimientos = 1 Then @@ -3888,7 +3869,7 @@ Partial Class Bancos_IE Dim ObjConta As New ClsContabilidad ObjConta.IniciaTransacSQL() - Dim ErrorCompra = False + Dim ErrorCompra As Boolean = False 'Elimina la poliza If (UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then @@ -3933,15 +3914,15 @@ Partial Class Bancos_IE #Region " CARGAR - COMPROBANTE " Protected Sub BtnConfirmaComprobante_Click(sender As Object, e As EventArgs) - Dim DirectorioGuardar = String.Format("{0}IE", UsuarioActual.Empresa.Ruta) - Dim ArchivoTemporal = String.Format("{0}Temp\{1}", UsuarioActual.Empresa.Ruta, Session("FileUpload").ToString) + Dim DirectorioGuardar As String = String.Format("{0}IE", UsuarioActual.Empresa.Ruta) + Dim ArchivoTemporal As String = String.Format("{0}Temp\{1}", UsuarioActual.Empresa.Ruta, Session("FileUpload").ToString) If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ArchivoTemporal) Then Dim Extension As String = Path.GetExtension(ArchivoTemporal) Dim ObjIE As New ClsBancos ObjIE.IniciaTransacSQL() - Dim TieneError = False + Dim TieneError As Boolean = False If ObjIE.UpdateComprobanteIE(Extension.Replace("."c, ""), CveIE) Then If Not Directory.Exists(DirectorioGuardar) Then Directory.CreateDirectory(DirectorioGuardar) @@ -4094,8 +4075,6 @@ Partial Class Bancos_IE #Region "PAGO ACREEDORES" Private Sub CargaIEIngresos() Dim ObjMov As New ClsMovimientos - - If HdnCveProveedor.Value.ToEntero > 0 Then DivIEAcreedor.Visible = True DdlIEDevolucion.Items.Clear() @@ -4254,8 +4233,6 @@ Partial Class Bancos_IE If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then - - If Dep.DtResultados.Rows.Count > 0 Then If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then @@ -4266,41 +4243,28 @@ Partial Class Bancos_IE OriReferenciaCIE = Dep.DtResultados.Rows(0)("Referencia").ToString OriConceptoCIE = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString - - Else TrReferenciaCIE.Visible = False End If - - If Boolean.Parse(Dep.DtResultados.Rows(0)("EstatusPagoElectronicoGrupos").ToString) AndAlso Dep.DtResultados.Rows(0)("CveSATBanco").ToString.ToEntero <= 0 Then Alert("Es necesario establecer el banco de la cuenta deposito", TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False Else BtnGuardar.Enabled = True End If - Else TrReferenciaCIE.Visible = False End If - Else TrReferenciaCIE.Visible = False End If - - Else TrReferenciaCIE.Visible = False End If - - - Dep.Dispose() UpCuentaDeposito.Update() UpGuardar.Update() - - End Sub #End Region @@ -4318,15 +4282,12 @@ Partial Class Bancos_IE Private Sub BtnRemove_Click(sender As Object, e As EventArgs) Handles BtnRemove.Click - - If Not TxtDescripcion.Text = "" Then If ChkConciliado.Checked Then Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError) Exit Sub End If - Dim ObjAC As ClsContPAQi = Nothing Dim Banc As New ClsBancos Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL()) @@ -4356,7 +4317,7 @@ Partial Class Bancos_IE End If If Borrar = True Then - Dim ErrorCompra = False + Dim ErrorCompra As Boolean = False Dim MsgEliminar As String = "" 'VERIFICA SI EL IES ESTA VINCULADO A UNA SOLICITUD VIATICO @@ -4448,7 +4409,7 @@ Partial Class Bancos_IE If ObjOC.GetSolicitudAnticipo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then - Dim DrOC = ObjOC.DtResultados.FiltroPrimero("") + Dim DrOC As DataRow = ObjOC.DtResultados.FiltroPrimero("") If DrOC("TipoTermino").ToString.ToEntero.Contiene(0, 3) Then TxtObservaciones.Text = DrOC("Descripcion").ToString @@ -5043,10 +5004,9 @@ Partial Class Bancos_IE End Try End Sub - Protected Sub LnkEliminaMovComprobacion_Click(sender As Object, e As EventArgs) Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) - Dim TieneError = False + Dim TieneError As Boolean = False If GvRH.Rows(gvRow.RowIndex).DataKey("CveIE").ToEntero > 0 Then Dim ObjBancos As New ClsBancos ObjBancos.IniciaTransacSQL() @@ -5428,7 +5388,7 @@ Partial Class Bancos_IE End If Else - Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) + Dim resp As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) If resp.Verificado Then If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then @@ -5596,7 +5556,7 @@ Partial Class Bancos_IE Dim respuesta As Boolean = False - Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, RFCDe, RFCReceptor, "0", True) + Dim Vigencia As Timbrado.AcuseCancelacionSAT = Timbrado.VerificarVigenciaSAT(FolioFiscal, RFCDe, RFCReceptor, "0", True) If Vigencia IsNot Nothing Then If Vigencia.Estado.ToUpper = "CANCELADO" Then