NewPHXML

Revisão de 08h46min de 26 de fevereiro de 2025 por Kelvin.nunes (discussão | contribs) (Criou página com 'NewPHXML é uma função usada para criar e manipular arquivos XML dentro do sistema PHSYS ===Propriedades=== {| class="wikitable" style="width: 100%" ! Nome !Tipo !Descriç...')
(dif) ← Edição anterior | Revisão atual (dif) | Versão posterior → (dif)

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.