4. Februar 2011 12:48
9. Februar 2011 09:36
Name DataType Subtype Length
tmpBlob Record TempBlob
ofile File
ifile File
ostream OutStream
istream InStream
xmlHeader Text 80
bText BigText
g_TEAPPSXMLInvoice XMLport TEAPPSXMLv26_schema_Invoice
tmpBlob.Blob.CREATEOUTSTREAM(ostream);
tmpBlob.Blob.CREATEINSTREAM(istream);
g_TEAPPSXMLInvoice.SetDocumentId(g_SIH."No.");
g_TEAPPSXMLInvoice.SETDESTINATION(ostream);
g_TEAPPSXMLInvoice.EXPORT;
istream.READTEXT(xmlHeader); //Retrieve first line of text; Changing pointer in Blob.
bText.READ(istream); //Retrieve rest of Blob data.
CLEAR(tmpBlob.Blob);
tmpBlob.Blob.CREATEOUTSTREAM(ostream);
ostream.WRITETEXT('<?xml version="1.0" encoding="UTF-8"?>');
ostream.WRITETEXT();
bText.WRITE(ostream);
tmpBlob.Blob.EXPORT(FileName);