--double a decimal

Inventarios/RecepcionUsados.aspx.vb

@@ -509,7 +509,7 @@ Partial Class Inventarios_RecepcionUsados
 
                 AddNew(CvePS, CodigoPS, CveUM, UnidaMedida, Cantidad, PU, "", "-1", "-1", "-1", "", "", -1, "", "", CveTamanio)
 
-                Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
+                Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
 
                 CreaRemisionNC(CveCliente, CveSubProyecto, 1)
 
@@ -858,7 +858,7 @@ Partial Class Inventarios_RecepcionUsados
         Dim Inv As New ClsInventarios
         Dim Conta As New ClsContabilidad(Inv.IniciaTransacSQL())
 
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         Dim ObjConta As ClsContPAQi = Nothing
         If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
@@ -1202,7 +1202,7 @@ Partial Class Inventarios_RecepcionUsados
         If Me.CveRemisionRecibida <= 0 Then 'EsDistribuidor AndAlso , comentado, 2020.04.21 RMF
             GenerarRNC = True
             Dim CveCliente As Integer = DdlClientes.SelectedValue.ToEntero()
-            Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero
+            Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero
 
             CreaRemisionNC(CveCliente, CveSubProyecto, 1)
         End If
@@ -1245,9 +1245,7 @@ Partial Class Inventarios_RecepcionUsados
                     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))
 
-                    'cuando es APH
                     Dim tFolio As Integer = -1
-                    If UsuarioActual.CveEmpresa = 48 And EsConsumoInterno = False Then tFolio = TxtFolio.Text.ToEntero
                     If Not tFolio > 0 Then
                         tFolio = If(TxtFolio.Text.ToEntero <> FolioAsignado, TxtFolio.Text.ToEntero, -1)
                     End If
@@ -1474,7 +1472,7 @@ Partial Class Inventarios_RecepcionUsados
 
                     If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
                         If ObjConta.ValorPolizaDescuadre > 0 Then
-                            GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                            GuardaLogAD($"Inventarios/RecepcionUsados-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                             Correcto = False
                         End If
                     End If
@@ -1581,7 +1579,7 @@ Partial Class Inventarios_RecepcionUsados
         End If
 
         'Dim filtro As String = ""
-        Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+        Dim CveTipoAlmacen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
 
         'filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27,29)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)")
 
@@ -1673,7 +1671,7 @@ Partial Class Inventarios_RecepcionUsados
 
             End If
 
-            Dim Total = DtTemp.SUM("Total")
+            Dim Total As Decimal = DtTemp.SUMD("Total")
 
             TxtTotal.Text = Total.FormatoNumero(2)
         End If
@@ -1855,7 +1853,7 @@ Partial Class Inventarios_RecepcionUsados
 
 
         'AGREGA
-        Dim Dr = DtBitacora.NewRow
+        Dim Dr As DataRow = DtBitacora.NewRow
         Dr("FechaIng") = NowADS()
         Dr("FechaInicio") = ""
         Dr("Usuario") = UsuarioActual.Usuario
@@ -1885,7 +1883,7 @@ Partial Class Inventarios_RecepcionUsados
         UPEventoBitacora.Update()
     End Sub
     Private Function GuardaBitacoraTemporal(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         Dim Archivo As System.IO.FileInfo = Nothing
 
         For Each Dr As DataRow In DtBitacora.Rows
@@ -2014,7 +2012,7 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
     Private Sub CambiaCliente(Optional CargaSucursales As Boolean = True, Optional CargaFacturas As Boolean = True)
         If DdlClientes.SelectedValue.ToEntero > 0 Then
-            Dim strDistribuidor = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero(), Estatus:=-1).FiltroPrimeroValor("EsDistribuidor", "")
+            Dim strDistribuidor As String = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero(), Estatus:=-1).FiltroPrimeroValor("EsDistribuidor", "")
             If String.IsNullOrEmpty(strDistribuidor) Then
                 strDistribuidor = "False"
             End If
@@ -2101,7 +2099,7 @@ Partial Class Inventarios_RecepcionUsados
 
             If tmpCostos.Rows.Count > 0 Then
                 Dim Concepto As String = $" {TxtObservaciones.Text}"
-                Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, $"F: {HplVenta.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, $"F: {HplVenta.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 If HdnCveOrdenCompra.Value.ToEntero > 0 Then
                     MovAlmacen = False
@@ -2318,7 +2316,7 @@ Partial Class Inventarios_RecepcionUsados
             If CveCliente > 0 Then
                 DivCliente.Visible = True
 
-                Dim Cliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial")
+                Dim Cliente As String = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial")
 
                 DdlClientes.SelectedValue = CveCliente.ToString()
                 DdlClientes.SelectedText = Cliente
@@ -2350,9 +2348,8 @@ Partial Class Inventarios_RecepcionUsados
                 'DivRecepcionApartado.Visible = True
 
                 For Each RowUsado As DataRow In DtUsados.Rows
-                    Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
-
-                    Dim RowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).Rows(0)
+                    Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero()
+                    Dim RowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).Rows(0)
                     Dim CveTamaño As Integer = RowPS("CveTamaño").ToString().ToEntero()
 
                     Dim PS As String = RowPS("PS").ToString()
@@ -2361,7 +2358,7 @@ Partial Class Inventarios_RecepcionUsados
                     Dim Cantidad As Double = RowUsado("Cantidad").ToString().ToEntero()
                     Dim PU As Double = RowUsado("PU").ToString().ToDouble()
 
-                    Dim CveVentaDetalle = RowUsado("CveVentaDetalle").ToString().ToEntero()
+                    Dim CveVentaDetalle As Integer = RowUsado("CveVentaDetalle").ToString().ToEntero()
 
                     AddNew(CvePS, PS, CveUM, UM, Cantidad, PU, "", "-1", "-1", "-1", "", "", DdlAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedItem.Text, "", CveTamaño, CveVentaDetalle:=CveVentaDetalle)
 
@@ -2466,7 +2463,7 @@ Partial Class Inventarios_RecepcionUsados
                 Me.ObjRemisionNC.CveMetodoPago = ObjCliente.CveMetodoPago33
 
                 If GlobalDTMetodosPago IsNot Nothing Then
-                    Dim DtMetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))
+                    Dim DtMetodoPago As DataTable = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))
 
                     If DtMetodoPago IsNot Nothing Then
 
@@ -2649,7 +2646,7 @@ Partial Class Inventarios_RecepcionUsados
 
     End Function
     Protected Function CreaDTDetalleRNC() As DataTable
-        Dim TmpDT = New DataTable
+        Dim TmpDT As New DataTable
         TmpDT.Columns.Add("CveVenta", GetType(Integer))
         TmpDT.Columns.Add("Consec", GetType(Integer))
         TmpDT.Columns.Add("Cantidad", GetType(Decimal))
@@ -2990,7 +2987,7 @@ Partial Class Inventarios_RecepcionUsados
                     DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
                 End If
 
-                Dim Arr = PS.Split("-"c)
+                Dim Arr As String() = PS.Split("-"c)
                 If Arr.Count > 1 Then
                     If (DdlBCIAjuste.Items.FindByText(Arr(1).ToString) IsNot Nothing) Then
                         DdlBCIAjuste.SelectedValueExist(DdlBCIAjuste.Items.FindByText(Arr(1).ToString).Value)
@@ -3007,7 +3004,7 @@ Partial Class Inventarios_RecepcionUsados
                 Exit Sub
             End If
 
-            Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero
+            Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero
 
             If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es  10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente
                 Dim TipoPrecioLista As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero
@@ -3102,7 +3099,7 @@ Partial Class Inventarios_RecepcionUsados
         DdlFolioGarantia.Items.Clear()
 
         If DdlAlmacen.SelectedValue.ToEntero() > 0 Then
-            Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero()
+            Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero()
             Dim ObjAcum As New ClsAcumuladores
             If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, CveSubProyecto:=CveSubProyecto, Area:=2) Then
                 DdlFolioGarantia.DataSource = ObjAcum.DtResultados
@@ -3452,7 +3449,7 @@ Partial Class Inventarios_RecepcionUsados
             Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
             Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
         Else
-            Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero()}")
+            Dim CveSubProyecto As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero()}")
 
             Objeto.Attributes.Add("data-cvesubproyecto", CveSubProyecto)
             'Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString)
@@ -3480,7 +3477,7 @@ Partial Class Inventarios_RecepcionUsados
         End If
 
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-        Dim logouri = String.Format("{0}//{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim logouri As String = String.Format("{0}//{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
         Dim DtDatos As New DataTable
 
         Dim params As New List(Of ReportParameter)