diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 77cbe83d7..670335004 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -2349,7 +2349,7 @@ Partial Class General_SaldosIniciales
 
                         If TipoDocto.Contiene("Ing", "Egs", "Rem") Then
                             GuardaLog(Serie & "-" & Folio)
-                            If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero(), CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
+                            If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero(), CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDecimal,
                                                0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, 0, CvePrePoliza,
                                               UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero(), CveSubProyectoEjecucion:=Sucursal.ToEntero(),
                                               CveSubProyectoCobranza:=Sucursal.ToEntero(), IEPS:=IEPS, ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal,
@@ -2691,7 +2691,7 @@ Partial Class General_SaldosIniciales
                         If TipoDocto.Contiene("Ing", "Egs", "Rem") Then
                             GuardaLog(Serie & "-" & Folio)
                             If Not EsDetalle Then
-                                If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero(), CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
+                                If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero(), CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDecimal,
                                                0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, 0, CvePrePoliza,
                                               UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero(), CveSubProyectoEjecucion:=Sucursal.ToEntero(),
                                               CveSubProyectoCobranza:=Sucursal.ToEntero(), IEPS:=IEPS, ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal,
diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb
index 2c06bdd99..0a9b89c74 100644
--- a/PortalCliente/PortalCliente.aspx.vb
+++ b/PortalCliente/PortalCliente.aspx.vb
@@ -3448,7 +3448,7 @@ Partial Class Ventas_PortalCliente
         Dim CveAlmacenTraspasoOrigen As Integer = -1
         Dim CveAlmacenTraspasoDestino As Integer = -1
         Dim EsDevolucionVenta = -1
-        Dim TotalImpuestoLocal As Double = 0
+        Dim TotalImpuestoLocal As Decimal = 0
 
         factura.CvePrePoliza = ObjConta.AddPrePolizas("PortalC/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa)
         If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index d749e5088..d1fc3ee84 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -3682,7 +3682,7 @@ Partial Class PV
             ObjFactura.Alfa3 = ""
             ObjFactura.Num1 = 0
             ObjFactura.Num2 = 0
-            ObjFactura.Num3 = DdlOrdenPago.SelectedValue.ToDouble
+            ObjFactura.Num3 = DdlOrdenPago.SelectedValue.ToDecimal
             ObjFactura.FechaPago = TxtFechaPago.Text.ToDate
 
             ObjFactura.CveCorte = CveCorte