PC Toledo

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

... vem desde quando tinha o SAT...



Bom dia colega, a classe do Mestre Quintas, gera sim a danfe da nfe/nfce, pois uso a anos sem problemas

Procedure fNfeAssinar(nTipo, oArq, cId, cNf, cVarModelo, cAmbiente, cUf, cNrdoc, cCertificado, lCkVisual)
Local oSefaz:= SefazClass():New(), oXml:= Malc ...

... um exemplo simples de como instanciar a classe e iniciar a montagem de uma estrutura básica de nota fiscal no seu código Harbour:

Static Procedure fGerarxml()
Local oXml:= Malc_GeraXml():New(), i:= 0 // Chamar a classe para gerar xml nfe/nfce no objeto oXml

WaitWindow([Gerando Nfe ...

... Definition Language)
Comandos como CREATE, ALTER, DROP, ou TRUNCATE
executarão COMMIT sempre que completados com
sucesso.

- Blocos PL/SQL (Procedures, Functions)
Código executado entre os blocos BEGIN...END; padrão ou stored procedures não executarão AUTOCOMMIT em comandos DML (Data ...

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