Announcements
[AifCollectionTypeAttribute('return', Types::Class, classStr(OEI1INStagingStockTransferHirarchyJSONResponse))]
public List processStockTransfer(OEI1INStagingStockTransferJSONRequest _stockTransferRequest)
{
Query query = new Query(queryStr(OEI1INStagingStockTransferQuery));
List itemList = new List(Types::Class);
ListEnumerator requestEnumerator = _stockTransferRequest.OEI1INStagingStockTransferContract().getEnumerator();
while (requestEnumerator.moveNext())
{
OEI1INStagingStockTransferContract requestStockTransfer = requestEnumerator.current();
try
{
QueryBuildDataSource transferCustDs = query.dataSourceTable(tableNum(OEI1INStagingStockTransferCustomer));
if (requestStockTransfer.parmCustomerCode())
{
QueryBuildRange custCodeRange = SusQuery::findOrCreateRange(transferCustDs, fieldNum(OEI1INStagingStockTransferCustomer, CustomerCode));
custCodeRange.value(queryValue(requestStockTransfer.parmCustomerCode());
}
QueryRun queryRun = new QueryRun(query);
while (queryRun.next())
{
OEI1INStagingStockTransferHeader stagingStockTFHeader = qRun.get(tableNum(OEI1INStagingStockTransferHeader));
OEI1INStagingStockTransferCustomer stagingStockTFCustomer = qRun.get(tableNum(OEI1INStagingStockTransferCustomer));
OEI1INStagingStockTransferItem stagingStockTFItem = qRun.get(tableNum(OEI1INStagingStockTransferItem));
// A method you should create
OEI1INStagingStockTransferHirarchyJSONResponse responseItem = this.createResponse(stagingStockTFHeader, stagingStockTFCustomer, stagingStockTFItem);
// Here we add the item to a list
itemList.addEnd(responseItem);
// TODO: don't forget to think about database transactions. The current implementation could lead to data inconsistency.
OEI1INStagingStockTransferHeader::updateOBProcessed(stagingStockTFHeader.RecId);
OEI1INStagingStockTransferCustomer::updateOBProcessed(stagingStockTFCustomer.RecId);
OEI1INStagingStockTransferItem::updateOBProcessed(stagingStockTFItem.RecId);
}
}
catch (Exception::Error)
{
// TODO: implement
}
}
return itemList;
}
André Arnaud de Cal...
294,099
Super User 2025 Season 1
Martin Dráb
232,866
Most Valuable Professional
nmaenpaa
101,158
Moderator