Browse Consulta

Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

Post by Miguel Rivera »

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

Disculpa,

Miguel
A&C wrote: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
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

Post by Miguel Rivera »

Como te han llegado?

Miguel

A&C wrote: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
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

Post by Miguel Rivera »

Bueno Amigo:

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

Nos vemos,

Miguel

A&C wrote:Estimado me llego la DBF, DLL pero enviaste los OBJ no los PRG
podrias mandarme los archivos fuente porfi

para ve el codigo

Gracias
User avatar
A&C
Posts: 214
Joined: Sat Aug 19, 2006 1:37 pm
Location: Chile

Post by A&C »

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

muchas GRACIAS
Mi segundo amor es Programar
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

Post by 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
A&C wrote:Estimado me llego la DBF, DLL pero enviaste los OBJ no los PRG
podrias mandarme los archivos fuente porfi

para ve el codigo

Gracias
User avatar
A&C
Posts: 214
Joined: Sat Aug 19, 2006 1:37 pm
Location: Chile

Post by 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
Mi segundo amor es Programar
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

Post by 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

A&C wrote: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
User avatar
A&C
Posts: 214
Joined: Sat Aug 19, 2006 1:37 pm
Location: Chile

Post by 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
Mi segundo amor es Programar
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 pm

Post by 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
A&C wrote: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
Post Reply