FoxPro/Visual FoxPro - Agrupar y Sumar campo para reporte

SET SAFE OFF

SELE 1

USE TablaOrigen ORDER TAG Codigo

COPY STRUC TO TablaDestino

SELE 2

USE TablaDestino

SELE TablaOrigen

DO WHILE !EOF()

    _codigo = codigo

    _descripcion = ""

    _serie = ""

    STORE 0 TO _cantidad, _precio, _total

    DO WHILE codigo = _codigo and !EOF()

          _descripcion = descripcion

          _cantidad = _cantidad + cantidad

          _serie = _serie + ", " + serie

          _precio = precio

          _total = _total + total

          IF !EOF()

             SKIP

          ENDIF

    ENDDO

    SELECT TablaDestino

    APPE BLANK

    REPLA codigo WITH _codigo, descripcion WITH _descripcion, serie WITH _serie, precio WITH _precio, total WITH _total

    SELECT TablaOrigen

ENDDO