Показать сообщение отдельно
  (#3 (permalink)) Старый
Gudvin Gudvin вне форума
Member
 
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 17.05.2007
По умолчанию 04.06.2007, 07:29

вот код
procedure TDataModule1.OPER_POSTExecute(Sender: TObject);
begin
if not
DataModule1.IBMARSH_KART.Locate('NOM_1_MARSH_KART' ,Form1.DBEdit19.Text,[lopartialKey])
then showMessage('нет такой маршрутной карты') else
begin
//Form1.DBGrid1.SetFocus;
DataModule1.IBOPER_KART.Post;
DataModule1.IBSODER_MARSH_KART.insert;
DataModule1.IBSODER_MARSH_KARTNOM_DEP_SODER_MARSH_ KART.Value:=DataModule1.IBOPER_KARTNOM_DEP_OPER_KA RT.Value;
DataModule1.IBSODER_MARSH_KARTNOM_YCH_SODER_MARSH_ KART.Value:=DataModule1.IBOPER_KARTNOM_YCH_OPER_KA RT.Value;
DataModule1.IBSODER_MARSH_KARTNOM_OPER_SODER_MARSH _KART.Value:=DataModule1.IBOPER_KARTNOM_OPER_OPER_ KART.Value;
DataModule1.IBSODER_MARSH_KARTNAME_OPER_SODER_MARS H_KART.Value:=DataModule1.IBOPER_KARTNAME_OPER_OPE R_KART.Value;
DataModule1.IBOPER_KART.Refresh;
DataModule1.IBSODER_MARSH_KART.Post;
end


end;
Ответить с цитированием
Ads