Ir para conteúdo
  • Cadastre-se

EMBarbosa

Consultores
  • Total de ítens

    9.433
  • Registro em

  • Última visita

  • Days Won

    117

Tudo que EMBarbosa postou

  1. Isso acontece. Que bom que resolveu! Bom trabalho aí.
  2. Qual foi a última vez que desinstalou e reinstalou os componentes?
  3. 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?
  4. 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]
  5. O componente faz essa ordenação automaticamente. Veja se está usando a propriedade VersaoValidador como vv524.
  6. por quê você chamou o CarregaFormasPagamento, e antes dele terminar você chamou o NumCupom? Não pode isso ter influenciado no resultado?
  7. Sim. Uma nota pode ter vários registros 50.
  8. é 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.
  9. Não é ordenados por dia e sim agrupados. Veja a formatação do meu comentário anterior.
  10. 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
  11. 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
  12. 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.
  13. opa, desculpe, errei o link do SAC: É o abaixo. http://www.djsystem.com.br/acbr/sac/index.php/sobre
  14. 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.
  15. Sim. Ele provavelmente vai sair em dados do SPED ou algum dos relatórios do PAF.
  16. 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.
  17. Faltou o número de série do equipamento nos registros 60A.
  18. Você está executando dentro do modo Debug do Delphi?
  19. 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
  20. Olá ronnei, Você já viu que a Embarcadero já está anunciando o Delphi XE3?
  21. Se você não consegue compilar, o Delphi mostra uma mensagem de erro de compilação. Qual é?
  22. Qual é a mensagem de erro?
  23. 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
  24. é no ECF ou no EMULADOR? Se for no ECF, provavelmente a bateria do relógio interno deste ECF está com problema.
  25. Há uma diferença sutil, mas importante, entre "a revisão que está instalada" e "a revisão que está na máquina". E foi isso que eu tentei mostrar no meu comentário.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...