simple Logic for Grouping some records

Check this out :

thanks to Tukang Ojek ASP who create this simple logic.

ListPaymentGenralJournalAccount2V       viewPayment;
    CustVendAC                              CustVendAC,lastvalue;
    Amount                                  sumAmount;
    int                                     i=1;
    int                                     numofrecord;
    

while select viewPayment
    where viewPayment.JournalNum == ListPaymentGenralJournalAccount2V.JournalNum
    {
        CustVendAC = viewPayment.CustVendACcount();
        numofrecord += 1;
        if(CustVendAC == lastvalue)
        {
            sumAmount += viewPayment.AccountingCurrencyAmount;
            info(strFmt("%1",sumAmount));

        }
        else if(CustVendAC != lastvalue && i != 1)
        {
            info("beda");
            sumAmount = viewPayment.AccountingCurrencyAmount;
            info(strFmt("%1",sumAmount));
        }
        lastvalue = CustVendAC;
        i += 1;
    }