ISLOCKRPS — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Смотрите также)
Строка 43: Строка 43:
 
  050101 Экспедиционный отчет по проводкам
 
  050101 Экспедиционный отчет по проводкам
 
= Смотрите также =
 
= Смотрите также =
 +
[[Список возможных событий по таймеру]]
 +
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]

Версия 09:19, 23 апреля 2018

ISLOCKRPS - это функция из справочника R266

Закрыт ли отчет ?

ISLOCKRPS( дата и смена, аналитика, группа [,установить значение] )

Пример

ISLOCKRPS( DOCS1->DSHIFT, DOCS1->DANAL1, '0501' )

Текст

Parameters shift,anal,group,value
Local tbl,ww,area
Result:=.f.
if ValType(shift)<>'C' or ValType(anal)<>'N' or ValType(group)<>'C'
   Return
end
area := GetArea()
try
ww:='REPM'+Substr(shift,5,2)+Substr(shift,3,2)
if (tbl:=GetArea(ww))<>nil or File(Trim_Delsl(Opdatapath)+'\'+ww+'.'+m->table_type)
   if tbl=nil
      tbl:=OpenFData(ww,ww,False,Opdatapath)
   end
   Select(tbl)
   if !Empty(DbFilter())
      SetFilter()
   end
   if FieldPos('LOCKRPS')<>0
      if Len(shift)=6
         OrdSetFocus('SHIFT2')
      else
         OrdSetFocus('SHIFT')
      end
      if DbSeek(shift+STR(anal,5)+group)
         if Value=nil
            Result:=FIELD->LOCKRPS
         else
            FIELD->LOCKRPS:=Value
         end
      end
   end
end
finally
  Select(area)
end

CODEGRP

050101	Экспедиционный отчет по проводкам

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

Список возможных событий по таймеру

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

Функции Delphi