Reimpressão SiTef criando arquivo ACBr_000.tef

[William F. L.]

Pessoal devo estar cometendo algum erro no meu fluxo.

Usando o componente ACBrTEFAPI ao solicitar uma "reimpressão" usando o menu administrativo "Último comprovante" o comprovante é impresso normalmente, mas é criado o arquivo ACBr_000.tef na pasta tef.

 

Porém ao iniciar minha aplicação é verificado se tem transações pendentes e o componente acaba passando por esse arquivo e me devolvendo um falso positivo que tem transação pendente.

Minha rotina que verifica se tem transações pendente ao inicializar o componente:

function TfrmMensagemSiTEF.PossuiTransacaoPendente: boolean;
var
  i: integer;
begin
    Result := false;

    for i := 0 to ACBrTEFAPI.RespostasTEF.Count-1 do
    begin
       if ACBrTEFAPI.RespostasTEF[i].Confirmar and (not ACBrTEFAPI.RespostasTEF[i].CNFEnviado) then
       begin
          Result := true;
          break;
       end;
    end;
end;

 

[Daniel Simoes]

olá @William F. L.,

Qual é o passo a passo, para reproduzir no Demo do ACBr

1 - Fazer uma transação
2 - Solicitar o ADM -> Reimpressão -> Ultima Transação
3 - Sair da Aplicação
4 - Entrar na aplicação -> ERRO

Seria isso ?

[William F. L.]

O fluxo é basicamente esse que você citou mesmo.

Ao entrar na aplicação novamente temos que ter uma rotina que verifica se existem transações pendentes e nesse caso em questão ela detecta essa transação pendente (que não existe), pois apenas solicitei uma reimpressão.

[Daniel Simoes]

consegui pegar o problema... analisando uma solução...

[Daniel Simoes]

Apliquei uma possível correção... Commit [r47234]

 

Citar

 

-- ACBrTEFCliSiTefComum --

[-] Correção para não tentar confirmar Transação administrativa de Reimpressão
https://www.projetoacbr.com.br/forum/index.php?showtopic=93526
(por: DSA)

 

 

[William F. L.]

Legal, vou atualizar e testar agora.

Obrigado.

[William F. L.]

@Daniel Simoes acho que teve alguma mudança que quebrou, mandei limpar tudo e reinstalar também, deu o mesmo erro no ACBrNFe.
 

Pacote "DCLACBr_DFeComum.dpk" compilado com sucesso.
Cleaning package cache for ACBr_NFe.bpl
Cleaning ok
Compiling package D:\ACBr\Pacotes\Delphi\ACBrDFe\ACBrNFe\ACBr_NFe.dpk
"C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\dcc32.exe" "D:\ACBr\Pacotes\Delphi\ACBrDFe\ACBrNFe\ACBr_NFe.dpk"
Embarcadero Delphi for Win32 compiler version 35.0
Copyright (c) 1983,2022 Embarcadero Technologies, Inc.
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4536) Error: E2029 Declaration expected but '<' found
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4538) Error: E2038 Illegal character in input file: '|' (#$7C)
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4539) Error: E2023 Function needs result type
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4542) Error: E2023 Function needs result type
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4547) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4548) Error: E2003 Undeclared identifier: 'gALCZFMCBS'
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4548) Error: E2029 ')' expected but identifier 'tpALCZFMCBS' found
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4548) Error: E2029 'END' expected but ')' found
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4560) Error: E2023 Function needs result type
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4569) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4575) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4581) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4587) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4590) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4593) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4597) Error: E2023 Function needs result type
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4602) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4603) Error: E2003 Undeclared identifier: 'gMonoPadrao'
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4603) Error: E2035 Not enough actual parameters
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4618) Error: E2023 Function needs result type
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4622) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4623) Error: E2003 Undeclared identifier: 'gMonoReten'
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4623) Error: E2035 Not enough actual parameters
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4623) Error: E2029 'END' expected but ',' found
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4638) Error: E2023 Function needs result type
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4642) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4643) Error: E2003 Undeclared identifier: 'gMonoRet'
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4643) Error: E2029 'END' expected but ',' found
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4658) Error: E2023 Function needs result type
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4662) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4663) Error: E2003 Undeclared identifier: 'gMonoDif'
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4663) Error: E2029 'END' expected but ',' found
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4675) Error: E2023 Function needs result type
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4680) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4681) Error: E2003 Undeclared identifier: 'gTransfCred'
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4681) Error: E2035 Not enough actual parameters
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4687) Error: E2023 Function needs result type
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4692) Error: E2066 Missing operator or semicolon
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4693) Error: E2003 Undeclared identifier: 'gAjusteCompet'
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4693) Error: E2029 ')' expected but identifier 'competApur' found
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4702) Error: E2023 Function needs result type
D:\ACBr\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlWriter.pas(4702) Fatal: E2226 Compilation terminated; too many errors
Compilation failure
Erro ao compilar o pacote "ACBr_NFe.dpk".
Abortando... Ocorreram erros na compilação dos pacotes.

 

[Daniel Simoes]

Veja se tem colisão no merge desses arquivos... na dúvida, apague-os e baixe novamente...

[William F. L.]

A Instalação deu certo, porém ao mandar reimprimir agora não acho mais os comprovantes no "ACBrTEF.RespostasTEF.Count", ele vem zerado zerado.

for i := 0 to ACBrTEF.RespostasTEF.Count -1 do
begin
    DoImprimeComprovanteSiTef( ACBrTEF.RespostasTEF[i].ImagemComprovante1aVia.Text );
end;

 

[Daniel Simoes]

5 minutos atrás, William F. L. disse:

A Instalação deu certo, porém ao mandar reimprimir agora não acho mais os comprovantes no "ACBrTEF.RespostasTEF.Count", ele vem zerado zerado.

não compreedi.. pode por favor detalhar o passo a passo, até o problema ?

Por favor teste no Demo do ACBr, e me informe o Passo a passo

[Daniel Simoes]

Achei o efeito colateral causado.. já enviei um ajuste ao SVN..  Commit [r47240]

[William F. L.]

Estava digitando a mensagem com o print rsrs, pq agora o Demo está com erro.

Vou atualizar aqui e testar.

[William F. L.]

@Daniel Simoes aparentemente está certo agora, testei reimpressões e não acusou transação pendente ao iniciar a aplicação.

Obrigado !

[Daniel Simoes]

Obrigado por reportar.

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