Erro De Memoria Quando Uso Evento Acbrspedpiscofins1Eventsbloco_Beforewriteregistroc481

[Ricardo De Luca]

boa tarde quando uso o evento BEFOREWRITERESITROC481 da este erro que esta em anexo.

 

procedure TFrmExpSpedNovo.AcbrSPEDPisCofins1EventsBloco_CBeforeWriteRegistroC481(

   var ANullVL_BC_PIS, ANullALIQ_PIS, ANullQuant_BC_PIS, ANullAliq_PIS_QUANT,ANullVL_PIS:boolean);

begin

   ANullVL_BC_PIS := false;

   ANullALIQ_PIS := false;

   ANullQUANT_BC_PIS := true;

   ANullALIQ_PIS_QUANT := true;

   ANullVL_PIS := false;

end;

Editado 8 Setembro, 2014 por Ricardo De Luca

[Isaque Pinheiro]

Não estou vendo na imagem o 1o parâmetro "AC481: TObject". Se atualizou os fontes, recompile os pacote, exclua o evento e recrie-o, tem que aparacer assim:

 

 procedure TFrmExpSpedNovo.AcbrSPEDPisCofins1EventsBloco_CBeforeWriteRegistroC481(   const AC481: TObject;

var ANullVL_BC_PIS, ANullALIQ_PIS, ANullQuant_BC_PIS, ANullAliq_PIS_QUANT,ANullVL_PIS:boolean);

begin

   ANullVL_BC_PIS := false;

   ANullALIQ_PIS := false;

   ANullQUANT_BC_PIS := true;

   ANullALIQ_PIS_QUANT := true;

   ANullVL_PIS := false;

end;

[Ricardo De Luca]

bom dia Isaque abaixei novamente o pacote da acbr removi o componente do acbrspedpiscofins1 removi os evento e não aparece AC481:TObject abri o exemplo do spedpiscofins da acbr la também não aparece o AC481:TObject.

 

na rotina acbrEPCBloco_C_Class aparece

 

TWriteRegistroC481Event = procedure(const AC481:TObject;

   var ANullVL_BC_PIS,

         ANullALIQ_PIS,

         ANullQUANT_BC_PIS,

         ANullALIQ_PIS_QUANT,

         ANullVL_PIS:Boolean) of object; 

Editado 9 Setembro, 2014 por Ricardo De Luca

[Isaque Pinheiro]

Você é quem deve estar com seus fontes desatualizados, não esquecendo que depois de atualiza-los tem que recompilar os pacotes.

[Ricardo De Luca]

boa tarde Isaque obrigado recompilei os pacotes funcionou.