diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index 0fa3a69e6..95c381d4a 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -339,13 +339,15 @@ Partial Class Inventarios_RepAnomalias ImgExcelProdcutosCoinciden.Visible = False LnkDescarExcelGrupos.Visible = True - GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0") - GvGrupos.DataBind() - - LtlGrupos1.Text = dt.FiltraParametros("Orden = 1 and CvePS > 0").Rows.Count.ToString - LtlGrupos2.Text = dt.FiltraParametros("Orden = 2 and CvePS > 0").Rows.Count.ToString - LtlGrupos3.Text = dt.FiltraParametros("Orden = 3 and CvePS > 0").Rows.Count.ToString - + If dt IsNot Nothing Then + GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0") + LtlGrupos1.Text = dt.FiltraParametros("Orden = 1 and CvePS > 0").Rows.Count.ToString + LtlGrupos2.Text = dt.FiltraParametros("Orden = 2 and CvePS > 0").Rows.Count.ToString + LtlGrupos3.Text = dt.FiltraParametros("Orden = 3 and CvePS > 0").Rows.Count.ToString + + End If + GvGrupos.DataBind() + If DdlGPO.SelectedValue.ToEntero = 1 Then PSIguales() End If diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 8f46ab1f2..d6fc3c6b7 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -371,6 +371,9 @@ Partial Class Inventarios_TraspasoAlmacen DivMov.Visible = True ltlFolio.Text = dra("FolioGarantia").ToString Dim CveSub As Integer = dra("CveSubProyecto").ToString.ToEntero + lblCompraRef.Visible = False + hplRef.Visible = False + TxtObservaciones.Text = "Folio Garantia: " & dra("FolioGarantia").ToString 'If Mov.CveCompra > 0 Then ' hplRef.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={Mov.CveCompra}"