Hola, buen día a todos.
Alguien me podría dar un ejemplo de FR pero con "DbSetfilter"
CallHbFunc('DbSetFilter', [par1,par2);
En par1 y par2 ya le puse de todo y no me hace el filtrado
Agradezco su ayuda.
procedure Button1OnClick(Sender: TfrxComponent);
var
cCad1,cCad2: String;
begin
cCad1 := '{||"COLA"$ARTICULOS->NOMBRE}'; <=== Este es el codeblock
cCad2 := '"COLA"$ARTICULOS->NOMBRE';
CallHbFunc('DbSelectArea', ['ARTICULOS']);
CallHbFunc('DbSetFilter', [cCad1,cCad2]);
IF RadioButton1.checked then CallHbFunc('OrdSetFocus', [2]);
IF RadioButton2.checked then CallHbFunc('OrdSetFocus', [1]);
end;
procedure Button1OnClick(Sender: TfrxComponent);
var
cCad3, cCad2: String;
cCad1: Integer;
begin
cCad3 := '{||"'+Edit1.text+'"$ARTICULOS->NOMBRE}';
cCad2 := '"'+Edit1.text+'"$ARTICULOS->NOMBRE';
cCad1 := CreateCodeBlock(cCad3);
CallHbFunc('DbSelectArea', ['ARTICULOS']);
IF RadioButton1.checked then CallHbFunc('OrdSetFocus', ['NOMBRE']);
IF RadioButton2.checked then CallHbFunc('OrdSetFocus', ['ARTICULO']);
CallHbFunc('DbSetFilter', [cCad1,cCad2]);
end;
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 27 guests