Pag.add

[Hetosoft Sistemas]

eu faco nfc-e o xml

depois uso o xml para imprimir em impressora usb

 

pego os produtos assim

 

 

                  for I := 0 to Det.Count-1 do   //AZUL PRODUTOS
                  begin
                    with Det.Items do
                     begin

                         Client_XML.Insert;
                         //Client_XMLNUMERO.Text:=IntToStr(Prod.nItem);
                         Client_XMLCODIGO.Text:= Trim( Prod.cProd );  //Prod.cProd;
                         Client_XMLNOME.Text:= UpperCase( Trim(Prod.xProd) );
                         //Client_XMLPRODUTO_ORIGINAL.Text:= UpperCase( Trim(Prod.xProd) );
                         //Client_XMLNCM.Text:=Prod.NCM;
                         Client_XMLUND.Text:=Prod.uCom;
                         Client_XMLQUANT.Text:=FloatToStr(Prod.qCom);
                         Client_XMLVALOR.Text:=FloatToStr(Prod.vUnCom);
                         //Client_XMLDESC.Text:=FloatToStr(Prod.vDesc);
                         Client_XMLTOTAL.Text:=FloatToStr(Prod.vProd);

                     end;

                  end ;

 

 

 

como façor para pega os pagamentos

 

-<pag>

   <tPag>99</tPag>

   <vPag>6.01</vPag>

</pag>

 

 

brigadooooooooooooo

[Régys Silveira]

Você chegou a testar?, Porque é da mesma forma que você faz com os itens:

for I := 0 to pag.count -1 do
begin
  pag.tPag
  pag.vPag
end;