Hi I have following code, where I iterate a list and want to update all the record in that list. But its just the last record of the list that gets the update.
public server static PriceDiscAdmTable makeJournal(
PriceDiscJournalName _priceDiscJournalName,
Name _journalDescription,
container _priceDiscList)
{
PriceDiscAdmTrans priceDiscAdmTrans;
PriceDiscTable priceDiscTable;
RecordInsertList priceDiscAdmTransInsertList = new RecordInsertList(tableNum(PriceDiscAdmTrans), true);
List priceDiscTableList = List::create(_priceDiscList);
ListEnumerator priceDiscTableListEnumerator = priceDiscTableList.getEnumerator();
PriceDiscAdmTable priceDiscAdmTable;
LineNum lineNum;
int i;
ttsbegin;
priceDiscAdmTable.JournalName = _priceDiscJournalName;
priceDiscAdmTable.Name = _journalDescription;
priceDiscAdmTable.insert();
while (priceDiscTableListEnumerator.moveNext())
{
lineNum++;
priceDiscAdmTrans = priceDiscTableListEnumerator.current();
priceDiscAdmTrans.JournalNum= priceDiscAdmTable.JournalNum;
priceDiscAdmTrans.LineNum = lineNum;
priceDiscAdmTransInsertList.add(priceDiscAdmTrans);
}
priceDiscAdmTransInsertList.insertDatabase();
//NC - MAHF - Afslut perioden for en eksisterende pris - Begin
while select forUpdate priceDiscTable
// join priceDiscAdmTrans
where
priceDiscTable.ItemRelation == priceDiscAdmTrans.ItemRelation
&& priceDiscTable.Module == priceDiscAdmTrans.Module
&& priceDiscTable.AccountRelation == priceDiscAdmTrans.AccountRelation
&& priceDiscTable.AccountCode == priceDiscAdmTrans.AccountCode
&& priceDiscTable.ItemCode == priceDiscAdmTrans.ItemCode
&& priceDiscTable.Currency == priceDiscAdmTrans.Currency
&& priceDiscTable.QuantityAmountFrom == priceDiscAdmTrans.QuantityAmountFrom
&& priceDiscTable.InventDimId == priceDiscAdmTrans.InventDimId
&& priceDiscTable.NCServiceId == priceDiscAdmTrans.NCServiceId
{
// I run the update here.
priceDiscTable.reread();
if(priceDiscTable.ToDate >= priceDiscAdmTrans.FromDate )
{
priceDiscTable.ToDate = priceDiscAdmTrans.FromDate - 1;
}
priceDiscTable.update();
}
//NC - MAHF - Afslut perioden for en eksisterende pris - End
ttscommit;
return priceDiscAdmTable;
}
*This post is locked for comments
I have the same question (0)
