EMBarbosa

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

Eu particularmente não consegui fazer o VSP emulator funcionar bem. Se fizer pesquisa aqui no fórum vai ver que muitos outros reclamam da mesma coisa. Se estiver usando o Win7 64 bits então aí pode ter certeza que isso vai lhe dar problema. Tente com o emulador com0com, que tem uma versão para 32 e outra para 64 Bits. Certifique-se de ler as instruções que vem com ele antes.

opa, desculpe, errei o link do SAC: É o abaixo. http://www.djsystem.com.br/acbr/sac/index.php/sobre

Qual emulador de portas seriais que está usando? Qual a versão do seu Windows? Qual a configuração de Timeout do ACBrECF? Apesar do padrão ser 3 esse valor é baixo. Use algo entre 5 e 10.

Sim. Ele provavelmente vai sair em dados do SPED ou algum dos relatórios do PAF.

Então, esse erro no modo debug é normal. A exception ocorre pois a impressora ainda não respondeu. O ACBrECF trata a exception tentando comunicação novamente enquanto estiver dentro do prazo definido nas propriedades do componente. Por isso que se você rapidamente der um continuar no modo debug ele imprime o cupom, mas se você esperar um pouco mais ele aborta a impressão. A melhor maneira então nesse caso é executar o aplicativo por fora do Delphi. Ou, você pode pedir ao Delphi para sempre ignorar esse tipo de exception.

Faltou o número de série do equipamento nos registros 60A.

Você está executando dentro do modo Debug do Delphi?

Olá, Sim. É previsto as atualizações do projeto de acordo com as necessidades impostas pela legislação. verifique o seguinte link sobre o funcionamento do SAC. Ou o seguinte sobre como fazer doações http://acbr.sourceforge.net/drupal/?q=node/14 EDIT: Link incorreto do SAC removido

Olá ronnei, Você já viu que a Embarcadero já está anunciando o Delphi XE3?

Se você não consegue compilar, o Delphi mostra uma mensagem de erro de compilação. Qual é?

Qual é a mensagem de erro?

Se você não fez alterações no relógio, então procure mesmo um interventor para verificar o relógio interno (RTC) do ECF