MyTetra Share
Делитесь знаниями!
Редактирование CardEdit с опредлением выборки
Время создания: 12.05.2017 16:32
Раздел: Global - Programming
Запись: xintrea/mytetra_db_mcold/master/base/1494595961m0uo4h321y/text.html на raw.githubusercontent.com

<sql>

<GetProp>

[out svSelectionName, svRepresentName]

begin

:svSelectionName := BTK_ClientGate.GetClassProperty(:idvClass, :svPropSelName);

:svRepresentName := BTK_ClientGate.GetClassProperty(:idvClass, :svPropRepresent);

end;

</GetProp>

</sql>


<pascal>


// для карточки определяем выборку и отображение

v := execsqlEx('GetProp', 'svSelectionName; svRepresentName; idvClass; svPropSelName; svPropRepresent', [ftString, ftString, ftFloat, ftString, ftString], ['','', GetVar('idClass'), 'CardEditor.Selection', 'CardEditor.Representation']);

CreateFormEx('', v[0] , fcfMDI, ['Representation', 'EditingType', 'idItem#'], [v[1], 'Edit', GetVar('id')]);


</pascal>

 
MyTetra Share v.0.58
Яндекс индекс цитирования