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

--FIX quitar obligar pago en ayven

Browse Source
This commit is contained in:
JPerez
2025-07-02 12:53:21 -07:00
parent e075b69f05
commit 6d105e34af
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/Ventas.aspx.vb
View File

@@ -25368,7 +25368,7 @@ Partial Class Ventas
End If
TxtImporteContado.Text = TxtTotal.Text
'SI ES MODALIDAD COBRANZA, NO MOSTRAR
If (UsuarioActual.Empresa.Funcionalidad(109) = "1") Then
If (UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197) Then
DivContado.Visible = UsuarioActual.TienePermisoProceso(375)
End If
End If
@@ -25885,7 +25885,7 @@ Partial Class Ventas
Dim TienePagos As Boolean = ((Not (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0)) AndAlso (DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0)) OrElse AmortizacionNC > 0
'SI LA VENTA ES NUEVA VALIDAR TAMBIEN LOS PAGOS DE CONTADO
If (UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.CveEmpresa = 197) AndAlso ((CveVenta <= 0 OrElse EsCreaApartirDe OrElse TipoDoctoViejo = "Cot") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant")) Then
If (UsuarioActual.Empresa.Funcionalidad(558) = "1") AndAlso ((CveVenta <= 0 OrElse EsCreaApartirDe OrElse TipoDoctoViejo = "Cot") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant")) Then
If Not PermiteCredito AndAlso Not TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then
If MostrarAlertas Then