Histórico da Página

Descrição

ATFA036 - Validação Na rotina ATFA036 existe o ponto de entrada para validação dos dados do formulário de baixa de ativo e cancelamento de baixa ativo.

Observações

Ponto de gravação de validação total do formulário (Form + grid )
Substituindo .  Substitui o ponto de entrada AF030VBX da rotina ATFA030.

Exemplos

/*/{Protheus.doc} ATFA036

Ponto de gravação de validação total do formulário (Form + grid )

Substituindo o ponto de entrada AF030VBX da rotina ATFA030.

@author TOTVS

@since 05/05/2014

@version 1.0

/*/

User Function ATFA036

Local aParam := PARAMIXB // Vetor com os parâmetros recebidos pelos pontos de entrada da rotina de baixa de ativo.

Local lRet := .T. // Variável de retorno dos pontos de entrada da rotina de baixa de ativos.

Local oObj := aParam[1] // Objeto do Modelo de Dados da rotina de baixa de ativos.

Local cIdPonto := aParam[2] // Identificador do ponto de entrada que será chamado através da função ATFA036 da rotina de baixa de ativos.

Local cIdModel := IIf( oObj<> NIL, oObj:GetId(), aParam[3] ) // Identificador do Modelo de Dados da rotina de baixa do Ativo (ATFA036)

Local cClasse := IIf( oObj<> NIL, oObj:ClassName(), '' ) // Nome da classe utilizada na rotina (FWFORMFIELD - Formulário, FWFORMGRID - Grid)

Local nOperation := 0

/*

• Verificação se o modelo de dados está ativo para utilização dos dados da rotina de baixa de ativo antes da execução dos procedimentos do ponto de entrada.

• */

• If oObj != Nil .AND. oObj:IsActive()

• /*
• Modo de Edição na Rotina (4-Baixa, 5-Cancelamento)

• */

• nOperation := oObj:GetOperation()

/*

• Verificação se o Identificador do Ponto de Entrada é do Processado antes da Gravação dos Dados (Commit)

• */

• If cIdPonto == "MODELPOS"

• /*
• Gravação da Baixa

• */

• If nOperation == MODEL_OPERATION_UPDATE

Help("" ,1, "MODELPOS",,"Ponto de Entrada Executado para validar após a confirmação do formulário para gravação do registro de baixa de ativo." ,1,0)

lRet := .F.

/*

• Gravação do Cancelamento da Baixa

• */

• ElseIf nOperation == MODEL_OPERATION_DELETE

• Help("" ,1, "MODELPOS",,"Ponto de Entrada Executado para validar após a confirmação do formulário para gravação do registro de cancelamento de baixa de ativo." ,1,0)

• lRet := .F.

• EndIf

• EndIf

• EndIf

Return lRet

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus12

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

TOTVSDBAccess

Updates

Parâmetros

Retorno

Retorno Lógico (lRet := (.T./.F.) )

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

ATFA036.PRW