Hallo zusammen,
ich möchte gerne in einem FastReport-Bericht in einem übergebenen DataSet nach einem bestimmten Suchbegriff filtern. Das ganze muss/sollte in dem Pascalteil geschehen.
Wie übernehme ich die folgende Funktion in das Pascalskript ?
Delphi-Quellcode:
function TDM_Main.GetKTOText(KTONr:
string; KRNr: Integer):
string;
begin
with UniQuery_Temp2
do
begin
SQL.Clear;
SQL.Text := '
SELECT * FROM kto WHERE KTO1 = :K';
ParamByName('
K').AsString := KTONr;
Open;
if FieldByName('
KTO' + IntToStr(KRNr)).AsString <> null
then
Result := FieldByName('
KTO' + IntToStr(KRNr)).AsString
else
Result := '
';
Close;
end;
end;