Homologação VeSPague

[Ivan Orosco]

Pessoal, estou homologando minha aplicação com o VeSPague também, no entanto com relação a cancelamento e reimpressão de comprovantes TEF, eu vi que o ACBR faz a impressão de uma Leitura X junto, dai falei lá pro minino da VeSPague (Marlon) e ele me informou que isso não é necessário. Como que desativo o componente do TEFD ou ACBRECF para não imprimir a leitura X em casos de cancelamneto e reimpressão de comprovantes ?

Outra coisa que identifiquei dentro do roteiro de testes pra homologação... na situação em que é realizado uma venda com 2 cartões, ao se desligar a impressora fiscal na impressao de alguma via do comprovante de TEF e responder a questão "Tentar Novamente" com NAO, então deve ser comandado o cancelamento das transações. Porém, o ACBR estava realizando o cancelamento apenas da última transação. Fiz um desvio grotesco até pois não conheço os fontes do ACBR para corrigir a situação e gostaria de saber dos colegas mais experientes se isso pode ser mantido ou se eu estou fazendo cacá no código, o trecho é o seguinte:

Arquivo ACBrTEFDClass.pas, na procedure TACBrTEFDClass.CancelarTransacoesPendentesClass a partir da linha 2118:

  {  Verificando se essa Resposta já foi cancela em outro arquivo } 

        JaCancelado := False ; 


        ///meu desvio... 

        if Tipo<>gpVeSPague then 

           begin 


              I := 0 ; 

              while (not JaCancelado) and (I < RespostasCanceladas.Count) do 

              begin 

                 if RespostasCanceladas[I] is TACBrTEFDRespTXT then 

                  begin 

                    with TACBrTEFDRespTXT( RespostasCanceladas[I] ) do 

                    begin 

                       JaCancelado := (Resp.Rede        = Rede)        and 

                                      (Resp.NSU         = NSU)         and 

                                      (Resp.Finalizacao = Finalizacao) and 

                                      (Resp.ValorTotal  = ValorTotal) ; 

                    end; 

                  end 

                 else 

                  begin 

                    with TACBrTEFDResp( RespostasCanceladas[I] ) do 

                    begin 

                       JaCancelado := (Resp.DocumentoVinculado = DocumentoVinculado) ; 

                    end; 

                  end; 


                 Inc( I ) ; 

              end; 



           end;

Só assim funcionou e conseguir cumprir o roteiro, pois dessa forma a variavel JaCancelado permanece False e realiza o cancelamento de cada transação pendurada senão ele cancelava somente a última e as demais a variável JaCancelado ficava True e não fazia o NCN. Será que tá certo isso ?

E aproveitando pra reforçar a minha última pergunta aqui neste tópico... como faço para desativar a impressão da Leitura X na reimpressão de comprovantes TEF cancelados ou reimpressos ?

[]'s

[Daniel Simoes]

Esse código existe porque no caso do TEF discado, pode haver o arquivo de Backup criado pelo ACBrTEFD e o INTPOS.001 que ainda não foi apagado, ambos se referindo a mesma transação...

Não vejo como isso pode interferir no V&SPague... pois a variável JaCancelado só será True se a transação for idêntica (mesmo NSU, valor e tudo mais) a uma já cancelada anteriormente

[Daniel Simoes]

Hummm agora que notei o IF

if RespostasCanceladas is TACBrTEFDRespTXT then

(incrível como a gente esquece o que escreveu)

Acho que a final de contas a sua alteração faz sentido... apenas no caso do SiTEF, que o cancelamento deve ser feito apenas 1 por documento (ele já cancela todas as transações pendentes para esse documento)... acho que o V&SPague não faz isso... Vou aplicar no SVN

[Daniel Simoes]

Tente assim:

        {  Verificando se essa Resposta já foi cancela em outro arquivo }

        JaCancelado := False ;

        I := 0 ;

        while (not JaCancelado) and (I 
        begin

           if (RespostasCanceladas[I] is TACBrTEFDRespTXT) or

              (Tipo = gpVeSPague) then

            begin

              with TACBrTEFDResp( RespostasCanceladas[I] ) do

              begin

                 JaCancelado := (Resp.Rede        = Rede)        and

                                (Resp.NSU         = NSU)         and

                                (Resp.Finalizacao = Finalizacao) and

                                (Resp.ValorTotal  = ValorTotal) ;

              end;

            end

           else

            begin

              with TACBrTEFDResp( RespostasCanceladas[I] ) do

              begin

                 JaCancelado := (Resp.DocumentoVinculado = DocumentoVinculado) ;

              end;

            end;


           Inc( I ) ;

        end;

[/code]

afinal sempre é bom verificar se a transação já foi cancelada 

[Augusto]

Boa noite!

Sou novo no forum e estou desenvolvendo uma aplicação TEF com o V&SPague!

Daniel gostaria de saber se esta implementação mostrada por vc acima

já foi adicionada para download ! Obrigado!

[Daniel Simoes]

SIM, já está no SVN

[Ivan Orosco]

Valeu pelo código Daniel

E com relação a minha primeira pergunta no post ? sobre não imprimir leitura X caso a impressora seja desligada no meio da impressao do comprovante do TEF, tem como ?

[]'s

[Daniel Simoes]

Isso é uma características apenas de ECFs matriciais, que por determinação legal, emitem uma Leitura X sempre antes de um Relatório gerencial... Não há como mudar isso... Ou seja, não é o ACBr que faz isso, mas sim o ECF... (a não ser que vc troque de ECF )

[Ivan Orosco]

Hmmmmm, ok, valeu

[Daniel Simoes]

Uma resposta bem mais adequada para o caso da "LeituraX"

viewtopic.php?p=2612#p2612

[Augusto]

Bom Dia Daniel,

Vc poderia me dizer se as correções do V&SPague realizadas por Ivan Orosco e itamar Bermond já estão disponiveis no SVN e se o módulo

V&SPague já está totalmente de acordo com as normas para Homologação na V&SPague? Obrigado!

[Daniel Simoes]

Ainda não... Não compreendi corretamente as modificações sugeridas...

[Earmarques]

Boa tarde, gostaria de saber se o exemplo do ACBrTEFD disponível já encontra-se com as rotinas do jeito que pede na hora de homologar e pergunto aos colegas que já passaram por isso quanto tempo mais ou menos demora para implementar, levando em conta a disponibilidade de 10 horas por dia, deixando no ponto para homologar.

Obrigado.

[Daniel Simoes]

Não.. o Demo do ACBrTEFD é longe de se parecer com uma aplicação de uso real do TEF... ele apenas serve como estudo e teste...

Acho que ajustar um programa para TEF com full-time pode demandar de 1 a 2 meses de trabalho