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

-- cambio de GlobalDTSubProyectos

Browse Source 
- cambio en GlobalDTUsuarios
This commit is contained in:
rrene
2024-08-01 05:46:28 -07:00
parent 14f053bc86
commit 1c14bceea9
240 changed files with 692 additions and 689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -786,7 +786,7 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Private Sub CargaSubProyectos()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos( UsuarioActual.CveEmpresa, Estatus:=1))
'DdlSubProyecto.DataBind()
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
@@ -1019,7 +1019,7 @@ Partial Class Inventarios_EntradasSalidas
'verifico si existe
If (DdlSubProyecto.Items.FindByValue(Mov.CveSubProyecto.ToString()) Is Nothing) Then
Dim dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Mov.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimero("")
Dim dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=Mov.CveSubProyecto, Estatus:=-1).FiltroPrimero("")
DdlSubProyecto.Items.Insert(0, New ListItem(dr("SubProyecto").ToString, dr("CveSubProyecto").ToString)) ' lo genera Obj.SelectedValue = Valor.ToString
End If