FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para CA-Clipper Clausula Valid en un GET simple
Posts: 17
Joined: Mon Jul 09, 2007 03:20 AM
Clausula Valid en un GET simple
Posted: Sun Aug 12, 2007 01:10 PM

Porque no trabaja la clausula valid de un Get el c贸digo es el siguiente:
local l_oGet
private p_cArti :=space(14)
private p_pDlg
DEFINE DIALOG p_oDlg RESOURCE 'DCON_PRE1'
REDEFINE GET l_oGet VAR p_cArti ID 101 OF p_oDlg PICTURE '@!@k' VALID(Chk_Pre1())
ACTIVATE DIALOG p_oDlg CENTER
Close Databases
Return Nil

Static Function Chk_Pre1()
? '1'
Return(.t.)

Guillermo Guevara C.
Clp5.2e FW2.3b Blk3.3

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Clausula Valid en un GET simple
Posted: Mon Aug 13, 2007 09:00 AM

Guillermo,

Necesitas tener un control m谩s en el di谩logo para que se produzca p茅rdida de foco hacia ese otro control

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 17
Joined: Mon Jul 09, 2007 03:20 AM
Gracias Antonio
Posted: Mon Aug 13, 2007 02:39 PM

Disculpa mi ignorancia.

Ok de acuerdo con tu recomendaci贸n, entonces voy a programar un di谩logo definiendo controles que no ucupo, 驴es una limitante de FW 贸 que sucede?, en nuestro viejo Clipper no teniamos estas limit谩ntes.

Ejemplo espec铆fico de este caso, estoy tratando de construir un verificador de precios para que el usuario utilice un scanner (Lector de c贸digo de barras) lea el GET (unico control en este di谩logo) y a trav茅s de la clausula VALID con otro di谩logo despliegue el precio de venta por unos segundos y que regrese al GET original listo para otra lectura.

Guillermo Guevara C.

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Clausula Valid en un GET simple
Posted: Mon Aug 13, 2007 03:32 PM

Guillermo:

No, no hay esa limitante, prueba cambiando la l铆nea as铆:

REDEFINE GET l_oGet VAR p_cArti ID 101 OF p_oDlg PICTURE '@!@k' VALID Chk_Pre1()

Salaudos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Clausula Valid en un GET simple
Posted: Mon Aug 13, 2007 04:57 PM

Guillermo,

Usa un GET y un bot贸n "Aceptar"

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 17
Joined: Mon Jul 09, 2007 03:20 AM
Gracias Armando y Antonio Linares
Posted: Tue Aug 14, 2007 03:22 PM

Armando:

Tu sugerencia es que quite un par de parentesis de la clausula VALID, ya lo hice, pero no funcion贸, sigue igual, el programa est谩 atascado en el GET.

Antonio:

Imaginate en una tienda un verificador de precios donde comunmente, el cliente solo acerca el producto al lector de c贸digo de barras y en la pantalla se muestra el precio del art铆culo.

Con tu sugerencia de definir un bot贸n, imaginate tendr铆a que ponerle un rat贸n con un "Mousepad" o un teclado con una base (Mesa 贸 algo as铆) lo cual resultar铆a, totalmente inoperante.

Posiblemente estoy buscando la soluci贸n al problema incorrectamente, si algui茅n en el foro tiene alguna idea para solucionar est谩 cosa tan simple por favor transmitanmela.

Realmente este tipo de problemas son los que me han detenido en la decisi贸n de comprar las herramientas requeridas para cambiar definitivamente a este ambiente.

Saludos

Guillermo

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Clausula Valid en un GET simple
Posted: Tue Aug 14, 2007 04:09 PM

Guillermo:

Podr铆as especificar un poco m谩s cual es el problema ?, cuando dices se queda atascado significa que no ves el resultado del c贸digo ?:

? '1'

Si entiendo bien, la soluci贸n es que utilices un SAY en el mismo dialogo, despues del GET, para mostrar el precio de venta, as铆 no tendr铆as que obligar al usuario a usar ningun bot贸n.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 17
Joined: Mon Jul 09, 2007 03:20 AM
Gracias Armando
Posted: Wed Aug 15, 2007 04:15 PM

Efectivamente lo que requiero es que se muestre el
? '1'
Que es la prueba de que funcion贸 la clausula VALID en el GET

Ya hab铆a comprobado que poniendo el SAY en mismo control se hace la perdida de foco que me indicaba Antonio.

Sin embargo estoy intrigado porque algo que funciona tan bi茅n en nuestro viejo Clipper no puede funcionar en FW, cuando menos hasta ahora.

Agradezco tus atenciones

Guillermo

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Clausula Valid en un GET simple
Posted: Wed Aug 15, 2007 05:02 PM

Guillermo,

>
Sin embargo estoy intrigado porque algo que funciona tan bi茅n en nuestro viejo Clipper no puede funcionar en FW, cuando menos hasta ahora.
>

Windows es un entorno muy distinto en su funcionamiento al antiguo MsDos.

FiveWin intenta en la medida de lo posible proporcionar comportamientos muy similares, pero en ocasiones hay que seguir las reglas que impone Windows

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 17
Joined: Mon Jul 09, 2007 03:20 AM
Antonio
Posted: Thu Aug 16, 2007 02:06 PM

Muchas Gracias por todos los consejos y tu apoyo, estoy de acuerdo hay que cambiar la forma estructurada de pensar, a pensar en funci贸n de la programaci贸n orientada a objetos.

Lo considerar茅 para mi verificador de precios

Guillermo

Posts: 114
Joined: Fri Nov 24, 2006 09:03 PM
Clausula Valid en un GET simple
Posted: Thu Sep 20, 2007 04:57 PM
La solucion es simple pon otro Get pero que su variable sea vacio



local l_oGet ,xClav:=''
private p_cArti :=space(14)
private p_pDlg
DEFINE DIALOG p_oDlg RESOURCE 'DCON_PRE1'
REDEFINE GET l_oGet VAR p_cArti ID 101 OF p_oDlg PICTURE '@!@k' VALID(Chk_Pre1())

@ 02,08 Get xClav Size 1,1

ACTIVATE DIALOG p_oDlg CENTER
Close Databases
Return Nil

Static Function Chk_Pre1()
? '1'
Return(.t.)
Posts: 364
Joined: Tue Oct 25, 2005 07:06 PM
Clausula Valid en un GET simple
Posted: Tue Sep 25, 2007 12:58 PM

YO HE HECHO ESO CON CODIGO DE BARRAS Y SOLO PONGO UN BOTON "SALIR", NO ES PARA QUE EL USUARIO LE DE CON UN MOUSE SALIR SINO COMO DICE ANTONIO PARA QUE HAYA AL MENOS 2 CONTROLES, SI TE DA PIEDRA PONERLO PONLO HIDE Y YA

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217

Continue the discussion