PC Toledo

Estou tendo problema no seguinte código:


DO WHILE (!Eof())
TTT := TRIM(F2->MENUPRI) //criei esta variável para facilitar checar o conteúdo dela durante o debug
IF (TTT!="") //mesmo quando o conteúdo de TTT é diferente de "" o código abaixo não é executado
alert("executado")
ENDIF
SKIP
ENDDO ...

Olá alxsts

Como vai fazer de a função do menu exigir parâmetros?

É um programa antigo, que estou dando manutenção. O antigo programador fez o menu todo na unha mas achei que do jeito que ele fez ficou muito complexo, sendo que a solução usando o menu acima torna tudo muito mais simples e o ...

Estou tentando criar um menu usando o harbour 3.2 com base em uma tabela que contém nomes dos itens do menu e os métodos que serão chamados ao clicar no item correspondente.
Após ler os dados da tabela tenho dois arrays, digamos, menu1[] e prog1[] sendo que menu1 contém os nomes dos menus e prog1 ...

Desculpem a pergunta básica mas estou acostumado a usar SQL e estou precisando fazer a seguinte busca cujo exemplo em SQL seria:

select * from Tabela where year(data) = 2020 and month(data) = 12

usando a RDD padrão do clipper / harbour, (dbf), qual a maneira correta e mais eficiente de conseguir ...

Sim, eu estava usando versões diferentes do harbour já que eu tinha na pasta c:\hb30 a versão chamada "estável" no site e que na verdade é antiga e mais os arquivos do harbour dentro da estrutura de arquivos da pasta da IDE.
Mas com base na sua resposta em outro post, falando sobre a questão das ...

Obrigado, funcionou. Você sabe em qual biblioteca está este método?

Eu uso o harbour, baixei do site oficial a versão 3.0, stable mais recente.

Eu costumava compilar o programa usando a IDE minigui, a impressora sempre funcionou corretamente.

o programa usa este código para detectar a impressora:

If (!isprinter())

Agora, resolvi criar um script (.bat) para compilar, com a seguinte linha de comando:

hbmk2 scl.prg errorsys.prg -comp=bcc ...

Estou tentando compilar um programa que utiliza o método hb_Default() (que é método que está gerando o unresolved external)

O comando que estou utilizando é o seguinte:

hbmk2 scl.prg errorsys.prg -comp=bcc -l"xhb" -o"f:\git_repositorios\scl\SCL.exe"

Este método hb_Default() está sendo utilizado ...

Olá pessoal,

Itamar, tem razão. Compilando com o GetSys.Prg do Harbour SetCursor( 0 ) não tem efeito. O GetSys original deve ativar o cursor automaticamente em GET. Em Get ele sempre está visível.

Mas para exemplo, se compilar esse código abaixo com esse GetSys.Prg o cursor não aparece, usando a ...

Não entendi, Itamar.
Este código que você postou não tem nenhum comando get, nem read.
Como assim funcionou com o inkey?

Jairo: Obrigado pela resposta, mas eu olhei o arquivo std.ch, acho que não houve alteração alguma ali.

Ola!
https://harbour.github.io/ng/c53g01c/nge2189.html
Tava lendo aqui no "manuel", Quando tem get, read o cursor vai aparecer.

This command suppresses the cursor while the screen is being painted.
Ideally, the only time the cursor shows in a production program is when
the user is editing ...

Error: Unresolved external '_HB_FUN_WSETMOUSE'.

Dá erro quando vou tentar compilar.

Qual library tenho que importar?

Olá Itamar
Não fui eu que criou este código, estou apenas dando manutenção no sistema, mas realmente esta linha está ali fazendo nada. Pega a cor e depois não a utiliza.
Postei a função do jeito que estava.
Mas e quanto ao setcursor(0), porque não está desabilitando o cursor? Alguém tem idéia?

Obrigado pela resposta Jairo.

Segue a função centra()

Function CENTRA

Parameters mensa, lin
setcursor(0)
coratu:= SetColor()
Set Color To n/w
@ lin, (80 - Len(mensa)) / 2 Say mensa
Set Color To
Return ""

Como tenho ali apenas um setcursor(0), não deveria desaparecer o cursor?

Boa tarde

Qual é o resultado esperado desta função? Não sei se entendi corretamente a documentação, o cursor do campo não deveria "desaparecer"?

setcursor(0)
centra("Digite a Senha", 23, 0)
Set Color To x/w,w/w,x
@ 1, 30 Get s Picture "@!"
Read

Quando compilo, o trecho do código acima, o ...