Consulta sobre un GET

[colthop]

Hoal Amigos:

Tengo una ventana con unos get que quiero que cada vez que coja el foco tres de ellos haga sonar un WAV, quiero que suenen el wav cuando entren en odlgh02, odlgh07 y odlgh03 la parte del codigo es :

DEFINE DIALOG Modicu6 OF oDlgw PIXEL FROM 0,0 TO 470,800 TITLE "Alta Apuntes" COLOR escri01, fondo01 STYLE nOr(WS_CAPTION)
@180, 1 SAY "Fecha" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 96, 9
@180, 41 SAY "Asiento" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 96, 9
@180, 68 SAY "Cl" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 96, 9
@180, 80 SAY "Descripción" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 96, 9
@180,236 SAY "Cuenta Debe" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 96, 9
@180,284 SAY "Importe" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 96, 9
@180,344 SAY "Cuenta Haber" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 96, 9

@190, 1 get odlgh04 VAR fech OF ModiCu6 PIXEL COLOR escri02, fondo02 SIZE 39, 9 VALID fech >= fz1 .AND. fech <= fz2
@190, 41 get odlgh05 VAR apun OF ModiCu6 PIXEL COLOR escri02, fondo02 SIZE 26, 9 PICTURE "######" RIGHT
@190, 68 get odlgh01 VAR clav OF ModiCu6 PIXEL COLOR escri02, fondo02 SIZE 11, 9 PICTURE "##" VALID mir9clav()
@190, 80 get odlgh06 VAR desc OF ModiCu6 PIXEL COLOR escri02, fondo02 SIZE 155, 9
@190,236 get odlgh02 VAR cue1 OF ModiCu6 PIXEL COLOR escri02, fondo02 SIZE 47, 9 PICTURE "###########" VALID mir1cue1(1)
@190,284 get odlgh07 VAR impo OF ModiCu6 PIXEL COLOR escri02, fondo02 SIZE 59, 9 PICTURE p1b RIGHT
@190,344 get odlgh03 Var cue2 OF ModiCu6 PIXEL COLOR escri02, fondo02 SIZE 47, 9 PICTURE "###########" VALID mir1cue1(2)

@200, 45 SAY "Desc. Clave" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 100, 9
@207.5,45 SAY "Desc. Cuenta Debe" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 100, 9
@215, 45 SAY "Desc. Cuenta Haber" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 100, 9
@225, 11 SAY "F2 Incorpora Ultimos Datos" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 100, 9
@225, 95 SAY "F3 Mayor de las Cuentas" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 100, 9
@225,179 SAY "Nº Documento" OF ModiCu6 PIXEL COLOR escri02, fondo01 SIZE 100, 9
@203,280 SAY "Total Debe" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 100, 9
@213,280 SAY "Total Haber" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 100, 9
@223,280 SAY "Descuadre" OF ModiCu6 PIXEL COLOR escri01, fondo01 SIZE 100, 9
@203,320 say odlg10 VAR totdeb OF ModiCu6 PIXEL COLOR escri03, fondo03 SIZE 60, 9 RIGHT PICTURE p1b BORDER
@213,320 say odlg11 VAR tothab OF ModiCu6 PIXEL COLOR escri03, fondo03 SIZE 60, 9 RIGHT PICTURE p1b BORDER
@223,320 say odlg12 VAR totdeb - tothab OF ModiCu6 PIXEL COLOR escri03, fondo03 SIZE 60, 9 RIGHT PICTURE p1b BORDER
@225,223 say odlgh10 VAR docum OF ModiCu6 PIXEL COLOR escri02, fondo02 SIZE 26, 9 RIGHT BORDER
@200, 1 BUTTON "Aceptar" OF ModiCu6 PIXEL ACTION cre3diar() SIZE 40, 9
@212, 1 BUTTON "Salir" OF ModiCu6 PIXEL ACTION ModiCu6:End() SIZE 40, 9
@200,105 BUTTON obot101 Prompt "Buscar" OF ModiCu6 PIXEL ACTION bu02conc() SIZE 25, 6
@207.5,105 BUTTON obot102 Prompt "Buscar" OF ModiCu6 PIXEL ACTION bu02cuen() SIZE 25, 6
@215,105 BUTTON obot103 Prompt "Buscar" OF ModiCu6 PIXEL ACTION bu03cuen() SIZE 25, 6
@ 0, 0 LISTBOX oLbx2 ;
FIELDS dtoc(fecha), str(apunte,6,0), clave, concepto, cuentad, str(importe,15,2), cuentah;
FIELDSIZES 80,55,30,300,95,120,95;
HEADERS "Fecha","Asiento", "Cl","Descripción","Cuenta Debe", "Importe", "Cuenta Haber";
SIZE 395,180;
ON LEFT DBLCLICK cre2diar();
OF Modicu6
oLbx2:aJustify:={.F.,.T.,.F.,.F.,.F.,.T.,.F.}
modicu6:bKeyDown = { | nKey | control2 ( nKey ) }
pintar99()
ACTIVATE DIALOG Modicu6 CENTER

Alguien me podria ayudar.

Gracias

Carlos

[rolando]

Carlos,

Probá poniendo, a continuación de las definiciones de los gets, lo siguiente:

odlgh02:bGotFocus = { || msgsound("TuSonido.wav") }

odlgh03:bGotFocus = { || msgsound("TuSonido.wav") }

odlgh07:bGotFocus = { || msgsound("TuSonido.wav") }

Obviamente en "TuSonido.wav" tenés que poner el nombre del archivo de sonido que querés que se ejecute cuando el get toma el foco.

Espero te sirva.

Rolando Cerella

[colthop]

Gracias ronaldo va de lujo.

[colthop]

Perdona te cambie el nombre. Rolando. Disculpas