-- cancelación

Bancos/IE.aspx

@@ -1248,6 +1248,15 @@
 
                                     </div>
                                 </div>
+                                <div class="row">
+                                    <div class="col-md-12" id="DVTipoTransacciónCancelar2" runat="server" visible="false">
+                                        Cuenta Devolución:
+                                            <asp:DropDownList ID="DdlDevolucionCuenta" CssClass="form-control input-sm select2me" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" >
+                                                <asp:ListItem Value="-1">-</asp:ListItem>
+                                            </asp:DropDownList>
+                                         
+                                    </div>
+                                </div>
                             </div>
 
 

Bancos/IE.aspx.vb

@@ -6,6 +6,7 @@ Imports Extensiones
 Imports System.Web.Services
 Imports System.IO
 Imports Microsoft.Reporting.WebForms
+Imports System.Xml
 
 Partial Class Bancos_IE
     Inherits ClsPaginas
@@ -629,6 +630,13 @@ Partial Class Bancos_IE
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not IsPostBack Then
+
+            'PDFReciboDePagos(-1, 1336198, 87212, False) '--pago20
+            'PDFReciboDePagos(-1, 1361624, 87916, False) '--pago20
+
+            ''PDFReciboDePagos(-1, 1304037, 87219, False)
+            'Exit Sub
+
             Me.CveCorte = -1
             Folio = ""
             IDCtaBeneficiario = 0
@@ -1833,7 +1841,6 @@ Partial Class Bancos_IE
             dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas
         End If
 
-
         If pCveMoneda > 0 Then
             dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", pCveMoneda))
         End If
@@ -4226,191 +4233,6 @@ Partial Class Bancos_IE
 
 #End Region
 
-    ''[IPP] IFs REEMPLAZADOS - MIRAS DE ELIMINAR 2018/08/15
-    'If Not Opcion.Contiene("DEV", "INGPC", "DevDinV") AndAlso MsgError = "" Then
-
-    'Dim TipoMovimiento As Boolean = True
-
-    'If Opcion.Contiene("ANTC") Then
-    '                        TipoMovimiento = False
-    '                    End If
-
-    ''MOVIMIENTOS EGRESOS
-    'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDouble, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
-    'Dim IVA As Double = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
-    'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDouble - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
-    'If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
-    '                                MsgError = "Detalle"
-    '                            End If
-    ''intereses pagados
-    'If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, Ref, 46, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=CIF, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
-    '                                MsgError = "Detalle"
-    '                            End If
-    'Else
-    '                            MsgError = "no se pudo insertar el detalle de la póliza2"
-    '                        End If
-    'Else
-    '                        MsgError = "no se pudo insertar el detalle de la póliza"
-    '                    End If
-
-
-    'If Opcion.Contiene("EGSSINFACT") AndAlso CveSolicitudViatico > 0 AndAlso MsgError = "" Then
-    'If Not ObjIE.UpdateSolicitudesViaticosIE(CveSolicitudViatico, CveIE) Then
-    '                            MsgError = "Ocurrió un Error al vincular el egreso con la solicitud de viatico."
-    '                        End If
-    'End If
-
-    ''MOVIMIENTOS INGRESOS - DEVOLUCIONES
-    'ElseIf Opcion.Contiene("DEV") AndAlso MsgError = "" Then
-    'Dim CveIEOtro As Integer = If(CveProveedor > 0 Or CvePersonal > 0, DdlIEDevolucion.SelectedValue.ToEntero, CveIE)
-
-    'If CveCliente > 0 AndAlso Not DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDouble = 0 Then
-    ''RMF- CASO DONDE HAY UNA DEVOLUCION Y TENGO QUE AFECTAR LAS FACTURAS QUE SE HABIAN MARCADO COMO PAGADAS TENGO QUE REGRESARLAS A PENDIENTES
-    'Dim Mov As New ClsMovimientos
-    'If Mov.GetMovimientosIE(2, DdlIEDevolucion.SelectedValue.ToEntero, -1, Now, Now, 1, 0, UsuarioActual.CveEmpresa) Then
-    'Dim DtIE As DataTable = Mov.DtResultados
-    'For Each dr As DataRow In DtIE.Rows
-
-    'If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, If(dr("TipoMovto").ToString.ToEntero = 1, False, True), If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDouble, dr("Importe").ToString.ToDouble), "", dr("CveConceptoContable").ToString.ToEntero, "", Now, IDCtaBeneficiario, -1, CveIE, CveCliente:=dr("CveCliente").ToString.ToEntero, CveVenta:=dr("CveVenta").ToString.ToEntero, ImporteMX:=If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDouble, -dr("Importe").ToString.ToDouble), ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then
-    '                                    MsgError = "no se pudo insertar el detalle de la póliza 2"
-    '                                End If
-    'Next
-    '                            ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta)
-
-    '                        End If
-    '                        Mov.Dispose()
-
-    '                        'Devolucion de INGxC Formato Charlie
-    '                    ElseIf CveCliente > 0 AndAlso DivIvaIxC.Visible Then
-
-    'Dim Mov As New ClsMovimientos
-    '                        'INGxC
-    '                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDouble - TxtIvaIxC.Text.ToDouble), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDouble - TxtIvaIxC.Text.ToDouble), ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta)
-
-    '                        If TxtIvaIxC.Text.ToDouble > 0 Then
-    '                            'Iva
-    '                            ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDouble, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
-    '                        End If
-
-    '                        'Bancos
-    '                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -TxtImporte.Text.ToDouble, Ref, 30, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario)
-    '                        Mov.Dispose()
-
-    '                    Else
-    'If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDouble, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) Then
-    'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDouble, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDouble, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then
-    '                                MsgError = "no se pudo insertar el detalle de la póliza 2"
-    '                            End If
-    'Else
-    '                            MsgError = "no se pudo insertar el detalle de la póliza"
-    '                        End If
-
-    'End If
-
-    ''Nuevo INGxC Formato Charlie
-    'ElseIf Opcion.Contiene("INGPC") AndAlso MsgError = "" Then
-
-    'Dim ConceptoContable As Integer
-    'Dim TipoMovimiento As Boolean
-    'Dim importeMovimiento As Decimal
-    'Dim FechaMovimiento As Date = Now
-    'Dim Concepto As String = ""
-    'Dim Referencia As String = TxtPagueseA.Text
-
-    'Dim importeMX As Decimal
-    'Dim Multiplicador As Integer
-
-    'If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
-    'For Each Row As DataRow In ObjMov.DtResultados.Rows
-
-    '                            ConceptoContable = Row("CveConcepto").ToString.ToEntero
-    '                            TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
-    '                            importeMovimiento = 0
-    '                            Multiplicador = (Row("Multiplicador").ToString.ToEntero)
-    '                            Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, TxtPagueseA.Text, "", TxtFolio.Text)
-
-    '                            Select Case ConceptoContable
-
-    'Case 10
-    'If RBL.SelectedValue = "P" AndAlso CveProveedor > 0 Then
-    '                                        importeMovimiento = TxtImporte.Text.ToDecimal
-    '                                        importeMX = importeMovimiento
-    '                                    End If
-
-    'Case 28
-    'If RBL.SelectedValue = "FE" AndAlso CvePersonal > 0 Then
-    '                                        importeMovimiento = TxtImporte.Text.ToDecimal
-    '                                        importeMX = importeMovimiento
-    '                                    End If
-
-    'Case 37
-    'If RBL.SelectedValue = "DD" AndAlso CveProveedor > 0 Then
-    '                                        importeMovimiento = TxtImporte.Text.ToDecimal
-    '                                        importeMX = importeMovimiento
-    '                                    End If
-
-    'Case 41
-    'If RBL.SelectedValue = "AC" AndAlso CveProveedor > 0 Then
-    '                                        importeMovimiento = TxtImporte.Text.ToDecimal
-    '                                        importeMX = importeMovimiento
-    '                                    End If
-
-    'Case 50
-    'If RBL.SelectedValue = "DP" AndAlso CveProveedor > 0 Then
-    '                                        importeMovimiento = TxtImporte.Text.ToDecimal
-    '                                        importeMX = importeMovimiento
-    '                                    End If
-
-    'Case 66
-    'If RBL.SelectedValue = "C" AndAlso CveCliente > 0 Then
-    '                                        importeMovimiento = TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal
-    '                                        importeMX = importeMovimiento
-
-    '                                        'Agregamos el IVA
-    '                                        If DivIvaIxC.Visible AndAlso TxtIvaIxC.Text.ToDecimal <> 0 Then
-    'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtIvaIxC.Text.ToDecimal, Concepto, 61, Concepto, FechaMovimiento, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then
-    '                                                MsgError = "Ocurrió un Error al registrar el asiento del ingreso."
-    '                                            End If
-    'End If
-    'If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then
-    ''Agregamos complementaria
-    'Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
-
-    'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 226, Concepto, FechaMovimiento, IDCtaBeneficiarioComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=0) Then
-    '                                                MsgError = "Ocurrió un Error al registrar el asiento del ingreso."
-    '                                            End If
-
-    'End If
-
-    'End If
-
-    'Case 30
-    '                                    importeMovimiento = TxtImporte.Text.ToDecimal
-    '                                    importeMX = importeMovimiento
-
-    '                                    If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then
-    ''Agregamos complementaria
-    'Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
-
-    'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then
-    '                                            MsgError = "Ocurrió un Error al registrar el asiento del ingreso."
-    '                                        End If
-
-    'End If
-
-    'End Select
-
-    'If importeMovimiento <> 0 Then
-    'If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCuenta:=If(ConceptoContable = 30, CveCuentaConta, CveCuentaBeneficiario)) Then
-    '                                    MsgError = "Ocurrió un Error al registrar el asiento del ingreso."
-    '                                End If
-    'End If
-
-    'Next
-
-    'End If
-    'End If
-
     Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click
 
         Dim IE As New ClsBancos
@@ -4496,7 +4318,7 @@ Partial Class Bancos_IE
         End If
 
         Try
-            If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC)) Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC)) Then
 
                 If ObjAC Is Nothing Then
                     ErrorCancelar = True
@@ -4592,8 +4414,9 @@ Partial Class Bancos_IE
                 Dim TipoMovimiento As Integer = 1
 
                 Dim CveTipoTransaccionCancelacion As Integer = DdlTipoTransaccionCancelacion.SelectedValue.ToEntero
+                Dim CveCuentaDevolucion As Integer = DdlDevolucionCuenta.SelectedValue.ToEntero
 
-                If ChkGeneraCancelacion.Checked AndAlso GeneraCancelacionEnCero Then
+                If ChkGeneraCancelacion.Checked Then
                     GeneraCancelacionEnCero = False
                     TipoMovimiento = 2
 
@@ -4608,7 +4431,7 @@ Partial Class Bancos_IE
                 If Not GeneraCancelacionEnCero Then
                     'CANCELA IE MES ANTERIOR
                     CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, TipoMovimiento:=TipoMovimiento,
-                                                                     CveTipoTransaccionCancelacion:=CveTipoTransaccionCancelacion)
+                                                                     CveTipoTransaccionCancelacion:=CveTipoTransaccionCancelacion, CveCuentaDevolucion:=CveCuentaDevolucion)
                     If CvePrePolizaCancelacion <= 0 Then
                         ErrorCancelar = True
                         MensajeError = "Error al cancelar IE MES ANTERIOR"
@@ -4624,7 +4447,7 @@ Partial Class Bancos_IE
                     Else
                         'CANCELA IE MES ACTUAL
                         CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate,
-                                                                         CveTipoTransaccionCancelacion:=CveTipoTransaccionCancelacion)
+                                                                         CveTipoTransaccionCancelacion:=CveTipoTransaccionCancelacion, CveCuentaDevolucion:=CveCuentaDevolucion)
                         If CvePrePolizaCancelacion <= 0 Then
                             ErrorCancelar = True
                             MensajeError = "Error al cancelar IE MES ACTUAL"
@@ -4681,7 +4504,7 @@ Partial Class Bancos_IE
                         Dim ObjCancelacion As New Timbrado
                         If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
 
-                            If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
+                            If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, Date.Now, "", 1) Then
                                 CargaComplementosPago()
                                 RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
                                 ErrorCancelarComplemento = False
@@ -4692,7 +4515,7 @@ Partial Class Bancos_IE
                             Dim respCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
                             If respCancelacion.Verificado Then
 
-                                If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
+                                If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
                                     CargaComplementosPago()
                                     RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
                                     ErrorCancelarComplemento = False
@@ -6758,7 +6581,7 @@ Partial Class Bancos_IE
 
         If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
 
-            If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
+            If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, Date.Now, "", 1) Then
                 CargaComplementosPago()
                 Alert("El complemento se cancelo correctamente.")
             End If
@@ -6768,7 +6591,7 @@ Partial Class Bancos_IE
             Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
             If resp.Verificado Then
 
-                If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
+                If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
 
                     Alert("El complemento se cancelo correctamente.")
                 End If
@@ -6969,17 +6792,21 @@ Partial Class Bancos_IE
             TipoMovto = "Egs"
         End If
 
-        GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
-
         DdlTipoTransaccionCancelacion.Items.Clear()
         DdlTipoTransaccionCancelacion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo ='{TipoMovto}' AND Estatus = 1")
         DdlTipoTransaccionCancelacion.DataBind()
         DdlTipoTransaccionCancelacion.Items.Insert(0, New ListItem("Seleccione una", "-1"))
 
+        DdlDevolucionCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlDevolucionCuenta.DataBind()
+        DdlDevolucionCuenta.Items.Insert(0, New ListItem("-", "-1"))
+
         If ChkGeneraCancelacion.Checked Then
             DVTipoTransacciónCancelar.Visible = True
+            DVTipoTransacciónCancelar2.Visible = True
         Else
             DVTipoTransacciónCancelar.Visible = False
+            DVTipoTransacciónCancelar2.Visible = False
         End If
 
         UpEliminarCotizacion.Update()