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