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

[Masygreen]

Вот пример
Самое сложное - сосчитать кол-во пустых строк.

Вот это совсем другое дело ) Спасибо.

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

#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]

Что-то не совсем хорошее произошло, после подключения ресурса пропала функциональность окна. Пробовал менять приоритеты не помогло.. Куда посмотреть?

[edward_K]

Скорей всего вы промахнулись панелью, да и table надо указывать
В общем надо полностью повторять вложеность окна

[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.   

[Руслан]

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

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

	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','Просмотр заявок');  

[Алексей]

viewtopic.php?f=2&t=10757&start=15