Pular para o conteúdo principal

TFA006.R001 — Código e descrição da Tabela de Preço são obrigatórios

Módulo: TFA006 · Menu: Cadastros > Tabelas de Faturamento > Tabelas de Preço Classificação: intencional · Relevância: sistemica

Regra​

Não é possível salvar uma Tabela de Preço sem código e sem descrição.

Quando dispara​

Ao gravar (Post) a aba Tabelas de Preço

Mensagem exibida​

É Obrigatório Informar o Código da Tabela de Preços! / É Obrigatório Informar a Descrição da Tabela de Preços!

Como o usuário resolve​

Preencher Código e Descrição antes de salvar.

Evidência​

ArquivoLinhasRotinaO que o trecho faz
source/TFA006/UdmTFA006.pas443-454TdmTFA006.tabTABPRECOBeforePostValida obrigatórios da tabela de preço antes de gravar.

source/TFA006/UdmTFA006.pas:443

procedure TdmTFA006.tabTABPRECOBeforePost(DataSet: TDataSet);
begin
   \{ Verifica se o Código da Tabela de Preço foi Digitado \}
   if ( tabTABPRECOCD_TABPRECO.AsString = '' ) then
      Raise JException.Create('E-0000',['É Obrigatório Informar o Código da Tabela de Preços!']);
   \{ Verifica se a Decrição da Tabela de Preço foi Digitado \}
   if ( tabTABPRECODS_TABPRECO.AsString = '' ) then
      Raise JException.Create('E-0000',['É Obrigatório Informar a Descrição da Tabela de Preços!']);

   if (Trim(tabTABPRECODT_VALIDADE.AsString) = '') then
      tabTABPRECODT_VALIDADE.Clear;
end;