Receber valores de uma consulta

0

Eu tenho esse codigo que deve receber o valor de que a consulta retorna em cada campo da tabela SF2, mas ao inves de retornar o valor, ele ta retornando o nome do campo, como eu arrumo isso? Acredito que o problema esteja nas ultimas 5 linhas

Local aCampSF2 := FWSX3Util():GetAllFields('SF2', .F.)

cQuery := "SELECT DISTINCT " +;

" * " +;

"FROM " +;

RetSqlName("SF2") + " sf2 " +;

RetSqlName("SF3") + " sf3 " +;

RetSqlName("ZZ5") + " zz5 " +;

"WHERE " +;

"f2_filial = '" + cCodFilial + "' " +;

"AND " +;

"f2_doc = '" + cDoc + "' " +;

"AND " +; "f2_serie = '" + cSerie + "' " +;

"AND "+;

"f2_emissao = '" + cDtEmi + "' " +;

"AND " +;

"sf2.de_l_e_t = '*' "

//Criar alias temporário cAliasQry := MPSysOpenQuery(cQuery)

For nI := 1 To Len(aCampSF2)

aAdd(aDados, {(cAliasQry)->(aCampSF2[nI])})

Alert(cValToChar(aDados[nI, 1])

Next nI

Alert(Len(aDados))

compartilhar
  • 0

    Nossa cara tem muito erros nesse script

     — Lucas de Paulo Santos   07 de May de 2024
  • 0

    Precisa mesmo retornar todos os campos destas 3 tabelas?

     — Lucas de Paulo Santos   07 de May de 2024
  • 0

    Sim eu preciso de todos os campos, e pode me falar mais ou menos onde estão os erros?

     — Arthur Dias   07 de May de 2024
  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 sql mvc advpl ou faça a sua própria pergunta.