Текущая версия на 14:27, 28 октября 2019

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

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

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

Пример

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

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

@@ Строка 2: / Строка 2: @@
   Закрыт ли отчет ?
 [[ISLOCKRPS]]( дата и смена, аналитика, группа [,установить значение] )
-= Текст =
+= Пример =
-  Parameters shift,anal,group,value
+  [[ISLOCKRPS]]( DOCS1->DSHIFT, DOCS1->DANAL1, '0501' )
- Local tbl,ww,area
+= CODEGRP =
- 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]]
+[[Полезные функции]]