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/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