Histórico da Página
Descrição | ATFA036 - 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 ) |
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 |