|
![]() |
#1 |
Участник
|
Проблема с LedgerJournalTrans
Доброго времени суток, уважаемые жители axforuma!
Возможно мой вопрос покажется глупым. У нас существует отчет "Оплата по группам финансирования", выбирающий данные из таблиц Custtrans, CustInvoiceJour и LedgerJournalTrans (Axapta 3.0 SP5). Работал он работал, и вот однажды утром стал работать гораздо медленнее. Своими разработками мы этот отчет не трогали. Включив мониторинг запросов, выяснил, что очень долго производится выборка из LedgerJournalTrans. Сделав реиндексацию по всем индексам этой таблицы, временно решил проблему. Но к этому вопросу постоянно приходится обращаться. Привожу код, выбирающий данные из LedgerJournalTrans в темповую таблицу, используюмую в отчете. Код: void insertTmpFromLedgerJournalTrans() { QueryRun qrLedgerJour; RContractTable qContractTable; LedgerJournalTrans qLedgerTrans; LedgerJournalTrans ledgerTrans; LedgerJournalTable ledgerTable; CustSettlement custSettlement; CustSettlement settlement; CustTrans custTrans, custTransSelect; ; qrLedgerJour = new QueryRun(queryStr(GroupFinancLedgerJournalTrans)); qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldnum(LedgerJournalTrans,TransDate)).value(queryRange(dateFrom,dateTo)); qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldnum(LedgerJournalTrans,AmountCurCredit)).value("!=0"); qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldnum(LedgerJournalTrans,AccountType)).value(enum2str(LedgerJournalACType::Cust)); qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldnum(RContractTable,RContractPartnerType)).value(enum2str(RContractPartnerType::Cust)); if (rangeDimension) qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldId2ext(fieldnum(LedgerJournalTrans, Dimension),2)).value(rangeDimension); if (rangeGroupFinanc) qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldnum(RContractTable,GroupFinancId)).value(rangeGroupFinanc); if (accountNum) qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldNum(LedgerJournalTrans,AccountNum)).value(accountNum); if (contractAccount) { qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldNum(RContractTable,RContractCode)).value(contractCode); qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldNum(RContractTable,RContractAccount)).value(contractAccount); qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldNum(RContractTable,RContractPartnerCode)).value(accountNum); } while (qrLedgerJour.next()) { qLedgerTrans = qrLedgerJour.get(tableNum(LedgerJournalTrans)); qContractTable = qrLedgerJour.get(tableNum(RContractTable)); while select RecId, budget, JournalNum, Voucher, AccountNum, AmountCurCredit from ledgerTrans where ledgerTrans.RecId == qLedgerTrans.RecId join JournalNum, Posted, JournalType from ledgerTable index hint PostedJournalNumIdx where ledgerTable.JournalNum == ledgerTrans.JournalNum && ledgerTable.Posted == NoYes::Yes { //select firstonly Voucher,AccountNum,SettleAmountCur,TransDate,AmountCur from custTrans while select Voucher, AccountNum, SettleAmountCur, TransDate, AmountCur from custTrans index hint AccountDateIdx where custTrans.Voucher == ledgerTrans.Voucher && custTrans.AccountNum == ledgerTrans.AccountNum { if (custTrans.AmountCur - custTrans.SettleAmountCur != 0) { tmpTable.clear(); if (ledgerTrans.budget == NoYes::Yes) { tmpTable.BPayCurrent = custTrans.AmountCur - custTrans.SettleAmountCur; tmpTable.PayCurrent = 0; } else { tmpTable.PayCurrent = custTrans.AmountCur - custTrans.SettleAmountCur; tmpTable.BPayCurrent = 0; } tmpTable.GroupFinancName = ICLGroupsFinancTable::find(qContractTable.GroupFinancId).GroupFinancName; tmpTable.AccountNum = qLedgerTrans.AccountNum; tmpTable.AccountName = CustTable::find(qLedgerTrans.AccountNum).NameAlias; tmpTable.ContractNumberDate = qContractTable.contractNumberDate; tmpTable.Voucher = qLedgerTrans.Voucher; tmpTable.AddQty = 0; tmpTable.AddAmount = 0; tmpTable.DebtBeginPeriod = 0; tmpTable.Advance = NoYes::Yes; tmpTable.CurrentPayTotal = tmpTable.BPayCurrent + tmpTable.PayCurrent; tmpTable.PayPeriodTotal = tmpTable.BPay + tmpTable.Pay + tmpTable.CurrentPayTotal; tmpTable.CurrentDebt = tmpTable.AddAmount + tmpTable.CurrentPayTotal; tmpTable.EndDebt = tmpTable.DebtBeginPeriod + tmpTable.AddAmount + tmpTable.PayPeriodTotal/*CurrentPayTotal*/; tmpTable.insert(); } while select OffsetTransVoucher, AccountNum, OffsetRecid, TransRecId, SettleAmountCur from custSettlement index hint OffsetVoucherIdx //where custSettlement.OffsetTransVoucher == ledgerTrans.Voucher && // custSettlement.AccountNum == ledgerTrans.AccountNum && where custSettlement.TransRecId == custTrans.RecId && custSettlement.AccountNum == custTrans.AccountNum && custSettlement.CanBeReversed == NoYes::Yes { select firstonly Voucher, AccountNum, SettleAmountCur, TransDate from custTransSelect index hint AccountDateIdx //where custTransSelect.Voucher == settlement.OffsetTransVoucher && where custTransSelect.RecId == custSettlement.OffsetRecid && custTransSelect.AccountNum == custSettlement.AccountNum; tmpTable.clear(); if (ledgerTrans.budget == NoYes::Yes) { if (custTransSelect.TransDate >= dateFrom) { tmpTable.BPayCurrent = custSettlement.SettleAmountCur; tmpTable.BPay = 0; tmpTable.PayCurrent = 0; tmpTable.Pay = 0; } else { tmpTable.BPayCurrent = 0; tmpTable.BPay = custSettlement.SettleAmountCur; tmpTable.PayCurrent = 0; tmpTable.Pay = 0; } } else { if (custTransSelect.TransDate >= dateFrom) { tmpTable.BPayCurrent = 0; tmpTable.BPay = 0; tmpTable.PayCurrent = custSettlement.SettleAmountCur; tmpTable.Pay = 0; } else { tmpTable.BPayCurrent = 0; tmpTable.BPay = 0; tmpTable.PayCurrent = 0; tmpTable.Pay = custSettlement.SettleAmountCur; } } tmpTable.GroupFinancName = ICLGroupsFinancTable::find(qContractTable.GroupFinancId).GroupFinancName; tmpTable.AccountNum = qLedgerTrans.AccountNum; tmpTable.AccountName = CustTable::find(qLedgerTrans.AccountNum).NameAlias; tmpTable.ContractNumberDate = qContractTable.contractNumberDate; tmpTable.Voucher = qLedgerTrans.Voucher; tmpTable.AddQty = 0; tmpTable.AddAmount = 0; tmpTable.DebtBeginPeriod = 0; tmpTable.Advance = (custTransSelect.TransDate > dateTo ? NoYes::Yes : NoYes::No);NoYes::No; tmpTable.CurrentPayTotal = tmpTable.BPayCurrent + tmpTable.PayCurrent; tmpTable.PayPeriodTotal = tmpTable.BPay + tmpTable.Pay + tmpTable.CurrentPayTotal; tmpTable.CurrentDebt = tmpTable.AddAmount + tmpTable.CurrentPayTotal; tmpTable.EndDebt = tmpTable.DebtBeginPeriod + tmpTable.AddAmount + tmpTable.PayPeriodTotal/*CurrentPayTotal*/; tmpTable.insert(); } } } } }
__________________
..в каждой программе есть хотя бы одна ошибка.. Последний раз редактировалось Alexanderrrr; 18.09.2009 в 09:37. |
|
![]() |
#2 |
Участник
|
прежде всего: хранить данные в строках журнала - моветон. строки журналов - черновики. строки журналов могут удаляться в любой момент штатным функционалом.
По делу: насколько я понимаю, у вас в query GroupFinancLedgerJournalTrans используется две таблицы. вы накладываете условия на поля этих таблиц. Я не знаю как устроены индексы в вашем запросе и в вашем приложении. Но, вообще говоря, под ваши условия не подходит ни один индекс из стандартного функционала. А это значит, что, скорее всего, запрос будет выполняться тупым Table Scan'ом. Со всеми вытекающими последствиями для большой таблицы. и я бы indexhint проверил... эта штука опасная. потому что зачастую разработчики вставляют его на маленькой базе. А когда база вырастает, то лучше использовать совсем другие индексы... |
|
|
За это сообщение автора поблагодарили: Gustav (2), Alexanderrrr (1). |
![]() |
#3 |
Боец
|
0. Тему бы раздел "Программирование"
1. Какой SQL используете? 2. Посмотреть бы ещё на кверю GroupFinancLedgerJournalTrans, возможно туда можно подцепить JournalNum, тогда от одного цикла можно было бы избавиться - это самый злой момент. X++: (while select RecId, budget, JournalNum, Voucher, AccountNum, AmountCurCredit from ledgerTrans where ledgerTrans.RecId == qLedgerTrans.RecId join JournalNum, Posted, JournalType from ledgerTable index hint PostedJournalNumIdx where ledgerTable.JournalNum == ledgerTrans.JournalNum && ledgerTable.Posted == NoYes::Yes) 3. "join ... from ledgerTable" заменить на "exists join ... from ledgerTable" 4. Заменить индекс OffsetVoucherIdx на TransIndex X++: while select OffsetTransVoucher, AccountNum, OffsetRecid, TransRecId, SettleAmountCur from custSettlement index hint TransIndex //orig: index hint OffsetVoucherIdx //where custSettlement.OffsetTransVoucher == ledgerTrans.Voucher && // custSettlement.AccountNum == ledgerTrans.AccountNum && where custSettlement.TransRecId == custTrans.RecId && custSettlement.AccountNum == custTrans.AccountNum && custSettlement.CanBeReversed == NoYes::Yes |
|
|
За это сообщение автора поблагодарили: Alexanderrrr (1). |
![]() |
#4 |
Участник
|
Да, в GroupFinancLedgerJournalTrans две таблицы: LedgerJournalTrans и RContractTable, связынные по AccountNum, RContractCodeDebit и RContractAccountDebit.
Цитата:
и я бы indexhint проверил...
Цитата:
Какой SQL используете?
Цитата:
3. "join ... from ledgerTable" заменить на "exists join ... from ledgerTable"
4. Заменить индекс OffsetVoucherIdx на TransIndex
__________________
..в каждой программе есть хотя бы одна ошибка.. |
|
![]() |
#5 |
Moderator
|
__________________
Андрей. |
|
![]() |
#6 |
Боец
|
Если SQL 2000, то тут с index hint конечно очень аккуратно нужно быть. Если юзается индекс, то порядок полей в условии нужно подгонять под порядок полей в индексе, по возможности. Если не получается то index вообще лучше убрать.
Не ломая кверю GroupFinancLedgerJournalTrans, попробуйте ещё такой вариант, по-идее будет быстрее (убрал некрасивый цикл, заменил ledgerTrans на qLedgerTrans везде где используется) X++: QueryRun qrLedgerJour; RContractTable qContractTable; LedgerJournalTrans qLedgerTrans; LedgerJournalTrans ledgerTrans; LedgerJournalTable ledgerTable; CustSettlement custSettlement; CustSettlement settlement; CustTrans custTrans, custTransSelect; ; qrLedgerJour = new QueryRun(queryStr(GroupFinancLedgerJournalTrans)); qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldnum(LedgerJournalTrans,TransDate)).value(queryRange(dateFrom,dateTo)); qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldnum(LedgerJournalTrans,AmountCurCredit)).value("!=0"); qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldnum(LedgerJournalTrans,AccountType)).value(enum2str(LedgerJournalACType::Cust)); qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldnum(RContractTable,RContractPartnerType)).value(enum2str(RContractPartnerType::Cust)); if (rangeDimension) qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldId2ext(fieldnum(LedgerJournalTrans, Dimension),2)).value(rangeDimension); if (rangeGroupFinanc) qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldnum(RContractTable,GroupFinancId)).value(rangeGroupFinanc); if (accountNum) qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldNum(LedgerJournalTrans,AccountNum)).value(accountNum); if (contractAccount) { qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldNum(RContractTable,RContractCode)).value(contractCode); qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldNum(RContractTable,RContractAccount)).value(contractAccount); qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldNum(RContractTable,RContractPartnerCode)).value(accountNum); } while (qrLedgerJour.next()) { qLedgerTrans = qrLedgerJour.get(tableNum(LedgerJournalTrans)); qContractTable = qrLedgerJour.get(tableNum(RContractTable)); // dspic --> // orig: //while select RecId, budget, JournalNum, Voucher, AccountNum, AmountCurCredit from ledgerTrans // where ledgerTrans.RecId == qLedgerTrans.RecId ///*dspic(*/ exists /*)dpsic*/ join JournalNum, Posted, JournalType from ledgerTable // index hint PostedJournalNumIdx // where ledgerTable.JournalNum == ledgerTrans.JournalNum && // ledgerTable.Posted == NoYes::Yes if (qLedgerTrans.ledgerJournalTable().posted) // dspic <-- { select firstonly Voucher,AccountNum,SettleAmountCur,TransDate,AmountCur from custTrans while select Voucher, AccountNum, SettleAmountCur, TransDate, AmountCur from custTrans index hint AccountDateIdx //dspic: where custTrans.Voucher == qLedgerTrans.Voucher && //dspic: ledgerTrans --> qLedgerTrans custTrans.AccountNum == qLedgerTrans.AccountNum //dspic: ledgerTrans --> qLedgerTrans { if (custTrans.AmountCur - custTrans.SettleAmountCur != 0) { tmpTable.clear(); //dspic: if (qLedgerTrans.budget == NoYes::Yes) //dspic: ledgerTrans --> qLedgerTrans { tmpTable.BPayCurrent = custTrans.AmountCur - custTrans.SettleAmountCur; tmpTable.PayCurrent = 0; } else { tmpTable.PayCurrent = custTrans.AmountCur - custTrans.SettleAmountCur; tmpTable.BPayCurrent = 0; } tmpTable.GroupFinancName = ICLGroupsFinancTable::find(qContractTable.GroupFinancId).GroupFinancName; tmpTable.AccountNum = qLedgerTrans.AccountNum; tmpTable.AccountName = CustTable::find(qLedgerTrans.AccountNum).NameAlias; tmpTable.ContractNumberDate = qContractTable.contractNumberDate; tmpTable.Voucher = qLedgerTrans.Voucher; tmpTable.AddQty = 0; tmpTable.AddAmount = 0; tmpTable.DebtBeginPeriod = 0; tmpTable.Advance = NoYes::Yes; tmpTable.CurrentPayTotal = tmpTable.BPayCurrent + tmpTable.PayCurrent; tmpTable.PayPeriodTotal = tmpTable.BPay + tmpTable.Pay + tmpTable.CurrentPayTotal; tmpTable.CurrentDebt = tmpTable.AddAmount + tmpTable.CurrentPayTotal; tmpTable.EndDebt = tmpTable.DebtBeginPeriod + tmpTable.AddAmount + tmpTable.PayPeriodTotal/*CurrentPayTotal*/; tmpTable.insert(); } while select OffsetTransVoucher, AccountNum, OffsetRecid, TransRecId, SettleAmountCur from custSettlement index hint TransIndex //orig: index hint OffsetVoucherIdx //where custSettlement.OffsetTransVoucher == ledgerTrans.Voucher && // custSettlement.AccountNum == ledgerTrans.AccountNum && where custSettlement.TransRecId == custTrans.RecId && custSettlement.AccountNum == custTrans.AccountNum && custSettlement.CanBeReversed == NoYes::Yes { select firstonly Voucher, AccountNum, SettleAmountCur, TransDate from custTransSelect index hint AccountDateIdx //where custTransSelect.Voucher == settlement.OffsetTransVoucher && where custTransSelect.RecId == custSettlement.OffsetRecid && custTransSelect.AccountNum == custSettlement.AccountNum; tmpTable.clear(); //dspic: if (qLedgerTrans.budget == NoYes::Yes) //dspic: ledgerTrans --> qLedgerTrans { if (custTransSelect.TransDate >= dateFrom) { tmpTable.BPayCurrent = custSettlement.SettleAmountCur; tmpTable.BPay = 0; tmpTable.PayCurrent = 0; tmpTable.Pay = 0; } else { tmpTable.BPayCurrent = 0; tmpTable.BPay = custSettlement.SettleAmountCur; tmpTable.PayCurrent = 0; tmpTable.Pay = 0; } } else { if (custTransSelect.TransDate >= dateFrom) { tmpTable.BPayCurrent = 0; tmpTable.BPay = 0; tmpTable.PayCurrent = custSettlement.SettleAmountCur; tmpTable.Pay = 0; } else { tmpTable.BPayCurrent = 0; tmpTable.BPay = 0; tmpTable.PayCurrent = 0; tmpTable.Pay = custSettlement.SettleAmountCur; } } tmpTable.GroupFinancName = ICLGroupsFinancTable::find(qContractTable.GroupFinancId).GroupFinancName; tmpTable.AccountNum = qLedgerTrans.AccountNum; tmpTable.AccountName = CustTable::find(qLedgerTrans.AccountNum).NameAlias; tmpTable.ContractNumberDate = qContractTable.contractNumberDate; tmpTable.Voucher = qLedgerTrans.Voucher; tmpTable.AddQty = 0; tmpTable.AddAmount = 0; tmpTable.DebtBeginPeriod = 0; tmpTable.Advance = (custTransSelect.TransDate > dateTo ? NoYes::Yes : NoYes::No);NoYes::No; tmpTable.CurrentPayTotal = tmpTable.BPayCurrent + tmpTable.PayCurrent; tmpTable.PayPeriodTotal = tmpTable.BPay + tmpTable.Pay + tmpTable.CurrentPayTotal; tmpTable.CurrentDebt = tmpTable.AddAmount + tmpTable.CurrentPayTotal; tmpTable.EndDebt = tmpTable.DebtBeginPeriod + tmpTable.AddAmount + tmpTable.PayPeriodTotal/*CurrentPayTotal*/; tmpTable.insert(); } } } } ![]() |
|
|
За это сообщение автора поблагодарили: mazzy (2). |
![]() |
#7 |
Участник
|
да, DSPIC, заметно побыстрее стало..спасибо!
может, чтобы еще убыстрить, попробовать создать новые индексы на LedgerJournalTrans?
__________________
..в каждой программе есть хотя бы одна ошибка.. |
|
![]() |
#8 |
----------------
|
5 копеек
в select по CustTrans добавить условие по TransDate добавить в запросы forceplaceholders |
|
![]() |
#9 |
Боец
|
1. Ещё в куске
X++: ... select firstonly Voucher,AccountNum,SettleAmountCur,TransDate,AmountCur from custTrans while select Voucher, AccountNum, SettleAmountCur, TransDate, AmountCur from custTrans index hint AccountDateIdx where custTrans.Voucher == qLedgerTrans.Voucher && //dspic: ledgerTrans --> qLedgerTrans custTrans.AccountNum == qLedgerTrans.AccountNum //dspic: ledgerTrans --> qLedgerTrans ... X++: ... where custTrans.AccountNum == qLedgerTrans.AccountNum //dspic: ledgerTrans --> qLedgerTrans && ustTrans.Voucher == qLedgerTrans.Voucher && //dspic: ledgerTrans --> qLedgerTrans 2. Было бы ещё неплохо в кверю GroupFinancLedgerJournalTrans на самый верхний уровень загнать таблицу LedgerJournalTable (Получится лесенка LedgerJournalTable-->LedgerJournalTrans-->RContractTable), там же наложить условие на Posted=Yes. Возможно, бы работало ещё чуть быстрее. И тогда этот артефакт можно вообще убрать X++: if (qLedgerTrans.ledgerJournalTable().posted) |
|
![]() |
#10 |
Участник
|
Так, все сделал, только кверик GroupFinancLedgerJournalTrans не менял. Похоже побыстрее стало, но все же проблема осталась..серьезно задумывается на строчке:
while (qrLedgerJour.next()) похоже кверик нехороший... ![]()
__________________
..в каждой программе есть хотя бы одна ошибка.. |
|
![]() |
#11 |
MCITP
|
![]() Цитата:
![]() 2AlexanderrrrВключите SQL-трассировку, смотрите запрос, план запроса, с которым он выполняется. Можете попробовать привести его здесь. В SQL-е и его плане часто получше видно, что не так и чего не хватает, чем в Аксапте. Ну либо сложная кверя и "селяви": старые журналы всё-таки нужно чистить, как уже выше Маззи говорил...
__________________
Zhirenkov Vitaly |
|
|
За это сообщение автора поблагодарили: Alexanderrrr (1). |
![]() |
#12 |
Боец
|
Цитата:
А SQLю 2000 тоже не важен порядок полей? Я думал - это 2005й умеет. (не эксперт в SQL). С другой стороны, хотелось бы вначале добиться совершенства X++, прежде чем спускаться до уровня SQL. |
|
|
За это сообщение автора поблагодарили: Alexanderrrr (1). |
![]() |
#13 |
Участник
|
Вашими "молитвами" все стало просто летать))
+Сделал реиндексацию..работает на ура) не стал ставить фильтр на query..сравнил по скорости с ним и без него..разницы никакой.. Спасибо всем большое! ![]() и еще..честно говоря не понимаю, зачем здесь forceplaceholders? http://axapta.mazzy.ru/lib/literals_vs_placeholders/ почитал..
__________________
..в каждой программе есть хотя бы одна ошибка.. Последний раз редактировалось Alexanderrrr; 21.09.2009 в 13:49. |
|
![]() |
#14 |
Боец
|
Цитата:
Сообщение от Alexanderrrr
![]() Вашими "молитвами" все стало просто летать))
+Сделал реиндексацию..работает на ура) не стал ставить фильтр на query..сравнил по скорости с ним и без него..разницы никакой.. Спасибо всем большое! ![]() и еще..честно говоря не понимаю, зачем здесь forceplaceholders? http://axapta.mazzy.ru/lib/literals_vs_placeholders/ почитал.. |
|
![]() |
#15 |
Участник
|
Код: void insertTmpFromLedgerJournalTrans() { QueryRun qrLedgerJour; RContractTable qContractTable; LedgerJournalTrans qLedgerTrans; LedgerJournalTrans ledgerTrans; LedgerJournalTable ledgerTable; CustSettlement custSettlement; CustSettlement settlement; CustTrans custTrans, custTransSelect; ; qrLedgerJour = new QueryRun(queryStr(GroupFinancLedgerJournalTrans)); qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldnum(LedgerJournalTrans,TransDate)).value(queryRange(dateFrom,dateTo)); qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldnum(LedgerJournalTrans,AmountCurCredit)).value("!=0"); qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldnum(LedgerJournalTrans,AccountType)).value(enum2str(LedgerJournalACType::Cust)); qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldnum(RContractTable,RContractPartnerType)).value(enum2str(RContractPartnerType::Cust)); if (rangeDimension) qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldId2ext(fieldnum(LedgerJournalTrans, Dimension),2)).value(rangeDimension); if (rangeGroupFinanc) qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldnum(RContractTable,GroupFinancId)).value(rangeGroupFinanc); if (accountNum) qrLedgerJour.query().dataSourceTable(tableNum(LedgerJournalTrans)).addRange(fieldNum(LedgerJournalTrans,AccountNum)).value(accountNum); if (contractAccount) { qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldNum(RContractTable,RContractCode)).value(contractCode); qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldNum(RContractTable,RContractAccount)).value(contractAccount); qrLedgerJour.query().dataSourceTable(tableNum(RContractTable)).addRange(fieldNum(RContractTable,RContractPartnerCode)).value(accountNum); } while (qrLedgerJour.next()) { qLedgerTrans = qrLedgerJour.get(tableNum(LedgerJournalTrans)); qContractTable = qrLedgerJour.get(tableNum(RContractTable)); if (qLedgerTrans.ledgerJournalTable().posted) { while select Voucher, AccountNum, SettleAmountCur, TransDate, AmountCur from custTrans index hint AccountDateIdx where custTrans.AccountNum == qLedgerTrans.AccountNum && custTrans.Voucher == qLedgerTrans.Voucher { if (custTrans.AmountCur - custTrans.SettleAmountCur != 0) { tmpTable.clear(); if (qLedgerTrans.budget == NoYes::Yes) { tmpTable.BPayCurrent = custTrans.AmountCur - custTrans.SettleAmountCur; tmpTable.PayCurrent = 0; } else { tmpTable.PayCurrent = custTrans.AmountCur - custTrans.SettleAmountCur; tmpTable.BPayCurrent = 0; } tmpTable.GroupFinancName = ICLGroupsFinancTable::find(qContractTable.GroupFinancId).GroupFinancName; tmpTable.AccountNum = qLedgerTrans.AccountNum; tmpTable.AccountName = CustTable::find(qLedgerTrans.AccountNum).NameAlias; tmpTable.ContractNumberDate = qContractTable.contractNumberDate; tmpTable.Voucher = qLedgerTrans.Voucher; tmpTable.AddQty = 0; tmpTable.AddAmount = 0; tmpTable.DebtBeginPeriod = 0; tmpTable.Advance = NoYes::Yes; tmpTable.CurrentPayTotal = tmpTable.BPayCurrent + tmpTable.PayCurrent; tmpTable.PayPeriodTotal = tmpTable.BPay + tmpTable.Pay + tmpTable.CurrentPayTotal; tmpTable.CurrentDebt = tmpTable.AddAmount + tmpTable.CurrentPayTotal; tmpTable.EndDebt = tmpTable.DebtBeginPeriod + tmpTable.AddAmount + tmpTable.PayPeriodTotal; tmpTable.insert(); } while select OffsetTransVoucher, AccountNum, OffsetRecid, TransRecId, SettleAmountCur from custSettlement index hint TransIndex where custSettlement.TransRecId == custTrans.RecId && custSettlement.AccountNum == custTrans.AccountNum && custSettlement.CanBeReversed == NoYes::Yes { select firstonly Voucher, AccountNum, SettleAmountCur, TransDate from custTransSelect index hint AccountDateIdx where custTransSelect.RecId == custSettlement.OffsetRecid && custTransSelect.AccountNum == custSettlement.AccountNum; tmpTable.clear(); if (qLedgerTrans.budget == NoYes::Yes) { if (custTransSelect.TransDate >= dateFrom) { tmpTable.BPayCurrent = custSettlement.SettleAmountCur; tmpTable.BPay = 0; tmpTable.PayCurrent = 0; tmpTable.Pay = 0; } else { tmpTable.BPayCurrent = 0; tmpTable.BPay = custSettlement.SettleAmountCur; tmpTable.PayCurrent = 0; tmpTable.Pay = 0; } } else { if (custTransSelect.TransDate >= dateFrom) { tmpTable.BPayCurrent = 0; tmpTable.BPay = 0; tmpTable.PayCurrent = custSettlement.SettleAmountCur; tmpTable.Pay = 0; } else { tmpTable.BPayCurrent = 0; tmpTable.BPay = 0; tmpTable.PayCurrent = 0; tmpTable.Pay = custSettlement.SettleAmountCur; } } tmpTable.GroupFinancName = ICLGroupsFinancTable::find(qContractTable.GroupFinancId).GroupFinancName; tmpTable.AccountNum = qLedgerTrans.AccountNum; tmpTable.AccountName = CustTable::find(qLedgerTrans.AccountNum).NameAlias; tmpTable.ContractNumberDate = qContractTable.contractNumberDate; tmpTable.Voucher = qLedgerTrans.Voucher; tmpTable.AddQty = 0; tmpTable.AddAmount = 0; tmpTable.DebtBeginPeriod = 0; tmpTable.Advance = (custTransSelect.TransDate > dateTo ? NoYes::Yes : NoYes::No); tmpTable.CurrentPayTotal = tmpTable.BPayCurrent + tmpTable.PayCurrent; tmpTable.PayPeriodTotal = tmpTable.BPay + tmpTable.Pay + tmpTable.CurrentPayTotal; tmpTable.CurrentDebt = tmpTable.AddAmount + tmpTable.CurrentPayTotal; tmpTable.EndDebt = tmpTable.DebtBeginPeriod + tmpTable.AddAmount + tmpTable.PayPeriodTotal/*CurrentPayTotal*/; tmpTable.insert(); } } } } } ![]()
__________________
..в каждой программе есть хотя бы одна ошибка.. |
|