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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Смотрите также)
м
Строка 4: Строка 4:
 
= Пример =
 
= Пример =
 
  [[ISLOCKRPS]]( DOCS1->DSHIFT, DOCS1->DANAL1, '0501' )
 
  [[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 =  
 
= CODEGRP =  
 
  050101 Экспедиционный отчет по проводкам
 
  050101 Экспедиционный отчет по проводкам

Версия 10:09, 12 декабря 2018

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

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

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

Пример

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

CODEGRP

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

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

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

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

Функции Delphi