Como detener un proceso en visual foxpro 9
Jefazo como estas, una preguntita de V.Foxpro 9
en visual basic si tengo yo un proceso y válido algo, ¿para cortar tal rutina normalmente se pone exit sub
en Visual Foxpro 9 como seria?
Tengo esta rutina para validar los datos introducidos por el usuario
el detalle es que quiero que cuando hasta ahí se detenga la ejecución del programa (no que se salga (osea NO Quit NO thisform. Release)) sino que solo se detenga para que el usuario pueda corregir en donde se equivoco, pero resulta ser el detalle de que aun y con esta validación, se continua corriendo el resto del proceso.
IF (LEN(thisform.txtfacini.Value) = 0 OR LEN(thisform.txtfacfin.Value) = 0 )
MESSAGEBOX("Faltan valores para realizar el proceso, verifique",0+16,"Aviso del Sistema")
thisform.txtfacini.Value = ""
thisform.txtfacfin.Value = ""
thisform.txtfacini.setfocus
ELSE
IF VAL(thisform.txtfacini.Value) > VAL(thisform.txtfacfin.Value)
MESSAGEBOX("El numero de Factura inical es mayor que la Final, verifique",0+16,"Aviso del Sistema")
thisform.txtfacini.Value = ""
thisform.txtfacfin.Value = ""
thisform.txtfacini.setfocus
ELSE
SELECT coun(num_fac) as cantidades FROM conse2 WHERE BETWEEN(num_fac,VAL(thisform.txtfacini.Value),VAL(thisform.txtfacfin.Value)) INTO CURSOR temporal
IF cantidades = 0 then
MESSAGEBOX("No hay facturas dentro de este rango, verifique",0+16,"Aviso del Sistema")
thisform.txtfacini.Value = ""
thisform.txtfacfin.Value = ""
thisform.txtfacini.setfocus
ENDIF
ENDIF
ENDIF
Muchas gracias por todo y espero respuesta, que tengas un excelente día y fin de semana.
en visual basic si tengo yo un proceso y válido algo, ¿para cortar tal rutina normalmente se pone exit sub
en Visual Foxpro 9 como seria?
Tengo esta rutina para validar los datos introducidos por el usuario
el detalle es que quiero que cuando hasta ahí se detenga la ejecución del programa (no que se salga (osea NO Quit NO thisform. Release)) sino que solo se detenga para que el usuario pueda corregir en donde se equivoco, pero resulta ser el detalle de que aun y con esta validación, se continua corriendo el resto del proceso.
IF (LEN(thisform.txtfacini.Value) = 0 OR LEN(thisform.txtfacfin.Value) = 0 )
MESSAGEBOX("Faltan valores para realizar el proceso, verifique",0+16,"Aviso del Sistema")
thisform.txtfacini.Value = ""
thisform.txtfacfin.Value = ""
thisform.txtfacini.setfocus
ELSE
IF VAL(thisform.txtfacini.Value) > VAL(thisform.txtfacfin.Value)
MESSAGEBOX("El numero de Factura inical es mayor que la Final, verifique",0+16,"Aviso del Sistema")
thisform.txtfacini.Value = ""
thisform.txtfacfin.Value = ""
thisform.txtfacini.setfocus
ELSE
SELECT coun(num_fac) as cantidades FROM conse2 WHERE BETWEEN(num_fac,VAL(thisform.txtfacini.Value),VAL(thisform.txtfacfin.Value)) INTO CURSOR temporal
IF cantidades = 0 then
MESSAGEBOX("No hay facturas dentro de este rango, verifique",0+16,"Aviso del Sistema")
thisform.txtfacini.Value = ""
thisform.txtfacfin.Value = ""
thisform.txtfacini.setfocus
ENDIF
ENDIF
ENDIF
Muchas gracias por todo y espero respuesta, que tengas un excelente día y fin de semana.
1 Respuesta
Respuesta de Jerry Ortiz
1