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:34:59 -07:00
parent 33ca3da04a
commit 9da96fe473
1 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Ventas/PV.aspx.vb
View File

@@ -1375,16 +1375,17 @@ Partial Class PV
Private Sub CargaMarcasFiltro() Private Sub CargaMarcasFiltro()
Using ObjMarcas As New ClsProductosServicios Using ObjMarcas As New ClsProductosServicios
If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then 'If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarcaPS.DataSource = ObjMarcas.DtResultados.Copy() ' DdlMarcaPS.DataSource = ObjMarcas.DtResultados.Copy()
DdlMarcaPSAjuste.DataSource = ObjMarcas.DtResultados.Copy() ' DdlMarcaPSAjuste.DataSource = ObjMarcas.DtResultados.Copy()
End If 'End If
If ObjMarcas.GetMarcasUsados(UsuarioActual.CveEmpresa) Then If ObjMarcas.GetMarcasUsados(UsuarioActual.CveEmpresa) Then
DdlMarcaUsado.DataSource = ObjMarcas.DtResultados.Copy() DdlMarcaUsado.DataSource = ObjMarcas.DtResultados.Copy()
End If End If
End Using End Using
DdlMarcaPS.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPS.DataBind() DdlMarcaPS.DataBind()
DdlMarcaPSAjuste.DataBind() DdlMarcaPSAjuste.DataBind()
DdlMarcaUsado.DataBind() DdlMarcaUsado.DataBind()
@@ -6639,11 +6640,13 @@ Partial Class PV
End If End If
DdlMarca.Items.Clear() DdlMarca.Items.Clear()
DdlMarcaPSDes.Items.Clear() DdlMarcaPSDes.Items.Clear()
Dim ObjMarcas As New ClsProductosServicios 'Dim ObjMarcas As New ClsProductosServicios
ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) 'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataSource = ObjMarcas.DtResultados 'DdlMarca.DataSource = ObjMarcas.DtResultados
DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados 'DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
ObjMarcas.Dispose() 'ObjMarcas.Dispose()
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind() DdlMarca.DataBind()
DdlMarcaPSDes.DataBind() DdlMarcaPSDes.DataBind()
End If End If