Construção condicional

Na construção condicional de queries é importante manter agrupado em um bloco sequencial. Não permita que processamentos ou comandos não relativos a montagem da query esteja intercalado ao bloco de montagem de query.

// ConditionalQuery.prw

#INCLUDE "TOTVS.CH"

Function ConditionalQuery()

Local cQuery            := ""

Local lOnlyNotDeleted   := .T.

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 "                                             +

If lOnlyNotDeleted

      cQuery += "             D_E_L_E_T_=''"

EndIf

cQuery += " ORDER BY A1_NOME"

ConOut(cQuery)

Return