Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцеховая

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Masygreen
Местный житель
Сообщения: 1089
Зарегистрирован: 04 сен 2008, 11:27
Откуда: Москва
Контактная информация:

Re: Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцехо

Сообщение 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.
Время ведет!
Masygreen
Местный житель
Сообщения: 1089
Зарегистрирован: 04 сен 2008, 11:27
Откуда: Москва
Контактная информация:

Re: Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцехо

Сообщение Masygreen »

Что-то не совсем хорошее произошло, после подключения ресурса пропала функциональность окна. Пробовал менять приоритеты не помогло.. Куда посмотреть?
Время ведет!
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5184
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцехо

Сообщение edward_K »

Скорей всего вы промахнулись панелью, да и table надо указывать
В общем надо полностью повторять вложеность окна
Masygreen
Местный житель
Сообщения: 1089
Зарегистрирован: 04 сен 2008, 11:27
Откуда: Москва
Контактная информация:

Re: Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцехо

Сообщение 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.   
Время ведет!
Руслан
Местный житель
Сообщения: 294
Зарегистрирован: 01 ноя 2011, 14:03
Контактная информация:

Re: Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцехо

Сообщение Руслан »

Пытаюсь докомпилировать интерфейс расширенной информации ДО на закупку. Добавляю кнопки, но они не отображаются, слетают их координаты. В скрине они есть, через конфигуратор видно.

Код: Выделить всё

	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','Просмотр заявок');  
Алексей
Местный житель
Сообщения: 2896
Зарегистрирован: 24 июн 2005, 12:12
Откуда: Иркутская область

Re: Докомпиляци "M_UP::IMNFINTRF" Накл. на приход ГП\Межцехо

Сообщение Алексей »

Ответить