Workarea not in use
Posted: Tue Jan 22, 2008 11:18 am
I am facing that error with the last combobox (v_go_cocmbo) though that program working properly in old times . I am now 7.01 version.
Error description: Error DBCMD/2001 Workarea not in use: DBSETFILTER
Stack Calls
===========
Called from: => DBSETFILTER(0)
Called from: sitex.prg => RESET(5100)
Error description: Error DBCMD/2001 Workarea not in use: DBSETFILTER
Stack Calls
===========
Called from: => DBSETFILTER(0)
Called from: sitex.prg => RESET(5100)
Code: Select all
static function editcust( oLbx, lAppend )
*-------------------------------------------
local oDlg
LOCAL oCbx
LOCAL oCbx2
LOCAL oCbx3
Local oGet
Local oGet2
Local oGet3
local h:=0
local V_CU_ACCT:=space(10)
local V_CU_NAME:=space(50)
local V_cu_gove:=space(30)
local V_cu_city:=space(30)
local V_cu_coun:=space(30)
local V_cu_stre:=space(50)
local V_CU_phon:=space(30)
local V_CU_fax :=space(22)
local V_CU_mobi:=space(26)
local V_CU_MAN :=space(40)
local V_CU_appr:=space(8)
local v_co_cocmbo:=""
local v_ci_cocmbo:=""
local v_go_cocmbo:=""
local a_Fields[1]
local a_Vars[1]
local lSave := .f.
local nOldRec := RecNo()
local bFilter := ""
local cFilter := ""
local aItems:={}
select 1
use cust
INDEX ON (cust->cu_acct) TO cust
INDEX ON upper(cust->cu_name) TO cust1
INDEX ON upper(cust->cu_coun) TO cust2
INDEX ON upper(cust->cu_city) TO cust3
INDEX ON upper(cust->cu_gove) TO cust4
INDEX ON upper(cust->cu_stre) TO cust5
INDEX ON upper(cust->cu_phon) TO cust6
INDEX ON upper(cust->cu_fax ) TO cust7
INDEX ON upper(cust->cu_mobi) TO cust8
INDEX ON upper(cust->cu_man ) TO cust9
INDEX ON upper(cust->cu_appr) TO cust10
set INDEX TO cust
DEFAULT lAppend := .f.
if lAppend
GOTO BOTTOM
SKIP
else
goto nOldRec
V_CU_ACCT:=cust->CU_ACCT
V_CU_NAME:=cust->CU_NAME
V_cu_coun:=cust->CU_coun
V_cu_city:=cust->CU_city
V_cu_gove:=cust->CU_gove
V_CU_stre:=cust->CU_stre
V_CU_phon:=cust->CU_phon
V_CU_fax:=cust->CU_fax
V_CU_MAN:=cust->CU_MAN
V_CU_mobi:=cust->CU_mobi
V_CU_appr:=cust->CU_appr
endif
DEFINE DIALOG oDlg FROM 8, 2 TO 600, 700 PIXEL ;
TITLE If( lAppend, "New Customer", "Customer Update" )
@ 1,2 SAY "&Account No." OF oDlg PIXEL
@ 1,50 SAY ":" OF oDlg PIXEL
@ 1,60 GET V_CU_ACCT OF oDlg PIXEL
@ 15,1 SAY "&Name" OF oDlg PIXEL
@ 15,50 SAY ":" OF oDlg PIXEL
@ 15,60 GET V_CU_NAME OF oDlg PIXEL
@ 30,2 SAY "&Street" OF oDlg PIXEL
@ 30,50 SAY ":" OF oDlg PIXEL
@ 30,60 GET V_cu_stre OF oDlg PIXEL
@ 45,2 SAY "&Country" OF oDlg PIXEL
@ 45,50 SAY ":" OF oDlg PIXEL
@ 45,60 GET oGet VAR V_cu_coun OF oDlg PIXEL
@ 45,200 COMBOBOX oCbx VAR v_co_cocmbo ITEMS aBase1(1,"cust",256,"cu_coun");
SIZE 110,80 ;
OF oDlg PIXEL ;
ON CHANGE ( oGet:VarPut( PADR( v_co_cocmbo, 30 ) ),;
oGet:Refresh(),oDlg:Refresh());
valid ( reset( v_co_cocmbo, oCbx2, "cust","cu_city","cu_coun" ) , .t. )
@ 60,2 SAY "&City" OF oDlg PIXEL
@ 60,50 SAY ":" OF oDlg PIXEL
@ 60,60 GET oGet2 VAR V_cu_city OF oDlg PIXEL
@ 60,200 COMBOBOX oCbx2 VAR v_ci_cocmbo ITEMS aItems size 110,80 ;
OF oDlg PIXEL;
ON CHANGE ( oGet2:VarPut( PADR( v_ci_cocmbo, 30 ) ),;
oGet2:Refresh(),oDlg:Refresh());
VALID (reset( v_ci_cocmbo, oCbx3, "cust","cu_gove","cu_city" ), .t.)
@ 75,2 SAY "&Governer" OF oDlg PIXEL
@ 75,50 SAY ":" OF oDlg PIXEL
@ 75,60 GET oGet3 VAR V_cu_gove OF oDlg PIXEL
@ 75,200 COMBOBOX oCbx3 VAR v_go_cocmbo ITEMS aItems size 110,80 ;
OF oDlg PIXEL;
ON CHANGE ( oGet3:VarPut( PADR( v_go_cocmbo, 30 ) ),;
oGet3:Refresh(),oDlg:Refresh())
@ 95,2 SAY "&Phone" OF oDlg PIXEL
@ 95,50 SAY ":" OF oDlg PIXEL
@ 95,60 GET V_CU_phon OF oDlg PIXEL
@ 115,2 SAY "&Fax" OF oDlg PIXEL
@ 115,50 SAY ":" OF oDlg PIXEL
@ 115,60 GET V_CU_fax OF oDlg PIXEL
@ 130,2 SAY "Man" OF oDlg PIXEL
@ 130,50 SAY ":" OF oDlg PIXEL
@ 130,60 GET V_CU_MAN OF oDlg PIXEL
@ 145,2 SAY "Mobile" OF oDlg PIXEL
@ 145,50 SAY ":" OF oDlg PIXEL
@ 145,60 GET V_CU_mobi OF oDlg PIXEL
@ 160,2 SAY "Account Appr." OF oDlg PIXEL
@ 160,50 SAY ":" OF oDlg PIXEL
@ 160,60 GET V_CU_appr OF oDlg PIXEL
@ 280, 9 BUTTON "&Save" OF oDlg PIXEL SIZE 50, 12 ACTION ( lSave := .t. , oDlg:End() )
@ 280, 280 BUTTON "&Cancel" OF oDlg PIXEL SIZE 50, 12 ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
if lSave .and. !empty( V_CU_ACCT )
if lAppend
select 1
use cust
set index to cust
APPEND BLANK
else
select 1
use cust
set index to cust
GOTO nOldRec
endif
cust->CU_ACCT :=V_CU_ACCT
cust->CU_NAME :=V_CU_NAME
cust->cu_coun :=V_cu_coun
cust->cu_city :=V_cu_city
cust->cu_gove :=V_cu_gove
cust->cu_stre :=V_cu_stre
cust->CU_phon :=V_CU_phon
cust->CU_fax :=V_CU_fax
cust->CU_MAN :=V_CU_MAN
cust->CU_mobi :=V_CU_mobi
cust->CU_appr :=V_CU_appr
oLbx:Refresh() // We want the ListBox to be repainted
else
if Empty( V_CU_ACCT ) .and. lSave
MsgAlert( "Please write an contract account number " )
endif
select 1
use cust
set index to cust
oLbx:Refresh() // We want the ListBox to be repainted
GOTO nOldRec
endif
select 1
use cust
set index to cust
oLbx:Refresh() // We want the ListBox to be repainted
GOTO nOldRec
return nil
function reset( cItem,oCbx,cFile,fld_na,filter_name)
//---------------------------------------------------
local aItems:={}
local nArea:= select()
local y:=0
use (cFile) new
/*line 5100*/ set filter to cItem = &(filter_name)
go top
aAdd(aItems,space(256)) //Put First element empty
do while ! eof()
y:=ASCAN(aItems,(cFile)->&fld_na)
if y==0
aAdd(aItems,(cFile)->&fld_na)
dbSkip()
else
dbSkip()
endif
ENDDO
*use
*set index to
select( nArea )
oCbx:setItems( aItems )
oCbx:refresh()
return nil
![[img]http://img91.imageshack.us/img91/9615/erroriz8.th.png[/img]](http://img91.imageshack.us/my.php?image=erroriz8.png){kind=link}