Vinculacion de NC en compras, PA de poliza virutal en ventas.aspx

App_Code/ClsAcumuladores.vb

@@ -753,7 +753,21 @@ Public Class ClsAcumuladores
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As SqlException
-            OnError("Ocurrió un al agregar la garantia detalle. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            OnError("Ocurrió un al obtener la garantía detalle. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+    Public Function GetGarantiasPolizaVirtual(CveVenta As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        SqlDataAdapter("PA_Acum_GarantiasPolizaVirtualGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un al obtener la información de poliza virtual.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return Retorno
     End Function

Compras/Compras.aspx.vb

@@ -13590,6 +13590,7 @@ Partial Class Compras_Compras
     '    guardardevolucion(ObjInventario, cvecompra, subtotal, Now.ToDate)
     'End Sub
     Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs)
+        Try
             Dim subtotaldevolucion As Double = 0
             Dim realizadevolucion As Boolean = False
 
@@ -13618,6 +13619,10 @@ Partial Class Compras_Compras
             Else
                 Alert("No se ha seleccionado nada para la devolución. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
             End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al realizar la vinculación", ex)
+        End Try
+
 
     End Sub
 
@@ -13681,7 +13686,7 @@ Partial Class Compras_Compras
         GvOC1.DataSource = DTOCTemp
 
         Dim DTCVEOCS As DataTable = DTOCTemp.FiltraParametros("", "", {"CveOrdenCompra"})
-        If DTCVEOCS.Rows.Count > 1 Then
+        If DTCVEOCS IsNot Nothing AndAlso DTCVEOCS.Rows.Count > 1 Then
             GvOC1.Columns(0).Visible = True
         Else
             GvOC1.Columns(0).Visible = False