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

-- nuevo pérmiso para "puede anticipar" para generar anticipos sino tiene permiso para facturar

Browse Source
This commit is contained in:
rrene
2024-11-19 19:27:18 -07:00
parent a45dc1d031
commit 61b70d252b
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Ventas/Ventas.aspx.vb
View File

@@ -21143,7 +21143,7 @@ Partial Class Ventas
'Puede facturar 'Puede facturar
If Not UsuarioActual.TienePermisoProceso(60) Then If Not UsuarioActual.TienePermisoProceso(60) Then
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) 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 If Not UsuarioActual.TienePermisoProceso(175) Then
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs"))
End If End If
@@ -21151,6 +21151,10 @@ Partial Class Ventas
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Dev")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Dev"))
End If End If
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 'Puede remisionar
If Not UsuarioActual.TienePermisoProceso(199) Then If Not UsuarioActual.TienePermisoProceso(199) Then