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

--valida en facturar una cotizacion, que tenga el permiso de facturar

Browse Source
This commit is contained in:
rrene
2020-12-22 18:33:51 -07:00
parent bd9c401f58
commit 02656f7935
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/Ventas.aspx.vb
View File

@@ -4817,7 +4817,8 @@ Partial Class Ventas
Else Else
BtnGenerarRemision.Visible = False BtnGenerarRemision.Visible = False
End If End If
BtnsFacturar.Visible = True If UsuarioActual.TienePermisoProceso(60) Then BtnsFacturar.Visible = True 'puede facturar
LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274) LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
End If End If
End If End If
@@ -5893,7 +5894,7 @@ Partial Class Ventas
LnkCotizaciones.Visible = False LnkCotizaciones.Visible = False
End If End If
UPCondicionesPago.Update() UPCondicionesPago.Update()
ElseIf UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta < 1 Then ElseIf UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119, 140, 158) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta < 1 Then
RBLPago.SelectedValue = "1" RBLPago.SelectedValue = "1"
RBLPago_SelectedIndexChanged(Nothing, Nothing) RBLPago_SelectedIndexChanged(Nothing, Nothing)
UPCondicionesPago.Update() UPCondicionesPago.Update()
@@ -5956,7 +5957,7 @@ Partial Class Ventas
End If End If
Else Else
If UsuarioActual.CveEmpresa = 119 AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ant", "PA") Then If UsuarioActual.CveEmpresa.Contiene(119) AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ant", "PA") Then
Dim Vta As New ClsVentas Dim Vta As New ClsVentas
Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa) Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta) Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
@@ -5988,6 +5989,9 @@ Partial Class Ventas
LnkPedido2SinFacturar.Visible = False LnkPedido2SinFacturar.Visible = False
LnkCotizaciones.Visible = False LnkCotizaciones.Visible = False
LnkOCs.Visible = False LnkOCs.Visible = False
Else
If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
End If End If
End If End If
UPPCreditoDisponible.Update() UPPCreditoDisponible.Update()