Função para Limpar Campo C6_OP

Boa tarde pessoal, desenvolvi a função abaixo para limpar o conteúdo do campo C6_OP após acionamento via botão no P.E MA410MNU.

Porém não está funcionando, alguma sugestão do que pode ser?

User Function zAltC6OP()

Local aArea     := GetArea()
Local aAreaSC6  := SC6->(GetArea())
Local nI        := 1
Local cLimpa    := " "
Local aCols     := {}

    If (!Empty(M->C6_OP))
        For nI:=1 to Len(aCols)
            If !aCols[nI, Len(aHeader)+1]
                aCols[nI,GdFieldPos("C6_OP",aHeader)]  := cLimpa
            endIf
        next nI
    End If

    SC6->(RestArea(aAreaSC6))
    RestArea(aArea)

Return cLimpa