Не работает Insert_Recordset

[AlexUnik]

2 simply2double
Вот так селект работает отлично, но, к с ожалению, через while:
ttsbegin;
while select JournalNum, ItemName from PDA where PDA.JournalNum==JournalNum
join RecId, ItemCode, AccountCode, ItemRelation, AccountRelation,
Amount, Currency, SearchAgain, relation, UnitId, Module, InventDimId, fromDate from PDT index PriceDiscAdmIdx
where PDA.Module==PDT.Module && PDA.Relation==PDT.Relation
&& PDA.AccountRelation==PDT.AccountRelation && PDA.ItemRelation==PDT.ItemRelation
&& PDA.UnitId==PDT.UnitId && PDA.Currency==PDT.Currency
&& PDT.ToDate==STR2DATE('',123)
{
PDAI.PriceDiscTableRef = PDT.RecId;
PDAI.ItemCode = PDT.ItemCode;
PDAI.AccountCode = PDT.AccountCode;
PDAI.ItemRelation = PDT.ItemRelation;
PDAI.AccountRelation = PDT.AccountRelation;
PDAI.Amount = PDT.Amount;
PDAI.QuantityAmount = PDT.QuantityAmount;
PDAI.Currency = PDT.Currency;
PDAI.SearchAgain = PDT.SearchAgain;
PDAI.relation = PDT.relation;
PDAI.UnitId = PDT.UnitId;
PDAI.Module = PDT.Module;
PDAI.InventDimId = PDT.InventDimId;
PDAI.FromDate = PDT.fromDate;
PDAI.ToDate = FROMDATE-1;
PDAI.JournalNum = PDA.JournalNum;
PDAI.ItemName = PDA.ItemName;
PDAI.doInsert();
}
ttscommit;