PC Toledo

... ENDDO


Isso, por si só, já está lendo registros.
E o registro contém.... campos incluindo memo

Sei lá se o letodbf vai fazer diferente.
Se testa Empty() ou não.... o registro já vai ter vindo.
SQL também seria assim, a não ser que peça length() ou algo assim, e só depois peça o "memo" individual.

Precisa sair do modo console (texto) para o modo gráfico, não sabe como, quer sair do DBF para o SQL, e tem dificuldade, adquira o Pacote xBase, são vários sistemas prontos com código fonte (prg), que usam Harbour e MiniGUI Extended PRO, além de ter todos os fontes, escritos de forma clara e objetiva ...

Resolvido...

Boa tarde ...

Alguém teria um arquivo V1_0_13__anexo.sql da Calculadora de Tributos da Reforma Tributária sobre o Consumo mais recente ?...
A que possuo vai apenas ate o ANXO_ID "821" e esta gerando sobre FOREIGN KEY(NBSA_ANXO_ID) REFERENCES ANEXO(ANXO_ID)...

... porque significa poder compactar arquivos de 1GB por exemplo, sem problema.
Acima disso, com certeza só 64 bits.

Aqui por exemplo, meu backup do SQL é dividido em arquivos de 1GB.
Isso permite um ZIP com mais de 4GB de conteúdo, zipando um arquivo por vez.
Acho que é o único local aonde ...

... HB_CODEPAGE_PTISO

#include "inkey.ch"

PROCEDURE Main

LOCAL aList, aItem

Set( _SET_CODEPAGE, "PTISO" )

aList := MemoRead( "d:\fontes\integra\sql\json\classtrib.json" )
aList := hb_JsonDecode( aList )
FOR EACH aItem IN aList
? aItem[ "Código da Situação Tributária" ]
? aItem[ "Descrição do ...

... AppImpressora := xValue
ENDIF
RETURN xValue
...
AppImpressora( "EPSON" )
? AppImpressora()


- DBF ou equivalente
Pode usar um DBF ou uma tabela SQL pra determinadas configurações

cImpressora := AllTrim( dbfsetup->Impressora )


Em GUI ou multithread pode ter necessidades diferentes.
DBF ou ...

Só alterar aquele IF.
Em SQL também Atualizei nos dois endereços que passei do github.

... trabalhar LOCAL/SEM SERVIDOR.
Na string de conexão é definir que se trata de uso local,.
Só precisa baixar o ODBC do ADS, igual faria pra Excel, MySQL, SQL Server, SQLite, e todos os outros que permitem acesso por ODBC

Se tiver um programa de acesso que aceite ODBC, tá feito, pode usar qualquer ...

Bom dia, Pessoal.

Quintas, onde acho esse ADS que permite usar comandos SQL nos DBFs? Lembro que li algo no seu tutorial de ADO mas tinha uma questão disso aí ser pago ou ser algo propretário, sei lá. Se falei besteira, me perdoe. Se isso founcionar mesmo com DBF pode ser uma mão na roda.

Amigo meu ...

Tem o plano B:

Se existe programa de SQL que aceite ODBC, pode usar o ODBC local de ADS e trabalhar com DBF usando comando SQL !!!!

... pra todas as UFs
oSefaz:cCertificado := "nome do certificado"
cXml := MemoRead( "arquivo.xml" ) // pra ficar claro que é o conteúdo, que pode vir do SQL ou uma variável qualquer
cRetorno := oSefaz:NfeEnvio( cXml ) // retorno pode ser autorizado ou não
// detalhes
? oSefaz:cMotivo
? oSefaz:cStatus ...

Nada definitivo, só testes aleatórios


STATIC FUNCTION Update0717()

LOCAL cnSQL := ADOLocal(), cTabela, cSQL

SayScroll( "2025-07-15 Atualização" )

IF ! IsMaquinaJPA()
RETURN Nil
ENDIF

WITH OBJECT cnSQL
IF ! :FieldExists( "TRCLAFIS", "JPTRANSACAO" )
:ExecuteNoReturn( "ALTER TABLE ...

Tente assim e me fale... Pls.


// PRODATA.PRG

#include "versao.ch"
#include "wvtwin.ch"
#include "sqlrdd.ch" // para trab. bd sql
#include "pgs.ch" // habilita postgresql (usamos este)

EXTERNAL HB_LANG_PT, HB_CODEPAGE_PTISO, HB_CODEPAGE_PT850

#ifNdef __XHARBOUR__ // Somente para HARBOUR, XHARBOUR ...

... o código tá assim:

#ifndef __XHARBOUR__
request hb_codepage_pt850
request hb_lang_pt
#endif

#include "versao.ch"
#include "wvtwin.ch"
#include "sqlrdd.ch" && para trab. bd sql
#include "pgs.ch" && habilita postgresql (usamos este)

REQUEST SQLRDD
REQUEST DBFCDX
REQUEST SR_PGS ...