-

Ventas/ProductosServicios.aspx.vb

@@ -184,15 +184,14 @@ Partial Class ProductosyServicios
             InicializaValores()
             If Request("CvePS") IsNot Nothing AndAlso IsNumeric(Request("CvePS")) AndAlso Request("CvePS").ToEntero > 0 Then
                 ViewState("CvePS") = Request("CvePS")
-                CargarMarcas()
-
-                CargaDatos()
-                'Configuración de Modalidad Update
-                BtnGuardar.Text = "Guardar Cambios"
-
-                CargarAlias()
-                CargaExistencias()
 
+                If CargaDatos() Then
+                    CargarMarcas()
+                    'Configuración de Modalidad Update
+                    BtnGuardar.Text = "Guardar Cambios"
+                    CargarAlias()
+                    CargaExistencias()
+                End If
             Else
                 'Configuración de Modalidad Insert
                 RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
@@ -850,11 +849,12 @@ Partial Class ProductosyServicios
         'DdlCtaContableInventarios.DataBind()
         'ObjContabilidad.Dispose()
     End Sub
-    Private Sub CargaDatos()
+    Private Function CargaDatos() As Boolean
+        Dim Retorno As Boolean = False
         Dim ObjProductosServicios As New ClsProductosServicios()
         If ObjProductosServicios.GetPS(CvePS, -1, UsuarioActual.CveEmpresa) Then
             If ObjProductosServicios.DtResultados.Rows.Count > 0 Then
-
+                Retorno = True
                 'SI NO TIENE VALOR Y NO TIENE EL PROCESO MUESTRA SIN CLASIFICACION
                 If ObjProductosServicios.CveClasificacion.ToString.Equals("-1") And Not UsuarioActual.TienePermisoProceso(147) And UsuarioActual.Empresa.Funcionalidad(121) = "1" Then
                     DdlClasificacion.SelectedValueExist("0")
@@ -1106,7 +1106,8 @@ Partial Class ProductosyServicios
         End If
         ObjProductosServicios.Dispose()
         gvPaqueteDetalle.DataBind()
-    End Sub
+        Return Retorno
+    End Function
     Protected Sub CargarAlias()
         Dim ObjAlias As New ClsProductosServicios
         ObjAlias.GetPSAlias(CvePS, UsuarioActual.CveEmpresa)