Informações Gerais

   Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

Objetivo

 Permitir pesagem manual caso a máquina possua autorização mesmo a conexão com a balança estando em correto funcionamento.

Definição da Regra de Negócio

• Criar parâmetro (tab_parametro) PERMITE_PESAGEM_MANUAL_CONECTADO_BALANCA. O valor padrão para este parâmetro deverá ser 'N'.

  
  if not exists (select 1
  from tab_parametro
  where param_desc = 'PERMITE_PESAGEM_MANUAL_CONECTADO_BALANCA')
  begin
  exec proc_diu_parametro
  'I',
  'PERMITE_PESAGEM_MANUAL_CONECTADO_BALANCA',
  'N',
  1,
  'Permitir pesagem manual caso a máquina possua autorização mesmo a conexão com a balança estando em correto funcionamento.'
  PRINT 'Parametro incluido com sucesso...'
  end
  else
  PRINT 'Parametro ja existente...'

MENU - Portaria

• Realizar leitura do novo parâmetro PERMITE_PESAGEM_MANUAL_CONECTADO_BALANCA (getParam). 

vPERMITE_PESAGEM_MANUAL_CONECTADO_BALANCA  := getparam('PERMITE_PESAGEM_MANUAL_CONECTADO_BALANCA ')='S';

MENU - Portaria - Pesagem (frm_cad_balanca2)

• Criar novo componente do tipo checkbox (chkRealizarPesagemManual) conforme abaixo:
  
  
  
  
  • Por padrão este campo deverá estar não visível. Este novo campo só deverá estar visível caso o parâmetro PERMITE_PESAGEM_MANUAL_CONECTADO_BALANCA = 'S' e a máquina possua uma autorização de pesagem manual cadastrada (tab_permissao_pesagem). Para isso realizar a seguinte alteração:
    
    • Alterar a função VerificaBalanca, quando o TipoCapturaPeso <> 0 e ConectadoComaBalanca = true. Verificar se o parâmetro vPERMITE_PESAGEM_MANUAL_CONECTADO_BALANCA está habilitado e se existe autorização de pesagem para a máquina através da procedure SPConsiste. Caso o retorno do parâmetro output @w_liberado seja igual a 1, então tornar o novo componente chkRealizarPesagemManual visível.
      

      if vPERMITE_PESAGEM_MANUAL_CONECTADO_BALANCA then
      begin
      SPConsiste.close;
      SPConsiste.ParamByName('@w_equipamento').Value:= RetornaCampo('select host_name()');
      SPConsiste.ExecProc;

      
      if (SPConsiste.ParamByName('@w_liberado').AsInteger = 1) then
      chkRealizarPesagemManual.Visible := true;
      end;

      
      
      
  • Ao clicar  em "Realizar Pesagem Manual" ( evento chkRealizarPesagemManualClick) , "desligar" a leitura de peso da balança, limpar o campo peso (edtPeso) e permitir informar o peso manualmente. Para isso, realizar a seguinte alteração:

    // simula clica no componente rxswBalanca para "desligar " a captura da balança
    if rxswBalanca.StateOn then
    begin
    rxswBalanca.Perform(WM_LBUTTONDOWN, 0, 0); //Simula apertar o botão
    rxswBalanca.Perform(WM_LBUTTONUP, 0, 0); //Simula soltar o botão
    end;

    edtPeso.Enabled := true;
    edtPeso.ReadOnly := false;
    edtPeso.Clear;
    edtPeso.SetFocus;

• • Ao clicar em "ligar" a leitura de peso da balança, tornar o campo de peso somente leitura novamente. Para isso, realizar a seguinte alteração:

    • Alterar a função rxswBalancaOn para que caso o tipo de captura (TipoCapturaPeso) seja igual a 0 (SARA), além dos procedimentos já implementados, deixe o campo peso somente leitura.
      
      if rxswBalanca.StateOn then
         edtPeso.ReadOnly := rxswBalanca.StateOn;

• • Ao gravar pesagem com o checkbox "Realizar Pesagem Manual", registrar que o peso foi gravado manualmente. Para isso, realizar a seguinte alteração:

    • Substituir os locais onde encontra-se o código:

      de:

      
      if rxswBalanca.Visible then
         w_bal_tipo := 'MN'
      else
         w_bal_tipo := 'AT'

                                       para:

if rxswBalanca.Visible then

begin

    if chkRealizarPesagemManual.Checked then
       w_bal_tipo := 'MN'
   else
       w_bal_tipo := 'AT'
end
else
    w_bal_tipo := 'MN';

• O novo campo deve respeitar o comportamento dos demais com relação a estar disponível para edição somente enquanto o registro estiver em modo de edição. 
  
  
• O novo campo deve ter seu valor limpo após cancelamento, inclusão, e exclusão de registro.
  
  
• Criar atalho (ALT + M) para que o campo possa ser acionado diretamente do teclado. Para isso, adicionar o caracter & antes da palavra Manual na propriedade do componente Caption (Realizar Pesagem &Manual).