Perguntas Como executar uma Embedded SQL

Pessoal,

Estou com uma duvida sobre como executar um query em Advpl usando o facilitador Embedded SQL eu estou fazendo assim sera que esta certo?

User Function AFATROT()

Local aRotina := { }
Local cAliasQRY:= GetNextAlias()


aadd(aRotina,{"Pesquisar" ,"",0,1})
aadd(aRotina,{"Visualizar","",0,2})



BeginSql Alias cAliasQRY
SELECT C5_CONPRIN,C5_NUM, C5_CLIENTE,C5_LOJACLI,A1_NOME ,C5_FATGLOB,C6_ITEM,C6_PRODUTO,C6_DESCRI, C6_QTDVEN, C6_QTDENT, C6_QTDVEN - C6_QTDENT AS SALDO, C9_QTDLIB,C9_BLEST,C9_BLCRED,C9_NFISCAL,C9_OC,C9_DATALIB
FROM %table SC5%

INNER JOIN SC6020 ON C6_NUM=C5_NUM
INNER JOIN SA1020 ON A1_COD=C5_CLIENTE AND A1_LOJA = C5_LOJACLI
LEFT JOIN SC9020 C9 ON C6_NUM= C9_PEDIDO AND C6_ITEM = C9_ITEM AND C9.C9_BLEST <> 10
EndSql



dbSelectArea(cAliasQRY)
dbGoTop()

mBrowse(6,1,22,75, cAliasQRY)

Return

Boa tarde.
Eu faço desta forma

SELECT
SC5.C5_CONPRIN
,SC5.C5_NUM
,SC5.C5_CLIENTE
,SC5.C5_LOJACLI
,SA1.A1_NOME
,SC5.C5_FATGLOB
,SC6.C6_ITEM
,SC6.C6_PRODUTO
,SC6.C6_DESCRI
,SC6.C6_QTDVEN
,SC6.C6_QTDENT
,SC6.C6_QTDVEN - SC6.C6_QTDENT AS SALDO
,SC9.C9_QTDLIB
,SC9.C9_BLEST
,SC9.C9_BLCRED
,SC9.C9_NFISCAL
,SC9.C9_OC
,SC9.C9_DATALIB

FROM %table:SC5% SC5,
%Table:SC6% SC6,
%Table:SC9% SC9,
%Table:SA1% SA1

WHERE SC5.%NotDel%
AND SC6.%NotDel%
AND SC9.%NotDel%
AND SA1.%NotDel%

AND SC5.C5_FILIAL = %xFilial:SC5%
AND SC6.C6_FILIAL = %xFilial:SC6%
AND SC9.C9_FILIAL = %xFilial:SC9%
AND SA1.A1_FILIAL = %xFilial:SA1%

AND C6_NUM=C5_NUM
AND A1_COD=C5_CLIENTE
AND A1_LOJA = C5_LOJACLI
AND C6_NUM= C9_PEDIDO
AND C6_ITEM = C9_ITEM

AND C9.C9_BLEST <> %Exp:"10"%

Espero ter ajudado.