ISLOCKRPS

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

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

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

Текст

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