No vídeo de hoje, vamos demonstrar em como listar registros apagados (campo D_E_L_E_T_ igual a asterisco) em um browse padrão.
A dúvida de hoje, nos perguntaram, como seria possível que registros apagados, aparecessem em um browse de navegação de dados.
Pensando nisso, montamos esse exemplo, onde demonstramos em como usar o SET DELETED OFF junto do ponto de entrada ChkExec.
Segue abaixo o vídeo exemplificando:
E abaixo o código fonte desenvolvido:
//Bibliotecas
#Include "Totvs.ch"
/*/{Protheus.doc} User Function ChkExec
Ponto de Entrada acionado ao clicar em alguma opção no menu
@type Function
@author Atilio
@since 04/03/2024
@see https://tdn.totvs.com/display/public/framework/CHKEXEC+-+Dispara+ponto+de+entrada
/*/
User Function ChkExec()
Local lContinua := .T.
//Aciona a customização antes de abrir a tela
u_zVid0102()
Return lContinua
/*/{Protheus.doc} User Function zVid0102
Função customizada para habilitar a visualização de registros apagados, somente se o usuário logado for administrador
@type Function
@author Atilio
@since 04/03/2024
@see https://tdn.totvs.com/display/tec/Fundamentos+do+ISAM
/*/
User Function zVid0102()
//Somente se for usuário administrador e não tiver em processo automático sem tela
If FWIsAdmin() .And. ! IsBlind()
//Mostra a pergunta, se ele quer trazer registros deletados
If FWAlertYesNo("Deseja exibir registros apagados (campo D_E_L_E_T_ igual à asterisco)?", "Confirma?")
SET DELETED OFF
EndIf
EndIf
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
