PE AF030CHA

User Function ATFA036

	Local aParam := PARAMIXB // Vetor com os parâmetros recebidos pelos pontos de entrada da rotina de baixa de ativo manual.
	Local lRet := .T. // Variável de retorno dos pontos de entrada da rotina de baixa de ativo manual.
	Local oObj := aParam1 // Objeto do Modelo de Dados da rotina de baixa de ativos em lote.
	Local cIdPonto := aParam2 // Identificador do ponto de entrada que será chamado através da função ATFA036 da rotina de baixa de ativo manual.
	Local cIdModel := IIf( oObj<> NIL, oObj:GetId(), aParam3 ) // 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 Exibição da Tela de Baixas
		*/
		
		If cIdPonto == "FORMPRE"
			/*
				Gravação da Baixa
			*/
			If nOperation == MODEL_OPERATION_UPDATE
				Help("" ,1, "FORMPRE",,"Ponto de Entrada Executado no carregamento da exibiçã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, "FORMPRE",,"Ponto de Entrada Executado no carregamento da exibição do formulário para gravação do registro de cancelamento de baixa de ativo." ,1,0)
				lRet := .F.
			EndIf
		EndIf
	EndIf
	
Return lRet