Clipper/FiveWin - Cursor no se posiciona en tercer get

 
Vista:

Cursor no se posiciona en tercer get

Publicado por Julio Baez (1 intervención) el 27/09/2009 03:07:15
Hola,

Estoy compilando un programa en FIVEWIN 8.6 PARA XHARBOUR, poseo una ventana hecha con @ fila, columna y los GETS de la misma forma. El asunto es cuando leo el primer campo EMPRESA y pasa al NOMBRE se posiciona el cursor bien, pero cuando pulso ENTER para pasar al campo DIRECCION se pierde el cursor y por mas que pulso ENTER no cae, tengo que posicionarlo con el mouse. Aqui les muestro un ejemplo:

DEFINE WINDOW dialom3 MDICHILD FROM 4,16 TO 19.5, 73 TITLE "EMPRESAS DE PRESTAMOS" color("n/w") NOZOOM


@ 3.5, 2 say "EMPRESA " of dialom3 font ofont1m3
@ 4 ,10 get oget1m3 var codm3 pict "@!" of dialom3 SIZE 35, 18 font ofont1m3

@48,130 DBUTTON VALIM3 PROMPT " " FILE "&bcx\CHECK.BCX" adjust SIZE 30,30 GLIP POS 1 action buscod(dialom3, ofont1m3) tooltip oemtoansi("Validar")

@48,180 DBUTTON BUSM3 PROMPT " " FILE "&bcx\BUS.BCX" ADJUST SIZE 30,30 GLIP POS 1 ACTION (seekemp(),oget1m3:setfocus()) tooltip "Buscar Empresass Registradas"

@ 6.3, 2 SAY "NOMBRE " OF dialom3 font ofont1m3
@ 7, 10 GET oget2m3 var nombm3 OF dialom3 SIZE 150, 18 pict "@!" font ofont1m3

@ 8.0, 2 SAY "DIRECCION " OF dialom3 font ofont1m3
@ 9, 10 GET oget3m3 var dirm3 OF dialom3 SIZE 150, 18 pict "@!" font ofont1m3

@ 6.3, 46 say "FECHA " of dialom3 font ofont1m3
@ 7.2, 42 get oget4m3 var fechm3 OF dialom3 SIZE 80, 18 font ofont1m3

@160,15 DBUTTON SALVM3 PROMPT oemtoansi("&Salvar") FILE "&bcx\DBtn5.BCX" action grabemp(dialom3,ofont1m3) SIZE 85, 39 GLIP POS 3 tooltip oemtoansi("Grabar Informaci¢n en Disco Duro")

@160,130 DBUTTON CANCM3 PROMPT oemtoansi("&Cancelar") FILE "&bcx\DBCAN.BCX" action canemp(dialom3,ofont1m3) SIZE 85, 39 GLIP POS 3 tooltip oemtoansi("Cancelar el £ltimo cambio realizado")

@160,240 DBUTTON BORRM3 PROMPT oemtoansi("&Borrar") FILE "&bcx\del.BCX" action delemp(dialom3,ofont1m3) SIZE 85, 39 GLIP POS 3 tooltip oemtoansi("Borrar Empresa")

@160,350 DBUTTON SALIM3 PROMPT oemtoansi("S&alir") FILE "&bcx\exit.BCX" action (salirm3(entram3),dialom3:End()) SIZE 85, 39 GLIP POS 3 tooltip oemtoansi("Finalizar la Aplicaci¢n")

@10,265 DBUTTON ANTEM3 PROMPT oemtoansi("&Anterior") FILE "&bcx\ante.BCX" adjust SIZE 87,30 action aemp() GLIP POS 3 tooltip oemtoansi("Registro Anterior")

@10,361 DBUTTON SIGUEM3 PROMPT oemtoansi("&Pr¢ximo") FILE "&bcx\sigui.BCX" adjust SIZE 87,30 action semp() GLIP POS 3 tooltip oemtoansi("Registro Pr¢ximo")

oget1m3:setfocus()

ACTIVATE window dialom3 VALID VENTA("MAN3")


GRACIAS DE ANTEMANO SI ALGUIEN PUEDE AYUDARME
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder