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

--Cancelación de Factura ya pagada, activar que el pago sea un saldo a favor. convertirlo a un ixc

Browse Source 
--FIX limpieza de archivo en comprobaciones
This commit is contained in:
Jonathan Alexis Perez Morales
2024-11-23 14:22:41 -07:00
parent a442990ad4
commit 0b4f65d84b
4 changed files with 32 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/PVCobranza.aspx.vb
View File

@@ -505,7 +505,7 @@ Partial Class Ventas_PVCobranza
If tCveCorte <= 0 AndAlso DbRowVenta("CveCorte").ToString.ToEntero > 0 Then tCveCorte = DbRowVenta("CveCorte").ToString.ToEntero
Dim CvePrePoliza As Integer
Dim CvePrePoliza As Integer = -1
Dim Fecha As Date = DbRowVenta("Fecha").ToString.ToDate 'NowADS()
Dim MsgError As String = ""
@@ -572,10 +572,14 @@ Partial Class Ventas_PVCobranza
If MsgError = "" Then
If SaldoPendiente > 0 Then
CvePrePoliza = ObjConta.AddPrePolizas("PVCobranza", 11, 0, 0, 1, Fecha, $"Pago {VentaActual.SerieFolio}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
If respFactura IsNot Nothing Then
CvePrePoliza = respFactura.Factura.CvePrePoliza
Else
CvePrePoliza = ObjConta.AddPrePolizas("PVCobranza", 11, 0, 0, 1, Fecha, $"Pago {VentaActual.SerieFolio}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
End If
If CvePrePoliza > 0 Then
If MsgError = "" AndAlso SaldoPendiente > 0 AndAlso TxtImporteCredito.Text.ToDecimal > 0 Then
MsgError = RegistraIE(12, DdlCuentaTarjetaCredito.SelectedValue.ToEntero, TxtImporteCredito.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2, tCveCorte, CveSubProyecto:=VentaActual.CveSubProyecto)
SaldoPendiente -= TxtImporteCredito.Text.ToDecimal

10
Ventas/Ventas.aspx.vb
View File

@@ -26230,8 +26230,8 @@ Partial Class Ventas
Exit Sub
End If
If UsuarioActual.CveRol = 1 Then
DivGeneraIxC.Visible = False
If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then
DivGeneraIxC.Visible = True
End If
If SaldoAlmacen <> 0 Then
@@ -26647,9 +26647,13 @@ Partial Class Ventas
AplicaCancelacionConPagos = True
End If
Dim GenerarIxC As Boolean = False
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso AplicaCancelacionConPagos AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing") Then
GenerarIxC = ChkGeneraIxC.Checked
End If
resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos)
resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos, GeneraIxCconPago:=GenerarIxC)
strMensaje.Append(resp.Mensaje)
Dim DtBonificaciones As DataTable = Nothing