--FIX. quitar codigo de cancelacion en opcion de saldado de venta
This commit is contained in:
@@ -26798,26 +26798,7 @@ Partial Class Ventas
|
|||||||
|
|
||||||
#Region " SALDAR VENTA "
|
#Region " SALDAR VENTA "
|
||||||
Protected Sub BtnSaldarVenta_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnSaldarVenta_Click(sender As Object, e As EventArgs)
|
||||||
'SaldarVenta()
|
SaldarVenta()
|
||||||
|
|
||||||
Dim ObjCancelacion As New Timbrado
|
|
||||||
|
|
||||||
Dim FolioFiscal As String = LblFolioFiscal.Text
|
|
||||||
Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
|
|
||||||
Dim RFCReceptor As String = LblRFC.Text
|
|
||||||
Dim CvePACCancelacion As Integer = 4
|
|
||||||
|
|
||||||
|
|
||||||
Dim RespCancelacion As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TxtTotal.Text.ToDecimal, RFCReceptor, RFCEmisor, CvePACCancelacion, CveSATMotivoCancelacion:=3)
|
|
||||||
|
|
||||||
If RespCancelacion.Verificado Then
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Else
|
|
||||||
Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
|
|
||||||
End If
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub SaldarVenta()
|
Private Sub SaldarVenta()
|
||||||
'Dim ObjVenta As New ClsVentas
|
'Dim ObjVenta As New ClsVentas
|
||||||
@@ -26831,9 +26812,6 @@ Partial Class Ventas
|
|||||||
'RegistraScript("$('#ModalSaldarVenta').modal('hide')", "ModalSaldarVentaHidde")
|
'RegistraScript("$('#ModalSaldarVenta').modal('hide')", "ModalSaldarVentaHidde")
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim ObjConta As New ClsContabilidad
|
|
||||||
ObjConta.IniciaTransacSQL()
|
|
||||||
Dim CvePrePoliza As Integer = 0
|
Dim CvePrePoliza As Integer = 0
|
||||||
Dim MsgError As String = ""
|
Dim MsgError As String = ""
|
||||||
|
|
||||||
@@ -26945,69 +26923,74 @@ Partial Class Ventas
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
Dim UsaComplementaria As Boolean = True
|
Dim UsaComplementaria As Boolean = True
|
||||||
|
Dim ObjConta As New ClsContabilidad
|
||||||
|
ObjConta.IniciaTransacSQL()
|
||||||
|
Try
|
||||||
|
If MsgError = "" AndAlso Saldo > 0 Then
|
||||||
|
CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Saldarr", 47, SaldoVenta, SaldoVenta, tCveMoneda, FechaPago, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
|
|
||||||
If MsgError = "" AndAlso Saldo > 0 Then
|
If UsaComplementaria AndAlso tCveMoneda = 2 Then
|
||||||
CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Saldarr", 47, SaldoVenta, SaldoVenta, tCveMoneda, FechaPago, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
'normal
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, If(tCveMoneda = 1, Saldo, Saldo), CveConceptoCliente, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
||||||
If UsaComplementaria AndAlso tCveMoneda = 2 Then
|
|
||||||
'normal
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, If(tCveMoneda = 1, Saldo, Saldo), CveConceptoCliente, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
|
||||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
|
||||||
End If
|
|
||||||
'complementaria
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, If(tCveMoneda = 1, Saldo, (Saldo * TCVenta) - Saldo), 207, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteME:=Saldo, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
|
||||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
|
||||||
End If
|
|
||||||
|
|
||||||
Else
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, If(tCveMoneda = 1, Saldo, Saldo * TCVenta), CveConceptoCliente, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
|
||||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
'fluctuación.
|
|
||||||
If tCveMoneda = 2 Then
|
|
||||||
Dim ImporteFluctuacion As Decimal = 0
|
|
||||||
ImporteFluctuacion = Saldo * (TCPago - TCVenta)
|
|
||||||
If TCPago > TCVenta Then
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Math.Abs(ImporteFluctuacion), 64, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
|
|
||||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
End If
|
End If
|
||||||
|
'complementaria
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, If(tCveMoneda = 1, Saldo, (Saldo * TCVenta) - Saldo), 207, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteME:=Saldo, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
||||||
|
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Math.Abs(ImporteFluctuacion), 65, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, If(tCveMoneda = 1, Saldo, Saldo * TCVenta), CveConceptoCliente, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
||||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
|
|
||||||
'cuando hay pago en dólares, se ajusta el concepto de subtotal,
|
|
||||||
SubTotal = (Saldo * TCVenta) + ImporteFluctuacion - (IVA * TCVenta) - (IEPS * TCVenta)
|
|
||||||
|
|
||||||
End If
|
|
||||||
If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, If(tCveMoneda = 1, IVA, IVA * TCVenta), 13, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
|
||||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
|
||||||
End If
|
|
||||||
|
|
||||||
If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, If(tCveMoneda = 1, IEPS, IEPS * TCVenta), 38, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
|
||||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
|
||||||
End If
|
|
||||||
|
|
||||||
'al gasto,Subtotal
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, SubtotalMovto, SubTotal, SubTotal, CveConceptoDeduccion, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, CveCuenta:=-1, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
|
|
||||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
|
||||||
End If
|
|
||||||
|
|
||||||
If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 5) Then
|
|
||||||
If ObjConta.ValorPolizaDescuadre > 0 Then
|
|
||||||
MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia
|
|
||||||
GuardaLogAD($"Ventas/ClientesAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
Else
|
|
||||||
MsgError = "Saldo Cero"
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
'fluctuación.
|
||||||
|
If tCveMoneda = 2 Then
|
||||||
|
Dim ImporteFluctuacion As Decimal = 0
|
||||||
|
ImporteFluctuacion = Saldo * (TCPago - TCVenta)
|
||||||
|
If TCPago > TCVenta Then
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Math.Abs(ImporteFluctuacion), 64, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
|
||||||
|
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Math.Abs(ImporteFluctuacion), 65, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
|
||||||
|
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
'cuando hay pago en dólares, se ajusta el concepto de subtotal,
|
||||||
|
SubTotal = (Saldo * TCVenta) + ImporteFluctuacion - (IVA * TCVenta) - (IEPS * TCVenta)
|
||||||
|
|
||||||
|
End If
|
||||||
|
If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, If(tCveMoneda = 1, IVA, IVA * TCVenta), 13, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
||||||
|
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
|
End If
|
||||||
|
|
||||||
|
If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, If(tCveMoneda = 1, IEPS, IEPS * TCVenta), 38, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
|
||||||
|
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
|
End If
|
||||||
|
|
||||||
|
'al gasto,Subtotal
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, SubtotalMovto, SubTotal, SubTotal, CveConceptoDeduccion, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, CveCuenta:=-1, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
|
||||||
|
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||||
|
End If
|
||||||
|
|
||||||
|
If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 5) Then
|
||||||
|
If ObjConta.ValorPolizaDescuadre > 0 Then
|
||||||
|
MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia
|
||||||
|
GuardaLogAD($"Ventas/ClientesAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
MsgError = "Saldo Cero"
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgError = "Ocurrió un error al saldar"
|
||||||
|
GuardaLog(ex.ToString())
|
||||||
|
End Try
|
||||||
|
|
||||||
If MsgError = "" Then
|
If MsgError = "" Then
|
||||||
'ObjConta.RollBack()
|
'ObjConta.RollBack()
|
||||||
|
|||||||
Reference in New Issue
Block a user