Duvida sobre TEF dedicado na leitura dos dados do cheque

[Daniel_FC]

Estou fazendo a homologação do TEF dedicado, e no meu pdv eu leio todos dados do cheque, e quando o tef vai fazer a consulta, ele abre a solicitação dos campos dos dados do cheque novamente (função do componente) com os valores que eu digitei na tela do pdv já carregados.

Como que faço para na consulta do cheque não pedir novamente os dados do cheque que o componente solicita ?

Daniel.

[Daniel Simoes]

Durante a homologação, vc precisa realmente exibir novamente as Telas, caso contrário eles irão solicitar isso...

Mas depois, basta você verificar o Tipo do campo que chega no evento OnObtemCampo e atrabuir manualmente a resposta a ele...

Exemplo:

      case TipoCampo of

        504 :    // Taxas de Servico e Taxa de Embarque

          begin

            Digitado   := True;

            VoltarMenu := False;

            Resposta   := '0,00' ;

          end ;

        else

[/code]

[Daniel_FC]

Daniel, obrigado por responder, mas ainda não consegui fazer funcionar.

Coloquei o procedimento conforme você me passou, mas não funcionou.

Segue o meu código abaixo:

procedure TFrm_MainP.iTEFCliSiTefObtemCampo(Titulo: String; TamanhoMinimo,

  TamanhoMaximo, TipoCampo: Integer;

  Operacao: TACBrTEFDCliSiTefOperacaoCampo; var Resposta: String;

  var Digitado, VoltarMenu: Boolean);

Var

  AForm : TFrm_ColetaD;

  MR    : TModalResult ;

begin

  AForm := TFrm_ColetaD.Create(self);

  try

    TEFSaque := 0;

    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 }


    {Mask Campo Supervisor}

    if (TipoCampo = 500) then

      AForm.Edit1.PasswordChar := '*';


    {Mask Campo Tamanho - Seq 13}

    if (TipoCampo = 512) then

      AForm.Edit1.MaxLength := 16;


    {Mask Campo Tamanho - Seq 51}

    if (TipoCampo = 514) then

      AForm.Edit1.MaxLength := 5;


    {Campo Seq 54 valor Saque}

    if (TipoCampo = 130) then

    begin

      AForm.Edit1.Text := '0,00';

      AForm.Edit1.SelectAll;

    end;


--------------------------a partir daqui--------------------------------

    {Consulta Cheq}

    case TipoCampo of

      504 :    // Taxas de Servico e Taxa de Embarque

        begin

          Digitado   := True;

          VoltarMenu := False;

          Resposta   := '0,00' ;

        end ;

      501 :    // Dados do Cheque

        begin

          Digitado   := True;

          VoltarMenu := False;

          Resposta   := '0' ;

        end ;

      502 :    // Dados do Cheque

        begin

          Digitado   := True;

          VoltarMenu := False;

          Resposta   := '0' ;

        end ;

      506 :    // Dados do Cheque

        begin

          Digitado   :=True;

          VoltarMenu := False;

          Resposta   := '0' ;

        end ;

      517 :    // Dados do Cheque

        begin

          Digitado   :=True;

          VoltarMenu := False;

          Resposta   := '0' ;

        end ;

      end;


--------------------------até aqui--------------------------------


      MR := AForm.ShowModal ;


    {Campo Tamanho - Seq 54 valor Saque}

    if (TipoCampo = 130) and (Trim(AForm.Edit1.Text) <> '') then

      TEFSaque := StrToFloat(AForm.Edit1.Text);


    Digitado   := (MR = mrOK) ;

    VoltarMenu := (MR = mrRetry) ;


    if Digitado then

       Resposta := AForm.Edit1.Text;

  finally

    AForm.Free;

  end;

end;

[Daniel Simoes]

O que não funcionou ?

Ao que parece vc continua fazendo a abertura do form ShowModal, mesmo já tendo a resposta que deseja... corrija isso...

[Daniel_FC]

Oi Daniel, alterei para não chamar o showmodal, colocando dentro do else mas agora ele não finaliza, fica parado e não faz nada, não segue a consulta do cheque, simplesmente não faz nada mesmo.

{Consulta Cheq}

case TipoCampo of

504 : // Taxas de Servico e Taxa de Embarque

begin

Digitado := True;

VoltarMenu := False;

Resposta := '0,00' ;

end ;

501 : // Dados do Cheque

begin

Digitado := True;

VoltarMenu := False;

Resposta := '0' ;

end ;

502 : // Dados do Cheque

begin

Digitado := True;

VoltarMenu := False;

Resposta := '0' ;

end ;

506 : // Dados do Cheque

begin

Digitado :=True;

VoltarMenu := False;

Resposta := '0' ;

end ;

517 : // Dados do Cheque

begin

Digitado :=True;

VoltarMenu := False;

Resposta := '0' ;

end ;

else

MR := AForm.ShowModal ;

end;

[Daniel Simoes]

provavelmente vc está informando a resposta errada... (notei que está tudo '0')... entenda, a variável "Resposta" deve conter o que o usuário digitaria

[Daniel_FC]

Agora funcionou, na verdade a resposta já estava vindo preenchida, só tive que acrescentar o MR := mrOK

517 : // Dados do Cheque

begin

Digitado :=True;

VoltarMenu := False;

MR := mrOK ;

end;