James Bott wrote:Another way to do this is with an array and an array class that emulates the database class.
I started on this years ago and I don't remember if I ever finished it.
James
.I made TArray long back for personal use. One of my friend programmer liked it and he uses extensively than me.
After I learnt about this dbftemp, I am advising him also to use this dbftemp instead of my TArray class. Dbf has more facilties like setting relations and a lot more
James Bott wrote:Rao,.I made TArray long back for personal use. One of my friend programmer liked it and he uses extensively than me.
After I learnt about this dbftemp, I am advising him also to use this dbftemp instead of my TArray class. Dbf has more facilties like setting relations and a lot more
I am going to give it a try. I wrote my TArray specifically so I could use the Report class with an array. It works well for that. I expect the dbftemp would work just as well I expect.
James
MarcoBoschi wrote:I'll test it very soon and then I'll know you if
it's faster than my current system based on an array that run on server
Many thanks
ARQ1:="mem:"+alltrim(NomeUsuario)+"1"
aStruct_ARQ1:={{ "QTPD", "N", 05, 0 },;
{ "QTST", "N", 05, 0 },;
{ "QTCL", "N", 05, 0 },;
{ "QTD1", "N", 05, 0 },;
{ "VLR1", "N", 12, 2 },;
{ "QTD2", "N", 05, 0 },;
{ "VLR2", "N", 12, 2 },;
{ "QTD3", "N", 05, 0 },;
{ "VLR3", "N", 12, 2 },;
{ "QTD4", "N", 05, 0 },;
{ "VLR4", "N", 12, 2 },;
{ "VEND", "C", 14, 0 },;
{ "NOMV", "C", 40, 0 },;
{ "FILX", "C", 02, 0 },;
{ "FILI", "C", 02, 0 },;
{ "CTRL", "N", 04, 0 },;
{ "IMPR", "L", 01, 0 }}
dbCreate( Arq1, aStruct_ARQ1, "DBFCDX")
use &ARQ1 alias AREA1 new exclusiv
inde on FILX+NOMV+VEND to &ARQ1
.
.
.
.
AREA1->(dbclosearea())
DBDROP(arq1)
/*
* This is a Array RDD, or Memory RDD.
* It works only in memory and actually supports standard dbf commands
* excepts relations
*/
/*
* Harbour Project source code:
* ARRAY RDD
*
* Copyright 2006 Francesco Saverio Giudice <info / at / fsgiudice / dot / com>
* Copyright 2011-2013 Quique <quique@quiquesoft.com> (Index, locate and filter Support)
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 50 guests