ivan

Olá, tenho varios clientes com interesse na api da Cresol, assim que diponível.

Prezados, Na unit ACBrBlocoX_WebServices.pas, adicionei a propriedade Mensagem, que retorna dos webservices da fazenda. Segue em anexo. ACBrBlocoX_WebServices.pas

Olá Douglas... Tive esta dificuldade. Se o Firmware é o 01.01.00 então ele realmente está com problemas, conforme o post acima, de 2015. Tem que tratar no código mesmo. Testa se for esta a versão do firmware e então joga nas observações do cupom

Obrigado. Vou tentar reproduzir o erro no ECFTeste e posto o resultado aqui

Eu atualizei os fontes hoje pela manhã antes de fazer este post. De qualquer forma, atualizei de forma definitiva nosso sistema para o Trunk2 no início de Abril. Então já peguei com a última versão da Epson e não sei te informar a partir de qual revisão começou a ocorrer o problema.

Olá ! Após atualizar para o Trunk2 tenho tido problemas com ECF Epson (TM-T81 FBII e FBIII). Sempre que tento pegar/atualizar a propriedade Estado (ACBrECF.Estado) após a emissão da redução Z, tem ocorrido o erro. Impressora Epson não reconheceu o Comando (NACK) -- 01/06 10:13:01:568 ReducaoZ( 30/12/1899 ) -- 01/06 10:13:01:569 TX -> [STX][213][ENQ][ESC][STX][FS][NUL][NUL][ETX]0118 -- 01/06 10:13:01:574 RX <- ACK = 6 -- 01/06 10:13:01:652 RX <- [STX][213][NUL][NUL][FS][192][128][FS][FS][NUL][NUL][FS][FS]01062016[FS]102340[ETX]057C -- 01/06 10:13:01:652 DataHora -- 01/06 10:13:01:652 TX -> [STX][214][ENQ][ESC][STX][FS][NUL][NUL][ETX]0119 -- 01/06 10:13:01:652 RX <- ACK = 6 -- 01/06 10:13:01:736 RX <- [STX][214][NUL][NUL][FS][192][128][FS][FS][NUL][NUL][FS][FS]01062016[FS]102340[ETX]057D -- 01/06 10:13:01:820 -- 01/06 10:13:01:820 TX -> [STX][215][BS][SOH][FS][NUL][NUL][FS][FS][ETX]0139 -- 01/06 10:13:01:836 RX <- ACK = 6 -- 01/06 10:13:01:905 RX <- [STX][215][NUL][NUL][FS][192][NUL][FS][FS][NUL][NUL][FS][ETX]020C -- 01/06 10:13:01:905 Estado -- 01/06 10:13:01:905 TX -> [STX][216][BS][16][FS][NUL][NUL][ETX]0111 -- 01/06 10:13:01:936 RX <- ACK = 21 -- 01/06 10:13:02:237 RX <- -- 01/06 10:13:02:237 ----------------- ERRO ----------------- Impressora Epson não reconheceu o Comando (NACK) ---------------------------------------- -- 01/06 10:14:00:184 NumReducoesZRestantes -- 01/06 10:14:00:184 TX -> [STX][217][BS][LF][FS][NUL][NUL][ETX]010C -- 01/06 10:14:00:200 RX <- ACK = 6 -- 01/06 10:14:00:315 RX <- [STX][217][NUL][NUL][FS][192][NUL][FS][FS][NUL][NUL][FS][FS]31052016[FS]101716[FS]01062016[FS]102340[FS]7683[FS]7688[FS]441[FS]3059[FS]3997[FS]4000[FS]N[FS]N[FS]S[ETX]0EA4 -- 01/06 10:14:00:315 NumCupom -- 01/06 10:14:00:315 TX -> [STX][218][TAB][7][FS][NUL][NUL][ETX]010B -- 01/06 10:14:00:331 RX <- ACK = 6 -- 01/06 10:14:00:431 RX <- [STX][218][NUL][NUL][FS][192][NUL][FS][FS][NUL][NUL][FS][FS]007689[FS]0441[FS]004[FS]002301[FS]0000[FS]0000[FS]001810[FS]004000[FS]0000[FS]000000[FS]0001[FS]0000[FS]007687[FS]000606[ETX]10EF Alguma sugestão do que eu poderia fazer para que isto não aconteça mais ?

Daniel.. Considere o problema relatado no primeiro post. O problema ocorre apenas na EPSON TM-T900F. Eu apenas enviei log de outros ECF após o Regys informar que uma possibilidade seria eu estar enviando informações do consumidor após o fechamento do cupom. Eu realmente não estou fazendo isto. Então, na tentativa de ajudá-los a entender o problema eu enviei logs de outros ECF, para que vejam a comunicação com o ECF, onde a sequência é a mesma. Quis apenas ajudá-los a entender o problema e não confundir. Me perdoe se assim você entendeu.

Este log que você comentou é o da Epson FB-III, que não utiliza o TACBrECFEscECF, já que não faz parte do convênio 09/09. Porém, se você observar, tanto o log log_TMT900F.TXT quanto o LOG_DARUMA_FS800i.txt, irá perceber que o CPF está sem a pontuação. Ambas são do convênio 09/09. Na Daruma fica OK, mas na Epson não.

Fiz mais um teste com uma Daruma FS800i (convênio 09/09) e identifica corretamente o consumidor no rodapé. Segue log em anexo. LOG_DARUMA_FS800i.txt

Creio que não seja este o problema Executei o mesmo programa, mas agora com uma Epson modelo FB-III e funciona corretamente, assim como em outros ecf. Nos fontes, eu identifico o consumidor antes de fechar o cupom. Porém no log aparenta que a identificação é realizada após o fechamento. Observe no log em anexo que os comandos ficam na mesma sequencia e o consumidor é identificado corretamente no cupom. LOG_EPSON_FBIII.txt

Esqueci de comentar no post anterior: Estou tentando identificar o consumidor no fechamento do cupom , conforme o log.

Propriedade Modelo: ecfEscECF MODELO: "EPSON TM-T900F" SUBMODELO: "TM-T900F"

Estou com dificuldade na utilização do comando IdentificaConsumidor, quando o mesmo possui CPF ou CNPJ; Simplesmente não imprime na Epson TM-T900F (convênio 09/09) No log em anexo aparece um erro, mas não entendi o por que. Se alguém puder me ajudar a entender o problema, agradeço. Att, Ivan log_TMT900F.TXT

Seguem testes sobre o que foi modificado:

Resolvido Daniel. Tudo OK com o nº de colunas e a página de código. Muito obrigado!

Vamos lá: Tento programar um relatório gerencial, utilizando o comando: ACBrECF1.ProgramaRelatoriosGerenciais('DAV-PEDIDO') Erro apresentado: Por que isto ocorreu ? Por que na procedure TACBrECFEscECF.ProgramaRelatorioGerencial, está pegando o nº de relatórios gerenciais já existentes e adicionando 1, nesta linha: Como na impressora o rel gerencial de índice 3 não existe, o PosRel = 6, e então tenta criar o gerencial com este índice. Porém o índice 6 já está cadastrado, conforme abaixo. É neste momento que ocorre o erro. Não sei lhe dizer se isto é normal, faltar um relatório gerencial. Eu nunca tinha visto. Apenas quis reportar por que outras pessoas podem passar pelo mesmo problema.

Bom. Não sei o que pode ser feito, mas quando tentei programar um relatório gerencial, ocorreu erro informando que o índice passado já existia. Executando o CarregaRelatoriosGerenciais, resultou em: --------------------------------- RG: 1 -> ParÔmetros Prog CER:0 RG: 2 -> Relatorio CER:0 RG: 4 -> Troca F Pagto CER:0 RG: 5 -> Fechamento Dia CER:0 RG: 6 -> DAV - ORCAMENTO CER:0 --------------------------------- Ou seja. O RG 3 não existe. Isto deve ter ocasionado o erro. Será que em todas as FS800i não existe o índice 3 ? Aqui eu programei apenas o DAV - ORCAMENTO. Os outros vieram programados. Na procedure TACBrECFEscECF.ProgramaRelatorioGerencial(var Descricao: String; Posicao: String) existe a linha PosRel := RelatoriosGerenciais.Count + 1; o que faz com que o ACBr "pense" que o próximo Rel Gerencial seja o 6, mas o 6 já está criado.

Ok Daniel ! Entendi. Preciso terminar esta questão com a Daruma e então iniciarei os testes com o trunk2. É que terei a Daruma aqui somente mais uma semana. Muito obrigado.

Ok Daniel! Vou fazer os testes. Muito obrigado

Olá Regys! Confesso que não entendi a sua resposta. Você diz que a Daruma FS800i não é compatível com os fontes do ACBrSerial que estão no Trunk ? Já comparei os fontes do Trunk com o Trunk2 e estão praticamente iguais, a não ser a questão do nome de algumas funções que mudam. Terei que converter todo o sistema para os fontes do Trunk2 para a Daruma funcionar corretamente ? Estive lendo o post sobre o Trunk2 e lá menciona que ele está em desenvolvimento. Creio ser bem arriscado ainda migrar e colocar pra rodar nos clientes. Isto levará tempo para testar muito bem antes de colocar em produção. Se você observar no post abaixo, O Daniel menciona que a Daruma está respondendo fora do padrão. Ontem ele detectou e fez um ajuste nos fontes da ACBrECFEscECF.pas e atualizou tanto o Trunk quanto o Trunk2 e funcionou perfeitamente a alteração que ele fez. Agora já é possível efetuar pagamento. E quanto a esta questão do nº de colunas, se você observar, nos fontes do Trunk2 também vem como 57 ao invés de 48.

Percebi que quando utilizado com Daruma FS800i, o nº de colunas vinha fixo como 57. O correto é 48. Segue unit com a correção em anexo, no método Ativar. Se possível, peço que avaliem a possibilidade de alterar no ACBr. Obrigado ACBrECFEscECF.pas

Ok. Obrigado! Eu havia aberto um tópico no SAC, no dia 05/06. Se puderes verificar. Mas somente você conseguiu me dizer o que estava errado. O pessoal da Daruma também havia me dito que já havia empresas utilizando em produção a FS800i com o ACBr. Por desconhecer o protocolo eu já não sabia mais a quem recorrer. Obrigado mesmo. Se puderes verificar com ele, agradeço. acbrlog_06072015.txt

Ok! Muito obrigado Daniel. Funcionou perfeitamente agora o EfetuaPagamento. Já é possível emitir cupons ! Estive testando outras coisas e então segue: Leitura X e Redução Z, as vezes ocorre erro de checksum. Se você pegar o ECFTeste, na opção Variáveis / Mapa Resumo, ocorre "List index out of bounds (1)" nas opções Total Descontos e Total Acréscimos. Segue log destes 2 comandos em anexo; (acbrlog_06072015_3.txt) Ainda no ECFTeste, na opção Variáveis / Formas de Pagamento, ocorre "'''' is not a valid integer value" na opção "Ler Totais Forma de Pagamento". Log em anexo (acbrlog_06072015_6.txt). O mesmo tipo de erro ocorre com a opção Ler Totais Comprovante Não Fiscal. Muito obrigado pela sua ajuda. acbrlog_06072015_3.txt acbrlog_06072015_6.txt

Daniel... Após apagar tudo e reinstalar tudo novamente, percebo que você tinha razão. A exceção ocorre mesmo na linha que você mencionou. RespostasComando.AddField( 'TotalAPagar', EscECFResposta.Params[0] ); acbrlog_06072015.txt

O Regys me pediu para utilizar o apagar.bat e reinstalar a ACBr. Vou fazer isto e testar tudo novamente. Depois te digo como ficou.