Construção simples

Quando a construção de uma query for simples, trate a formatação horizontal do mesmo modo como se é tratada na construção de funções e classes. Por exemplo:

// SimpleQuery.prw

#INCLUDE "TOTVS.CH"

Function SimpleQuery()

Local cQuery       := ""

RpcSetEnv("99", "01")

cQuery :=   "SELECT A1_CGC,A1_LOJA,R_E_C_N_O_ "                           +;

                    "     FROM " + RetSQLName("SA1")                        +;

                    "     WHERE A1_FILIAL ='" + XFilial("SA1") + "' AND " +;

                    "           A1_LOJA = '01' AND "                               +;

                    "           D_E_L_E_T_=''"                                     +;

                    "     ORDER BY A1_NOME"

ConOut(cQuery)

Return