ActiveDelphi

[jclimaco_neto]

Estou usando a seguinte Rotina em Delphi.
uso xml atraves do TXMLDocument

While not dmCraclie0.qryConNdup.Eof Do
begin
NodeNivelZ := NodeNivelY.ChildNodes['dup'];
NodeNivelZ.AddChild('nDup').Nodevalue := IntToStr(StrToInt (NumNotaNFE)) + '/' + dmCraclie0.qryConNdupSCRCNDES.AsString;
NodeNivelZ.AddChild('dVenc').Nodevalue := FormatDateTime('YYYY-MM-DD',dmCraclie0.qryConNdupSCRTVCT.AsDateTime);
NodeNivelZ.AddChild('vDup').Nodevalue := FormatFloat('########0.00', dmCraclie0.qryConNdupSCRVSALDO.AsFloat);

dmCraclie0.qryConNdup.Next;
end;

No desdobramento esta saindo assim:
<dup>
<nDup>152/1</nDup>
<dVenc>2010-08-05</dVenc>
<vDup>1161.68</vDup>
<nDup>152/2</nDup>
<dVenc>2010-08-20</dVenc>
<vDup>6710.00</vDup>
<nDup>152/3</nDup>
<dVenc>2010-08-27</dVenc>
<vDup>6710.00</vDup>
</dup>
Quando deveria sair:
<dup>
<nDup>152/1</nDup>
<dVenc>2010-08-05</dVenc>
<vDup>1161.68</vDup>
</dup>
<dup>
<nDup>152/2</nDup>
<dVenc>2010-08-20</dVenc>
<vDup>6710.00</vDup>
</dup>
<dup>
<nDup>152/3</nDup>
<dVenc>2010-08-27</dVenc>
<vDup>6710.00</vDup>
</dup>
O que estou fazendo de errado, desde já agradeço a ajuda.

[CENTURYINF]

Utilizo o ACBR e uso assim:
valor1 e valor2 são os valores da parcela.

IF(TABLE1VALOR1.VALUE>0) THEN
BEGIN
with cobr.Dup.add do
BEGIN
ndup:='01'+'/'+floattostr(table1nrparc.value);
dvenc:=table1venc1.value;
vdup:=table1valor1.value;
end;
END;
IF(TABLE1VALOR2.VALUE>0) THEN
BEGIN
with cobr.Dup.add do
BEGIN
ndup:='02'+'/'+floattostr(table1nrparc.value);
dvenc:=table1venc2.value;
vdup:=table1valor2.value;
end;
END;

espero que ajude...

[jclimaco_neto]

Ok, funciona.
Mas estou tentando gerar o xml com o TXMLDocument e tambem estou tentado fazer um loop para nao precisar saber quantos desdobramento a NF vai ter entendeu.

[CENTURYINF]

Ola

não sei se estou certo mas parece que falta um <dup> no final
de cada parcela.

While not dmCraclie0.qryConNdup.Eof Do
begin
NodeNivelZ := NodeNivelY.ChildNodes['dup'];
NodeNivelZ.AddChild('nDup').Nodevalue := IntToStr(StrToInt (NumNotaNFE)) + '/' + dmCraclie0.qryConNdupSCRCNDES.AsString;
NodeNivelZ.AddChild('dVenc').Nodevalue := FormatDateTime('YYYY-MM-DD',dmCraclie0.qryConNdupSCRTVCT.AsDateTime);
NodeNivelZ.AddChild('vDup').Nodevalue := FormatFloat('########0.00', dmCraclie0.qryConNdupSCRVSALDO.AsFloat);
//TESTE ISTO FECHANDO O ITEM
NodeNivelZ := NodeNivelY.ChildNodes['dup'];

dmCraclie0.qryConNdup.Next;
end;

eSPERO QUE DE CRERTO...

[jclimaco_neto]

Oi
não deu certo continua saindo com apena uma tag <dup> no inicio e outra no final </dup>

<dup>
<nDup>152/1</nDup>
<dVenc>2010-08-05</dVenc>
<vDup>1161.68</vDup>
<nDup>152/2</nDup>
<dVenc>2010-08-20</dVenc>
<vDup>6710.00</vDup>
<nDup>152/3</nDup>
<dVenc>2010-08-27</dVenc>
<vDup>6710.00</vDup>
</dup>

Quando que o correto seria:

<dup>
<nDup>152/1</nDup>
<dVenc>2010-08-05</dVenc>
<vDup>1161.68</vDup>
</dup>
<dup>
<nDup>152/2</nDup>
<dVenc>2010-08-20</dVenc>
<vDup>6710.00</vDup>
</dup>
<dup>
<nDup>152/3</nDup>
<dVenc>2010-08-27</dVenc>
<vDup>6710.00</vDup>
</dup>

[jclimaco_neto]

É so trocar uma linha do que havia colocado antes fica assim :

While not dmCraclie0.qryConNdup.Eof Do
begin
NodeNivelZ := NodeNivelY.AddChild('dup'); ===mudei essa linha
NodeNivelZ.ChildNodes['nDup'].Nodevalue := IntToStr(StrToInt(NumNotaNFE)) + '/' + dmCraclie0.qryConNdupSCRCNDES.AsString;
NodeNivelZ.ChildNodes['dVenc'].Nodevalue := FormatDateTime('YYYY-MM-DD',dmCraclie0.qryConNdupSCRTVCT.AsDateTime);
NodeNivelZ.ChildNodes['vDup'].Nodevalue := FormatFloat('########0.00', dmCraclie0.qryConNdupSCRVSALDO.AsFloat);

dmCraclie0.qryConNdup.Next;
end;