Jwest Postado 9 Março, 2018 Compartilhar Postado 9 Março, 2018 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 ; Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 9 Março, 2018 Moderadores Compartilhar Postado 9 Março, 2018 tu trocou a informação da ACBrTEFD1.TEFCliSiTef.Tag ?? Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Jwest Postado 9 Março, 2018 Autor Compartilhar Postado 9 Março, 2018 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. Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 9 Março, 2018 Moderadores Compartilhar Postado 9 Março, 2018 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 Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Jwest Postado 9 Março, 2018 Autor Compartilhar Postado 9 Março, 2018 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. Link para o comentário Compartilhar em outros sites More sharing options...
Jwest Postado 10 Março, 2018 Autor Compartilhar Postado 10 Março, 2018 OK, Resolvido. Mudei o codigo para checar o tipo de campo primeiro antes de mostrar o form. Link para o comentário Compartilhar em outros sites More sharing options...
Freitas Junior Postado 3 Abril Compartilhar Postado 3 Abril 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 1 Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 3 Abril Moderadores Compartilhar Postado 3 Abril Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico. Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts