Histórico da Página

Ponto de Entrada que efetua a validação da inclusão de apontamentos.

Inclusão de apontamento.

PMSA320.PRW

PM320INC - Valida apontamentos ( [ ] ) --> lRet

lRet(logico)
• .T. para permitir a inclusão ou .F. para não permitir a inclusão.

User Function PM320INC()Local aArea := GetArea()Local aAreaAFA := AFA->(GetArea())Local lRet := .T.If AFA->(FieldPos("AFA_MSBLQL")) > 0	dbSelectArea("AFA")	AFA->(dbSetOrder(5))	If AFA->(dbSeek( xFilial("AFA")+M->AFU_PROJET+M->AFU_REVISA+M->AFU_TAREFA+M->AFU_RECURS ))		lRet := .F.		Do While !lRet .And. !AFA->(Eof()) .And. AFA->(AFA_FILIAL+AFA_PROJET+AFA_REVISA+AFA_TAREFA+AFA_RECURS)==xFilial("AFA")+M->AFU_PROJET+M->AFU_REVISA+M->AFU_TAREFA+M->AFU_RECURS			If AFA->AFA_MSBLQL<>"1"				lRet := .T.			EndIf				AFA->(dbSkip())		EndDo	EndIf	If !lRet		Alert("Bloqueado")	EndIfEndIfRestArea(aAreaAFA)RestArea(aArea)Return lRet