function select_multiple_dlg(aKeys, aValues, aSeparator, valuesCaption, valuesSelectedCaption: string; aQuoteResult: boolean; var aResultKeys: string; var aAllSelected: boolean): Integer

» Startseite » netFrame als Plattform Menü » Globale Methoden | » Erweiterte Suche

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;