como compilar no HARBOUR primeiros passos

[porter]

Valeu, agora deu certo, nem imaginei que era isso, obrigado alxsts, obrigado Jairo.

[alxsts]

Olá!

É bom saber. Quando possível, diga o que achou.

Caso precise de mais informações sobre HbMk2, existe este tutorial (em inglês): How to Use hbmk2?.

[janio]

Jairo,

Esse DbuCdx foi vc q fez? Tenho um dbf que num ta abrindo nele. Erro: Função Indefinida STrZero().

Em outro dbu q tenho aqui compilado com xharbour abre normalmente.

Janio

[Jairo Maia]

Olá Jânio,

Não. Apenas adaptei os fontes que vem junto com o Clipper para o RDD DBF/CDX, usei a WVT e compilei com Harbour.

Baixei seu arquivo e abri normalmente, não deu erro.

Mas estou anexando novamente os fontes, porque fiz várias correções em relação aos fontes anteriores (nada crítico), mas o help por exemplo não funcionava. Não entendi porque esse erro ao abrir um dbf, mas se desejar, coloque um REQUEST STRZERO no DBU.PRG. Acho que deu o erro ao abrir algum índice, ou não?

Para compilar os fontes use: Hbmk2 DbuCdx

[janio]

Jairo,

Como vc falou, o erro acontece qndo o dbf ta junto do cdx (indice). Realmente, um dos indices dessa tabela uso a função strzero.

Vou baixar seus fontes, debugar e ver onde está o erro!

Janio

[Jairo Maia]

Jânio,

Então está explicado. É que a função StrZero() não foi linkada, apenas coloque no arquivo DBU.PRG a chamada REQUEST STRZERO, bem como outras que eventualmente você use em índices, e compile novamente.

[janio]

Jairo,

Bastou acrescentar:

REQUEST STRZERO
REQUEST DESCEND

no Dbu.prg, e FUNCIONOU!

Tbm aproveitei e aumentei a quantidade de campos exibíveis! Estava mostrando apenas 64 campos do dbf!

Janio

[Jairo Maia]

Tbm aproveitei e aumentei a quantidade de campos exibíveis! Estava mostrando apenas 64 campos do dbf!

Então Jânio, acho que você foi cruel agora colega... Compartilha com a gente o que fez com isso por favor:

Código: Selecionar todos

* individual field names for active list
DECLARE field_n1[64]
DECLARE field_n2[64]
DECLARE field_n3[64]
DECLARE field_n4[64]
DECLARE field_n5[64]
DECLARE field_n6[64]

:-Y