PHSYS - Wiki

NewPHXML é uma função usada para criar e manipular arquivos XML dentro do sistema PHSYS

Propriedades

Nome	Tipo	Descrição
Arquivo	String	Conteúdo do XML.

Exemplos

// O exemplo de leitura de códigos de produtos de XML de NF-e

ArqXML := NewPHXML;
try
  ArqXML.Arquivo := XMLString; // String com o conteúdo XML
  ArqXML.Executar;
  while ArqXML.ValorTag(1, 'det', , I + 1, 'cProd') <> EmptyStr do
  begin
    V_CodProduto := ArqXML.ValorTag(1, 'det', , I + 1, 'cProd');
    I := I + 1;
  end;
finally
  ArqXML.Free;
end;

// O exemplo de gravação de XML
var XML:TPHXML;
begin
  XML := NewPHXML;
  try
    XML.AddTag('TagPrincipal');
    // Adiciona a seção de verificação
    XML.AddOpenTag('CampoID');
    XML.AddTag('ID', 'ID');
    XML.AddCloseTag;
    // Adiciona a seção de comando
    XML.AddTag('Nome', 'Teste');
    // Adiciona a seção de request
    XML.AddOpenTag('SubItem');
      // <SubItem> ....
      XML.AddTag('Sequencia', '1');
      XML.AddTag('Nome', 'Teste1');
      // </SubItem> ....
    XML.AddCloseTag;
    
    Informacao(XML.GetXML);
  finally
    XML.Free;
  end;
end.