Hi Erik -
I tried your way too and still not luck. Below is the code for this task. Some code is remmed trying out all possible ways to get this working. Really…Really strange. Thanks again for all your help Erik.
In NewfileName which is called custinfo.txt below is the content
Customer no. : 0001 Location Code : L1 Division code : 1234 Tax Area code : R001 Cust. Disc. Group : A001
IF FileMgt.ServerFileExists(NewFileName) THEN BEGIN
RecRef.GETTABLE(CustRec);
RecordLink.RESET;
IF RecordLink.FIND(’+’) THEN
LinkNo := RecordLink.“Link ID” + 1
ELSE
LinkNo := 1;
RecordLink.RESET;
RecordLink.INIT;
RecordLink.“Link ID” := LinkNo;
RecordLink.“Record ID” := RecRef.RECORDID;
RecordLink.URL1 := GETURL(CLIENTTYPE::Current, COMPANYNAME, OBJECTTYPE::Page, PAGE::“Customer Card”);
RecordLink.Type := RecordLink.Type::Note;
RecordLink.Created := CURRENTDATETIME;
RecordLink.“User ID”:=USERID;
RecordLink.“To User ID” := GLSetup.“CFO Email-ID”;
RecordLink.Company:=COMPANYNAME;
RecordLink.Notify := TRUE;
NewFunction(RecordLink);
RecordLink.INSERT;
END;
LOCAL NewFunction(VAR RecordLink : Record “Record Link”)
RecordLink.Note.CREATEOUTSTREAM(StreamOutObj);
//MyFile.WRITEMODE(FALSE);
//MyFile.TEXTMODE(TRUE);
MyFile.OPEN(NewFileName);
MyFile.CREATEINSTREAM(StreamInObj);
IntLen := MyFile.LEN;
//WHILE (MyFile.POS < IntLen) DO BEGIN
//MyFile.READ(s);
StreamInObj.READ(s,MAXSTRLEN(s));
//COPYSTREAM(StreamOutObj,StreamInObj);
StreamOutObj.WRITE(s,MAXSTRLEN(s));
//StreamInObj.READTEXT(s);
//StreamOutObj.WRITETEXT(s,MAXSTRLEN(s));
//END;
MyFile.CLOSE();