Ventas.aspx:

--En acciones para el rol de mostrador, Quitar de acciones
--Billetito no debe de salir
Promociones.aspx:
--Si tiene clasificacion, excluya el ps, Si tiene ps. que excluya la clasificacion.

Ventas/Ventas.aspx.vb

@@ -7047,6 +7047,12 @@ Partial Class Ventas
                     End If
                     If Not EsModuloCotizacion Then
                         LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
+                        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(60) Then
+                            LnkCotizaciones.Visible = False
+                            LnkPedido2SinFacturar.Visible = False
+                            LnkRemisiones.Visible = False
+                            LnkOCs.Visible = False
+                        End If
                     End If
                 End If
 
@@ -8237,6 +8243,13 @@ Partial Class Ventas
             End If
             If Not EsModuloCotizacion Then
                 LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
+
+                If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(60) Then
+                    LnkCotizaciones.Visible = False
+                    LnkPedido2SinFacturar.Visible = False
+                    LnkRemisiones.Visible = False
+                    LnkOCs.Visible = False
+                End If
             End If
         End If
 
@@ -16759,6 +16772,7 @@ Partial Class Ventas
             GVAnticipos.DataBind()
         End If
         UpAnticipos.Update()
+        UpPS.Update()
     End Sub
 
     Protected Sub GVAnticipos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowCreated
@@ -18265,6 +18279,15 @@ Partial Class Ventas
             ImgAntiPend.Visible = True
         End If
 
+        If ImgAntiPend.Visible Then
+            If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing Then
+                Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo IN('NC','RNC','IxC') ", "")}")
+                If DtMovtos.Rows.Count = 0 Then
+                    ImgAntiPend.Visible = False
+                End If
+            End If
+        End If
+
 
         TxtFechaPago.Text = NowADS().AddDays(PlazoCobranza).ToShortDateString
 
@@ -18300,6 +18323,15 @@ Partial Class Ventas
             ImgAntiPend.Visible = True
         End If
 
+        If ImgAntiPend.Visible Then
+            If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing Then
+                Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo IN('NC','RNC','IxC') ", "")}")
+                If DtMovtos.Rows.Count = 0 Then
+                    ImgAntiPend.Visible = False
+                End If
+            End If
+        End If
+
         MostrarOpcionesPaqueteria()
 
         TrAtencionA.Visible = True