PC Toledo

... Red
4 Teal 9 Gray 14 Magenta
5 Dark Red 10 Blue 15 Yellow
16 White
-----------------------------------------------------------------------*/

PROCEDURE Main()
LOCAL oRtf, cPathImg := ""
LOCAL aFonts := { "Arial", "Courier New" }
LOCAL aTblMerge := {}
LOCAL aHeadersA, aHeadersB
LOCAL ...

... 1
DO PGM1
CASE choice = 2
DO PGM2
ENDCASE
ENDDO

SET COLOR TO W/N
@ 0, 0 CLEAR TO 29, 99

gthwg_CloseWindow()

RETURN Nil

STATIC PROCEDURE ZAGOL

DO SHADOW WITH 04, 63, 13, 94
SET COLOR TO +GR/B
@ 4, 63 CLEAR TO 13, 94
@ 4, 63 TO 13, 94
@ 5, 70 SAY "GTHWGUI DEMO PROGRAM"
@ 6 ...

... conditional guards with ULONG_PTR,
preventing C0000005 ACCESS_VIOLATION crashes under Win64 Clang environments.
- Upgraded dialog callback procedure signatures (s_ModalDlgProc, s_DlgProc,
s_PSPProc, s_PSPProcRelease) from LRESULT to INT_PTR to maintain stack
frame integrity on 64-bit systems ...

xMain.prg

#include "ouka/Megusta.prg"

PROCEDURE Main()
LOCAL r
REQUEST HB_CodePage_UTF8
HB_CdpSelect("UTF8")

r := Megusta():New()


CLS
r:rPrint("Esta eh uma mensagem de exemplo.")

r:rPrintln("Esta eh uma mensagem de exemplo.")

r:rPrintln()

nome := r:rInput("Qual eh o seu nome? ")
r ...

... METHOD mathSQRT1_2()
METHOD mathSQRT2()
METHOD mathMaxArr( ... )
METHOD mathMinArr( ... )
ENDCLASS


METHOD New() CLASS Megusta
return Self
/*
PROCEDURE Main

LOCAL x := 1.2

? "sin:", mathSin(x)
? "cos:", mathCos(x)
? "tan:", mathTan(x)

? "log:", mathLog(10)
? "log2:", mathLog2(8)

? "exp ...

... include "hwgui.ch"

// Certifique-se de salvar este arquivo .prg em formato UTF-8 no seu editor!
REQUEST HB_CODEPAGE_UTF8, HB_LANG_PT

PROCEDURE Main()
LOCAL oForm, oLabel1, oLabel2, oBtn
LOCAL cTextoPt, cTextoJap

// Configuração nativa do seu ambiente
HB_CDPSELECT("UTF8")
hb ...

... tests/test.prg do Harbour.


#require "rddsql"
#require "sddsqlt3"

#include "simpleio.ch"
#include "dbinfo.ch"

REQUEST SDDSQLITE3, SQLMIX

PROCEDURE Main()

LOCAL tmp

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

Set ...

... local: hbmk.hbm
Harbour 3.2.0dev (r2602281433)
Copyright (c) 1999-2025, https://harbour.github.io/
Compiling 'demo.prg'...
Lines 455, Functions/Procedures 3
Generating C source output to '/tmp/hbmk_6aw7lo.dir/demo.c'... Done.
itamar@itamar-I7:~/dev/hb32/contrib/hbsqlit3/tests$ ./demo

3.44.2 ...

... ambiente, preencher os dados da DPS e realizar a emissão síncrona da NFS-e:Snippet de código#include "nfse_nacional.ch"


#include "hbhash.ch"

PROCEDURE Main()
LOCAL oConfig, hDps, hRetorno

// 1. Configuração do Ambiente e Certificado Digital PFX
oConfig := TNfseConfig():New()
oConfig ...

... acentuados.

📁 Estrutura dos Arquivos

| Arquivo | Descrição |
| :--- | :--- |
| `demo_danfse.prg` | Programa de demonstração (ponto de entrada `PROCEDURE Main()`) para configuração do ambiente e chamada da geração do PDF. |
| `danfse.prg` | Função principal (`Danfse(cArquivo, cFilePdf ...

... return NIL

3. Instanciando e Usando o Objeto

Para criar e utilizar o objeto no seu programa principal, usamos o operador : (dois pontos).

PROCEDURE Main()
LOCAL oCliente

// Criando uma nova instância da classe Cliente
oCliente := Cliente():New( 101, "Carlos Andrade" )

// Executando os ...

... processado em uma variável para utilizá-lo no filtro (WHERE) da próxima consulta.Exemplo Prático em Harbourharbour

#include "sqlmix.ch"

PROCEDURE Main()
LOCAL cConnString, hConn
LOCAL nUltimoId := 0
LOCAL nItensPagina := 100

// 1. Conexão com o PostgreSQL via SQLMIX
cConnString := "PG ...

... interna que processa o loop em lotes e atualiza a tela
// --------------------------------------------------------------------------
STATIC PROCEDURE ProcessaMigracao(oDlg, oGauge, oLabel, nTotalReg, nLote)
LOCAL cSqlInsert := ""
LOCAL cValues := ""
LOCAL nContador := 0
LOCAL nProcessados ...

... básica de uma
tabela usando o TBrowseDB e a manipulação do headSep (separador do cabeçalho) e
colSep (separador das colunas): GitHub +1

clip

PROCEDURE Main()
LOCAL oBrowse, nKey

USE Clientes NEW

// Cria o browse na area de tela (linha/coluna)
oBrowse := TBrowseDB( 5, 10, 20, 70 )

// Configura ...

... vNF', IF( nComplementar = 1, '0.00', nValNot ) ),
IF( nImpVal = 0, '', ze_XmlTag( 'vTotTrib', nImpVal ) ),
'</ICMSTot>' );
...


No programa, basta chamar a stored procedure, e ela retorna o XML.
Pode ser harbour, hwgui, fivewin, minigui, python, php, asp, etc, até mesmo linux, android ou outro.