--Global de subproyectos de EntradasSalidas
This commit is contained in:
2024-07-26 18:55:06 -07:00
parent 63acae79b3
commit fbd888b518

View File

@@ -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, Estatus:=-1).FiltroPrimero("")
Dim dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Mov.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimero("")
DdlSubProyecto.Items.Insert(0, New ListItem(dr("SubProyecto").ToString, dr("CveSubProyecto").ToString)) ' lo genera Obj.SelectedValue = Valor.ToString
End If