PC Toledo

Olá!

Pequenas correções no código que postei acima:


#include "box.ch"

PROCEDURE Main()

LOCAL acMenuItems[4], nPos

acMenuItems[1] := " Cadastro 1 "
acMenuItems[2] := " Cadastro 2 "
acMenuItems[3] := " Cadastro 3 "
acMenuItems[4] := " Cadastro 4 "

CLS
DispBox( 9, 9, 13, 20, B_SINGLE ...

... Browse, AChoice() também faz. É só definir uma janela com quantidade de linhas inferior à quantidade de itens da lista...

#include "box.ch"

PROCEDURE Main()

LOCAL acMenuItems[4], nPos

acMenuItems[1] := " Cadastro 1 "
acMenuItems[2] := " Cadastro 2 "
acMenuItems[3] := " Cadastro 3 ...

... test1.prg
#require "rddsql"
#require "sddmy"

#include "dbinfo.ch"
#include "error.ch"

REQUEST SDDMY, SQLMIX

ANNOUNCE RDDSYS

FIELD RESIDENTS

PROCEDURE Main()

#if defined( __HBSCRIPT__HBSHELL )
rddRegister( "SQLBASE" )
rddRegister( "SQLMIX" )
hb_SDDMY_Register()
#endif

rddSetDefault ...

... 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 ...