Jump to content

chamada diadoacbr

Assista tectoy.png

NFCe com ACBrECF emitindo "forçadamente" Redução Z


  • Este tópico foi criado há 1174 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia...

- Já abri um tópico sobre este assunto mas não consegui uma resposta que me satisfizesse.

- Estou contribuindo com a comunidade( e não vamos parar, pois os componentes ACBr são maravilhosos )

e creio eu que é de interesse de todos que transformaram ou estão transformando sua

aplicação PAF que utiliza ACBrECF em aplicação que também pode gerar o ACBrNFCe.

- Como evitar que, ao ativar o objeto ACBrECF, saia "inesperadamente" uma REDUÇÃO Z

ou mesmo que EXIJA esta impressão visto que, isto NÃO É uma exigência do cliente que utiliza NFCe

e tenho certeza que os clientes reclamarão de tal "impressão obrigatória".

Por favor, me explique qual é a melhor forma de corrigir isto (tentei inicialmente alterar o arquivo .ini manualmente,

ACHEI que tinha dado certo mas não tinha. 

Obrigado...

Link to comment
Share on other sites

  • Administradores

Boa tarde Rogério,

Nos tópicos a seguir foram dadas algumas sugestões inclusive pelo próprio Daniel

 

https://www.projetoacbr.com.br/forum/topic/49806-retirar-obrigatoriedade-da-redução-z/

 

Sugiro que  este tópico seja movido para a área aberta para que os demais colegas possam dizer como implementaram.

  • Like 1
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

18 horas atrás, Juliana Tamizou disse:

Boa tarde Rogério,

Nos tópicos a seguir foram dadas algumas sugestões inclusive pelo próprio Daniel

 

https://www.projetoacbr.com.br/forum/topic/49806-retirar-obrigatoriedade-da-redução-z/

 

Sugiro que  este tópico seja movido para a área aberta para que os demais colegas possam dizer como implementaram.

Olá , Juliana... como faço isto ? (mover para área aberta?)

Você consegue fazer isto pra mim ? ... Ah... algo que está ocorrendo também...

Ontem saiu a redução z automaticamente ao "ativer o componente",... e hoje

SEM NENHUMA VENDA... saiu novamente...

Obrigado!

Link to comment
Share on other sites

  • Administradores

Bom dia.

15 minutos atrás, ROGERIO EDVAR DE SOUZA disse:

Olá , Juliana... como faço isto ? (mover para área aberta?)

Você consegue fazer isto pra mim ?

Já movi :)

15 minutos atrás, ROGERIO EDVAR DE SOUZA disse:

Ontem saiu a redução z automaticamente ao "ativer o componente",... e hoje

SEM NENHUMA VENDA... saiu novamente...

Creio que esta pergunta seja para um outro tópico, ao criar insira também como vc faz essa rotina de 'ativar' o componente, pelo que me recordo não tem nada no código que faça a emissão automática.

Att.

  • Like 1
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

Em 12/04/2019 at 11:45, Juliana Tamizou disse:

Bom dia.

Já movi :)

Creio que esta pergunta seja para um outro tópico, ao criar insira também como vc faz essa rotina de 'ativar' o componente, pelo que me recordo não tem nada no código que faça a emissão automática.

Att.

Boa tarde... ( podem fechar o tópico ) 

- Consegui fazer a alteração, utilizei um software "Superfinder" para encontrar

onde tinha sido feita a impressão da REDUÇÃO Z Virtual.

- Segue abaixo a alteração, dando minha pequena contribuição ao Fórum, evitando que RZ seja impressa,

- Basta substituir o evento dentro de : C:\ACBR\Fontes\ACBrSerial\ACBrECFVirtual.pas pelo que alterei abaixo 

// 16/04/2029.Carlos : Redução Z da CLASSE VIRTUAL alterada :
// Casos:
// (1) Se a impressora estiver BLOQUEADA (RZ já tirada), simplesmente DESBLOQUEIA e SAI
// ...
// (2) Reiniciando valores sem impressão: Se estiver "requisitando RZ"(dia seguinte), ou imprimindo Z, então,
// emite aviso "Iniciando Novo dia de Movimento" e limpa valores e libera Impressora
// ...
// (3) Reiniciando valores sem impressão: Se estiver "Livre"(dia seguinte), ou imprimindo Z, então,
// emite pergunta "Reiniciar dia de Movimento?" ... se sim, limpa valores e libera Impressora
// ...
// Units extras que precisei : WIndows{Mb_Ok}, Forms{Appliaction},  Controls{mrNo}  ,
// ...
procedure TACBrECFVirtualClass.ReducaoZ(DataHora : TDateTime) ;
var
A: Integer ;
begin
  GravaLog( ComandoLOG );

   // (1) Se a impressora estiver BLOQUEADA (RZ já tirada), simplesmente DESBLOQUEIA e SAI
   if Estado = estBloqueada then
   Begin
     // Como era: raise EACBrECFERRO.Create(ACBrStr('Dia já foi fechado. Redução Z já emitida')) ;
     //
     fpEstado := estLivre ; fpDia    := now ;  Exit;
   End;

  // Se o estado não for LIVRE nem for REQUER REDUÇÃO Z :
  if not (Estado in [estLivre,estRequerZ]) then
  Begin
     raise EACBrECFERRO.create(ACBrStr('O Estado não é "LIVRE" Cancele o último Documento')) ;
  End;

   // (2) Se estiver "requisitando RZ"(dia seguinte), ou imprimindo Z, então,
   // emite aviso "Iniciando Novo dia de Movimento" e limpa valores e libera Impressora
   if Estado=estRequerZ then
     Application.MessageBox(
     'Clique em [Ok] para iniciar Novo dia de Movimento',
     'Leia com Atenção', MB_OK + MB_IconInformation );


   // (3) Reiniciando valores sem impressão: Se estiver "Livre"(dia seguinte), ou imprimindo Z, então,
   // emite pergunta "Reiniciar dia de Movimento?" ... se sim, limpa valores e libera Impressora
   if Estado=estLivre then
   Begin
      If Application.MessageBox( Pchar(
      '* Redução Z Virtual - Sem Impressão  *'+#13+#13+#13+
      'Reiniciar dia de Movimento ?'+#13+#13+
      '[Sim] = Leitura X Virtual será reiniciada;'+#13+
      '[Não] = Leitura X Virtual continuará acumulando valores;'),
      'Responda com Atenção', MB_YESNO + MB_DefButton2 + Mb_IconQuestion )=MrNo then
      Exit;
   End;
     //


  try
    ZeraCupom;
    fpReducoesZ := fpReducoesZ + 1 ;

    // ReducaoZVirtual( DataHora ); Local que ocorreria a impressão

{  Como ERA :
  if fpEstado = estRequerZ then
    begin
      fpEstado := estLivre ;
      fpDia    := now ;
    end
    else
      fpEstado := estBloqueada ; }

      fpEstado := estLivre ;
      fpDia    := now ;


    fpNumCER     := 0;
    fpVendaBruta := 0;
    fpTotalDescontosICMS   := 0;
    fpTotalDescontosISSQN  := 0;
    fpTotalAcrescimosICMS  := 0;
    fpTotalAcrescimosISSQN := 0;
    fpCNFCancelados        := 0;
    fpCNFCanceladosTotal   := 0;
    fpCuponsCancelados     := 0;
    fpCuponsCanceladosTotalICMS  := 0;
    fpCuponsCanceladosTotalISSQN := 0;
    fpCuponsCanceladosEmAberto   := 0;
    fpCuponsCanceladosEmAbertoTotalICMS  := 0;
    fpCuponsCanceladosEmAbertoTotalISSQN := 0;

    For A := 0 to fpAliquotas.Count - 1 do
      fpAliquotas[A].Total := 0 ;

    For A := 0 to fpFormasPagamentos.Count - 1 do
      fpFormasPagamentos[A].Total := 0 ;

    For A := 0 to fpComprovantesNaoFiscais.Count - 1 do
    begin
      fpComprovantesNaoFiscais[A].Total := 0 ;
      fpComprovantesNaoFiscais[A].Contador := 0 ;
    end;

    For A := 0 to fpRelatoriosGerenciais.Count - 1 do
        fpRelatoriosGerenciais[A].Contador := 0 ;

      AbreDia;

    //  AbreDocumento ; parte da impressão

  except
    LeArqINI ;
    raise ;
  end ;
end; // procedure TACBrECFVirtualClass.ReducaoZ(DataHora : TDateTime) ;

Edited by ROGERIO EDVAR DE SOUZA
  • Like 1
Link to comment
Share on other sites

  • Este tópico foi criado há 1174 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.