Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -1249,6 +1249,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>
|
||||
|
||||
|
||||
|
||||
@@ -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
|
||||
@@ -1836,7 +1844,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
|
||||
@@ -4229,191 +4236,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
|
||||
@@ -4498,7 +4320,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
|
||||
@@ -4594,8 +4416,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
|
||||
|
||||
@@ -4610,7 +4433,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"
|
||||
@@ -4626,7 +4449,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"
|
||||
@@ -4683,23 +4506,23 @@ 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
|
||||
' CargaComplementosPago()
|
||||
' RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
|
||||
' ErrorCancelarComplemento = False
|
||||
' Alert("El complemento se cancelo correctamente.")
|
||||
'End If
|
||||
If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, Date.Now, "", 1) Then
|
||||
CargaComplementosPago()
|
||||
RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
|
||||
ErrorCancelarComplemento = False
|
||||
Alert("El complemento se cancelo correctamente.")
|
||||
End If
|
||||
|
||||
Else
|
||||
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
|
||||
' CargaComplementosPago()
|
||||
' RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
|
||||
' ErrorCancelarComplemento = False
|
||||
' Alert("El complemento se cancelo correctamente.")
|
||||
'End If
|
||||
If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
|
||||
CargaComplementosPago()
|
||||
RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
|
||||
ErrorCancelarComplemento = False
|
||||
Alert("El complemento se cancelo correctamente.")
|
||||
End If
|
||||
|
||||
Else
|
||||
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 ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
|
||||
' CargaComplementosPago()
|
||||
' Alert("El complemento se cancelo correctamente.")
|
||||
'End If
|
||||
If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, Date.Now, "", 1) Then
|
||||
CargaComplementosPago()
|
||||
Alert("El complemento se cancelo correctamente.")
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
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
|
||||
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
|
||||
|
||||
ObjBanco.Dispose()
|
||||
CargaComplementosPago()
|
||||
ObjBanco.Dispose()
|
||||
CargaComplementosPago()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -6971,17 +6794,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()
|
||||
|
||||
@@ -98,7 +98,7 @@ Partial Class Bancos_RepComplementoPago
|
||||
End If
|
||||
End If
|
||||
|
||||
CargaDatos()
|
||||
'CargaDatos()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
@@ -171,7 +171,7 @@ Partial Class Bancos_RepComplementoPago
|
||||
MandaCorreo(Banco.ComplementoSerieFolio, gvr.DataKey("CobranzaCorreo"))
|
||||
End If
|
||||
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()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
Reference in New Issue
Block a user