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

26
Acumuladores/CatGarantiasMeses.aspx.vb
View File

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