Campo 706-000 Valor Igual A 2 - Em Homologacao

[matheus_futura]

Boa tarde a todos,

no meu tef o campo CAMPO 706-000  esta saindo 3, preciso que saia 2 nesse campo

alguem sabe como fazer?

 

estou em homologacao, obrigado a todos...

 

[Daniel Simoes]

Informe mais detalhes... como saberemos o que é o campo 706 ???

 

Se é algo que o TEF lhe devolve não há como mudar...

[matheus_futura]

A Automação Comercial deve indicar em todos os arquivos de solicitação através do campo 706-000 se suporta a funcionalidade de saque (valor 1), a funcionalidade de desconto (valor 2), ambas (valor 3) ou nenhuma (valor 0). Caso este campo não seja informado (versões anteriores da Automação Comercial), o TEF assume o valor 0 (nenhuma das funcionalidades é suportada).

O homologador me passou informando isso...

c:\tef_dial\req\intpos.001

EX:

000-000 = CRT

001-000 = 61200

003-000 = 020

004-000 = 0

701-000 = SISTEMA 1.0

706-000 = 3

716-000 = EMPRESA X

999-999 = 0

Editado 24 Abril, 2013 por matheus_futura

[matheus_futura]

já encontrei

junto com as informacoes da empresa tem a operacao, lá está previsto apenas codigo 3 ou 1... nao preve codigo 2

[Daniel Simoes]

O ACBrTEFD suporta SAQUE e DESCONTO, então o correto é 3... 

Porque o homologador quer mudar isso ? É um direito da aplicação comercial informar o que ela suporta... Se fosse para ser um valor fixo não teria sentido perguntar...

[marciodc]

Eu suponho que você não queira trabalhar com saque + desconto (3) e sim apenas desconto (2). Se for isso, vai ter que alterar o código fonte.

 

Localize a procedure abaixo e altere de acordo com a sua necessidade.

 

 

procedure TACBrTEFDClass.AdicionarIdentificacao;

var

  TemIdentificacao : Boolean ;

  Operacoes : String ;

begin

  TemIdentificacao := False;

  

  with TACBrTEFD(Owner) do

  begin

     if (Identificacao.NomeAplicacao + Identificacao.VersaoAplicacao <> '') then

     begin

        Req.Conteudo.GravaInformacao(701,000, Trim( Identificacao.NomeAplicacao + ' ' +

                                                    Identificacao.VersaoAplicacao ) ) ;

        TemIdentificacao := True;

     end;

 

     if (Identificacao.RazaoSocial <> '') then

     begin

        Req.Conteudo.GravaInformacao(716,000, Identificacao.RazaoSocial ) ;

        TemIdentificacao := True;

     end;

 

     Operacoes := '1';      // 1 = Suporta Saque, 2 = Suporta Desconto

     if Assigned( OnComandaECFSubtotaliza ) and (not AutoEfetuarPagamento) then

        Operacoes := '3';   // 1 + 2 = Suporta Saque e Desconto

 

     if TemIdentificacao then

        Req.Conteudo.GravaInformacao(706,000, Operacoes ) ;

  end;

end; 

[matheus_futura]

<p>Marcio Boa Tarde.</p>

<p>Sim realmente acabou n&atilde;o dando tempo, mais &eacute; nesse lugar mesmo que vou mexer, quando eu fizer, caso n&atilde;o tenha sido feeito eu passo o fonte caso queiram alterar no projeto</p>

<p>&nbsp;</p>

<p>mais &eacute; realmente isso o problema que eu tive Marcio!</p>

<p>&nbsp;</p>

<p>eu trato desconto, mas nao trato saque!</p>

<p>&nbsp;</p>

<p>Obrigado a todos que me ajudaram!</p>

Editado 26 Abril, 2013 por matheus_futura

[Daniel Simoes]

A meu ver, não é necessária correção nos fontes do Projeto, pois como eu disse antes, o ACBrTEFD suporta Saque e Premia... portanto ele DEVE informar corretamente o valor 3

[matheus_futura]

Corretamente Daniel, mais quem não quiser utilizar essas opções no sistema, deve enviar 2. Eu não quero opção de saque, meu sistema nao permite essa função, então devo enviar 2... obrigado!

[Daniel Simoes]

Provavelmente você precise de mais modificações no componente para isso... e não apenas informar 2...

 

Lembre-se de que se você modificar o componente, vc perde a compatibilidade com o ACBrTEFD

[Juliomar Marchetti]

Daniel lembra que fiquei de passar uma possível ideia sobre o assunto e diz respeito a isso

pensei e fiz no meu para testar duas propriedades booleanas

assim não iria necessitar verificar o evento onsubtotalizar do ACBrTEFD para o premia e o SAC

claro que verificando se a informação do sistema e da empresa estão sendo enviadas

[Cleber Ferreira]

 

Eu suponho que você não queira trabalhar com saque + desconto (3) e sim apenas desconto (2). Se for isso, vai ter que alterar o código fonte.

 

Localize a procedure abaixo e altere de acordo com a sua necessidade.

 

 

procedure TACBrTEFDClass.AdicionarIdentificacao;

var

  TemIdentificacao : Boolean ;

  Operacoes : String ;

begin

  TemIdentificacao := False;

  

  with TACBrTEFD(Owner) do

  begin

     if (Identificacao.NomeAplicacao + Identificacao.VersaoAplicacao <> '') then

     begin

        Req.Conteudo.GravaInformacao(701,000, Trim( Identificacao.NomeAplicacao + ' ' +

                                                    Identificacao.VersaoAplicacao ) ) ;

        TemIdentificacao := True;

     end;

 

     if (Identificacao.RazaoSocial <> '') then

     begin

        Req.Conteudo.GravaInformacao(716,000, Identificacao.RazaoSocial ) ;

        TemIdentificacao := True;

     end;

 

     Operacoes := '1';      // 1 = Suporta Saque, 2 = Suporta Desconto

     if Assigned( OnComandaECFSubtotaliza ) and (not AutoEfetuarPagamento) then

        Operacoes := '3';   // 1 + 2 = Suporta Saque e Desconto

 

     if TemIdentificacao then

        Req.Conteudo.GravaInformacao(706,000, Operacoes ) ;

  end;

end; 

 

 

Uma observação a fazer. Aqui no final onde atribui o Operacoes. Só recebe '3' se eu estiver usando o OnComandaECFSubtotaliza. Eu não o utilizo, então para dar certo, tive que comentar dentro do evento apenas.

[Daniel Simoes]

Sim, é o mesmo caso que o Juliomar está falando...

 

Talvez seja mais elegante criar propriedades para essas funcionalidades... Alguém se habilita ?

[marciodc]

Estou homologando o Sitef essa semana e não tenho como fazer nos próximos dias. Mas se ninguém fizer até a próxima semana eu faço e envio o código.

[Juliomar Marchetti]

Bom dia queiram por favor atualizar o svn e testar

At revision: 5365

 

duas propriedades SuportaDesconto e SuportaSaque

Assim não se faz mais obrigatório ter o evento programado para que seja enviado o registro 706 do tef

 

Favor reportar aqui problemas de compatibilidade

[Paulinho]

Ola Juliomar, após a atualização o delphi apresentou erros de que o SuportaSaque e SuportaDesconto

 não estão declaradas.

[Juliomar Marchetti]

Não você esqueceu de recompilar o pacote para que essas propriedades estejam disponíveis na IDE