Utilização do Ponto de Entrada em MVC do Cadastro de Clientes na opção Copiar

Produto:

Microsiga Protheus®

Ambiente:

Faturamento (SIGAFAT)

Ocorrência:

Preenchimento de campo antes da abertura da tela ao realizar a cópia do Cadastro do Cliente através de ponto de entrada em MVC.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

Utilize o id BUTTONBAR, pois o mesmo é executado depois de todas as validações básicas para abertura da rotina.

O exemplo abaixo retrata o caso em que o usuário deseja que na não efetuar a cópia de um cliente o campo de Maior Saldo (A1_MSALDO), localizado na aba Adm/Fin. dentro da aba Principal do cadastro em MVC, seja zerado.alguns campos de um cliente já cadastrado.

Exemplo:

Bloco de código

language	actionscript3js
linenumbers	true

Exemplo:

// BIBLIOTECAS UTILIZADAS

#Include "TOTVS.ch"


#Include "FWMVCDEF.ch"

// PONTO DE ENTRADA MVC DA CRMA980
User Function


 
User Function CRMA980()

Local aParam


 
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

// VALIDA SE O PONTO FOI CHAMADO SEM PASSAGEM DE PARÂMETROS
If (aParam != NIL)
// ATRIBUIÇÃO DE VALORES
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)// RETORNO LÓGICO PARA PROSSEGUIMENTO

  // 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]
    cIdPonto := aParam[2]
    cIdModel := aParam[3]

    If cIDPonto == "MODELVLDACTIVE" .And. oObj:GetOperation() == MODEL_OPERATION_INSERT

        aAdd(aCpoNoCopy, "A1_MSALDO")
        aAdd(aCpoNoCopy, "A1_MCOMPRA")
        aAdd(aCpoNoCopy, "A1_PRICOM")
        aAdd(aCpoNoCopy, "A1_ULTCOM")
        aAdd(aCpoNoCopy, "A1_SALDUP")
        aAdd(aCpoNoCopy, "A1_SALPED")

        //Define quais campos do submodelo não serão copiados no processo de cópia do submodelo.
        oObj:GetModel("SA1MASTER"):SetFldNoCopy(aCpoNoCopy)

    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

WFormFieldsModel