R38 TUM 8 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[R38_TUM_8]] - это программа из справочника [[R266]] | [[R38_TUM_8]] - это программа из справочника [[R266]] | ||
| − | + | Вернуть табельный номер бригадира по указанной смене | |
| − | Вернуть табельный номер бригадира по указанной смене | + | |
| − | + | ||
[[R38_TUM_8]]( shift [,anal] ) | [[R38_TUM_8]]( shift [,anal] ) | ||
| Строка 9: | Строка 7: | ||
anal - код производства | anal - код производства | ||
| − | = Текст | + | = Текст = |
parameters shift, anal | parameters shift, anal | ||
| Строка 21: | Строка 19: | ||
sql := [ Select Convert( CATTR10, sql_integer ) TAB ; | sql := [ Select Convert( CATTR10, sql_integer ) TAB ; | ||
From DOCP] + [[Ret_f_ext]]( [[StoD]]( shift ) ) + [ ; | From DOCP] + [[Ret_f_ext]]( [[StoD]]( shift ) ) + [ ; | ||
| − | Where KINDDOC = '[[PAC]]' and LVLNUM = '1' and DREFL1 = 'R10 ' and ; | + | Where KINDDOC = '[[PAC]]' and LVLNUM = '1' and DREFL1 = '[[R10]] ' and ; |
DANAL1 = ] + anal + [ and DSHIFT = '] + shift + [' ] | DANAL1 = ] + anal + [ and DSHIFT = '] + shift + [' ] | ||
aa := [[SqlToArr]]( sql, { 'TAB' } ) | aa := [[SqlToArr]]( sql, { 'TAB' } ) | ||
| Строка 28: | Строка 26: | ||
result := aa[1,1] | result := aa[1,1] | ||
endif | endif | ||
| − | |||
= Смотрите также = | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 09:14, 3 июля 2017
R38_TUM_8 - это программа из справочника R266
Вернуть табельный номер бригадира по указанной смене
R38_TUM_8( shift [,anal] )
shift - смена в формате ггггммддс
anal - код производства
Текст
parameters shift, anal local sql, aa if Empty( anal ) anal := 1 endif sql := [ Select Convert( CATTR10, sql_integer ) TAB ; From DOCP] + Ret_f_ext( StoD( shift ) ) + [ ; Where KINDDOC = 'PAC' and LVLNUM = '1' and DREFL1 = 'R10 ' and ; DANAL1 = ] + anal + [ and DSHIFT = '] + shift + [' ] aa := SqlToArr( sql, { 'TAB' } ) if !IsEmpty( aa ) result := aa[1,1] endif
