В бухсправках на конец месяца уволенный сотрудник уже не должен присутствовать.
Используем режим без ТХО. Какие варианты есть? Использовать ТХО и как-то параметры? Понятно, что можно ТХО АПИ задействовать, но это уже тяжёлая артиллерия..

Модераторы: m0p3e, edward_K, Модераторы
Код: Выделить всё
ForMarks.choice := My;
Код: Выделить всё
My := _cLSchet;
if Validators <> NullRef
My := ITraditionalPersonalAccountMarks(Validators).GetPersonalAccountMarksChoice;
Код: Выделить всё
#include GetPMeu.vih
interface GetPMeu1 'Список Работников' escclose,cyan;
var
PrCex: comp;
PrCpodr: comp;
GPM: GetPMeu1Rep;
parameters
prCpodr, // вышестоящее подразделение
prCex; // нижестоящее подразделение
//------------------------------------------------------------------------------
embedded GetPMeuEmbedded interface;
show (,,,);
end
handleevent
cmInit:
{
var tmpTitle: String;
//инициализируем GetPMeu1Rep
GPM.SetParams(PrCpodr, prCex);
GPM.SetMode(moCommon, tmpTitle);
//выводим заголовок
SetTitle(tmpTitle);
//связываем интерфейсы
BindEmbeddedInterface(GetPMeuEmbedded, GPM);
}
cmDone:
{
UnBindEmbeddedInterface(GetPMeuEmbedded);
}
cmDefault:
{
GPM.GetParams(PrCpodr, prCex);
CloseInterface(cmDefault);
}
end;
end.