import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: PM320INC - Valida apontamentos
Descrição:
Ponto de Entrada que efetua a validação da inclusão de apontamentos.
Eventos
Inclusão de apontamento.
Programa Fonte
PMSA320.PRW
Sintaxe
PM320INC - Valida apontamentos ( [ ] ) --> lRet
Parâmetros:
Retorno
Exemplos
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
Variáveis
|