Страница 2 из 2
Re: Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцехо
Добавлено: 25 май 2018, 14:10
Masygreen
edward_K писал(а):Вот пример
Самое сложное - сосчитать кол-во пустых строк.
Вот это совсем другое дело ) Спасибо.
Код: Выделить всё
#Component "M_UP"
const
cmStartFuncCO = 30100;
end;
alter interface NAKL502;
var
iBtnFuncCO: longint;
ExtendFormats ScrHeader;
window EDITSOPR;
screen ScrHeader;
buttons
cmStartFuncCO;
<<
<. Функция .>
>>
end;
HandleEvent
cmStartFuncCO:
{
RunInterface('mi_SpecOS::inDoc',0,comp(katsopr.nrec));
};
end;
end;
HandleEvent
cmOnVipLoad:
{
if inherited:: handleEvent(cmOnVipLoad) != heOk then
{
abort;
exit;
}
if (cfsSetCurrentContainer(cfsGetCurrentContainerSelf) = cfOk) { }
}
end;
end.
Re: Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцехо
Добавлено: 07 июн 2018, 11:10
Masygreen
Что-то не совсем хорошее произошло, после подключения ресурса пропала функциональность окна. Пробовал менять приоритеты не помогло.. Куда посмотреть?
Re: Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцехо
Добавлено: 12 июн 2018, 17:01
edward_K
Скорей всего вы промахнулись панелью, да и table надо указывать
В общем надо полностью повторять вложеность окна
Re: Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцехо
Добавлено: 13 июн 2018, 13:52
Masygreen
Вроде заработало, добавил панель изменил порядок евентов, статус строку добавил и дефайны из исходников. Всем спасибо в очередной раз....
з
Код: Выделить всё
#Component "M_UP"
#Define NAK502
#Define _NAK502_
#Define NAKMnf
#Define _DSOPRHOZ_
#Define _USE_SERIAL_
#Define __HozOperViewName__
#define _BoxNeedAuto
#Define OBJINT_ALGORITM
#Define OBJINT_SETGETVID
#Define OBJINT_ACCOUNT
const
cmStartFuncCO = 30100;
end;
alter interface NAKL502;
var
iBtnFuncCO: longint;
ExtendFormats ScrHeader;
Window EditSopr;
HandleEvent
cmStartFuncCO:
{
RunInterface('function', 0, comp(katsopr.nrec));
};
end;
Panel header
table KatSopr;
Screen ScrHeader (,, sci178Esc);
buttons
cmStartFuncCO;
<<
<. function .>
>>
end;
end;
end;
end.
Re: Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцехо
Добавлено: 04 янв 2019, 13:23
Руслан
Пытаюсь докомпилировать интерфейс расширенной информации ДО на закупку. Добавляю кнопки, но они не отображаются, слетают их координаты. В скрине они есть, через конфигуратор видно.
Код: Выделить всё
window WDOPATTR;
handleEvent
cmInit :
{
inherited::handleEvent(cmInit);
var i : integer;
for (i := 0; i < 2; i++)
{
! cfsSetCurrentContainer('VSCHETB.WDOPATTR.SCWDOPATTRBS');
cfsSetCurrentContainer(cfsGetCurrentContainerSelf);
cfsCreateObject('button', 'SCWDOPATTRBS', 'ButDistributionValue', FALSE, buttMy_var);
cfsCreateObject('label', 'SCWDOPATTRBS', 'LableDistributionValue', FALSE, lblMy_var);
cfsCreateObject('button', 'SCWDOPATTRBS', 'ButDistributionSeeValue', FALSE, buttMy_varSee);
if (i = 0)
{
cfsSetProp('ButDistributionValue','Visible',FALSE);
cfsSetProp('LableDistributionValue','Visible',FALSE);
cfsSetProp('ButDistributionSeeValue','Visible',FALSE);
}
else
{
cfsSetProp('ButDistributionValue','Visible',TRUE);
cfsSetProp('LableDistributionValue','Visible',TRUE);
cfsSetProp('ButDistributionSeeValue','Visible',FALSE);
}
cfsSetProp('ButDistributionValue','Origin_X', 528);
cfsSetProp('ButDistributionValue','Origin_Y', 170);
cfsSetProp('ButDistributionValue','Size_X',239);
cfsSetProp('ButDistributionValue','Size_Y',25);
cfsSetProp('LableDistributionValue','Origin_X', 580);
cfsSetProp('LableDistributionValue','Origin_Y', 202);
cfsSetProp('LableDistributionValue','Size_X',176);
cfsSetProp('LableDistributionValue','Size_Y',15);
cfsSetProp('ButDistributionSeeValue','Origin_X', 528);
cfsSetProp('ButDistributionSeeValue','Origin_Y', 345);
cfsSetProp('ButDistributionSeeValue','Size_X',239);
cfsSetProp('ButDistributionSeeValue','Size_Y',25);
cfsSetProp('ButDistributionValue','Command', cmButDistributionValue);
cfsSetProp('ButDistributionSeeValue','Command', cmButDistributionSeeValue);
cfsSetProp('ButDistributionSeeValue','Title','Просмотр заявок');
Re: Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцехо
Добавлено: 22 янв 2019, 06:50
Алексей