Acbrecf - Fiscnet - Fechacupom

[Hallysson]

Boa tarde a todos! 
Primeiramente gostaria de agradecer a todos pelos excelentes componentes disponibilizados pelo ACBr!
Estou aprendendo muito estudando os fontes deles.
 
Eu encontrei um pequeno problema com ACBrECF, na camada FiscNet, ACBrECFFiscNET, 
 
A impressora FiscNet, pelo menos a que estou fazendo testes aqui, não aceita mais que 8 linhas na observação, e da erro se passar dessa quantidade de linhas.
 
Mas a Função FechaCupom dessa impressora, não está retornando o erro..

try
     FiscNETComando.NomeComando := 'EncerraDocumento' ;
     if (Obs <> '') then
        FiscNETComando.AddParamString('TextoPromocional',Obs);
     FiscNETComando.TimeOut     := 5 ;
     FiscNETComando.AddParamString('Operador',Operador) ;
     EnviaComando ;

  except
     on E : Exception do
     begin
        if (pos('ErroProtSequenciaComando',E.Message) <> 0) or
           (pos('ErroCMDForaDeSequencia',E.Message) <> 0) then
        begin
           if (Obs <> '') then
           begin
              FiscNETComando.NomeComando := 'ImprimeTexto' ;
              FiscNETComando.AddParamString('TextoLivre',Obs);
              EnviaComando ;
           end ;

           FiscNETComando.NomeComando := 'EncerraDocumento' ;
           FiscNETComando.TimeOut     := 5 ;
           FiscNETComando.AddParamString('Operador',Operador) ;
           EnviaComando ;
        end else //Está faltando o Else para dar o exception 
        begin
          raise;
        end;
     end ;

  end ;

está faltando a parte em negrito acima.. 

se acontecer algum erro no primeiro try, e o erro não for um dos dois tratado no except, o erro é ocultado e não retorna exceção nenhuma..

 

[EMBarbosa]

Qual a marca e o modelo do ECF que você está usando?

[Hallysson]

ZPM 200

mas o problema é no fonte, acho que não ficou claro no post acima, rs..

o fonte original do ACBR está assim..

try
     FiscNETComando.NomeComando := 'EncerraDocumento' ;
     if (Obs <> '') then
        FiscNETComando.AddParamString('TextoPromocional',Obs);
     FiscNETComando.TimeOut     := 5 ;
     FiscNETComando.AddParamString('Operador',Operador) ;
     EnviaComando ;

  except
     on E : Exception do
     begin
        if (pos('ErroProtSequenciaComando',E.Message) <> 0) or
           (pos('ErroCMDForaDeSequencia',E.Message) <> 0) then
        begin
           if (Obs <> '') then
           begin
              FiscNETComando.NomeComando := 'ImprimeTexto' ;
              FiscNETComando.AddParamString('TextoLivre',Obs);
              EnviaComando ;
           end ;

           FiscNETComando.NomeComando := 'EncerraDocumento' ;
           FiscNETComando.TimeOut     := 5 ;
           FiscNETComando.AddParamString('Operador',Operador) ;
           EnviaComando ;
        end
     end ;
  end ;

sem o else para exibir a exceção 

 

quando chamo a função FechaCupom , executa sem de o exception, porem não fecha o CF.

pq cai no try except mas o mesmo oculta o exception

Editado 15 Abril, 2014 por Hallysson

[EMBarbosa]

A questão é que o protocolo fiscNET abrange modelos de diferentes marcas e gostaria de saber se não é uma limitação do modelo em si.

 

Anexe, por favor, o arquivo que você alterou para que possa ser analisado e enviado ao repositório.

[Juliomar Marchetti]

A questão é do tamanho de linhas Elton?

se for alguns das outras marcas simplesmente corta ele e envia somente o que a ECF pode usar!

evitando disparar uma exceção 

[EMBarbosa]

Seria a quantidade de linhas mesmo. Mas eu percebi que o código alterado está correto independente do comportamento dos modelos, pois o código atual está "engolindo" Exceptions não tratadas.

[Hallysson]

Segue em anexo. 

ACBrECFFiscNET.pas

[Hallysson]

Na unit que estou usando aqui na empresa, eu alterei também a questão ta linha, deixando enviar somente 8 linhas para a ECF..

mas não enviei essa alteração no anexo, pq como o EMBarbosa comentou, essa limitação pode ser do modelo que estou usando..

[Juliomar Marchetti]

Essa limitação é padrão em todas as ECF!

[Hallysson]

Eu não sabia que era de todas as ECFs..

 

Então essa questão de limitar o numero de linhas, poderia ser feita na FechaCupom da ACBrECF, antes de chamar a FechaCupom de cada ECF, não?

Algumas ECF não dão erro, a Bematech por exemplo, mas algumas não consegue fechar o CF.

 

Verificando a FechaCupom da Bematech, tem um copy de 490 Caracteres, mas ela não dá erro se passar mais de 8 linhas como deu na ZPM-200..

[EMBarbosa]

Eu não sabia que era de todas as ECFs..

 

Então essa questão de limitar o numero de linhas, poderia ser feita na FechaCupom da ACBrECF, antes de chamar a FechaCupom de cada ECF, não?

  Eu pessoalmente acredito que não. A menos que seja um tratamento recomendado pelo manual do ECF, é uma limitação do ECF no momento. Digo, apenas esse modelo parece não ter o tratamento para remover os caracteres em excesso.

  Mas a alteração da exception eu acredito que esteja faltando mesmo e concordo com a alteração.

[Hallysson]

Blz Então.

 

Eu achei alguns probleminhas parecidos, 

Mas acredito que seja melhor criar um outro tópico pq não trata do FechaCupom.

 

Obrigado pelos esclarecimentos!!.

[EMBarbosa]

Subi suas alterações para o SVN na Revisão  6646.
Pelo que vi está tudo certo.
Favor testar e reportar qualquer problema.
Obrigado.

 

Com respeito aos outros problemas parecidos, queira realmente criar outros tópicos já que não estão relacionados diretamente com o FechaCupom.

[Hallysson]

Ficou certinho EMBarbosa!

 

Terminando os testes aqui eu crio o outro tópico então.

Obrigado pela atenção e mais uma vez, parabéns a todos que ajudaram a fazer os componentes do ACBr!

[Rodrigo Fruhwirth]

Boa tarde, estou enviando uma correção para a FiscNET com a seguinte situação.

Quando no método fechaCupom enviamos a string:

'MINAS LEGAL: 03600477000104 03112016 14000'#$A'Trib aprox R$:18,83 Federal e 16,80 Estadual'#$A'Fonte:IBPT Ar5Fr7'#$A'SDLFK JSADLKJF HSLDKJF HSKJLD FSADLKJ FSKLDJ '#$A'FSKLJD FHSKLJDAF HSLKDAJF SAKLDJF SKALDJF '#$A'SKALDJF SADKL'#$A'0000002280 '#$A'38440-171-ARAGUARI-MG-'#$A

E os dados do PAF não estão dentro da observação de fechamento e somente em fsPAF temos a seguinte situação:

  if (fsPAF <> '') and (pos(fsPAF,Obs) = 0) then
  begin
    if Obs = '' then
       Obs := fsPAF
    else
       Obs := fsPAF + #10 + Obs //Aqui poderá excede o número de linhas da ECF pois em nenhum momento após isso estamos nos preocupando novamente com o número de linhas resultantes dessa operação.
  end ;
 

Para tal mudei o código para:

  if (fsPAF <> '') and (pos(fsPAF,Obs) = 0) then
  begin
    if Obs = '' then
       Obs := fsPAF
    else begin
       Obs := fsPAF + #10 + Obs ;
       Obs := AjustaLinhas(Obs, Colunas, NumMaxLinhasRodape);
    end;
  end ;
 

 

ACBrSerial-change-log.txt

ACBrECFFiscNET.pas

Editado 3 Novembro, 2016 por Rodrigo Fruhwirth

[Juliomar Marchetti]

Boa tarde!

senão me engano isso será removido pois esse novo E.R. não tem mais essa veja o trecho abaixo

Citar

REQUISITO IX

1. O PAF-ECF deve comandar a impressão no Cupom Fiscal de código composto por informações relativas ao respectivo Cupom Fiscal, observando-se que:

2 – REVOGADO

2a. REVOGADO

2b – REVOGADO

2c. Para o PAF-ECF utilizado por estabelecimento situado no Estado da Paraíba, o código deve ser precedido da expressão “PARAÍBA LEGAL - RECEITA CIDADÔ, em caixa alta, na primeira linha e, na segunda linha, “TORPEDO PREMIADO:”, em caixa alta e deve obedecer ao formato 999999999espaçoddmmaaaaespaço888888espaço777777777, onde:

“999999999” representa o número da Inscrição Estadual - IE do contribuinte usuário do ECF, impresso no cabeçalho do Cupom Fiscal;

“ddmmaaaa” representa a data de emissão do Cupom Fiscal impressa em seu cabeçalho;

“888888” representa o número do Cupom Fiscal (Número do Contador de Ordem de Operação - COO) com zeros (0) à esquerda;

“777777777” representa o valor total do respectivo Cupom Fiscal, sem zeros (0) à esquerda;

Exemplo:

Dados do Cupom Fiscal: IE: 161444539 Data: 19/06/2013 COO: 127564 Valor Total: R$ 125,45

Formação do código:

PARAÍBA LEGAL - RECEITA CIDADÃ

TORPEDO PREMIADO:

161444539 19062013 127564 12545

3. O código deve ser impresso na primeira linha disponível do campo “mensagens promocionais" ou do campo “informações suplementares", conforme o modelo de ECF, após a impressão das demais informações previstas nesta especificação.

 

[Rodrigo Fruhwirth]

De qualquer forma porque se mandarmos uma string muito grande para a ECF no fechamento do cupom e a expressão do PAF for adicionada a observação, a mesma deve ser remontada para caber dentro das 8 linhas.

Que no exemplo acima a string de fechamento fica com 10 linhas apresentando erro que excedeu o número de linhas.

[Daniel Simoes]

Obrigado pela contribuição...

Enviei para o SVN com pequenas modificações...

[Rodrigo Fruhwirth]

Ótimo, eu não quis fazer dessa forma para não criar impacto em operações as quais eu não testei mas por mim ficou ótimo assim.