Nesse vídeo demonstraremos a utilização da função X3Uso, que serve para verificar se um campo esta marcado como usado, assim exibindo nas telas do sistema.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe542
Valida se um campo esta marcado com a opção Usado
@type Function
@author Atilio
@since 07/04/2023
@see https://tdn.totvs.com/pages/releaseview.action?pageId=6815021
@obs
Função X3Uso
Parâmetros
+ cUsado , Caractere , Conteúdo do campo X3_USADO
+ nModulo , Numérico , Define o módulo que será usado para validar o uso do campo (se não for informado busca do módulo logado atualmente)
Retorno
+ lRet , Lógico , Retorna .T. se o campo estiver marcado como Usado ou .T. se não
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe542()
Local aArea := FWGetArea()
Local cCampo := ""
Local cUsado := ""
//Define o campo e busca a informação de usado
cCampo := "B1_GRUPO"
cUsado := GetSX3Cache(cCampo, "X3_USADO")
//Valida se o campo ta sendo usado nas telas do sistema
If X3Uso(cUsado)
FWAlertSuccess("O campo esta marcado como Usado", "Teste X3Uso")
Else
FWAlertError("Campo não sendo Usado", "Teste X3Uso")
EndIf
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
