Verificar Retorno de uma Embedded SQL

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?

criado 27 de Oct de 2023
vhugobf
62 pontos
editado 27 de Oct de 2023

Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

2 respostas

up 1 down
Olá,

Não existe nenhuma função específica para isso, por conta disso o mais comum é verificar via o EOF mesmo.
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 27 de Oct de 2023
  Daniel Mendes
  15419 pontos
- 0
  
  Obrigado pela ajuda, consegui prosseguir
  — vhugobf 01 de Nov de 2023
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

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

editar
- x
grosseiro ou ofensivo pouco construtivo obsoleto outro...
Motivo

criado 30 de Oct de 2023
Marcos Bispo Abrahão
281 pontos

0

Obrigado pela sugestão Marcos
— vhugobf 01 de Nov de 2023

Verificar Retorno de uma Embedded SQL

Comentário

2 respostas

Comentário

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags embedded-sql sql alias ou faça a sua própria pergunta.