FiscNet -> Sangria + IdentificaPAF

[Endrigo Rodrigues]

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]

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]

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]

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

[Daniel Fantastsoft]

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]

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]

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]

Segue em anexo o arquivo fonte ACBrECFFiscNET.pas modificado.

ACBrECFFiscNET.pas

[Daniel Simoes]

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]

Sim Daniel.

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

[Endrigo Rodrigues]

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]

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

[Endrigo Rodrigues]

Dataregis Quick 3202DT 01.00.73

[Endrigo Rodrigues]

Daniel? Alguma solução?

[Daniel Simoes]

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.