BEGIN
FOR
SELECT
SUM((GL.CreditSide * GL.Amount) - (GL.DebitSide * GL.Amount)), /*Incomes*/
0.00, /*Expenses*/
GL.BusProject_ID
FROM
LimitGeneralLedger(''/*InAccountSelID*/, :InAccDateFrom, :InAccDateTo,
:InAllowRequest, :InAudited, :InDivisionSelID, :InDivisionsWithChilds,
:InBusOrderSelID, :InBusOrdersWithChilds, :InBusTransactionSelID,
:InBusTransactionsWithChilds, :InBusProjectSelID, :InBusProjectsWithChilds,
:InFirmSelID, '%'/*InAccountCode*/,
'G'/*InAccountType*/) GL
GROUP BY
GL.BusProject_ID
UNION ALL
SELECT
0.00, /*Incomes*/
SUM((GL.DebitSide * GL.Amount) - (GL.CreditSide * GL.Amount)), /*Expenses*/
GL.BusProject_ID
FROM
LimitGeneralLedger(''/*InAccountSelID*/, :InAccDateFrom, :InAccDateTo,
:InAllowRequest, :InAudited, :InDivisionSelID, :InDivisionsWithChilds,
:InBusOrderSelID, :InBusOrdersWithChilds, :InBusTransactionSelID,
:InBusTransactionsWithChilds, :InBusProjectSelID, :InBusProjectsWithChilds,
:InFirmSelID, '%'/*InAccountCode*/,
'C'/*InAccountType*/) GL
GROUP BY
GL.BusProject_ID
ORDER BY
3
INTO
:Incomes, :Expenses, :BusProject_ID
DO
SUSPEND;
END;