Solicitudes Ingreso ajustes, OC num remision, rep ventas detalle

This commit is contained in:
rakcsle
2022-08-02 09:33:47 -07:00
parent 35be01025e
commit d6a349e5e2
7 changed files with 693 additions and 457 deletions

View File

@@ -829,8 +829,11 @@ Partial Class OC
DdlCultivosCuadro.DataBind()
DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
DvNumRemision1.Visible = True
DvNumRemision2.Visible = True
If UsuarioActual.CveRol = 1 Then
DvNumRemision1.Visible = True
DvNumRemision2.Visible = True
End If
End If
@@ -8731,7 +8734,7 @@ Partial Class OC
If NumRemision.Trim.Length > 0 Then
If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 AndAlso UsuarioActual.CveRol = 1 Then
Dim ObjOC As ClsOC