This the only large query...
display TransDate GetDateSum(InventSum _inventSum)
{
TransDate fecha, fecha1;
InventTrans invTrans;
InventTransOrigin invOrigin;
InventDim invDim;
str sPallet, sItemId;
;
sPallet = _inventSum.wmsPalletId();
select minOf(DatePhysical)
from invTrans
join invDim
join invOrigin
where _inventSum.ItemId == invTrans.ItemId &&
invTrans.InventTransOrigin == invOrigin.RecId &&
invDim.inventDimId == invTrans.InventDimId &&
(invTrans.StatusReceipt == StatusReceipt::Purchased ||
invTrans.StatusReceipt == StatusReceipt::Received ||
invTrans.StatusReceipt == StatusReceipt::Registered) &&
invDim.wMSPalletId == _inventSum.wmsPalletId() &&
(invOrigin.ReferenceCategory == InventTransType::InventTransaction ||
invOrigin.ReferenceCategory == InventTransType::Purch ||
invOrigin.ReferenceCategory == InventTransType::InventLossProfit ||
invOrigin.ReferenceCategory == InventTransType::InventTransfer ||
invOrigin.ReferenceCategory == InventTransType::InventCounting||
invOrigin.ReferenceCategory == InventTransType::ProdLine ||
invOrigin.ReferenceCategory == InventTransType::QuarantineOrder ||
invOrigin.ReferenceCategory == InventTransType::Production )
;
return invTrans.DatePhysical;
}