PC Toledo

Vamos por etapas, com certeza algo eu fiz errado :
Código para conectar ao banco Oracle :
rddSetDefault( "SQLMIX" )
/*
conectar com o banco : oracle
*/
cRDD := "SQLMIX"

oCon := RDDInfo( RDDI_CONNECT, {"OCILIB", "localhost", "system", "102030", "oracle18c"}, cRDD )

IF oCon == NIL
alert("Erro ...

... PROCEDURE Main()

#if defined( __HBSCRIPT__HBSHELL )
rddRegister( "SQLBASE" )
rddRegister( "SQLMIX" )
hb_SDDMY_Register()
#endif

rddSetDefault( "SQLMIX" )

AEval( rddList(), {| x | QOut( x ) } )

IF rddInfo( RDDI_CONNECT, { "MYSQL", "localhost", "test", , "test" } ) == 0
? "Unable ...

... Controls of Dialog
Local aStructure, lSQL := .F.

Private nIdContact, cName, cPhantom := space(1) //Fields of DataBase
Private lAdd := .F.

rddSetDefault("DBFCDX")
Set Autopen On
hb_cdpSelect("UTF8EX")

aStructure := { { "idcontact" ,"+",04,0} ,; //Auto increment
{ "name" ,"c",60,0} }

If ...

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