prgs não compila error/base 1001
Moderador: Moderadores
prgs não compila error/base 1001
oi pessoal sou novato em clipper ... é mais um hobby... e gostaria de uma ajudinha se possível... é tenho ums prgs de controle de estoque... funciona muito bem a anos ...já compilei muitas e muitas vezes e funcionava muito bem.... agora parou ... só compila o 1º arquivo não chama os outros prgs, ai dá pau porque não acha as funções()
alguem pode me ajudar
os erros que da é o seguinte
desde já agradeço
ele gera o exe mais quando abre ..
error base/1001 undefinid function : tela
alguem pode me ajudar
os erros que da é o seguinte
desde já agradeço
ele gera o exe mais quando abre ..
error base/1001 undefinid function : tela
leo
- Pablo César
- Usuário Nível 7

- Mensagens: 5312
- Registrado em: 31 Mai 2006 10:22
- Localização: Curitiba - Paraná
Bem vindo Leo ao FORUM. Por acaso você estaria migrando para uma nova versão do Clipper ?. Acredito que o seu problema esteja na forma que é compilado seu sistema. Procure linkar todos os OBJs onde estaria os módulos que contém as funções como esse da TELA. Crie os OBJ com o Clipper <nome_do_PRG> e depois utilize por exemplo o RTLINK FI <OBJ1>,<OBJ2>,<OBJ3> OUT SEU_PROG.EXE
Veja que quando utilizo o "<" e ">", não quer dizer que é assim a sintaxe. Isto é, só coloquei esses sinais só para diferenciar. E desculpa se parece que eu te estaria sub-estimando.
Um clip-abraço :)Pos
Veja que quando utilizo o "<" e ">", não quer dizer que é assim a sintaxe. Isto é, só coloquei esses sinais só para diferenciar. E desculpa se parece que eu te estaria sub-estimando.
Um clip-abraço :)Pos
- Pablo César
- Usuário Nível 7

- Mensagens: 5312
- Registrado em: 31 Mai 2006 10:22
- Localização: Curitiba - Paraná
Leo, me responde o seguinte:
1. A sua função "TELA()", está em que PRG ?.
2. Voce disse que utiliza o CL.BAT. Mas quando eu disse se você programava numa versão anterior a 5.0, eu queria que você me confirmasse se seus módulos foram feitos, estilo PROCEDURES (como era feito em Summer 87, por exemplo). Porque antes você apenas se preocupava com o primeiro PRG e os outros eram chamados para serem compilados, através do "DO TELA" (por exemplo) e tinhas que colocar SET PROCEDURE TO ROTINAS (por exemplo). Em sintese, eu quero dizer que em algum lugar dos teus PRGs está chamando a FUNÇÃO ou PROCEDURE chamada TELA(... E você não estaria incluindo o módulo onde está essa função. Será que você não estaria chamando uma função que não existe ?.
3. Coloque aqui a forma que você compilou, ora por mim sugerida. Mas coloque de forma completa com os nomes dos módulos.
Um clip-abraço :)Pos
1. A sua função "TELA()", está em que PRG ?.
2. Voce disse que utiliza o CL.BAT. Mas quando eu disse se você programava numa versão anterior a 5.0, eu queria que você me confirmasse se seus módulos foram feitos, estilo PROCEDURES (como era feito em Summer 87, por exemplo). Porque antes você apenas se preocupava com o primeiro PRG e os outros eram chamados para serem compilados, através do "DO TELA" (por exemplo) e tinhas que colocar SET PROCEDURE TO ROTINAS (por exemplo). Em sintese, eu quero dizer que em algum lugar dos teus PRGs está chamando a FUNÇÃO ou PROCEDURE chamada TELA(... E você não estaria incluindo o módulo onde está essa função. Será que você não estaria chamando uma função que não existe ?.
3. Coloque aqui a forma que você compilou, ora por mim sugerida. Mas coloque de forma completa com os nomes dos módulos.
Um clip-abraço :)Pos
oi Paulo... obrigado mais uma vez......
tenho aprocimadamente 200 PRGs que são interligados atraves do prg principal leo.prg que chama os prgs através de um menu...
exp.
tela() = chama tela.prg
*set proc to tela= (assim funciona mas da pau na proxima procedure)
set message to 23
public senha_a,senha_e,senha_c
senha_a:=senha_c:=senha_e:="S"
c_senha()
clear typeahead
tone(500,2)
setcolor(quadn)
@ 05,01 to 05,78
@ 05,00 say chr(195)
@ 05,79 say chr(180)
*set proc to linha()
linha()
@ 23,11 prompt " EPSON "
@ 23,19 prompt " DESK JET "
menu to escolha
if escolha = 2
confimp(6)
else
confimp(5)
endif
while .t.
setcolor(telan)
linha()
@ 23,12 SAY "Use "+chr(24)+" "+chr(25)+" "+chr(26)+" "+chr(27)+" <ESC> e <ENTER> p/selecao"
setcolor(telm)
@ 04,01 say space(78)
@ 04,01 prompt ' Cadastros '
@ 04,14 prompt ' Estoque '
@ 04,25 prompt ' C.Pagar '
@ 04,36 prompt ' C.Receber '
@ 04,49 prompt ' Faturamento '
@ 04,64 prompt ' Utilit rios '
menu to om
setcolor(telan)
if om = 1
cad()
om = 1
elseif om = 2
est()
om = 2
elseif om = 3
pagar()
om = 3
......
o clipper que uso é clipper5.2
eu compilei assim..
cl leo... não chama os outros módulos apenas o leo.prg cria o obj
a sua sugestão
clipper leo,tela,func... etc
rtlink fi leo,tela,func...etc
funciona mas tenho k compilar arquivo por arquivo...e ir arrumando os erros....e até umas duas semanas atrás eu compilava apenas com o cl.bat ele chamava sózinho os prgs...
mas já m ajudou bastante...
:)Pos
tenho aprocimadamente 200 PRGs que são interligados atraves do prg principal leo.prg que chama os prgs através de um menu...
exp.
tela() = chama tela.prg
*set proc to tela= (assim funciona mas da pau na proxima procedure)
set message to 23
public senha_a,senha_e,senha_c
senha_a:=senha_c:=senha_e:="S"
c_senha()
clear typeahead
tone(500,2)
setcolor(quadn)
@ 05,01 to 05,78
@ 05,00 say chr(195)
@ 05,79 say chr(180)
*set proc to linha()
linha()
@ 23,11 prompt " EPSON "
@ 23,19 prompt " DESK JET "
menu to escolha
if escolha = 2
confimp(6)
else
confimp(5)
endif
while .t.
setcolor(telan)
linha()
@ 23,12 SAY "Use "+chr(24)+" "+chr(25)+" "+chr(26)+" "+chr(27)+" <ESC> e <ENTER> p/selecao"
setcolor(telm)
@ 04,01 say space(78)
@ 04,01 prompt ' Cadastros '
@ 04,14 prompt ' Estoque '
@ 04,25 prompt ' C.Pagar '
@ 04,36 prompt ' C.Receber '
@ 04,49 prompt ' Faturamento '
@ 04,64 prompt ' Utilit rios '
menu to om
setcolor(telan)
if om = 1
cad()
om = 1
elseif om = 2
est()
om = 2
elseif om = 3
pagar()
om = 3
......
o clipper que uso é clipper5.2
eu compilei assim..
cl leo... não chama os outros módulos apenas o leo.prg cria o obj
a sua sugestão
clipper leo,tela,func... etc
rtlink fi leo,tela,func...etc
funciona mas tenho k compilar arquivo por arquivo...e ir arrumando os erros....e até umas duas semanas atrás eu compilava apenas com o cl.bat ele chamava sózinho os prgs...
mas já m ajudou bastante...
:)Pos
leo
oi leonardo boa noite....
eu uso windows xp o path do clipper já configurei.... até joguei todo o sistema no mesmo diretório... tnho todos os prgs originais gravado em cdrom para proteção ...e já coloquei os prgs originais e dá o mesmo erro
já perdi a conta de quantas alterações já fiz neste sistema e sempre funcionou .... já instalei até em uma outra máquina com win98 e da o mesmo erro
para compilar e linkar
------------------------------------
cl.bat
clipper %1
if not errorlevel 1 rtlink file %1
-----------------------------------
funcionava 100% compilava e cria todos *.obj agora só compila o principal ... só se compilar um por um e rtlink fi ... arquivo por arquivo
obrigado...
:)Pos
[/code]
eu uso windows xp o path do clipper já configurei.... até joguei todo o sistema no mesmo diretório... tnho todos os prgs originais gravado em cdrom para proteção ...e já coloquei os prgs originais e dá o mesmo erro
já perdi a conta de quantas alterações já fiz neste sistema e sempre funcionou .... já instalei até em uma outra máquina com win98 e da o mesmo erro
para compilar e linkar
------------------------------------
cl.bat
clipper %1
if not errorlevel 1 rtlink file %1
-----------------------------------
funcionava 100% compilava e cria todos *.obj agora só compila o principal ... só se compilar um por um e rtlink fi ... arquivo por arquivo
obrigado...
:)Pos
[/code]
leo
sim meu amigo obrigado por mais essa sugestão... mas os prgs se for para compliar um por um .... compila tudo certo cria o obj ... só não chama os outros prgs ... ai tenho k linkar todos com rtlink fi....
tenho o clipper como um hobby e já faz tempo... eu nunca vi isso..
mas mesmo assim obrigado
se mais alguma sugetão é bem vinda
:xau
tenho o clipper como um hobby e já faz tempo... eu nunca vi isso..
mas mesmo assim obrigado
se mais alguma sugetão é bem vinda
:xau
leo
- sygecom
- Administrador

- Mensagens: 7131
- Registrado em: 21 Jul 2006 10:12
- Localização: Alvorada-RS
- Contato:
Tche, tente diminuir a quantidade de PRG ...colocando tudo como FUNCTION ....o que imagino que deve esta acontecendo ai ?...que seus PRG s?o os nomes das FUN??ES....ai a chamada..fica pelo nome do PRG e deve esta alguma chamada errada......eu tenho o custe de usar FUNC para chamar as Fun??es !!!
Abra?os
Leonardo Machado
Abra?os
Leonardo Machado
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
xHarbour.org + Hwgui + PostgreSql

