| 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: | PCOXDIV |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46748 |
O ponto de entrada PCOENTREV é utilizado na função AuxRevisa para adicionar itens ao array que define as entidades a serem copiadas durante uma revisão no módulo SIGAPCO. Este ponto também possibilita a exclusão de valores vinculados aos itens que foram excluídos durante o processo de revisão.
Com essa funcionalidade, é possível personalizar o comportamento do sistema no momento da revisão, garantindo que apenas as entidades desejadas sejam copiadas e que os dados desnecessários sejam adequadamente removidos.
If ExistBlock("PCOENTREV")
aNewEntid := ExecBlock("PCOENTREV",.F.,.F.)
If ValType(aNewEntid) == "A" .And. Len(aNewEntid)>0
For nx := 1 To Len(aNewEntid)
aAdd(aAliasCpy,aNewEntid[nx])
Next nx
EndIf
Endif
User Function PCOENTREV()
Local aEntidades := {}
aAdd(aEntidades,"P01")
Return (aEntidades)
Importante !!