Informações de Vale Pedágio

[Cleber Ferreira]

Boa tarde!

Eu estou preenchendo as tags referente ao vale-pedagio e quando eu debugo o código, o delphi passa sem problemas. mas quando eu abro o xml para verificar se o ACBrCTe preencheu as tags, elas não estão lá. Será que estou esquecendo alguma outra informação ou estou passando da forma errada? De toda formar estou postando aqui o código que estou usando:

{==================================================================================}

if TabGlobal.Dctrcsaida.ctr_cargalotacao.Conteudo = '1' then

begin

with Rodo.valePed do

begin

vTValePed := TabGlobal.Dctrcsaida.ctr_valortotalvalepedagio.Conteudo;

case StrToInt(TabGlobal.Dctrcsaida.ctr_responsavelvalepedagio.Conteudo) of

0 : respPg := rpEmitente;

1 : respPg := rpRemetente;

2 : respPg := rpExpedidor;

3 : respPg := rpRecebedor;

4 : respPg := rpDestinatario;

5 : respPg := rpTomadorServico;

end;

end;

with Rodo.valePed.disp.Add do

begin

case StrToInt(TabGlobal.Dctrcsaida.ctr_tipodispositivovalepedagio.Conteudo) of

0 : tpDisp := tdCartaoMagnetico;

1 : tpDisp := tdTAG;

2 : tpDisp := tdTicket;

end;

xEmp := TabGlobal.Dctrcsaida.ctr_empresavalepedagio.Conteudo;

dVig := TabGlobal.Dctrcsaida.ctr_datavigenciacontrato.Conteudo;

if TabGlobal.Dctrcsaida.ctr_tipodispositivovalepedagio.Conteudo <> '2' then

nDisp := TabGlobal.Dctrcsaida.ctr_numerodispositivo.Conteudo;

nCompC := TabGlobal.Dctrcsaida.ctr_comprovantevalepedagio.Conteudo;

end;

end;

{==================================================================================}

Desde já agradeço a ajuda.

[Italo Giurizzato Junior]

Boa tarde Cleber,

Problema resolvido (espero).

Favor atualizar os fontes do componente via SVN e testar novamente.