Alexxz187Sergey Sizov,

If !Used('Tmp_pl') Or !Used('Tmp_ml')
Return
Endif

lnNz=0
lnKz=0
Select Tmp_ml
If eof()
Go Top
Endif
lnNz=Recno('Tmp_ml')
Count All To lnKz
If lnKz=0
Return
Endif


Scan All
lnG_r = (Tmp_ml.g_s + Tmp_ml.g_zv + Tmp_ml.g_zt - Tmp_ml.g_rt) - Tmp_ml.g_f
lnG_rn = (Tmp_ml.w_h * tmp_pl.n_hh) + (Tmp_ml.w_p * tmp_pl.n_p00 / 100) + (Tmp_ml.w_v * tmp_pl.n_v00)
lnG_o = lnG_rn - lnG_r
Replace g_r WITH lnG_r, g_rn With lnG_rn, g_o With lnG_o In Tmp_ml
Endscan

Select Tmp_ml
Go Top
Sum g_zv, g_zt, g_r, g_rn, g_o, w_h, w_p, w_v All To sG_zv, sG_zt, sG_r, sG_rn, sG_o, sW_h, sW_p, sW_v
Replace g_v With sG_zv+sG_zt, ;
g_r With sG_r, ;
g_o With sG_o, ;
w_h With sW_h, ;
w_p With sW_p, ;
w_v With sW_v In tmp_pl


Go lnNz
Thisform.Refresh

подозреваю где то здесь

В первом посте написано "при добавлении НОВОЙ записи". В этом коде нет добавления новой записи, а только редактирование.