PC Toledo

Olá,
Alguém querendo desenvolver em Harbour no Linux?
Temos a distribuição Biglinux (biglinux.com.br)
onde construímos um pacote binário para rodar em Linux.
Só instalar o pacote e ser feliz!

paiva escreveu: bom dia

alguem tem ?

Obrigado

paiva 34 9 9971 2578

cpaivasistemas@gmail.com

O que exatamente precisa que o software faça?
Em qual ambiente? Windows ou Linux?

#include "hbclass.ch"

PROCEDURE Main

LOCAL xTela := c():New()

SetMode( 20, 80 )
xTela:nRow := 10
@ Row(), Col() SAY "teste"
xTela:nRow := 12
@ Row(), Col() SAY "outro"
Inkey(0)

RETURN

CLASS c
METHOD nRow( xValue ) SETGET
END CLASS

METHOD nRow( xValue ) Class c

IF xValue != NIL ...

Poderá usar o SETGET de várias formas:

METHOD getName()
return ::Name

METHOD setName(cName)
::Name := cName;

METHOD setgetName(cName)
if pcount() == 1
::Name := cName
endif
return ::Name

METHOD Max(nMaxCounter)
if pcount() == 1
::MaxCounter := nMaxCounter
endif
return ::MaxCounter

As combinações das teclas CTRL+C e CTRL+BREAK recebem tratamento especial por processos de console.
Por padrão, quando uma janela do console tem o foco do teclado, CTRL+C ou CTRL+BREAK é tratado como um sinal (SIGINT ou SIGBREAK) e não como entrada de teclado. Por padrão, esses sinais são passados ...

Funciona sim, uso aqui!

O que não funciona é o CTRL + BREAK (mas é possível alterar via C o comportamento),
mas o ALT+C como o cavalheiro informou em sua mensagem funciona perfeitamente.

Olá,

Use SetKey para essa finalidade.

Ex:

#Define TECLA_ALTC 302
SetKey( TECLA_ALTC, {|| Altc() })

function Altc( cTexto )
LOCAL cScreen := SaveScreen()
LOCAL cCor := SetColor()
SetColor("")
Cls
ErrorBeep()
if Conf("Encerrar a Execucao do Aplicativo ?")
DbCommitAll()
DbCloseAll ...

Olá,

Resolvido a parada!
Encaminhei email para maiores detalhes.

O que ele deseja recuperar? Dados? Sistema todo?
Qual a recompensa?

Também tenho funções que existem no Harbour, mas que trabalham diferentes.
Por exemplo, o Harbour tem várias funções pra XML, e tenho outras pra trabalhar de forma diferente na SefazClass.
Na época do post não existiam as funções de arquivo INI.
Não foi minha intenção desqualificar os fontes, mas ...

Mas isso já faz parte do Harbour.

https://github.com/vszakats/hb/blob/main/src/rtl/hbini.prg
Esse código não faz parte do Harbour, é um código já bem antigo que escrevi
para manipulação de arquivos .INI, ainda no Clipper 5, e que foi portado em classe
logo que Harbour ficou disponível.

Veja que ...

Olá pessoal,

Se puderem aproveitar alguma coisa ainda,
Classe inteira para manipulação de arquivos .INI
Uso desde sempre, e nunca tive problemas.


#include <hbclass.ch>
#include <fileio.ch>
#include <ferror.ch>

#define true .T.
#define false .F.
#define _CRLF chr(13) + chr(10)
#define ESC 27 ...

Olá pessoal,

Minha contribuição de hash em classe.


#include "hbclass.ch"

CLASS THash
EXPORTED:
DATA xNil INIT nil
DATA Hash INIT {=>}

public:
METHOD new CONSTRUCTOR
DESTRUCTOR Destroy()
METHOD Create()
METHOD Value(xHash, xValue) SETGET
METHOD Execute(xValue, nRow, nCol)
METHOD ...

Formas de Usar as funções:

if Printer->(TravaArq())
for nX := 1 To nTam
Printer->(DbAppend())
for nField := 1 To Printer->(FCount())
Printer->(FieldPut( nField, aPrinter[nX,nField]))
next
next
Printer->(Libera())
endif



if Conf( "Pergunta: Confirma Registro da Senha ?")
if Vendedor ...

Olá Gabriel,

Veja se isso te ajuda.

Defines:

#define true .T.
#define false .F.
#define FALSO .F.
#define OK .T.
#define ESC 27
#define P_DEF(Par, Def) Par := if( Par = Nil, Def, Par )


Função para abrir arquivo BD:

*-----------------------------------------------*
function NetUse( cBcoDados ...