QueryExecute and QuerySaveAsFolder not working correctly

Question

Hi,
I have a strange problem using the Filter Tokens with QueryExecute and
QuerySaveAsFolder.
I create a filter using the following token commands.
FilterCreate(150;FALSE)
FilterGroupBegin(17833584;316)
FilterSetText(17833584;331;"DM*"; 225; "DMS nummer")
FilterGroupEnd(17833584)
EnvPrefFullName()
QueryExecute(;17833584;4;654;Libraries:"PODOM.UTR-DMS01.DMS001";;):
When running this on my development test installation of GW 7.0.1 the
result window opens and the result is displayed. When looking at the
properies of the search it tells me correctly '...where DMS nummer
contains "DM*"'.
When trying the same software on the production installation (same versie
of GW client) the result window opens and nothing is dispayed, teh
properties showing an empty search.
When using the QuerySaveAsFolder like this
QuerySaveAsFolder("Basismap van ddinformatica\Dossierkast\Zoek resultaat
(12.43.52)";"DDI document
selectie";0;1;"";17833584;4;654;;Libraries:"PODOM. UTR-DMS01.DMS001";;)
Again on the development PC everythink works like intented, on the
production PC the result is empty. But the properties of the search are
looking correct '...where DMS nummer contains "DM*"'. So ther should be a
result. When I open the advanced function of the search, change nothing
and click Ok, the result is displayed correctly.
Can someone explain to me what I'm doing wrong? As far as I understand
the token commends are correct.

Answer 1

Hi again,
I talked to Tommy last week at the GroupWise DevLab in Brussels, and he
ask me to upload a sample code:
Form:
object Form1: TForm1
Left = 1020
Top = 562
Width = 388
Height = 306
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 12
Width = 48
Height = 13
Caption = 'Library ID:'
end
object Label2: TLabel
Left = 8
Top = 36
Width = 22
Height = 13
Caption = 'Field'
end
object Label3: TLabel
Left = 8
Top = 60
Width = 41
Height = 13
Caption = 'Contains'
end
object Edit1: TEdit
Left = 64
Top = 8
Width = 121
Height = 21
TabOrder = 0
Text = 'domddi.poddi.CNVPost'
end
object Edit2: TEdit
Left = 64
Top = 32
Width = 121
Height = 21
TabOrder = 1
Text = 'DMS nummer'
end
object Edit3: TEdit
Left = 64
Top = 56
Width = 121
Height = 21
TabOrder = 2
Text = 'CN*'
end
object Button1: TButton
Left = 192
Top = 8
Width = 75
Height = 23
Caption = 'Search'
TabOrder = 3
OnClick = Button1Click
end
object Button2: TButton
Left = 192
Top = 40
Width = 75
Height = 23
Caption = 'QueryFolder'
TabOrder = 4
OnClick = Button2Click
end
object Memo1: TMemo
Left = 8
Top = 80
Width = 361
Height = 185
TabOrder = 5
end
object cbUseGroup: TCheckBox
Left = 280
Top = 8
Width = 89
Height = 17
Caption = 'Use Group'
Checked = True
State = cbChecked
TabOrder = 6
end
end
Source:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
ActiveX, ComObj, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
cbUseGroup: TCheckBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
procedure Search(SaveAsFolder: Boolean);
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Search(SaveAsFolder: Boolean);
var
ReturnString: String;
FilterHandle: String;
CommandStr: String;
user: String;
Commander: Variant;
Res: Integer;
begin
Commander := CreateOleObject('GroupWiseCommander');
Res := Commander.Execute('FilterCreate(150;FALSE)', FilterHandle);
if Res = 0 then
ShowMessage(ReturnString);
Memo1.Lines.Add('FilterHandle : ' + FilterHandle);
if cbUseGroup.Checked then begin
CommandStr := 'FilterGroupBegin(' + FilterHandle + ';316)';
Memo1.Lines.Add(CommandStr);
Res := Commander.Execute(CommandStr, ReturnString);
if Res = 0 then
ShowMessage(ReturnString);
Memo1.Lines.Add('ReturnString : ' + ReturnString);
end;
CommandStr := 'FilterSetText(' + FilterHandle + ';331;"' + Trim
(Edit3.Text) + '";225;"' + Edit2.Text + '")';
Memo1.Lines.Add(CommandStr);
Res := Commander.Execute(CommandStr, ReturnString);
if Res = 0 then
ShowMessage(ReturnString);
Memo1.Lines.Add('ReturnString : ' + ReturnString);
if cbUseGroup.Checked then begin
CommandStr := 'FilterGroupEnd(' + FilterHandle + ')';
Memo1.Lines.Add(CommandStr);
Res := Commander.Execute(CommandStr, ReturnString);
if Res = 0 then
ShowMessage(ReturnString);
Memo1.Lines.Add('ReturnString : ' + ReturnString);
end;
if SaveAsFolder then begin
Commander.Execute('EnvPrefFullName()', User);
//User := 'Basismap van ' + User + '\Dossierkast\Zoek resultaat (' +
FormatDateTime('hh.mm.ss', now) + ')'
User := User + ' Home\Cabinet\Zoek resultaat (' + FormatDateTime
('hh.mm.ss', now) + ')';
CommandStr := Format('QuerySaveAsFolder("%s";"DDI document
selectie";0;1;"";%s;4;654;;Libraries:"%s";;)', [User, FilterHandle,
Edit1.Text]);
end else
CommandStr := Format('QueryExecute(;%s;4;654;Libraries:"%s";;)',
[FilterHandle, Edit1.Text]);
Memo1.Lines.Add(CommandStr);
Res := Commander.Execute(CommandStr, ReturnString);
if Res = 0 then
ShowMessage(ReturnString);
Memo1.Lines.Add('ReturnString : ' + ReturnString);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Search(False);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Search(True);
end;
end.