PC Toledo

... com a IA CC (Claude Code), virou moda. Mas o que é para fazer mesmo cadê ? Cadê a HBBuilder ? Parou ? 2 dias já sem codificar nada... Agora tem DBFCDX criptografado https://github.com/carles9000/dbfcdxex etc,etc... pulverizando mais e mais... Vamos ver até onde irá essa nova "aventura"
itamar ...

... require "rddsql"
#require "sddodbc" //SQLMIX

#include "hwgui.ch"
#include "set.ch"
#include "dbinfo.ch"

REQUEST HB_CODEPAGE_UTF8EX
REQUEST DBFCDX, DBFFPT

//For MariaDB via SQLMIX
REQUEST SQLMIX, SDDODBC

MEMVAR cName, nIdContact, cPhantom
MEMVAR oName, oIdContact, oPhantom
MEMVAR lAdd ...

... ficou legal !!

quem quiser compilar em linux .. está funcionando com letodbf


#include "hwgui.ch"
#include "rddleto.ch"

REQUEST LETO
REQUEST DBFCDX
REQUEST DBFFPT

// =====================================================
// CADASTRO DE USUÁRIOS (PSW) + LOGIN (GTK/Linux)
// - Versão SEM ...

... isso ainda.
REQUEST HB_CODEPAGE_UTF8
REQUEST HB_CODEPAGE_UTF8EX
#endif

// EXTERNAL OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto
EXTERNAL _DBF, DBFCDX, DBFFPT, SQLRDD, SR_PGS
ANNOUNCE RDDSYS

FUNCTION Main()

LOCAL ScreenWidth := Wvt_GetScreenWidth(), ScreenHeight := Wvt_GetScreenHeight()

HB ...

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

*************
Function Main
*************
LOCAL ScreenWidth := Wvt_GetScreenWidth(), ScreenHeight := Wvt_GetScreenHeight()

#ifndef ...

... o cursor

REQUEST HB_CODEPAGE_PT850 // Coloca a CodePage em OEM Português
REQUEST HB_LANG_PT // Coloca as mensagens de erros em Português

REQUEST DBFCDX // Para usar o driver de índice CDX

//----------------------------------------------------------------------------//
FUNCTION Main ...

... se alguem puder me ajudar

// Arquivo: cadastro.prg

#include "inkey.ch" // Para teclas
#include "setcurs.ch" // Para o cursor

REQUEST DBFCDX // Para usar o driver de índice CDX

//----------------------------------------------------------------------------//
FUNCTION Main ...

... echo $(HBDIR)\lib\macro.lib + >> b32.bc
@echo $(HBDIR)\lib\rdd.lib + >> b32.bc
@echo $(HBDIR)\lib\dbfntx.lib + >> b32.bc
@echo $(HBDIR)\lib\dbfcdx.lib + >> b32.bc
@echo $(HBDIR)\lib\dbffpt.lib + >> b32.bc
@echo $(HBDIR)\lib\hbsix.lib + >> b32.bc
@echo $(HBDIR)\lib\debug.lib + >> b32.bc ...

... echo $(HBDIR)\lib\macro.lib + >> b32.bc
@echo $(HBDIR)\lib\rdd.lib + >> b32.bc
@echo $(HBDIR)\lib\dbfntx.lib + >> b32.bc
@echo $(HBDIR)\lib\dbfcdx.lib + >> b32.bc
@echo $(HBDIR)\lib\dbffpt.lib + >> b32.bc
@echo $(HBDIR)\lib\hbsix.lib + >> b32.bc
@echo $(HBDIR)\lib\debug.lib + >> b32.bc ...

... SET PROCEDURE TO funcoes.prg
No final de cada .prg.

Imagine ai o Apache rodar .HRB, muito bom.
Meu código está basicamente assim:

REQUEST DBFCDX, SQLMIX
MEMVAR cOpcao, cLogin, cTab
Function HRBMAIN
PARAMETERS cPar1, cPar2 (opcional)
LOCAL cHtml
Private cTab := ""
IF AbreDb(...)
(cAlias ...

... core/tree/master/contrib/rddads

Alguém se interessou ?
Qual a diferença ?

Como diz o Itamar.... SQL NATIVO NO HARBOUR
EXISTE DESDE ANTES DO RDD DBFCDX SER ESTÁVEL.
Pra quem não lembra, na versão 0.99 do harbour ou antes, era recomendado usar esse.
Depois começou a ficar estável, e passou a ser ...

... INDFREDT To IndFreSP
Index on Cod_Fre + Dtos(Dat_Emi) TAG INDFRECF To IndFreSP
EndIf

Else
Dialogo("Impossivel Abrir Arquivo ARQFRESP.DBF.......Tente Mais Tarde....")
Saida()
Quit
EndIf

Set Index To IndFreSP

Return


Alguém tem uma pista ?
Essa função funciona com o RDD DBFCDX, normalmente.

... of 10100 to reduce conflicts
with OPENSSL_CONFIGURED_API

2025-01-19 14:33 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/rdd/dbfcdx/dbfcdx1.c
% Removed always false dummy condition. For
pPage->TagParent->MaxKeys >= 2 &&
( ( iKeys + pPage->TagParent->MaxKeys - 1 )
/ pPage ...

... the RDD used to open the index. Usually, RDDs that are able to maintain multiple indexes in one index file support symbolic index names, such as DBFCDX, for example.
<xNewSetting>
<xNewSetting> is an optional argument specifying a new value for the index setting identified by <nDefine>. The data ...

... LIGAR, EU LIGARIA
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850 // PARA INDEXAR CAMPOS ACENTUADOS

ANNOUNCE RDDSYS // IDEM: ANNOUNCE FPTCDX
REQUEST DBFCDX, DBFFPT
*/

Function Main()
...
...

////////////////////////////////////////////////////////////////////////////////////////////
//Defini‡Æo dos ...