PE MA650EMP array out of bounds

0

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
compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl ou faça a sua própria pergunta.