cambio de double a decimal parametro de movimientodetalle

Inventarios/RecepcionUsados.aspx.vb

@@ -3,6 +3,7 @@ Option Strict On
 
 Imports System.Data
 Imports System.IO
+Imports DocumentFormat.OpenXml.VariantTypes
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
@@ -458,13 +459,13 @@ Partial Class Inventarios_RecepcionUsados
         Dim Fecha As DateTime = IfNull(Request("Fecha"), NowADS().ToString("dd/MM/yyyy")).ToString().ToDateTime()
 
         If Not String.IsNullOrEmpty(RFC) Then
-            Dim DtClientes = GlobalDTCliente(UsuarioActual.CveEmpresa)
+            Dim DtClientes As DataTable = GlobalDTCliente(UsuarioActual.CveEmpresa)
             If DtClientes Is Nothing Then
                 Alert("No se encontraron clientes para filtrar", TipoMensaje.MsgError)
                 Exit Sub
             End If
 
-            Dim RowCliente = DtClientes.FiltroPrimero(String.Format("RFC='{0}'", RFC))
+            Dim RowCliente As DataRow = DtClientes.FiltroPrimero(String.Format("RFC='{0}'", RFC))
             If RowCliente Is Nothing Then
                 Alert("No se encontro el cliente", TipoMensaje.MsgAdvertencia)
                 Exit Sub
@@ -481,7 +482,7 @@ Partial Class Inventarios_RecepcionUsados
             End If
 
             Dim CveCliente As Integer = RowCliente("CveCliente").ToString().ToEntero()
-            Dim Cliente = RowCliente("NombreComercial").ToString()
+            Dim Cliente As String = RowCliente("NombreComercial").ToString()
 
             DdlClientes.SelectedValue = CveCliente.ToString()
             DdlClientes.SelectedText = Cliente
@@ -1234,13 +1235,13 @@ Partial Class Inventarios_RecepcionUsados
             Dim ImporteConcepto As Decimal = 0
 
             Try
-                Dim CveSubProyecto = -1
-                Dim ActivoFijo = -1
+                Dim CveSubProyecto As Integer = -1
+                Dim ActivoFijo As Integer = -1
 
                 If CveMovimiento > 0 Then
                 Else
 
-                    Dim Fecha = String.Format("{0}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd")).ToDate
+                    Dim Fecha As Date = String.Format("{0}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd")).ToDate
                     Dim CveCliente As Integer = CInt(IIf((DdlClientes.SelectedValue.ToEntero <= 0), -1, DdlClientes.SelectedValue.ToEntero))
                     Dim CveClienteSucursal As Integer = CInt(IIf((DdlClientesSucursales.SelectedValue.ToEntero <= 0), -1, DdlClientesSucursales.SelectedValue.ToEntero))
 
@@ -1305,7 +1306,7 @@ Partial Class Inventarios_RecepcionUsados
 
                             For Each Dr As DataRow In DtMovimientos.Rows
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     Mensaje = "Error al guardar los movimientos"
                                     ErrorMovInv = True
                                     Exit For
@@ -1502,7 +1503,7 @@ Partial Class Inventarios_RecepcionUsados
 
         TdSeriePS.Visible = False
 
-        Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoBarras.Text}'")
+        Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoBarras.Text}'")
         If DrPS Is Nothing Then
             Alert($"No se ha encontrado un producto del Codigo ""<b>{TxtCodigoBarras.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -1519,7 +1520,7 @@ Partial Class Inventarios_RecepcionUsados
             Exit Sub
         End If
 
-        GuardaCodigoSerie(TxtCantidadProducto.Text.ToDouble, DrPS("CvePS").ToString.ToEntero, DrPS("CveUnidadMedida").ToString.ToEntero, DrPS("CostoPromedio").ToString.ToDecimal)
+        GuardaCodigoSerie(TxtCantidadProducto.Text.ToDecimal, DrPS("CvePS").ToString.ToEntero, DrPS("CveUnidadMedida").ToString.ToEntero, DrPS("CostoPromedio").ToString.ToDecimal)
 
         TxtCodigoBarras.Text = ""
         TxtCodigoBarras.Focus()
@@ -1534,17 +1535,16 @@ Partial Class Inventarios_RecepcionUsados
     Private Sub BtnAddCodigo_Click(sender As Object, e As EventArgs) Handles BtnAddCodigo.Click
         If TxtCodigo.Text.Trim = "" Then Exit Sub
 
-        Dim DrP = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo= '{TxtCodigo.Text.Trim}'")
+        Dim DrP As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo= '{TxtCodigo.Text.Trim}'")
 
         If DrP IsNot Nothing AndAlso DrP("CvePS").ToString.ToEntero > 0 Then
-            GuardaCodigoSerie(TxtCantidadProducto.Text.ToDouble, DrP("CvePS").ToString.ToEntero, DrP("CveUnidadMedida").ToString.ToEntero, DrP("CostoPromedio").ToString.ToDecimal)
+            GuardaCodigoSerie(TxtCantidadProducto.Text.ToDecimal, DrP("CvePS").ToString.ToEntero, DrP("CveUnidadMedida").ToString.ToEntero, DrP("CostoPromedio").ToString.ToDecimal)
         Else
             Alert("No se encontró el producto. Favor de verificar y volver a intentar.", TipoMensaje.MsgError, "window.setTimeout(Focus2,200);")
         End If
-
     End Sub
 
-    Private Sub GuardaCodigoSerie(Cantidad As Double, CvePS As Integer, CveUM As Integer, CostoPromedio As Decimal, Optional Serie As String = "-1")
+    Private Sub GuardaCodigoSerie(Cantidad As Decimal, CvePS As Integer, CveUM As Integer, CostoPromedio As Decimal, Optional Serie As String = "-1")
         Dim ObjInv As New ClsInventarios
 
         If CveMovimiento <= 0 Then
@@ -3038,9 +3038,9 @@ Partial Class Inventarios_RecepcionUsados
 
                 If PrecioSugerido = 0 Then
                     Dim ObjInventarios As New ClsInventarios
-                    Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, txtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, CveSubProyecto, CveTipoAlmacen:=1)
+                    Dim CostoPS As Decimal = ObjInventarios.GetCostoPS(CvePSParametro, txtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, CveSubProyecto, CveTipoAlmacen:=1)
                     'si el costo es cero, puede ser que no halla movimientos del producto, en  esa sucursal. y se volverá a sacar sin especificar sucursal
-                    If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, txtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1)
+                    If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, txtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1)
                     ObjInventarios.Dispose()
                     If CostoPS > 0 And PorcentajePrecio > 0 Then
                         PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS