From 61653fa2bc284734e020f3551acd4c6de10e90a5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 4 Nov 2023 16:42:13 -0700
Subject: [PATCH] -- cambio de dato a decimal

---
 App_Code/ClsInventarios.vb          |  2 +-
 Inventarios/EntradasSalidas.aspx.vb | 10 +++++++---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 734abacc3..1699f61e8 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1380,7 +1380,7 @@ Public Class ClsInventarios
             .Add("@Cantidad", SqlDbType.Money).Value = Cantidad
             .Add("@CveUM", SqlDbType.Int).Value = CveUM
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@PU", SqlDbType.Money).Value = PU
+            .Add("@PU", SqlDbType.Decimal).Value = PU
             .Add("@PUTC", SqlDbType.Money).Value = PUTC
             .Add("@CveSeccionAlmacen", SqlDbType.Int).Value = CveSeccionAlmacen
             .Add("@CveAF", SqlDbType.Int).Value = CveAF
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index f47e823a6..143fc8895 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -2811,7 +2811,7 @@ Partial Class Inventarios_EntradasSalidas
             'codigo provisional, hay entradas con productos, que al asignar serie, debe de tener e ncantidad = 1
             If GvRow.DataKey("Cantidad").ToEntero() > 1 Then txtCantidad.Enabled = True
         End If
-        txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
+        txtCantidad.Text = GvRow.DataKey("Cantidad").ToDecimal().ToString
         DdlProducto2.SelectedValue = GvRow.DataKey("CvePS")
         DdlProducto2.SelectedText = GvRow.DataKey("CodigoPS")
         ElProductoChange()
@@ -2829,8 +2829,12 @@ Partial Class Inventarios_EntradasSalidas
 
         LkAgregarDetalle.Text = "Actualizar"
         Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
-        divPrecio.Visible = Origen = 1
-        txtPrecio.Visible = Origen = 1
+        divPrecio.Visible = (Origen = 1)
+        txtPrecio.Visible = (Origen = 1)
+        If UsuarioActual.CveRol = 1 Then
+            divPrecio.Visible = True
+            txtPrecio.Visible = True
+        End If
         UpAgregar.Update()
         RegistraScript("$('#ModalAgregar').modal()")
         CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))