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

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

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

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

Пример

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

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

@@ Строка 4: / Строка 4: @@
 = Пример =
   [[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 =
 	Экспедиционный отчет по проводкам
@@ Строка 46: / Строка 10: @@
 [[Полезные функции]]
-[[Функции Delphi]]