Alterar SVN Evento S-2299(Desligamento)

[EdmarFrazao]

Usando o exemplo esocial , quando gera o evento S-2299 da um erro interno no componente, e não gera o evento, nem envia

 

o erro esta no procedimento

 

pcesS2299

 

linha 392

GerarTransfTit 

este tag se não tiver conteudo é opcional

 

Editado 14 Fevereiro, 2018 por EdmarFrazao

[EdmarFrazao]

e também não esta aceitando preencher os campos da tag

transfTit

atribuindo no exemplo:

    EvtDeslig.InfoDeslig.transfTit.cpfSubstituto:= '74913476653';
    EvtDeslig.InfoDeslig.transfTit.dtNascto:=now;

Se tentar alimentar as variáveis da erro também

 

Estes campos são opcionais.

 

Acho que na linha 392 do procedimento (pcesS2299) dever ser:

if obj.transfTit <> nil then
    GerarTransfTit(obj.transfTit);

 

assim gera sem erro.

 

mas precisa corrigir o erro quando é atribuido valores aos campos, não consegui achar parece que não foi iniciada a variável transfTit e seus atributos

 

 

 

 

 

[Italo Giurizzato Junior]

Boa noite Edmar,

Favor fazer as alterações que você julga necessário e faça os testes, estando tudo OK, anexe a unit aqui mesmo, para que possamos analisar e estando tudo OK, enviaremos para o repositório.

[EdmarFrazao]

Segue correção.

Declaração , Create, Destroy ftransfTit

e checagem do campo opcional ftransfTit

pcesS2299.pas

[EdmarFrazao]

correção

pcesS2299.pas

[Italo Giurizzato Junior]

Bom dia Edmar,

Muito obrigado pela colaboração, assim que possível estarei enviando para o repositório.