PC Toledo

Boas, estudando aqui também 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 ...

... Reajustei várias funções que tem retorno simples ou apenas mensagem, mas essas que retornam dados que não dá pra saber o que é pra um iniciando em SQL (begin at beginner) não sei como resolver:

ADOLOCAL(), NUMBERSQL(), DATESQL(), STRINGSQL(), ADORECCOUNT()

As primeiras lições já tudo ok ...

... 3
#define AD_USE_CLIENTBATCH 3

/* Constant Group: ObjectStateEnum */
#define AD_STATE_CLOSED 0
#define AD_STATE_OPEN 1
#define AD_STATE_CONNECTING 2
#define AD_STATE_EXECUTING 4
#define AD_STATE_FETCHING 8
#define AD_EXECUTE_NORECORDS 128

#define AD_SCHEMA_TABLES 20

#define SQL_CMD_MAXSIZE 256000

... diferentes.
E é praticamente tudo que usamos num aplicativo, que eu me lembre, ou pelo pouco uso em GUI que tenho.

Agora é acertar alguns detalhes que estão falhando, conforme a lib.
E ver o que mais poderia ser testado.

Isso tudo em DBF.
Em SQL depende de cada LIB, ainda está mais limitado pra SQL.

Agora vamos às pendências/falhas, por ser diferente por LIB/DBF/MySQL:

- precisa browse diferente pra DBF e pra SQL, nem toda lib tem recurso para os dois
- Acionar uma pesquisa em browse, pode ser por tecla ou button, nem toda lib tem recurso pra isso, e em algumas isso falha
- ao teclar enter no ...

Estou meio sem inspiração, e vi que tá faltando coisa no dlgauto.
Talvez porque tem todas as LIBs juntas, ou porque tem DBF e MySQL, que dependem de solução diferente.
Talvez todos possam ajudar a continuar o que falta, já que qualquer lib serve.

Basicamente é o que fazemos no dia a dia.

Como ...

No caso do MySQL, ou SQL, poderia pedir o SELECT se Empty(), apesar de também tomar tempo do servidor.
Por coincidência, olhei hoje:

modelos.png

Se eu fizer um SELECT * de 600.000 XMLs... vai ser uma eternidade.
Tenho um arquivo separado apenas pra consulta, e só pego XMLs quando necessário.
Os ...

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