Guardar Documentos Impressos

[ricardomendes]

Boa Tarde a todos.

Gostaria de verificar como os colegas estão tratando a parte de guardar todos os tipos de documentos impressos na ECF.

Pois nos testes do roteiro de homologação esses documentos devem ser registrados no banco.

Eu criei um função que faz o insert dos documentos tipo venda e comprovantes não fiscais...até achei que estava funcionando.

Mas quando fui cadastrar uma aliquota e uma forma de pagamento não consegui gravar a impressão desses documentos como não fiscais.

Outra coisa é se preciso gravar também as leituras X e reduções Z

Fico no aguardo.

[EMBarbosa]

Boa Tarde a todos.

Mas quando fui cadastrar uma aliquota e uma forma de pagamento não consegui gravar a impressão desses documentos como não fiscais.

Outra coisa é se preciso gravar também as leituras X e reduções Z

Fico no aguardo.

Alterações de Alíquota, Forma de pagamento e leituras X até onde sei não é preciso gravar não...

Reduções Z você precisa gravar com certeza. Veja Requisito XXV.

[Daniel Simoes]

E sempre haverá a possibilidade do ECF ser ligado em outro programa... (numa bancada de testes por exemplo)... e a aplicação ficará sem registrar esses documentos impressos...

O governo nos "exige" algo quase impossível de cumprir...

O que fiz foi centralizar todas as chamadas de métodos do ACBrECF em métodos internos/próprios, onde eu gravo adequadamente os dados...

[ricardomendes]

Realmente é complicado isso.

Esse povo que defini esses testes e roteiros...acho que eles nunca mexeram na ECF.

Pois tem cada teste absurdo e redundantes

Daniel poderia dar um detalhe sobre como vc fez essa parte de centralização dos metodos do acbr.

Agradeço a opnião de todos...

[Daniel Simoes]

Nada de especial... criei um método próprio dentro do PDV... e devo sempre usa-lo ao invez de chamar os comandos diretos do ACBrECF...

Exemplo, para leituraX temos:

{-----------------------------------------------------------------------------}

procedure TFrVenda.aLeituraXExecute(Sender: TObject);

begin

  if errECFConfig in PDVErros then

     exit ;


  UIMemoProduto := '' ;

  { Grava o Documento no SQLite }

  Documento.Novo( StrToInt( ACBrECF1.NumCOO )+1, 'LX', Now, 'Leitura X' );

  ACBrTEFD1.BloquearMouseTeclado( True ) ;

  try

     try

        ACBrECF1.LeituraX ;


        Documento.Finaliza( now );

        dml.GravaAuditoria('PDV_ECF_LX','Leitura X') ;

     except

        { Se não imprimiu no ECF, Cancele tudo }

        Documento.Exclui ;

        raise ;

     end ;

  finally

     ACBrTEFD1.BloquearMouseTeclado( False ) ;

  end ;


   { Descarrega registros do SQLite para o FireBird... se houver conexão válida }

  dml.GravarArquivos ;

end;

[/code]

[ricardomendes]

Interessante o seu metodo de centralização...

Quem sabe numa proxima versão eu tbem passe a centralizar assim..

Dessa maneira é possivel travar melhor as opções dentro do PDV...

Obrigado Daniel