Valor Da Prestação Do Serviço Nao Aparece Na Xml

[thaine]

Bom Dia

estou com problemas na impressão dos componentes de valor da prestação do serviço, estou passando dessa forma,

porem não aparece na xml.

 

tabela.Last;

   j:=tabela.RecordCount;           

   if (j > 0) then begin

     tabela.First;

     for i:=1 to j do begin

       if (tabelaVALOR.AsFloat > 0) then begin        

         vPrest.comp.Add.xNome:=tabelaDESCRICAO.AsString;

         vPrest.comp.Add.vComp:=StrToFloat(FormatFloat('##0.00', tabelaVALOR.AsFloat));      

       end;

       Dm.TableConheCompVlr.Next;

     end;

   end;  

 

 

Alguém por favor pode me ajudar?

[LeoSlander]

Boa tarde, valor da prestação segue o codigo:

 

//valor da prestação

vPrest.vTPrest := seu valor;

 

//valor a receber

vPrest.vRec := seu valor;

[thaine]

sim, isso eu sei.

Mais o que não aparece é a parte dos componentes do valor da prestação dos serviços.

tabela.Last;

   j:=tabela.RecordCount;           

   if (j > 0) then begin

     tabela.First;

     for i:=1 to j do begin

       if (tabelaVALOR.AsFloat > 0) then begin        

         vPrest.comp.Add.xNome:=tabelaDESCRICAO.AsString;

         vPrest.comp.Add.vComp:=StrToFloat(FormatFloat('##0.00', tabelaVALOR.AsFloat));      

       end;

       Dm.TableConheCompVlr.Next;

     end;

   end;  

[Italo Giurizzato Junior]

Boa tarde Thaine,

 

Da forma que você esta fazendo esta errado, a maneira correta é:

 

      if (tabelaVALOR.AsFloat > 0) then begin        

         with vPrest.comp.Add do
          begin
            xNome:=tabelaDESCRICAO.AsString;

            vComp:=StrToFloat(FormatFloat('##0.00', tabelaVALOR.AsFloat));      

          end;

       end;

[thaine]

Obrigada pela atenção italojjr,

mais eu não estou vendo diferenças entre os 2 codigos, a não ser que essa parte do código não deva estar dentro de um while.

[Italo Giurizzato Junior]

Bom dia Thaine,

 

As diferenças são grandes, veja:

 

if (tabelaVALOR.AsFloat > 0) then begin        

    vPrest.comp.Add.xNome:=tabelaDESCRICAO.AsString;

    vPrest.comp.Add.vComp:=StrToFloat(FormatFloat('##0.00', tabelaVALOR.AsFloat));      

end;

 

No código acima o Add esta sendo executado duas vezes, neste caso você esta gerando dois elementos na lista, o primeiro com a descrição ( xNome ) e o segundo somente com o valor ( vComp ).

 

No código abaixo o Add esta no WITH, logo ele vai ser executado somente uma vez, portanto sera gerado apenas um elemento e este vai conter as duas informações: xNome e vComp.

 

if (tabelaVALOR.AsFloat > 0) then begin        

         with vPrest.comp.Add do
          begin
            xNome:=tabelaDESCRICAO.AsString;

            vComp:=StrToFloat(FormatFloat('##0.00', tabelaVALOR.AsFloat));      

          end;

end;

 

Se você colocar o techo de código dentro de um loop com 10 interações, neste caso o valor do frete é composto por 10 componentes, da forma que você fez teriamos dentro da lista 20 elementos e da forma que postei teria apenas 10 elementos.

 

Lembre-se que cada elemento da lista é composto pelo nome e pelo valor e não somente pelo nome ou pelo valor.

 

 

[thaine]

Muito Obrigada pela ajuda italojjr, não sabia que o Add deveria ser executado apenas 1 vez.

Problema resolvido

 

Ate mais