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

cambio en globaldt

Browse Source
This commit is contained in:
rrene
2024-01-08 19:01:59 -07:00
parent f793650d68
commit 75465a5892
1 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Inventarios/PopUpExistenciasAlmacen.aspx.vb
View File

@@ -2,6 +2,7 @@
Option Strict On Option Strict On
Imports Extensiones Imports Extensiones
Imports System.Data
Partial Class Inventarios_Default Partial Class Inventarios_Default
Inherits ClsPaginas Inherits ClsPaginas
@@ -247,7 +248,7 @@ Partial Class Inventarios_Default
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetExistencias119(DDlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Compuesto) Then If ObjInventarios.GetExistencias119(DDlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Compuesto) Then
GV.DataSource = ObjInventarios.DtResultados GV.DataSource = ObjInventarios.DtResultados
TblBusqueda.Visible = False TblBusqueda.Visible = True
CargaPS(DDlPS.SelectedValue.ToEntero) CargaPS(DDlPS.SelectedValue.ToEntero)
GV.Columns(6).Visible = True GV.Columns(6).Visible = True
End If End If
@@ -280,16 +281,18 @@ Partial Class Inventarios_Default
End Sub End Sub
#End Region #End Region
Private Sub CargarMedRin() Private Sub CargarMedRin()
Dim ObjGral As New ClsGenerales 'Dim ObjGral As New ClsGenerales
If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then 'If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
DdlMedidas.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="Medida") ' DdlMedidas.DataSource = GlobalDTPS.FiltraParametros("", Orderby:="Medida")
If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then ' If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
DdlRin.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="RinTamaño") ' DdlRin.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="RinTamaño")
End If ' End If
End If 'End If
ObjGral.Dispose() 'ObjGral.Dispose()
DdlMedidas.DataBind() DdlMedidas.DataSource = GlobalDTPSMedidas(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Medida")
DdlMedidas.DataBind()
DdlRin.DataSource = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="RinTamaño")
DdlRin.DataBind() DdlRin.DataBind()
DdlMedidas.Items.Insert(0, New ListItem("-", "-1")) DdlMedidas.Items.Insert(0, New ListItem("-", "-1"))
DdlRin.Items.Insert(0, New ListItem("-", "-1")) DdlRin.Items.Insert(0, New ListItem("-", "-1"))