FCTSLF R01

FCTSLF_R01 - это программа из справочника R266

Опрос пар-ров FctSlf_ACP/ACS

Текст

Parameters  KD:='ACP', with_msg:=.f.
Local  dt

if  len(result:=VarAsArray(atr(GetPrm('FctSlf_'+KD,,,dt:=BoM(CurDate))),.f.))=0 .and. with_msg
  dt:=BoM(CurDate)  //изменён GetPrm'ом
  Message('На начало '+DocPeriod2(dt)+' значение системного параметра FctSlf_'+KD+' НЕ определено.')
endif

Смотрите также

Полезные функции

Функции Delphi