-

Ventas/Clientes.aspx.vb

@@ -487,10 +487,10 @@ Partial Class Clientes
         Set(value As String)
             ViewState("linkDescargaPagare") = value
         End Set
-    End Property
-
+    End Property
+
 #End Region
-
+
 #Region "Documentacion"
     Private Property DTDocumentacion As DataTable
         Get
@@ -5984,6 +5984,9 @@ Partial Class Clientes
 #Region "C U E N T A S - B A N C A R I A S"
 
     Private Sub CargaCuentasBancarias()
+
+        If CveCliente <= 0 Then Exit Sub
+
         Dim ObjCuentasBancos As New ClsGenerales
         ViewState("OrdenCuentasBancos") = ""
         DTCuentasBancos = New DataTable

Ventas/ProductosServicios.aspx.vb

@@ -222,7 +222,7 @@ Partial Class ProductosyServicios
 
             InicializaEcommerce()
 
-            If UsuarioActual.CveEmpresa.Contiene(141) Then
+            If UsuarioActual.CveEmpresa.Contiene(141, 152) Then
                 'DivDatos.Attributes("class") = "col-md-12"
 
                 DivDdlTipo.Visible = True