Histórico da Página

||Descrição|| O ponto de entrada ATFA036L -realiza a Validaçãovalidação total do formulário de baixa de ativo em lote (Form + grid ).  
||Observações|| Ponto de entrada de validação total do formulário (Form + grid )
Substituindo Substitui o ponto de entrada AF030VLBX da rotina ATFA030 e o ponto de entrada AF035BLBX da rotina ATFA035.
||Exemplos||#Include 'Protheus.ch'
#Include 'FWMVCDef.ch'
/*/\{Protheus.doc\} ATFA036L
Ponto de entrada de validação total do formulário (Form + grid )
Substituindo o ponto de entrada AF030VLBX da rotina ATFA030 e o ponto de entrada AF035BLBX da rotina ATFA035.
@author TOTVS
@since 06/05/2014
@version 1.0
/*/
User Function ATFA036L
Local aParam     := PARAMIXB	// Vetor com os parâmetros recebidos pelos pontos de entrada da rotina de baixa de ativo em lote.
Local lRet       := .T.			// Variável de retorno dos pontos de entrada da rotina de baixa de ativos em lote.
Local oObj       := aParam\[1\]	// Objeto do Modelo de Dados da rotina de baixa de ativos em lote.
Local cIdPonto   := aParam\[2\]	// Identificador do ponto de entrada que será chamado através da função ATFA036L 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 em lote. (ATFA036L)
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|| ATFA036L.PRW