Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PM320INC - Valida apontamentos

Ponto-de-Entrada: PM320INC - Valida apontamentos
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
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:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    lRet(logico)
  • .T. para permitir a inclusão ou .F. para não permitir a inclusão.
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
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não