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

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

Var
   cOrg, cRec :Comp;
...
Create view
AS Select *
From
...
   KatOrg
Where
((
   cRec == KatOrg.nRec And
   ...
));
...
HandleEvent
...
    cmPick:
    {
        Case CurField Of
          #sOrg:
          {
              If RunInterFace( 'L_Katorg::GetKator', cOrg ) <> cmCancel
              {
                cRec := cOrg;

                If GetFirst KatOrg  = tsOk Then
                   Set sOrg := KatOrg.Name;

                ReReadRecord();
              }
          }
        End; 
    }
End;

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

interface a;
  Interface A 'A' ('', hcNoContext, sci1Esc);
  Show at(,,,);

  var i : word;

  create view v1 var i : word;;

  Screen sc '' ('', hcNoContext, sci1Esc);
    Show at(,,,);
    noTableNavigation ;
  Fields
    i : protect;
    v1.i : protect;
  <<
  .@@@@@@@@@@@@@@@@@@@@@@@
  .@@@@@@@@@@@@@@@@@@@@@@@
  >>
  End;

  procedure test(i : word);
  {
    //Т.к. у нас локальная переменная i и глобальная имеют одинаковые имена,
    //к глобальной можно обратиться через квалификатор private;
    private::i := i;

    //Тут в переменную во вьюхе кладём значение из глобальной переменной
    //Если у вьюхи нет имени, то можно через A.i
    v1.i := private::i;
  }

  HandleEvent // Interface
    cmInit:
    {
      test(100);
      //Или A.i, если у вьюхи не было бы имени.
      v1.i -= 50;
    }
  End;

End.