Identificador de Regra

GER-095FORAO02

Módulo: GER - Gerais.

Finalidade: Permite efetuar consistências em todos os campos da tabela de fornecedor, além de permitir atribuir valores para campos de usuário desta tabela. Embora na regra também seja possível atribuir valores para campos de sistema, tais valores são desconsiderados após a execução da regra.

Características: Os campos da tabela podem ser acessados no formato NOMETABELA.NOMECAMPO, tanto para campos de sistema como para campos de usuário.

Exemplo: E095FOR.CODFOR, E095FOR.USU_FORBLO.

Para verificar os nomes dos campos da tabela pode ser utilizado o aplicativo Central de Banco de Dados Senior (CDBS) ou através da tela de Tabelas e Campos disponível pelo menu em Diversos > Campos/Tabelas.

Tela: F095CAD, Serviços - Cadastro Fornecedores

Transação: Não se aplica.

Regra:

Definir Alfa VSEstado;
Definir Alfa ENTER;
Definir Alfa vMsg;
Definir Alfa vCodFor;

CaracterParaAlfa(10, ENTER);
IntParaStr(E095FOR.CodFor,vCodFor);

vMsg = "";

se ((E095for.USU_CodCon = 0) e ((VSEstado = "INSERINDO") ou (VSEstado = "ALTERANDO")))
vMsg = "Informe o campo de usuário XXXX!";

se (VSEstado = "INSERINDO")
vMsg = "Fornecedor " + vCodFor + " criado!";
senao
se (VSEstado = "ALTERANDO")
vMsg = "Fornecedor " + vCodFor + " alterado!";
senao
se (VSEstado = "EXCLUINDO")
vMsg = "Fornecedor " + vCodFor + " excluído!";

Variáveis Disponibilizadas: