Voucher Credit and Debit Amount

static void VoucherBalanceCompanyWise(Args _args)
{
  VendInvoiceJour                        vendInvoiceJour;
  GeneralJournalAccountEntry    generalJournalAccountEntry;
  GeneralJournalEntry                   generalJournalEntry;
  CompanyInfo                           companyInfo;


             while select sum(AccountingCurrencyAmount) from  generalJournalAccountEntry
                    where generalJournalAccountEntry.LedgerAccount == '1211102-CENT' // debit group
                join generalJournalEntry
                    where generalJournalEntry.RecId == generalJournalAccountEntry.GeneralJournalEntry
                        && generalJournalEntry.SubledgerVoucherDataAreaId == 'CENT'
                        && generalJournalEntry.AccountingDate >= mkDate(1,4,2017)
                        && generalJournalEntry.AccountingDate <= mkDate(1,4,2017)
            {
             info(strFmt("data area ---%1 - Debit ---%2",generalJournalEntry.dataAreaId,generalJournalAccountEntry.AccountingCurrencyAmount));

            }



            while select sum(AccountingCurrencyAmount) from  generalJournalAccountEntry
                    where generalJournalAccountEntry.LedgerAccount == '2411102-CENT' // credit group
                join generalJournalEntry
                    where generalJournalEntry.RecId == generalJournalAccountEntry.GeneralJournalEntry
                        && generalJournalEntry.SubledgerVoucherDataAreaId == 'CENT'
                        && generalJournalEntry.AccountingDate >= mkDate(1,4,2017)
                        && generalJournalEntry.AccountingDate <= mkDate(1,4,2017)
            {
                info(strFmt("data area ---%1 - Credit ---%2",generalJournalEntry.dataAreaId,generalJournalAccountEntry.AccountingCurrencyAmount));

            }

}