DKSHIFT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Пример) |
Hisava (обсуждение | вклад) м (→Пример) |
||
| Строка 5: | Строка 5: | ||
[[DKSHIFT]]( [[DATE]]() ) | [[DKSHIFT]]( [[DATE]]() ) | ||
[[Файл:21-07-2017 16-39-31.png]] | [[Файл:21-07-2017 16-39-31.png]] | ||
| + | = Текст = | ||
| + | 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 | ||
= Смотрите также = | = Смотрите также = | ||
Версия 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
