DKSHIFT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Пример) |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 6: | Строка 6: | ||
[[Файл:21-07-2017 16-39-31.png]] | [[Файл:21-07-2017 16-39-31.png]] | ||
= Текст = | = Текст = | ||
| − | Parameters Dt, Shft | + | Parameters Dt, Shft |
Local ss | Local ss | ||
Версия 16:40, 21 июля 2017
DKSHIFT - это программа из справочника R266
По дате (EoM(CurDate) as default) и номеру смены (1 as default) вернет DToS+Nсмены
DKSHIFT( [1 Дата=EoM(CurDate)] [2 N смены=1] м.б. Numeric или Char )
Пример
DKSHIFT( DATE() )
Текст
Parameters Dt, Shft
Local ss
result:=
if Empty(Dt) .and. Type('CurDate')!='U'; Dt:=EoM(CurDate); endif
if !Empty(Dt)
if Empty(Shft); ss:='1'
else
if ValType('Shft')='C'; ss:=Shft
elseif ValType('Shft')='N'; ss:=a_s(Shft)
endif
endif
if !Empty(ss)
result:=DToS(Dt)+ss
endif
endif
