function TdmDataModule.spStoredProcedure(xID : integer; xParam1, xParam2 : double) :  integer
begin
  try
    result :=  0 ;
    tranDefault.StartTransaction;
    with spSP_STORED_PROCEDURE do
      begin
      ParamByName('XID').AsInteger := xMETHOD_ID;
      ParamByName('XPARAM1').AsFloat := xParam1;
      ParamByName('XPARAM2').AsFloat := xParam2;
      ExecProc;
      result := ParamByName('YID').AsInteger;
      end;
     tranDefault.Commit;
  except
    on E : exception do
      begin
      result := - 1 ; // код ошибки 
      // -- процедура протоколирования ошибки или сообщение
 
      tranDefault.Rollback;
       
      end;
  end;