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

-- mejoras en actualizar precios, listas de precio

Browse Source
This commit is contained in:
rrene
2024-11-26 19:58:43 -07:00
parent bcee4817e4
commit 964358dd26
3 changed files with 87 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -114,6 +114,11 @@ Partial Class Ventas_ActualizarPrecios
PermisoEdicionLista = False
DivActualizarPrecio.Visible = False
HlAgregarExcel.Visible = False
End If
If UsuarioActual.Empresa.Funcionalidad(382) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(109) = "1" Then 'Empresa gdiaz
GVPrecios.Columns(2).Visible = True
DVFiltroCodigo.Visible = True
End If
CargaCombos()
@@ -202,12 +207,9 @@ Partial Class Ventas_ActualizarPrecios
End If
End Sub
Protected Sub CargarMarcas()
If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
Dim ObjMarcas As New ClsProductosServicios
If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
DdlMarca.DataSource = ObjMarcas.DtResultados.Copy
End If
ObjMarcas.Dispose()
If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind()
LblMarca.Visible = True
@@ -248,16 +250,25 @@ Partial Class Ventas_ActualizarPrecios
If DdlModalidad.SelectedValue = "1" Then
Dim objPS As New ClsProductosServicios
If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, DdlPrecioLista.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, CvePS,
CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas, CveModelo:=DdlModelo.SelectedValue.ToEntero) Then
CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas, CveModelo:=DdlModelo.SelectedValue.ToEntero,
CodigoInicial:=TxtCodigoInicio.Text.Trim, CodigoFinal:=TxtCodigoFinal.Text.Trim) Then
DtDatosPrecios = objPS.DtResultados
GVPrecios.DataSource = DtDatosPrecios
End If
objPS.Dispose()
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'Empresa Acumuladores
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Or UsuarioActual.Empresa.Funcionalidad(382) = "1" Then 'Empresa Acumuladores
GVPrecios.Columns(2).Visible = True
End If
If UsuarioActual.CveEmpresa = 119 Then 'JAM
GVPrecios.Columns(5).Visible = True
GVPrecios.Columns(10).Visible = True
GVPrecios.Columns(12).Visible = True
GVPrecios.Columns(13).Visible = True
GVPrecios.Columns(14).Visible = True
End If
If UsuarioActual.CveEmpresa = 153 Then 'Empresa servec
GVPrecios.Columns(11).Visible = True
End If
@@ -281,7 +292,8 @@ Partial Class Ventas_ActualizarPrecios
Dim objPS As New ClsProductosServicios
If objPS.GetPSMultiplesPreciosLista(UsuarioActual.CveEmpresa, ListasPrecios:=ListasPrecios, CveClasificacion:=DDlClasificacion.SelectedValue.ToEntero, CvePS:=CvePS,
CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas, CveModelo:=DdlModelo.SelectedValue.ToEntero) Then
CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas, CveModelo:=DdlModelo.SelectedValue.ToEntero,
CodigoInicial:=TxtCodigoInicio.Text.Trim, CodigoFinal:=TxtCodigoFinal.Text.Trim) Then
DtPreciosMultiple = objPS.DtResultados.Copy()
GvMultiple.DataSource = DtPreciosMultiple
End If
@@ -291,17 +303,15 @@ Partial Class Ventas_ActualizarPrecios
dvMultiple.Visible = True
DivActualizarPrecio.Visible = False
For colIndex As Integer = 2 To GvMultiple.Columns.Count - 1
If colIndex <= DtPreciosMultiple.Columns.Count - 1 Then
For colIndex As Integer = 2 To GvMultiple.Columns.Count - 3
If colIndex <= DtPreciosMultiple.Columns.Count - 3 Then
GvMultiple.Columns(colIndex).Visible = True
Else
GvMultiple.Columns(colIndex).Visible = False
End If
Next
GvMultiple.DataBind()
End If
End If
UpDescargar.Update()
UpDatos.Update()
@@ -341,7 +351,6 @@ Partial Class Ventas_ActualizarPrecios
sbProductos.AppendFormat("{0},", row.DataKey("CvePS").ToEntero)
End If
If Not TieneError Then
TieneError = ActualizarPreciosFranquicia(ObjPS, row.DataKey("Codigo"), row.FCTextBox("TxtPrecio").Text.ToDecimal, row.FCTextBox("TxtPrecioMinimo").Text.ToDecimal, DdlPrecioLista.SelectedItem.Text)
Else