variable is not an object on U_IMPCSV(ZSBZCAD.PRW) line : 188

Pessoal, tenho um fonte que importa CSV na grid (opção de importar está em "outras opções" no menu incluir" Porém quando importo, ele dá erro dizendo que a variável não é objeto, mesmo eu já tendo tentado declará-la como objeto. Segue trecho do código e a linha que dá erro para análise:

Linha que dá erro:

FT_FUse()
Fclose(cArq)
oView:Refresh() ==> ERRO AQUI NESSA LINHA
oModel:GoLine( 1 )

Função completa:

User Function ImpCSV(oModel,oView)

    Local cExt         := "Arquivos | *.CSV"
    Local cPath:=cGetFile(cExt,cExt)
    Local cFileOpen := cPath
    Local cArq := cPath + ".csv"
    Default oModel := oModel:GetModel('SBZGRID')

    FT_FUSE(cFileOpen)
    FT_FGoTop()
    cArq       := cPath
    nHdl    := fOpen(cArq)
    If nHdl == -1
        MsgAlert("O arquivo de nome "+cArq+" nao pode ser aberto! Verifique os parametros.","Atencao!")
        Return
    Endif
    nrg:=0

    FT_FGoTop()
    procregua(nrg)
    nLidos    := 0
    _cCodPrin := ""
    _nSeq     := 1
    _ln       := 1
    _lAcols   := .f.

    aFilial := {}
    _CODIGO := ""

    While !FT_FEOF()
////        Begin Transaction
        cLine     := FT_FReadLn()
        aLinha     := Separa(cLine,";")
        nLidos++
    IF nLidos >= 2
            IF LEN(aLinha) > 0


                oModel:AddLine()

                oModel:GoLine( nLine )

                oModel:SetValue('SBZ_COD',aLinha[01])
                VldCodProd(oModel)

                oView:Refresh()

///                nLine := oModelZA7:length() + 1

            Endif
        Endif

        FT_FSkip()
    EndDo
    FT_FUse()
    Fclose(cArq)
    oView:Refresh() ==> ERRO NESSA LINHA
    oModel:GoLine( 1 )

RETURN

Desde já agradeço a ajuda!

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!

0 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl devforum fonte protheus csv user mvc model ou faça a sua própria pergunta.