PC Toledo

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

Como você inicializa o seu MENU PRINCIPAL, assim?


REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

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

FUNCTION Main()

HB_GCALL( .F. )

HB_LANGSELECT( 'PT' )
HB_SETCODEPAGE( "PT850" )
HB_CDPSELECT( "PTISO" )

RDDSETDEFAULT("DBFCDX ...

... aDbfStruct, i
LOCAL lCreateTable := .F.
LOCAL oServer, oTable, oRecord

Set( _SET_DATEFORMAT, "yyyy-mm-dd" )

// At present time (2000-10-23) DBFCDX is default RDD and DBFNTX is
// now DBF (I mean the one able to handle .dbt-s :-))
rddSetDefault( "DBF" )

IF PCount() < 6
help()
QUIT
ENDIF ...

Olá!
Um exemplo de como é o uHTTPD.

REQUEST DBFNTX, DBFCDX, DBFFPT, DBFDBT
REQUEST HB_LANG_PT, HB_CODEPAGE_PTISO, HB_CODEPAGE_PT850, HB_CODEPAGE_UTF8EX

#xcommand TEXT TO VAR <var> => #pragma __stream|<var>:=%s
#xcommand ENDTEXT => #pragma __endtext
MEMVAR cTable
FUNCTION HRBMAIN(...) //Posso ...