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