Tempo de leitura: 1 minuto
Olá, no post de hoje iremos falar de um dos comandos ADVPL, o comando Exit. O comando Exit em ADVPL causa a saída de um ciclo de repetição While … EndDo ou For … Next, transferindo o fluxo de execução do programa para a primeira linha de instrução imediatamente seguinte ao EndDo ou Next.
Sintaxe:
Exit
Parâmetro(s):
Nenhum
Utilização:
Utiliza-se o comando Exit para forçar a finalização de uma estrutura de repetição While … EndDo ou For … Next, mesmo que a condição de repetição do While ainda permaneça verdadeira ou o contador do For … Next ainda não tenha atingido o seu limite.
Exemplo do comando Exit em ADVPL:
#include 'protheus.ch'
/*{Protheus.doc} User Function fExit
(Essa função tem por finalidade mostrar o comando Exit em ADVPL)
@type Function
@author Adilio Costa
@since 13/10/2023
@version 1.0
@site https://www.protheusadvpl.com.br
@canal https://www.youtube.com/protheusadvpl
@instagram https://www.instagram.com/protheusadvpl
@Portal ProtheusAdvpl:https://hotmart.com/pt-br/marketplace/produtos/portal-protheusadvpl/O10336806O
@Post:Exit
*/
User Function fExit()
Local nX := 0
Local nY := 0
While nX <= 10
++nX
If(nX == 5)
MsgInfo("Saindo do laço de repetição While através do comando Exit!")
Exit
Else
MsgInfo("Continua processando o While..."+cValToChar(nX))
EndIf
EndDo
For nY:= 1 To 20
If(nY == 10)
MsgInfo("Saindo do laço de repetição For através do comando Exit!")
Exit
Else
MsgInfo("Continua processando o For..."+cValToChar(nY))
EndIf
Next nY
Return
Bem, finalizamos mais um post aqui do blog, espero que tenha entendido o conteúdo sobre o comando Exit. Qualquer dúvida deixe seu comentário abaixo ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br. Nos ajude compartilhando esse conteúdo nos grupos de Protheus e ADVPL/TL++ que você participa.
Grande abraço e fica com Deus.
Link de referência:https://tdn.totvs.com/display/public/framework/EXIT