CPC-AT0115U.p

• Rotina permite ao cliente customizar a seleção de status de transação.
• Rotina permite ao cliente indicar quais guias deverão ser mostradas.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Para o ponto de chamada "ANTES-MOST-GUIA", dentro do programa at0115u.p antes de mostrar as guias;
• Para o ponto de chamada "ANTES-CRIA-TEMP", dentro do programa at0115u.p antes de criar as guias;

Ponto de Utilização

• "ANTES-MOST-GUIA"
• "ANTES-CRIA-TEMP"

Include das definições das tabelas temporárias

• cpc-at0115u.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-at0115u-entrada

def temp-table tmp-cpc-at0115u-entrada no-undo

field in-evento-programa                  as char format "x(10)"
field nm-ponto-chamada-cpc           as char format "x(15)"
field cd-unidade                                like guia-negada.cd-unidade-exec
field nr-transacao-exec                    like guia-negada.nr-transacao-exec.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc;
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
  • cd-unidade – Código da unidade do prestador;
  • nr-transacao-exec – Número da transação;

Tabela de saída tmp-cpc-at0115u-saida

def temp-table tmp-cpc-at0115u-saida no-undo

field lg-undo-retry                         as log
field ds-mensagem                      as char format "x(75)"
field lg-mens-tela                         as log init no
field lg-pendente-origem              as log
field ds-itens-transacao               as char.

Definição campo a campo da tabela de saída

• • lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC;
  • ds-mensagem – Variável que recebe a descrição dos erros que ocorreram na CPC;
  • LG-mens-tela – Variável indica se deverá ser mostrada a mensagem em tela;
  • LG-pendente-origem – Variável indica se guia está pendente com a origem;
  • Ds-itens-transacao – Variavel referente ao atributo list-item-pairs do campo tp-transacao-aux