Share
Report
106I am try to use XMlPort with Cdata, this is the code:
xmlport 50150 PrintCdata
{
Format = xml;
Direction = Export;
Encoding = UTF16;
schema
{
textelement(NodeName1)
{
tableelement(NodeName2; /Purchase Header/)
{
fieldelement(NumeroOrden; NodeName2./No./) { }
textelement(tipocdata1)
{
trigger OnBeforePassVariable()
var
TempBlob: Codeunit /Temp Blob/;
tipocdata: XmlCData;
cadena, cadena2, cadena3, FileName : text;
OutStreamP: OutStream;
InStreamP: InStream;
i, cadenaCharNo : Integer;
begin
cadena := 'L';
tipocdata := XmlCData.Create(cadena);
tipocdata.WriteTo(cadena2);
tipocdata1 := cadena2;
//mlCData.WriteTo(WriteOptions: XmlWriteOptions, var Text: Text)
//tipocdata.WriteTo(cadena2);
//TempBlob.CreateOutStream(OutStreamP, TextEncoding::UTF8);
//OutStreamP.Write(cadena2);
//TempBlob.Run();
//TempBlob.CreateInStream(InStreamP);
//InStreamP.Read(cadena3);
// FileName := 'archicdata.txt';
// DownloadFromStream(InStreamP, 'Download XML Export', '', '', FileName);
//Message('tipodoc %1', tipocdata);
/*
for i := 1 to StrLen(cadena2) do begin
cadenaCharNo := cadena2[i];
Message('cadena %1', cadenaCharNo);
end;
*/
end;
}
}
}
}
}
The result is this :
<?xml version=/1.0/ encoding=/ISO-8859-2/ standalone=/no/?>
<NodeName1>
<NodeName2>
<NumeroOrden>FC0000053</NumeroOrden>
<tipocdata1><![CDATA[L]]></tipocdata1>
</NodeName2>
</NodeName1>
<NodeName1>
<NodeName2>
<NumeroOrden>FC0000053</NumeroOrden>
<tipocdata1><![CDATA[L]]></tipocdata1>
</NodeName2>
</NodeName1>
The file XML is writing a /<! / How can I modify this?
I try with TempBlob, reading char by char, nothig work.
Categories:
All responses (
Answers (
