Impressao De Cancelamento Errada Depois De Atualização

[...]

Bom dia, depois que fiz a atualização (ontem a tarde) para conseguir imprimir o extrato do CFe com 3 casas decimais a partir do xml, o meu extrato de cancelamento passou a ficar errado...
Como eu ainda tinha meu executavel velho, consegui imprimir o antes e o agora, está anexado aqui. Os XMLs que utilizei são exatamente os mesmos. Estou anexando-os aqui tb

 

 

 

xml.xml

canc.xml

[Daniel Simoes]

Não ficou claro o que vc quis dizer...

 

Há algum Bug ? Se SIM, o que está errado ? como seria o correto ?

 

Você testou com o SATTeste.exe ?

[...]

Existe um bug, por favor observe o Cupom impresso na esquerda: está correto
Agora olhe o mesmo cupom impresso na direita da imagem: está errado, o cabeçalho aparece 2 vezes.

 

Nao testei com SATTeste.exe pq nao tem opção de carregar um arquivo XML e mandar imprimir.

 

 

O cupom da esquerda (que está correto) é de antes da atualização de ontem
O cupom da direita (que está errado) é de depois da atualização de ontem

[Daniel Simoes]

Eu apenas posso reproduzir o problema usando o SATTeste.exe...

 

Se você quer que eu analise, por favor forneça passos de como reproduzir o problema, usando o SATTeste.exe...

 

Para carregar o XML vc pode usar...
 

procedure TForm1.MenuItem15Click(Sender: TObject);
begin
  OpenDialog1.Filter := 'Arquivo XML|*.xml';
  if OpenDialog1.Execute then
  begin
    ACBrSAT1.CFe.LoadFromFile( OpenDialog1.FileName );

    mRecebido.Lines.Text := ACBrSAT1.CFe.GerarXML() ;
    PageControl1.ActivePage := tsRecebido;
  end ;
end;  

[...]

OK, aqui estao os passos para reproduzir:

1 - Carregar o XML de venda anexado no primeiro post (xml.xml)
2 - Carregar o XML de cancelamento tambem anexado no primeiro post (canc.xml)
3 - Chamar a impressao de extrato.

 

Abaixo as linhas de codigo que utilizei

 

ACBrSAT1.CFe.LoadFromFile( 'c:\xml.xml' );
ACBrSAT1.CFeCanc.LoadFromFile( 'c:\canc.xml' );
ACBrSAT1.ImprimirExtratoCancelamento;

[giovaniroliveira]

Estou com o mesmo problema na minha aplicação. Fazendo o teste com o SATTeste.exe também apresentou o mesmo problema com a impressão do cabeçalho do Cupom do Cancelamento do SAT. Ou seja o cabeçalho é impresso duas vezes!!! Como resolvemos???

[Daniel Simoes]

Estou com o mesmo problema na minha aplicação. Fazendo o teste com o SATTeste.exe também apresentou o mesmo problema com a impressão do cabeçalho do Cupom do Cancelamento do SAT. Ou seja o cabeçalho é impresso duas vezes!!! Como resolvemos???

 

 

Abra o Seu Delphi.. ligue o DEBUG e.. use os seus poderes de programador...

[...]

Abra o Seu Delphi.. ligue o DEBUG e.. use os seus poderes de programador...

 

Sem problemas, a unica coisa que gostaria de ressaltar é que antes da atualização de ontem, funcionava normal.

[Daniel Simoes]

Então está ainda mais simples... use o LOG do SVN e compare as revisões...

[...]

Tem como eu ver no SVN qual a versao que eu estava antes da atualizacao?

[...]

Como nao consegui comparar, eu instalei de volta a versao 9254 que já esta com aquela alteracao do EhCombustivel, e também está imprimindo o extrato de cancelamento corretamente. Pra mim resolveu

[Daniel Simoes]

Não consegui reproduzir o problema... lembrando que estou usando o Trunk2.. mas se você ver no LOG na pasta "trunk"\Fontes", os arquivos modificados no SVN desde a versão 9254... nenhum deles está relacionado a impressão do Exrtrato do SAT...

 

Minha teoria é que seus fontes estão diferente da versão do SVN...

[...]

Por isso que achei estranho mesmo... Vou criar uma maquina virtual e pegar a ultima versao novamente para comprovar certinho Por enquanto vou usando essa versao 9254

[...]

Verificado:

Instalei uma maquina virtual nova, do zero
Baixei a ultima versao 9277 do trunk
Instalei o Acbr com o acbrinstall

Abri o projeto do Demo
Criei um botao com o seguinte codigo para ser mais rapido:

  ACBrSAT1.CFe.AsXMLString := txtXML.Text;
  ACBrSATExtratoFortes1.Margens.Topo := 5;
  ACBrSATExtratoFortes1.Margens.Fundo := 5;
  ACBrSATExtratoFortes1.Margens.Direita := 8;
  ACBrSATExtratoFortes1.Margens.Esquerda := 2;
  ACBrSATExtratoFortes1.PrinterName := 'EPSON';
  ACBrSATExtratoFortes1.MostrarPreview := false;

    if txtXMLCanc.Text <> '' then
    begin
      ACBrSAT1.CFeCanc.AsXMLString := txtXMLCanc.Text;
      ACBrSAT1.ImprimirExtratoCancelamento;
    end
    else ACBrSAT1.ImprimirExtrato;

Criei 2 edits com os nomes txtXML e txtXMLCanc
Compilei o Demo e está imprimindo errado...

 

[...]

Estou criando uma nova maquina virtual para instalar o trunk2, porem o acbrinstall do trunk2 da o seguinte erro:

"ACBr_SATExtratoESCPOS.dpk(31) Fatal: Required package 'ACBr_Serial' not found
Compilation failure"
 

Mesmo o ACBr_Serial estar marcado na outra tela (na verdade ele se marca automaticamente quando vc marca o pacote ExtratoESCPOS)

[...]

Bom, instalei sem o ExtratoESCPOS mesmo, abri o Demo, dei Ignore e comentei todos os lugares que utilizava o ExtratoESCPOS, e fiz a mesma coisa no trunk2 que eu havia feito no trunk

 

O resultado foi identico... Continua imprimindo 2 vezes o cabeçalho conforme a imagem postada, não sei por que no seu deu um resultado diferente Daniel...

Acredito que a unica diferença agora é que utilizo Delphi 7 e você Lazarus, correto?

 

Bom, ja testei tudo que dava pra testar a respeito disso, instalei em maquinas virtuais zeradas, para ter certeza que existiria apenas a ultima versao mesmo, reproduzi o erro no demo, apenas inserindo o trecho de codigo postado.

Por enquanto vou desistir e utilizar a revisão que está funcionando mesmo, se por ventura alguém mais tiver esse mesmo problema no futuro saberá pelo menos qual revisão funcionava.

[GustavoCosta]

Pessoal, me deparei com esse erro também, por acaso alguém já conseguiu resolver?

Pelo histórico de alterações do SVN não consegui encontrar nada que possa ter afetado a impressão.

Estou tentando debugar e ajustar nos fontes, mas meus conhecimentos no fortes report é nulo.

 

Se por acaso alguém já tenha conseguido resolver, por favor compartilhe com a comunidade.

Obrigado.