09 Jul 2015 19:19
09 Jul 2015 19:22
c:\DataBase\EmpresaX
c:\DataBase\EmpresaY
c:\EmpresaX\Letodb.exe
c:\EmpresaY\Letodb.exe
09 Jul 2015 19:24
09 Jul 2015 19:26
09 Jul 2015 19:28
09 Jul 2015 20:27
2. Building binaries
The letodb server can be compiled only by the Harbour compiler, and client
library - both Harbour, and xHarbour. For OS Windows the letodb server can be
compiled as Windows service (the macro by __WIN_SERVICE__ should be initialized),
or as the daemon (process) for what it's necessary to set a macro __WIN_DAEMON__.
For Linux it is necessary to set a macro __LINUX_DAEMON__.
#-prgflag={win}-D__WIN_DAEMON__
-prgflag={win}-D__WIN_SERVICE__
-prgflag={win}-D__WIN_DAEMON__
#-prgflag={win}-D__WIN_SERVICE__
3. Running and stopping server
Just run it:
letodb.exe ( under Windows )
./letodb ( under Linux )
To shutdown the server, run the same executable with a 'stop' parameter:
letodb.exe stop ( under Windows )
./letodb stop ( under Linux )
09 Jul 2015 20:55
16 Jul 2015 10:33
PROCEDURE Main()
REQUEST LETO
LOCAL I
SETMODE(25,80)
CLS
IF Leto_Connect(ALLTRIM(MEMOREAD("LETODB.FLG"))) <> -1
RDDSETDEFAULT( "LETO" )
ELSE
Alert("Not connected")
QUIT
ENDIF
DBCREATE( "PRODUTOS", { { "PROD_ID", "C", 10, 0 },;
{ "DESC" , "C", 50, 0 } } )
DBCREATE( "VENDAS", { { "PROD_ID", "C", 10, 0 },;
{ "PRECO" , "N", 12, 2 } } )
USE PRODUTOS NEW
INDEX ON FIELD->PROD_ID TAG "ID"
APPEND BLANK
REPLACE FIELD->PROD_ID WITH "0000000001"
REPLACE FIELD->DESC WITH "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
APPEND BLANK
REPLACE FIELD->PROD_ID WITH "0000000002"
REPLACE FIELD->DESC WITH "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
USE VENDAS NEW
APPEND BLANK
REPLACE FIELD->PROD_ID WITH "0000000002"
REPLACE FIELD->PRECO WITH 2.00
SET RELATION TO FIELD->PROD_ID INTO PRODUTOS
INDEX ON PRODUTOS->DESC TAG "DESCRIPT"
SEEK "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
ALERT( VENDAS->PROD_ID + " " + PRODUTOS->DESC )
Return
16 Jul 2015 13:33
17 Jul 2015 08:16
janio escreveu:USE PRODUTOS NEW alias PRODUTOS
INDEX ON FIELD->PROD_ID TAG "ID"
17 Jul 2015 09:58
Function Main( cPath )
LOCAL I
REQUEST LETO
RDDSETDEFAULT( "LETO" )
SETMODE(25,80)
CLS
IF Empty( cPath )
cPath := "//127.0.0.1:2812/temp/"
ELSE
cPath := "//" + cPath + Iif( Right(cPath,1) $ "/\", "", "/" )
ENDIF
DBCREATE( cPath+"PRODUTOS", { { "PROD_ID", "C", 10, 0 },;
{ "DESC" , "C", 50, 0 } } )
DBCREATE( cPath+"VENDAS", { { "PROD_ID", "C", 10, 0 },;
{ "PRECO" , "N", 12, 2 } } )
USE (cPath+"PRODUTOS") NEW alias PRODUTOS
INDEX ON PROD_ID TAG "ID"
APPEND BLANK
REPLACE FIELD->PROD_ID WITH "0000000001"
REPLACE FIELD->DESC WITH "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
APPEND BLANK
REPLACE FIELD->PROD_ID WITH "0000000002"
REPLACE FIELD->DESC WITH "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
USE (cPath+"VENDAS") NEW
APPEND BLANK
REPLACE FIELD->PROD_ID WITH "0000000002"
REPLACE FIELD->PRECO WITH 2.00
SET RELATION TO FIELD->PROD_ID INTO PRODUTOS
Select Produtos
INDEX ON DESC TAG "DESCRIPT"
SEEK "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
ALERT( VENDAS->PROD_ID + " " + PRODUTOS->DESC )
Return
17 Jul 2015 13:26
janio escreveu: Select Produtos
INDEX ON DESC TAG "DESCRIPT"
17 Jul 2015 17:58
18 Jul 2015 01:59
janio escreveu:Tabela VENDAS não tem o campo DESC. como vc quer indexar por um campo q não existe na tabela?
18 Ago 2015 15:06