AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-06-10 20:18:02 -07:00
parent a0e32838ed 7a208db185
commit 1d3c44dd57
3 changed files with 55 additions and 219 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Bancos/IE.aspx
View File

@@ -1249,6 +1249,15 @@
</div> </div>
</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> </div>

261
Bancos/IE.aspx.vb
View File

@@ -6,6 +6,7 @@ Imports Extensiones
Imports System.Web.Services Imports System.Web.Services
Imports System.IO Imports System.IO
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports System.Xml
Partial Class Bancos_IE Partial Class Bancos_IE
Inherits ClsPaginas Inherits ClsPaginas
@@ -629,6 +630,13 @@ Partial Class Bancos_IE
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then 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 Me.CveCorte = -1
Folio = "" Folio = ""
IDCtaBeneficiario = 0 IDCtaBeneficiario = 0
@@ -1836,7 +1844,6 @@ Partial Class Bancos_IE
dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas
End If End If
If pCveMoneda > 0 Then If pCveMoneda > 0 Then
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", pCveMoneda)) dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", pCveMoneda))
End If End If
@@ -4229,191 +4236,6 @@ Partial Class Bancos_IE
#End Region #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 Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click
Dim IE As New ClsBancos Dim IE As New ClsBancos
@@ -4498,7 +4320,7 @@ Partial Class Bancos_IE
End If End If
Try 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 If ObjAC Is Nothing Then
ErrorCancelar = True ErrorCancelar = True
@@ -4594,8 +4416,9 @@ Partial Class Bancos_IE
Dim TipoMovimiento As Integer = 1 Dim TipoMovimiento As Integer = 1
Dim CveTipoTransaccionCancelacion As Integer = DdlTipoTransaccionCancelacion.SelectedValue.ToEntero 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 GeneraCancelacionEnCero = False
TipoMovimiento = 2 TipoMovimiento = 2
@@ -4610,7 +4433,7 @@ Partial Class Bancos_IE
If Not GeneraCancelacionEnCero Then If Not GeneraCancelacionEnCero Then
'CANCELA IE MES ANTERIOR 'CANCELA IE MES ANTERIOR
CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, TipoMovimiento:=TipoMovimiento, 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 If CvePrePolizaCancelacion <= 0 Then
ErrorCancelar = True ErrorCancelar = True
MensajeError = "Error al cancelar IE MES ANTERIOR" MensajeError = "Error al cancelar IE MES ANTERIOR"
@@ -4626,7 +4449,7 @@ Partial Class Bancos_IE
Else Else
'CANCELA IE MES ACTUAL 'CANCELA IE MES ACTUAL
CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate,
CveTipoTransaccionCancelacion:=CveTipoTransaccionCancelacion) CveTipoTransaccionCancelacion:=CveTipoTransaccionCancelacion, CveCuentaDevolucion:=CveCuentaDevolucion)
If CvePrePolizaCancelacion <= 0 Then If CvePrePolizaCancelacion <= 0 Then
ErrorCancelar = True ErrorCancelar = True
MensajeError = "Error al cancelar IE MES ACTUAL" MensajeError = "Error al cancelar IE MES ACTUAL"
@@ -4683,23 +4506,23 @@ Partial Class Bancos_IE
Dim ObjCancelacion As New Timbrado Dim ObjCancelacion As New Timbrado
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then 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() CargaComplementosPago()
' RegistraScript("$('#ModalCancelarComplemetno').modal('hide');") RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
' ErrorCancelarComplemento = False ErrorCancelarComplemento = False
' Alert("El complemento se cancelo correctamente.") Alert("El complemento se cancelo correctamente.")
'End If End If
Else Else
Dim respCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Dim respCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
If respCancelacion.Verificado Then 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() CargaComplementosPago()
' RegistraScript("$('#ModalCancelarComplemetno').modal('hide');") RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
' ErrorCancelarComplemento = False ErrorCancelarComplemento = False
' Alert("El complemento se cancelo correctamente.") Alert("El complemento se cancelo correctamente.")
'End If End If
Else Else
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia) Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
@@ -6760,28 +6583,28 @@ Partial Class Bancos_IE
If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then 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() CargaComplementosPago()
' Alert("El complemento se cancelo correctamente.") Alert("El complemento se cancelo correctamente.")
'End If End If
Else Else
Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
If resp.Verificado Then 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
Else
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
End If
' Alert("El complemento se cancelo correctamente.")
'End If
Else
Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
End If End If
End If ObjBanco.Dispose()
CargaComplementosPago()
ObjBanco.Dispose()
CargaComplementosPago()
End Sub End Sub
@@ -6971,17 +6794,21 @@ Partial Class Bancos_IE
TipoMovto = "Egs" TipoMovto = "Egs"
End If End If
GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
DdlTipoTransaccionCancelacion.Items.Clear() DdlTipoTransaccionCancelacion.Items.Clear()
DdlTipoTransaccionCancelacion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo ='{TipoMovto}' AND Estatus = 1") DdlTipoTransaccionCancelacion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo ='{TipoMovto}' AND Estatus = 1")
DdlTipoTransaccionCancelacion.DataBind() DdlTipoTransaccionCancelacion.DataBind()
DdlTipoTransaccionCancelacion.Items.Insert(0, New ListItem("Seleccione una", "-1")) 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 If ChkGeneraCancelacion.Checked Then
DVTipoTransacciónCancelar.Visible = True DVTipoTransacciónCancelar.Visible = True
DVTipoTransacciónCancelar2.Visible = True
Else Else
DVTipoTransacciónCancelar.Visible = False DVTipoTransacciónCancelar.Visible = False
DVTipoTransacciónCancelar2.Visible = False
End If End If
UpEliminarCotizacion.Update() UpEliminarCotizacion.Update()

4
Bancos/RepComplementoPago.aspx.vb
View File

@@ -98,7 +98,7 @@ Partial Class Bancos_RepComplementoPago
End If End If
End If End If
CargaDatos() 'CargaDatos()
End If End If
End Sub End Sub
@@ -171,7 +171,7 @@ Partial Class Bancos_RepComplementoPago
MandaCorreo(Banco.ComplementoSerieFolio, gvr.DataKey("CobranzaCorreo")) MandaCorreo(Banco.ComplementoSerieFolio, gvr.DataKey("CobranzaCorreo"))
End If End If
Else Else
Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", gvr.DataKey("Folio"), Banco.Mensaje) Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}<br/>", gvr.DataKey("Folio"), Banco.Mensaje)
Banco.RollBack() Banco.RollBack()
End If End If
Catch ex As Exception Catch ex As Exception