Configurar o XP para xHarbour

[Laudelino Scarmagnani]

Boa Noite!
Estava verificando os passos indicados pelo pessoal da acelconsultoria, pelo hyder. Procedi conforme orientação: Alterei e inclui os path's nas variaveis de sistema, de usuario, alterei o autoexec.nt e não consigo compilar o programa teste para o xHarbour.
So consigo informando o caminho completo C:\xHarbour\bin\RBMAKE TestexHB.bc /EX. So que os demais programas para compilação, não encontra o caminho e dá a mensagem que não encontrou o caminho especificado.
Se alguém já enfrentou o problema e puder me ajudar, agradeço. Para compilar no Clipper, tenho que informar o caminho para o RMK e o LNK, mesmo tendo o path's no autoexec.nt. Como para cada um há um .bat, fica fácil, mas no xHarbour, não se isto é possível.

[luiz antonio da silva]

Amigo Laudelino !

Tb tive alguns problemas parecidos....seguinte:

Se vc fez alterações no autoexec.nt, não precisa configurar as variáveis de ambiente que seria a mesma coisa, aí um altera o outro.

Alterando o autoexec.nt, reinicie o pc, digite no prompt de comando (executar - cmd) o comando PATH, e veja se sua configuração está ok, caso não esteja revise tudo passo a passo até que esteja no retorno do PATH o caminho exato que vc informou....valeu...

qq coisa estamos aqui.

Luiz.

[Laudelino Scarmagnani]

Luis Antonio, obrigado pelas dicas quanto ao autoexec.nt e variaveis do sistema.
Segui o que voce me indicou e continuo com o problema. Segue os passos e minha configuração:
Microsoft Windows XP [versão 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\LAUDELINO>cd\sistema

C:\Sistema>cd xhb
C:\Sistema\xHB>RBMAKE TestexHB.bc /EX
'RBMAKE' não é reconhecido como um comando interno
ou externo, um programa operável ou um arquivo em lotes.

C:\Sistema\xHB>pathPATH=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32Wbem;C:\Borland\BCC55\Bin;C:\xHarbour\bin;C:\DOS;C:\util;C:\CLIP53\BIN;C:\CLIP53\NG;C:\CLIP53\INCLUDE;C:\CLIP53\LIB;C:\CLIP53\OBJ;C:\CLIP53\PLL;PATH=C:\Borland\BCC55\Bin;C:\xHarbour\bin;C:\DOS;C:\util;C:\CLIP53\BIN;C:\CLIP53\NG;C:\CLIP53\INCLUDE;C:\CLIP53\LIB;C:\CLIP53\OBJ;C:\CLIP53\PLL;c:\clip53\obj;c:\clip53\pll

C:\Sistema\xHB>HBMAKE TestexHB.bc /EX
'RBMAKE' não é reconhecido como um comando interno
ou externo, um programa operável ou um arquivo em lotes.

C:\Sistema\xHB>C:\XHARBOUR\BIN\HBMAKE TestesHB.bc /EX

Dá a seguinte mensagem após responder à tela de compilação:
\bin\harbour.cfg não pode ser criado. FERRER (3)

e fecha a tela com o seguinte:
O sistema não pode encontrar o caminho especificado.


Compiling :TESTEXHB.PRG
┌────────────[ 100% ]──────────────┐
│▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓│
└──────────────────────────────────┘

\BIN\ilink32 @makefile.lnk
O sistema não pode encontrar o caminho especificado.
'upx' não é reconhecido como um comando interno
ou externo, um programa operável ou um arquivo em lotes.

C:\Sistema\xHB>

Eliminando o path das variáveis do sistema e incluindo somente no autoexec.nt, o path ficou o seguinte

C:\Sistema\xHB>path
PATH=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;c:\clip53\obj;c:\cl
ip53\pll

Como com certeza estou fazendo algo errado, estou enviando o meu autoexec.bat para alguém que entende do assundo possa me orientar. Desculpem por ser num final de semana, mas, fazer o que.

C:\Sistema\xHB>cd\windows

C:\WINDOWS>cd sistem32
O sistema não pode encontrar o caminho especificado.

C:\WINDOWS>cd system32

C:\WINDOWS\system32>edit autoexec.nt

@echo off

REM AUTOEXEC.BAT nao ‚ usado para inicializar o ambiente MS-DOS.
REM AUTOEXEC.NT ‚ usado para inicializar o ambiente MS-DOS, a nao
REM ser que se especifique um arquivo de inicializa‡ao diferente
REM no arquivo de informa‡oes de programa (PIF) do aplicativo.
PATH=C:\Borland\BCC55\Bin;C:\xHarbour\bin;C:\DOS;C:\util;C:\CLIP53\BIN;C:\CLIP53\NG;C:\CLIP53\INCLUDE;C:\CLIP53\LIB;C:\CLIP53\OBJ;C:\CLIP53\PLL
set clipper=f200
REMpath=C:\DOS;C:\util
REMpath=C:\CLIP53\BIN
REMpath=C:\CLIP53\NG
REMpath=C:\CLIP53\INCLUDE
REMpath=C:\CLIP53\LIB
REMpath=C:\CLIP53\OBJ;C:\CLIP53\PLL
set INCLUDE=C:\CLIP53\INCLUDE
set LIB=C:\CLIP53\LIB
set OBJ=C:\CLIP53\OBJ
set PLL=c:\CLIP53\PLL
doskey
prompt$p$g

REM TAME.----------------------------------------------------------------------
REM TAME: The Tame program has been added in order to improve performance of
REM TAME: DOS programs. If adjustments are needed, edit the following file.
REM TAME:
REM TAME: C:\Arquivos de programas\Tame\Settings\default.tam
REM TAME:
REM TAME: If you want to specify settings that affect only one program,copy the
REM TAME: default file to a file name based on the program name. For example:
REM TAME:
REM TAME: C:\Arquivos de programas\Tame\Settings\myapp.exe.tam
REM TAME:
REM TAME: For information, visit http://www.tamedos.com

C:\ARQUIV~1\Tame\tame-nt.com
REM Instalar as extensoes CD ROM
lh %SystemRoot%\system32\mscdexnt.exe

REM Instalar o redirecionador da rede (carregar antes do dosx.exe)
lh %SystemRoot%\system32\redir

REM Instalar o suporte DPMI
lh %SystemRoot%\system32\dosx

Luis, caoso vocë ou alguém mais possam me ajudar, se precisarem de mais informações, posso enviar.
Tenho 128 MB RAM no micro, isto não tem nada a ver com o problema?
Estou providenciando mais 256 MB.
Um abraço
Laudelino

[Ivone Lopes da Silva]

Olha, eu fiz um batzinho, que só uso quando vou compilar, pois ainda estou somente fazendo teste, e deu certo.

set include=c:\xharbour\include; c:\bcc55\include;c:\minigui\include
set bin=c:\xharbour\bin; c:\bcc55\bin
set lib=c:\xharbour\lib; c:\bcc55\lib; c:\minigui\lib
set obj=c:\xharbour\obj


Espero que funcione, não custa tentar.

[Laudelino Scarmagnani]

Trabalhando com as orientações recebidas do Luis Antonio, do Vailton e da Ivone, consegui entender um pouco da configuração do Windows XP, no que se refere aos path´s. Isto deve ajudar tambem para o clipper.
Consegui executar a compilação do sistema, porém, agora, as mensagens e o problema é outro, como segue:





Compiling :VEP001.PRG
┌────────────[ 100% ]──────────────┐
│▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓│
└──────────────────────────────────┘

C:\BCC55\BIN\ilink32 @makefile.lnk
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_VEPPC' referenced from C:\SISTEMA\XHB\OBJ\SA
IDAS.OBJ
Error: Unresolved external '_HB_FUN_CRDADOS' referenced from C:\SISTEMA\XHB\OBJ\
CRCONCLI.OBJ
Error: Unresolved external '_HB_FUN_MOSTRATIT_MANUT' referenced from C:\SISTEMA\
XHB\OBJ\CRCONCLI.OBJ
Error: Unresolved external '_HB_FUN_MOSTRA_SALDO_REC' referenced from C:\SISTEMA
\XHB\OBJ\CRPESQ1.OBJ
'upx' não é reconhecido como um comando interno
ou externo, um programa operável ou um arquivo em lotes.

C:\Sistema\xHB>

O que pode ser isto?
Laudelino

[luiz antonio da silva]

Trabalhando com as orientações recebidas do Luis Antonio, do Vailton e da Ivone, consegui entender um pouco da configuração do Windows XP, no que se refere aos path´s. Isto deve ajudar tambem para o clipper.
Consegui executar a compilação do sistema, porém, agora, as mensagens e o problema é outro, como segue:





Compiling :VEP001.PRG
┌────────────[ 100% ]──────────────┐
│▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓│
└──────────────────────────────────┘

C:\BCC55\BIN\ilink32 @makefile.lnk
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_VEPPC' referenced from C:\SISTEMA\XHB\OBJ\SA
IDAS.OBJ
Error: Unresolved external '_HB_FUN_CRDADOS' referenced from C:\SISTEMA\XHB\OBJ\
CRCONCLI.OBJ
Error: Unresolved external '_HB_FUN_MOSTRATIT_MANUT' referenced from C:\SISTEMA\
XHB\OBJ\CRCONCLI.OBJ
Error: Unresolved external '_HB_FUN_MOSTRA_SALDO_REC' referenced from C:\SISTEMA
\XHB\OBJ\CRPESQ1.OBJ
'upx' não é reconhecido como um comando interno
ou externo, um programa operável ou um arquivo em lotes.

C:\Sistema\xHB>

O que pode ser isto?
Laudelino

Seu programa VEP001 está fazendo chamada a algumas funções não encontradas dentro dele mesmo ou de outros programas.

exemplo

************** primeiro programa: prg1.prg ********************
func main() // ou func main ou function main ou function main()
public valor:=0
cls
cacula()
@ 10,10 say "Resultado de 2 x 2: "+valor
return
#include "prg2.prg"

************** segundo programa : prg2.prg **********************
func calcula()
valor:=2*2
return(valor)

Se tiver chamada a rotinas de outros programas, no final do primeiro prg vc define com include todos os prg do sistema...blz..

[Laudelino Scarmagnani]

Trabalhando com as orientações recebidas do Luis Antonio, do Vailton e da Ivone, consegui entender um pouco da configuração do Windows XP, no que se refere aos path´s. Isto deve ajudar tambem para o clipper.
Consegui executar a compilação do sistema, porém, agora, as mensagens e o problema é outro, como segue:





Compiling :VEP001.PRG
┌────────────[ 100% ]──────────────┐
│▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓│
└──────────────────────────────────┘

C:\BCC55\BIN\ilink32 @makefile.lnk
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_VEPPC' referenced from C:\SISTEMA\XHB\OBJ\SA
IDAS.OBJ
Error: Unresolved external '_HB_FUN_CRDADOS' referenced from C:\SISTEMA\XHB\OBJ\
CRCONCLI.OBJ
Error: Unresolved external '_HB_FUN_MOSTRATIT_MANUT' referenced from C:\SISTEMA\
XHB\OBJ\CRCONCLI.OBJ
Error: Unresolved external '_HB_FUN_MOSTRA_SALDO_REC' referenced from C:\SISTEMA
\XHB\OBJ\CRPESQ1.OBJ
'upx' não é reconhecido como um comando interno
ou externo, um programa operável ou um arquivo em lotes.

C:\Sistema\xHB>

O que pode ser isto?
Laudelino

Seu programa VEP001 está fazendo chamada a algumas funções não encontradas dentro dele mesmo ou de outros programas.

exemplo

************** primeiro programa: prg1.prg ********************
func main() // ou func main ou function main ou function main()
public valor:=0
cls
cacula()
@ 10,10 say "Resultado de 2 x 2: "+valor
return
#include "prg2.prg"

************** segundo programa : prg2.prg **********************
func calcula()
valor:=2*2
return(valor)

Se tiver chamada a rotinas de outros programas, no final do primeiro prg vc define com include todos os prg do sistema...blz..

Luix Antonio, bom dia!
Agora o problema é o seguinte:

Error BASE/1132 Bound error: array access Arguments: ( [ 1] = Type: A Val: { Ar
ray of 2 Items } [ 2] = Type: N Val: 3)

Error at ...: DBEDIT(188) in Module: dbedit.prg
Called from : CAC002(113) in Module: CAC002.PRG
Called from : (b)MAIN(169) in Module: SISTEMA.PRG
Called from : __MENUTO(182) in Module: menuto.prg
Called from : MAIN(566) in Module: SISTEMA.PRG

O programa compilou, executa normalmente, porém, ao usar o DBEDIT, nas teclas de funções, da a mensagem acima. o restante, aparentemente está funcionando. Tenho pouca experiencia em clipper, mas, achei a conversão simples. Gerando o sistema para plataforma WIN32, posso executar o sistema no WIN98?

Laudelino.

[luiz antonio da silva]

Trabalhando com as orientações recebidas do Luis Antonio, do Vailton e da Ivone, consegui entender um pouco da configuração do Windows XP, no que se refere aos path´s. Isto deve ajudar tambem para o clipper.
Consegui executar a compilação do sistema, porém, agora, as mensagens e o problema é outro, como segue:





Compiling :VEP001.PRG
┌────────────[ 100% ]──────────────┐
│▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓│
└──────────────────────────────────┘

C:\BCC55\BIN\ilink32 @makefile.lnk
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_VEPPC' referenced from C:\SISTEMA\XHB\OBJ\SA
IDAS.OBJ
Error: Unresolved external '_HB_FUN_CRDADOS' referenced from C:\SISTEMA\XHB\OBJ\
CRCONCLI.OBJ
Error: Unresolved external '_HB_FUN_MOSTRATIT_MANUT' referenced from C:\SISTEMA\
XHB\OBJ\CRCONCLI.OBJ
Error: Unresolved external '_HB_FUN_MOSTRA_SALDO_REC' referenced from C:\SISTEMA
\XHB\OBJ\CRPESQ1.OBJ
'upx' não é reconhecido como um comando interno
ou externo, um programa operável ou um arquivo em lotes.

C:\Sistema\xHB>

O que pode ser isto?
Laudelino

Seu programa VEP001 está fazendo chamada a algumas funções não encontradas dentro dele mesmo ou de outros programas.

exemplo

************** primeiro programa: prg1.prg ********************
func main() // ou func main ou function main ou function main()
public valor:=0
cls
cacula()
@ 10,10 say "Resultado de 2 x 2: "+valor
return
#include "prg2.prg"

************** segundo programa : prg2.prg **********************
func calcula()
valor:=2*2
return(valor)

Se tiver chamada a rotinas de outros programas, no final do primeiro prg vc define com include todos os prg do sistema...blz..

Luix Antonio, bom dia!
Agora o problema é o seguinte:

Error BASE/1132 Bound error: array access Arguments: ( [ 1] = Type: A Val: { Ar
ray of 2 Items } [ 2] = Type: N Val: 3)

Error at ...: DBEDIT(188) in Module: dbedit.prg
Called from : CAC002(113) in Module: CAC002.PRG
Called from : (b)MAIN(169) in Module: SISTEMA.PRG
Called from : __MENUTO(182) in Module: menuto.prg
Called from : MAIN(566) in Module: SISTEMA.PRG

O programa compilou, executa normalmente, porém, ao usar o DBEDIT, nas teclas de funções, da a mensagem acima. o restante, aparentemente está funcionando. Tenho pouca experiencia em clipper, mas, achei a conversão simples. Gerando o sistema para plataforma WIN32, posso executar o sistema no WIN98?

Laudelino.

Poste aqui a parte do codigo do CAC002 que tem o dbedit para dar uma olhada no que pode estar errado, mas com certeza é coisa simples..blz

luiz.

[Laudelino Scarmagnani]

Luis Antonio, o codigo e o seguinte:

Código: Selecionar todos

FUNCTION CAC002
GETLIST:={}
SET KEY -3 TO
LAST_VAR = READVAR() 
BACTELA()
WSELE=SELECT("ESPRO")
IF WSELE=0
   USE ESPRO INDEX ESPRO,ESPRO1,ESPRO2,ESPRO3 ALIAS ESPRO NEW SHARED READONLY
ENDIF
SELE ESPRO
INDCACAD=INDEXORD()
SET ORDER TO 4
*
*--------------------- VETORES PARA USO DO DBEDIT ---------------------------*
DECLARE VTCON1[20],VTCON2[20],VTCON3[20],VET4[2]
*
VTCON1[01]="CDMERCAD"
VTCON1[02]="NOMERCAD"
VTCON1[03]="VLVAREJO"
VTCON1[06]="VLCUSTMED"
IF EMP->IDATAVAR <> 'A'
   VTCON1[05]="IDTRIBVEN"
ELSE
   VTCON1[05]="VLATACADO"
ENDIF
VTCON1[04]="QTDISPONIV"
VTCON1[07]="VLCUSMOEDA"

*
VTCON2[01]="9999999"
VTCON2[02]="@A"
VTCON2[03]="@E 99,999,999.99"
VTCON2[06]="@E 99,999,999.99"
IF EMP->IDATAVAR <> 'A'
   VTCON2[05]="99"
ELSE
   VTCON2[05]="99,999,999.99"
ENDIF
VTCON2[04]="@E 99,999,999.99"
VTCON2[07]="@E 99,999,999.99"
*
VTCON3[01]="CODIGO"
VTCON3[02]="DESCRICAO"
VTCON3[03]="PRECO VENDA"
VTCON3[06]="CUSTO"
IF EMP->IDATAVAR <> 'A'
   VTCON3[05]="TR"
ELSE
   VTCON3[05]="PRECO ATACADO"
ENDIF
VTCON3[04]="DISPONIVEL"
VTCON3[07]="CUSTO U$"
*
VET4[01]="<ENTER>"
VET4[02]="Seleciona <ESC> Sair"



*------------------------- INICIO DO PROGRAMA -------------------------------*
LL1=10
CC1=05
LL2=20
CC2=75

TELAVELHA=SAVESCREEN(LL1,CC1,LL2+1,CC2+1)
@ LL1,CC1 CLEAR TO LL2,CC2
@ LL1,CC1 TO LL2,CC2 DOUBLE
BOXSHADOW(LL1,CC1,LL2,CC2)
PUBLIC CAMPO:=""
wtrue=0
WNOME001=SPACE(35)
WCON=SPACE(09)
sele espro
set index to espro3
GO TOP
DO WHILE WTRUE = 0
   SET FILTER TO
   @ LL1,CC1 SAY "DESCRICAO:" GET WNOME001 PICT "@!"
   READ
   IF LASTKEY()<>27
      WCHECA=SUBSTR(WNOME001,1,1)
      IF WCHECA<> " "
	 SET SOFTSEEK ON
	 SEEK WNOME001
	 SET SOFTSEEK OFF
	 IF EOF()
	    @ 24,10 SAY "DESCRICAO NAO EXISTENTE"
	    LOOP
	 ENDIF
      ELSE
	 CAMPO=SUBSTR(ALLTRIM(WNOME001),1)
	 FILTRO=" CAMPO $ NOMERCAD "
	 SET FILTER TO &FILTRO
	 GO TOP
      ENDIF
      DBEDIT(LL1+1,CC1+1,LL2-1,CC2-1,VTCON1,"PEGA2",VTCON2,VTCON3,,,,VET4,.t.,.t.)
      SET FILTER TO
      IF LASTKEY() = 13
	 EXIT
      ENDIF
   ELSE
      WTRUE=1
   ENDIF
ENDDO
RESTSCREEN(LL1,CC1,LL2+1,CC2+1,TELAVELHA)
SELE ESPRO
SET INDEX TO ESPRO
*SET ORDER TO INDCACAD
IF WSELE = 0
   CLOSE ESPRO
ENDIF
RESTELA()
SET KEY -3 TO CAC002
SET FILTER TO
RETURN

O objetivo desta função é consultar uma lista de produtos, em ordem alfabetica, a partid de uma letra ou parte inicial da descrição do produto, e pode ser chamada em qualquer parte do sistema para consulta de preço de venda, ou estoque disponivel.

Laudelino


Em tempo,
Tenho consulta pelo Dbedit funcionando, e neste caso, não está usando tecla de função como no caso acima.
Laudelino.

[luiz antonio da silva]

DBEDIT(LL1+1,CC1+1,LL2-1,CC2-1,VTCON1,"PEGA2",VTCON2,VTCON3,,,,VET4,.t.,.t.)

ERRO: VTCON1 / VTCON2 / VRCON3 e VET4, estas variáveis foram declaradas no início do programa como sendo ARRAY, então qq chamada a qq uma delas deve ser feita na sintaxe VTCON1[X]...Acredito que o erro seja estas chamadas.....blz...

LUIZ.

[Laudelino Scarmagnani]

DBEDIT(LL1+1,CC1+1,LL2-1,CC2-1,VTCON1,"PEGA2",VTCON2,VTCON3,,,,VET4,.t.,.t.)

ERRO: VTCON1 / VTCON2 / VRCON3 e VET4, estas variáveis foram declaradas no início do programa como sendo ARRAY, então qq chamada a qq uma delas deve ser feita na sintaxe VTCON1[X]...Acredito que o erro seja estas chamadas.....blz...

LUIZ.

Luiz, bom dia.
Aparentemente o preblema é em porque no caso, a linha do Dbedit é maior que o tamanho da tela que deu origem. Diminui as informações e funciona. Estou acertando os demias programas.
Seria interessante que o Dbedit pudesse suportar um tamanho maior de informações, permitindo a navegação pelas teclas direita/esquerda.
Apesr disso, a conversão foi simples, graças a voces e ao forum. Ja consegui gerar ídices sem ter que inicializar em modo DOS. Está valendo à pena trabalhar neste sentido. Se o sistema gerado para Win32 pode rodar em Windows 98, melhor ainda: o usuario não sofrerá impacto nenhum.

Obrigado pela ajuda.
Laudelino.

[luiz antonio da silva]

Bom dia Laudelino !

Obrigado, mas o mérito de tudo isso é seu por estar procurando respostas.

qq coisa estamos aqui....me adicione no msn.

luiz_silva333@hotmail.com

blz.