Histórico da Página

User Function ATFA036 

	Local aParam := PARAMIXB //chamada 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 nOperationno fonte
If nOpt == 1 .And. ExistBlock("AF030VBX")
	If !ExecBlock("AF030VBX",.F.,.F.,{cMotivo,cNota,cSerie,lBx})
		nOpt := 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) 
				Endif
Endif

//função de usuário
User Function ATFA036 

	Local 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/ Variável de retorno dos pontos de entrada da rotina de baixa de ativos. 

Return lRet