ISLOCKRPS - История изменений

Hisava: /* Смотрите также */

2019-10-28T11:27:07Z

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

Hisava в 07:09, 12 декабря 2018

2018-12-12T07:09:56Z

Hisava: /* Смотрите также */

2018-04-23T06:19:24Z

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

Hisava в 05:53, 20 апреля 2018

2018-04-20T05:53:47Z

Hisava в 05:43, 13 июля 2017

2017-07-13T05:43:53Z

Hisava: Новая страница: «ISLOCKRPS - это функция из справочника R266 Закрыт ли отчет ? ISLOCKRPS( дата и смена, аналитик…»

2017-07-13T05:42:36Z

Новая страница: «ISLOCKRPS - это функция из справочника R266 Закрыт ли отчет ? 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]]

← Предыдущая		Версия 11:27, 28 октября 2019
Строка 10:		Строка 10:

	[[Полезные функции]]		[[Полезные функции]]
−
−	~~[[Функции Delphi]]~~

@@ Строка 4: / Строка 4: @@
 = Пример =
   [[ISLOCKRPS]]( DOCS1->DSHIFT, DOCS1->DANAL1, '0501' )
 = CODEGRP =
 	Экспедиционный отчет по проводкам

@@ Строка 43: / Строка 43: @@
 	Экспедиционный отчет по проводкам
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 2: / Строка 2: @@
   Закрыт ли отчет ?
 [[ISLOCKRPS]]( дата и смена, аналитика, группа [,установить значение] )
 = Текст =
   Parameters shift,anal,group,value