FiveDBU con Dialogos

FiveDBU con Dialogos

Postby Compuin » Wed Jan 03, 2018 1: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 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1214
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: FiveDBU con Dialogos

Postby Antonio Linares » Wed Jan 03, 2018 6: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 :-)

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42048
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: FiveDBU con Dialogos

Postby Antonio Linares » Wed Jan 03, 2018 6:13 am

Para añadir un nuevo registro y editarlo:

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42048
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: FiveDBU con Dialogos

Postby Compuin » Wed Jan 03, 2018 1: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 :-)

Image


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 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1214
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: FiveDBU con Dialogos

Postby Antonio Linares » Thu Jan 04, 2018 9: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
User avatar
Antonio Linares
Site Admin
 
Posts: 42048
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 50 guests