PC Toledo

... HB_SETCODEPAGE( "PT850" )
HB_CDPSELECT( "PTISO" )

#Endif

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

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

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

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

... 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( "DADOS.DBF" ) // Se o ...

... quando for usar o letodb ? e nao precisa stop ?

2-O DEFAULT_DRIVER é CDX
mas no aplicativa é pra usar 'LETO' ? CERTO ?
Rddsetdefault('LETO')
Dbsetdriver('LETO')


3-Como fazer se uso 2 pastas para os DBF, uma na matriz e outras nas filiais que usam dados em comum da matriz ?
\sistema\matriz usa ...

... do registro atual
// RETORNO : matriz com o registro atual
//



******************
FUNCTION Iniciar()
******************
local lRet := .T.

* dbsetdriver("DBFCDX")
lRefreshTelaProduto := .t.
wObj_Itens := {}


set confirm on
set deleted on
set bell off
set scoreboard off
set eventmask to ...

... ORDNAME,ORDNUMBER,ORDSETFOCUS,RDDLIST,RDDNAME,RDDREGISTER, ;
RECCOUNT,RECNO,RECSIZE,RLOCK,SELECT,USED,RDDSETDEFAULT,RDDSETDEFAULT,DBSETDRIVER

Olha lá ela sendo EVOCADA para ser linkada junto.
Em todo caso basta vc digitar ai xbscript e na linha de comando usar ? ordfor() que vai ...

... 17
e compilou normalmente sem erro, só fiquei curioso onde utilizar isso, kkkk!



Function Main()

REQUEST DBFCDX
RDDSETDEFAULT("dbfcdx")
DBSETDRIVER("dbfcdx")


set confirm On
set deleted on
set bell off
set scoreboard off
set date british
set epoch to 1950
Set date format to "DD/MM ...

... INI_PEGA_DADOS('SERVIDORJAF')

If wTipoConsulta=='S'
Return .f.
Endif

Set Defa to ( cLocaServ )
REQUEST DBFCDX
RDDSETDEFAULT("dbfcdx")
DBSETDRIVER("dbfcdx")

Iniciar()

Close all

Sele 1
Use CadSkus Alias Sku
Set index to CadSkus

Sele 2
use Produto alias Prod
Set index to Produto ...

... Val(INI_PEGA_DADOS("PORTA"))
cLocaServ := INI_PEGA_DADOS('SERVIDORJAF')

Set Defa to ( cLocaServ )
REQUEST DBFCDX
RDDSETDEFAULT("dbfcdx")
DBSETDRIVER("dbfcdx")

Iniciar()

Close all

Sele 1
Use CadSkus Alias Sku
Set index to CadSkus

Sele 2
use Produto alias Prod
Set index to Produto ...

... Function Spedpis()
REQUEST DBFCDX
RDDSETDEFAULT("dbfcdx")
DBSETDRIVER("dbfcdx")

set confirm on
set deleted on
set bell off
set scoreboard off

set date british
set epoch to 1950
Set date format to "DD/MM ...

... Main()
// Adicionada as 3 linhas + laço abaixo pra criar indices .CDX

set date fren
set cent on

request dbfcdx
rddsetdefault('dbfcdx')
dbsetdriver('dbfcdx')
Use Inotafc Index Inotafc Alias Pro
if ! file("inotafc.cdx")
* clos all
* use inotafc
index on numero tag Codigo to inotafc
index on ...

... FUNCTION Fecha_Index()

Form_Index.Release

RETURN NIL

////

FUNCTION SAC52000()

LOCAL Mindex := "N"

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

REQUEST DESCEND // Para for袲 a linkedi褯, sen䯠a fun褯 n䯠sobe para o .EXE / Dica do Clipper on Line, 16/11/16. (3.x)

SET EXCLUSIVE ON ...

... EPOCH TO 2000
SET CONFIRM ON
SET DELETED ON
SET EXACT OFF
SET SCOREBOARD OFF
SET EXCLUSIVE OFF

//*** DBFCDX Nativo ***
RddSetDefault('DBFCDX')
DBSETDRIVER('DBFCDX')

HB_SETCODEPAGE('PT850')
HB_LANGSELECT('PT')
HB_GTINFO( HB_GTI_FONTNAME , 'Consolas' )
HB_GTINFO( HB_GTI_FONTWIDTH, 18 )
HB_GTINFO( HB ...

... CENT ON
SET SOFT OFF
SET DATE BRIT
SET EPOC TO 1964
SET NAVIGATION EXTENDED
SET BROWSESYNC ON

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

DBUSEAREA( .T.,"DBFCDX", "SETCER" )
DBUSEAREA( .T.,"DBFCDX", "USUARIOS" )

IF ! FILE("*.CDX")
MSGINFO("SEM INDEXES, APÓS ...

... normal com harbour e xHarbour usando fivewin.


#include "FiveWin.ch"

Function Main()

Request DBFCDX, DBFFPT
RddSetDefault('DBFCDX')
DbSetDriver('DBFCDX')

Scroll()

If !File('Tabela.dbf')

aStructure:={}

AADD(aStructure,{'Texto','M',10,0})

DbCreate('Tabela.dbf',aStructure)

Use ...