| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | PCOXINC |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46748 |
O ponto de entrada PCOVALID permite validar se a tela da Planilha Orçamentária será aberta ou não.
Durante a validação, é disponibilizada a tabela temporária que cria o objeto árvore da rotina Planilhas Orçamentárias, permitindo ao usuário implementar critérios personalizados para determinar o acesso ou restrições à abertura da tela.
If ExistBlock("PcoValid")
lValid:=ExecBlock("PcoValid",.F.,.F.,cArquivo)
EndIf |
User Function PcoValid()
Local lValid:= .F.
Local cAlias := PARAMIXB
Local aArea := GetArea()
Local aAreaX2 := (cAlias)->(GetArea())
Local nx := 0
dbSelectArea(cAlias)
(cAlias)->(dbGoTop())
While (cAlias)->(!eof())
nx++
Alert( (cAlias)->ALIAS +str(nx) )
(cAlias)->(dbSkip())
Enddo
RestArea(aAreaX2)
RestArea(aArea)
lValid:= MsgYesNo("Deseja abrir a tela?")
Return lValid |
|