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

-- globalDTmarcas

Browse Source
This commit is contained in:
rrene
2022-11-09 13:31:43 -07:00
parent b057a9b389
commit 8ba46dd233
1 changed files with 19 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Acumuladores/CatGarantiasMeses.aspx.vb
View File

@@ -72,15 +72,20 @@ Partial Class Acumuladores_CatFoliosGarantia
Private Sub CargaCombos()
Dim ObjPS As New ClsProductosServicios
'Dim ObjPS As New ClsProductosServicios
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarca.DataSource = ObjPS.DtResultados
DdlMarca.DataBind()
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
DdlMarca.SelectedValue = "-1"
End If
ObjPS.Dispose()
'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
' DdlMarca.DataSource = ObjPS.DtResultados
' DdlMarca.DataBind()
' DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
' DdlMarca.SelectedValue = "-1"
'End If
'ObjPS.Dispose()
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind()
DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
DdlMarca.SelectedValue = "-1"
DdlTipoUso.DataSource = GlobalDTAcumTiposUso()
DdlTipoUso.DataBind()
@@ -109,13 +114,14 @@ Partial Class Acumuladores_CatFoliosGarantia
Private Sub CargaCombosModal()
Dim ObjPS As New ClsProductosServicios
'Dim ObjPS As New ClsProductosServicios
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarcaM.DataSource = ObjPS.DtResultados
'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
' DdlMarcaM.DataSource = ObjPS.DtResultados
End If
ObjPS.Dispose()
'End If
'ObjPS.Dispose()
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaM.DataBind()
DdlTipoUsoM.DataSource = GlobalDTAcumTiposUso()