Добавить поле конфигуратором

[Sytin]

Еще вопрос. Как функциями конфигуратора добавить редактируемое поле?

Пишу:
cfsCreateObject ('PanelInputLine','scDogovorEditMainHead','EditSumNoNDS',FALSE,EditSumNoNDS_opa);
cfsSetProp('EditSumNoNDS','Origin_X',401);
cfsSetProp('EditSumNoNDS','Origin_Y',123);
cfsSetProp('EditSumNoNDS','Size_X',136);
cfsSetProp('EditSumNoNDS','Size_Y',14);
cfsSetProp('EditSumNoNDS','Visible',TRUE);
cfsSetProp('EditSumNoNDS','Protect',TRUE);
cfsSetProp('EditSumNoNDS','StatusCtx',sci1Esc);
cfsSetProp('EditSumNoNDS','Points',2);
cfsSetProp('EditSumNoNDS','MaxLen',22);
cfsSetProp('EditSumNoNDS','NoValidCheck',TRUE);
cfsSetProp('EditSumNoNDS','PassiveFormat','\2p[|-]3666`666`666`666.88');
cfsSetProp('EditSumNoNDS','FieldName',SumNoNDS);
cfsSetProp('EditSumNoNDS','TextAlign',taDefault);


Компилится нормально, но при запуске этого интерфейса в галактике вылетает по рантайму.

[edward_K]

да. я как то пробовал добавить поля програмно и тоже на это натолкнулся. В итоге просто написал cnf и включил ее после alter interface. Посему и с кнопками не стал баловаться.

[edward_K]

а падает сразу после Create?
мож надо объект создавать как
'Field: APPOINTMENTS.FOUNDATION#1'?
#1 - это 2 вариант юзания поля.
попробуйте сначала в cnf ваше поле добавить.

[Sytin]

Ну с кнопками у меня получилось, а с полями обидно, что ничего не выходит...(( А что такое cnf??? И куда его включать?))

[Sytin]

Да падает сразу после Create

[edward_K]

cnf это скрипт создаваемый через "управление конфиггуратором" после того как вы кофигуратором пройдетесь по какому то фейсу.
вот как туда кнопку воткнуть не знаю, зато поля без проблем.

[Sytin]

А можно ли програмно подгружать cnf??
Ну т.е. при одних условиях я хочу один интерфейс, а при других другой...

[edward_K]

програмно вы можете открывать/скрывать поля или делать их protect или skip

[Nikos]

Тема очень интересная...
Можно выложить пример, как добавить кнопку в стандартный интерфейс?

[Sytin]

#component "L_DOGOVOR"

const
cmButSP=121212;
cmWindowClosed=342423;
end;

alter Interface Dogovor;

var ButSP : longint;

procedure LoadCfgPodrWnd;
{
cfsSetCurrentContainer('Dogovor');

cfsSetProp('WIDOGOVOREDITMAIN','RectA_X',0);
cfsSetProp('WIDOGOVOREDITMAIN','RectA_Y',0);
cfsSetProp('WIDOGOVOREDITMAIN','RectB_X',138);
cfsSetProp('WIDOGOVOREDITMAIN','RectB_Y',31);

cfsSetProp('scDogovorEditMainHead','RectA_X',1);
cfsSetProp('scDogovorEditMainHead','RectA_Y',1);
cfsSetProp('scDogovorEditMainHead','RectB_X',137);
cfsSetProp('scDogovorEditMainHead','RectB_Y',8);

cfsSetProp('SCDOGOVOREDITMAIN','RectA_X',1);
cfsSetProp('SCDOGOVOREDITMAIN','RectA_Y',9);
cfsSetProp('SCDOGOVOREDITMAIN','RectB_X',137);
cfsSetProp('SCDOGOVOREDITMAIN','RectB_Y',30);

cfsCreateObject ('button','scDogovorEditMainHead','butSP',FALSE,ButSP);
cfsSetProp('butSP','Origin_X',660);
cfsSetProp('butSP','Origin_Y',5);
cfsSetProp('butSP','Size_X',140);
cfsSetProp('butSP','Size_Y',25);
cfsSetProp('butSP','Title','Доровора субподряда');

cfsSetProp('butSP','StatusCtx',sci13Esc);
cfsSetProp('butSP','Command',cmButSP);
}

HandleEvent

cmDefault:{
case KatVidD.Name of
'Подряд':{
LoadCfgPodrWnd;
}
else{

}
end;
inherited :: handleEvent (cmDefault);
}

end;

end.

[Nikos]

Sytin, спасибо.

[Sytin]

Nikos, если у вас получится добавить TextBoxы напишите пожалуйсто. Я нашел один способ, но он очень уж геморный...

[Алексей]

А если я хочу в интерфейс добавить свою логическую таблицу, виндов, и по кнопке вызвать свой виндов и вставить туда данные по своей логической таблице (v1) ... как сделать?

При указании в браузере Table v1.table ругается что таблицы v1 нет в словаре...

[edward_K]

ну хорошо конечно иметь все лицензии на консоль управления.
там можно посмотреть имя главной вьюшки.
а так в "alter" добавляете свою вьюху - должно работать.
текст в студию - мож кто чего увидит не то. Я не пробовал в browse показывать данные с другой вьюхи - там действительно может быть проблема в синтаксисе.

[Алексей]

э... запарился и убил все на фиг. тупо вызываю другой фейс, в который передаю нрек и там уже резвюсь вовсю...