-- dev nc compra
This commit is contained in:
@@ -512,7 +512,7 @@
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpGvNotas" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvA" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Notas de Crédito" DataKeyNames="CveCompra,Saldo,SerieFolio,Fecha"
|
||||
<asp:GridView ID="GvA" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Notas de Crédito" DataKeyNames="CveCompra,Saldo,SerieFolio,Fecha,TCCompra,IVA,IEPS,Original,PorcentajeIVA,CveMoneda,CveTipoConcepto"
|
||||
CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None" BorderColor="#D3D3D3" BorderWidth="1">
|
||||
<Columns>
|
||||
<asp:TemplateField ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Center">
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user