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 |
|