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