CPC-API-MO0002.p

• Permite barrar os registros desnecessários da integração do DSO.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Enviara e recebera uma tabela temporária.

Localização

• Faz a verificação dos registros a serem disponibilizados na tabela sktsaida para a integração com o sistema de DSO.

Ponto de Utilização

• "ANTES-INTEGRA"
• "ANTES-PROCESSO"

Include das definições das tabelas temporárias

• CPC-API-MO0002.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-api-mo0002-entrada

def temp-table tmp-cpc-api-mo0002-entrada no-undo

field nm-ponto-chamada as char format "x(15)"
field in-evento-programa as char format "x(15)"
field in-tipo-operacao as int.

Definição campo a campo da tabela de entrada

• • • nm-ponto-chamada-cpc – Indica o nome do ponto de chamada da cpc.
    • in-evento-programa – Indica o evento da integração (Inclusão, Exclusão, Alteração).
    • in-tipo-operacao – Indica o tipo de operação da integração (1 - Procedimento, 2 - Prestador, 3 - Contratante, 4 - Beneficiário).

Tabela de saída tmp-cpc-api-mo0002-saida

def temp-table tmp-cpc-api-mo0002-saida no-undo

field lg-undo-retry               as logical
field ds-mensagem             as char format "x(75)"
field lg-barra-integracao       as logical.

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

• • • lg-undo-retry – Indica a ocorrência de erro no processamento da CPC;
    • ds-mensagem – É a mensagem apresentada ao usuário quando da ocorrência de erro no processamento da CPC;
    • lg-barra-integracao – Indica se a integração deve ocorrer (SIM/NÃO)
      
      

Tabela de entrada e saída tmp-par-mo0002

def temp-table tmp-par-mo0002 no-undo

field in-tipo-operacao as int format "9"
field in-funcao as char format "x(03)"
field lg-prim-mens as log
field lg-mensagem-tela as log
field lg-erro as log
field cd-userid as char.

Tabela de saída tmp-msg-mo0002

def temp-table tmp-msg-mo0002 no-undo

field cd-mensagem like mensiste.cd-mensagem
field ds-mensagem like mensiste.ds-mensagem-sistema
field ds-complemento like mensiste.ds-mensagem-sistema
field in-tipo-mensagem like mensiste.in-tipo-mensagem
field ds-chave as char format "x(132)".

Buffer ambproce

Buffer contrat

Buffer preserv

Buffer usuario

Buffer ter-ade

Buffer funcprop

Buffer depsetse

Exemplo de chamada: