Using Str Function Sql Query Is Not Sorted I Can't Understand How It Be Done

IF exists (SELECT * FROM sysobjects WHERE
id=object_id('usp_INV_get_InventoryActivity'))
DROP PROCEDURE usp_INV_get_InventoryActivity
GO

/*==========================================================================================
**
** FILE : usp_INV_get_InventoryActivity.sql
**
** Author :- JP/16-06-2009
** PURPOSE OF FILE :This procedure will INSERT or UPDATE INV_STOCK_TRANSACTION_HISTORY table
for the months WHEN transactions does not happen
**
** This Proc is executed by:
**
Modifications:
07 Feb 2013 : Riddhi R- Added case for OpeningBalance,ClosingBalance and EndingTotal.
17 Dec 2009 - Beena - Removed unnecessary code
14 Dec 2009 - Abhay - Defect ID 16 (Live Release)- For showing Return Quantity and Avg Return value
30 Sep 2009 - Beena Shah -Average Rate were not calculated properly
4th Sep 2009 - Beena Shah - Defect 181 - Show Transfer as a separate column for inv activity
28/08/2009 Beena Shah Added Total Adjustment value and also UPDATEd proc for right calculations
16/06/2009 Beena Shah Added Adjustment qty for closing balance
** =========================================================================================*/
CREATE PROCEDURE usp_INV_get_InventoryActivity
(
@Company_Code type_company_code,
@IPart_No INT --Company Code For Labor code
)

AS Begin

DECLARE @Inv_Precision INT,
@Currency Nvarchar(10)



SELECT @Inv_Precision=Inv_SET_Inventory_Precision ,
@Currency = Currency_Symbol
FROM cd_General_parameter G inner join CD_Currency C
On G.Gen_country_Code = C.Country_Code
And G.Company_Code = C.Company_Code
WHERE G.Company_Code=@Company_Code


SELECT
company_code,
CurrentMonth=datename(mm,convert(nvarchar(2),IMonth)+'/01/2000'), -- To get month name datename function needs date in format 'mm/dd/yyyy'
CurrentMonthNumeric=isnull(IMonth,''),
CurrentYear =IYear,

--opening qty
OpeningBalance = ISNULL(case when sum(OpeningQty) < 0 then 0 else sum(OpeningQty) end,0.0),

--Issue
IssuedQuantity= ISNULL(sum(issuedqty),0.0),
TotalIssuedValue= @Currency + ' ' + ISNULL(sum(TotalIssueValue),0.0) ,
AvgIssuedQuantity= @Currency + ' ' + STR(ISNULL(case when sum(issuedqty)=0 then Avg(AvgIssueRate)
else sum(TotalIssueValue)/sum(issuedqty)
end,0.0),30,@Inv_Precision),

--Receive
ReceivedQuantity=ISNULL(Sum(recqty),0.0),
TotalReceivedValue=@Currency + ' ' + STR(ISNULL(Sum(TotalRecValue),0.0),30,@Inv_Precision),
AvgReceivedQuantity=@Currency + ' ' + STR(ISNULL(case when sum(recqty)=0 then Avg(AvgRecRate)
else sum(TotalRecValue)/sum(recqty)
end,0.0),30,@Inv_Precision),

--Adjustment
AdjustmentQty=ISNULL(Sum(AdjustmentQty),0.0),
TotalAdjValue=@Currency + ' ' + STR(ISNULL(Sum(TotalAdjustmentValue),0.0),30,@Inv_Precision),
AvgAdjustmentRate=@Currency + ' ' + STR(ISNULL(case when sum(AdjustmentQty)=0 then Avg(AvgAdjustmentRate)
else sum(TotalAdjustmentValue)/sum(AdjustmentQty)
end,0.0),30,@Inv_Precision),

--Transfer
TransferedQty = ISNULL(sum( case When TransferedQty >= 0 then TransferedQty
else 0 end ),0.0),
TotalTransferValue=@Currency + ' ' + STR(ISNULL(sum(case When TransferedQty >= 0 then TotalTransferValue
else 0 end ),0.0),30,@Inv_Precision),
AvgTransferRate=@Currency + ' ' + STR(ISNULL(case when sum(case When TransferedQty >= 0 then TransferedQty
else 0 end )=0 then Avg(AvgTransferRate)
else sum(case When TransferedQty >= 0 then TotalTransferValue
else 0 end )/sum(case When TransferedQty >= 0 then Transfere