| ehabaziz2001@gmail.com 2005-09-09, 6:55 pm |
| How can I let set relation or equalivant command to meet a bench of
records not meet the one matched-key record in both 2 workarea as in
this program :
public aray[9]
use cust
index on custno to cust
select 2
use salesper
index on C_NUM to custno
select 1
set relation to C_NUM into salesper
aray[1]:="name"
aray[2]:="addr"
aray[3]:="city"
aray[4]:="state"
aray[5]:="zip"
aray[6]:="c_num"
aray[7]:="B->s_person"
aray[8]:="B->division"
aray[9]:="balance"
clear
@2,10say "General Inc., Customer Editing Screen"
dbedit (4,5,23,75,aray,"db_udf",,,,)
clear screen
return
function db_udf
para nmode,nfld
private getit:=aray[nfld]
do case
case nmode = 0
return 1
case nmode = 1 .OR. nmode =2
?chr(7)+chr(7)
return 1
case nmode = 3
?chr(7)+chr(7)
@24,10 say "No data to edit Press any key to return to
menu "
inkey(0)
return 0
case lastkey() = 27
return 0
case lastkey() = 13
set cursor on
@row(),col() get &getit
read
set cursor off
return 1
otherwise
return 1
end case
|