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

--FIX. bloquear a contado si tiene vencimientros, funcionalidad 702 con valor "2"

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-05-15 19:27:28 -07:00
parent 2d2b993a8d
commit ee5eac9ebf
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Ventas/Ventas.aspx.vb
View File

@@ -7561,6 +7561,11 @@ Partial Class Ventas
'CARGAR CREDITO DISPONIBLE AL GENERAR UNA FACTURA 'CARGAR CREDITO DISPONIBLE AL GENERAR UNA FACTURA
End If End If
''SI NO PERMITE CREDITO, SUGIERE CONTADO
'If (UsuarioActual.Empresa.Funcionalidad(702).Contiene("1")) AndAlso Not PermiteCredito AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso (CveVenta <= 0 OrElse EsCreaApartirDe)) Then
' RBLPago.SelectedValue = "2"
'End If
If ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta <= 0) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) AndAlso RBLPago.SelectedValue = "1" AndAlso PermiteCredito Then If ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta <= 0) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) AndAlso RBLPago.SelectedValue = "1" AndAlso PermiteCredito Then
'FUNCIONALIDAD 702 - NO VERIFICAR LIMITE DE CRÉDITO Y CANDADOS DE VENTA 'FUNCIONALIDAD 702 - NO VERIFICAR LIMITE DE CRÉDITO Y CANDADOS DE VENTA
If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
@@ -8007,10 +8012,13 @@ Partial Class Ventas
If Opcion = 2 Then If Opcion = 2 Then
Alert(OpcionMsg, TipoMensaje.MsgAdvertencia) Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
BtnEmitirImprimir.Visible = False RBLPago.SelectedValue = "2"
BtnsFacturar.Visible = False RBLPago.Items(0).Enabled = False
BtnGenerarRemision.Visible = False RBLPago_SelectedIndexChanged(Nothing, Nothing)
TieneBloqueoPorCreditoVencimiento = 1 'BtnEmitirImprimir.Visible = False
'BtnsFacturar.Visible = False
'BtnGenerarRemision.Visible = False
'TieneBloqueoPorCreditoVencimiento = 1
End If End If
End If End If
End If End If