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 =>
_CURSOR,');
OCPQuery.SQL.Add(' P_SEARCHPARAMETER => P_SEARCHPARAMETER);');
OCPQuery.SQL.Add('end;');
OCPQuery.Execute;
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

OCPQuery.SQL.Add(' P_SEARCHPARAMETER.P_AGGREGATIONMETHOD := :record_var4;');
OCPQuery.SQL.Add(' "BA"."QR_BA_PIVOT"."BATCHESPIVOTWITHCHEMISTRY"(');
OCPQuery.SQL.Add(' P_CURSOR =>

OCPQuery.SQL.Add(' P_SEARCHPARAMETER => P_SEARCHPARAMETER);');
OCPQuery.SQL.Add('end;');
OCPQuery.Execute;