NewAge
Зарегистрирован: 11.06.2010
Сообщения: 108
|
 Добавлено: Чт Сен 28, 2023 11:27 Заголовок сообщения: |
 |
|
| Код: | alias _brwresource=(
/*Version of Dynamic Resource*/
ver=4011;
/*Window(x,y,h,w,type_window),global_options,opt_menu,name_dialog,name_menu,name_sline,TreeSizeX,{name_help}*/
(0, 0, 800, 600, 0x3),0x0,0x0,,userMnuTS4049Reestr,,0,{};
/*{Link sql}*/
L,{};
/*{Top;Bottom sql}*/
T,{;};
/*{End sql}*/
E,{};
/*{ContextMenu}*/
M,{pr_virtual_yu,1,0x10;
Boss_Query;};
/*'title', col_opt, col_width*/
C,{
"№ п.п.",0x0,8;
"ФИО работника",0x0,32;
"Период",0x0,8;
"Подписант",0x0,32;
"Дата подписания",0x0,16;
"Отправлен в ЭХД",0x0,24;
"Получен ответ",0x0,24;
"Статус",0x0,30;
"Создал",0x0,16;
"Дата создания",0x0,24;
"Изменил",0x0,16;
"Дата изменения",0x0,24;
"Имя док. в БОСС",0x0,24;
"Id док. в ЭХД",0x0,16;
"Id запроса в ЭХД",0x0,24;
};
);
Browser{
/*init procedure*/
If 'xTS4049ReestrPeriod' == "xTS4049ReestrPeriod" Then Local Let xTS4049ReestrPeriod := '';
/*tab procedure*/
TAB {If @userLstTS4049Reestr:intId['] = 0 Then {Discom @userLstTS4049Reestr, "userPrcSendReestr";} Else {Encom @userLstTS4049Reestr, "userPrcSendReestr";};
If @userLstTS4049Reestr:filename[''] = '' Then {Discom @userLstTS4049Reestr, "userPrcShowBossDoc";} Else {Encom @userLstTS4049Reestr, "userPrcShowBossDoc";};
If @userLstTS4049Reestr:edoId[''] = '' Then {Discom @userLstTS4049Reestr, "userPrcShowEhdDoc";} Else {Encom @userLstTS4049Reestr, "userPrcShowEhdDoc";};
--If @userLstTS4049Reestr:filename[''] = '' Then Return 1;
--If @userLstTS4049Reestr:edoId[''] = '' Then Return 2;};
@userLstTS4049Reestr
Select
t1.intId,
IsNull(QuoteName(t2.num_tab) + ' ', '') + t3.full_name,
Cast((t1.intPeriod - 1) / 12 As Char(4)) + '.' + Right('00' + Cast((t1.intPeriod - 1) % 12 + 1 As VarChar(2)), 2),
IsNull(QuoteName(t4.num_tab) + ' ', '') + t5.full_name,
t1.dtDateSign[%x],
t9.DateSendReq[%c],
t9.DateGetResp[%c],
(Case
When IsNull(t1.strReqId, '') > '' Then
(Case t9.BOSSStatusCode
When 2 Then 'Карточка ЭХД создана'
When 1 Then 'Отправлен в ЭХД'
When -1 Then 'Ошибка при отправке в ЭХД'
Else ''
End)
When IsNull(t1.intBossDocId, 0) > 0 Then 'Подготовлен'
Else ''
End),
t6.db_user_netname,
t1.dtCreateDate[%c],
t7.db_user_netname,
t1.dtModifiedDate[%c],
IsNull(t8.filename, '') As filename,
IsNull(t9.edoId, '') As edoId,
IsNull(t1.strReqId, '') As unqReqId
From
user_Tbl_TS4049Reestr t1 _HintBrowser
Inner Join people t2 _HintBrowser On t2.pid = t1.intEmpId
Inner Join card t3 _HintBrowser On t3.auto_card = t2.auto_card
Inner Join people t4 _HintBrowser On t4.pid = t1.intChief
Inner Join card t5 _HintBrowser On t5.auto_card = t4.auto_card
Inner Join db_user t6 _HintBrowser On t6.id_user = t1.intCreatorId
Left Outer Join db_user t7 _HintBrowser On t7.id_user = t1.intEditorId
Left Outer Join x_docs t8 _HintBrowser On t8.id_doc = t1.intBossDocId
Left Outer Join User_Tbl_EHDDocCards t9 _HintBrowser On t9.req_id = t1.strReqId
Inner Join emps t10 _HintBrowser On t10.pid = t1.intEmpId And t10.st = curstation
Where
1 = 1
xTS4049ReestrPeriod[']
Order By t1.intId},0x0,"Реестр лицевых счетов"; |
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
