FiscNet -> Sangria + IdentificaPAF

Endrigo Rodrigues · 24 Agosto, 2011

Estou tendo problemas com as impressoras FiscNet quando é utilizado o comando IdentificaPAF na inicialização do sistema. Ao emitir a Sangria, o sistema dá erro na parte do fechamento do cupom não fiscal, mesmo executando o IdentificaPAF('', ''); o ACBr tenta enviar um #$A para o rodapé do cupom não fiscal.

Alguém saberia me dizer o que está acontecendo, se o problema é do meu ECF ou se realmente a Sangria não aceita rodapé na FiscNet?

Obs: Depurando e setando o conteúdo da variável para vazio a sangria é realizada.

Endrigo Rodrigues · 26 Agosto, 2011

Ninguém teve esse problema? Gostaria que alguém que utilize IdentificaPAF e Sangria na FiscNet postasse um parecer sobre o assunto. Será que somente eu estou tendo esse problema?

Endrigo Rodrigues · 26 Agosto, 2011

O ACBr está utilizando o comando ImprimeTexto para a impressão do rodapé da Sangria, isso está ocasionando erro. O correto é utilizar o parâmetro TextoPromocional do comando EncerraDocumento.

Gostaria de saber se é possível fazerem essa alteração.

EMBarbosa · 26 Agosto, 2011

Você pode anexar aí as alterações sugeridas?

Daniel Fantastsoft · 26 Agosto, 2011

Esse é o Código Antigo


procedure TACBrECFFiscNET.FechaCupom(Observacao: AnsiString; IndiceBMP : Integer);

var

  Obs: AnsiString;

begin

  Obs := Observacao ;


  if not Consumidor.Enviado then

  begin

     { Removendo o Consumidor da Observação, pois vai usar comando próprio }

     Obs := StringReplace(Obs,#10+'CPF/CNPJ consumidor: '+Consumidor.Documento,'',[]) ;

     Obs := StringReplace(Obs,#10+'Nome: '+Consumidor.Nome,'',[]) ;

     Obs := StringReplace(Obs,#10+'Endereco: '+Consumidor.Endereco,'',[]) ;

     try

        { Se tiver Observações no rodape, deve enviar antes do consumidor }

        if Obs <> '' then

        begin

          FiscNETComando.NomeComando := 'ImprimeTexto' ;

          FiscNETComando.AddParamString('TextoLivre',Obs);

          EnviaComando ;

        end ;


        FiscNETComando.NomeComando := 'IdentificaConsumidor' ;

        FiscNETComando.AddParamString('IdConsumidor',LeftStr(Consumidor.Documento,29)) ;

        if Consumidor.Nome <> '' then

           FiscNETComando.AddParamString('NomeConsumidor',LeftStr(Consumidor.Nome,30)) ;

        if Consumidor.Nome <> '' then

           FiscNETComando.AddParamString('EnderecoConsumidor',LeftStr(Consumidor.Endereco,80)) ;

        EnviaComando ;

        Consumidor.Enviado := True ;

     except

//        Obs := Observacao ;

     end ;

  end ;


     { Tem PAF ? }     { PAF ainda não está na Obs ?}

  if (fsPAF <> '') and (pos(fsPAF,Obs) = 0) then

     if Obs = '' then

        Obs := fsPAF

     else 

        Obs := fsPAF + #10 + Obs ;


  if (Obs <> '') then

  begin

     FiscNETComando.NomeComando := 'ImprimeTexto' ;

     FiscNETComando.AddParamString('TextoLivre',Obs);

     EnviaComando ;

  end else


  FiscNETComando.NomeComando := 'EncerraDocumento' ;

  FiscNETComando.TimeOut     := 5 ;

  FiscNETComando.AddParamString('Operador',Operador) ;

  EnviaComando ;


  fsEmPagamento := false ;

end;

Com as devidas Alterações ficou Assim

procedure TACBrECFFiscNET.FechaCupom(Observacao: AnsiString; IndiceBMP : Integer);

var

  Obs: AnsiString;

begin

  Obs := Observacao ;


  if not Consumidor.Enviado then

  begin

     { Removendo o Consumidor da Observação, pois vai usar comando próprio }

     Obs := StringReplace(Obs,#10+'CPF/CNPJ consumidor: '+Consumidor.Documento,'',[]) ;

     Obs := StringReplace(Obs,#10+'Nome: '+Consumidor.Nome,'',[]) ;

     Obs := StringReplace(Obs,#10+'Endereco: '+Consumidor.Endereco,'',[]) ;

     try

        { Se tiver Observações no rodape, deve enviar antes do consumidor }

        if Obs <> '' then

        begin

          FiscNETComando.NomeComando := 'EncerraDocumento' ;

          FiscNETComando.AddParamString('TextoPromocional',Obs);

          EnviaComando ;

        end ;


        FiscNETComando.NomeComando := 'IdentificaConsumidor' ;

        FiscNETComando.AddParamString('IdConsumidor',LeftStr(Consumidor.Documento,29)) ;

        if Consumidor.Nome <> '' then

           FiscNETComando.AddParamString('NomeConsumidor',LeftStr(Consumidor.Nome,30)) ;

        if Consumidor.Nome <> '' then

           FiscNETComando.AddParamString('EnderecoConsumidor',LeftStr(Consumidor.Endereco,80)) ;

        EnviaComando ;

        Consumidor.Enviado := True ;

     except

//        Obs := Observacao ;

     end ;

  end ;


     { Tem PAF ? }     { PAF ainda não está na Obs ?}

  if (fsPAF <> '') and (pos(fsPAF,Obs) = 0) then

     if Obs = '' then

        Obs := fsPAF

     else 

        Obs := fsPAF + #10 + Obs ;


  if (Obs <> '') then

  begin

     FiscNETComando.NomeComando := 'EncerraDocumento' ;

     FiscNETComando.AddParamString('TextoPromocional',Obs);

     EnviaComando ;

  end else

  begin

    FiscNETComando.NomeComando := 'EncerraDocumento' ;

    FiscNETComando.TimeOut     := 5 ;

    FiscNETComando.AddParamString('Operador',Operador) ;

    EnviaComando ;

  end;


  fsEmPagamento := false ;

end;

Endrigo Rodrigues · 26 Agosto, 2011

procedure TACBrECFFiscNET.FechaCupom(Observacao: AnsiString; IndiceBMP : Integer);

var

  Obs: AnsiString;

begin

  Obs := Observacao ;


  if not Consumidor.Enviado then

  begin

     { Removendo o Consumidor da Observação, pois vai usar comando próprio }

     Obs := StringReplace(Obs,#10+'CPF/CNPJ consumidor: '+Consumidor.Documento,'',[]) ;

     Obs := StringReplace(Obs,#10+'Nome: '+Consumidor.Nome,'',[]) ;

     Obs := StringReplace(Obs,#10+'Endereco: '+Consumidor.Endereco,'',[]) ;

     try

        { Se tiver Observações no rodape, deve enviar antes do consumidor }

        if Obs <> '' then

        begin

          FiscNETComando.NomeComando := 'EncerraDocumento' ;

          FiscNETComando.AddParamString('TextoPromocional',Obs);

          EnviaComando ;

        end ;


        FiscNETComando.NomeComando := 'IdentificaConsumidor' ;

        FiscNETComando.AddParamString('IdConsumidor',LeftStr(Consumidor.Documento,29)) ;

        if Consumidor.Nome <> '' then

           FiscNETComando.AddParamString('NomeConsumidor',LeftStr(Consumidor.Nome,30)) ;

        if Consumidor.Nome <> '' then

           FiscNETComando.AddParamString('EnderecoConsumidor',LeftStr(Consumidor.Endereco,80)) ;

        EnviaComando ;

        Consumidor.Enviado := True ;

     except

//        Obs := Observacao ;

     end ;

  end ;


     { Tem PAF ? }     { PAF ainda não está na Obs ?}

  if (fsPAF <> '') and (pos(fsPAF,Obs) = 0) then

     if Obs = '' then

        Obs := fsPAF

     else

        Obs := fsPAF + #10 + Obs ;


  FiscNETComando.NomeComando := 'EncerraDocumento' ; 

  if (Obs <> '') then 

     FiscNETComando.AddParamString('TextoPromocional',Obs); 

  FiscNETComando.TimeOut     := 5 ; 

  FiscNETComando.AddParamString('Operador',Operador) ; 

  EnviaComando ; 


  fsEmPagamento := false ;

end;

Endrigo Rodrigues · 20 Setembro, 2011

Vi que os fontes do SVN ainda continuam com problemas com ECF FiscNet.

Alguma previsão de alteração da função FechaCupom?

Endrigo Rodrigues · 20 Setembro, 2011

Segue em anexo o arquivo fonte ACBrECFFiscNET.pas modificado.

ACBrECFFiscNET.pas

Daniel Simoes · 20 Setembro, 2011

Lembro que já mudei isso uma vez.. justamente por não funcionar em algumas situações...

Observe que esse método não é usado apenas na Sangria, mas tb no fechamento de cupom...

A modificação sugerida é compatível com todas as rotinas que chamam esse método ?

Veja como era na revisão: 1890

http://acbr.svn.sourceforge.net/viewvc/ ... threv=1890

Endrigo Rodrigues · 20 Setembro, 2011

Sim Daniel.

Estou fazendo os testes para homologar amanhã, e depois da alteração tudo está funcionando.

Endrigo Rodrigues · 20 Setembro, 2011

A questão Daniel, é se foi testado essa modificação após a alteração 1890 para Sangria com IdentificaPAF. Pois do jeito que está hoje, não funciona, funciona somente a Sangria se não tiver sido executado o IdentificaPAF. Agora, com a versão 1890 funciona todos os comandos.

Daniel Simoes · 20 Setembro, 2011

Qual é a marca / modelo / versão do ECF ?

Endrigo Rodrigues · 20 Setembro, 2011

Dataregis Quick 3202DT 01.00.73

Endrigo Rodrigues · 28 Setembro, 2011

Daniel? Alguma solução?

Daniel Simoes · 10 Outubro, 2011

Por favor me envie o LOG onde o erro ocorria...

Estou modificando a Unit para que ela seja esperta o suficiente para tentar as duas formas, caso uma delas falhe:



  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) 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 ;

[/code] 

Eu preciso saber qual é exatamente a mensagem de erro que será disparada na sua situação, para possivelmente substituir a expressão "ErroProtSequenciaComando" no código acima.

Entrar

Sobre nós...

FiscNet -> Sangria + IdentificaPAF

Recommended Posts

Endrigo Rodrigues

Endrigo Rodrigues

Endrigo Rodrigues

EMBarbosa

Daniel Fantastsoft

Endrigo Rodrigues

Endrigo Rodrigues

Endrigo Rodrigues

Daniel Simoes

Endrigo Rodrigues

Endrigo Rodrigues

Daniel Simoes

Endrigo Rodrigues

Endrigo Rodrigues

Daniel Simoes

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante