Código Delphi [-] Q_IngresaPlato.SQL.Text := 'SP_MODIFICA_PRODUCTO :Param1 :Param2'; Q_IngresaPlato.ParamByName('Param1').AsInteger := CodigoIngreso_Int; Q_IngresaPlato.ParamByName('Param2').AsFloat := ValorIngreso_Real; Q_IngresaPlato.ExecSQL;
Q_IngresaPlato.SQL.Text := 'SP_MODIFICA_PRODUCTO :Param1 :Param2'; Q_IngresaPlato.ParamByName('Param1').AsInteger := CodigoIngreso_Int; Q_IngresaPlato.ParamByName('Param2').AsFloat := ValorIngreso_Real; Q_IngresaPlato.ExecSQL;