-- corrección warning

Ventas/ProductosServicios.aspx.vb

@@ -2806,7 +2806,7 @@ Partial Class ProductosyServicios
         'End If
     End Sub
     Private Function ValidaAgregarProductosRelacionadosEcommerce() As Boolean
-        'Dim Retorno As Boolean = True
+        Dim Retorno As Boolean = True
         'Dim Mensaje As New StringBuilder
 
         ''PS
@@ -2827,7 +2827,7 @@ Partial Class ProductosyServicios
         '    Alert(Mensaje.ToString, TipoMensaje.MsgAdvertencia)
         'End If
 
-        'Return Retorno
+        Return Retorno
     End Function
     'Protected Sub GvEcommercePSRealacionados_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvEcommercePSRealacionados.RowDeleting
     '    'Dim TieneError As Boolean = False