Home

Linha Microsiga Protheus

Páginas filhas
  • PM320INC - Valida apontamentos

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
PM320INC - Valida apontamentos
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:
NomeTipoDescriçãoDefaultObrigatórioReferê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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão