Enter no funciona como Tabstop

[mariordz]

Hola a todos, estoy experimentando un pequño problema, tengo un dialogo generado con recursos, el cual tiene varios gets y varios botones, cuando el foco esta en cualquier get y pulso enter, el foco no cambia al siguiente get, si no que intenta ejecutar la función agac() asociada al botón con el ID 29, lo que generá un error por ciertos datos faltantes, se supone que este boton no se activa hasta que se han completado ciertos datos mandatorios en mi dialogo. Alguien tiene una idea de porque es esto y como corregirlo?

Muchas gracias por su atención

Code: Select all  Expand view

     define dialog oDialcg resource "dlgctag" of oVentp1 icon "icono1"
      redefine say ID 0 prompt "Comprobación de gastos No. "+alltrim(corig)
      redefine say ID 3 prompt nomte of oDialcg
      redefine say ID 5 prompt date() of oDialcg
      redefine get Rep1 ID 7 of oDialcg picture "@R #######-#" valid iif(len(alltrim(Rep1))=8,.t.,.f.)
      redefine get Rep2 ID 8 of oDialcg picture "@R #######-#" when len(alltrim(rep1))=8
      redefine get Rep3 ID 9 of oDialcg picture "@R #######-#" when len(alltrim(rep1))=8 .and. len(alltrim(rep2))=8
      redefine get Rep4 ID 10 of oDialcg picture "@R #######-#" when len(alltrim(rep1))=8 .and. len(alltrim(rep2))=8 .and. len(alltrim(rep3))=8
      redefine get nfact ID 13 of oDialcg picture "@!" valid iif(nfact=" ",.f.,.t.) update
      redefine get mont ID 15 of oDialcg picture "$ ###,###.##" on change caliva()
      redefine get fechfa ID 17 of oDialcg update
      redefine say ID 24 prompt miva of oDialcg update
      redefine say ID 26 prompt moim of oDialcg update
      redefine combobox oCbox1 var conce items aconcepts id 19 of oDialcg style CBS_DROPDOWN on change tipgas() update
      redefine get cObse ID 28 of oDialcg picture "@!"
      redefine radio oRadio1 var vRadio1 id 21,22 of oDialcg on change caliva()
      redefine button ID 29 of oDialcg action agac() when .not. empty(nfact) .and. .not. empty(mont) .and. conce#" "
      redefine listbox oLbx1 FIELDS gastosr->nofact, dtoc(gastosr->fechaf),fCon(),str(gastosr->subtotal), str(gastosr->iva),;
                                    str(gastosr->total), str(gastosr->tua), str(gastosr->ish2), gastosr->observa;
                                    ID 31 of oDialcg alias "gastosr";
                                    headers "Factura","Fecha","Concepto","Subtotal","IVA","Total","TUA","ISH","Observaciones" update
      oLbx1:bKeyDown :={|nkey,nFlag| IF(nKey==VK_DELETE, confdel()," ")}
      redefine button ID 32 of oDialcg action (salcomp(),msgalert("La comprobación "+alltrim(corig)+" se ha salvado exitosamente","comprobación salvada"))
      redefine button ID 33 of oDialcg action (ciecomp())
      redefine button ID 34 of oDialcg action (oDialcg:end(), cieimp:="N", impcomp()) cancel
      redefine button ID 35 of odialcg action odialcg:end() cancel
      activate dialog oDialcg center
 

[Antonio Linares]

Mario,

Comprueba si en el fichero RC has usado el tipo DEFPUSHBUTTON para ese botón.

En tal caso sería un botón de acción por defecto y su acción se ejecutaria al pulsar enter.

De ser asi tendrias que cambiarlo por PUSHBUTTON en el RC

[mariordz]

Algo tan simple y llevo toda la mañana batallando con lo mismo.

Gracias Antonio