Nesse vídeo demonstraremos em como apagar todos os registros de uma tabela através da função AvZap.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe059
Exemplo de função que executa o ZAP (limpeza) em uma tabela do Protheus apagando todos os dados
@type Function
@author Atilio
@since 05/12/2022
@obs
Função AvZap
Parâmetros
+ Alias da Tabela que terá os dados apagados
Retorno
+ .T. em caso de sucesso ou .F. em caso de falha
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe059()
Local aArea := FWGetArea()
Local cTable := "ZD4990"
Local cTabAlias := "ZD4"
//Tenta executar o zap na tabela
USE (cTable) ALIAS (cTabAlias) EXCLUSIVE NEW VIA "TOPCONN"
If (cTabAlias)->(AvZap())
FWAlertSuccess("Limpeza executada com sucesso!", "Teste AvZap")
Else
FWAlertError("Não foi possível excluir os dados da tabela, ela pode estar em uso!", "Teste AvZap")
EndIf
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
