Bug in "Package Wizard"

Bernhard

Member
Hi,

I am using PL/SQL-records in a package. When I create the corresponding delphi unit, the PL/SQL type is not prefixed with the schema name (schema "BA" used in the example below), the procedure itself is prefixed correctly.

Best regards,

Bernhard

See example below (problem marked with '***')

procedure TQrBaPivot.TestProc(var PCursor: TOracleQuery;
var PSearchparameter: QrBaPivotRSearchParameter);
begin
GetQuery;
OCPQuery.DeclareVariable('P_CURSOR', otCursor);
OCPQuery.SetComplexVariable('P_CURSOR', PCursor);
OCPQuery.DeclareVariable('record_var3', otInteger);
OCPQuery.SetVariable('record_var3', BoolToInt(PSearchparameter.PWithoutresultsonly));
OCPQuery.DeclareVariable('record_var4', otString);
OCPQuery.SetVariable('record_var4', PSearchparameter.PAggregationmethod);

OCPQuery.SQL.Add('declare');
OCPQuery.SQL.Add(' P_SEARCHPARAMETER "QR_BA_PIVOT".r_Search_Parameter;');
' *****************
OCPQuery.SQL.Add('begin');
OCPQuery.SQL.Add(' P_SEARCHPARAMETER.P_WITHOUTRESULTSONLY := sys.diutil.int_to_bool(:record_var3);');
OCPQuery.SQL.Add(' P_SEARCHPARAMETER.P_AGGREGATIONMETHOD := :record_var4;');
OCPQuery.SQL.Add(' "BA"."QR_BA_PIVOT"."BATCHESPIVOTWITHCHEMISTRY"(');
OCPQuery.SQL.Add(' P_CURSOR => :P_CURSOR,');
OCPQuery.SQL.Add(' P_SEARCHPARAMETER => P_SEARCHPARAMETER);');
OCPQuery.SQL.Add('end;');
OCPQuery.Execute;
 
Back
Top