Ir para conteúdo
  • Cadastre-se

dev botao

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


  • Este tópico foi criado há 1808 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 para o comentário
Compartilhar em outros 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.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 para o comentário
Compartilhar em outros 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) ;

Editado por ROGERIO EDVAR DE SOUZA
  • Curtir 1
Link para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.