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
Muchas gracias por su atenci贸n
聽 聽 聽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
