Árvore de páginas

Descrição

Ponto de entrada que permitirá validar se a tela Planilha Orçamentária será a aberta ou não. Para a validação será disponibilizado a tabela temporária responsável por criar o objeto árvore da rotina Planilhas Orçamentárias.

Observações

Exemplos

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

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

cArquivo = itens da árvore

Retorno

lValid = .T. ou .F.

Eventos de chamada do Ponto de Entrada

If ExistBlock("PcoValid")
lValid:=ExecBlock("PcoValid",.F.,.F.,cArquivo)
EndIf

Variáveis

Local lValid:= .F.
Local cAlias := PARAMIXB
Local aArea := GetArea()
Local aAreaX2 := (cAlias)->(GetArea())
Local nx := 0

Programa Fonte

PCOXFUN.PRW

  • Sem rótulos