set @strPartyName = (Select Party_Name from Cheque_Book where Voucher_No= @Voucher_No and Voucher_Type_No= @Voucher_Type_No and Company_No= @Comp_No and Bank_Account_No= @dbc_Account)

This subquery could potentially return more than one row, causing the error