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 MOMENTO DA CHAMADA É QUANDO 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 O 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 12

Nova versão 13

Chave