Показать сообщение отдельно
Старый 29.01.2018, 09:08   #3  
KiselevSA is offline
KiselevSA
Злыдни
Аватар для KiselevSA
Злыдни
Лучший по профессии 2015
 
958 / 333 (13) ++++++
Регистрация: 25.01.2002
Адрес: Москва
Готового нет. Но вот так,вроде, должно сработать:

X++:
InventTable		_inventTable;
EcoResProduct	_ecoResProduct;
ItemId			_itemId;
RefRecId		_recId;

while select forupdate _inventTable
{
	_itemId = _inventTable.ItemId;
	_recId = _inventTable.Product;
	if(_inventTable.validateDelete())
	{
		ttsbegin;
		_inventTable.delete();
		ttscommit;
	}
	else
	{
		info(strfmt("Error delete item %1", _inventTable.ItemId));
	}
	
	while select forupdate _ecoResProduct
	where
		_ecoResProduct.RecId == _recId
		{
			if( _ecoResProduct.validateDelete())
			{
				ttsbegin;
				_ecoResProduct.delete();
				ttscommit;
			}
			else
			{
				info(strfmt("Error delete product %1", _ecoResProduct.DisplayProductNumber));
			}
		}
}
__________________
люди...считают, что если техника не ломается, то ее не нужно ремонтировать. Инженеры считают, что если она не ломается, то нуждается в совершенствовании.