Verificar Retorno de uma Embedded SQL

Framework - Linha Protheus LIB
,
1

Boa tarde a todos, por via das dúvidas e por questão de curiosidade, saberiam me informar se possui alguma forma de verificar se uma determinada query está encontrando algum registro? Tipo algo com retorno booleano? Atualmente tenho utilizado o método EOF, mas tentei utilizar o método Empty , seria possível realizar uma verificação dessa forma? Segue trecho do código, agradeço se puderem me tirar essa dúvida


//busca código informado na SB1
    BEGINSQL ALIAS _cAlias
        SELECT B1_COD
        FROM %table:SB1% SB1  
        WHERE D_E_L_E_T_ = ''
        AND B1_COD = %exp:cCodigo%
    ENDSQL

    GetLastQuery()

    //Se achar registro
    // If SQL_SB1->(!empty())
    //     MsgInfo("prod encontrado "+cCodigo, "teste")
    //     RETURN
        //u_VerificaSX6()

    (_cAlias)->(DbGoTop())

    If(!(_cAlias)->(EoF()))

        u_VerificaSX6()

    //SQL_SB1->(DbCloseArea())
    (_cAlias)->(DbCloseArea())
    RestArea(aArea)

Antes estava utilizando 'SQL_SB1' ao invés de '_cAlias' teria alguma diferença notória ao se utilizar algum desses?

2

Olá,

Não existe nenhuma função específica para isso, por conta disso o mais comum é verificar via o EOF mesmo.

3

Obrigado pela ajuda, consegui prosseguir

4

Para queries simples, costumo usar o TCSqlToArr.


User Function ExitTbl(cTabela)
Local cQuery      := "SELECT ISNULL(OBJECT_ID(N'"+cTabela+"', N'U'),-1) AS EXIST"
Local aReturn      := {}
Local aBinds      := {}
Local aSetFields := {}
Local nRet         := 0
Local lRet       := .F.

//aadd(aBinds,xFilial("SA1")) // Filial
//aadd(aBinds,"000281") // Codigo
//aadd(aBinds,"01") // Loja

// Ajustes de tratamento de retorno
aadd(aSetFields,{"EXIST","N",5,0})
//aadd(aSetFields,{"A1_ULTVIS","D",8,0})

nRet := TCSqlToArr(cQuery,@aReturn,aBinds,aSetFields)

If nRet < 0
    u_MsgLog("ExitTbl",tcsqlerror()+" Falha ao executar a Query: "+cQuery)
Else
  //Alert(VarInfo("aReturn",aReturn))
  //MsgInfo("Verifique os valores retornados no console","Ok")
  If Len(aReturn) > 0
    If aReturn[1][1] > 0
        lRet := .T.
    EndIf
  EndIf
Endif

Return lRet
5

Obrigado pela sugestão Marcos