PCOENTREV - Ponto de Entrada

Descrição

Ponto de entrada criado na função AuxRevisa, para adicionar itens no array que define as entidades que devem ser copiadas em uma revisão.

Observações

Esse ponto foi criado para exclusão de valores que estejam amarrados ao item excluídos.

Exemplos

User Function PCOENTREV()
Local aEntidades := {}
aAdd(aEntidades,"P01")
Return (aEntidades)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Não possui

Retorno

Array dos Itens de entidades

Eventos de chamada do Ponto de Entrada

If ExistBlock("PCOENTREV")
aNewEntid := ExecBlock("PCOENTREV",.F.,.F.)
If ValType(aNewEntid) == "A" .And. Len(aNewEntid)>0
For nx := 1 To Len(aNewEntid)
aAdd(aAliasCpy,aNewEntidnx)
Next nx
EndIf
Endif

Variáveis

Local lPCOENTREV := ExistBlock("PCOENTREV")

Programa Fonte

PCOXFUN.PRW