PriceEntryDlg::PriceEntryDlg()
{
	CtrlLayoutOKCancel(*this, "Entry");
	ctrls
		(IMPRESSIONS, impressions)
		(REGION, region)
		(DURATION, duration)
		(PRICE, price)
	;
}

void ProductSchemaDlg::NewPe()
{
	if(!product.IsCursor())
		return;
	PriceEntryDlg dlg;
	if(dlg.Execute() == IDOK) {
		SQL * dlg.ctrls.Insert(PRICE)(PRODUCT_ID, product.GetKey());
		int id = SQL.GetInsertedId();
		price.ReQuery();
		price.FindSetCursor(id);
	}		
}

void ProductSchemaDlg::EditPe()
{
	int id = price.GetKey();
	if(IsNull(id))
		return;
	PriceEntryDlg dlg;
	dlg.ctrls.Load(PRICE, ID == id);
	if(dlg.Execute() == IDOK) {
		SQL * dlg.ctrls.Update(PRICE).Where(ID == id);
		price.ReQuery();
	}
}

SqlCtrls ctrls;
Value currendId;  // -> pointer to table row key id
...
ctrls
      (ID, idedit)
      (FIELD1, field1edit)
      ...
      (FIELDN, fieldnedit)
;
...
forwardbutton <<= THISBACK(MoveForward);
...
void MoveForward()
{
  if(ctrls.IsModified())
     SQL * ctrls.Update(TABLE).Where(ID == currentId);
  SQL * Select(SqlMin(ID)).From(TABLE).Where(ID > currentId));
  if(SQL.Fetch())
     currentId = SQL[0];
  ctrls.Load(SQL, TABLE, ID == currentId);
  ctrls.ClearModify(); // <-- reset modify flag
}