From 7030ef0a4093b2722cbe3def253afeb24c6c0bdf Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 3 Jul 2023 07:33:09 -0700 Subject: [PATCH] -- acomodo --- Inventarios/RecepcionUsados.aspx | 8 +++----- Inventarios/RecepcionUsados.aspx.vb | 13 +++++++------ 2 files changed, 10 insertions(+), 11 deletions(-) diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx index daad91109..5ba45d41c 100644 --- a/Inventarios/RecepcionUsados.aspx +++ b/Inventarios/RecepcionUsados.aspx @@ -78,7 +78,7 @@
-
+
"> @@ -92,7 +92,6 @@
>
@@ -192,9 +190,9 @@
- +
- +
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 7283cea80..3416520dc 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/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)