PC Toledo

... atual e DrawBox():


/*
PJPPEDIDOFATURA - IMPRIME FATURA PARA PEDIDO
2007.04.01 - José Quintas
*/

#define SMALL_FONT 6
#define NORMAL_FONT 8

PROCEDURE PJPPEDIDOFATURA( nIdPedido ) // do Pedido

LOCAL oPDF, nCont, cExtenso, acTxt
LOCAL cnSQL := ADOLocal()

WITH OBJECT cnSQL
:cSQL := "SELECT ...

... AND. <c> != 127, Chr( <c> ), "" )
#xtranslate hb_ntos( <n> ) => LTrim( Str( <n> ) )
#endif
#ifndef HB_K_RESIZE
#define HB_K_RESIZE 1101
#endif

PROCEDURE Main( cTermCP, cHostCP, lBoxChar, lRawKey )

LOCAL k, kX, i, s
LOCAL aKeys := { ;
{ "K_UP", 5, "Up arrow, Ctrl-E" }, ;
{ "K_DOWN", 24, "Down ...

... t.prg -fullstatic
Harbour 3.2.0dev (r2602162230)
Copyright (c) 1999-2025, https://harbour.github.io/
Compiling 't.prg'...
Lines 229, Functions/Procedures 1
Generating C source output to '/tmp/hbmk_4wziap.dir/t.c'... Done.
/usr/bin/ld: /tmp/hbmk_4wziap.dir/t.o:(.data.rel+0xf0): undefined reference ...

é harbour ?
compila usando gtwvg.hbc ?
Por precaução, veja se assim resolve

REQUEST HB_GTSYS

...
PROCEDURE HB_GTSYS
REQUEST HB_GT_WVG_DEFAULT
RETURN


Uma coisa é carregar as GTs.
Outra coisa é definir qual vai ser a default, a utilizada logo que o aplicativo começar a ser executado.
Isso acima ...

... o modo de vídeo e caracteres na inicialização.
Adicione ao seu código:

harbour

REQUEST HB_CODEPAGE_PT850 // Ou PTISO, dependendo da sua DBF
PROCEDURE Main()
HB_SETCODEPAGE("PT850")
SetMode(25, 80) // Garante modo 25x80
// ... restante do código
RETURN


4. Usar hb_GtInfo para boxes (Se usar ...

... uses the Customer.xml file created in the
// prevous example and extracts from it the structure definition
// for the Customer.dbf file.

PROCEDURE Main
LOCAL oXmlDoc := TXmlDocument():new()
LOCAL oXmlNode, aStruct := {}

oXMlDoc:read( Memoread( "customer.xml" ) )

oXmlNode := oXmlDoc ...

... to STDERR
#command ? <list,...> => ?? hb_Eol() ; ?? <list>
#command ?? <list,...> => OutErr(<list>)

* Note: automatically executes at startup

PROCEDURE ERRORSYS

ErrorBlock( { | e | JoseQuintasError( e ) } )

RETURN

FUNCTION JoseQuintasError( e )

LOCAL nCont, cMessage

// by default ...

NÃO É um teste de uso, é apenas teste de compilação.



PROCEDURE Main

SetMode(33,100)
CLS
hpdf_New()
hb_Zebra()
Inkey(0)

RETURN



d:\temp>hbmk2 test
hbmk2: Processing environment options: -comp=mingw
hbmk2: Processing configuration: d:\harbour\bin\hbmk.hbc
Harbour 3.2.0dev (r2601171121 ...

... comp=mingw
Harbour 3.2.0dev (r2601091642)
Copyright (c) 1999-2025, https://harbour.github.io/
Compiling 'PAGO-GEMI.prg'...
Lines 1267, Functions/Procedures 5
Generating C source output to '.hbmk\win\mingw\PAGO-GEMI.c'... Done.
.hbmk/win/mingw/PAGO-GEMI.o:PAGO-GEMI.c:(.data+0xa8): undefined reference ...

... LETO

// =====================================================
// PONTO DE ENTRADA
// =====================================================
PROCEDURE MAIN()

LOCAL cIP := "127.0.0.1"
LOCAL cPort := "2830"
LOCAL nTimeOut := 10000
LOCAL nConectarLeto, nRes

// Fonte padrão
PUBLIC oFontPSW ...

... como usar harbour com sql, mais precisamente com postgresql.
Criei um trecho de código base com os principais comandos.


#require "hbpgsql"

PROCEDURE Main()

LOCAL conn, res
LOCAL cOpc := ""
LOCAL cDB := "minhabase"

CLS
? "Connecting to PostgreSQL (postgres database)..."

/* 1. Conecta ...

... array com os argumentos que serão passados para a função (opcional).
🧩 Exemplo prático
FUNCTION OlaMundo( cNome )
? "Olá, " + cNome
RETURN NIL

PROCEDURE Main()
LOCAL cFunc := "OlaMundo"
hb_gcall( cFunc, { "José" } )
RETURN


➡️ Nesse exemplo, a função OlaMundo() é chamada dinamicamente através ...

... previous change was not backwards compatible with hb_hrbLoad()
stealing character argument, that would be otherwise passed
to INIT PROCEDURE's in .hrb file

* src/include/hb_hrb.ch
+ add HB_HRB_ARG_PRGNAME definition
use to pass "virtual" script.prg filename as third parameter
hb ...

... Ensure it starts clean
IF __ObjHasMsg( oDlg, "GETLIST" )
oDlg:GetList := {}
ENDIF

__hwg_AddGetsRecursive( oDlg, oDlg )
RETURN Nil


STATIC PROCEDURE __hwg_AddGetsRecursive( oNode, oDlg )

LOCAL i, aChildren, nLen

IF oNode == Nil
RETURN
ENDIF

// If this node is a GET-like control (has ...

... pode ser fim de arquivo, e pode não ficar visível, dependendo do editor de textos.

Em harbour, vai testando caracteres até não sobrar nada.


PROCEDURE Main

LOCAL cTxt, cLetra

SetMode(33,100)
CLS
cTxt := MemoRead( "arquivo.hbp" )
FOR EACH cLetra IN cTxt
DO CASE
CASE cLetra ...