Campo MEMO (Protheus)

Depois de muitas pesquisas e de ficar um pouco contrariado por não encontrar uma solução satisfatória, busquei uma ajuda dos universitários e consegui uma solução interessante para ler um campo MEMO e passar esse campo para uma variavel.

Abaixo segue a ideia do que foi utilizado:

    cLinha := ""

    For nX := 1 to MlCount(SZG->ZG_DESCATIV,150)

        cLinha += Alltrim(MemoLine(SZG->ZG_DESCATI,150,nX)) + " "

    Next nX

Houve também a idéia de criar um Array e gravar as informações, ficaria assim:

    cLinha := {}

    For nX := 1 to MlCount(SZG->ZG_DESCATIV,150)

        AADD(cLinha, MemoLine(AllTrim(SZG->ZG_DESCATI),150,nX))

    Next nX

Simples assim,

Utilizei uma das duas formas para não precisar usar soluções do Banco de Dados.

Daniel S. Menezes

Analista de Sistemas