Добавляем сделку в коробке битрикс24

<?
	/* создаем сделку со сроком в неделю */
	$sevenup = mktime(date("H"), date("i"), date("s"), date("m")  , date("d")+7, date("Y"));
	$arFields = array(
		"CONTACT_ID"=>$_POST['user'],
		"TITLE"=>"Сделка ".$_POST['flatnum']."-".$_POST['position'],
		"CLOSEDATE"=>date("d.m.Y H:i:s",$sevenup),
		"STAGE_ID"=>"NEW",
	);
	$oLead = new CCrmDeal;
	$r = $oLead->Add($arFields, $bUpdateSearch = true, $options = array());	//добавляем сделку с соответствующим контактом
	$arFields = array(
		"CONTACT_ID"=>$_POST['user'],
		"TITLE"=>"Сделка ".$_POST['flatnum']."-".$_POST['position']."-".$r,	
		"CLOSEDATE"=>date("d.m.Y H:i:s",$sevenup),
		"STAGE_ID"=>"NEW",
	);
	/* обновляем название, добавляя ид в качестве постфикса */
	$oLead->Update($r, $arFields, $bCompare = true, $bUpdateSearch = true, $options = array());
	$arRows = array(
		array(
			"PRODUCT_ID"=>$_POST['flat'],
			"PRICE"=>$_POST['price']
		)
	);
	$oLead->SaveProductRows($r, $arRows, $checkPerms = true, $regEvent = true, $syncOwner = true);	//привязываем к только что созданной сделке товар