Экспорт в файл

[Storkich]

AddLog(Msg : Text[1000]) : Boolean

FN := 'C:\Log.txt';
F.TEXTMODE(TRUE);
F.WRITEMODE(TRUE);
IF EXISTS(FN) THEN
  F.OPEN(FN)
ELSE
  F.CREATE(FN);
F.SEEK(F.LEN);
F.WRITE(Msg);
F.CLOSE;
SLEEP(10);

Name	DataType	Subtype	Length
F	File		
FN	Text		30

Вызов

AddLog(STRSUBSTNO('%1 | %2 | %3', ia, Amount, TotalSalesLine.Amount);