Ayuda en revision de procedimiento

Buenas Tardes:

Una usuaria ejecuta un query y me dice que se demora 13 horas, tome ese
query y lo trate de correr en la misma base de datos pero en una mejor
maquina y aborta despues de un tiempo.

No se que pueda estar mal, agradezco su colaboracion ya que de estos temas
carezco de conocimiento.

Adjunto el Query

Gracias





BEGIN

DECLARE @Ofi char(5), @Ofi2 char(5)
DECLARE @Part float, @PartAcum float
/*DECLARE @PartTotal float, @PartAcumTotal float*/
DECLARE @CodCliente numeric(18)

DECLARE X CURSOR FAST_FORWARD READ_ONLY FOR

SELECT CodCliente,Oficina,PartCC
FROM VcCliOfiPto
where REGIONAL = '810' /*and PromedioCC >100*/
ORDER BY Oficina,PartCC DESC

OPEN X

FETCH NEXT FROM X INTO
@CodCliente, @Ofi, @Part
SET @Ofi2=0

WHILE @@FETCH_STATUS=0

BEGIN
IF @Ofi <> @Ofi2 SELECT @PartAcum=0

/*acumula productos*/
SELECT @PartAcum=@PartAcum+@Part

/*
suma totales
SET @PartTotal=@PartCC+@PartAH+@PartCERT+@PartCARTMLYME+@PartTC
SET
@PartAcumTotal=@PartAcumCC+@PartAcumAH+@PartAcumCERT+@PartAcumCARTMLYME+@PartAcumTC
*/

UPDATE VcCliOfiPto810
SET PartAcumCC=@PartAcum
WHERE /*PromedioCC >100 and */ codcliente=@CodCliente

SET @Ofi2=@Ofi
PRINT @CodCliente
FETCH NEXT FROM X INTO
@CodCliente,@Ofi,@Part
END

CLOSE X

DEALLOCATE X

END