Justificativa Do Cancelamento Não É Atribuída No Evento Quandocancelardocumento

[Giquieu]

Olá pessoal, 

Implementei o evento QuandoCancelarDocumento  do componente TACBrECFVirtualNFCe, dessa maneira:

procedure TFPDV.DoQuandoCancelarDocumento(Justificativa: String);
begin
  Justificativa := JustCancNFCeDao.FindDescJustCancNFCePadrao;
end;     

E percebi que a Justificativa não estava mudando, então mudei a assinatura do Método para:

TACBrECFVirtualNFCeQuandoCancelarDocumento = procedure(out Justificativa : String) of object;

Acrescentei o out na assinatura, e funcionou, talvez esteja se perdendo em passar a referência da String entre os Métodos.

 

Poderiam acrescentar essa pequena alteração no SVN?

 

[]'s

[Régys Silveira]

Você precisa anexar o arquivo alterado para que possamos comparar e validar.

[Giquieu]

Blza, segue em anexo o .pas

ACBrECFVirtualNFCe.pas

[Régys Silveira]

Enviado, obrigado pela contribuição.