Luiz Paulo

Segui a orientação de usar o conversor e até o momento não ocorreu mais problemas. No meu caso ficou da seguinte forma: ECF --> Cabo Serial --> Adaptador Serial p/ USB --> PC Muito obrigado pela ajuda .

Bom saber Régys. Sabe dizer se no seu caso, a mensagem "Erro: ESynaSerError Communication error 9997: Timeout during operation" continua aparecendo no Log do ACBr?

Vou tentar Daniel, Obrigado pelo Retorno

Complementando... O Computador de meu cliente é um HP All-in-One e não posso colocar uma porta serial física. Tem de ser por um USB mesmo. Eu consigo conectar e usá-lo normalmente, mas do nada as vezes a comunicação do ECF é perdida. Conforme o Log abaixo, o mensagem "Erro: ESynaSerError Communication error 9997: Timeout during operation" aparece todo fim de impressão. -- 17:49:46:985 FechaCupom( PV0000026207[LF]Trib aprox R$:22,43 Federal e 11,88 Estadual[LF]Fonte:IBPT 9oi3aC[LF]NOME: 021805-BONASSA, REGINA KARI[LF]. Vendedor: 0037-ROSINEI FENILI DA SILVA[LF]Obrigado! Volte sempre! ) TX -> [STX][210][NUL][FS]"PV0000026207[LF]Trib aprox R$:22,43 Federal e 11,88 Estadual[LF]Fonte:IBPT 9oi3aC[LF]NOME: 021805-BONASSA, REGINA KARI[LF]. Vendedor: 0037-ROSINEI FENILI DA SILVA[LF]Obrigado! Volte sempre![LF]H5 17:49:47:199 RX <- ACK = 6 Falha: 0 17:49:47:200 VerificaFimImpressao: Pedindo o Status (19) 17:49:47:566 VerificaFimImpressao: ACK = 6, OK... Aguardando ST1 e ST2 17:49:47:859 VerificaFimImpressao: ACK = 6 - Falhas = 0 - Erro: ESynaSerError Communication error 9997: Timeout during operation 17:49:48:061 VerificaFimImpressao: Pedindo o Status (19) 17:49:48:406 VerificaFimImpressao: ACK = 0 - Falhas = 0 - Erro: ESynaSerError Communication error 9997: Timeout during operation 17:49:48:608 VerificaFimImpressao: Pedindo o Status (19) 17:49:49:015 VerificaFimImpressao: ACK = 0 - Falhas = 0 - Erro: EACBrECFErro ACK <> 6 17:49:49:218 VerificaFimImpressao: Pedindo o Status (19) 17:49:49:406 VerificaFimImpressao: ACK = 6, OK... Aguardando ST1 e ST2 17:49:49:658 RX <- [NUL][NUL][NUL][NUL] Alguém que teve tais problemas, conseguiu encontrar uma solução?

Elton, Obrigado pelo retorno, agora pouco estava verificando isso em meu cliente e a lentidão sumiu. Infelizmente, como alterei tantas coisas como essas que você mencionou, não sei o que exatamente eu fiz para resolver o problema. Se tiver uma nova posição sobre o assunto eu informo no tópico.

Olá Pessoal, Também estou com o mesmo problema citado no tópico referente a um ECF Bematech com conexão via USB. Já coloquei a versão de testes 3.0.5 do Bematech Serial Port, mas o erro persiste. Alguém que teve tais problemas, conseguiu encontrar uma solução?

Olá pessoal, estou com um problema de lentidão ao atualizar o GT (ACbrAAC.SalvarArquivo). Isso acontece em apenas um PC (Windows 8) e não é sempre. Situação O operador abre o cupom, vende um item, as vezes mais, e o processo é realizado normalmente. De repente ao vender um item qualquer, sua impressão ocorre, mas o PC trava por alguns segundos (20,30 ou 40 segundos mais ou menos). Descobri que o problema acontece ao atualizar o GT (pelos testes que fiz a demora deve estar ocorrendo ao executar o WriteToTXT), mas não é sempre, não segue um padrão específico. Fiz testes até mesmo não usando o FlushFileToDisk e a lentidão continua. Como é apenas em um PC, acredito que a lentidão deve estar relacionado com alguma coisa do PC, como o sistema operacional, antivírus ou algo assim. Mas não consegui achar uma solução ainda. O Log abaixo se refere a Atualização do GT, disparada algumas vezes a partir de um Loop, onde houve lentidão. (Esse foi apenas um teste de velocidade onde não ocorreu impressão de cupom) 17/04 16:35:35:433 - AchaECF( BE091210100011210254 ) 17/04 16:35:35:434 - Ok 17/04 16:35:35:434 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:955.386,22 Para:0,00 17/04 16:35:35:434 - GravarArqRegistro 17/04 16:35:35:775 - AchaECF( BE091210100011210254 ) 17/04 16:35:35:775 - Ok 17/04 16:35:35:775 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:0,00 Para:955.386,22 17/04 16:35:35:775 - GravarArqRegistro 17/04 16:35:59:178 - AchaECF( BE091210100011210254 ) 17/04 16:35:59:179 - Ok 17/04 16:35:59:179 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:955.386,22 Para:0,00 17/04 16:35:59:179 - GravarArqRegistro 17/04 16:35:59:364 - AchaECF( BE091210100011210254 ) 17/04 16:35:59:364 - Ok 17/04 16:35:59:364 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:0,00 Para:955.386,22 17/04 16:35:59:364 - GravarArqRegistro 17/04 16:35:59:382 - AchaECF( BE091210100011210254 ) 17/04 16:35:59:382 - Ok 17/04 16:35:59:382 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:955.386,22 Para:0,00 17/04 16:35:59:382 - GravarArqRegistro 17/04 16:35:59:565 - AchaECF( BE091210100011210254 ) 17/04 16:35:59:565 - Ok 17/04 16:35:59:565 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:0,00 Para:955.386,22 17/04 16:35:59:565 - GravarArqRegistro 17/04 16:35:59:592 - AchaECF( BE091210100011210254 ) 17/04 16:35:59:592 - Ok 17/04 16:35:59:592 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:955.386,22 Para:0,00 17/04 16:35:59:592 - GravarArqRegistro 17/04 16:35:59:778 - AchaECF( BE091210100011210254 ) 17/04 16:35:59:778 - Ok 17/04 16:35:59:782 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:0,00 Para:955.386,22 17/04 16:35:59:782 - GravarArqRegistro 17/04 16:35:59:809 - AchaECF( BE091210100011210254 ) 17/04 16:35:59:809 - Ok 17/04 16:35:59:809 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:955.386,22 Para:0,00 17/04 16:35:59:809 - GravarArqRegistro 17/04 16:35:59:984 - AchaECF( BE091210100011210254 ) 17/04 16:35:59:984 - Ok 17/04 16:35:59:984 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:0,00 Para:955.386,22 17/04 16:35:59:984 - GravarArqRegistro 17/04 16:36:00:001 - AchaECF( BE091210100011210254 ) 17/04 16:36:00:001 - Ok 17/04 16:36:00:001 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:955.386,22 Para:0,00 17/04 16:36:00:001 - GravarArqRegistro 17/04 16:36:00:182 - AchaECF( BE091210100011210254 ) 17/04 16:36:00:182 - Ok 17/04 16:36:00:182 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:0,00 Para:955.386,22 17/04 16:36:00:183 - GravarArqRegistro 17/04 16:36:00:204 - AchaECF( BE091210100011210254 ) 17/04 16:36:00:204 - Ok 17/04 16:36:00:204 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:955.386,22 Para:0,00 17/04 16:36:00:204 - GravarArqRegistro 17/04 16:36:00:384 - AchaECF( BE091210100011210254 ) 17/04 16:36:00:384 - Ok 17/04 16:36:00:384 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:0,00 Para:955.386,22 17/04 16:36:00:384 - GravarArqRegistro 17/04 16:36:00:402 - AchaECF( BE091210100011210254 ) 17/04 16:36:00:403 - Ok 17/04 16:36:00:403 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:955.386,22 Para:0,00 17/04 16:36:00:403 - GravarArqRegistro 17/04 16:36:00:586 - AchaECF( BE091210100011210254 ) 17/04 16:36:00:586 - Ok 17/04 16:36:00:586 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:0,00 Para:955.386,22 17/04 16:36:00:586 - GravarArqRegistro 17/04 16:36:32:373 - AchaECF( BE091210100011210254 ) 17/04 16:36:32:373 - Ok 17/04 16:36:32:373 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:955.386,22 Para:0,00 17/04 16:36:32:373 - GravarArqRegistro 17/04 16:36:32:562 - AchaECF( BE091210100011210254 ) 17/04 16:36:32:563 - Ok 17/04 16:36:32:563 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:0,00 Para:955.386,22 17/04 16:36:32:563 - GravarArqRegistro 17/04 16:36:32:635 - AchaECF( BE091210100011210254 ) 17/04 16:36:32:635 - Ok 17/04 16:36:32:635 - AtualizarGTECF - NumSerie: BE091210100011210254 - De:955.386,22 Para:0,00 17/04 16:36:32:635 - GravarArqRegistro Destaque para as linhas abaixo onde a lentidão ocorreu: (...) 17/04 16:35:35:775 - GravarArqRegistro 17/04 16:35:59:178 - AchaECF( BE091210100011210254 ) (...) 17/04 16:36:00:586 - GravarArqRegistro 17/04 16:36:32:373 - AchaECF( BE091210100011210254 ) (...) Alguém, já passou por uma situação assim ou tem uma sugestão do que posso fazer?

Que pena. Obrigado pelo retorno

Bom dia pessoal, alguém sabe como implementar a função hash que tem no firebird no próprio Delphi? Atualmente para mim conseguir isso eu faço uma consulta no banco de dados, mas gostaria de ver a possibilidade de fazer direto no Delphi. Não encontrei documentação quanto a isso no site do firebird http://www.firebirdsql.org/refdocs/langrefupd21-intfunc-hash.html

No meu ver, entramos num dilema. Se comentar essas 2 linhas resolve o meu problema, mas volta o problema citado anteriormente nesse tópico. Se deixar esse duas linhas resolve o problema do tópico, mas não funciona no meu e talvez em outros que se deparem essa situação. Agora o que pode ser feito para beneficiar a maioria dos usuários dos Fontes ACBr? Eu simplesmente deixar comentado em meus fontes e deixar como está ou subir uma alteração para o SVN que possa de alguma maneira abraçar as duas situações?

Isso mesmo.

Bom dia, estou com problemas na alteração citada acima enviada na revisão 7977. O erro ocorreu ao recuperar o valor da DataHoraSB. Voltei para a maneira antiga e não apresentou erros, apesar de nos logs aparecerem a linha ACK = 6 Falha: 0 várias vezes. Impressora do Cliente Bematech MP-4000 TH FI Conexão: USB Conversor: BematechVirtualSerialPort_x64_v3.0.0.3. Anomalias estranhas nos Logs ACK = 6 Falha: 0 Já analisei os tópicos abaixo devido a conexão com a bematech No momento meu código está assim: begin Result := (pos(ETX, RightStr(Retorno,6)) > 0) ; //if Result then //Result := not fpDevice.Serial.CanReadEx(1000); // Aguarda por 1 seg sem dados end; O que pode se fazer quanto a isso? Obs: nos logs alterei algumas informações pessoais do cliente. LogDataHoraSB_Erro.txt LogDataHoraSB_OK.txt

Não foi fácil, mas encontrei os fontes. Espero que ajude. AcbrECF_VendaFrenetica.zip

Perdão, vou verificar se encontro os fontes.

Certo, vou verificar isso Elton. Obrigado

Bastante mesmo. Um dos problemas é que tem funcionário que deu o horário e já quer ir embora e reclama de ter de esperar de 5 a 10 minutos para tirar a redução Z. Mas creio não ter muito milagre mesmo, por que dependendo do movimento, por mais otimizações que sejam feitas ainda vai ficar um pouco lento.

Bom dia pessoal, Estou tendo problemas com lentidão ao gerar a redução Z com alguns clientes que possuem uma base de dados grande com muitos registros. Segundo a opinião de vocês qual seria o "máximo tempo aceitável" para a impressão da redução Z (incluindo seu armazenamento na base de dados a geração do arquivo registros do paf) mesmo para uma base de dados grande com muitos registros? Saudações, Luiz Paulo

É apenas um registro e é pela última atualização do estoque. O Registro E3 no meu caso ficou assim: E3DR999999999999999999 ECF-IF Daruma FS-600 20150510111513 Sendo que a data e hora representa o primeiro documento emitido (Leitura X, Cupom, Relatório Gerencial).

No Firebird eu utilizo Numeric(12,4) como padrão para valores numéricos. Veja esse link na Firebase para mais informações: http://www.firebase.com.br/fb/artigo.php?id=2530.

Deve se basear na Data de hoje. Os filtros do período não devem afetar os registros de estoque.

Olá, O Ato copete diz o abaixo: Ou seja, o Registro E2 deve ser o saldo de estoque atualizado na Abertura do dia corrente. Quanto ao Filtro de data inicial e final devem afetar apenas os outros registros, se estes possuírem data. Saudações, Luiz Paulo

Eu uso a função abaixo em algumas situações. function ExtrairRegistro(pTexto: string; pPosicao: integer; pCaracter: String = '|'): String; var i: integer; sRestanteDoTexto: string; begin Result:= ''; i:= 0; sRestanteDoTexto:= pTexto; while (i <= pPosicao) do begin if i = pPosicao then begin Result:= Copy(sRestanteDoTexto, 1, pos(pCaracter,sRestanteDoTexto)-1); Exit; end; sRestanteDoTexto:= copy(sRestanteDoTexto, pos(pCaracter, sRestanteDoTexto) + 1, Length(sRestanteDoTexto) ); inc(i); if not(AnsiContainsText(sRestanteDoTexto, pCaracter)) then begin Exit; end; end; end; ExtrairRegistro('|Teste|abc|1234|',2); // ---> Resultado "abc" Quem sabe ajude!

Então Juliomar, seria tanto para consumir quanto para criar. O SuperObjects abrange as duas coisas?

Bom dia pessoal, Alguém recomenda algum componente para trabalhar com JSON em Delphi 7? Encontrei as seguintes opções: JSON delphi library Delphi Web Utils tiny-json Alguém recomenda alguma destas ou outras?

Metasis Consultoria e Sistemas Laudo UNO1722014 Órgão Técnico LTS Unochapecó. ER 02.02 Suíte ACBr (ACBrECF,ACBrTEFD,ACBrPAF,ACBrAAC,ACBrEAD,ACBrIBPTax,TACBrValidador,ACBrMail,ACBrNFe,ACBrNFSe)! Delphi 7 Firebird 2.5 Saudações. Conseguimos re-homologar nosso sistema esta semana para a ER 02.02. O processo de homologação foi no geral tranquilo. Claro que houve algumas alterações que tiveram de ser realizadas na hora, mas nada muito crítico, isso se deve em grande parte aos componentes ACBr que facilitam a programação e tornam as alterações mais simples e não redundantes. Meus agradecimentos aos administradores, moderadores e todos que contribuem para o aperfeiçoamento do Projeto ACBr.