Jump to content

dev botao

Como Utiliar O Evento "onbeforewriteregistroc481" No Componente "acbspedpiscofins"


Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 3541 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Vou verificar.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

dei uma olhada ontem mas não tinha detectado o problema somente olhando o código me parecia tudo certo, mas vc reportando agora entendi o que aconteceu, é que foi adicionado mais um parâmetro no evento e na IDE do delphi se não recompilar esse parâmetro não vai para o método disparado, dai o erro.

 

Resumindo tem que recompilar o pacote SPED, remover e recriar o evento para que o parâmetro adicionado faça parte do código.

 

Obrigado pelo retorno

  • Like 1

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • 2 weeks later...

Pessoal gostaria de fazer uma tentativa de parar de usar os eventos para tal finalidade, pretendo aplicar as mudanças nos registros C481 e C485 para teste e qual será a mudança?

 

1o Vou mudar os tipos dos campos para Variant

VL_BC_PIS: Variant;
ALIQ_PIS: Variant;
QUANT_BC_PIS: Variant;
ALIQ_PIS_QUANT: Variant;

VL_PIS: Variant;

 

2o Vou mudar as funções LFill() para VLFill()

 

Pretendemos com essa mudança, da a vocês a dinâmica de alimentar o campo como lhe for conveniente dependendo da necessidade do momento, ela irá proporcionar a vocês o controle do que deve ir nos campos como exemplo abaixo:

 
wite C481 do
begin
   VL_BC_PIS := 0;
   ALIQ_PIS := 0;
   QUANT_BC_PIS := 0;
   ALIQ_PIS_QUANT := 0;
   VL_PIS := 0;
end;
OU
 
wite C481 do
begin
   VL_BC_PIS := 10,00;
   ALIQ_PIS := 10,00;
   QUANT_BC_PIS := 10,00;
   ALIQ_PIS_QUANT := 10,00;
   VL_PIS := 10,00;
end;

 

OU

 

wite C481 do
begin
   VL_BC_PIS := Null;
   ALIQ_PIS := Null;
   QUANT_BC_PIS := Null;
   ALIQ_PIS_QUANT := Null;
   VL_PIS := Null;
end;
 
Gostaria de saber a opinião de vocês, em seguida irei anexar a unit aqui, para testes antes.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • Consultores

Por mim está ok, Isaque.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • 4 months later...
  • Moderadores

Olá pessoal, desculpe a ignorância com relação a utilização deste evento, porém não estou conseguinte utiliza-lo alguém teria um exemplo do mesmo.

Viu o post desse tópico? segue abaixo

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

Link to comment
Share on other sites

  • Membros Pro

Obrigado pela resposta Juliomar, mais o meu erro era outro em “ACBrEPCBloco_c_Class” na procedure “TBloco_C.WriteRegistroC481” a verificação “Assigned(FOnBeforeWriteRegistroC481)” sempre era falsa, com isso não era executado nada, eu estava em outro lugar no meu sistema destruindo o componente e recriando.

Edited by AlfredoJave
  • Like 1
Link to comment
Share on other sites

  • 5 months later...

Favor atualize seus fontes, eu uso esses dois eventos sem problema.

Boa tarde Isaque,

 

Estou tendo grande problemas nos demais registros, eu atualizei o componente e passei a usar esses eventos, até ai funciona legal até achei interessante a implementação.

 

Porem, preciso que outros registros tenha esses eventos tambem, como por exemplo os registros:

  • C170
  • C180
  • C181
  • C185
  • C191
  • C195
  • C381
  • C385

Será que teria como você ver a possibilidade de implementar os eventos dos demais registro na classe ACBrEPCBloco_C_Events.

 

Ficarei muito grato.

 

Abraço!

Link to comment
Share on other sites

  • Consultores

Boa tarde Isaque,

 

Estou tendo grande problemas nos demais registros, eu atualizei o componente e passei a usar esses eventos, até ai funciona legal até achei interessante a implementação.

 

Porem, preciso que outros registros tenha esses eventos tambem, como por exemplo os registros:

  • C170
  • C180
  • C181
  • C185
  • C191
  • C195
  • C381
  • C385

Será que teria como você ver a possibilidade de implementar os eventos dos demais registro na classe ACBrEPCBloco_C_Events.

 

Ficarei muito grato.

 

Abraço!

Favor veja:

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

Olá EMBarbosa

 

  De acordo com manual da versão 2.0.15 alguns outros campos tbm possuem este tratamento de que em alguns momentos podem ser gerados como vazio:

  Exemplo :

   No reg C100 os campos 25 e 26

        reg C170 do campo 25 ao 36

 

 Obs: no reg 460, 470 e 500 tbm tem isso.

 

 Sabe me informar se existe tratamento para tbm converter estes campos para Variant?

 

Obrigado pela atenção.

Carlos H. Marian

Analista de Sistemas

|/-\|

Link to comment
Share on other sites

  • Consultores

Olá EMBarbosa

 

  De acordo com manual da versão 2.0.15 alguns outros campos tbm possuem este tratamento de que em alguns momentos podem ser gerados como vazio:

  Exemplo :

   No reg C100 os campos 25 e 26

        reg C170 do campo 25 ao 36

 

 Obs: no reg 460, 470 e 500 tbm tem isso.

 

 Sabe me informar se existe tratamento para tbm converter estes campos para Variant?

 

Obrigado pela atenção.

De cabeça não...

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Este tópico foi criado há 3541 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.