R38 TUM 8 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 21: | Строка 21: | ||
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' } ) | ||
Версия 11:29, 9 января 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
