{
ProductionControlContract contract = this.parmDataContract() as ProductionControlContract;
fromDate = contract.parmFromDate();
toDate = contract.parmToDate();
selItemId = contract.parmItemNumber();
selSiteId = contract.parmSiteId();
ProdTable prodTable;
InventTable inventTable;
InventTrans inventTrans;
ProdTableJour pTJour;
InventTransOrigin inventTransOrigin;
ItemNumber iNum;
InventDim inventDim;
//select firstonly prodJournalProd
// inventTable.ItemId == selItemId;
while select prodJournalProd
where prodJournalProd.TransDate >= fromDate
&& prodJournalProd.TransDate <= toDate
&& prodJournalProd.ItemId == selItemId
join inventDim
where inventDim.InventSiteId == selSiteId
join prodTable
where prodTable.ProdId == prodJournalProd.ProdId
where inventTable.ItemId == prodJournalProd.ItemId
// prodJournalProd.ItemId == selItemId
where inventTransOrigin.ItemId == inventTrans.ItemId
where pTJour.ProdId == prodJournalProd.ProdId
&& pTJour.InventTransId == prodJournalProd.InventTransId
{
inventDim = InventDim::find(inventTrans.InventDimId);
reportTmp.TransDate = prodJournalProd.TransDate;
reportTmp.ItemNumber = prodJournalProd.ItemId;
reportTmp.ProductionId = prodJournalProd.ProdId;
reportTmp.QtyGood = prodJournalProd.QtyGood;
reportTmp.InventSiteId = inventDim.InventSiteId;
// reportTmp.ProdStatus = prodTable.ProdStatus;
reportTmp.TotalProductionInKG = inventTable.NetWeight;
reportTmp.FGCost = inventTrans.CostAmountPhysical;
if (pTJour.RecId)
{
if (pTJour.JournalType == ProdJourType::Release)
{
reportTmp.RMCost = pTJour.AmountPhysical;
}
else if (pTJour.JournalType == ProdJourType::RouteCard)
{
reportTmp.ResourceCost = pTJour.AmountPhysical;
}
}
}
}


Report
All responses (
Answers (