PC Toledo

Enviado: **07 Jul 2012 11:10**

ola amigos

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
....

montei um arquivo BAT com a seguinte linha: HBMK2 SISCOM.HBP
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>

a linha referente ao erro do DOPEDIDO.PRG é esta, o que esta errado?

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"

alinha do erro do NFDIVS.PRG é esta, o que esta errado?

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"

agradeço a ajuda dos colegas

abraços

Enviado: **07 Jul 2012 13:49**

Somente advertencias do compilador... o executavel foi gerado...

Experimente compilar com MingW as mensagens serao mais informativas

Adicione -w1 -es2 no .hbp

Enviado: **08 Jul 2012 14:01**

Amparo,
Ele chega a gerar o executável ?

O que você postou não são erros, são apenas avisos, talvez o erro não está sendo mostrado na tela, tente compilar usando assim:
HBMK2 SISCOM.HBP > error.log 2>&1

Isso vai gerar um arquivo ERROR.LOG com todos os erros de compilação.

Enviado: **10 Jul 2012 02:26**

O seguinte tópico aborda esse warning.

viewtopic.php?f=4&t=10446

Enviado: **23 Jul 2012 08:52**

ola amigos

consegui compilar o executavel, porem ao executar esta dando o erro abaixo, estas linha abaixo foram compiladas em clipper 5.3 e funciona normalmente, compilei tambem em Harbour que vem junto com a minigui so que usei o BRMAKE para compilar e funciona normal, usando o HBMK2 da o erro abaixo,
lembrando que estou usando o Harbour que vem com a minugui Harbour MiniGUI Extended Edition 2.1.0 - 2012.04.25 e o BCC55

linha onde ocorre o erro:

Código: Selecionar todos

         @ 12, 53 GET lCash;
         CHECKBOX;
         COLOR "N+/W,N/W,N/W,W+/W";
         STYLE "[x ]";              // aqui esta o erro
         MESSAGE " Marque para trabalhar como Caixa ou PDV"

quando eu escolho gravar nao grava o arquivo de erro simplesmente fecha a tela por isso nao estou passando mais detalhes do erro,alguem poderia me ajudar??

Código: Selecionar todos

┌─────────────────────────────────────────────┐
│ Erro PUSHBUTTON/1001  Argument error: STYLE │
│           Erro DOS não disponível           │
│                                             │
│               Sair    Gravar                │
└─────────────────────────────────────────────┘

Enviado: **25 Jul 2012 12:12**

ola amigos

uma correcao, a linha que tem o erro é esta:

Código: Selecionar todos

      @ 15, 41 GET lOk PUSHBUTTON;
        CAPTION "   O&k   ";
        MESSAGE " Confirma o login (F10)";
        COLOR PushColor( ATail( GetList ) );
	STATE { || lGo := .T., GetActive():ExitState := GE_WRITE };
        STYLE "";
        GUISEND Style := MyButton( ATail( GetList ):Control, .F. )

olá pessoal buenas tardes!

é o seguinte:
ao tentar compilar manualmente com hbmk2, percebo que aparece uma mensagem de erro dizendo que meu arquivo .HBP é muito grande e não permite compilar com mais de 10 arquivos aninhados.
Na verdade são uns 100 arquivos, o que fazer para compilar?
é pra dividir o .HPB em 10 outros HBPs e como isso é feito?
inté!
...

Enviado: **25 Jun 2016 09:29**

opa bom dia!
Estou neste tópico para tentar ajuda dos colegas, sobre o seguinte problema:
criei/inventei um pequeno aplicativo que é muito prático que toda vez que eu altero um campo no DBF/NTX não precise mais usar o DBU32 para no cliente editar manualmente para acrescentar ou alterar campos.
Está funcionando perfeitamente, inclusive em modo gráfico usando GTWVG.
A penúltima versão dele leva os seguintes nomes e arquivos:

Código: Selecionar todos

DBA-3.bat
DBA-3.hpb
DBA-3.prg

Se eu executar o DBA-3.BAT compila perfeitamente.
Agora, na última versão, fiz as alterações que preciso e fiz cópia e renomeie os novos arquivos para:

Código: Selecionar todos

DBA-4.bat
DBA-4.hpb
DBA-4.prg

Ao compilar o DBA-4.BAT, gera a seguinte mensagem de erro, no arquivo de log que é gerado:

Código: Selecionar todos

hbmk2 [DBA-4]: Atenção: Arquivo não encontrado: DBA-4.hbp

O que os parceiros podem me ajudar?
Ou já aconteceu essa coisa estranha com vocês?
PS: Já excluí todos os 2 arquivos: .BAT e .HBP e fiz cópia novamente para ver se estavam corrompidos, mas, o erro persiste.
Abraços!

Enviado: **25 Jun 2016 20:15**

Você trocou.

Não é DBA-4.hbp
mas sim DBA-4.hpb dentro do seu arquivo Bat

Enviado: **26 Jun 2016 14:29**

Vlademiro escreveu:Você trocou.

Olá Vlademiro, obrigado por prontamente me ajudar...
já tinha pensado nisso também... mas, não podia acreditar que o erro estava numa coisa tão insignificante, mas, que não tem jeito: fica errado.
o nome externo (na pasta onde está gravad no windows) estava com um "espaço" entre o final do nome e o "ponto" que separa o nome da extensão:
estava assim: DBA-4 .hbp
e o correto é: DBA-4.hpb
Aqui no fórum qualquer um percebe, mas, no meu windows com letras menores e tela de 1900p x 1080p não dava para perceber...
então com sua ajuda, resolvi mexer novamente, e, valeu, compilou...
obrigado a todos mais uma vez e ao fórum por existir!

PC Toledo

erro ao compilar com o hbmk2

erro ao compilar com o hbmk2

erro ao compilar com o hbmk2

erro ao compilar com o hbmk2

erro ao compilar com o hbmk2

erro ao compilar com o hbmk2

erro ao compilar com o hbmk2

erro ao compilar com o hbmk2

erro ao compilar com o hbmk2

erro ao compilar com o hbmk2

erro ao compilar com o hbmk2