cambio de double a decimal parametro de movimientodetalle

GPS/RepCombustible2.aspx.vb

@@ -5,24 +5,24 @@ Imports Microsoft.Reporting.WebForms
 Partial Class GPS_RepCombustible2
     Inherits ClsPaginas
 
-    ReadOnly Property UsuarioActual() As Usuario
-        Get
-            Try
-                'UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario)
-                UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario)
-            Catch ex As Exception
-                UsuarioActual = Nothing
-                FormsAuthentication.SignOut()
-                Session("UsuarioSIG") = Nothing
-                HttpContext.Current.Response.Redirect(String.Format("/LogIn.aspx?ReturnUrl={0}", HttpContext.Current.Request.Url))
-            End Try
-        End Get
-    End Property
+    'ReadOnly Property UsuarioActual() As Usuario
+    '    Get
+    '        Try
+    '            'UsuarioActual = DirectCast(Session("UsuarioSIG"), Usuario)
+    '            UsuarioActual = CType(Context.Session("UsuarioSIG"), Usuario)
+    '        Catch ex As Exception
+    '            UsuarioActual = Nothing
+    '            FormsAuthentication.SignOut()
+    '            Session("UsuarioSIG") = Nothing
+    '            HttpContext.Current.Response.Redirect(String.Format("/LogIn.aspx?ReturnUrl={0}", HttpContext.Current.Request.Url))
+    '        End Try
+    '    End Get
+    'End Property
 
-    Public Sub RegistraScript(Script As String, Optional valuetick As String = "")
-        Dim Rdm As Random = New Random()
-        ScriptManager.RegisterStartupScript(Page, Me.GetType(), String.Format("{0}{1}{2}", (NowADS().Ticks + 1), Rdm.Next(), valuetick), String.Format("<script type='text/javascript' language='javascript'>{0}</script>", Script), False)
-    End Sub
+    'Public Sub RegistraScript(Script As String, Optional valuetick As String = "")
+    '    Dim Rdm As Random = New Random()
+    '    ScriptManager.RegisterStartupScript(Page, Me.GetType(), String.Format("{0}{1}{2}", (NowADS().Ticks + 1), Rdm.Next(), valuetick), String.Format("<script type='text/javascript' language='javascript'>{0}</script>", Script), False)
+    'End Sub
     Property DTCargasDescargas As DataTable
         Get
             If ViewState("DTCargasDescargas") Is Nothing Then

Inventarios/EntradasSalidas.aspx.vb

@@ -3,7 +3,6 @@ Option Strict On
 
 Imports System.Data
 Imports System.IO
-Imports CrystalDecisions.CrystalReports.ViewerObjectModel
 Imports Extensiones
 
 Partial Class Inventarios_EntradasSalidas
@@ -1707,7 +1706,7 @@ Partial Class Inventarios_EntradasSalidas
                                     Dim FechaMovtoExistenciaStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("hh:mm")}"
 
                                     If ObjInventario.GetExistenciasPS(Dr("CvePS").ToString.ToEntero, Dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=FechaMovtoExistenciaStr, Serie:=If(Dr("Serie").ToString = "", "-1", Dr("Serie").ToString), Lote:=If(Dr("Lote").ToString = "", "-1", Dr("Lote").ToString)) >= Dr("Cantidad").ToString.ToDouble Then
-                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=Dr("CveCultivoCuadroDetalle").ToString.ToEntero) Then
+                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=Dr("CveCultivoCuadroDetalle").ToString.ToEntero) Then
                                             Mensaje = "Error al Agregar los nuevos movimientos"
                                             ErrorMovInv = True : Exit For
                                         End If
@@ -4114,7 +4113,7 @@ Partial Class Inventarios_EntradasSalidas
         If DdlPS.SelectedValue.ToEntero > 0 Then
             Dim ObjInventario As New ClsInventarios
 
-            Dim CostoPromedio As Decimal = ObjInventario.GetCostoPS(DdlPS.SelectedValue.ToEntero, txtCantidad.Text.ToDouble, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, "", TxtFecha.Text.Replace(",", "").ToDate)
+            Dim CostoPromedio As Decimal = ObjInventario.GetCostoPS(DdlPS.SelectedValue.ToEntero, txtCantidad.Text.ToDecimal, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, "", TxtFecha.Text.Replace(",", "").ToDate)
             'GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("CostoPromedio", "").ToDecimal
             If CostoPromedio > 0 Then
 

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -341,7 +341,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
         Dim CveSeccionAlmacen As Integer = -1
         Dim SeccionAlmacen As String = ""
 
-        Dim Cantidad As Double = TxtCantidadProducto.Text.ToDouble
+        Dim Cantidad As Decimal = TxtCantidadProducto.Text.ToDecimal
 
         Dim dr As DataRow
         'dr = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{CodigoBarras}' OR Codigo = '{Codigo}' ")

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

Inventarios/Remanufactura.aspx.vb

@@ -147,7 +147,7 @@ Partial Class Inventarios_Remanufactura
         'CREA REAMANUFACTURA
         If Not ObjInv.AddRemanufactura(DdlCliente.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero,
                                            DdlSubProyecto.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, lblFolio.Text,
-                                           TxtCantidad.Text.ToDouble, TxtPrecio.Text.ToDouble, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario,
+                                           TxtCantidad.Text.ToDecimal, TxtPrecio.Text.ToDecimal, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario,
                                            UsuarioActual.CveEmpresa) Then
             ErrorTrans = True
         Else
@@ -164,7 +164,7 @@ Partial Class Inventarios_Remanufactura
         If CveMovimiento > 0 Then
             If GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).Rows.Count > 0 Then
                 Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero).Rows(0)
-                ObjInv.AddMovimientoDetalle(CveMovimiento, TxtCantidad.Text.ToDouble, DrPS("CveUnidadMedida").ToString().ToEntero(), DdlPS.SelectedValue.ToEntero, TxtPrecio.Text.ToDecimal, -1)
+                ObjInv.AddMovimientoDetalle(CveMovimiento, TxtCantidad.Text.ToDecimal, DrPS("CveUnidadMedida").ToString().ToEntero(), DdlPS.SelectedValue.ToEntero, TxtPrecio.Text.ToDecimal, -1)
                 If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
                     If ObjInv.DtResultados.Rows.Count > 0 Then
                         FolioMov = ObjInv.DtResultados.Rows(0)("Folio").ToString
@@ -247,7 +247,7 @@ Partial Class Inventarios_Remanufactura
             Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion)
             Limpia()
         Else
-            For Each ErrorItem In ErrorList
+            For Each ErrorItem As String In ErrorList
                 Alert(ErrorItem, TipoMensaje.MsgAdvertencia)
             Next
             Alert("Ocurrió un error al procesar los datos. Por favor rectifique y vuelta a intentar.", TipoMensaje.MsgError)
@@ -416,7 +416,7 @@ Partial Class Inventarios_Remanufactura
         ObjFactura.IEPS = 0
         ObjFactura.Total = Total
 
-        Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero)(0)
+        Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero)(0)
         Dim DtR As DataRow
         DtR = TmpDT.NewRow
         DtR("CveVenta") = -1
@@ -606,8 +606,8 @@ Partial Class Inventarios_Remanufactura
         Dim Msgok As New StringBuilder
         Dim CveAlmacenTraspasoOrigen As Integer = -1
         Dim CveAlmacenTraspasoDestino As Integer = -1
-        Dim EsDevolucionVenta = -1
-        Dim CveSubProyecto = TmpDTDetalle.Rows(0)("CveSubProyecto").ToString.ToEntero
+        Dim EsDevolucionVenta As Integer = -1
+        Dim CveSubProyecto As Integer = TmpDTDetalle.Rows(0)("CveSubProyecto").ToString.ToEntero
 
 
         factura.CvePrePoliza = ObjConta.AddPrePolizas("Reman/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, factura.Cliente.Nombre, factura.CveUsuario, factura.CveEmpresa)

Inventarios/TrasladoSolicitud.aspx.vb

@@ -653,8 +653,8 @@ Partial Class Inventarios_TrasladoSolicitud
         Dim EstatusAlmacen As Integer = 2
         'VERIFICA EXISTENCIAS
         Dim ObjInventarios As New ClsInventarios
-        Dim Existencia = 0.0
-        Dim TieneErrorExistencia = False
+        Dim Existencia As Decimal = 0
+        Dim TieneErrorExistencia As Boolean = False
         Dim MensajeExistencia As New StringBuilder
         MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos:<br/>")
         Dim CodigoPS As String = ""
@@ -695,7 +695,7 @@ Partial Class Inventarios_TrasladoSolicitud
 
 
         ObjInventarios.IniciaTransacSQL()
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         Dim CveContrato As Integer = 0
         Dim Guia As String = ""
@@ -710,7 +710,7 @@ Partial Class Inventarios_TrasladoSolicitud
             Estatus = 3
         End If
 
-        Dim Folio = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.Text.Trim, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato, Guia:=Guia, CvePaqueteria:=DdlPaqueteria.SelectedValue.ToEntero, CveDireccionEnvio:=CveDireccionEnvio, EstatusAlmacen:=EstatusAlmacen)
+        Dim Folio As integr = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.Text.Trim, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato, Guia:=Guia, CvePaqueteria:=DdlPaqueteria.SelectedValue.ToEntero, CveDireccionEnvio:=CveDireccionEnvio, EstatusAlmacen:=EstatusAlmacen)
 
         If Folio > 0 Then
             CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud
@@ -723,7 +723,7 @@ Partial Class Inventarios_TrasladoSolicitud
                 Dim CveUM As Integer = Row.DataKey("CveUM").ToEntero
                 Dim CvePS As Integer = Row.DataKey("CvePS").ToEntero
                 Dim Cantidad As Integer = Row.DataKey("Cantidad").ToEntero
-                Dim Precio As Double = Row.DataKey("Precio").ToEntero
+                Dim Precio As Decimal = Row.DataKey("Precio").ToDecimal
                 Dim Observaciones As String = Row.DataKey("Observaciones")
                 Dim CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero
                 Dim Serie As String = Row.DataKey("Serie")

RH/Personal.aspx.vb

@@ -5788,7 +5788,7 @@ Partial Class RH_Personal
         Dim ObjInventario As New ClsInventarios
         ObjInventario.IniciaTransacSQL()
 
-        Dim Cantidad As Double = TxtCantidadResguardo.Text.ToDouble()
+        Dim Cantidad As Decimal = TxtCantidadResguardo.Text.ToDecimal
         Dim Serie As String = TxtLiberarSerie.Text.Trim
         Dim Errores As String = ""