SELECT GrdDate, VendCode, ChallanNo, ChallanDate, PendingItems, ExciseGPRef, 
               ExciseGPDate, Excise_Amt,Receiveditems, StatusInd
        INTO   :GRDRef_Dt, :VendCode, :ChallanNo, :ChallanDt, PItems, :Excise_GP_No,
               :Excise_GP_Dt, :Excise_Amt, Noitems, DelFlag
        FROM   GrdData
        WHERE  GrdNumber = rtrim(:GrdRef_No)
        and  Periodid  = :Global.Periodid
        and  UNitid    = :Global.Unitid;