diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 86d38edb3..02850d609 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -110,9 +110,12 @@
-
+
+
+
+
+
+
+ Lista de Precios
+
+
+
+
+
+
+
+
+
+
+
+ Precio
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
- Lista de Precios
-
-
-
-
-
-
-
-
-
-
-
- Precio
-
-
-
-
-
-
-
-
-
-
-
-
-
+
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 2d60ba1bb..2823b43e7 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -142,14 +142,6 @@ Partial Class ProductosyServicios
End Set
End Property
- Private Property DtPreciosMultiple As DataTable
- Get
- Return If(IsNothing(ViewState("DtPreciosMultiple")), Nothing, CType(ViewState("DtPreciosMultiple"), DataTable))
- End Get
- Set(value As DataTable)
- ViewState("DtPreciosMultiple") = value
- End Set
- End Property
#End Region
Private ReadOnly Property PermiteClasificacion2 As Boolean
@@ -2984,14 +2976,12 @@ Partial Class ProductosyServicios
Private Sub CargaListaPrecios()
If UsuarioActual.TienePermisoProceso(389) Then 'si puede actualizar precios se muestra
Dim objPS As New ClsProductosServicios
- If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, -1, CveClasificacion:=-1, CvePS:=CvePS,
- CveProveedor:=-1, Estado:=-1, Marcas:="-1", CveModelo:=-1) Then
- DtPreciosMultiple = objPS.DtResultados.Copy()
- GvMultiple.DataSource = DtPreciosMultiple
+ If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, -1, CvePS:=CvePS) Then
+ GvPLMultiple.DataSource = objPS.DtResultados
End If
objPS.Dispose()
DivListaPrecios.Visible = True
- GvMultiple.DataBind()
+ GvPLMultiple.DataBind()
End If
End Sub
@@ -2999,9 +2989,9 @@ Partial Class ProductosyServicios
Protected Sub GvMultiple_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
- Dim Valor As Decimal = DtPreciosMultiple.Rows(e.Row.RowIndex)(2).ToString().ToDecimal()
+ ' Dim Valor As Decimal = DtPreciosMultiple.Rows(e.Row.RowIndex)(2).ToString().ToDecimal()
- e.Row.FCTextBox("TxtPrecio").Text = Valor.FormatoNumero(2)
+ ' e.Row.FCTextBox("TxtPrecio").Text = Valor.FormatoNumero(2)
End If
End Sub
@@ -3010,7 +3000,7 @@ Partial Class ProductosyServicios
Dim TieneError As Boolean = False
Try
- For Each GvRow As GridViewRow In GvMultiple.Rows
+ For Each GvRow As GridViewRow In GvPLMultiple.Rows
Dim CvePrecioLista As Integer = GvRow.DataKey("CvePrecioLista").ToEntero()
Dim Precio As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal()
@@ -3865,4 +3855,8 @@ Partial Class ProductosyServicios
End Sub
+
+ Protected Sub BtnConsultaCodigo_Click(sender As Object, e As EventArgs)
+ Alert(TxtCodigo.Text)
+ End Sub
End Class