Обновить экран

[Sytin]

есть две панели.Хочу чтобы при изменении поля во 2-й панели,автоматически менялось поле в первой.Вот код

interface GroupCtrlGraph 'Љ®а४вЁа®ўЄ  бЄЁ¤®Є Ї® ЈагЇЇ ¬' ('Љ®а४вЁа®ўЄ  бЄЁ¤®Є Ї® ЈагЇЇ ¬');
Show at(1,1,60,40);
create view
var
date1:string;
number:string;
kontrag:string;
total:double;
as select TableGroupMC.*,
TableUGroupMC.*
from TableGroupMC,
TableUGroupMC
where ((TableGroupMC._NRecGMC==TableUGroupMC._cGMC));

parameters
number,date1,kontrag,total;

screen MainScr 'Љ®а४вЁа®ўЄ  бЄЁ¤®Є Ї® ЈагЇЇ ¬';
show at (1,1,58,6);
fields
date1;
number;
kontrag;
total;
buttons
cmButOk;
cmButCancle;
<<
„ в  .@@@@@@@@ Ќ®¬Ґа .@@@@@@@@ <.ЏаЁ­пвм.> <.Ћв¬Ґ­Ёвм.>
Љ®­ва ЈҐ­в .@@@@@@@@@@@@@@
Summa .@@@@@@@@@@
>>
end;

panel Groups;
table TableGroupMC;
browse Groups;
show at (1,7,58,18);
fields
TableGroupMC._kodG 'Љ®¤ ЈагЇЇл' :[8];
TableGroupMC._NameG 'Ќ Ё¬Ґ­®ў ­ЁҐ ЈагЇЇл':[20];
Tablegroupmc._kolg 'Є®«-ў®':[6];
TableGroupMC._SkidkaG '%':[5];
TableGroupMC._CenaG 'ЃҐ§ бЄЁ¤ЄЁ':[8];
TableGroupMC._CenaGSkid 'So бЄЁ¤ЄЁ':[8];
end;
HandleEvent
cmUpdateRecord:{
if(message('Do you want change Skid?',YesNo)=cmYes){
update current TableGroupMC;
_cenaGskid:=_cenaG*(1-_skidkaG/100);
update current TableGroupMC;
RunInterface(SetUGroupSkid,_NrecGMC,_SkidkaG);
RescanPanel(Groups);
}
}
end;
end;

panel UGroups;
table TableUGroupMC;
browse UGroups;
show at (1,19,58,);
fields
TableUGroupMC._kodUG 'Љ®¤ Ї®¤ЈагЇЇл':[8];
TableUGroupMC._NameUG 'Ќ Ё¬Ґ­®ў ­ЁҐ Ї®¤ЈагЇЇл':[20];
TableUGroupMC._kolUG 'Є®«-ў®':[6];
TableUGroupMC._SkidkaUG '%':[5];
TableUGroupMC._CenaUG 'ЃҐ§ бЄЁ¤ЄЁ':[8];
TableUGroupMC._CenaUGSkid 'So бЄЁ¤ЄЁ':[8];
end;
handleEvent
cmSetDefault:
TableUGroupMC._cGMC := TableGroupMC._NRecGMC;
cmUpdateRecord:{
if(message('Do you want change Skid?',YesNo)=cmYes){
update current TableUGroupMC;
_cenaUGskid:=_cenaUG*(1-_skidkaUG/100);
update current TableUGroupMC;
RunInterface(SetGroupSkid,_NrecGMC);
RescanPanel(Groups);
RescanPanel(UGroups);
}
}
end;
end;

handleEvent
cmOk : PutCommand (cmDefault);
cmInit:{
_loop TableUGroupMC{
_SkidkaUG:=(1-_CenaUGSkid/_CenaUG)*100;
update current TableUGroupMC;
}
_loop TableGroupMC{
_SkidkaG:=(1-_CenaGSkid/_CenaG)*100;
update current TableGroupMC;
}
}
end;
end.

[Sytin]

Все я сам разобрался.