|
Project Header - OnPreDataItem()
IF "Project Header".GETFILTER(Code) = '' THEN
BEGIN
Word.Quit;
CLEAR(Word);
ERROR('Âûáåðèòå êîä ÄÔË!');
END;
Project Header - OnAfterGetRecord()
Project Header - OnPostDataItem()
Word.Selection.Find.Text:='!!Íîìåð ÄÔË!!';
Word.Selection.Find.Execute;
Word.Selection.TypeText:=FORMAT("Project Header".Code);
|