From da53652af6ef0568a9b51d3a1af58162ba943b66 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 31 Dec 2024 06:32:36 -0700 Subject: [PATCH] - --- Ventas/ProductosServicios.aspx | 83 ++++++++++++++++--------------- Ventas/ProductosServicios.aspx.vb | 26 ++++------ 2 files changed, 53 insertions(+), 56 deletions(-) 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 @@
- - - + + + + +
@@ -644,7 +647,42 @@
- +
+
+
+
+
+ + Lista de Precios    +
+
+
+
+
+
+
+
+
+ + + + + + Precio + + + + + + + +
+
+
+
+
+
@@ -723,42 +761,7 @@
-
-
-
-
-
- - 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