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

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

 Interface a2 'организаций' cyan doaccept;
show at (,,25,13);
create view as select Name from katOrg;
parameters katorg.name;
browse B;
fields
Name 'Название';
end;
end.

interface a1 'Документ';
Create view as select katsopr.nsopr,  katsopr.summa, katmc.name, katsopr.vhodnal,spsopr.price, katorg.name, spsopr.kol where ((katsopr.nrec==spsopr.csopr and spsopr.cmcusl==katmc.nrec));
Screen S1;
show at (,,,3);
table katSopr;
fields
Katsopr.nsopr;
KatSopr.dSopr;
Katorg.name: pickbutton;
KatSopr.Summa;
<<
Номер документа .@@@@@@@@@@@@@@@@@@@@@@@
Дата документа  .@@@@@@@@@@@@@@@@@@@@@@@
Организаций      .@@@@@@@@@@@@@@@@@@@@@@@
Сумма           .@@@@@@@@@@@@@@@@@@@@@@@
>>
End;
Browse S2;
show at (,20,,);
table katSopr;
KatMc.Name 'наименование';
SpSopr.price 'Цена';
SpSopr.kol 'количество';

End;
HandleEvent
cmPick:{
RunInterface(a2,katorg.name)
 Update current katorg;
}
End;
End.

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

  cmPick:
  { 
    case CurField of
      #_sKatOrg:
      {

if ( RunInterface('L_KATORG::GETSOMEKONTRPRIM',true) <> cmCancel )
{
var UnikMarker : LongInt;
UnikMarker := InitMarker('KatOrg',8,200,100,false);
_MarkOrg := InitMarker(_MarkOrgName, 8, 500, 100, false);//получаем маркер