Интерфейс в Support...

[Влад.com]

Всем добрый день! Вот столкнулся в первый день с задачей на интерфей. И как обычно первый блин комом. Кто сможет разъяснить как сделать Bыпoдaющий cпиcok opгaнизаций? Вот кусочек мой:

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

 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.

Ошибок куча!)) Так что Всем заранее спасибо!

[Masygreen]

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

  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);//получаем маркер

[Влад.com]

Ммм... #_sKatOrg пишит нет такой функиции

[edward_K]

_sKatOrg здесь переменная, которую нужно описать типа так
var
_sKatOrg:string;

[Влад.com]

Ох как у меня всё запущенно... Так с _sKatOrg ясно, спасибо.
А можете объяснить что такое значение ключевые поля у Организаций?

[edward_K]

как то выдрано из контекста. Обычно "ключевые" = "индексные". Для организации это наименование, инн, кпп, и для большей однозначности расчетный счет(ну это уже в katbank). Nrec тоже могет быть "ключевым" и в отличии от прочего однозначно определяет запись..