EMBarbosa

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

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.