Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
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) |
|