Versão atual:

array out of bounds ( 2 of 1 )

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

Versões (2):

Ver a versão formatada

array out of bounds ( 2 of 1 )

Comentário

new question