Erro Compilar Xharbour + Fivewin no Xdev
Enviado: 18 Jul 2008 22:12
Boa noite, ao compilar o sistema ocorre o seguinte erro:
Segue o prg com problema
Código: Selecionar todos
Preparando Script "C:\Arquivos de programas\xDevStudio\scripts\FiveWin32.xCompiler"...
Script em Anexo.. "FiveWin.xCompiler.prg"...
Preset atual .... xHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 7.12
PATH ... C:\Borland\BCC55\Bin;C:\FWH;C:\xHarbour\bin
INCLUDE. C:\Borland\BCC55\include;C:\FWH\include;C:\xailer\xharbour\include;C:\xHarbour\include
LIB .... C:\Borland\BCC55\lib;C:\Borland\BCC55\lib\psdk;C:\FWH\lib;C:\xailer\xharbour\lib;C:\xHarbour\lib
Variaveis de Ambiente:
PATH ... C:\Borland\BCC55\Bin;C:\FWH;C:\xHarbour\bin;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Medcl\xbapi\bin\build1000
INCLUDE. C:\Borland\BCC55\include;C:\FWH\include;C:\xailer\xharbour\include;C:\xHarbour\include;;
LIB .... C:\Borland\BCC55\lib;C:\Borland\BCC55\lib\psdk;C:\FWH\lib;C:\xailer\xharbour\lib;C:\xHarbour\lib;;
Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\ARQUIVOS.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\ARQUIVOS.c" /M /N
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
ARQUIVOS.c:
Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CAIXA.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CAIXA.c" /M /N
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CAIXA.c:
Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CARTAO.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CARTAO.c" /M /N
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CARTAO.c:
Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX.c" /M /N
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX.c:
Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX1.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX1.c" /M /N
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX1.c:
Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX2.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX2.c" /M /N
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX2.c:
Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX3.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX3.c" /M /N
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX3.c:
Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX4.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX4.c" /M /N
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX4.c:
Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX5.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX5.c" /M /N
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX5.c:
Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX6.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX6.c" /M /N
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX6.c:
Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\CX7.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\CX7.c" /M /N
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
CX7.c:
Executando: harbour.exe "E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\Source\FUNCOES.PRG" /q /o"E:\Documents and Settings\Gilson\Desktop\Backup\40\A\jr\FUNCOES.c" /M /N
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Executando: BCC32 -M -c @B32.BC
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
FUNCOES.c:
Executando: ILINK32 @B32.BC
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_GETPREVALI' referenced from FUNCOES.OBJ
Error: Unresolved external '_HB_FUN_GETAPPLYKE' referenced from FUNCOES.OBJ
Error: Unresolved external '_HB_FUN_GETPOSTVAL' referenced from FUNCOES.OBJCódigo: Selecionar todos
procedure funcoes()
** Msg1(Arg1,Arg2) Mansagem com uma opcao
** Arg1 = Texto Linha 1
** Arg2 = Texto Linha 2
** MsgBox1(Arg1,Arg2) Mansagem com uma opcao
** Arg1 = Texto Linha 1
** Arg2 = Texto Linha 2
**
** MsgBox2(Arg1,Arg2) Mensagem com duas opcoes
** Arg1 = Texto Linha 1
** Arg2 = Texto Linha 2
**
** MsgBox3(Arg1,Arg2) Mensagem com tres opcoes
** Arg1 = Texto Linha 1
** Arg2 = Texto Linha 2
**
** Win(l1,c1,l2,c2,Arg1) Desenha Janela na Tela
** Arg1 = Titulo
** Win_(l1,c1,l2,c2,Arg1) Desenha Janela na Tela VERMELHO
** Arg1 = Titulo
** jan(l1,c1,l2,c2) Desenha Janela na Tela
**
** obs() escreve a observa‡Æo
function obs(var01)
set color to 0/15
@ 24,01 say var01
set color to 15/1
Function Desktop()
set color to 7/1
clear
@ 24, 0 SAY Space(80) Color "0/15"
@ 24, 0 say " ESC - Sair ³ F12 - Usu rio ³" color "0/15"
set color to 0/15
@ 24,70 say "³KRšGER³"
@ 24,59 say "³" + usu_log
@ 24,49 say "³" + nom_sis
set color to 7/1
Function MsgBox1(Arg1,Arg2)
Set cursor off
MB1t=savescreen(08,11,16,75)
do while .t.
set color to 0/15
@ 08,11 clear to 15,69
sombra(08,11,15,69)
arg3 = space(59)
set color to 7/4
@ 08,11 say arg3
@ 08,11 say padc("Aten‡„o",59)
set color to 0/15
@ 10,15 say padc(Arg1,51)
@ 11,15 say padc(Arg2,51)
set color to 8/15
@ 14,36 say "ßßßßßßßßßß"
@ 13,45 say "Ü"
set color to 8/0,15/1
@ 13,35 prompt " OK "
menu to MB1op
if lastkey() = 27
restscreen(08,11,16,75,MB1t)
return 0
exit
endif
do case
case MB1op = 1
restscreen(08,11,16,75,MB1t)
return 1
exit
endcase
enddo
Function MsgBox2(Arg1,Arg2)
Set cursor off
MB2t=savescreen(08,11,16,75)
do while .t.
set color to 0/15
@ 08,11 clear to 15,69
sombra(08,11,15,69)
aaa = space(59)
set color to 7/4
@ 08,11 say aaa
@ 08,11 say padc("Atencao",59)
set color to 0/15
@ 10,15 say padc(Arg1,51)
@ 11,15 say padc(Arg2,51)
set color to 8/15
@ 14,29 say "ßßßßßßßßßß"
@ 13,38 say "Ü"
@ 14,43 say "ßßßßßßßßßß"
@ 13,52 say "Ü"
set color to 8/7,15/9
@ 13,28 prompt " OK "
@ 13,42 prompt " Cancelar "
menu to MB2op
if lastkey() = 27
restscreen(08,11,16,75,MB2t)
return 0
exit
endif
do case
case MB2op = 1
restscreen(08,11,16,75,MB2t)
return 1
exit
case MB2op = 2
restscreen(08,11,16,75,MB2t)
return 2
exit
endcase
enddo
Function MsgBox3(Arg1,Arg2)
Set cursor off
MB3t=savescreen(08,11,16,75)
do while .t.
set color to 0/7
@ 08,11 clear to 15,69
sombra(08,11,15,69)
aaa = space(59)
set color to 7/4
@ 08,11 say aaa
@ 08,11 say padc("Aten‡„o",59)
set color to 0/7
@ 10,15 say padc(Arg1,51)
@ 11,15 say padc(Arg2,51)
set color to 8/7
@ 14,24 say "ßßßßßßßßßß"
@ 13,33 say "Ü"
@ 14,36 say "ßßßßßßßßßß"
@ 13,45 say "Ü"
@ 14,48 say "ßßßßßßßßßß"
@ 13,57 say "Ü"
set color to 1/7,15/1
@ 13,23 prompt " Sim "
@ 13,35 prompt " NÆo "
@ 13,47 prompt " Cancelar "
menu to MB3op
if lastkey() = 27
restscreen(08,11,16,75,MB3t)
return 0
exit
endif
do case
case MB3op = 1
restscreen(08,11,16,75,MB3t)
return 1
exit
case MB3op = 2
restscreen(08,11,16,75,MB3t)
return 2
exit
case MB3op = 3
restscreen(08,11,16,75,MB3t)
return 3
exit
endcase
enddo
Function Win(l1,c1,l2,c2,Arg1)
set color to 0/15
@ l1,c1 clear to l2,c2
sombra(l1,c1,l2,c2)
arg2 = c1 - c2
arg3 = arg2 * -1 + 1
set color to 15/1
@ l1,c1 say padc(Arg1,Arg3)
set color to 15/1
Function Winx(l1,c1,l2,c2,Arg1,arg2,arg3)
set color to 0/15
@ l1,c1 clear to l2,c2
sombra(l1,c1,l2,c2)
arg2 = c1 - c2
arg3 = arg2 * -1 + 1
set color to arg2/arg3
@ l1,c1 say padc(Arg1,Arg3)
set color to 15/1
Function Win_(l1,c1,l2,c2,Arg1)
set color to 0/15
@ l1,c1 clear to l2,c2
sombra(l1,c1,l2,c2)
arg2 = c1 - c2
arg3 = arg2 * -1 + 1
set color to 15/4
@ l1,c1 say padc(Arg1,Arg3)
set color to 15/1
Function Jan(l1,c1,l2,c2)
set color to 0/15
@ l1,c1 to l2,c2
sombra(l1,c1,l2,c2)
function verif_(arg1)
if arg1 = " "
return .f.
else
return .t.
endif
/*--------------------------------------------------------*/
function Sombra(_Li, _Ci, _Lf, _Cf)
Local Tela1, Tela2, Tela3, Tela4
Tela3 := savescreen(_Li + 1, _Cf + 1, _Lf + 1, _Cf + 2)
Tela4 := savescreen(_Lf + 1, _Ci + 2, _Lf + 1, _Cf + 2)
for Tela1:= 2 to len(Tela3) step 2
Tela2:= shadow(asc(substr(Tela3,Tela1,1)))
Tela3:= stuff(Tela3,Tela1,1,Tela2)
end
for Tela1:= 2 to len(Tela4) step 2
Tela2:= shadow(asc(substr(Tela4, Tela1,1)))
Tela4:= stuff(Tela4,Tela1,1,Tela2)
end
restscreen(_Li + 1, _Cf + 1, _Lf + 1, _Cf + 2, Tela3)
restscreen(_Lf + 1, _Ci + 2, _Lf + 1, _Cf + 2, Tela4)
return NIL
/*--------------------------------------------------------*/
function Shadow(_Car)
Local Var1, Var2, Var3
Var1:= _Car % 16
Var2:= (_Car - Var1) / 16
Var3:= {0, 0, 8, 8, 0, 8, 0, 8, 0, 1, 2, 3, 4, 5, 6, 7}
Var1:= Var3[Var1 + 1]
Var2:= Var3[Var2 + 1]
return Chr(16 * Var2 + Var1)
function getsen(p1)
local L2, L3, L4
if getprevali(P1)
P1:setfocus()
P1:cargo := ""
do while P1:EXITSTATE() == 0
if P1:TYPEOUT()
P1:EXITSTATE := 5
endif
do while P1:EXITSTATE() == 0
L2 := INKEY(0)
if L2 >= 32 .AND. L2 <= 255
P1:CARGO := P1:CARGO() + CHR(L2)
GETAPPLYKE(P1, 42)
elseif L2 = 8
P1:CARGO := SUBSTR(P1:CARGO(), 1, LEN(P1:CARGO()) - 1)
GETAPPLYKE(P1, L2)
elseif L2 = 13 // Sai com tecla ENTER e retorna a senha digitada
GETAPPLYKE(P1, L2)
elseif L2 = 27 // Sai com Tecla ESC e retorna vazio
GETAPPLYKE(P1, L2)
endif
enddo
if .NOT. GETPOSTVAL(P1)
P1:EXITSTATE := 0
endif
enddo
P1:KILLFOCUS()
endif
if P1:EXITSTATE() <> 7
P1:VARPUT(P1:CARGO())
endif
return
* -----------------------------------------------------------------------------
function visor_21(arg1,arg2,arg3,arg4,arg5,arg6)
* -----------------------------------------------------------------------------
local m,j,e1,e2,d1,d2
win_visor:=savescreen( 21, 26, 23, 79 )
* arg1 : linha a ser impressa (matriz 3x1)
* arg2 : linha
* arg3 : coluna
arg4 := '15/1'
arg5 := '1/15'
@ 21,26 Say Space(55) color '15/1'
@ 22,26 Say Space(55) color '15/1'
@ 23,26 Say Space(55) color '15/1'
arg2 := 20
arg3 := arg3 - 3
for m=1 to len(arg1)
for j=1 to len(arg1[m])
if subs(arg1[m],j,1)=chr(219)
@ arg2+m,j+arg3 say ' ' color arg5
elseif subs(arg1[m],j,1)=chr(220)
@ arg2+m,j+arg3 say chr(223) color arg5
else
@ arg2+m,j+arg3 say subs(arg1[m],j,1) color arg4
endi
next
next
return NIL
* -----------------------------------------------------------------------------
func visor_monta(arg1) // Û 219 / 235
* -----------------------------------------------------------------------------
* parametros passados :
* arg1 = valor no formato a ser impresso
*
m_visor := {}
declare g1[3],g2[3],g3[3],g4[3],g5[3],g6[3],g7[3],g8[3],g9[3],g0[3],ga[3],gb[3]
g1[1] = 'ÜÛ '
g1[2] = ' Û '
g1[3] = 'ßßß '
g2[1] = 'ßßßÛ '
g2[2] = 'Ûßßß '
g2[3] = 'ßßßß '
g3[1] = 'ßßßÛ '
g3[2] = ' ßßÛ '
g3[3] = 'ßßßß '
g4[1] = 'Û Û '
g4[2] = 'ßßßÛ '
g4[3] = ' ß '
g5[1] = 'Ûßßß '
g5[2] = 'ßßßÛ '
g5[3] = 'ßßßß '
g6[1] = 'Ûßßß '
g6[2] = 'ÛßßÛ '
g6[3] = 'ßßßß '
g7[1] = 'ßßßÛ '
g7[2] = ' Üß '
g7[3] = ' ß '
g8[1] = 'ÛßßÛ '
g8[2] = 'ÛßßÛ '
g8[3] = 'ßßßß '
g9[1] = 'ÛßßÛ '
g9[2] = 'ßßßÛ '
g9[3] = 'ßßßß '
g0[1] = 'ÛßßÛ '
g0[2] = 'Û Û '
g0[3] = 'ßßßß '
stor '' to l1,l2,l3
for _y = 1 to len(arg1)
_yi = subs(arg1,_y,1)
for _z = 1 to 3
_ya = str(_z,1)
l0=''
do case
case _yi = ' '
l0 = l0 + ' '
case _yi = ','
l0 = iif(_z=3,l0+' þ ',' ')
case _yi = '.'
l0 = iif(_z=3,l0+' þ ',' ')
case _yi = '}'
l0 = iif(_z=3,l0+' þ ',' ')
case _yi = '/'
l0 = iif(_z=3,l0+' þ ',' ')
case _yi = '1'
l0 = l0+g1[_z]
case _yi = '2'
l0 = l0+g2[_z]
case _yi = '3'
l0 = l0+g3[_z]
case _yi = '4'
l0 = l0+g4[_z]
case _yi = '5'
l0 = l0+g5[_z]
case _yi = '6'
l0 = l0+g6[_z]
case _yi = '7'
l0 = l0+g7[_z]
case _yi = '8'
l0 = l0+g8[_z]
case _yi = '9'
l0 = l0+g9[_z]
case _yi = '0'
l0 = l0+g0[_z]
endcase
l&_ya = l&_ya + l0
next
next
aadd(m_visor,l1)
aadd(m_visor,l2)
aadd(m_visor,l3)
return( m_visor)
function sobre()
tela = savescreen(00,00,24,79)
set color to 0/15
@ 10,20 clear to 15,60
@ 10,20 to 15,60
set cursor off
sombra(10,20,15,60)
@ 11,22 say "Desenvolvimento:"
@ 12,22 say "Jorge A. Krger Junior"
@ 13,22 say "041 3675 0309"
@ 14,22 say "www.krugereletronica.com.br"
inkey(0)
restscreen(00,00,24,79,tela)
Function Msg1(Arg1)
Set cursor off
MB1t=savescreen(08,11,16,75)
do while .t.
set color to 0/7
@ 08,11 clear to 14,69
@ 08,11 to 14,69
sombra(08,11,14,69)
@ 10,15 say padc(Arg1,51)
set color to 8/15
@ 13,36 say "ßßßßßßßßßß" color "8/7"
@ 12,45 say "Ü" color "8/7"
set color to 15/3
@ 12,35 prompt " OK "
menu to MB1op
set color to 7/1
if lastkey() = 27
restscreen(08,11,16,75,MB1t)
return 0
exit
endif
do case
case MB1op = 1
restscreen(08,11,16,75,MB1t)
return 1
exit
endcase
enddo
RETURN NIL