protected override void GetDataSource(out string DataSource,
out string DataSourceOrder, List <FieldParam> Parameters)
{
BaseGL.RingkasanAkun.Update(_TglNeraca2 > _TglNeraca1 ?
_TglNeraca2 : _TglNeraca1);
string NilaiNeraca1 = Dp.GetSqlCoalesce("Neraca1", 0);
string NilaiNeraca2 = Dp.GetSqlCoalesce("Neraca2", 0);
DataSource = string.Concat(
"SELECT NoAkun,NamaAkun,JenisAkun,UrutanKelompok,KelompokAkun,",
NilaiNeraca1, " as Neraca1,", NilaiNeraca2, " as Neraca2,",
NilaiNeraca2, "-", NilaiNeraca1, " as Selisih,",
Dp.GetSqlIifNoFormat(NilaiNeraca1 + "=0",
Dp.GetSqlIifNoFormat(NilaiNeraca2 + "<0", "-100",
Dp.GetSqlIifNoFormat(NilaiNeraca2 + ">0", "100", "null")),
string.Concat("(", NilaiNeraca2, "-", NilaiNeraca1, ")*100/",
Dp.GetSqlAbs(NilaiNeraca1))),
@" as [% Selisih] FROM
(SELECT JenisAkun,UrutanKelompok,KelompokAkun,NoAkun,NamaAkun,Aktif,
(SELECT SUM(Debit-Kredit) FROM
(", BaseGL.RingkasanAkun.SqlPosisiAkun(_TglNeraca1, false,
"1", Parameters),
@") p WHERE p.IdAkun=q.IdAkun
) as Neraca1,
(SELECT SUM(Debit-Kredit) FROM
(", BaseGL.RingkasanAkun.SqlPosisiAkun(_TglNeraca2, false,
"2", Parameters),
@") r WHERE r.IdAkun=q.IdAkun
) as Neraca2 FROM Akun q WHERE Posting<>0 AND JenisAkun<>",
FormatSqlValue(enJenisAkun.Laba__Rugi),
") XX WHERE Aktif<>0");
DataSourceOrder = "UrutanKelompok,NoAkun";
}
