estou precisando da ajuda dos colegas, tenho um sistema funcionando em clipper 5.3 compilei o mesmo sistema convertendo para Harbour fazendo apenas as mudanças necessarias para a compilação, usei o BRMAKE para compilar e linkar meus prg´s, acontece que eu postei um topico referente ao projeto hbnfe dizendo que nao conseguia compilar os fontes junto com os meus fontes, obtive uma resposta que o BRMAKE é ultrapassado e que deveria tentar usar o HBMK2, pesquisei informações a respeito e montei meu arquivo HBP ficando +/- assim:
Código: Selecionar todos
-lhbct
-inc
-osiscom.exe
MAIN.PRG
BROWTEXT.PRG
CLIENTES.PRG
DOCCUSTO.PRG
DOCOMPRA.PRG
DOCONTAS.PRG
DONFISC.PRG
DOPEDIDO.PRG
DOPRODUT.PRG
....
executei o mesmo e na hora de compilar deu dois erros conforme abaixo ( estes erros nao acontece compilando com o BRMAKE e nem compilando em clipper 5.3:
Código: Selecionar todos
hbmk2: Compiling Harbour sources...
Harbour 3.1.0dev (Rev. 17403)
Copyright (c) 1999-2012, http://harbour-project.org/
Compiling 'DOPEDIDO.PRG'...
DOPEDIDO.PRG(834) Warning W0027 Meaningless use of expression 'Logical'
DOPEDIDO.PRG(845) Warning W0027 Meaningless use of expression 'Numeric'
DOPEDIDO.PRG(845) Warning W0027 Meaningless use of expression '['
DOPEDIDO.PRG(845) Warning W0027 Meaningless use of expression 'String'
DOPEDIDO.PRG(845) Warning W0027 Meaningless use of expression 'Logical'
Lines 7843, Functions/Procedures 38
Generating C source output to '.hbmk\win\bcc\DOPEDIDO.c'... Done.
Compiling 'NFDIVS.PRG'...
NFDIVS.PRG(789) Warning W0027 Meaningless use of expression 'Logical'
NFDIVS.PRG(800) Warning W0027 Meaningless use of expression 'Numeric'
NFDIVS.PRG(800) Warning W0027 Meaningless use of expression '['
NFDIVS.PRG(800) Warning W0027 Meaningless use of expression 'String'
NFDIVS.PRG(800) Warning W0027 Meaningless use of expression 'Logical'
Lines 4972, Functions/Procedures 22
Generating C source output to '.hbmk\win\bcc\NFDIVS.c'... Done.
hbmk2: Compiling...
.hbmk\win\bcc\DOPEDIDO.c:
.hbmk\win\bcc\NFDIVS.c:
hbmk2: Linking... siscom.exe
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
C:\Fontes\BIS\SISCOM>Código: Selecionar todos
@ 4, 3 MYGET cCodigo PICTURE "@!" CAPTION "&C¢digo" SEND CapRow := 3 SEND Capcol := 3;
SEND Cargo := { 0, "", NIL, cLookCod };
SEND PreBlock := { || SetKey( K_F2, NIL ),( lEdit ) }; // .AND. modo == "I" .AND. Empty( cCodigo ) ) };
SEND PostBlock := { || IIf( aPrePedido[2] $ "Consumo_Ativo", .T.,;
( Existe( cCodigo, "PRODUTOS", "CODIGO" ) .OR.;
Existe( cCodigo, "PRODUTOS", "COD_BARRAS" ) ) ),;
Sai( "cCodigo", modo, cCodigo ) };
MESSAGE "F5:Lista de produtos por c¢digo, Tab:Pr¢ximo campo"
@ 4, 24 MYGET cDescr PICTURE "@!S50" CAPTION "&Descri‡Æo";
SEND PreBlock := { || SetKey( K_F2, NIL ),;
!( aPrePedido[2] $ "Consumo_Ativo" ), lEdit };
SEND CapRow := 3 SEND Capcol := 24;
SEND Cargo := { 0, "", NIL, cLookDes };
SEND PostBlock := { || SetKey( K_F2, NIL ),;
IIf( aPrePedido[2] $ "Consumo_Ativo", .T.,;
Existe( cDescr, "PRODUTOS", "DESCRICAO" ) ),;
Sai( "cDescr", modo, cDescr ) };
MESSAGE "F5: Lista de produtos por descri‡Æo"Código: Selecionar todos
@ 4, 3 MYGET cCodigo PICTURE "@!" CAPTION "&C¢digo" SEND CapRow := 3 SEND Capcol := 3;
SEND Cargo := { 0, "", NIL, cLookCod };
SEND PreBlock := { || SetKey( K_F2, NIL ),;
( lEdit ) }; // .AND. modo == "I" .AND. Empty( cCodigo ) ) };
SEND PostBlock := { || IIf( aPrePedido[2] $ "Consumo_Ativo", .T.,;
( Existe( cCodigo, "PRODUTOS", "CODIGO" ) ) ),;
SAINFD( "cCodigo", modo, cCodigo ) };
MESSAGE "F5:Lista de produtos por c¢digo, Tab:Pr¢ximo campo"
@ 4, 24 MYGET cDescr PICTURE "@!S50" CAPTION "&Descri‡Æo";
SEND PreBlock := { || SetKey( K_F2, NIL ),;
!( aPrePedido[2] $ "Consumo_Ativo" ), lEdit };
SEND CapRow := 3 SEND Capcol := 24;
SEND Cargo := { 0, "", NIL, cLookDes };
SEND PostBlock := { || SetKey( K_F2, NIL ),;
IIf( aPrePedido[2] $ "Consumo_Ativo", .T.,;
Existe( cDescr, "PRODUTOS", "DESCRICAO" ) ),;
SAINFD( "cDescr", modo, cDescr ) };
MESSAGE "F5: Lista de produtos por descri‡Æo"abraços
