EMBarbosa

Lucas, acho que você não entendeu o meu comentário. Atualize seu código do ACBr e reinstale os componentes por favor.

Qual versão do Delphi você está usando? Tente mudar as opções do projeto em Delphi compiler. Faça um Build novamente.

Você conseguiu identificar qual parte exata do código gera essa exception? Esse erro normalmente é EXCEPTION_IN_PAGE_ERROR. Que significa que a thread tentou usar uma página de código que não está mais acessível. Algumas sugestões (em inglês): http://stackoverflow.com/questions/1317886/external-exception-c0000006 e as questões mencionadas (veja Linked do lado direito) https://forums.embarcadero.com/message.jspa?messageID=387080

Correto Regys. Eu fui outro que homologuei. Observei que o relatório mostrado na imagem não é o relatório implementado atualmente no ACBr. O relatório atual possui um texto explicativo logo no seu início, conforme commit na revisão 3806.

Esse tipo de erro é interno do Delphi. Veja: Poste uma resposta caso aconteça algo. Nota: Estou movendo seu post para a área correta do fórum.

Você não conseguiu identificar alguma particularidade desses códigos?

Essas informações são impressas no vinculado. Você então não precisa salvar, mas o operador precisará digitar.

Acredito que você está confundindo as coisas. Uma coisa é o cancelamento do cupom e seus vinculados. Outra coisa é o cancelamento da transação. Se, como você disse, as transações já foram confirmadas, então elas não estão mais pendentes e ACBrTEFD.CancelaTransacoesPendentes não fará nada. Para cancelar uma transação já confirmada você precisa ou usar o comando ADM ou o comando CNC. EDIT: o Juliomar foi mais rápido

Da última vez que isso aconteceu aqui, o pessoal da intervenção conseguiu tirar uma redução Z no ECF com defeito (só não me pergunte como). Se isso não for possível, não sei qual o procedimento para os registros como Sintegra e SPED que exigem a redução...

Coloque esses dados no Arquivo Auxiliar Criptografado, no banco de dados ou no executável.

Tente fazer isso só com a versão mais recente.

Entendi... Mas a cada atualização que você fez, você reinstalou o componente? Ou pelo menos na última atualização você reinstalou? É que essa mensagem de erro costuma acontecer quando o código fonte está de um jeito, mas o componente que foi instalado está diferente. Por exemplo a assinatura do evento foi instalado como String, mas agora o código fonte está como AnsiString. Precisaria ter certeza que não é esse o problema...

Olá, só pra esclarecer: as duas alterações acima são necessárias?

Você está usando uma impressora de modelo MFD?

Isso acontece. Que bom que resolveu! Bom trabalho aí.

Qual foi a última vez que desinstalou e reinstalou os componentes?

Faz um debug... Eu faço do jeito que passei o código, gerando todos os 60m e depois os 60a e depois os outros 60. O componente ordena tudo no final. EDIT: seus componentes estão atualizados? Tentou com o exemplo?

tente passando a geração do 60A para fora e removendo os with desnecessários. É mais ou menos assim que eu faço aqui: //Gerando os Registros 60M Dm_Mysql.ZroRegistro60M.First; while not Dm_Mysql.ZroRegistro60M.Eof do begin wregistro60M:=TRegistro60M.Create; wregistro60M.Emissao:=Dm_Mysql.ZroRegistro60MDATA_EMISSAO.AsDateTime; wregistro60M.NumSerie:=Dm_Mysql.ZroRegistro60MNUMERO_SERIE_ECF.AsString; wregistro60M.NumOrdem:=Dm_Mysql.ZroRegistro60MNUMERO_EQUIPAMENTO.AsInteger; wregistro60M.ModeloDoc:=Dm_Mysql.ZroRegistro60MMODELO_DOCUMENTO_FISCAL.AsString; wregistro60M.CooInicial:=Dm_Mysql.ZroRegistro60MCOO_INICIAL.AsInteger; wregistro60M.CooFinal:=Dm_Mysql.ZroRegistro60MCOO_FINAL.AsInteger; wregistro60M.CRZ:=Dm_Mysql.ZroRegistro60MCRZ.AsInteger; wregistro60M.CRO:=Dm_Mysql.ZroRegistro60MCRO.AsInteger; wregistro60M.VendaBruta:=Dm_Mysql.ZroRegistro60MVALOR_VENDA_BRUTA.AsCurrency; wregistro60M.ValorGT:=Dm_Mysql.ZroRegistro60MVALOR_GRANDE_TOTAL.AsCurrency; ACBrSintegra.Registros60M.Add(wregistro60M); Dm_Mysql.ZroRegistro60M.Next; end;//Fim while not Dm_Mysql.ZroRegistro60M.Eof do //Gerando os 60A Dm_mysql.ZroRegistro60a.First; while not Dm_Mysql.ZroRegistro60a.Eof do begin wregistro60A:=TRegistro60A.Create; wregistro60A.Emissao:=Dm_Mysql.ZroRegistro60ADATA_EMISSAO.AsDateTime; wregistro60A.NumSerie:=Dm_Mysql.ZroRegistro60ANUMERO_SERIE_ECF.AsString; wregistro60A.StAliquota:=Dm_Mysql.ZroRegistro60ASITUACAO_TRIBUTARIA.AsString; wregistro60A.Valor:=Dm_Mysql.ZroRegistro60AVALOR.AsCurrency; ACBrSintegra.Registros60A.Add(wregistro60A); Dm_mysql.ZroRegistro60a.Next; end; [/code]

O componente faz essa ordenação automaticamente. Veja se está usando a propriedade VersaoValidador como vv524.

por quê você chamou o CarregaFormasPagamento, e antes dele terminar você chamou o NumCupom? Não pode isso ter influenciado no resultado?

Sim. Uma nota pode ter vários registros 50.

é só preencher o primeiro parâmetro do LFill, pois o Delphi confunde os tipos. Veja a modificação na revisão 3509 que foi um erro parecido.

Não é ordenados por dia e sim agrupados. Veja a formatação do meu comentário anterior.

Os registros estão fora de ordem pois precisam ser agrupados por dia: 60M 60A 60D 60I 60M 60A 60D 60I 60M 60A 60D 60I

So para constar, o Isaque já fez as alterações conforme: http://www.djsystem.com.br/acbr/forum/viewtopic.php?f=23&p=38020#p38020