Edição obrigatoriedade Campos para único usuário

Framework - Linha Protheus Configurador (SIGACFG)
, ,
1

Fala pessoal tudo bem? Estou com uma dúvida... vocês sabem se é possível editar a obrigatoriedade de um campo para um único usuário? Sem mudar a configuração para os demais? Quero editar o campo A1_CGC, tabela SA1. Grato desde já.

2

Pessoal, acabei ver que não é possível fazer isso. Mudou para um, vai para todos. Valeu um ótimo dia a todos

3

é possivel sim Luca, segue exemplo do PE CRMA980 que fiz comparando por nome de usuario mas você pode mudar para codigo,etc.

Para mais exemplos , https://tdn.totvs.com/pages/releaseview.action?pageId=616215550


#Include "protheus.ch"
#Include "totvs.ch"
#Include "FWMVCDEF.ch"

/*/{Protheus.doc} CRMA980
(Customizações via PE no CRMA980)
@type user function
@author Leandro Lemos
@since 20/09/2024
@version P12
@param param_name, param_type, param_descr
@return return_var, return_type, return_description
@example
(examples)
@see (links_or_references)
/*/
User Function CRMA980()
    Local aParam        := PARAMIXB
    Local xRet          := .T.
    Local cIDPonto      := ''
    Local cIDModel      := ''
    Local oObj          := NIL

    default __LOGTELA := Nil

    If aParam <> NIL

        oObj        := aParam[1]
        cIDPonto    := aParam[2]
        cIDModel    := aParam[3]

        cIDPonto == 'MODELVLDACTIVE'            
            ModifModel(oObj, cIDPonto, cIDModel)
        EndIf

    EndIf

Return xRet

/*/{Protheus.doc} ModifModel
(Aplica modificações ao modelo de dados, atualmente utilizado para validar permissões de campos)
@type user function
@author Leandro Lemos
@since 20/09/2024
@version P12
@param oObj, object, model
@param cIDPonto, character, Id do ponto em execução
@param cIDModel, character, id do model
@return return_var, return_type, return_description
@example
(examples)
@see (links_or_references)
/*/
Static Function ModifModel(oObj, cIDPonto, cIDModel)
        Local cUsrBlq := "jose,maria,joao"

        if Lower(PswChave(RetCodUsr())) $ cUsrBlq 
    //  MODELO     -> SUBMODELO -> ESTRUTURA -> PROPRIEDADE                             -> BLOCO DE CÓDIGO                 -> X3_WHEN := .F.
    oObj:GetModel("SA1MASTER"):GetStruct():SetProperty("A1_CGC", MODEL_FIELD_WHEN, FwBuildFeature(STRUCT_FEATURE_WHEN , ".F."))
        endif
Return lRet