Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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
languageactionscript3js
linenumberstrue
#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:

...