Галактика в вопросах и ответах

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

#component "M_MNPLAN"
const
  cmButSP1=55591;
  cmButSP2=55593;
end;
alter interface IRSPMNPLAN;
var lButSP1, lButSP2: longint;
..
overload Function InitVidWindow : Boolean; end;
Function InitVidWindow : Boolean;   
   {
     if inherited::InitVidWindow = true and PWORKTYPE = 17 then
        {
          if cfsSetCurrentContainer(cfsGetCurrentContainerSelf) = cfOk then
            {
              if cfsCreateObject ('Button','SCRMNPLAN','cmButSP1',true, lButSP1) = cfOk then
              {
                cfsCreateObject ('Button','SCRMNPLAN','cmButSP1',false,lButSP1)
                cfsSetProp(lButSP1, cfpTitle,   'Загрузить продолжительность рабочих дней');
                cfsSetProp(lButSP1,'Command',    cmButSP1);
                 ....
              }
              if cfsCreateObject ('Button','SCRMNPLAN','cmButSP2',true, lButSP2) = cfOk then
              {
                cfsCreateObject ('Button','SCRMNPLAN','cmButSP2',false,lButSP2)
                 cfsSetProp(lButSP2, cfpTitle,   'Передать данные в табель');
                cfsSetProp(lButSP2,'Command',    cmButSP2);
                ...
              }
            }
          InitVidWindow:= true;
        }
   }
Handleevent                         //Главное окно
  {
    cmButSP1: {message('Button1');}
    cmButSP2: {message('Button2');}
  }
end;
end.

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

    #component "M_MNPLAN"
       end;
    alter interface IRSPMNPLAN;
    var lButSP1, lButSP2: longint;
    ..
    overload Function InitVidWindow : Boolean; end;
    Function InitVidWindow : Boolean;   
       {
         if inherited::InitVidWindow = true and PWORKTYPE = 17 then
            {
              if cfsSetCurrentContainer(cfsGetCurrentContainerSelf) = cfOk then
                {
                  if cfsCreateObject ('Button','SCRMNPLAN','lButSP1',true, lButSP1) = cfOk then
                  {
                    cfsCreateObject ('Button','SCRMNPLAN','lButSP1',false,lButSP1)
                    cfsSetProp('lButSP1', cfpTitle,   'Загрузить продолжительность рабочих дней');
                    cfsSetProp('lButSP1','Command',    cmValue59);
                     ....
                  }
                  if cfsCreateObject ('Button','SCRMNPLAN','lButSP2',true, lButSP2) = cfOk then
                  {
                    cfsCreateObject ('Button','SCRMNPLAN','lButSP2',false,lButSP2)
                     cfsSetProp('lButSP2', cfpTitle,   'Передать данные в табель');
                    cfsSetProp('lButSP2','Command',    cmValue60);
                    ...
                  }
                }
              InitVidWindow:= true;
            }
       }
    Handleevent                         //Главное окно
      {
        cmValue59: {message('Button1');}
        cmValue60: {message('Button2');}
      }
    end;
    end.

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

Alter interface ispSpPl01

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

#component "M_MNPLAN"
#include galnet.inc
end;
#make "TestSomeOne.vip"
//Файл TestSomeOne.vip:
alter interface IRSPMNPLAN;
end.
Alter interface ispSpPl01;
end.  

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

Table Struct TmpSort
(
 cRec : tNRec,
 Sort : String [240]
)
With Index
(
 TmpSort01 = Sort
);

Table Struct TmpBufFormPl
(
 FormPlNRec : tNRec
)
With Index
(
 TmpBufFormPl01 = FormPlNRec
);

Table Struct TmpSpMnPlan
(
  cRec       : tNRec,
  NewNumSort : comp
)
With Index
(
 TmpSpMnPlan01 = cRec
);

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

#component "M_MNPLAN"
#include galnet.inc
end;
#make "TestSomeOne.vip"
Alter ....

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

#statusline "statgal"
#include galnet.inc
end;
#component "M_MNPLAN"

#make "Alter\M_MNPLAN_ispSpPl01.vip"
//или #make "Alter\*.vip"

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

#component 'L_SOPRDOC'
const
  cmMyFuncStrCU = 15222;
end;

alter interface SOPRDOCB;

create view;

procedure prSetCU;
{
//5) Если по документу сформированы ордера - не запускаем интерфейс
  if(katsopr.dopr = 0)
    runInterface('MBUH_RES::mIntCreateCU', katsopr.nrec);
  else
    message('Удалите ордер', Information);
}

window EDITSOPR EscClose;
HandleEvent
  cmMyFuncStrCU:
    prSetCU;
end;
end;

HandleEvent
  cmInit:
  {
    inherited:: HandleEvent(cmInit);

    if(cfsSetCurrentContainer('L_SOPRDOC::SOPRDOCB') <> cfOK)//интерфейс
    {
      Message(''#3'Ошибка установки корневого контейнера', Error);
      Exit;
    }
//#region кнопки собственное
    var
      iObjBtn00: longint;
    if (cfsCreateObject(cfcButton, 'SCRHEADER', 'cmMyFuncStrCU', FALSE, iObjBtn00) = cfErrCreateObjectError)
    {
      Message(''#3'Ошибка создания объекта', Error);
      Exit;
    }
    cfsSetProp(iObjBtn00, cfpOrigin_X, 890);//по горизонтали
    cfsSetProp(iObjBtn00, cfpOrigin_Y, 253);//по вертикали
    cfsSetProp(iObjBtn00, cfpSize_X, 212);//длинна
    cfsSetProp(iObjBtn00, cfpSize_Y, 26);//ширина
    cfsSetProp(iObjBtn00, cfpCommand, cmMyFuncStrCU);
    cfsSetProp(iObjBtn00, cfpVisible, TRUE);
    cfsSetProp(iObjBtn00, cfpTitle, 'Разноска');
//#endregion
  };
end;
end.