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

-- cveempresa en subproyectos

Browse Source
This commit is contained in:
rrene
2020-08-21 11:44:14 -07:00
parent 88a53dc03e
commit b258cb9fa9
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/Proveedores.aspx.vb
View File

@@ -6112,7 +6112,7 @@ Partial Class Compras_Proveedores
Dim ObjFolios As New ClsGralFolios() Dim ObjFolios As New ClsGralFolios()
Dim CveSubProyectoMatriz As Integer Dim CveSubProyectoMatriz As Integer
If ObjSub.GetSubProyectos() Then If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then
CveSubProyectoMatriz = ObjSub.DtResultados.FiltroPrimeroValor("CveSubProyecto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND TipoSucursal = 1").ToEntero CveSubProyectoMatriz = ObjSub.DtResultados.FiltroPrimeroValor("CveSubProyecto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND TipoSucursal = 1").ToEntero
End If End If