Показать сообщение отдельно
Старый 20.10.2004, 13:26   #7  
Greggy_imported is offline
Greggy_imported
Участник
Аватар для Greggy_imported
 
291 / 10 (1) +
Регистрация: 24.09.2004
RecRef - переменная типа RecordRef
Ref FieldRef
ElementsList Form
RecordElements Record

Out Material base scene - OnLookup(VAR Text : Text[1024] : Boolean

RecRef.GETTABLE(Rec);
Ref := RecRef.FIELDINDEX(Номер поля);
OldValue := Ref.VALUE;
CLEAR(ElemetsList);
ElemetsList.LOOKUPMODE := TRUE;
IF ElemetsList.RUNMODAL = ACTION::LookupOK THEN
BEGIN
ElemetsList.GETRECORD(RecordElements);
Ref.VALUE := OldValue + ' ' +RecordElements.Name;
RecRef.SETTABLE(Rec);
END;