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;
}
}
}
}
}
108
Share
Report
All responses (
Answers (
