Problemas con VALID EN EL GET
Posted: Sat Sep 12, 2009 5:58 pm
Hola a todos
A ver si me podeis ayudar a resolver una pega que me da el GET con la opcion VALID, que aunque devuelve .F. , pasa al GET siguiente.
El programa es de una captura de datos con varios GET, que utilizan la cláusula VALID con una función, a la que se las pasa varios parámetros, que comprueba si el código introducido existe en una base de datos. Este programa es llamado desde un menú.
La función esta devolviendo .F. (falso), pero pasa al siguiente GET, no ocurre como en CLIPPER, que no dejaba pasar al siguiente GET.
He probado poniendo antes del VALID
WHEN .F. // He verificado que la función a la que es llamada por el GET devuelve .F.
WHEN QEXI=1 // seria una variable que devuelve la función a la que es llamada por el GET
LA PARTE DE LA RUTINA DE LOS GET, ES LA SIGUIENTE:
func PROALBANCO()
local oBCO, WOK:= .F., QOK:= 0, oGET1, oGET2, oGET3,oGET4,oGET5,oBTO1, oBTO2, oBTO3, oBTO5
LOCAL QEMPRE,QBANCO,WNBCO15,WNBCO30
STORE 0 TO QEMPRE,QBANCO
STORE SPACE(3) TO WBANCO
STORE SPACE(4) TO WEMPRE
WNBCO15=SPACE(15); WNBCO30=SPACE(30)
KR=FABD("R","EMP","BANCOS","BANCO","S000TXX"); IF KR=0; RETURN; ENDIF // llama a función para abrir base de datos
DEFINE DIALOG oBCO FROM 1, 1 TO 41,140 TITLE "A L T A D E B A N C O S D E E M P R E S A S"
@ 01,30 SAY "ALTA-BAJA-MODIF. (A/B/M)"
@ 01,45 GET oGET1 VAR WOPCION OF oBCO UPDATE VALID WOPCION$ "ABM" PICTURE "!" SIZE 10,12
@ 02,30 SAY "CODIGO DE EMPRESA" SIZE 88,12 COLOR "W/B"
@ 02,45 GET oGET2 VAR QEMPRE OF oBCO UPDATE PICTURE "9999" SIZE 20,12 RIGHT VALID FPETENTI1("EMPRE",QEMPRE, ; 3.5,132,4,1,"EMPRE","WEMPRE",0)
@ 03,30 SAY "CODIGO DE BANCO" SIZE 88,12 COLOR "GR+/G"
@ 03,45 GET oGET3 VAR QBANCO OF oBCO UPDATE PICTURE "999" SIZE 18,12 RIGHT VALID FPETENTI1("BANCO",QBANCO, ; 5.5,132,3,1,"BANCO","WNUMAL",4)
@ 04,30 SAY "NOMBRE DE BANCO EN 15" COLOR "W/R+"
@ 04,45 GET oGET4 VAR WNBCO15 OF oBCO UPDATE VALID !Empty(WNBCO15) PICTURE "@!!!!!!!!!!!!!!!" SIZE 60,12
@ 05,30 SAY "NOMBRE DE BANCO EN 30" COLOR "R/W+"
@ 05,45 GET oGET5 VAR WNBCO30 OF oBCO UPDATE VALID !Empty(WNBCO30) PICTURE "@!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" SIZE 100,12
@ 07,30 BUTTON oBTO1 PROMPT "Correcto" OF oBCO ACTION ( oBTO1:oJump:= oGet2, oGet2:SetFocus(),;
GRAREBANCO(WOPCION,WEMPRE,WNUMAL,WNBCO15,WNBCO30), QOK=1)
@ 07,45 BUTTON oBTO2 PROMPT "Modificar la OPCION" OF oBCO ACTION (oBTO2:oJump:= oGet1, oGet1:SetFocus(),QOK=2)
@ 07,70 BUTTON oBTO3 PROMPT "Salir de Bancos" OF oBCO UPDATE ACTION ( QOk := 99, oBCO:End() ) CANCEL
ACTIVATE DIALOG oBCO CENTERED
RETURN NIL
He probado poniendo antes del VALID
WHEN .F. // He verificado que la función a la que es llamada por el GET devuelve .F.
WHEN QEXI=1 // seria una variable que devuelve la función a la que es llamada por el GET
El problema le tengo en el 2º y 3º GET, cuando lo envio con el VALID a la funcion.
Gracias por lo que podais decirme.
A ver si me podeis ayudar a resolver una pega que me da el GET con la opcion VALID, que aunque devuelve .F. , pasa al GET siguiente.
El programa es de una captura de datos con varios GET, que utilizan la cláusula VALID con una función, a la que se las pasa varios parámetros, que comprueba si el código introducido existe en una base de datos. Este programa es llamado desde un menú.
La función esta devolviendo .F. (falso), pero pasa al siguiente GET, no ocurre como en CLIPPER, que no dejaba pasar al siguiente GET.
He probado poniendo antes del VALID
WHEN .F. // He verificado que la función a la que es llamada por el GET devuelve .F.
WHEN QEXI=1 // seria una variable que devuelve la función a la que es llamada por el GET
LA PARTE DE LA RUTINA DE LOS GET, ES LA SIGUIENTE:
func PROALBANCO()
local oBCO, WOK:= .F., QOK:= 0, oGET1, oGET2, oGET3,oGET4,oGET5,oBTO1, oBTO2, oBTO3, oBTO5
LOCAL QEMPRE,QBANCO,WNBCO15,WNBCO30
STORE 0 TO QEMPRE,QBANCO
STORE SPACE(3) TO WBANCO
STORE SPACE(4) TO WEMPRE
WNBCO15=SPACE(15); WNBCO30=SPACE(30)
KR=FABD("R","EMP","BANCOS","BANCO","S000TXX"); IF KR=0; RETURN; ENDIF // llama a función para abrir base de datos
DEFINE DIALOG oBCO FROM 1, 1 TO 41,140 TITLE "A L T A D E B A N C O S D E E M P R E S A S"
@ 01,30 SAY "ALTA-BAJA-MODIF. (A/B/M)"
@ 01,45 GET oGET1 VAR WOPCION OF oBCO UPDATE VALID WOPCION$ "ABM" PICTURE "!" SIZE 10,12
@ 02,30 SAY "CODIGO DE EMPRESA" SIZE 88,12 COLOR "W/B"
@ 02,45 GET oGET2 VAR QEMPRE OF oBCO UPDATE PICTURE "9999" SIZE 20,12 RIGHT VALID FPETENTI1("EMPRE",QEMPRE, ; 3.5,132,4,1,"EMPRE","WEMPRE",0)
@ 03,30 SAY "CODIGO DE BANCO" SIZE 88,12 COLOR "GR+/G"
@ 03,45 GET oGET3 VAR QBANCO OF oBCO UPDATE PICTURE "999" SIZE 18,12 RIGHT VALID FPETENTI1("BANCO",QBANCO, ; 5.5,132,3,1,"BANCO","WNUMAL",4)
@ 04,30 SAY "NOMBRE DE BANCO EN 15" COLOR "W/R+"
@ 04,45 GET oGET4 VAR WNBCO15 OF oBCO UPDATE VALID !Empty(WNBCO15) PICTURE "@!!!!!!!!!!!!!!!" SIZE 60,12
@ 05,30 SAY "NOMBRE DE BANCO EN 30" COLOR "R/W+"
@ 05,45 GET oGET5 VAR WNBCO30 OF oBCO UPDATE VALID !Empty(WNBCO30) PICTURE "@!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" SIZE 100,12
@ 07,30 BUTTON oBTO1 PROMPT "Correcto" OF oBCO ACTION ( oBTO1:oJump:= oGet2, oGet2:SetFocus(),;
GRAREBANCO(WOPCION,WEMPRE,WNUMAL,WNBCO15,WNBCO30), QOK=1)
@ 07,45 BUTTON oBTO2 PROMPT "Modificar la OPCION" OF oBCO ACTION (oBTO2:oJump:= oGet1, oGet1:SetFocus(),QOK=2)
@ 07,70 BUTTON oBTO3 PROMPT "Salir de Bancos" OF oBCO UPDATE ACTION ( QOk := 99, oBCO:End() ) CANCEL
ACTIVATE DIALOG oBCO CENTERED
RETURN NIL
He probado poniendo antes del VALID
WHEN .F. // He verificado que la función a la que es llamada por el GET devuelve .F.
WHEN QEXI=1 // seria una variable que devuelve la función a la que es llamada por el GET
El problema le tengo en el 2º y 3º GET, cuando lo envio con el VALID a la funcion.
Gracias por lo que podais decirme.