FiveTech Software tech support forums

Like James suggested :

DBSELECTAREA("CUST")

@ 35, 15 XBROWSE oBrw OF oXbrDlg1 ;
SIZE 400, 176 PIXEL ;
ALIAS "CUST" CELL LINES
...
...

Best regards
Uwe

Hola
Estoy totalmente desorientado...ya probe de todo y no hay caso
hago
Dbusearea(.t.,,'Test',,.f.)
luego
Dbusearea(.t.,,'Test','Test2',.f.) NO DA NINGUN ERROR
Cuando digo
Dbselectarea('Test2') me tira ERROR 2001 WORKAREA NOT IN USE !!!!!!
USO HARBOUR V.3.00.00 + ADS 9.1 + FWH 10.1

SALUDOS

... to add a PROGRESSBAR, building a index with ORDCREATE ? ORDCREATE builds just ONE index < CUST.cdx > with embedded CUST1, CUST2 and CUST3 DBSELECTAREA("CUST") ORDCREATE( ,"CUST1","CUST_NO", {|| CUST_NO } , .F. ) ORDCREATE( ,"CUST2","LAST", ...

... 101 OF oDlg ; PROMPT "&Ingresos", "&Egresos" ; DIALOGS "ACTMOV", "ACTMOV" //---- Dialogo 1 -----// dbSelectArea("GUIINGAL") GUIINGAL->(OrdSetFocus("GUIINGA1")) REDEFINE XBROWSE oLbx ; FIELDS DTOC(GUIINGAL->GUIFEC),; Oemtoansi(GUIINGAL->DOC),; ...

... } STATIC FUNCTION Search(nKey,cBusca,oLbx) *-------------- If Nkey=8 cbusca:= SubStr(cbusca,1,Len(cbusca)-1) DBSELECTAREA(cMa_Arti) SET FILTER TO SET FILTER TO AllTrim(cBusca) $ (cMa_Arti)->Ma_Desc (cMa_Arti)->(DBGOTOP()) IF (cMa_Arti)->(EoF()) SET ...

resolvido: DbSelectArea("Nota") Nota->(DBSETORDER("Nota6")) SR_SETFILTER("Dfi_Nota >= '"+dtos(dData1)+"' and Dfi_Nota <= '"+dtos(dData2)+"'") Nota->(DbGoTop()) // añada ...

... mantenimiento del Maestro de Articulos, elija su opcion") OF oWnd DEFINE DIALOG oDlg RESOURCE "Mantenimientos2" OF oWnd FONT oFont dbSelectArea("MAEREP") MAEREP->(OrdSetFocus("MAEREP1")) REDEFINE XBROWSE oLbx ; FIELDS MAEREP->Codgru,; Oemtoansi(MAEREP->Grudes),; ...

... 10 INFO2 M 10 INFO3 M 10 http://www.pflegeplus.com/pictures/imglist.jpg STATIC FUNCTION PRINT_ST1() LOCAL oReport, aImgList := {} DBSELECTAREA("STYLE1") Maxbe printing with a defined Image-array ? DBGOTOP() I := 1 DO WHILE !EOF() AADD( aImgList, STYLE1->IMAGE ) DBSKIP(+1) ...

... .F. ENDIF RETURN(.T.) //------------------------------------------------------------------------------ FUNCTION SelTipMot() LOCAL oDlg, oLbx DbSelectArea(S02) (S02)->( SetSeek(STR(nCveMotiv,1)) ) DEFINE DIALOG oDlg RESOURCE "SELCAT" TITLE "Catálogo tipos de motivos" ...

André,

Thank You very much it is working now, adding the ALIAS to xBrowse.
Reading the Folderpages, at the end, the last defined DBSELECTAREA is activated
that was the problem.

Best Regards
Uwe

Try this in function Page1

Code: Select all  Expand view

@ 30, 25 XBROWSE oBrw1 SIZE 232, 178 PIXEL OF oFld:aDialogs[ 1 ] ALIAS  "ASCKEY"
 

... .. is used. Both tables using the same area, Maybe any working sample ? Using ARRAYS in the early release it was OK. Page 1 uses the last defined DBSELECTAREA("VKEY") from page 2 I added DBSELECTAREA("ASCKEY") at the end of page 2 After that, page 1 was OK and page 2 wrong. ...

... = LINESTYLE_BLACK oBrwGRU:nMarqueeStyle = MARQSTYLE_HIGHLROW oBrwGRU:CreateFromCode() oBrwGRU:Seek( str(mCODIINT,10) ) eFiltro1 := {|| DBSELECTAREA(EMPLEGRU) ,; (EMPLEGRU)->( OrdScope(BOTTOMSCOPE, str(mCODIINT,10) )) ,; (EMPLEGRU)->( OrdScope(TOPSCOPE, str(mCODIINT,10) )) ,; (EMPLEGRU)->(dbgotop()) ...

... the DBF database and so we work normally ... but when I run the SQL database is not working properly ... I do not know why! function TraPre(cmm) DBSelectArea("Trz") OrdSetFocus("TRZISNO") oNazPar :Refresh() if mRat>0 mTxt2="" mTxt3="" oTxt3 :refresh() ...

... ORDER by CODIGO LIMIT 20" if (select("fabricante")= 0) use sql (cmd) new shared alias fabricante fabricante->(dbgotop()) endif dbselectarea('fabricante') //SETA O ARQUIVO define dialog frmtelacad resource ("TELACAD") of frmcadproduto color nRgb(0,0,0),RGB(102,153,255) ...