-- acomodo

Inventarios/RecepcionUsados.aspx.vb

@@ -3089,7 +3089,7 @@ Partial Class Inventarios_RecepcionUsados
             End If
 
             DdlTipoUso.Items.Clear()
-            DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca)
+            DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca, -1, -1)
             DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
             DdlTipoUso.DataBind()
 
@@ -3246,10 +3246,11 @@ Partial Class Inventarios_RecepcionUsados
 
                 CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
 
-                Dim ObjAcum As New ClsAcumuladores
-                If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
-                    If ObjAcum.DtResultados.Rows.Count > 0 Then
-                        TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100.0).FormatoNumero
+                Dim dtt As DataTable = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero)
+
+                If dtt IsNot Nothing Then
+                    If dtt.Rows.Count > 0 Then
+                        TxtPorcentajeAjuste.Text = (dtt.Rows(0)("Valor").ToString.ToDouble / 100.0).FormatoNumero
 
                         TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
 
@@ -3293,7 +3294,7 @@ Partial Class Inventarios_RecepcionUsados
                         TxtImporteAjuste.Text = "0.00"
                     End If
                 End If
-                ObjAcum.Dispose()
+
             End If
         Catch ex As Exception
             OnError("Ocurrió un error al recalcular el costo", ex)