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

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «ISLOCKRPS - это функция из справочника R266 Закрыт ли отчет ? ISLOCKRPS( дата и смена, аналитик…»)
 
м
Строка 2: Строка 2:
 
  Закрыт ли отчет ?
 
  Закрыт ли отчет ?
 
[[ISLOCKRPS]]( дата и смена, аналитика, группа [,установить значение] )
 
[[ISLOCKRPS]]( дата и смена, аналитика, группа [,установить значение] )
 +
= Пример =
 +
[[ISLOCKRPS]]( DOCS1->DSHIFT, DOCS1->DANAL1, '0501' )
 
= Текст =
 
= Текст =
 
  Parameters shift,anal,group,value
 
  Parameters shift,anal,group,value

Версия 08:43, 13 июля 2017

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

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

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

Функции Delphi