begin
mSQL =
'select ' ||
' GLV.ID, GLV.Account_ID, GLV.DebitAmount, GLV.SAccount_ID, GLV.CreditAmount, ' ||
' GLV.AccDate$Date, GLV.OrdNumber, GLV.Text, GLV.Division_ID, ' ||
' P.Code, ADQ.Code ' ||
'from ' ||
' GeneralLedgerSingle_VIEW GLV ' ||
' left join Periods P on P.ID = GLV.Period_ID ' ||
' left join AccDocQueues ADQ ON ADQ.ID = GLV.AccDocQueue_ID ';
mSQL = mSQL || ' where 1=1 ';
select mRet from DSQL$GetAccountsCondition('GLV', :InAccDateFrom, :InAccDateTo,
:InAllowRequests, :InAudited, :InDivisionSelID, :InDivisionsWithChilds,
:InBusOrderSelID, :InBusOrdersWithChilds, :InBusTransactionSelID,
:InBusTransactionsWithChilds, :InBusProjectSelID, :InBusProjectsWithChilds,
:InFirmSelID, null, null,
null, null, null)
into :mHlp;
if (mHlp <> ' ') then
mSQL = mSQL || ' and ' || mHlp;
if (InAccount_ID is not Null and InAccount_ID <> '') then
mSQL = mSQL || ' and GLV.Account_ID = ''' || InAccount_ID || '''';
else
--v puvodni verzi z 10.02 se pocitalo, ze se ten parametr vzdy zohledni
mSQL = mSQL || ' and GLV.Account_ID is null ';
for execute statement mSQL
into
:ID, :Account_ID, :DebitAmount, :SAccount_ID, :CreditAmount,
:AccDate$Date, :mOrdNumber, :Text, :Division_ID,
:mPeriodCode, :mAccDocQueueCode
do begin
OrdNumber = mAccDocQueueCode || '-' || CAST(mOrdNumber as VARCHAR(8)) || '/' || mPeriodCode;
suspend;
end
end