-activación de ver el compuesto en E119

This commit is contained in:
2023-02-20 20:15:39 -07:00
parent 9fb5e91d35
commit 206b794fd2

View File

@@ -77,7 +77,7 @@ Partial Class Inventarios_Default
DivEquivalentes.Visible = True DivEquivalentes.Visible = True
DivPS.Visible = False DivPS.Visible = False
End If End If
If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.CveUsuario.Contiene(1703, 100) Then If UsuarioActual.CveEmpresa = 119 Then
TrCompuesto.Visible = True TrCompuesto.Visible = True
End If End If
Dim Txt As String = IfNull(Request("Txt"), "").ToString Dim Txt As String = IfNull(Request("Txt"), "").ToString
@@ -98,7 +98,7 @@ Partial Class Inventarios_Default
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
CargarDatosMedRin() CargarDatosMedRin()
CargaEquivalencia() CargaEquivalencia()
ElseIf UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.CveUsuario.Contiene(1703, 100) Then ElseIf UsuarioActual.CveEmpresa = 119 Then
CargaDatosCompuesto() CargaDatosCompuesto()
Else Else
CargaDatos(DDlPS.SelectedValue.ToEntero, 1) CargaDatos(DDlPS.SelectedValue.ToEntero, 1)