| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
CRMA980 TUDO OK |
|
Versão: |
12.1.33 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
WANDERSONW
em 16/08/2022, 10:10 h
Local: SP Registro: 01/07/2015 Postagens: 166 |
Bom dia Pessoal,
Na nova tela de cadastro de Cliente CRMA980 que agora está em MVC como faço para
chamar minhas funções que estão no TUDO OK da tela?
|
|
|
|
Mensagem do
VRTN
em 16/08/2022, 17:54 h
Local: MG Registro: 09/11/2009 Postagens: 191 |
Você precisa utilizar os Pontos de Entrada no Padrão MVC.
Segue abaixo um exemplo:
User Function CRMA980() As Variant
Local aParam As Array
Local cIDPonto As Character
Local cIDModel As Character
Local oObj As Object
Local xRet As Variant
aParam := PARAMIXB
xRet := .T.
If aParam <> NIL
oObj := aParam[1] // Objeto do formulário ou do modelo, conforme o caso.
cIDPonto := aParam[2] // ID do local de execução do ponto de entrada.
cIDModel := aParam[3] // ID do formulário.
If (cIDPonto == "MODELPRE") // Antes da alteração de qualquer campo do modelo.
ElseIf (cIDPonto == "MODELPOS") // Na validação total do modelo.
ElseIf (cIDPonto == "FORMPRE") // Antes da alteração de qualquer campo do formulário.
ElseIf (cIDPonto == "FORMPOS") // Na validação total do formulário.
ElseIf (cIDPonto == "FORMLINEPRE") // Antes da alteração da linha do formulário FWFORMGRID.
ElseIf (cIDPonto == "FORMLINEPOS") // Na validação total da linha do formulário FWFORMGRID.
ElseIf (cIDPonto == "MODELCOMMITTTS") // Após a gravação total do modelo e dentro da transação.
// Validações TudoOk
ElseIf (cIDPonto == "MODELCOMMITNTTS") // Após a gravação total do modelo e fora da transação.
ElseIf (cIDPonto == "FORMCOMMITTTSPRE") // Antes da gravação da tabela do formulário.
ElseIf (cIDPonto == "FORMCOMMITTTSPOS") // Após a gravação da tabela do formulário.
ElseIf (cIDPonto == "FORMCANCEL") // No cancelamento do botão.
ElseIf (cIDPonto == "MODELVLDACTIVE") // Na ativação do modelo
ElseIf (cIDPonto == "BUTTONBAR") // Para a inclusão de botões na ControlBar.
EndIf
EndIf
Return (xRet)
|
|
|
|
Mensagem do
VRTN
em 16/08/2022, 17:58 h
Local: MG Registro: 09/11/2009 Postagens: 191 |
Acabei colocando a validação no if errado, segue abaixo o correto:
User Function CRMA980() As Variant
Local aParam As Array
Local cIDPonto As Character
Local cIDModel As Character
Local oObj As Object
Local xRet As Variant
aParam := PARAMIXB
xRet := .T.
If aParam <> NIL
oObj := aParam[1] // Objeto do formulário ou do modelo, conforme o caso.
cIDPonto := aParam[2] // ID do local de execução do ponto de entrada.
cIDModel := aParam[3] // ID do formulário.
If (cIDPonto == "MODELPRE") // Antes da alteração de qualquer campo do modelo.
ElseIf (cIDPonto == "MODELPOS") // Na validação total do modelo.
ElseIf (cIDPonto == "FORMPRE") // Antes da alteração de qualquer campo do formulário.
ElseIf (cIDPonto == "FORMPOS") // Na validação total do formulário.
// Validações TudoOk
ElseIf (cIDPonto == "FORMLINEPRE") // Antes da alteração da linha do formulário FWFORMGRID.
ElseIf (cIDPonto == "FORMLINEPOS") // Na validação total da linha do formulário FWFORMGRID.
ElseIf (cIDPonto == "MODELCOMMITTTS") // Após a gravação total do modelo e dentro da transação.
ElseIf (cIDPonto == "MODELCOMMITNTTS") // Após a gravação total do modelo e fora da transação.
ElseIf (cIDPonto == "FORMCOMMITTTSPRE") // Antes da gravação da tabela do formulário.
ElseIf (cIDPonto == "FORMCOMMITTTSPOS") // Após a gravação da tabela do formulário.
ElseIf (cIDPonto == "FORMCANCEL") // No cancelamento do botão.
ElseIf (cIDPonto == "MODELVLDACTIVE") // Na ativação do modelo
ElseIf (cIDPonto == "BUTTONBAR") // Para a inclusão de botões na ControlBar.
EndIf
EndIf
Return (xRet)
|
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
