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 !