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);