CPC-AC1000.p

• Esta rotina possui dois pontos de chamada dentro do programa ac1000.p com objetivos distintos:

- Ponto de chamada INICIO-PROCESSO: utiliza-se a cpc para indicar se o programa ac1000.p deve apenas simular a inclusão de movimento(s) ou deve incluir efetivamente o(s) movimento(s) no sistema, usado tambem para fazer a verificação e realizar, se necessário, a conversão da unidade da carteira.

- Ponto de chamada FINAL-PROCESSO: utiliza-se a cpc para mudar a resposta da automação.

• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não, para ambos pontos de chamada.
• 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

Dentro do programa ac1000.p:

• Ponto de chamada IINICIO-PROCESSO: antes do processamento das transações.
• Ponto de chamada FINAL-PROCESSO: após o processamento das transações.

Ponto(s) de Utilização

• "INICIO-PROCESSO".
• "FINAL-PROCESSO".

Include das definições das tabelas temporárias

• cpc-ac1000.i
• ac1006d.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-ac1000-entrada

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

fields in-evento-programa                   as char format "x(06)"
fields nm-ponto-chamada-cpc             as char format "x(15)"
fields lg-mensagem-na-tela                 as logical
fields in-tipo-processamento               as char format "x(01) "
fields segmento-requisicao                 as char format "x(8000)"
fields segmento-resposta                    as char format "x(8000)".

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-ac1000. 
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
• lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
• In-tipo-processamento – Indica o tipo de processamento ("O" – ON-Line; "W" – Web; "I" – Importação; "U" – URA e "G" – Integração Sistema).
• seguimento-requisicao – O Seguimento de requisição para a Automação.
• seguimento-resposta – Segmento de resposta antes de ser modificado pela CPC.

Tabela de entrada tmp-servicos-req

def temp-table tmp-servicos-req no-undo
       field in-ordem                            as int
       field tp-servico                           as char format "x(12)"
       field tp-insumo                           as char format "99"
       field qt-servico                            as char format "999"
       field qt-servico-dec                     as char format "999"
       field cd-servico                            as char format "99999999"
       field cd-tipo-percentual              as char format "99"
       field vl-servico                             as char format "x(9)"
       field cd-prest-exec                      as char format "x(15)"
       field cd-prest-divisao                  as char format "x(15)"
       field cd-grau-part                       as char format "x(2)"
       field cd-via-acesso                      as char
       field cd-tecnica                           as char
       field cd-servico-generico            as char format "99999999"
       field nm-prof-exec                      as char format "x(70)"
       field cons-prof-compl                 as char
       field num-cons-compl                 as char
       field uf-compl                              as char
       field cd-cbos-compl                     as char
       field nr-cpf-compl                        as char
       field hr-inicial                                as char
       field hr-final                                  as char
       field dt-realizacao                         as date
       field cd-variacao                           as int
       field cd-servico-principal-pacote  as char /* Servico principal utilizado no pacote */
       field cr-solicitacao                        as char /* U - Urgencia E - Eletivo */
       field tp-comb                               as char
       field ds-servico                             as char.

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

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

fields lg-undo-retry                         as logical
fields ds-mensagem-relatorio           as char format "x(75)"
fields lg-simulacao                         as logical
fields segmento-resposta                as char format "x(8000)".

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

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
• ds-mensagem-relatorio - Mensagem retornada pela cpc.
• lg-simulacao – Indica se o programa ac1000.p deve apenas simular a inclusão de movimento(s) ou deve incluir efetivamente o(s) movimento(s) no sistema.
• segmento-resposta - Segmento de resposta depois de ser modificado pela CPC.
• segmento-resposta – Segmento de Resposta depois de modificado conforme a atuação da CPC.

  
  

  
  

  Tabela de saída tmp-retorno-serv

  def temp-table tmp-retorno-serv no-undo
         field id-autoriza            as char
         field in-servico              as char
         field tp-servico              as char
         field cd-servico             as int64
         field qt-ser-per             as dec
         field vl-part-cob           as dec
         field cd-erro-sistema   as char
         field cd-pacote            as char.