Browse Consulta

[Miguel Rivera]

Fue, una volada, no me fije en la extencion, pero ya estan en tu correo.

Disculpa,

Miguel

Estimado me llego la DBF, DLL pero enviaste los OBJ no los PRG
podrias mandarme los archivos fuente porfi

para ve el codigo

Gracias

[Miguel Rivera]

Como te han llegado?

Miguel

Estimado me llego la DBF, DLL pero enviaste los OBJ no los PRG
podrias mandarme los archivos fuente porfi

para ve el codigo

Gracias

[Miguel Rivera]

Bueno Amigo:

Nunca supe como te llego, pero por hoy ya me marcho de la oficina.

Nos vemos,

Miguel

Estimado me llego la DBF, DLL pero enviaste los OBJ no los PRG
podrias mandarme los archivos fuente porfi

para ve el codigo

Gracias

[A&C]

Bueno amigo ,, te cuento me llegaron perfectos y me ayudo mucho para lo que tenia que hacer

muchas GRACIAS

[Miguel Rivera]

Hola:

Disculpa que te moleste, necesito consultarte algo ya que en foro no me han contestado y es urgente.

Necesito poder modificar los colores que trae el LISTBOX por cada registro, el que uso tiene como base el AZUL.

1. Se puede Cambiar el color y como

2. El Browse tiene un Filtro?


Si me puedes ayudar, fantastico,

Saludos,

Miguel

Estimado me llego la DBF, DLL pero enviaste los OBJ no los PRG
podrias mandarme los archivos fuente porfi

para ve el codigo

Gracias

[A&C]

amigo dime:

que usas para los browse

Usas LISTBOX nativo de FIVEWIN

o TSBROWSE o algun otro

es que depende de cual uses es si se puede pintar las lineas o no

[Miguel Rivera]

Amigo:

Uso Solo LISTBOX que viene con Fw22 que se enuentra en FW22\samples\gallery\onemany
uso este por el FILTER (SELECT)


El codigo es :

REDEFINE LISTBOX oBrw ;
FIELDS DToC( Facturas->Fecha ), Facturas->Concepto ;
HEADERS "Fecha", "Concepto" ;
ID ID_BROWSE OF oDlg ;
ALIAS "Facturas" ;
SELECT Facturas->Codigo FOR Clientes->Codigo ;
UPDATE

Ojala me puedas orientar,

Miguel

amigo dime:

que usas para los browse

Usas LISTBOX nativo de FIVEWIN

o TSBROWSE o algun otro

es que depende de cual uses es si se puede pintar las lineas o no

[A&C]

Hay una instruccion para LISTBOX pero no la he ocupado nunca en realidad yo utilizo TSBROWSE parecido a LISTBOX

oBrow:Setcolor(nClrfore,nClrBack)

Fondo y Letras

explicame q quieres hacer especificamente al BROWSE con relacion los colores

[Miguel Rivera]

Hola:

Mira, tengo una Dbu en la cual tengo definidos los departamentos de un edificio, para lo cual tengo 3 campo que generan un indice: PROYECTO+EDIFICIO+DEPARTAMENTO, como vez tengo que hacer un FILTRO, para que solo me muestre los departamentos que corresponden al edificio, previamente seleecionado.

El color del LISTBOX, solo me aparece el registro en azul, necesito cambiar en color base por otro a definir, y si puedo, me gustaria que los departamentos vendidos aparezcan con color rojo y los disponibles con color verde, dentro del mismo LISTBOX.

Uso Clipper 5.2e, Fivewin 2.2 y Blinker 5.1

EL codogo es el siguiente:
Llamado desde Bitmap, para buscar Dpto.
Redefine BitMap Id 25 Adjust Resource "BUSCA2" Of oDlgEdit Cursor oCurDedo On Click (Bus_dep(),oCod_dep1:Refresh())


Function Bus_dep()
Local oDlg, oBot1, oBot2, oLbx1, oCurDedo
Sele oDbdep
DbSetorder(2)
Seek Cod_pro1+Cod_edi1


Define Dialog oDlg ResName "BrowseSoloMuestra" Title "Departamentos"
REDEFINE LISTBOX oBrw ;
FIELDS oDbdep->Cod_dep , subs(Oridep->Det_ori,1,15) ,str(oDbdep->cos_dep),str(oDbdep->Can_dor),str(oDbdep->Can_ban);
HEADERS "Código", "Orientación" , "Costo Dpto.", "Dormi","Baños";
ID 100 OF oDlg ;
FIELDSIZES 50, 100, 80, 40,40;
ALIAS "oDbdep" ;
SELECT oDbdep->Cod_pro+oDbdep->Cod_edi FOR Cod_pro1+Cod_edi1 ;
UPDATE;
On DblClick ( Busca_dep2(),oDlg:End() )

Redefine BitMap Id 201 Adjust Resource "BotonOk" Of oDlg Cursor oCurDedo;
On Click (Busca_dep2(),oDlg:End())
Redefine BitMap Id 202 Adjust Resource "BotonCancela" Of oDlg Cursor oCurDedo;
On Click (Edi:=.f.,oDlg:End())

ACTIVATE DIALOG oDlg CENTERED
Return (Cod_dep1:=oDbdep->Cod_dep)

Function Busca_Dep2()
Sele oDbde
edi:=.t.
cod_dep1:=oDbdep->cod_dep
Return (Cod_dep1)

***
Estoy super complicado,
Desde ya muchas gracias por tu atención

Miguel Rivera

Hay una instruccion para LISTBOX pero no la he ocupado nunca en realidad yo utilizo TSBROWSE parecido a LISTBOX

oBrow:Setcolor(nClrfore,nClrBack)

Fondo y Letras

explicame q quieres hacer especificamente al BROWSE con relacion los colores