netFrame-Syntax:
function select_multiple_dlg(aKeys, aValues, aSeparator, valuesCaption, valuesSelectedCaption: string; aQuoteResult: boolean; var aResultKeys: string; var aAllSelected: boolean): Integer
Beschreibung:
select_multiple_dlg präsentiert dem Benutzer einen Dialog indem er eine mehrfach Auswahl machen kann.
aKeys stellt die Schlüssel der Werte dar (z.B. '1,2,3').
aValues stellt die für den Benutzer sichtbaren Werte dar (z.B. 'sini,sasa,benni').
aSeparator stellt dabei das Trennzeichen dar (Normal sollte ein Beistrich verwendet werden da der in der SQL Anweisung als IN
Parameter verwendet werden kann).
valuesCaption stellt die Überschrift in der linken Liste dar (Wenn leer dann eine Standard Überschrift).
valuesSelectedCaption stellt die Überschrift in der rechten Liste dar (Wenn leer dann eine Standard Überschrift).
aQuoteResult gibt an ob die einzelnen Werte im Ergebnis in der Variable aResultKeys in Hochkomma gesetzt werden sollen.
aResultKeys liefert die Schlüssel der ausgewählten Werte zurück die mit dem Separator getrennt werden.
aAllSelected gibt zurück ob alle verfügbaren Werte ausgewählt wurden.
Beispiel:
function getBerichteArt: string;
var
aResultKeys: string;
aAllSelected: boolean;
aStrKey, aStrValue: string;
begin;
result := ;
aStrKey := 'Instandhaltung,Wohnungssanierung,Bau';
aStrValue := 'Instandhaltung,Wohnungssanierung,Bau';
if select_multiple_dlg(aStrKey, aStrValue, ',','Verfügbare Arbeitsarten','Ausgewählte Arbeitsarten',true,
aResultKeys, aAllSelected) = mrOk then
begin
result := aResultKeys;
end;
end;
procedure PopUpBericht_OnItemClick(SenderName: string);
var
aReport : TfrmReportData;
aStr: string;
begin;
if SenderName = 'NArbeitenliste' then
begin
aStr := getBerichteArt;
if aStr <> then
begin
try
aReport := TfrmReportData.create('ArbeitenListe');
aReport.setParam('TYP', self.getLocalVariable('TYP'));
aReport.setParam('ID', self.getLocalVariable('ID'));
aReport.setParam('ARBEIT_ART', aStr);
aReport.previewReport;
finally
aReport.free;
end;
end;
end;
end;