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

--FIX cancelacion de remisiones

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-12-26 18:44:52 -07:00
parent 2c94602291
commit 01162a3232
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Ventas/Ventas.aspx.vb
View File

@@ -26820,16 +26820,21 @@ Partial Class Ventas
Dim GenerarDevolucionAnticipada As Boolean = False Dim GenerarDevolucionAnticipada As Boolean = False
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFacturaCancelacion.Pagado > 0 Then If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFacturaCancelacion.Pagado > 0 Then
CancelacionPagos = OpcionesCancelacionPagos.ConPagos_GenerarIxC
End If
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion Then
If ChkDevAlm.Checked Then If ChkDevAlm.Checked Then
GenerarDevolucionAnticipada = True GenerarDevolucionAnticipada = True
End If End If
For Each Gvr As GridViewRow In GvCancelarRemisiones.Rows If ObjFacturaCancelacion.TipoDocto.Contiene("Ing") Then
ListaRemisionesCancelar.Add(Gvr.DataKey("CveVenta").ToEntero()) For Each Gvr As GridViewRow In GvCancelarRemisiones.Rows
Next ListaRemisionesCancelar.Add(Gvr.DataKey("CveVenta").ToEntero())
Next
End If
CancelacionPagos = OpcionesCancelacionPagos.ConPagos_GenerarIxC
End If End If
resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, ForzarDevolucion:=GenerarDevolucionAnticipada, CancelacionPagos:=CancelacionPagos) resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, ForzarDevolucion:=GenerarDevolucionAnticipada, CancelacionPagos:=CancelacionPagos)