ivan

Vamos lá! 1) Conectei ao ECF (através do ECFTeste.exe) com cupom pendente e redução Z pendente. 2) Cancelei o cupom 3) Emiti a redução Z (ocorreu list index out of bounds[1]) 4) Fiz um cupom simples, com 3 ítens 5) subtotalizei o cupom. 6) Cliquei em Efetuar pagamento. Ocorreu a mensagem "Impressora não está em Estado de Pagamento. Primeiro use Subtotaliza Cupom". Mas já havia feito a subtotalização. 7) Fechei com pagamento em dinheiro (ocorreu list index out of bounds[0]). Abaixo, segue a sequência de comandos que efetuei no ECFTeste Ativar #1#4#353#0#5#1#0#0#0#0#0#164 - + - + - + - + - + - + - + - + - + - + - + - CancelaCupom #1#10#26#0#0#5#0#0b#7#02|9200|#8225 - + - + - + - + - + - + - + - + - + - + - + - REDUÇÃO Z PENDENTE List index out of bounds (1) #1#25#26#0#0#1#0#0#0#5#01|28|#204 - + - + - + - + - + - + - + - + - + - + - + - AbreCupom #1#28#26#0#0#1#0#0@#5#01|29|#16 - + - + - + - + - + - + - + - + - + - + - + - Vende Item: Cod:111222333 DescTESTE DE PRODUTO Aliq:NN Qtd:1 Preço:1 Desc:0 Un:UN Desc:% - + - + - + - + - + - + - + - + - + - + - + - Vende Item: Cod:111222333 DescTESTE DE PRODUTO Aliq:NN Qtd:1 Preço:1 Desc:0 Un:UN Desc:% - + - + - + - + - + - + - + - + - + - + - + - Vende Item: Cod:111222333 DescTESTE DE PRODUTO Aliq:NN Qtd:1 Preço:1 Desc:0 Un:UN Desc:% - + - + - + - + - + - + - + - + - + - + - + - Subtotaliza Cupom: 0 - + - + - + - + - + - + - + - + - + - + - + - List index out of bounds (0) #1,#4#0#0#1#0#0@#1#0|#238 - + - + - + - + - + - + - + - + - + - + - + - Fecha Cupom: Componentes ACBr http://acbr.sourceforge.net #1-#5#0#0#1#0#0@#22#029|08062015090223|300|#193 - + - + - + - + - + - + - + - + - + - + - + - Log do acbr em anexo ! acbrlog_forum.txt acbrlog_forum.txt

Abaixo o log do ACBr, porém o erro não aparece aí. Resposta: SEQ:53 CMD:26 EXT:0 CAT:0 RET:[SOH][NUL][NUL]@ TBR:3 BRS:"10|" CHK:112 16:36:27:181 RX <- [SOH]5[26][NUL][NUL][SOH][NUL][NUL]@[ETX][NUL]10|p -- 16:36:58:472 EfetuaPagamento( 1 , 11 , , 0, 0 ) TX -> [SOH]6[4][NUL][FF][NUL]1|1100|1||7|[CR] RX <- [ACK] Status TX -> [ENQ][NUL] RX <- [WAK][16][SOH][NUL][NUL][NUL] Status TX -> [ENQ][NUL] RX <- [WAK][16][SOH][NUL][NUL][NUL] Status TX -> [ENQ][NUL] Resposta: SEQ:54 CMD:4 EXT:0 CAT:0 RET:[SOH][NUL][NUL]@ TBR:1 BRS:"|" CHK:248 16:36:58:646 RX <- [SOH]6[4][NUL][NUL][SOH][NUL][NUL]@[SOH][NUL]|[248] O erro que ocorre é "list index out of bounds[0]", no código abaixo : procedure TACBrECFEscECF.EfetuaPagamento(CodFormaPagto : String ; Valor : Double ; Observacao : AnsiString ; ImprimeVinculado : Boolean ; CodMeioPagamento : Integer) ; Var NumPagtos : Integer; TotPag : Double; begin if (CodMeioPagamento <= 0) or (CodMeioPagamento > 7) then CodMeioPagamento := 7; { 1-Dinheiro, 2-Cheque, 3-Cartão de Crédito, 4-Cartão de Débito, 5-Cartão Refeição/Alimentação, 6-Vale Refeição/Alimentação (em papel), 7-Outros } with EscECFComando do begin CMD := 4 ; AddParamString( CodFormaPagto ); AddParamDouble( Valor ); AddParamInteger( 1 ); // Parcelas ?? AddParamString( LeftStr(Observacao, 84) ); AddParamInteger( CodMeioPagamento ); end ; EnviaComando ; try NumPagtos := RespostasComando.FieldByName('NumPagtos').AsInteger; except NumPagtos := 0; end ; try TotPag := RespostasComando.FieldByName('TotalPago').AsFloat; except TotPag := 0; end ; Inc( NumPagtos ) ; RespostasComando.AddField( 'NumPagtos', IntToStr(NumPagtos) ); RespostasComando.AddField( 'Pagto'+IntToStr(NumPagtos), CodFormaPagto+'|'+FloatToStr(Valor)+'|'+IntToStr(CodMeioPagamento) ); RespostasComando.AddField( 'TotalAPagar', EscECFResposta.Params[0] ); RespostasComando.AddField( 'TotalPago', FloatToIntStr(Valor + TotPag) ); SalvaRespostasMemoria(False); end; O estranho é que parece que sempre que o valor que deve retornar seja 0 (zero), no caso acima o campo "TotalAPagar", parece dar este problema. Quando o ECF chegou, fui testar direto no sistema e não conseguia fazer funcionar por que o valor do Totalizador Geral estava zerado no ECF (para o cálculo do GT) e dava exatamente o mesmo problema. Tive que fazer um cupom primeiro pelo ECFTeste para que o ECF não tivesse mais o Totalizador Geral zerado e este erro parasse de acontecer.

Olá... Consegui uma Daruma FS800i (Protocolo 09/09) para testes. Durante estes testes está ocorrendo erro na procedure TACBrECFEscECF.EfetuaPagamento. Ocorre no ECFTeste também. O problema ocorre nesta linha: try NumPagtos := RespostasComando.FieldByName('NumPagtos').AsInteger; except NumPagtos := 0; end ; Alguem tem o manual dos comandos para comunicação direta ?

Acabei de ter retorno da Epson Resolvido.

Estou tentando gerar o arquivo do Ato Cotepe 17/04 em uma Epson TM-T81 FB-III. Segue o requisito: Então, preciso gerar por intervalos de Data e por intervalos de COO. Por intervalos de Data funciona perfeitamente: ArquivoMFD_DLL(DataInicial, DataFinal, Arquivo) Por intervalos de COO retorna "Função não suportada pelo modelo de ECF utilizado", utilizando desta forma: ArquivoMFD_DLL(COOinicial, COOFinal, Arquivo). Entrei em contato com o homologador e me informou que teria que verificar com a Epson. Entrei em contato com a Epson mas a pessoa responsável pelo suporte a desenvolvedor está de férias e a outra pessoa designada para esta função não responde. Então, se for possível, gostaria de saber: 1) Chamei a função de forma correta para a opção de intervalo de COO ? 2) A mensagem que retorna, de "função não suportada..." está correta ? Att, Ivan

Ok! Mas como ficaria para quem usa para restaurantes ?

Sim.. Para o meu caso funciona perfeitamente. Porém, se algum dia eu necessitar reinstalar o ACBr vou ter que lembrar de alterar novamente os fontes.

Olá Elton ! Sim.. eu atualizei os fontes. Bom, neste caso, como só tenho Conta de Clientes, de forma temporária, eu alterei o texto da função TACBrECF.GetRodapeRestaurante no ACBrECF.pas. Resolve o problema temporariamente, mas eu creio que a solução seria criar as propriedades específicas para Conta de Clientes.

O REQUISITO LII do Ato cotepe 09/13 (http://www1.fazenda.gov.br/confaz/confaz/Atos/Atos_Cotepe/2013/ac009_13.htm) trata sobre as mensagens suplementares que devem existir no caso de cupom emitido através de uma conta de cliente. No Cupom Fiscal a que se refere os itens 7 e 8 deste requisito, tratando-se de ECF que imprima o campo "informações suplementares", imprimir neste campo, a partir do primeiro caractere, a seguinte informação: a) ECF: nnn - Conferência de Conta de Cliente - CER nº xxxxxx - COO nº yyyyyy, onde “nnn” é o número sequencial do ECF atribuído pelo usuário onde foi emitido o documento Conferência de Conta de Cliente, “xxxxxx” é o número do Contador Específico de Relatório Gerencial (CER) e “yyyyyy” é o número do Contador de Ordem de Operação (COO) do Relatório Gerencial - Conferência de Conta de Cliente, quando for o caso de impressão da Conferência de Conta de Cliente. Conta de Cliente N - SEM EMISSÃO DE CONFERÊNCIA DE CONTA DE CLIENTE, onde xxx é o número da “Conta de Cliente Aberta”. Bom... Na propriedade InfoRodapeCupom eu encontrei : ACBrECF1.InfoRodapeCupom.Restaurante.Mesa ACBrECF1.InfoRodapeCupom.Restaurante.ECF ACBrECF1.InfoRodapeCupom.Restaurante.CER ACBrECF1.InfoRodapeCupom.Restaurante.COO ACBrECF1.InfoRodapeCupom.Restaurante.Imprimir Neste caso, preenchendo a propridades acima, as mensagem vão para o cupom fiscal como "Mesa" (Exemplo "Sem emissão de conferência de mesa" ou "ECF: 002 - Conf. de Mesa ..."). Como fazer para que o ACBrECF assuma como "Conta de Cliente" e já traga corretamente as frases ?

Olá... Estou realizando uma pré-homologação na Unochapecó, e lá, eles exigem que: 1) O arq. MF do menu fiscal gere: a) arquivo binario arquivo MF : Do registro E01 ao E13 mais o EAD 2) O arq. MFD do menu fiscal gere: a) arquivo binário arquivo MFD : Do registro E01,E02 e E014 ao E21 mais o EAD Sei que é somente a Unochapecó que pede isto, mas tenho que conseguir fazer. Pesquisei no ACBr e não encontrei comandos para eles. O binário é fácil gerar. Como posso fazer para gerar estes registros E no arquivo TXT ? Quais seriam os comandos ? Obrigado Ivan

Ok.. depois de alguns dias, tive a resposta da Daruma... O comando está correto da forma como escrevi. Porém, eles me alertaram de que esta versão não pode mais ser utilizada. Tem que atualizar para a versão 01.05.00.

Bom... de acordo com o manual, este comando é compatível somente com os modelos FS600 (010500) e FS700 L/H/M. Estarei entrando em contato com a Daruma amanhã para confirmar isto. Obrigado !

Olá Atualizei os fontes do ACBr e me deparei com uma situação nova com a Daruma FS600. Ao identificar o consumidor no fechamento do cupom, este não era mais impresso. Isto ocorre apenas com a FS600 onde o fsNumVersao = 010400. Baixei os manuais da Daruma e esta nova forma de identificar o consumidor não é compatível com esta versão deste modelo. Desta forma, fiz uma modificação. Aqui funcionou plenamente. Peço que avaliem e atualizem caso julgarem que está ok. procedure TACBrECFDaruma.FechaCupom(Observacao: AnsiString; IndiceBMP : Integer); Var Obs, StrConsumidor : AnsiString ; begin Obs := Observacao ; if (not Consumidor.Enviado) then begin try AguardaImpressao := True ; if (fpMFD) and not(fsNumVersao = '010400') then begin StrConsumidor := LeftStr(Consumidor.Documento,20) + cDELIMITADOR + LeftStr(Consumidor.Nome,30) + cDELIMITADOR + LeftStr(Consumidor.Endereco,79) + cDELIMITADOR ; EnviaComando( FS + 'F' + #240 + StrConsumidor ) ; end else if fsNumVersao = '2000' then begin StrConsumidor := PadL( PadL(Consumidor.Documento,27) + PadL(Consumidor.Nome,42)+ PadL(Consumidor.Endereco,42), 153) ; EnviaComando( ESC + #208 + StrConsumidor ) ; end else begin StrConsumidor := PadL(Consumidor.Nome,84) + PadL(Consumidor.Endereco,84) + PadL(Consumidor.Documento,84) ; EnviaComando( ESC + #201 + StrConsumidor ) ; end ; Consumidor.Enviado := True ; except Obs := Observacao; end ; end ;

Você diz por "chamar", setar a propriedade GPAtual do ACBrTEFD ?

Olá Juliomar... Até fiz isto que você mencionou. Como fica chamar um CRT ? No meu caso aqui ele sempre está chamando o primeiro que foi inicializado.

Preciso fazer com que o PAF funcione com dois gerenciadores padrão ativos (tefDial e o ConvCard). Como posso fazer para o AcbrTefd funcionar com os dois ao mesmo tempo ? Grato Ivan

A NTK disponibilizou novo roteiro e novas versões do Pay&Go Cliente e Servidor. No roteiro novo, os testes de desligar o computador são os testes de 67 a 70. Tudo funcionou adequadamente agora. 100%. Obrigado

No roteiro novo, os testes de desligar o computador são os testes de 67 a 70. Tudo funcionou adequadamente agora. 100%. Obrigado

Boa tarde.. A NTK disponibilizou novas versões para a certificação. Alteraram tanto o roteiro quanto o Pay&Go cliente e servidor. No teste 37 - Operação bem sucedida com recibo longo, ocorre o erro de número de linhas excedido. Pelo que entendi a Epson não suporta um relatório tão longo. Alguma sugestão ? Segue o log do acbr -- 16:05:12:778 LinhaRelatorioGerencial( "Aqui esta a linha 401.[CR][LF]Aqui esta a linha 402.[CR][LF]Aqui esta a linha 403.[CR][LF]", 0 ) TX -> [sTX][194][14][ESC][sTX][FS][NUL][NUL][FS]Aqui esta a linha 401.[ETX]0817 16:05:12:850 RX <- [sTX][194][NUL][NUL][FS][192][132][FS][FS][14][sOH][FS][ETX]028A ----------------- ERRO ----------------- Erro retornado pela Impressora: Epson Erro: 0E01 - Número de linhas em documento excedido. ---------------------------------------- -- 16:05:12:850 Estado TX -> [sTX][195][bS][16][FS][NUL][NUL][ETX]00FC 16:05:12:920 RX <- [sTX][195][NUL][NUL][FS][192][132][FS][FS][NUL][NUL][FS][FS]1[ETX]02C9 Att Ivan

Me disseram que não há configuração para fazer. É só instalar e seguir o roteiro. Então me informaram que atualizaram a versão do roteiro, do Pay&Go Server e Cliente. Estou fazendo tudo novamente. Depois vou postar o resultado.

Ok.. Enviei e-mail para eles ontem a noite, mas ainda não obtive retorno Muito obrigado.

Ainda não entrei em contato com eles, por que achei melhor ter uma segunda opinião. No acbr não encontrei nenhum problema. Mas como pode não funcionar comigo e funcionar com você ? Será que você consegue fazer este teste com a mesma versão do Pay&Go que me enviaram (a partir do link de download que postei anteriormente) ou então, se for possível, eu poder baixar a versão do Pay&Go cliente e servidor que você utilizou para fazer os seus testes ?

Ok ! Entendi

Régys... seguem novos arquivos. Estes arquivos agora contem dados de antes e depois das transações. Observe que passou o teste 74 e 75 (de forma esporádica, as vezes passa as vezes não), mas parou pelo mesmo motivo no teste 76. Ivan ntk_2.rar

Me perdoe. Apenas postei aqui por que percebi poucos tem acesso ao ACBrSAC e assim talvez alguem pudesse me ajudar. Como sou assinante do serviço há bastante tempo, não pensei que isto pudesse gerar um problema em encher os servidores.