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

[Isaque Pinheiro]

Vou verificar.

[luis.varanti]

Isaque eu removi e instalei o acbr novamente e o erro sumio.. acho que foi falha minha aqui..

Editado 14 Maio, 2014 por luis.varanti

[Isaque Pinheiro]

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

[Isaque Pinheiro]

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.

[EMBarbosa]

Por mim está ok, Isaque.

[Alfredo Lopes]

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.

[Juliomar Marchetti]

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

[Alfredo Lopes]

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.

Editado 30 Setembro, 2014 por AlfredoJave

[Robson.Guia]

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!

[EMBarbosa]

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:

[carlosmarian]

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.

[EMBarbosa]

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...