Updating Dimension in SalesLine

static void OGSUpdtCCWMSDimInSalesLine(Args _args)

{

    salesTable salesTable;

    SalesLine SalesLine;

    SalesStatus SalesStatus;

    OGSUtil OGSUtil;

    DefaultDimensionView DefaultDimensionView;

    InventDim InventDim;

    RecId newDimension;

    ttsBegin ;

    while select salesTable where (salesTable.SalesStatus != SalesStatus::Invoiced)

        //&& (salesTable.SalesId=='PO-ASAP000479')

    {

        while select forupdate SalesLine where (SalesLine.SalesId== salesTable.SalesId)

            {

                select  InventDim where (InventDim.inventDimId ==  SalesLine.InventDimId);

                newDimension = OGSUtil::getDimensionWithCostCenterValue(SalesLine.DefaultDimension,InventDim.inventlocationId );

                if (SalesLine.DefaultDimension != newDimension)

                {

                    SalesLine.DefaultDimension = newDimension;

                    SalesLine.update();

                    //soUpdated++;

                }

            }

    }

    ttsCommit;

}