Elgin Ecd Mfd Fit 1E - Problemas Ecf

[raosistemas]

Boa noite, primeiramente não sei se criei meu novo post no local correto, mas o fato é que estou tendo problemas com a minha impressora fiscal mencionada acima, e que hoje funciona em um pequeno terminal...

 

baixei as dlls da elgin... (tools... ecf...)

utilizei o modelo fiscnet...

COM1...

velocidade 115200, paridade Even, data=8, softflow=false, hardflow=true...

 

ao clicar para abrir o cupom fiscal... com o método que já funciona com bematech, daruma, etc...

ele imprime o cabeçalho e o seguinte erro ocorre...

 

...Resposta CCO não encontrada

 

alguém já se deparou com o problema?

 

[Régys Silveira]

Poste o log para analisarmos.

[raosistemas]

Primeiramente boa tarde amigos... como devo ativar esse log?

Abraço!

[Régys Silveira]

Basta preencher a propriedade "ACbrECF.ArqLOG" com o caminho do arquivo, feito isso ele gera um arquivo com os dados de log, faça o teste que gera o erro e anexe o arquivo de log gerado aqui.

[raosistemas]

Opa...  na verdade não ocorre erro nenhum...  imprime somente o cabeçalho...

[Régys Silveira]

Anexe o log, assim podemos ver o que está sendo enviado e recebido.

 

Você está atualizado? Trocou o endereço do seu repositório ACBr, veja na minha assinatura como fazer se ainda não o fez.

[raosistemas]

Log anexado... me ajudem...

Quando clica para abrir cupom o erro ocorre...

 

At. RAO

 

object ACBrECF1: TACBrECF

  Modelo = ecfFiscNET

  Porta = 'COM3'

  ReTentar = False

  TimeOut = 7

  IntervaloAposComando = 0

  Operador = 'Caixa'

  MsgAguarde = 'Aguardando a resposta da Impressora: %d segundos'

  MsgTrabalhando = 'Impressora est'#225' trabalhando'

  BloqueiaMouseTeclado = False

  MsgRelatorio = 'Imprimindo %s  %d'#170' Via '

  MsgPausaRelatorio = 'Destaque a %d'#170' via, <ENTER> proxima, %d seg.'

  PaginaDeCodigo = 850

  FormMsgFonte.Charset = DEFAULT_CHARSET

  FormMsgFonte.Color = clWindowText

  FormMsgFonte.Height = -11

  FormMsgFonte.Name = 'Tahoma'

  FormMsgFonte.Style = []

  FormMsgColor = clHighlight

  OnAntesAbreCupom = ACBrECF1AntesAbreCupom

  OnChangeEstado = ACBrECF1ChangeEstado

  OnPAFCalcEAD = ACBrECF1PAFCalcEAD

  DecimaisQtd = 2

  MemoParams.Strings = (

    '[Cabecalho]'

    'LIN000=<center><b>RAO Sistemas</b></center>'

    'LIN001=<center>Rua General Osorio, 222 - Santa Efigenia</center>'

    'LIN002=<center>S'#227'o Paulo  - SP  - 01213-000</center>'

    'LIN003=<center>CNPJ: 08.449.080/0001-79</center>'

    

      'LIN004=<table width=100%><tr><td align=left><code>Data</code> <c' +

      'ode>Hora</code></td><td align=right>COO: <b><code>NumCupom</code' +

      '></b></td></tr></table>'

    'LIN005=<hr>'

    ' '

    '[Cabecalho_Item]'

    'LIN000=ITEM   CODIGO      DESCRICAO'

    'LIN001=QTD         x UNITARIO       Aliq     VALOR (R$)'

    'LIN002=<hr>'

    

      'MascaraItem=III CCCCCCCCCCCCCC DDDDDDDDDDDDDDDDDDDDDDDDDDDDDQQQQ' +

      'QQQQ UU x VVVVVVVVVVVVV AAAAAA TTTTTTTTTTTTT'

    ' '

    '[Rodape]'

    'LIN000=<hr>'

    

      'LIN001=<table width=100%><tr><td align=left><code>Data</code> <c' +

      'ode>Hora</code></td><td align=right>Projeto ACBr: <b><code>ACBR<' +

      '/code></b></td></tr></table>'

    'LIN002=<center>Obrigado Volte Sempre</center>'

    'LIN003=<hr>'

    ' '

    '[Formato]'

    'Colunas=48'

    'HTML=1'

    'HTML_Title_Size=2'

    'HTML_Font=<font size="2" face="COURIER NEW">')

  OnBobinaAdicionaLinhas = ACBrECF1BobinaAdicionaLinhas

  Device.Baud = 115200

  Device.Parity = pEven

  Device.HandShake = hsRTS_CTS

  Device.HardFlow = True

  ArqLOG = 'c:\log_elgin.txt'

  ConfigBarras.MostrarCodigo = False

  ConfigBarras.LarguraLinha = 3

  ConfigBarras.Altura = 10

  Left = 346

  Top = 230

end

 

e configuracoes...

log_elgin.txt

[raosistemas]

Algum retorno gente? ainda não consegui fazer funcionar essa Elgin!

[EMBarbosa]

Não tem erro de CCO não encontrada no seu log.

 

Nota: aumente o TimeOut para 10. O valor atual de 3 é muito baixo.

[raosistemas]

Resporta COO não encontrada... 

 

Aparece o cabeçalho... 

Aparece o titulo das colunas de itens... 

aí para...

 

log_elgin.txt

[raosistemas]

em anexo o que ele imprime do cupom...

[EMBarbosa]

    Sim. Eu percebi agora que a mensagem aparece no seu sistema, mas não aparece no log.

    O log tem um monte de outros erros como: "Gerencial nao carregado", "Documento nao fiscal nao carregado", "Meio de pagamento nao carregado", "Aliquota nao carregada", ...

    Apesar desses erros não tem nenhum erro "Resporta COO não encontrada". Na verdade, também não deveriam ter tantos erros como é apresentado no seu log. Assim, parece ser um problema no seu sistema.

    Então faça o seguinte, use o programa de exemplo, o ECFTeste, e diga qual o passo a passo para reproduzir o problema nele.

[raosistemas]

Na verdade eu adaptei o proprio sistema de ex... pode ser que eu nao esteja usando o modelo correto no ACBR?

pq utilizo o mesmo sistema com impressora bematech e daruma... e tudo funciona normalmente...

[EMBarbosa]

Acredito que não pois no log menciona o modelo quando acontece o comando ativar. Veja abaixo:

 

--------------------------------------------------------------------------------
ATIVAR - 03/07/13 14:21:53:640 - Modelo: FiscNET - Porta: COM1 - TimeOut: 3
         Device: BAUD=115200 DATA=8 PARITY=E STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0
--------------------------------------------------------------------------------

O que pode estar acontecendo é você estar passando parâmetros incorretos ou fazendo uma sequência incorreta.

Por exemplo, no seu log você abre o cupom e depois vai enviando um monte de comandos. Inclusive tem um ativar DEPOIS que abre o cupom. Esse ativar não tem sentido algum nesse momento. Carregar alíquotas depois que o cupom está aberto também não tem, pelo menos a princípio...

 

Se você usar o exemplo e dizer o passo a passo vai ficar mais fácil de encontrar o problema.

[raosistemas]

Segue novo log! 

Corrigi diversos problemas...a única coisa é que parece que o cupom não finaliza...

quem sabe alguém olhando o log possa me ajudar...

 

resumo do que está sendo enviado:

 

//abertura do cupom...

 

      ACBrECF1.Device.Baud := StrToInt(cbxVelocidade.Text);

      ACBrECF1.Porta       := cbxPortaComunicacao.Text;

      ACBrECF1.TimeOut     := 15;

      ACBrECF1.Operador    := 'CAIXA';

      ACBrECF1.Ativar;

      AtivarMenus(True);

      btnAtivarDesativar.Caption := 'Desativar';

      btnAtivarDesativar.Tag     := 99;

      case ACBrECF1.Estado of

        estVenda, estPagamento:

          begin

            ShowMessage('Cupom fiscal aberto, o cupom será cancelado!');

            ACBrECF1.CancelaCupom;

          end;

        estNaoFiscal:

          begin

            ShowMessage('Comprovante não fiscal aberto, o comprovante será cancelado!');

            ACBrECF1.CancelaNaoFiscal;

          end;

      end;

      ACBrECF1.CarregaAliquotas;

      ACBrECF1.CarregaFormasPagamento;

      ACBrECF1.CarregaComprovantesNaoFiscais;

      ACBrECF1.CarregaRelatoriosGerenciais;

      ACBrECF1.CarregaUnidadesMedida;

      ACBrECF1.IdentificaOperador('CAIXA');

      lblModeloImpressora.Caption := ACBrECF1.ModeloStr + sLineBreak + ACBrECF1.SubModeloECF;

 

// venda de itens

// resumindo é um loop dos itens...

 

                 tipoaliquota:='NN'; //a empresa é do simples

                 ModoDescAcresc := 'D';

                 TipoDescAcresc := '%';

                 frmPrincipal.ACBrECF1.VendeItem(

                   frmPrincipal.pbiCODPROD.AsString,

                   frmPrincipal.prodescfab.AsString,

                   tipoaliquota,

                   arredondar(frmPrincipal.pbiQUANT.AsFloat,1),

                   arredondar(frmPrincipal.pbiUNITARIO.AsFloat,2),0,

                   'UN',

                   TipoDescAcresc,

                   ModoDescAcresc

                );

 

// subtotalizar

 

          frmPrincipal.ACBrECF1.SubtotalizaCupom(0,'');

 

// registrar pagamentos

 

  Valorpago := StrToFloat(edtPagtoVlr.Text);

  frmPrincipal.ACBrECF1.EfetuaPagamento(Copy(cbxMeioPagto.Text, 1, 2),Valorpago,'',false);

  AtualizarTela;

  StatusBar1.Panels.Clear;

  with StatusBar1.Panels.Add do

  begin

    valorfalta:=(frmprincipal.ACBrECF1.Subtotal);

    if Valorfalta > 0 then

      Text := 'A Pagar: ' + FormatFloat(',#0.00', Valorfalta)

    else

      Text := 'Troco: ' + FormatFloat(',#0.00', Valorfalta);

      Width := 300;

  end;

 

  frmPrincipal.ACBrECF1.SubtotalizaCupom(0,''); // coloquei isso agora... tentei deixar sem isso também...

  if StrToFloat(edtValorTroco.Text) >= 0 then

 

 

// fechamento

 

  indicebmp:='0';

  Observacao :=

    edtFechamentoObs1.Text + sLineBreak +

    edtFechamentoObs2.Text + sLineBreak +

    edtFechamentoObs3.Text;

 

     // lei 12.741/2013 transparencia dos impostos

     // ACBrECF1.InfoRodapeCupom.Imposto.Texto := '...'; utilize essa propriedade se quiser personalizar o texto exemplo: Valor impostos %s (%s %) meu texto

     frmprincipal.ACBrECF1.InfoRodapeCupom.Imposto.ValorAproximado :=  impostopro;  // informar o valor aproximado calculado a partir dos itens

     frmprincipal.ACBrECF1.InfoRodapeCupom.Imposto.Fonte           := 'IBPT'; // informar a fonte de onde veio a informação para calculo

 

     // ER 02.01 - Requisito XXVIII item 8

     //ACBrECF1.InfoRodapeCupom.NF := '123456';

 

 

     Observacao := StringReplace(Observacao,'|',#10,[rfReplaceAll,rfIgnoreCase]) ;

     frmprincipal.ACBrECF1.FechaCupom(Observacao,StrToIntDef(IndiceBMP, 0));

 

 

 

 

 

[EMBarbosa]

Cadê o log?

[raosistemas]

desculpe, segue anexo...

fiscnet_log.txt

[raosistemas]

Maravilha... funcionou belezinha!!!

Grande abraço!

[EMBarbosa]

Você mesmo pode marcar o post como resolvido usando o botão logo abaixo da resposta que lhe ajudou.