REC001.R001 — Bandeira Michelin exige Fábrica/Planta

Módulo: REC001 · Menu: Recapadora > Parâmetros de Recapadora Classificação: intencional · Relevância: media

Regra

Quando a Bandeira da Reformadora é definida como "Michelin", o campo Reformadora/Planta (IDREFORMADORA) passa a ser obrigatório para salvar.

Quando dispara

Ao clicar em OK/Salvar com Bandeira = Michelin e Reformadora vazia.

Mensagem exibida

Para bandeira Michelin é obrigatório o código Reformadora/Planta. Verifique!

Como o usuário resolve

Informe o código da Reformadora cadastrado em TRC029 antes de salvar.

Parâmetros envolvidos

• TPBANDEIRA
• IDREFORMADORA

Evidência

Arquivo	Linhas	Rotina	O que o trecho faz
source/REC001/UframeREC001.pas	786-794	TframeREC001.actionOKExecute	Bloqueia salvar sem Reformadora quando Bandeira=Michelin

source/REC001/UframeREC001.pas:786

   if ((dmREC001.qryCadastroTPBANDEIRA.Value = 'M') and (trim(dmREC001.qryCadastroIDREFORMADORA.AsString) = '')) then
   begin
      pageControl.ActivePage := pageParametros;
      pgcParametros.ActivePage := pageOperacoes3;
      edtIDREFORMADORA.SetFocus;
      raise JException.Create('W-0000', ['Para bandeira Michelin é obrigatório o código Reformadora/Planta. Verifique!']);
   end
   else if ((dmREC001.qryCadastroTPBANDEIRA.Value <> 'M') and (trim(dmREC001.qryCadastroIDREFORMADORA.AsString) <> '')) then
      dmREC001.qryCadastroIDREFORMADORA.AsString := '';