Подскажите что сделать.
При компиляции ТОРГ-12 выдается ошибка:
Нет такой функции, поля или метода: BAUTOGRM (стр. 7 поз. 15 в D:\Gal800\SRC\FRM\RTF\TTN\TTN_009.FRN)
if (BAUTOGRM)
Компиляция ТОРГ-12
Модераторы: m0p3e, edward_K, Модераторы
получилось.
см ttn_var.frn
а так
см ttn_var.frn
Код: Выделить всё
!»ÑαѼѡ¡δÑ ñ½∩ RTF-«ΓτÑΓ«ó
.var
strNN, kounter, fixkol, breakPage : word;
CheckKol, PrnOK, bAutoGrM : boolean;
ìáºóá¡¿Ñ_ä«», è«ñîû_ä«»,
KolGrM, KolOneGrM : string;
!ó «ΓτÑΓáσ ó óá½εΓÑ ñ«¬π¼Ñ¡Γá Γá¬ªÑ ¿ß»«½∞ºπεΓß∩ º¡áτÑ¡¿∩ φΓ¿σ »ÑαѼѡ¡δσ
æΓìäæìáµ, æΓìáµüì, æΓìáµæì,
Çìäæìáµ, ÇßΓìáµüì, ÇßΓìáµæì,
strÇìäæìáµ ,strÇæΓìáµüì, strÇæΓìáµæì,
sumkolf, sumves, strÇ諽ö, strÇ諽éÑß : double;
#ifdef _TTN_ALC_
PrnAlc : boolean;
#end
.endvar
.begin
#ifdef _IN_VAL_DOC_
Cena_PrR := Cena_PrV;
#end
#ifdef _TTN_ALC_
PrnAlc:=false;
#end
end.
Код: Выделить всё
bAutoGrM := boGetTune('OPER.SELL.NAKL.CALCGRM');