Converter SQL para uma String

Alguém sabe como converter um SQL para dentro de uma string no TDS ?

Por exemplo, tenho o sql: SELECT D1COD, D1_DESC, D1_VUNIT, D1_TES FROM SD1010 WHERE D_E_L_E_T <> '*' AND D1_FILIAL = '01' AND D1_DOC = '000000150'

Mas teria uma maneira de pegar esse sql executado na visão "TOTVS SQL Command" e converter ele para dentro da variável e o resultado fica como nesse exemplo ?

cQuery := "SELECT D1_COD, D1_DESC, D1_VUNIT, D1_TES "

cQuery += " FROM "+RetSqlName("SD1")+" "

cQuery += " WHERE DE_L_E_T <> '*' "

cQuery += " AND D1_FILIAL = '"+cFilNF+"' "

cQuery += " AND D1_DOC = '"+cNf+"' "

Existe o site http://www.dpriver.com/pp/sqlformat.htm em que a saída para Delphi fica bem parecido com o que usamos no Protheus, mas queria usar algo no próprio TDS ou até mesmo no NotePad++. Desde já agradeço !

compartilhar
  • Esse link não está abrindo. Ele está correto?

    Guilherme Bigois   06 de Nov de 2018
  • Por que você não utiliza o beginsql? http://tdn.totvs.com/display/framework/Embedded+SQL deta forma não precisa concatenar em string.

    Sergio Martinez Martinez   06 de Nov de 2018
  • Obrigado pelo retorno @Guilherme, e o link está funcionando, talvez seja algo na tua rede.

    Jorge Alberto   06 de Nov de 2018
  • Obrigado pelo retorno @Sergio. Mas eu não uso o Embedded porque já estou acostumado a fazer dessa maneira e também em consultas com vários parâmetros eu não consigo pegar o retorno do ChangeQuery().

    Jorge Alberto   06 de Nov de 2018
  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 DevForum TOTVS!

5 respostas

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