PC Toledo

... HB_LANGSELECT( 'PT' )
HB_SETCODEPAGE( "UTF8" )
HB_CDPSELECT( "UTF8EX" )
HB_SETCODEPAGE( "PT850" )
HB_CDPSELECT( "PTISO" )

#Endif

RDDSETDEFAULT("DBFCDX")
RDDREGISTER( "DBFCDX", 1 ) // RDT_FULL

/*
// dbSetDriver( "DBFCDX" )
// SET DBFLOCKSCHEME TO 3 // ???
// rddSetDefault( "DBFCDX ...

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

#ifndef __XHARBOUR__
HB_SETCODEPAGE( "PT850" )
//HB_CDPSELECT( "PTISO" )
set(_SET_HBOUTLOG)
#endif

DbSetdriver("DBFCDX")
Set DbfLockScheme to 3

RddSetDefault("DBFCDX")

Wvt_Core()
Wvt_Utils()
Wvt_Setcodepage(255)

... padrão é 0 (zero)

SET DATE BRIT // define datas no formato "britanico/brasileiro"

SET CENTURY ON // Habilita data com ano de 4 dígitos

RDDSETDEFAULT( "DBFCDX" )
DBSETDRIVER( "DBFCDX" )

HB_LANGSELECT( "PT" )
HB_CDPSELECT( "PT850" )

SETMODE( 25, 80 ) // Define modo de tela

IF ! FILE ...

... SEU
HB_LANGSELECT( 'PT' ) // Default language is now Portuguese
HB_SETCODEPAGE( "PT850" )
HB_CDPSELECT( "PTISO" )
*/

/* // CRITERIO SEU
RDDSETDEFAULT("DBFCDX")
RDDREGISTER( "DBFCDX", 1 ) // RDT_FULL -> 20/10/2022 Joao
*/

// COMO EU VEJO A LOGICA:
SET CENTURY ON
SET DATE BRITISH
SET ...

... FPTCDX
REQUEST DBFCDX, DBFFPT

FUNCTION Main()

HB_GCALL( .F. )

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

RDDSETDEFAULT("DBFCDX")
RDDREGISTER( "DBFCDX", 1 )

SET CENTURY ON
SET DATE BRITISH
SET TIME FORMAT TO "HH:MM:SS"
SET EPOCH TO YEAR( DATE() ) - 30
SET ...

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

i := 1
// Scan parameters and setup workings
DO WHILE i <= PCount()

cTok := hb_PValue( i ...

... LOCAL cCodigo := AllTrim(uhttpd_GetField( "cCodigo" ))
LOCAL cPathDados := "\GrupoWEB\dados\", lShared := .T., nTotal := 0
PRIVATE cTable := ""
RddSetDefault("DBFCDX")
SET EXCLUSIVE OFF
SET DELETED ON
SET DATE FORMAT TO "dd/mm/yy"
hb_cdpSelect("PTISO")
hb_langSelect("PT")

IF AbreDb(cPathDados ...

... gmail.com - 11/07/2024 - Joao.

#include "FiveWin.ch"

ANNOUNCE RDDSYS
REQUEST DBFCDX, DBFFPT

STATIC oWnd

FUNCTION Main()

LOCAL oBar

RDDSETDEFAULT("DBFCDX")
RDDREGISTER( "DBFCDX", 1 ) // RDT_FULL -> 20/10/2022 Joao

SET CENTURY ON
SET DATE BRITISH
SET TIME FORMAT TO "HH:MM:SS"
SET ...

... serverjpa\rede\temp"
LOCAL nCodIni := 5000 // PODE SE DIGITAR EM UM GET
LOCAL nCodFin := 19999 // PODE SE DIGITAR EM UM GET
LOCAL cAlias

RDDSETDEFAULT("DBFCDX")
RDDREGISTER( "DBFCDX", 1 ) // RDT_FULL -> 20/10/2022 Joao

SET CENTURY ON
SET DATE BRITISH
SET TIME FORMAT TO "HH:MM:SS"
SET ...

Olha ai ....


REQUEST DBFCDX
REQUEST LETO

*---------------*
FUNCTION MAIN()
*---------------*
RddSetDefault("LETO")

cIP:= BUSCA_IP_ARQINI()
//cIP:="localhost"
cPort:="2812"

public cPathLeto := "//"+cIP+":"+cPort+"/"

nTimeOut := -1
nHotBuf := 10

if cIP # "localhost" .and. cIP # "127.0.0.1 ...

... 0, .T.)
WVW_maximize()
wvw_noclose(1)

oDB_Server:="192.168.1.11"
oDB_Porta :="2812"
oDB_Path :="//"+oDB_Server+":"+oDB_Porta+"/"
RDDSetDefault("LETO")
nPasta :="\LETO\" ///PASTA DO BANDO DE DADOS
nConect := leto_Connect( oDB_Path )
w_vTXT:=""
If nConect == -1
bRet:=.F.
nRes ...

... sddodbc"
#include "dbinfo.ch"

REQUEST SQLMIX, SDDODBC

PROCEDURE Main()

LOCAL nConnection, nI, aI
Set( _SET_DATEFORMAT, "dd-mm-yyyy" )
rddSetDefault( "SQLMIX" )
nConnection := rddInfo( RDDI_CONNECT, { "ODBC", "Server=DESKTOP-MP8Q5KH\SQLEXPRESS;Driver={SQL Server};dsn=;User=DESKTOP-MP8Q5KH ...

... está ativando(usando) o letodb
Tá conectando ?
REQUEST DBFCDX, DBFFPT, DBFDBT, LETO
Function main
LOCAL cServidor := "\\192.168.0.85:2812\"
RDDSetDefault("LETO")
nConect := leto_Connect( cServidor )
use paiva\sdata new shared
browse()


Teste assim, com PRG bem pequeno. Não tem como saber ai seu ...

... PARA INDEXAR CAMPOS ACENTUADOS
REQUEST DBFCDX, DBFFPT
HB_LangSelect([PT])
HB_SETCODEPAGE([PT850]) &&& PARA INDEXAR CAMPOS ACENTUADOS
RDDSETDEFAULT([DBFCDX])

Set Wrap On
Set Talk Off
Set Date Briti &&& data no formato dd/mm/aaaados
Set Dele On &&& ignora registros marcados por deleção ...

... parameters us, vers //entrada, versentrada
Local cProc
private conexao
public ptreceb :=""
public ptbase :="\tarefas"
setcancel(.f.)

RDDSETDEFAULT("DBFNTX")
HB_SETCODEPAGE('PT850')
HB_LANGSELECT('PT')


set color to w/b,b/w
cls

@ 1,25 say "Menu consultar"
@ 2,0 to 2,maxcol() double ...