Histórico da Página
...
Produto: | Microsiga Protheus® | |||||||||||
Ambiente: | Faturamento (SIGAFAT) | |||||||||||
Ocorrência: | Como fazer para não copiar as informações de alguns campos no momento de efetuar a cópia de um registro na rotina de Cadastro de Clientes em MVC | |||||||||||
Passo a Passo: | Utilizaremos o ponto de entrada em MVC através do id MODELVLDACTIVE, que será executado antes da abertura da janela do cadastro. No exemplo abaixo, iremos retratar o caso em que o usuário deseja não efetuar a cópia de alguns campos de um cliente já cadastrado. Exemplo:
User Function
Local aParam := PARAMIXB // Parâmetros passados para o ponto (sempre variam) Local xRet := .T. // Retorno lógico para prosseguimento da rotina Local oObj := NIL // Objeto que armazenará o modelo total Local cIdPonto := "" // Id do momento da chamada do ponto Local cIdModel := "" // Qual modelo ou submodelo está ativo Local aCpoNoCopy := {} If (aParam != NIL) oObj := aParam[1] If cIDPonto == "MODELVLDACTIVE" .And. oObj:GetOperation() == MODEL_OPERATION_INSERT aAdd(aCpoNoCopy, "A1_MSALDO")
EndIf Return
| |||||||||||
Pode lhe interessar: |