Error al consultar cliente

Ventas/PV.aspx.vb

@@ -1579,9 +1579,8 @@ Partial Class PV
     End Sub
 
     Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = 1)
-
         Dim ObjCliente As New ClsClientes()
-
+        Try
             If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, Estatus, TipoCliente:=-1) Then
                 If ObjCliente.DtResultados.Rows.Count > 0 Then
                     TxtCodigo.Text = ObjCliente.Codigo
@@ -1622,7 +1621,9 @@ Partial Class PV
 
                     If (Boolean.Parse(ObjCliente.DtResultados(0)("EsDistribuidor").ToString)) Then
                         TrEsDistribuidor.Visible = True
+                        If Not String.IsNullOrEmpty(ObjCliente.Vendedor) Then
                             LbVendedor.Text = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor = {ObjCliente.Vendedor}")
+                        End If
                     Else
                         TrEsDistribuidor.Visible = False
                     End If
@@ -1734,6 +1735,9 @@ Partial Class PV
                     Alert("El cliente solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgError)
                 End If
             End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al asignar el cliente", ex)
+        End Try
         ObjCliente.Dispose()
         UPCondicionesPago.Update()
     End Sub