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

Olga_M писал(а):Всем доброе время суток! Обновления не производились с марта 2008 - долги по тех.поддержке. Помогите - как вывести в СФ код ед. изм.? И где находится форма прототип SCHFREES?????????????????????

.Create   view _koded
from
  spsopr
where
((
  СПЕЦ_НРЕК== spsopr.nrec
))
;

piExAttr.sGetAttr(1412, _koded.spsopr.cotped,'Код')

.begin
  if(_koded.getfirst spsopr = tsok) {};
end
.

spark писал(а):

Olga_M писал(а):Всем доброе время суток! Обновления не производились с марта 2008 - долги по тех.поддержке. Помогите - как вывести в СФ код ед. изм.? И где находится форма прототип SCHFREES?????????????????????

Я так делал:
1. Добавил вьюху

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

.Create   view _koded
from
  spsopr
where
((
  СПЕЦ_НРЕК== spsopr.nrec
))
;

2. В полях используя функцию для получения значения атрибута, получаю код:

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

piExAttr.sGetAttr(1412, _koded.spsopr.cotped,'Код')

3. В цикле по спецификации делаю:

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

.begin
  if(_koded.getfirst spsopr = tsok) {};
end
.

Прототип находится вот где(по крайней мере сейчас):
d:\GAL810\FRM\L_SF.rar\src\CompSrc\L\L_SF\frm\SCHFBASF.FRM