Написал Administrator
|
17.12.2004 |
Пример на VBS StoredProc.StoredProcName = "PR_GOOR_CR_INVOCE_WITH_PRICES" StoredProc.ParamByName ("fl").Value = 1 StoredProc.ParamByName ("n_doc").Value = DOCUMENT StoredProc.ParamByName ("vFlprice").Value = flpr StoredProc.ParamByName ("s_staxgrp").Value = nalgrp StoredProc.ExecProc sRes=StoredProc.ParamByName ("sRes").Value
Пример на DelphiScript Procedure TEST1; Begin StoredProc.StoredProcName := 'PU_PUTDEB'; StoredProc.Params.CreateParam(ftFloat, 'sSTROKA', ptInput); StoredProc.Params.CreateParam(ftFloat, 'nNUMB', ptOutput); StoredProc.Prepare; StoredProc.ParamByName('sSTROKA').AsFloat := Document; StoredProc.ExecProc; ShowMessage(StoredProc.ParamByName('nNUMB').AsString); End;
Источник: Форум Корпорации "Парус"
|