Choose

Choose è un comando che permette di visualizzare una finestra di selezione personalizzata.

Ecco un esempio che recupera da tabella un elenco di record e poi in base alla scelta popola i campi della videata. Va notato che il carattere & deve essere il primo della riga.

Subprog S_YCODMAR(VALEUR)
  Variable Char    VALEUR()

  Choose [F:YCE] Order By [F:YCE]YCODMAR Asc; [F:YCE]YSEQMAR Asc Using
& [F:YCE]YCODMAR Titled "Cod.Marchio",
& [F:YCE]YSEQMAR Titled "Sequenza",
& [F:YCE]YNUMFILE Titled "NumFile",
& [F:YCE]YTXTETI Titled "TestoEti",
& [F:YCE]YGRPCERT Titled "GrpCert"
& Sized(120,360)
& Titled "Seleziona certificazione "

  # Lo status a 28 indica che un record è stato scelto ed è come se fosse stata fatta una READ puntuale sul record selezionato
  If [S]status = 28 Then
    #[M:YCC1]YCODMAR(nolign-1)=[F:YCE]YCODMAR
    VALEUR =[F:YCE]YCODMAR
    [M:YCC1]YSEQMAR(nolign-1)=[F:YCE]YSEQMAR
    [M:YCC1]YNUMFILE(nolign-1)=[F:YCE]YNUMFILE 
    [M:YCC1]YTXTETI(nolign-1)=[F:YCE]YTXTETI  
    [M:YCC1]YGRPCERT(nolign-1)=[F:YCE]YGRPCERT 
  Endif

End

Vedi help istruzione status:

• 27 GSTALFT Click on left list
• 28 GSTALF2 Double-click on left list