Галактика в вопросах и ответах

Код: Выделить всё

//********************************************************************************
//                                                        (c) корпорация Галактика
// Галактика 9.1 - Логистика
// История изменения полей
//********************************************************************************

#ifNdef _ObjOldHistory_vih
#define _ObjOldHistory_vih

#ifdef ComponentVersion
#component "L_KatOrg"
#end

ObjInterface ObjOldHistory;

#doc
  Запомнить контрагента
#end
Procedure RememberKatOrg(cRec : comp);

#doc
  Найти изменения между запомненными функцией RememberKatOrg и текущими значениями
#end
Procedure FindChanges(cRec : comp);

#doc
  Функция получения значения истории изменения полей
  _wTable  - код таблицы
  _cRec    - ссылка на запись
  _sField  - наименование поля, котороое необходимо вернуть
  _dChange - дата, на кототую необходимо получить значение (не обязательный параметр)
             Если не задана или равна ZeroDate, то берется значение на текушую дату.
#end
Function sGetField (_wTable : word; _cRec : comp; _sField : string; _dChange : date = ZeroDate) : string;

end;

//******************************************************************************

VipInterface iOldHistory implements ObjOldHistory
  licensed(FREE)
  Parameters (pRec : comp);

#end

Код: Выделить всё

//******************************************************************************
//                                                      (c) корпорация Галактика
// Галактика 9.1 - Логистика
// История изменения полей контрагента
//******************************************************************************

var oHistory : iOldHistory;