Descobri isso recentemente e eu não fazia ideia.

Estava conversando algumas semanas atrás com meu amigo Wallace Freitas (LinkedIn), e ele havia me falado que o DbSeek e MsSeek haviam diferenças, sendo que o segundo era mais performático.

Eu confesso que não sabia dessa informação e fui pesquisar, até que encontrei o link no TDN que fala sobre isso – https://tdn.totvs.com/display/framework/Desempenho+DbSeek+x+MsSeek

Baseado no exemplo do TDN, eu montei o exemplo abaixo:

#Include "TOTVS.ch"

Static nVezes := 10000

/*/{Protheus.doc} User Function zSeek
Funcao para comparar desempenho entre DbSeek e MSSeek
@type  Function
@author Atilio
@since 27/06/2020
@version version
@example
    u_zSeek()
@see https://tdn.totvs.com/display/framework/Desempenho+DbSeek+x+MsSeek
/*/

User Function zSeek()
    Local aArea := GetArea()

    //Teste com DbSeek
    fTestDB()

    //Teste com MsSeek
    fTestMS()

    RestArea(aArea)
Return

Static Function fTestDB()
    Local nAtual
    Local cHoraIni := Time()
    Local cHoraFin
    Local cDifer

    //Abrindo a tabela de Clientes e posicionando no topo
    DbSelectArea("SA1")
    SA1->(DbSetOrder(1))
    SA1->(DbGoTop())

    //Percorre o número de vezes e atualiza a hora final ao sair do laco
    For nAtual := 1 To nVezes
        SA1->(DbSeek(FWxFilial("SA1") + "000001" + "01" ))
    Next
    cHoraFin := Time()

    //Mostra mensagem ao usuario
    cDifer := ElapTime(cHoraIni, cHoraFin)
    MsgInfo("DbSeek:" + CRLF + "Hora Inicio: " + cHoraIni + CRLF + "Hora Final: " + cHoraFin + CRLF + "Total: " + cDifer, "Atencao")
Return

Static Function fTestMS()
    Local nAtual
    Local cHoraIni := Time()
    Local cHoraFin
    Local cDifer

    //Abrindo a tabela de Clientes e posicionando no topo
    DbSelectArea("SA1")
    SA1->(DbSetOrder(1))
    SA1->(DbGoTop())

    //Percorre o número de vezes e atualiza a hora final ao sair do laco
    For nAtual := 1 To nVezes
        SA1->(MsSeek(FWxFilial("SA1") + "000001" + "01" ))
    Next
    cHoraFin := Time()

    //Mostra mensagem ao usuario
    cDifer := ElapTime(cHoraIni, cHoraFin)
    MsgInfo("MsSeek:" + CRLF + "Hora Inicio: " + cHoraIni + CRLF + "Hora Final: " + cHoraFin + CRLF + "Total: " + cDifer, "Atencao")
Return

E realmente o MsSeek é mais rápido que o DbSeek. Fazendo a mesma operação 10.000 vezes (de procurar um registro na SA1), o MsSeek demorou 4 segundos (média de 250 seeks por segundo), enquanto o DbSeek demorou 16 segundos (média de 62,5 seeks por segundo). Confira o print abaixo de resultado (a esquerda DbSeek e a direita MsSeek).

Comparação entre MsSeek e DbSeek

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheus