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 !
Esse link não está abrindo. Ele está correto?
— Guilherme Bigois 06 de Nov de 2018Por 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 2018Obrigado pelo retorno @Guilherme, e o link está funcionando, talvez seja algo na tua rede.
— Jorge Alberto 06 de Nov de 2018Obrigado 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