alias does not exist
Posted: Tue Jul 18, 2006 5:51 am
I simulate fwbrow.prg and I faced the error alias does not exist though I have put use all over the module .
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
local V_CU_NAME
local V_cu_stre
local V_cu_gove:=space(30)
local V_cu_city:=space(30)
local V_cu_coun:=space(30)
local v_co_cocmbo:=""
local v_ci_cocmbo:=""
local v_go_cocmbo:=""
local a_Fields[1]
local a_Vars[1]
local V_CU_phon
local V_CU_fax
local V_CU_MAN
local V_CU_mobi
local V_CU_appr
local lSave := .f.
local nOldRec := RecNo()
local bFilter := ""
local cFilter := ""
local aItems:={}
DEFAULT lAppend := .f.
if lAppend
GOTO BOTTOM
SKIP
endif
select 1
*use cust
nOldRec := RecNo()
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
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 aBase(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 Name" 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
APPEND BLANK
else
select 1
use 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