-- cambio de tipo de datos double a decimal, para que no afecte a los redondeos

2021-07-07 19:42:09 -07:00
parent 51d29110bb
commit c0d0b6008e
1 changed files with 43 additions and 43 deletions
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -189,11 +189,11 @@ Partial Class Inventarios_RecepcionAlmacen
        End Set
    End Property

-    Private Property TipoCambio As Double
+    Private Property TipoCambio As Decimal
        Get
-            Return ViewState("TipoCambio").ToString.ToDouble
+            Return ViewState("TipoCambio").ToString.ToDecimal
        End Get
-        Set(value As Double)
+        Set(value As Decimal)
            ViewState("TipoCambio") = value
        End Set
    End Property
@@ -1080,7 +1080,7 @@ Partial Class Inventarios_RecepcionAlmacen
                        DdlMonedaTC.SelectedValueExist("2")
                        DdlMonedaTC_SelectedIndexChanged(DdlMonedaTC, EventArgs.Empty)
                        'TxtTipoCambio.Text = If(TipoCambio <= 0, GlobalTipoCambio(TxtFecha.Text.ToDate).ToString, TipoCambio.ToString)
-                        TipoCambio = If(TipoCambio <= 0, GlobalTipoCambio(TxtFecha.Text.ToDate), TipoCambio)
+                        TipoCambio = If(TipoCambio <= 0, GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal, TipoCambio)
                        LtAdvertencia.Text = "El cambio de moneda se aplicara al guardar el movimiento con el tipo de cambio indicado."
                        DivAdvertencia.Visible = True
                    End If
@@ -1139,7 +1139,7 @@ Partial Class Inventarios_RecepcionAlmacen

                    End If

-                    Dim CantidadFaltante As Double = DtRecepcion.SUM("CantidadC", "CantidadF > 0")
+                    Dim CantidadFaltante As Decimal = DtRecepcion.SUMD("CantidadC", "CantidadF > 0")

                    If UsuarioActual.Empresa.UsaAC AndAlso CantidadFaltante > 0 Then
                        PnlAC.Visible = True
@@ -1300,24 +1300,24 @@ Partial Class Inventarios_RecepcionAlmacen
 #Region "  GVINV  "
    Private Sub CreaDTInv(TmDT As DataTable)
        TmDT.Columns.Add("CveAlmacen", GetType(Integer))
-        TmDT.Columns.Add("PUExtranjero", GetType(Double))
-        TmDT.Columns.Add("CostoIndirectoExtranjero", GetType(Double))
+        TmDT.Columns.Add("PUExtranjero", GetType(Decimal))
+        TmDT.Columns.Add("CostoIndirectoExtranjero", GetType(Decimal))
        TmDT.Columns.Add("Consec", GetType(Integer))
-        TmDT.Columns.Add("CantidadSurtidaPantalla", GetType(Double))
+        TmDT.Columns.Add("CantidadSurtidaPantalla", GetType(Decimal))
        If Not TmDT.Columns.Contains("AplicaSeccion") Then
-            TmDT.Columns.Add("AplicaSeccion", GetType(Double))
+            TmDT.Columns.Add("AplicaSeccion", GetType(Decimal))
        End If
        If Not TmDT.Columns.Contains("AplicaSerie") Then
-            TmDT.Columns.Add("AplicaSerie", GetType(Double))
+            TmDT.Columns.Add("AplicaSerie", GetType(Decimal))
        End If
        If Not TmDT.Columns.Contains("AplicaLote") Then
-            TmDT.Columns.Add("AplicaLote", GetType(Double))
+            TmDT.Columns.Add("AplicaLote", GetType(Decimal))
        End If
        If Not TmDT.Columns.Contains("AplicaCaducidad") Then
-            TmDT.Columns.Add("AplicaCaducidad", GetType(Double))
+            TmDT.Columns.Add("AplicaCaducidad", GetType(Decimal))
        End If
        If Not TmDT.Columns.Contains("CostoIndirecto") Then
-            TmDT.Columns.Add("CostoIndirecto", GetType(Double))
+            TmDT.Columns.Add("CostoIndirecto", GetType(Decimal))
        End If
        If Not TmDT.Columns.Contains("Lote") Then
            TmDT.Columns.Add("Lote", GetType(String))
@@ -1332,7 +1332,7 @@ Partial Class Inventarios_RecepcionAlmacen
            TmDT.Columns.Add("Seleccionado", GetType(Boolean))
        End If
        If Not TmDT.Columns.Contains("CantidadSeleccionada") Then
-            TmDT.Columns.Add("CantidadSeleccionada", GetType(Double))
+            TmDT.Columns.Add("CantidadSeleccionada", GetType(Decimal))
        End If


@@ -1600,7 +1600,7 @@ Partial Class Inventarios_RecepcionAlmacen
                        RegistraScript("playsonidito('beep-07.wav')")
                        UPInv.Update()
                        Dim Dr = DtInv.Select($"Consec = {Gvr.DataKey("Consec")}")(0)
-                        Dr("CantidadSurtidaPantalla") = TxtCantidad.Text.ToDouble
+                        Dr("CantidadSurtidaPantalla") = TxtCantidad.Text.ToDecimal
                        DtInv.AcceptChanges()
                        Exit Sub
                    End If
@@ -1732,7 +1732,7 @@ Partial Class Inventarios_RecepcionAlmacen
            End If

            Dim Dr = DtInv.Select($"Consec = {Gvr.DataKey("Consec")}")(0)
-            Dr("CantidadSurtidaPantalla") = Gvr.FCTextBox("TbCantidadF").Text.ToDouble
+            Dr("CantidadSurtidaPantalla") = Gvr.FCTextBox("TbCantidadF").Text.ToDecimal
            DtInv.AcceptChanges()
        Next

@@ -1891,7 +1891,7 @@ Partial Class Inventarios_RecepcionAlmacen
            DtDatosLoteDetalle = New DataTable
            DtDatosLoteDetalle.Columns.Add("Consec", GetType(Integer))
            DtDatosLoteDetalle.Columns.Add("ConsecId", GetType(Integer))
-            DtDatosLoteDetalle.Columns.Add("Cantidad", GetType(Double))
+            DtDatosLoteDetalle.Columns.Add("Cantidad", GetType(Decimal))
            DtDatosLoteDetalle.Columns.Add("CvePS", GetType(Integer))
            DtDatosLoteDetalle.Columns.Add("CveUM", GetType(Integer))
            DtDatosLoteDetalle.Columns.Add("PU", GetType(Decimal))
@@ -1919,7 +1919,7 @@ Partial Class Inventarios_RecepcionAlmacen
        GvLote.DataBind()

        'VALIDA QUE SIGA AGREGANDO
-        If Not DtDatosLoteDetalle.SUM("Cantidad", String.Format("ConsecId = {0}", CveConsecSerie)) < LbLoteCantidad2.Text.ToDouble Then
+        If Not DtDatosLoteDetalle.SUM("Cantidad", String.Format("ConsecId = {0}", CveConsecSerie)) < LbLoteCantidad2.Text.ToDecimal Then
            BtnAddPSLote.Enabled = False
            If CerrarCompletado Then
                RegistraScript("$('#DivLote').modal('hide');")
@@ -1945,11 +1945,11 @@ Partial Class Inventarios_RecepcionAlmacen
            End If

            Dim Dr = DtInv.Select($"Consec = {Gvr.DataKey("Consec")}")(0)
-            Dr("CantidadSurtidaPantalla") = Gvr.FCTextBox("TbCantidadF").Text.ToDouble
+            Dr("CantidadSurtidaPantalla") = Gvr.FCTextBox("TbCantidadF").Text.ToDecimal
            DtInv.AcceptChanges()
        Next

-        RVCantidadLote.MaximumValue = (If((LbLoteCantidad2.Text.ToDouble - Contador) = 0, 0.02, LbLoteCantidad2.Text.ToDouble - Contador)).ToString.FormatoNumero
+        RVCantidadLote.MaximumValue = (If((LbLoteCantidad2.Text.ToDecimal - Contador) = 0, 0.02, LbLoteCantidad2.Text.ToDecimal - Contador)).ToString.FormatoNumero

        TxtCantidadLote.Text = "1"
        TxtLote.Text = ""
@@ -1990,7 +1990,7 @@ Partial Class Inventarios_RecepcionAlmacen
        End If

        Dim Row = DtDatosLoteDetalle.NewRow
-        Dim CantidadLote = TxtCantidadLote.Text.ToDouble
+        Dim CantidadLote = TxtCantidadLote.Text.ToDecimal

        Dim MensajeSinExistencias As New StringBuilder
        Dim ObjInventarios As New ClsInventarios
@@ -2055,7 +2055,7 @@ Partial Class Inventarios_RecepcionAlmacen
 #Region "  GUARDAR  "
    Private Function ValidaGuardar() As Boolean

-        Dim TotalCantidad As Double = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.FCTextBox("TbCantidadF").Text.ToDouble)
+        Dim TotalCantidad As Decimal = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.FCTextBox("TbCantidadF").Text.ToDecimal)
        If TotalCantidad <= 0 Then
            Alert("No se seleccionó ninguna cantidad de productos a guardar. Por favor verifique e intente nuevamente.", TipoMensaje.MsgAdvertencia)
            RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -2084,9 +2084,9 @@ Partial Class Inventarios_RecepcionAlmacen
        End If


-        Dim TotalPorDevengar As Double = 0.0
+        Dim TotalPorDevengar As Decimal = 0
        If UsuarioActual.Empresa.UsaAC Then
-            TotalPorDevengar += GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Gvr.FCTextBox("TxtImporte").Text.ToDouble)
+            TotalPorDevengar += GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Gvr.FCTextBox("TxtImporte").Text.ToDecimal)
            If TotalPorDevengar <= 0 Then
                Alert("Especifique el importe del presupuesto", TipoMensaje.MsgAdvertencia)
                RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
@@ -2112,7 +2112,7 @@ Partial Class Inventarios_RecepcionAlmacen
            If ObjComprasDif.RecepcionAlmacenGet(CveCompraSurtir, BuscaEntregaDirecta, UsuarioActual.CveEmpresa) Then
                DtDatosCompra = ObjComprasDif.DtResultados
            End If
-            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDouble)
+            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
            Dim CantConsulta = DtDatosCompra.SUM(VariableCampo)
            If Math.Abs(CantidadGV - CantConsulta) > 0.01 Then
                CargaCompra(CveCompraSurtir, -1)
@@ -2132,7 +2132,7 @@ Partial Class Inventarios_RecepcionAlmacen
            If ObjComprasDif.RecepcionAlmacenOCGet(CveOCSurtir, UsuarioActual.CveEmpresa) Then
                DtDatosOC = ObjComprasDif.DtResultados.FiltraParametros("CantidadCompra = 0")
            End If
-            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDouble)
+            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
            Dim CantConsulta = DtDatosOC.SUM(VariableCampo)
            If Math.Abs(CantidadGV - CantConsulta) > 0.1 Then
                CargaOCPorSurtir(CveOCSurtir)
@@ -2151,7 +2151,7 @@ Partial Class Inventarios_RecepcionAlmacen
            If ObjComprasDif.RecepcionAlmacenImportacionGet(CveImportacionSurtir, CveImportacionCompra, CveImportacionProveedor, UsuarioActual.CveEmpresa) Then
                DtDatosImportacion = ObjComprasDif.DtResultados
            End If
-            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDouble)
+            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
            Dim CantConsulta = DtDatosImportacion.SUM(VariableCampo)
            If CantidadGV <> CantConsulta Then
                CargaImportacionSurtir(CveImportacionSurtir)
@@ -2170,7 +2170,7 @@ Partial Class Inventarios_RecepcionAlmacen
            If ObjComprasDif.RecepcionAlmacenFleteGet(CveFleteSurtir, CveFleteOrdenCompra, CveFleteCompra, UsuarioActual.CveEmpresa) Then
                DtDatosImportacion = ObjComprasDif.DtResultados
            End If
-            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDouble)
+            Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
            Dim CantConsulta = DtDatosImportacion.SUM(VariableCampo)
            If CantidadGV <> CantConsulta Then
                CargaFleteSurtir(CveFleteSurtir)
@@ -2441,7 +2441,7 @@ Partial Class Inventarios_RecepcionAlmacen
        Try
            'RECARGA TC CUANDO ES RECEPCION CON OC Y DOLARES
            If CveOCSurtir > 0 And CveMoneda <> 1 Then
-                TipoCambio = GlobalTipoCambio(TxtFecha.Text.ToDate)
+                TipoCambio = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
            End If

            If HdnTipoDocto.Value <> "Fac" Then RecibidaCompleta = False
@@ -2513,7 +2513,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                    SumaTotal += PU + CostoIndirecto
                                    If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalle.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
                                        If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                            PU = Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (PU))
+                                            PU = Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) - (SumaTotal - (PU))
                                        End If
                                    End If
                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTraspaso, 1, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Serie:=Dr("Serie").ToString, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, FechaCaducidad:=If(CBool(gvr.DataKey("AplicaCaducidad")), gvr.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha), Lote:=If(CBool(gvr.DataKey("AplicaLote")), gvr.FCTextBox("TxtLote").Text, ""), CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
@@ -2530,7 +2530,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                    SumaTotal += Dr("Cantidad").ToString.ToDecimal * (PU + CostoIndirecto)
                                    If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalleLote.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
                                        If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                            PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
+                                            PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
                                        End If
                                    End If
                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTraspaso, Dr("Cantidad").ToString.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
@@ -2548,7 +2548,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> Math.Round(SumaTotal, 2) Then
                                    Dim tTotal As Decimal = gvr.FCTextBox("TbCantidadF").Text.ToDecimal * (PU)
                                    If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                        PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - tTotal)) / gvr.FCTextBox("TbCantidadF").Text.ToDecimal
+                                        PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) - (SumaTotal - tTotal)) / gvr.FCTextBox("TbCantidadF").Text.ToDecimal
                                    End If
                                End If
                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTraspaso, gvr.FCTextBox("TbCantidadF").Text.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, FechaCaducidad:=If(CBool(gvr.DataKey("AplicaCaducidad")), gvr.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha), Lote:=If(CBool(gvr.DataKey("AplicaLote")), gvr.FCTextBox("TxtLote").Text, ""), CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
@@ -2614,7 +2614,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                SumaTotal += PU.RoundAD + CostoIndirecto ' se redondea a dos decimales. por la unidad es uno
                                If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalle.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
                                    If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                        PU = Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (PU))
+                                        PU = Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) - (SumaTotal - (PU))
                                    End If
                                End If
                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Serie:=Dr("Serie").ToString, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, FechaCaducidad:=If(CBool(gvr.DataKey("AplicaCaducidad")), gvr.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha), Lote:=If(CBool(gvr.DataKey("AplicaLote")), gvr.FCTextBox("TxtLote").Text, ""), CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
@@ -2631,7 +2631,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                SumaTotal += Dr("Cantidad").ToString.ToDecimal * (PU + CostoIndirecto)
                                If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalleLote.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
                                    If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                        PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
+                                        PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
                                    End If
                                End If
                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
@@ -2648,7 +2648,7 @@ Partial Class Inventarios_RecepcionAlmacen
                            If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> Math.Round(SumaTotal, 2) Then
                                Dim tTotal As Decimal = gvr.FCTextBox("TbCantidadF").Text.ToDecimal * (PU)
                                If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                    PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - tTotal)) / gvr.FCTextBox("TbCantidadF").Text.ToDecimal
+                                    PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) - (SumaTotal - tTotal)) / gvr.FCTextBox("TbCantidadF").Text.ToDecimal
                                End If
                            End If
                            If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, gvr.FCTextBox("TbCantidadF").Text.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, FechaCaducidad:=If(CBool(gvr.DataKey("AplicaCaducidad")), gvr.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha), Lote:=If(CBool(gvr.DataKey("AplicaLote")), gvr.FCTextBox("TxtLote").Text, ""), CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
@@ -2680,7 +2680,7 @@ Partial Class Inventarios_RecepcionAlmacen
                    If CveTipoCompra = 8 Then 'entrada almacen con costo indirecto cargado en la misma compra
                        tTotalInsertado = dtt.SUMD("Total") ' está incluido el costo indirecto en la factura
                    End If
-                    If (TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)).RoundAD <> tTotalInsertado.RoundAD Then
+                    If (TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)).RoundSQL <> tTotalInsertado.RoundSQL Then
                        ErrorMovInv = True
                        Alert("La Entrada no coincide con el valor del documento." & Math.Round(TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1), 2) & " -" & tTotalInsertado, TipoMensaje.MsgError)
                        GuardaLog("La Entrada no coincide con el valor del documento." & Math.Round(TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1), 2) & " -" & tTotalInsertado)
@@ -3249,8 +3249,8 @@ Partial Class Inventarios_RecepcionAlmacen

                                            If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then
                                                'COMPLEMENTARIA
-                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveSubProyecto:=CveSubProyecto, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, Contabilizable:=EsContabilizable) Then
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoDetalle - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveSubProyecto:=CveSubProyecto, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoDetalle - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, Contabilizable:=EsContabilizable) Then
+                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveSubProyecto:=CveSubProyecto, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, Contabilizable:=EsContabilizable) Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoDetalle - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveSubProyecto:=CveSubProyecto, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoDetalle - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, Contabilizable:=EsContabilizable) Then
                                                        ErrorMovInv = True
                                                        Exit For
                                                    End If
@@ -3273,8 +3273,8 @@ Partial Class Inventarios_RecepcionAlmacen

                                        If CveMoneda <> 1 AndAlso UsaComplementariaFleteImportaciones Then
                                            'COMPLEMENTARIA
-                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, Contabilizable:=EsContabilizable) Then
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCosto - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio.ToDecimal, Contabilizable:=EsContabilizable) Then
+                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoME, SerieFolio, Fecha, IdCtaContableRecepcionME, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio, Contabilizable:=EsContabilizable) Then
+                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCosto - TotalCostoExtranjero, SerieFolio, CveConceptoContableCostoComplementaria, SerieFolio, Fecha, IdCtaContableRecepcionComplementaria, -1, CveCompra:=CveCompraSurtir, CveOC:=CveOCSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto - TotalCostoExtranjero, ImporteME:=TotalCostoExtranjero, TipoCambio:=TipoCambio, Contabilizable:=EsContabilizable) Then
                                                    ErrorMovInv = True
                                                End If
                                            Else
@@ -3355,7 +3355,7 @@ Partial Class Inventarios_RecepcionAlmacen
                    Dim TotalNC As Decimal = 0
                    Dim CveClasificacionDifCostoNC = -1
                    Dim tTipoCambio As Decimal = 1
-                    If CveMoneda <> 1 Then tTipoCambio = TipoCambio.ToDecimal
+                    If CveMoneda <> 1 Then tTipoCambio = TipoCambio

                    For Each gvr As GridViewRow In GvInv.Rows
                        TotalNC += gvr.FCTextBox("TbCantidadF").Text.ToDecimal * gvr.DataKey("PU").ToDecimal * tTipoCambio
@@ -4128,7 +4128,7 @@ Partial Class Inventarios_RecepcionAlmacen
                        DdlMonedaTC.SelectedValueExist("2")
                        DdlMonedaTC_SelectedIndexChanged(DdlMonedaTC, EventArgs.Empty)
                        'TxtTipoCambio.Text = If(TipoCambio <= 0, GlobalTipoCambio(TxtFecha.Text.ToDate).ToString, TipoCambio.ToString)
-                        TipoCambio = If(TipoCambio <= 0, GlobalTipoCambio(TxtFecha.Text.ToDate), TipoCambio)
+                        TipoCambio = If(TipoCambio <= 0, GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal, TipoCambio)
                        If TipoCambio > 0 Then
                            LtAdvertencia.Text = "El cambio de moneda se aplicara al guardar el movimiento con el tipo de cambio indicado."
                            DivAdvertencia.Visible = True
@@ -4210,7 +4210,7 @@ Partial Class Inventarios_RecepcionAlmacen
        'TipoCambio = TxtTipoCambio.Text.ToDouble

        If CveOCSurtir > 0 Then
-            TipoCambio = GlobalTipoCambio(TxtFecha.Text.ToDate)
+            TipoCambio = GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
        End If

        For Each Dr As DataRow In DtInv.Rows