Pular para o conteúdo principal

MCO008.R001 — Acesso restrito a compradores cadastrados

Módulo: MCO008 · Menu: Cotações > Movimentações > COMPRA DE ITENS Classificação: intencional · Relevância: alta

Regra​

Somente usuários com registro na tabela COMPRADOR conseguem abrir a tela; caso contrário o acesso é bloqueado e as ações ficam suspensas.

Quando dispara​

Ao abrir a tela Compra de Itens.

Mensagem exibida​

O usuario "..." não é comprador. [TFA001, TFA011]

Como o usuário resolve​

Cadastrar o usuário como comprador (TFA011) vinculado à pessoa correta em TFA001.

Evidência​

ArquivoLinhasRotinaO que o trecho faz
source/MCO008/UMCO008.pas223-235iniciarConsulta COMPRADOR pelo usuário e bloqueia a tela se não encontrar.

source/MCO008/UMCO008.pas:223

  // Verifica se usuário é comprador
  retorno := ExecutaConsulta(dmMCO008.transaction,
    'SELECT U.CD_USUARIO, C.CD_COMPRADOR ' +#10+
    'FROM USUARIO U ' +#10+
    'LEFT JOIN COMPRADOR C ON (C.CD_COMPRADOR = U.CD_PESSOA) ' +#10+
    'WHERE U.CD_USUARIO = ' + QuotedStr(sessao.usuario.cd_usuario));

  if (retorno[1] = EmptyStr) then
  begin
    frmMCO008.actionList.State := asSuspended;
    frmMCO008.pageGradeFornec.TabVisible := false;
    raise JException.Create('E-0000',['O usuario "' + retorno[0] + '" não é comprador. [TFA001, TFA011]']);