FiveTech Software tech support forums

Hola Amigos:

Tengo un problema:
1. Como puedo mostrar datos por pantalla, sin que este se comporte
como un GET, me explico, cuando muestro con un SAY, el cursor se
posesiona en el primer campo mostrado, pudiendo digitar y
pasearme por los demas registros. Necesito que esto solo se
puedan ver.

2. Como puedo mostrar datos actualizados despues de modificar un
dato en pantalla, que origina que otros campos se actualicen por
medio de un calculo matematico, el resultado se debe mostrar en
forma inmediata.

Trabajo con Clipper 5.2e y FiveWin 2.2 Blinker 7.0.

En espera de una urgente ayuda, les deseo una Feliz navidad y un prospero año 2007, para todos uds. y familia.

Muchas gracias por existir.

Miguel Rivera

resp 1:- si deseas que el GET no se pueda editar,, oGet:disabled() solo lo muestra sin edicion

resp 2:- debes refrescar el Objeto q contiene la informacion .. asi

<Obj>:refresh(),, supongamos q lo que quieres q se actualice esta en un GET deberias hacer esto oGet:Refresh()

espero te sirva

Sabes que no pude aplicar lo que tu me indicastes, por lo que te envio el trozo del programa donde el " Id 30 " es el campo que solo deseo mostrar, lo demas corresponde a Get modificados.

Si me puedes ayudar, desde ya te doy las gracias,

Ha, soy de Santiago de Chile.

Saludos.

Miguel Rivera

A&C wrote:resp 1:- si deseas que el GET no se pueda editar,, oGet:disabled() solo lo muestra sin edicion

resp 2:- debes refrescar el Objeto q contiene la informacion .. asi

<Obj>:refresh(),, supongamos q lo que quieres q se actualice esta en un GET deberias hacer esto oGet:Refresh()

espero te sirva

Sabes que no pude aplicar lo que tu me indicastes, por lo que te envio el trozo del programa donde el " Id 30 " es el campo que solo deseo mostrar, lo demas corresponde a Get modificados.

Si me puedes ayudar, desde ya te doy las gracias,

Ha, soy de Santiago de Chile.

Saludos.

Miguel Rivera

*****
Define Cursor oCurDedo Resource "Dedo"
Define Dialog oDlgEdit Resname "Clientes"
Redefine Say oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture "999" Color "w+/b*"
Redefine Get oNom_cli1 Var Nom_cli1 Id 152 Of oDlgEdit Update Picture "@!" Color "w+/b*"
Redefine Get oDir_cli1 Var Dir_cli1 Id 153 Of oDlgEdit Update Picture "@!" Color "w+/b*"
Redefine ComboBox oCiu_cli1 Var nCiudad Items aNomCiudad Id 154 Of oDlgEdit Update Picture "@!" Color "w+/b*"
Redefine BitMap Id 113 Adjust Resource "Buscar1" Of oDlgEdit Cursor oCurDedo;
On Click (nCiudad := SacaCiudad(NCiudad,aNomCiudad[nCiudad],aNomCiudad),oCiu_cli1:Refresh())

A&C wrote:resp 1:- si deseas que el GET no se pueda editar,, oGet:disabled() solo lo muestra sin edicion

resp 2:- debes refrescar el Objeto q contiene la informacion .. asi

<Obj>:refresh(),, supongamos q lo que quieres q se actualice esta en un GET deberias hacer esto oGet:Refresh()

espero te sirva

No se si entendi bien el problema pero creo que ese "ID 30" lo pondria como GET y no como SAY .. y le agrego un READONLY

espero que te ayude

Lubin

Define Cursor oCurDedo Resource "Dedo"
Define Dialog oDlgEdit Resname "Clientes"
Redefine GET oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture "999" READONLY Color "w+/b*"
Redefine Get oNom_cli1 Var Nom_cli1 Id 152 Of oDlgEdit Update Picture "@!" Color "w+/b*"
Redefine Get oDir_cli1 Var Dir_cli1 Id 153 Of oDlgEdit Update Picture "@!" Color "w+/b*"
Redefine ComboBox oCiu_cli1 Var nCiudad Items aNomCiudad Id 154 Of oDlgEdit Update Picture "@!" Color "w+/b*"

estimado
segun lo que me mandaste el codigo fuente..
tu deseas refrescar el SAY existente,, pero con que informacion no esta claro eso, y con que rutina de ,, o al hacer que cosa se actualizara la informacion del SAY

DIME

Por tu codigo veo que estas usando Workshop. Para que tu cursor no se ponga en los campos de los SAY, debes editar tu recurso y desactivar el tab del ID 30 (o de los controles que desees tambien). Procura renumerar tambien el orden de aparicion de tus controles.

Creo que es la solucion sin tener que modificar nada de tu codigo.

Atentamente

Armando
Lima, Peru

Miguel Rivera wrote:Sabes que no pude aplicar lo que tu me indicastes, por lo que te envio el trozo del programa donde el " Id 30 " es el campo que solo deseo mostrar, lo demas corresponde a Get modificados.

Si me puedes ayudar, desde ya te doy las gracias,

Ha, soy de Santiago de Chile.

Saludos.

Miguel Rivera

*****
Define Cursor oCurDedo Resource "Dedo"
Define Dialog oDlgEdit Resname "Clientes"
Redefine Say oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture "999" Color "w+/b*"
Redefine Get oNom_cli1 Var Nom_cli1 Id 152 Of oDlgEdit Update Picture "@!" Color "w+/b*"
Redefine Get oDir_cli1 Var Dir_cli1 Id 153 Of oDlgEdit Update Picture "@!" Color "w+/b*"
Redefine ComboBox oCiu_cli1 Var nCiudad Items aNomCiudad Id 154 Of oDlgEdit Update Picture "@!" Color "w+/b*"
Redefine BitMap Id 113 Adjust Resource "Buscar1" Of oDlgEdit Cursor oCurDedo;
On Click (nCiudad := SacaCiudad(NCiudad,aNomCiudad[nCiudad],aNomCiudad),oCiu_cli1:Refresh())

A&C wrote:resp 1:- si deseas que el GET no se pueda editar,, oGet:disabled() solo lo muestra sin edicion

resp 2:- debes refrescar el Objeto q contiene la informacion .. asi

<Obj>:refresh(),, supongamos q lo que quieres q se actualice esta en un GET deberias hacer esto oGet:Refresh()

espero te sirva

Hola Armando:

Primero que nada, muy Feliz año 2007, que este año este lleno de exitos para ti y tus seres queridos. Te cuento que he probado lo que me has indicado y ha funcionado de maravilla.

Muchas gracias por tu atención.

Miguel Rivera.

Armando Picon wrote:Por tu codigo veo que estas usando Workshop. Para que tu cursor no se ponga en los campos de los SAY, debes editar tu recurso y desactivar el tab del ID 30 (o de los controles que desees tambien). Procura renumerar tambien el orden de aparicion de tus controles.

Creo que es la solucion sin tener que modificar nada de tu codigo.

Atentamente

Armando
Lima, Peru

Miguel Rivera wrote:Sabes que no pude aplicar lo que tu me indicastes, por lo que te envio el trozo del programa donde el " Id 30 " es el campo que solo deseo mostrar, lo demas corresponde a Get modificados.

Si me puedes ayudar, desde ya te doy las gracias,

Ha, soy de Santiago de Chile.

Saludos.

Miguel Rivera

*****
Define Cursor oCurDedo Resource "Dedo"
Define Dialog oDlgEdit Resname "Clientes"
Redefine Say oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture "999" Color "w+/b*"
Redefine Get oNom_cli1 Var Nom_cli1 Id 152 Of oDlgEdit Update Picture "@!" Color "w+/b*"
Redefine Get oDir_cli1 Var Dir_cli1 Id 153 Of oDlgEdit Update Picture "@!" Color "w+/b*"
Redefine ComboBox oCiu_cli1 Var nCiudad Items aNomCiudad Id 154 Of oDlgEdit Update Picture "@!" Color "w+/b*"
Redefine BitMap Id 113 Adjust Resource "Buscar1" Of oDlgEdit Cursor oCurDedo;
On Click (nCiudad := SacaCiudad(NCiudad,aNomCiudad[nCiudad],aNomCiudad),oCiu_cli1:Refresh())

A&C wrote:resp 1:- si deseas que el GET no se pueda editar,, oGet:disabled() solo lo muestra sin edicion

resp 2:- debes refrescar el Objeto q contiene la informacion .. asi

<Obj>:refresh(),, supongamos q lo que quieres q se actualice esta en un GET deberias hacer esto oGet:Refresh()

espero te sirva

Por nada, señor, estamos para colaborar

Armando