Taxa de embarque e servico no TEF com SITEF

[Jwest]

 

Preciso que o dialogo da taxa de embarque e serviço não apareça na sequência do TEF.

Vi essa resposta antiga do Daniel em um post sobre TEF.

Eu tentei usa-la mas não parece surtir efeito.

Na sequencia de telas do Sitef, usando como base o tefdemo, o form para taxa de embarque e serviço sempre aparece.

Estou tentando escondê-la assim:

procedure TfrmPrincipal.ACBrTEFD1CliSiTefObtemCampo(Titulo: string; TamanhoMinimo,
  TamanhoMaximo, TipoCampo: Integer; Operacao: TACBrTEFDCliSiTefOperacaoCampo;
  var Resposta: AnsiString; var Digitado, VoltarMenu: Boolean);
Var
  AForm : TfrmDadosTef ;
  MR    : TModalResult ;
  PerguntaCampo:boolean;
begin
  AForm := TfrmDadosTef.Create(self);
  try
    AForm.Panel1.Caption := Titulo;
    AForm.TamanhoMaximo  := TamanhoMaximo;
    AForm.TamanhoMinimo  := TamanhoMinimo;
    AForm.Operacao       := Operacao;
    AForm.TipoCampo      := TipoCampo;
    AForm.Edit1.Text     := Resposta; { Para usar Valores Previamente informados }

    MR := AForm.ShowModal ;

    Digitado   := (MR = mrOK) ;
    VoltarMenu := (MR = mrRetry) ;

   case TipoCampo of
    504 :    // Taxas de Servico e Taxa de Embarque
        begin
          PerguntaCampo := (ACBrTEFD1.TEFCliSiTef.Tag > 0) ;

          if not PerguntaCampo then
          begin
            Digitado   := True;
            VoltarMenu := False;
            Resposta   := '0,00' ;
          end
        end ;
    else   if Digitado then
       Resposta := AForm.Edit1.Text;
   end;
  finally
    AForm.Free;
  end;
end;
 

 

Dados do post antigo do Daniel:

"Se a pergunta tive um "TipoCampo" específico a ela, você poderia simplesmente enviar a resposta para o TEFD, sem abrir a tela para o usuário...

No caso do SiTef eu uso isso para não exibir as perguntas de Taxa de Serviço e Embarque da Visa"

        504 :    // Taxas de Servico e Taxa de Embarque
        begin
          PerguntaCampo := (ACBrTEFD1.TEFCliSiTef.Tag > 0) ;

          if not PerguntaCampo then
          begin
            Digitado   := True;
            VoltarMenu := False;
            Resposta   := '0,00' ;
          end
        end ;

[Juliomar Marchetti]

tu trocou a informação da 

ACBrTEFD1.TEFCliSiTef.Tag

??

[Jwest]

Juliomar eu apenas copiei e colei e fiz alguns ajustes no TEFDemo para acomodá-lo, mas pelo que vi, quando esse código é executado já é muito tarde. Esse código é executado somente após o dialogo pedindo a a taxa de embarque ter sido mostrado.

Minha intenção é prevenir que dialogo apareça, pois não preciso dele. Não tenho taxas de embarque e serviço, no meu caso.

[Juliomar Marchetti]

PerguntaCampo := (ACBrTEFD1.TEFCliSiTef.Tag > 0) ;

veja ele está verificando um campo tag diferente de zero, no caso deve de estar zero então vai continuar a exibir pra ti

[Jwest]

Não funfa não. Coloquei a tag=1. Como disse esse codigo só é chamado após o dialogo do SITef pedindo  a taxa de embarque aparecer. Eu quero justamente o contrário, que ela não apareça.

[Jwest]

OK, Resolvido. Mudei o codigo para checar o tipo de campo primeiro antes de mostrar o form.

[Freitas Junior]

Se alguém precisa disso também como eu, a solução é ir no arquivo CliSiTef.ini, que está na pasta de sua aplicação e adicionar o parâmetro na aba geral.

[Geral]
ValorIncluiTaxa = 0 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.