Receber valores de uma consulta

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))

criado 2 weeks ago
Arthur Dias
10 pontos
editado 2 weeks ago

0

Nossa cara tem muito erros nesse script
— Lucas de Paulo Santos 2 weeks ago

0

Precisa mesmo retornar todos os campos destas 3 tabelas?
— Lucas de Paulo Santos 2 weeks ago

0

Sim eu preciso de todos os campos, e pode me falar mais ou menos onde estão os erros?
— Arthur Dias 2 weeks ago

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.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
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.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

up 0 down
```
Local aCampSF2 := FWSX3Util():GetAllFields('SF2', .F.)

cQuery := "SELECT DISTINCT "
cQuery :+ " * " 
cQuery :+ "FROM "
cQuery :+ RetSqlName("SF2") + " SF2 " 
cQuery :+ RetSqlName("SF3") + " SF3 " 
cQuery :+ RetSqlName("ZZ5") + " ZZ5 " 
cQuery :+ "WHERE " 
cQuery :+ "F2_FILIAL = '" + cCodFilial + "' " 
cQuery :+ "AND F2_DOC = '" + cDoc + "' " 
cQuery :+ "AND F2_SERIE = '" + cSerie + "' " 
cQuery :+ "AND F2_EMISSAO = '" + cDtEmi + "' " 
cQuery :+ "AND SF2.D_E_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))
```
DICAS: SQL É CASESENSITIVE, MESMO EU DANDO ESSA ARRUMADINHA NESSE SCRIPT, AINDA ACREDITO QUE ELE NAO FUNCIONE, VOCÊ ESTA QUERENDOO CONSULTAR 3 TABELAS DE 1 VEZ, SEM AMARRAÇÃO SEM NADA. QUANDO O DELET EM O * QUER DIZER QUE O DADO JÁ FOI "DELETADO".
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 2 weeks ago
  Lucas de Paulo Santos
  998 pontos
- 0
  
  COMO VC QUER QUE ELE RETORNE OS DADOS?
  — Lucas de Paulo Santos 2 weeks ago
- 0
  
  A consulta completo retorna apenas um valor pra cada campo, porque nela tem inner joins, ai eu preciso que o valor que vai retornar em cada campo seja passado para uma posição na lista aDados
  — Arthur Dias 2 weeks ago
- 0
  
  ONDE ESTÁ O INNER JOIN? QUAL CAMPO VC FAZ A AMARRAÇÃO?
  — Lucas de Paulo Santos 2 weeks ago
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Receber valores de uma consulta

Comentário

1 resposta

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags sql mvc advpl ou faça a sua própria pergunta.