PC Toledo

Bom dia.

Colega Jairo, obrigado pela colaboração. Segui os passos e compilei o DbuAll. Mas só consigo abrir índices NTX. Nos outros dá erro de corrupção. Algo mais a fazer?

Desde já agradeço a atenção.

Colegas,

Como relatei na mensagem anterior, acredito que a forma como o Gas trata os índices decrescentes com chaves numéricas utilizando as funções DESCEND() e STR() não tem o efeito esperado no Harbour. Consegui contornar a situação da seguinte maneira:

1-Em todos os programas com índices ...

Colegas Toledo e jairo,

Acho que achei o problema, mas ainda não achei a solução. Mensagem de erro não dá nenhuma, mas o problema é quando o índice tem campo numérico. No gas, quanto tem campo numérico é usado a função STR no índice. Ou seja, se for usar a função DESCEND() no campo numérico "num ...

Colega Toledo,

Muito obrigado por tentar ajudar. Infelizmente, não deu certo. Tentei também o comando:

hbmk2 nomedoarquivo.lnk -lhbrtl

mas não obtive sucesso também.

Mais alguma dica?

Boa tarde.

Após a conversão de um sistema utilizando o conversor GAS4HARBOUR disponibilizado pelo nosso colega Toledo, meus relatórios com indexação decrescente, que usam a função DESCEND(), não estão funcionando mais. Já tentei as possíveis soluções apresentadas neste fórum, tipo colocar REQUEST ...

Bom dia colegas.

Estou testando o método de conversão (gas4harbour.zip) e estou com alguma dificuldade. Utilizo o HMG 3.0.35 e acredito que tenha que fazer alguns ajustes de configuração, pois não entra nem no modo de compilação, só ajusta os progamas e aborta. Quando instalei o HMG, notei que ele ...

Bom dia.

Isso é fácil de resolver Marcelo. Observe no código do POE_GAUGE que indiquei na mensagem anterior (linha 9) onde diz:

@ l_g,c_g SAY REPL("█",MIN(ct_g,20)) // coloca na msg

Coloque uma linha antes disso: SET DEVICE TO SCREEN
E depois do @ say, uma linha abaixo, coloque: SET DEVICE TO ...

Pablo,

Fiz o teste com sua dica, mas não funcionou. A rotina acaba imprimindo o termômetro, ou seja, não fica na tela para o usuário ter noção do tempo de impressão e sim direciona para a impressora. Observei que no prórpio código que você sugeriu a substituição, tem o comentário: "coloca qtde na ...

Mas se eu fizer a substituição do código, o contador de registros (de 30 em 30) não vai funcionar. E uso isso em vários relatórios.

Segue código completo de um relatório. A função POE_GAUGE() é chamada nas linhas 45 e 56 ...

Pablo,

Desculpe se não me fiz entender. O que acontece é que não sei como a função POKE() funciona. Por isso solicitei ajuda. Não tenho idéia de como desenvolvê-la para funcionar na outra função, POE_GAUGE(). Você substituiu essa função POE_GAUGE() em seus sistemas? Obrigado por sua atenção ...

Boa tarde Colegas.

Meus agradecimentos a você, Pablo César, pela ajuda descrita no tópico anterior. Consegui utilizar as funções que precisava. Agora tem mais uma função que não está funcionando corretamente, pois depende de outra da Lib do Gas. Trata-se da função POE_GAUGE() que utiliza a função ...

Colega Pablo César,

Primeiramente, muito obrigado pela atenção e ajuda. É exatamente a rotina POE_NO_LOG() do tópico que você citou que utilizo no meu programa. Só que como sou inexperiente, preciso de um pouco mais de sua ajuda (e paciência) para implementar sua solução. Eu tinha em mente ...

Colegas,

Alguém tem os códigos das rotinas FILEATTRIB, RWRITE, SETRHS que se encontram no LIBGAS.PRG? É que uso uma função que chama essas rotinas, mas no LIBGAS.PRG as mesmas não são tratadas. Aproveito para perguntar se existe alguma forma de abir o essas LIB's do GAS para poder copiar as funções ...

Sem problemas Jairo. Por mim tudo bem, o importante é ajudar.

Um abraço e obrigado pelos elogios.

Colegas,

Revisando o programa GETSYS.PRG que copiei da pasta do Gaspro para dentro da pasta de meu projeto, observei que a linha 66 (listada abaixo) não estava sendo interpretada corretamente:

drvautohelp=IF(TYPE("drvautohelp")!="L",.f.,drvautohelp)

Provavelmente devido a variável drvautohelp ...