ActiveDelphi

[thaine]

Tenho um sistema que emite conhecimento de transporte eletrônico, mas ele esta com um problema.
A parte de relação dos componentes da prestação de serviços
não aparece na XML.
estou alimentando ela desta forma :
Dm.tabela.Last;
j:=Dm.tabela.RecordCount;
if (j > 0) then begin
Dm.tabela.First;
for i:=1 to j do begin
if (Dm.tabela.AsFloat > 0) then begin
vPrest.comp.Add.xNome:=Dm.tabelaDESCRICAO.AsString;
vPrest.comp.Add.vComp:=StrToFloat(FormatFloat('##0.00', Dm.tabelaVALOR.AsFloat));
end;
Dm.tabela.Next;
end;
end;

Alguém por favor pode me ajudar ?

[tiago.prs]

Você tentou debugar sua aplicação para ver se está entrando em seu loop?
Ou tentou apresentar os resultados em uma DBGrid para ver se sua Dm.tabela está carregando os valores?

Experimente um código mais objetivo.
Exemplo:

[thaine]

Obrigada pela atenção tiago.prs
eu ja debuguei a aplicação sim, ele entra nesse while corretamente.
Bom é o seguinte:
quando vou emitir um cte essas informações aparecem espalhadas na área de composição de valores por exemplo
Nome valor Nome Valor Nome Valor
teste 0,00 20,00 teste2
45,00

deveriam aparecer dessa forma
Nome Valor Nome Valor Nome Valor
teste 45,00 teste2 20,00

e essas informações não aparecem na xml, e tbm não aparecem ao emitir uma 2ª via da DACTE.

Alguém por favor pode me ajudar ?

[thaine]

Consegui resolver meu problema dessa forma:
if (tabelaVALOR.AsFloat > 0) then begin
with vPrest.comp.Add do
begin
xNome:=tabelaDESCRICAO.AsString;
vComp:=StrToFloat(FormatFloat('##0.00', tabelaVALOR.AsFloat));
end;
end;


Agora funciona perfeitamente

Até a Proxima