| Produto: |
TOTVS Backoffice
|
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Serviços |
| Módulo: | TOTVS Backoffice (Linha Protheus) - Planejamento e Controle Orçamentário (SIGAPCO)
|
| 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
Importante !!