array out of bounds ( 2 of 1 )

0

oi pessoal, alguém sabe o que quer dizer esse erro? array out of bounds ( 2 of 1 )

Linha de erro:

If !dbSeek(xFilial("SBZ")+aDados[i,1]+aDados[i,2]) ==> ERRO AQUI

Contexto do erro:

Begin Transaction
    ProcRegua(Len(aDados))
    For i:=1 to Len(aDados)

        IncProc("Importando Registros...")

        dbSelectArea("SBZ")
        dbSetOrder(1)
        dbGoTop()
        If !dbSeek(xFilial("SBZ")+aDados[i,1]+aDados[i,2]) ==> ERRO AQUI
            Reclock("SBZ",.T.)
            SBZ->BZ_FILIAL := xFilial("SBZ")
            For j:=1 to Len(aCampos)
                cCampo  := "SBZ->" + aCampos[j] //SBZ->A1_COD
                &cCampo := aDados[i,j] //SBZ->A1_COD := 000008   SBZ->A1_LOJA := 01 SBZ->A1_NOME := JOSE
            Next j
            SBZ->(MsUnlock())
        EndIf
    Next i
End Transaction
compartilhar
  • 1

    Olá, tudo indica que seu array aDados não possui a segunda posição acessada. Pode ser ele por completo ou apenas algum dos registros presentes nele, investigue quem é o responsável por criar ou popular o array aDados, ele precisa ser uma matriz.

     — Daniel Mendes   23 de Mar de 2023
  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 function protheus tabela array ou faça a sua própria pergunta.