Clipper/FiveWin - Ayuda con FiveWin

 
Vista:

Ayuda con FiveWin

Publicado por Fer (6 intervenciones) el 27/09/2000 00:00:00
Hola, si alguien sabe la respuesta se los voy a agradecer.

Estoy trabajando con la librería de #5 para los grids y mi problema es el siguiente: dentro de mi cuadro de diálogo tengo 2 componentes, un listbox y un objeto grid. lo que quiero hacer es filtrar la base de datos cada vez que elijo un elemento del objeto listbox(es decir, cada que le doy doble click a un elemento de la lista). Además, alguien sabe por qué no pueod abrir más de 2 bases de datos al mismo tiempo?

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con FiveWin

Publicado por Armando Estrada Bucio (95 intervenciones) el 29/09/2000 00:00:00
Hola Fer, Posiblemente el problema al abrir las
bases de datos es que no estes usando la clausula
NEW y al abrir la segunda base esta cierra a la primera, usalo así:

use mibase index miindice alias mibase
use tubase index tuindice alias tubase NEW

Respecto a la otra parte de la pregunta, dejame encontrar un ejemplo y te lo envio.

Ojala te ayude

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con FiveWin

Publicado por Armando Estrada Bucio (95 intervenciones) el 30/09/2000 00:00:00
Hola Fer.

Te va un ejemplo de como filtrar informacion

LOCAL aItems := {"Semanal","Quincenal","Mensual"}

DEFINE COMBOBOX oCbx VAR cNomTip ID 171 OF oDlg PROMPT aItems;
ON CHANGE (cTipNom := SUBSTR(cNomTip,1,1),;
oLbx:SETFILTER("Periodos->PER_TIN",cTipNom,cTipNom),;
oLbx:GoTop(),oLbx:Refresh())

REDEFINE LISTBOX oLbx FIELDS Periodos->PER_PER,;
DTOC(Periodos->PER_INI),;
DTOC(Periodos->PER_FIN),;
DTOC(Periodos->PER_PAG),;
TRANSFORM(Periodos->PER_NPM,"9"),;
TRANSFORM(Periodos->PER_TPM,"9"),;
TRANSFORM(Periodos->PER_MES,"99"),;
TRANSFORM(Periodos->PER_AMO,"9999"),;
HEADERS "No","Inicia","Termina","Se Paga","Npm","Tpm","Mes","Año";
FIELDSIZES 20,77,77,77,30,30,30,20;
SELECT Periodos->PER_TIN FOR cTipNom TO cTipNom;
ON DBLCLICK (EdtPer(oWindow,oDbf,oLbx,(.F.),cAplicacion,;
oLbx:Refresh());
ID 172 OF oDlg

El "truco" esta en las lineas

oLbx:SETFILTER("Periodos->PER_TIN",cTipNom,cTipNom),;
SELECT Periodos->PER_TIN FOR cTipNom TO cTipNom;

Analizalas y estudialas y si aun tienes dudas
esty a tus ordenes.

Saludos desde Mexico
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar