From 61b70d252b9854b4df75d01d5ea47f5d74872085 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 19 Nov 2024 19:27:18 -0700 Subject: [PATCH] =?UTF-8?q?--=20nuevo=20p=C3=A9rmiso=20para=20"puede=20ant?= =?UTF-8?q?icipar"=20para=20generar=20anticipos=20sino=20tiene=20permiso?= =?UTF-8?q?=20para=20facturar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 53af55cb1..ac468f62c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -21143,7 +21143,7 @@ Partial Class Ventas 'Puede facturar If Not UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) - DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) + If Not UsuarioActual.TienePermisoProceso(399) Then DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) If Not UsuarioActual.TienePermisoProceso(175) Then DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs")) End If @@ -21151,6 +21151,10 @@ Partial Class Ventas DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Dev")) End If End If + 'Puede anticipos + If UsuarioActual.TienePermisoProceso(399) Then + If DdlTipoComprobante.Items.FindByValue("Ant") Is Nothing Then DdlTipoComprobante.Items.Add(New ListItem("Anticipo", "Ant")) + End If 'Puede remisionar If Not UsuarioActual.TienePermisoProceso(199) Then