La Web del Programador: Comunidad de Programadores
 
    Pregunta:  550 - REALIZAR UN GOTO EN FOXPRO PARA DOS
Autor:  Julio Garcia
Quisiera saber como puedo volver a ejecutar un determinada parte del programa. En otros lenguajes se utiliza el GOTO pero en este no se si puede y como hacerlo.
Gracias por adelantado

  Respuesta:  Jose Olortegui
Si quieres llamar a un procedimiento que esta en otro archivo .prg. Suponiendo que ese otro archivo se llame segundo.prg y dentro de este se encuentre un procedimiento valida_cero, debes escribir :

DO valida_cero IN segundo.prg

Esto llamara al procedimiento valida_cero que esta dentro del archivo segundo.prg.
Suerte y si tienes problemas escribeme.

  Respuesta:  manuel medina jimenez
Hola, esto es muy facil.

Aqui todo se hace en procedimientos(pequeños programas que al final todos forman el sistema. puede hacerlo asi:

PROCEDURE GRARDAR (guardar es el nombre del procedimento)
Aqui pone todo lo necesario para guardar
y al final escribe
RETURN

PROCEDURES SALIR
CLEAR READ (limpia los campos de lectura)
RETURN (regresa del donde fue llamado)

Nota:
de cualquier parte de tu programa puede llamar cualquier programita de estos solo escribiendo DO y luego el nombre del procedimiento.

si continua tu problema, escribeme, dime que quiere y te enviare hecho.
si desea me puede poner una hora para que chatiemo y te lo dire todo.
buena suerte, amigo.

  Respuesta:  gonzalo ortiz de urbina
como ya han dicho antes en foxpro no hay goto
la forma es

procedure principal
do while (condicion)

if (condicion)
do rutina1
loop o exit (la que mas te guste)
else
do rutina2
loop o exit (la que mas te guste)
endo

procedure rutina1
instrucciones a ejecutar
procedure rutina2
instrucciones a ejecutar

  Respuesta:  Luis Jesus
Compañero: el famosisimo y anquisimo GOTO murio hace años con la programacion procedural, funcional y modular. El foxpro es un lenguaje procedural. Debes partir tu programa en pequeños modulos o funciones y llamarlos cuando los necesites. En foxpro no existe el GOTO para lo que tu lo necesitas.

  Respuesta:  Ricardo Peña
Compañero. GOTO ha muerto. Sin embargo te las puedes arreglar con estructuras do while de la siguiente forma:
GRUPO DE INSTRUCCIONES A
:
DO WHILE .T.
GRUPO B
:
IF condición
LOOP
* Esto te devuelve al GRUPO B
ELSE
EXIT
* Esto te manda al GRUPO D
ENDIF
GRUPO C
:
ENDDO
GRUPO D
Con un poco de destreza podras manejar tus grupos de instrucciones tan comodamente que NUNCA mas necesitarás del anticuado y poco elegante GOTO

En FOX GOTO n SIGNIFICA IR AL REGISTRO n !

Chao.


  Respuesta:  Manuel R. Bercian
En fox se pueden hacer pequeños programas dentro de un mismo programa, pon el siguiente codigo
PROCEDURE nombredelProcedimiento
Comandos que quieras volver a ejecutar
Return
Cuando lo quieras repetir solo escribe DO nombredelProcedimiento y listo, tambien puedes hacer un programa de procedimientos es decir que dentro solo tengas procedimientos que repites a cada momento solo que aqui para correrlo se escribe lo siguiente DO nombredelProcedimiento IN ProgramadeProcedimiento esto correra las instrucciones de un procedimiento que esta dentro del programa de Procedimientos donde solo hay procedimientos
Espero haberte ayudado y Saludos Amigos...