--double a decimal

OS/OrdenesServicios.aspx.vb

@@ -517,7 +517,7 @@ Partial Class OS_OrdenesServicios
     Private Sub CargaDatos()
         Dim ObjOS As New ClsOS()
         Dim IDOSDetalle As Integer = 1
-        Dim SeFacturara = ""
+        Dim SeFacturara As String = ""
 
         If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
             If ObjOS.DtResultados.Rows.Count > 0 Then
@@ -1666,7 +1666,7 @@ Partial Class OS_OrdenesServicios
         If e.CommandName = "Estatus" Then
             Dim objOrdenServicio As New ClsOS
 
-            Dim index = (e.CommandArgument).ToString.ToEntero
+            Dim index As Integer = (e.CommandArgument).ToString.ToEntero
             Dim gvr As GridViewRow = GvPS.Rows(index)
 
             Dim Consecutivo As Integer = gvr.FCLiteral("LtlConsecutivo").Text.ToEntero
@@ -1697,7 +1697,7 @@ Partial Class OS_OrdenesServicios
                         DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC"))
                         DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs)
 
-                        Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
+                        Dim Liga As String = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
                         If objOrdenServicio.UpdateOrdenesServiciosEstatus(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC").ToEntero, UsuarioActual.CveUsuario, CveOS) Then
                             Alert("Se cambió el Estatus de la Orden de Servicio", TipoMensaje.MsgInformacion, Liga)
                         End If
@@ -1734,7 +1734,7 @@ Partial Class OS_OrdenesServicios
                     e.Row.FCLinkButton("imgComentario").OnClientClick = URL
 
                     'Cambia Estatus
-                    Dim Estado = TmpDT(e.Row.RowIndex)("Estatus").ToString
+                    Dim Estado As String = TmpDT(e.Row.RowIndex)("Estatus").ToString
 
                     e.Row.FCLinkButton("imgEstatus").Attributes.Add("data-toggle", "confirmation")
                     If Estado = "False" Then
@@ -1777,7 +1777,7 @@ Partial Class OS_OrdenesServicios
         End If
     End Sub
     Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvPS.RowDeleting
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
         Dim DbRow As DataRow = Nothing
         Dim ObjOS As New ClsOS
         ObjOS.IniciaTransacSQL()
@@ -1957,7 +1957,7 @@ Partial Class OS_OrdenesServicios
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarCuenta"))
     End Sub
     Private Sub BtnGuardarCuenta_Click(sender As Object, e As EventArgs) Handles BtnGuardarCuenta.Click
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
         Dim objCuentasEquipos As New ClsGenerales()
 
         objCuentasEquipos.IniciaTransacSQL()
@@ -2364,7 +2364,7 @@ Partial Class OS_OrdenesServicios
             Next
         End If
 
-        Dim DR = TmpDT.Select($"Consecutivo = {CveConsecutivo}")
+        Dim DR As DataRow() = TmpDT.Select($"Consecutivo = {CveConsecutivo}")
         DR(0)("Materiales") = Materiales
         TmpDT.AcceptChanges()
 
@@ -2390,7 +2390,7 @@ Partial Class OS_OrdenesServicios
             Dim CveTraspasoSolicitud As Integer = 0
 
             Dim TieneError As Boolean = False
-            Dim ErrorExistencia = False
+            Dim ErrorExistencia As Boolean = False
             Dim TextoExistencia As StringBuilder = New StringBuilder
 
             'VALIDA LA EXISTENCIA DEL ALMACEN DE ORIGEN
@@ -2468,7 +2468,7 @@ Partial Class OS_OrdenesServicios
     Private Sub GvMaterialesModal_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMaterialesModal.RowDeleting
         Dim ObjMateriales As New ClsOS
         Dim ObjInventario As New ClsInventarios(ObjMateriales.IniciaTransacSQL)
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
         Dim DbRow As DataRow = Nothing
 
         Dim CveMaterial As Integer = GvMaterialesModal.Rows(e.RowIndex).DataKey("CveMaterial").ToEntero
@@ -2478,24 +2478,24 @@ Partial Class OS_OrdenesServicios
 
 
         If CveMaterial > 0 Then
-            Dim CveMovimientoSalida = 0
-            Dim CveMovimientoEntrada = 0
+            Dim CveMovimientoSalida As Integer = 0
+            Dim CveMovimientoEntrada As Integer = 0
 
-            Dim CveMovimientoSalida2 = 0
-            Dim CveMovimientoEntrada2 = 0
+            Dim CveMovimientoSalida2 As Integer = 0
+            Dim CveMovimientoEntrada2 As Integer = 0
 
-            Dim CveMovimientoSalida3 = 0
-            Dim CveMovimientoEntrada3 = 0
+            Dim CveMovimientoSalida3 As Integer = 0
+            Dim CveMovimientoEntrada3 As Integer = 0
 
-            Dim AlmacenEntrada = -1
-            Dim FolioSalida = 0
-            Dim FolioEntrada = 0
+            Dim AlmacenEntrada As Integer = -1
+            Dim FolioSalida As Integer = 0
+            Dim FolioEntrada As Integer = 0
 
             Dim ErrorMovInv As Boolean = False
             Dim ErrorAC As Boolean = False
-            Dim ErrorExistencia = False
+            Dim ErrorExistencia As Boolean = False
 
-            Dim TextoError = ""
+            Dim TextoError As String = ""
             Dim TextoExistencia As StringBuilder = New StringBuilder
 
             'Obtenemos los movimientos detalle
@@ -2521,7 +2521,7 @@ Partial Class OS_OrdenesServicios
                             If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
 
                                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then
                                         TieneError = True
                                         TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                                         Exit For
@@ -2548,7 +2548,7 @@ Partial Class OS_OrdenesServicios
                             If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
 
                                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada2, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada2, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, -1) Then
                                         TieneError = True
                                         TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                                         Exit For
@@ -2576,8 +2576,6 @@ Partial Class OS_OrdenesServicios
                 End If
             End If
 
-
-
         End If
 
         If Not TieneError Then