-

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

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}"