Opening Balance value not coming right

Table F03b11

To Fetch Amount Gross Before the Processing Option Start Date

F03B11.Select

            Addressnumber =Bc Addressnumber f03b11

            Date(DGJ) <PO StartDate

F03B11.Fetch Next

                      AmountGross -> Va rpt Op_AmountGross

                       DGJ=->Va rpt GL

While SV File_IO_Status is equal to CO SUCCESS

If VA rpt_GL is less than PO StartDate

VA rpt_TotalGrossAmount = [VA rpt_TotalGrossAmount]+[VA rpt_Op_AmountGross]

End If

F03B11.Fetch Next     (Same as above Fetch next)

End While

// ==========================================================

// ========Making the value in  Credit &Debit

// =====================================================

If VA rpt_TotalGrossAmount is greater than or equal to <Zero>

VA rpt_Op_Debit = VA rpt_TotalGrossAmount