MyTetra Share
Делитесь знаниями!
BEFOREOPEN
Время создания: 17.04.2017 17:14
Текстовые метки: TODO
Раздел: Global - Projects - VSZ - SEL_QJM_QuestionForPrjORG - RoList
Запись: xintrea/mytetra_db_mcold/master/base/14924384890v7lobpfky/text.html на raw.githubusercontent.com

<SQL>

<getid_qjm>

[Out cost]

begin

begin

Select q.id Into :idq

From qjm_product q

, pdm_shipproduct p

Where p.id = :idp

And p.scode = q.scode;

end;

</getid_qjm>


<SetFlt>

[out Filter$Flt_idProduct, Filter$Flt_idProduct_HL]

begin

:Filter$Flt_idProduct := :idqProduct;

:Filter$Flt_idProduct_HL := QJM_ProductAPI.GetHeadLine(:idqProduct);

end;

</SetFlt>

</SQL>


<pascal>

idvProduct:= GetVar('super$idGlobalProduct');

if not VarIsNull(idvProduct) then

begin

sRes := ExecSQL('getIid_qjm', 'idq; idp', [ftInteger, ftInteger], [ , idvProduct]); // здесь ругается

idqProduct := sRes[1];

end;



if not VarIsNull(idqProduct) then

begin

ClientSetVar('FILTER$Flt_idProduct',idqProduct);

Selection.ExecOpScript('SetFlt_idProduct');

Selection.AddVar('idProduct#', idqProduct, ftFloat);

end;

if VarIsNull(GetVar('Filter$Flt_idProduct')) then

ExecSQLEx('SetFlt', 'idpProduct', [ftFloat], [idqProduct]);


Selection.ExecOpScript('#BeforeOpen');

</pascal>


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