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

popup- cambio a global

Browse Source 
-- sigweb, que ponga existencia
This commit is contained in:
rrene
2020-06-30 20:48:22 -07:00
parent 898d28f56d
commit d52da1dee7
2 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ashx/SIGWeb.ashx
View File

@@ -585,7 +585,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
'verifica existencias 'verifica existencias
If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141) Then If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152) Then
UsaGlobal = False UsaGlobal = False
Dim objInv As New ClsInventarios Dim objInv As New ClsInventarios

15
OC/PopUpBuscarReq.aspx.vb
View File

@@ -126,12 +126,15 @@ Partial Class OC_PopUpBuscarReq
ViewState("CveProveedor") = Request("P") ViewState("CveProveedor") = Request("P")
UPFiltros.Visible = False UPFiltros.Visible = False
Dim ObjPro As New ClsCompProveedores Dim NombreProv As String = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, ViewState("CveProveedor").ToString.ToEntero).FiltroPrimeroValor("RazonSocial")
ObjPro.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ViewState("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) LbTitulo.Text = String.Format("Órdenes de Compra - {0}", NombreProv)
If ObjPro.DtResultados.Rows.Count > 0 Then
LbTitulo.Text = String.Format("Órdenes de Compra - {0}", ObjPro.DtResultados.Rows(0)("RazonSocial").ToString) 'Dim ObjPro As New ClsCompProveedores
End If 'ObjPro.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ViewState("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)
ObjPro.Dispose() 'If ObjPro.DtResultados.Rows.Count > 0 Then
' LbTitulo.Text = String.Format("Órdenes de Compra - {0}", ObjPro.DtResultados.Rows(0)("RazonSocial").ToString)
'End If
'ObjPro.Dispose()
'Cargar Datos 'Cargar Datos
Dim ObjOC As New ClsOC Dim ObjOC As New ClsOC