Ayuda para Validar un Boton

Ayuda para Validar un Boton

Postby remtec » Tue Nov 19, 2019 4:10 pm

Amigos

Muy buen dia.

Estoy con problemas y no doy con la logica, Tengo un Boton BTNBMP, en el cual debo enviar a 2 funciones:

1. Validar que todos los datos se encuentren ingresado y validados, devuelve .T. o (.F. Y El mensaje del Error) " Graba_Hora()"
2. Cuando esta Function retorne .T., entonces debo mandar a Generar Agenda. "Calcula_Dias()"
3. Calcula_Dias(), Solo se debe ejecutar si Graba_Hora() es .T.

Muchos Saludos.
Antonio

El Codigo del Boton:
Code: Select all  Expand view  RUN

    @ 290,50 BTNBMP  SIZE 55,50 PROMPT "AGENDA" OF oDlg2 PIXEL 2007 Resource "#8032" FONT oFont1 ;
                    ToolTip "VALIDA AGENDA" ;
                    ACTION IF(!Graba_Hora(Cod_Dia1,Hor_Ini1,Hor_Fin1,Frecu1,Can_Pac1),(MsgInfo( Mensa ),.F.),(Calcula_Dias(),oDlg2:Refresh()))

 
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 719
Joined: Fri May 12, 2017 2:50 pm

Re: Ayuda para Validar un Boton

Postby cnavarro » Tue Nov 19, 2019 8:17 pm

Cualquiera de las dos opciones del IF debe devolver un valor lógico, veo que la primera devuelve .F., pero la segunda no, quizás asi funcione
Code: Select all  Expand view  RUN

(Calcula_Dias(),oDlg2:Refresh(), .T. )
 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Ayuda para Validar un Boton

Postby remtec » Tue Nov 19, 2019 9:31 pm

Hola Cristobal

Como siempre atento y dispuesto a ayudar.

Funciono Perfecto.

Muchas gracias.
Antonio
FWH 22.10 - HARBOUR - PELLES C
remtec
 
Posts: 719
Joined: Fri May 12, 2017 2:50 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: JoseAlvarez and 52 guests