FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour FiveDBU con Dialogos
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
FiveDBU con Dialogos
Posted: Wed Jan 03, 2018 01:02 AM

Saludos

Revisando el programa FiveDBU me gustaria saber si es posible una version que en lugar de Agregar / Editar registros directamente en el browse, por que no presentarlo en una Ventana de Dialogo para asi conocer como manejar de mejor manera los Gets y otros objetos de edicion

Gracias de antemano

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveDBU con Dialogos
Posted: Wed Jan 03, 2018 06:11 AM
En el código fuente de FiveDBU cambia esta línea:

oBrw:bLDblClick = { || ( oBrw:cAlias )->( Edit() ) }

así:

oBrw:bLDblClick = { || oBrw:EditSource() }

y ya lo tienes :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveDBU con Dialogos
Posted: Wed Jan 03, 2018 06:13 AM

Para añadir un nuevo registro y editarlo:

oBrw:bLDblClick = { || oBrw:EditSource( .T. ) }

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: FiveDBU con Dialogos
Posted: Wed Jan 03, 2018 01:09 PM
Antonio Linares wrote:En el código fuente de FiveDBU cambia esta línea:

oBrw:bLDblClick = { || ( oBrw:cAlias )->( Edit() ) }

así:

oBrw:bLDblClick = { || oBrw:EditSource() }

y ya lo tienes :-)



Maestro muchas gracias.

Y en el caso de dialogos donde no desee presentar todo los campos sino 3 o 4 ? Aun se puede personalizar?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveDBU con Dialogos
Posted: Thu Jan 04, 2018 09:29 AM

> Y en el caso de dialogos donde no desee presentar todo los campos sino 3 o 4 ? Aun se puede personalizar?

Si:

METHOD EditSource( lNew, cFieldList, lNavigate )

Por ejemplo:

oBrw:bLDblClick = { || oBrw:EditSource( .F., "FIRST,LAST,STREET" ) }

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion