CPC-BOTISSSYNCPAGTOMOVTO

Localização

• No inicio do programa botisssyncpagtomovto.p, e na leitura das tabelas: histor-movimen-proced, histor-movimen-insumo, movimen-proced-nota, movimen-insumo-nota, notaserv, histor-notaserv e no handle das tabelas histor-movimen-proced e histor-movimen-insumo.

Ponto de Utilização

• "VAL-DADOS-DOCTO"
  • Permite a criação de registros na tabela tmp-cpc-contratos.
    • Caso o campo lg-ignora-nova-chamada da tabela tmp-cpc-botisssync-saida estiver com valor "YES": o programa utilizará os dados retornados no evento "INICIO", para desconsiderar as leituras de tabelas. Gerando assim uma considerável performance.
    • Caso o campo lg-ignora-nova-chamada esteja como "NO" para cada leitura das tabelas descritas acima, haverá uma chamada para a cpc, passando como evento o nome da tabela lida.

Include das definições das tabelas temporárias

• cpc-botisssyncpagtomovto.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-botisssync-entrada

     def temp-table tmp-cpc-botisssync-entrada no-undo
         fields nm-ponto-chamada-cpc as char format "x(15)"
         fields ds-evento            as char
         fields cd-modalidade        like usuario.cd-modalidade
         fields nr-ter-adesao        like usuario.nr-ter-adesao
         fields cd-usuario           like usuario.cd-usuario.

Definição campo a campo da tabela

nm-ponto-chamada-cpc - Nome do ponto da cpc
ds-evento - Nome do evento da cpc            
cd-modalidade - Código da modalidade        
nr-ter-adesao - Número do termo de adesão        
cd-usuario - Código do beneficiário. 

Tabela de saída tmp-cpc-contratos

     def temp-table tmp-cpc-contratos no-undo
         fields cd-modalidade like usuario.cd-modalidade
         fields nr-ter-adesao like usuario.nr-ter-adesao
         index  ixcontratos
                cd-modalidade
                nr-ter-adesao.

Definição campo a campo da tabela

cd-modalidade - Código da modalidade        
nr-ter-adesao - Número do termo de adesão.        

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

     def temp-table tmp-cpc-botisssync-saida no-undo
         fields lg-ignora-nova-chamada as log
         fields lg-undo-retry          as log
         fields ds-mensagem-retorno    as char.

Definição campo a campo da tabela

lg-ignora-nova-chamada - Variável que identifica se o programa utilizará os dados retornados no evento "INICIO", para desconsiderar as leituras de tabelas.
lg-undo-retry - Variável que retorna se ocorreram erros na cpc.            
ds-mensagem-retorno - Descrição da mensagem de retorno da cpc.