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

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

ObjInterface ObjGetDB;
  //функция возвращает сумму долга по ДО с позицией Pos. TipCulc - вид долга
  // 0   долг по платежам   (не оплачено по ДО)
  // 1   долг по отгрузкам  (сумма не отгруженного)
  // 2   долг с учетом отгрузок МЦ (отгруженно но не оплачено)
  // 3   сумма по ДО
  // 4   расчет суммы по алгоритму
  // 5   сумма по накладным (отгрузки/поставки)
  //10   долг с учетом возвратов (долго работает)

  // сумма долга по ДО, исключая из внимания указанную SoprHoz
  function GetDolgBaseDocExceptSoprHoz(Poz: comp; tipCulc: word; 
                                            _cExceptSoprHoz: comp) : double;
  // то же - не исключая SoprHoz
  function GetDolgBaseDoc(Poz : comp;tipCulc : word) : double;
end;
vipinterface GetDbase implements ObjGetDB;