FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour GET Y TECLA F1
Maggiro
Posts: 85
Joined: Thu Oct 14, 2010 03:26 AM
GET Y TECLA F1
Posted: Thu Jul 09, 2015 04:05 PM
Buenos dias Amigos del Foro:

En el siguiente c贸digo:

Code (fw): Select all Collapse
#include 'fivewin.ch'

FUNCTION Prueba()
聽 聽LOCAL DiSale,GeSale,din
聽 聽din=SPAC(11)
聽 聽DEFINE DIALOG DiSale FROM 1,1 TO 20,50 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 TITLE 'Probando F1 Help para GET'
聽 聽 聽 @ 1,1 GET GeSale VAR din OF DiSale PICTURE '99999999999'
聽 聽 聽 @ 2,1 BUTTON 'ACEPTAR' OF DiSale ACTION DiSale:End()
聽 聽ACTIVATE DIALOG DiSale
RETU nil


1) Si tengo el foco en el GET y pulso F1 no hay respuesta.
2) Si tengo el foco en el BUTTON o en cualquier parte del dialogo que no sea el GET
y pulso F1 me aparece la frase "No Help file available"

La pregunta:
Puede el GET comportarse igual que cualquier otra parte del dialogo?
Puede el Get tambi茅n responder "No Help file available" cuando se pulsa F1 en su foco?

Agradecido por vuestras respuestas
Julio C茅sar G贸mez Cort茅z
Godryc Experiencias
Lima Per煤
FWH 6.12 en Evaluaci贸n
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: GET Y TECLA F1
Posted: Fri Jul 10, 2015 11:28 AM
Julio,

En la versi贸n actual de FWH 15.05 al pulsar F1 sobre el GET el mensaje tambi茅n aparece correctamente.

Para la versi贸n 6.12 que estais evaluando prueba asi:

Code (fw): Select all Collapse
#include 'fivewin.ch'

FUNCTION Prueba()
   LOCAL DiSale,GeSale,din
   din=SPAC(11)
   DEFINE DIALOG DiSale FROM 1,1 TO 20,50 ;
                                    TITLE 'Probando F1 Help para GET'
      @ 1,1 GET GeSale VAR din OF DiSale PICTURE '99999999999'
      
      GeSale:bKeyDown = { | nKey | If( nKey == 112, GeSale:Help(),) }
            
      @ 2,1 BUTTON 'ACEPTAR' OF DiSale ACTION DiSale:End()
   ACTIVATE DIALOG DiSale
RETU nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
Maggiro
Posts: 85
Joined: Thu Oct 14, 2010 03:26 AM
Re: GET Y TECLA F1
Posted: Sat Jul 11, 2015 04:05 PM

Buenos dias Sr. Antonio:

El keydown del GET solo reconoce teclas del F2 al F9 y del F11 al F12
No reconoce la pulsacion de F1 y F10
Otra sugerencia puede haber??
Muchas Gracias por su respuesta

Julio C茅sar G贸mez Cort茅z
Godryc Experiencias
Lima Per煤
FWH 6.12 en Evaluaci贸n

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: GET Y TECLA F1
Posted: Sat Jul 11, 2015 04:09 PM

Julio,

Desfortunadamente la versi贸n 6.12 de FWH no ofrece esa posibilidad.

La versi贸n actual si lo ofrece. Si quieres puedo enviarte tu prg construido con FWH 15.05 para que lo pruebes.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Maggiro
Posts: 85
Joined: Thu Oct 14, 2010 03:26 AM
Re: GET Y TECLA F1
Posted: Mon Jul 13, 2015 02:24 AM

Sr. Antonio:
Gracias por responder, de momento no lo necesito, solo buscaba la posibilidad de enlazar
tablas para ser invocadas al pulso de F1 en determinados GETS con entrada por algun tipo
de codigo. Seguir茅 explorando otras caracter铆sticas en su producto que me permitan definir
un estilo de programaci贸n agil y muy predecible para que el usuario se adapte r谩pido y de
forma que el sistema no le pregunte nada o casi nada en los procesos, sin贸 lo guie de forma
autocontenida en su tarea ...
De nuevo, Gracias !!!

Julio C茅sar G贸mez Cort茅z
Godryc Experiencias
Lima Per煤
FWH 6.12 en evaluaci贸n

Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: GET Y TECLA F1
Posted: Mon Jul 13, 2015 03:26 PM

Julio C茅sar:

Dale una mirada a la clase BTNGET, esa te permite salir a mostrar otra
DBF desde el get.

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
Maggiro
Posts: 85
Joined: Thu Oct 14, 2010 03:26 AM
Re: GET Y TECLA F1
Posted: Tue Jul 14, 2015 04:48 PM

Buenos Dias Armando:
Estuve mirando el BtnGet, un c贸digo bastante interesante ...
Por curiosidad, intent茅 compilar el ejemplo contenido TEST.PRG ...
y me di贸 por respuesta, que el programa necesita enlazar
unas librerias y archivos cabecera de CANALFIVE que no poseo ...
Luego me puse a indagar por la red ...
ni rastros de los enlace rapidshare (pagina eliminada) ...
A CanalFive se lo trag贸 la tierra ...

Sabes qu茅 pas贸 con 茅sas utilidades y donde se encuentran ahora?

Muchas Gracias por su Repuesta !!

Julio C茅sar G贸mez Cort茅z
Godryc Experiencias
Lima Per煤
FWH 6.12 en evaluaci贸n

Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: GET Y TECLA F1
Posted: Tue Jul 14, 2015 05:20 PM
Julio C茅sar:

Hasta donde yo se, la clase BTNGET es nativa de FW, desconozco si la versi贸n que tienes
ya la incluye.

Te pongo un ejemplo de c贸mo la uso

Code (fw): Select all Collapse
聽 聽 聽 聽 REDEFINE BTNGET aGets[ 5] VAR cAOrign ID 104 OF oDlg;
聽 聽 聽 聽 聽 聽 PICTURE "@!K";
聽 聽 聽 聽 聽 聽 RESOURCE "Buscar" UPDATE;
聽 聽 聽 聽 聽 聽 ACTION (cAOrign := BrwCiu(oDlg,aGets),oDlg:UPDATE());
聽 聽 聽 聽 聽 聽 MESSAGE "Ciudad or铆gen del viaje"


En la clausula RESOURCE se define el nombre del BMP con la imagen que aparecer谩
sobre el bot贸n.

En la clausula ACTION estoy definiendo ir a la funci贸n BrwCiu() donde muestro en otra
ventana el cat谩logo de ciudades desde donde el usuario elije la ciudad y la funci贸n regresa
la clave de la ciudad elegida que se almacena en la variable cAOrign

La clase BTNGET tambi茅n permite teclear la clave si es que el usuario se la sabe de memoria
y no tiene que ir a mostrar el cat谩logo de todas las ciudades posibles.

A ver si Antonio nos ilustra para saber si tu versi贸n de FW tiene la clase o tal vez es uno de
los muchos motivos para actualizar tu FW.

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
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: GET Y TECLA F1
Posted: Tue Jul 14, 2015 06:01 PM
Maggiro wrote:Buenos dias Amigos del Foro:

En el siguiente c贸digo:

Code (fw): Select all Collapse
#include 'fivewin.ch'

FUNCTION Prueba()
聽 聽LOCAL DiSale,GeSale,din
聽 聽din=SPAC(11)
聽 聽DEFINE DIALOG DiSale FROM 1,1 TO 20,50 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 TITLE 'Probando F1 Help para GET'
聽 聽 聽 @ 1,1 GET GeSale VAR din OF DiSale PICTURE '99999999999'
聽 聽 聽 @ 2,1 BUTTON 'ACEPTAR' OF DiSale ACTION DiSale:End()
聽 聽ACTIVATE DIALOG DiSale
RETU nil


1) Si tengo el foco en el GET y pulso F1 no hay respuesta.
2) Si tengo el foco en el BUTTON o en cualquier parte del dialogo que no sea el GET
y pulso F1 me aparece la frase "No Help file available"

La pregunta:
Puede el GET comportarse igual que cualquier otra parte del dialogo?
Puede el Get tambi茅n responder "No Help file available" cuando se pulsa F1 en su foco?

Agradecido por vuestras respuestas
Julio C茅sar G贸mez Cort茅z
Godryc Experiencias
Lima Per煤
FWH 6.12 en Evaluaci贸n


Hola buenas tardes Julio Cesar,intenta de esta manera, con el codigo y funciona en cada get que le asignes cada instruccion,te pongo el ejemplo es nativo de FW:

Code (fw): Select all Collapse
REDEFINE GET oG_C[03]  VAR cConcept1          ID 104 OF oDlg2 BITMAP "AYUDA";
                                                                    PICT "@X"    WHEN lNew VALID V_Concep(cConcept1) ACTION (ListCat(@cConcept1,S08,"cConcept1",oG_C[03]))

      oG_C[03]:bKeyDown := { |nKey| IIF( nKey == VK_F2,(oG_C[03]:Assign(),Eval( oG_C[03]:bAction )),"" ) }
      oG_C[03]:cToolTip := "Presiona F2"


Saludos cordiales .!

Atte: Adrian C. C.
acc69@hotmail.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: GET Y TECLA F1
Posted: Tue Jul 14, 2015 06:11 PM

El comando BTNGET no es de FWH.

Lo id贸neo ser铆a usar la cla煤sula ACTION del GET:

REDEFINE GET ... ACTION ...

贸

@ ..., ... GET ... ACTION ...

desafortunadamente esta capacidad no est谩 soportada en la versi贸n demo de FWH 6.12

regards, saludos

Antonio Linares
www.fivetechsoft.com
Maggiro
Posts: 85
Joined: Thu Oct 14, 2010 03:26 AM
Re: GET Y TECLA F1
Posted: Tue Jul 14, 2015 06:58 PM
Veamos:
Armando, 谩ntes de que me comentes lo del BTNGET,
Para la migraci贸n, prob茅 as铆:

Code (fw): Select all Collapse
 
 #include 'fivewin,ch'
 
 MEMVAR depacodi,depadeno,uvf
 
 STATIC DiDepa
 
 FUNCTION Main()
    LOCAL GeDepa
    depacodi=SPAC(2)
    depadeno=SPAC(15)
    DEFINE DIALOG DiDepa FROM 1,1 TO 30,70 TITLE 'Probando Get y Tablas'
       @ 1,1 GET GeDepa VAR depacodi OF DiDepa PICTURE '99' ;
                                               UPDATE ;
                                               VALID Gettabla(DiDepa)
       @ 2,1 GET GeDepa VAR depadeno OF DiDepa UPDATE READONLY
       @ 3,1 BUTTON 'Aceptar' OF DiDepa ACTION DiDepa:End()
    ACTIVATE DIALOG DiDepa CENTERED
 RETU nil
 
 FUNCTION Gettabla(DiDepa)
    uvf=.F.
    abre(13,'depa00',2,1,'00')   && abre es una funcion que abre dbfs en red
    IF depacodi=SPAC(2)
       Depa00()  && El programa contenedor de la tabla
       IF !EOF() .AND. !GETKEYSTATE(VK_ESC) .OR. !BOF() .AND. !GETKEYSTATE(VK_ESC)
          depacodi=13->dp
          depadeno=OEMTOANSI(13->depa)
          uvf=.T.
       ENDI
   ELSEIF depacodi>SPAC(2)
      depacodi=ALLTRIM(depacodi)
      IF LEN(depacodi)<2
         depacodi='0'+depacodi
      ENDI
      SEEK depacodi
      IF EOF()
         msgrun('Escriba el n煤mero de Ciudad Asociada ...','N煤mero Inv谩lido.')
         depacodi=SPAC(2)
      ELSE
         depadeno=OEMTOANSI(13->depa)
         uvf=.T.
      ENDI
   ENDI
   USE
   SELE 10
   DiDepa:UPDATE()
RETU uvf


Ahora Adrian:
Esta rutina, al pulso de ENTER sin escribir nada en el GET,
invoca la tabla para elegir.
Yo podr铆a hacer lo mismo invocando cualquier tecla de funci贸n
que capture el KEYDOWN del GET ...

Pero ...
Alguna vez han recibido un mensaje de cualquier cliente migrado
indicandoles "no molestes, deja las teclas como estaban"
eso me pasaria a mi, con los exigentes, ya los acostumbr茅 a usar el
F! para invocaci贸n de tablas.
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: GET Y TECLA F1
Posted: Tue Jul 14, 2015 07:11 PM
Maggiro wrote:Veamos:
Armando, 谩ntes de que me comentes lo del BTNGET,
Para la migraci贸n, prob茅 as铆:

Code (fw): Select all Collapse
 
聽#include 'fivewin,ch'
聽
聽MEMVAR depacodi,depadeno,uvf
聽
聽STATIC DiDepa
聽
聽FUNCTION Main()
聽 聽 LOCAL GeDepa
聽 聽 depacodi=SPAC(2)
聽 聽 depadeno=SPAC(15)
聽 聽 DEFINE DIALOG DiDepa FROM 1,1 TO 30,70 TITLE 'Probando Get y Tablas'
聽 聽 聽 聽@ 1,1 GET GeDepa VAR depacodi OF DiDepa PICTURE '99' ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽UPDATE ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽VALID Gettabla(DiDepa)
聽 聽 聽 聽@ 2,1 GET GeDepa VAR depadeno OF DiDepa UPDATE READONLY
聽 聽 聽 聽@ 3,1 BUTTON 'Aceptar' OF DiDepa ACTION DiDepa:End()
聽 聽 ACTIVATE DIALOG DiDepa CENTERED
聽RETU nil
聽
聽FUNCTION Gettabla(DiDepa)
聽 聽 uvf=.F.
聽 聽 abre(13,'depa00',2,1,'00') 聽 && abre es una funcion que abre dbfs en red
聽 聽 IF depacodi=SPAC(2)
聽 聽 聽 聽Depa00() 聽&& El programa contenedor de la tabla
聽 聽 聽 聽IF !EOF() .AND. !GETKEYSTATE(VK_ESC) .OR. !BOF() .AND. !GETKEYSTATE(VK_ESC)
聽 聽 聽 聽 聽 depacodi=13->dp
聽 聽 聽 聽 聽 depadeno=OEMTOANSI(13->depa)
聽 聽 聽 聽 聽 uvf=.T.
聽 聽 聽 聽ENDI
聽 聽ELSEIF depacodi>SPAC(2)
聽 聽 聽 depacodi=ALLTRIM(depacodi)
聽 聽 聽 IF LEN(depacodi)<2
聽 聽 聽 聽 聽depacodi='0'+depacodi
聽 聽 聽 ENDI
聽 聽 聽 SEEK depacodi
聽 聽 聽 IF EOF()
聽 聽 聽 聽 聽msgrun('Escriba el n煤mero de Ciudad Asociada ...','N煤mero Inv谩lido.')
聽 聽 聽 聽 聽depacodi=SPAC(2)
聽 聽 聽 ELSE
聽 聽 聽 聽 聽depadeno=OEMTOANSI(13->depa)
聽 聽 聽 聽 聽uvf=.T.
聽 聽 聽 ENDI
聽 聽ENDI
聽 聽USE
聽 聽SELE 10
聽 聽DiDepa:UPDATE()
RETU uvf


Ahora Adrian:
Esta rutina, al pulso de ENTER sin escribir nada en el GET,
invoca la tabla para elegir.
Yo podr铆a hacer lo mismo invocando cualquier tecla de funci贸n
que capture el KEYDOWN del GET ...

Pero ...
Alguna vez han recibido un mensaje de cualquier cliente migrado
indicandoles "no molestes, deja las teclas como estaban"
eso me pasaria a mi, con los exigentes, ya los acostumbr茅 a usar el
F! para invocaci贸n de tablas.



Hola de nuevo, puedes pulsar ENTER, sin invocar ninguna ayuda de tabla o catalogo de productos, solo presionaras F2 al cual invocaras a la tabla mencionada. Yo lo uso en cada get que tenga catalogo de productos, cuentas, proveedores, etc etc .

Al menos que valides al dar enter y te abra la tabla por eso existe la clausula ACTION que a su vez invoca a la tecla F2 .

Saludos .!
Atte: Adrian C. C.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions