Chamando PRG com DO

[rafael]

Olá amigos,

Tenho uma questão que até já foi debatida ... só que estou com dúvidas ainda?

O amigos Janis vinha discutindo com o mestre Maligno sobre a substituição do comendo DO por funções ... e eu estou querendo fazer esta substituição no meu sistema visando xharbour no futuro!

porém não estou vendo uma forma mais prática de incluir isto no LNK... teria que incluir prg por prg no meu LNK???

Hoje tenho um arquivo MENUCAD.PRG que possui todos os DO ... e quando faço uma alteração em um cadastro compilo o menucad
no LNK tem a chamada para MENUCAD.OBJ

[gransoft]

ARAGUARI-MG, 5 de outubro de 2004.

Prezado Rafael,

ABANDONE o comando "DO" ...
Em tese, toda PROCEDURE é uma FUNCTION que retorna NIL...

Se o seu arquivo *.PRG for muito grande, você poderá dividí-lo em várias partes e depois referenciar somente a principal, desta forma:

Código: Selecionar todos

* PROGRAMA.PRG
CLEAR
#include "Inicio.prg"
#include "Meio.prg"
#include "Fim.prg"
QUIT
* FIM

Se o arquivo *.PRG for uma PROCEDURE ou FUNCTION, obrigatoriamente você deverá incluir FUNCTION Nome() e RETURN:

Código: Selecionar todos

* PROGRAMA.PRG
CLEAR
*** #include "Inicio.prg"
#include "Meio.prg"
#include "Fim.prg"
QUIT
* FIM

Código: Selecionar todos

* INICIO.PRG
FUNCTION Inicio(cVar)
*
CLEAR
*
RETURN(cVar)  &&  OU   RETURN NIL 
* FIM

Tanto para o CLIPPER quanto para o xHarbour, o *.PRG principal deverá referenciar FUNCTION Main() e RETURN NIL:

Código: Selecionar todos

* PRINCIPAL.PRG
FUNCTION Main()
*
CLEAR
*
RETURN NIL

Para criar o *.BAT e o *.LNK, para CLIPPER e xHarbour, baixe o exemplo "modelo.zip" conforme POST no link:
https://pctoledo.org/forum/viewto ... =2290#2290

Atenciosamente,
Janis Peters Grants.

http://www.gransoft.com.br
gransoft@zipmail.com.br

[rafael]

Blz, Janis

Eu já estou passando todos os prg para função;

Já estou quase acabando!!