Fala pessoal, tudo bom?

Uma dúvida estou criando uma custom via pe MA650EMP para limpar o conteúdo do campo D4_LOTE ao gerar as Ordens de Produção sempre que o campo D4_LOCAL for igual a 02. Porém está ocorrendo o errO:

array out of bounds ( 0 of 20 ) on U_MA650EMP(MA650EMP.PRW) 12/07/2023 14:51:38 line : 22"

Abaixo segue o fonte desenvolvido, alguém teria uma sugestão do que pode ser?

User Function MA650EMP()
    Local aArea  := FWGetArea()
    Local aItems 
    Local cOp    := SD4->D4_OP 
    Local cArmazem := SD4->D4_LOCAL
    Local nX    
    Local cCampo := " "

   DbSelectArea("SD4")
    SD4->(DbSetOrder(2))
    If SD4->(MsSeek(FWxFilial("SD4")+cOp))
        If cArmazem $ "02"
            For nx := 1 to Len(aCols)
                aItems := AScan(aHeader,{|aX| AllTrim(aX[2]) == "D4_LOTE"})
                N := nX
                aCols[N,aItems] := cCampo 
            next nX
        EndIf
    EndIf

    FWRestArea(aArea)  

Return Nil