// ITEMS { "DBFNTX", "DBFCDX", "RDDADS" }
RDDADS cambiar por ADS
// { "DBFNTX", "DBFCDX", "ADS" }
Saludos.
- Code: Select all Expand view RUN
- function Preferences()
local oDlg
DEFINE DIALOG oDlg TITLE "Preferences" SIZE 400, 200
@ 1.2, 1.5 SAY "Default RDD: " + cDefRdd OF oDlg
@ 2.4, 1.2 COMBOBOX cDefRdd ITEMS { "DBFNTX", "DBFCDX", "ADS" } ;
OF oDlg SIZE 180, 150
@ 4, 7 BUTTON "&Ok" OF oDlg SIZE 45, 13 ;
ACTION ( SavePreferences(), oDlg:End() )
@ 4, 18 BUTTON "&Cancel" OF oDlg SIZE 45, 13 ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
return nil
Se agradece si los probais y comentais su funcionamiento. Aqui parece que el filtro no se activa, aunque DbFilter() lo devuelve como expresión.
