Histórico da Página

...

Produto:

Microsiga Protheus®

Ambiente:

Faturamento (SIGAFAT)

Ocorrência:

Como alterar as informações 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 BUTTONBAR, que será executado antes da abertura da janela do cadastro.

No exemplo abaixo, iremos retratar o caso em que o usuário deseja efetuar alterações no momento da cópia de um cliente já cadastrado, alterando o conteúdo do campo de Maior Saldo (A1_MSALDO).

Exemplo:

Bloco de código

language	js
linenumbers	true

#Include "TOTVS.ch"
#Include "FWMVCDEF.ch"

User Function CRMA980()

	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

	If (aParam != NIL)    

    	oObj     := aParam[1]
		cIdPonto := aParam[2]
		cIdModel := aParam[3]

        // Verifica se o ID é igual a BUTTONBAR e se a operação de inclusão é proveniente de uma cópia
        If (cIdPonto == "BUTTONBAR" .And. oObj:IsCopy())
            // Procura submodelo SA1MASTER e insere no campo informado o conteúdo desejado
            oObj:GetModel("SA1MASTER"):LoadValue("A1_MSALDO", 0)

            // Recupera a View ativa e atualiza (necessário para exibição do conteúdo)
            oView := FwViewActive()
            oView:Refresh()
        EndIf

    EndIf

Return (xRet)

Pode lhe interessar:

Ponto de Entrada Padrão do MVC

Operação de cópia em ponto de entrada MVC (Lcopia)

Ponto de entrada MVC mata030

...

Árvore de páginas

Versões comparadas

Versão antiga 14

Nova versão 15

Chave