CPC-BOSAUBENEFS.p

Observação: Esta CPC somente é utilizada no Gestão de Planos 2.00.

• Rotina para executar operações referentes ao beneficiário.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro da bosaubenefs.p.

Pontos de Utilização

• "INC-CONS-USOMOD"
• "ALT-CONS-USOMOD"
• "DT-EXCLUSAO"
• "FINAL-SYNC"
• "ANTES-APROVA"
• "ANTES-AUDIT" (Apenas para exclusões via Acesso Empresarial)
• "VALIDA-INCLUSAO" (Apenas para inclusões via Acesso Empresarial) - Ponto possui dois eventos, "ANTES-INCLUSAO" e "DEPOIS-INCLUSAO".
• "LISTA-MOVIMENTO"

Include das definições das tabelas temporárias

• cpc-bosaubenefs.i

Tabelas de entrada e saída

      Tabela tmp-cpc-bosaubenefs-entrada

          def temp-table tmp-cpc-bosaubenefs-entrada no-undo
                field nm-ponto-chamada-cpc as char format "x(15)"
                field in-evento-programa as char format "x(15)"
                field cd-modalidade like usuario.cd-modalidade
                field nr-proposta like usuario.nr-proposta
                field dt-inclusao like usuario.dt-inclusao-plano
                field cd-usuario like usuario.cd-usuario
                field dt-exclusao as date
                field nr-ter-adesao like usuario.nr-ter-adesao
                field ds-ponto-chamada as char
                field lg-avail-bnfciar-agreg as log
                field h-rowErrors as handle

                field h-tmpBenefs as handle

                field r-usuario as rowid

                field id-pessoa like usuario.id-pessoa

               field cd-contratante-proposta like propost.cd-contratante

               field lg-acesso-empresarial as log.

      Tabela tmp-cpc-bosaubenefs-saida

                   def temp-table tmp-cpc-bosaubenefs-saida no-undo
                         field lg-undo-retry as log
                         field cd-mensagem as int
                         field ds-mensagem as char
                         field lg-continua as log
                         field dt-saida-exclusao as date
                         field lg-demap-titular as log

                         field lg-permite-exclusao as log

                         field ds-aviso-usuario as char.

Tabela tmp-cpc-consiste-usomodu-entrada

def temp-table tmp-cpc-consiste-usomodu-entrada no-undo

field cd-modalidade                like usumodu.cd-modalidade
field nr-proposta                      like usumodu.nr-proposta
field cd-usuario                       like usumodu.cd-usuario
field cd-modulo                       like usumodu.cd-modulo
field dt-inicio                           like usumodu.dt-inicio
field dt-cancelamento             like usumodu.dt-cancelamento
field cd-vendedor                    as int.

Tabela tmp-cpc-consiste-usomodu-saida

def temp-table tmp-cpc-consiste-usomodu-saida no-undo

field cd-mensagem               as int
field ds-mensagem               as char
field ds-parametros               as char
field lg-undo-retry                  as log.

      Tabela tmp-cpc-BenefsModules

                  def temp-table tmp-cpc-BenefsModules no-undo
                            field cd-modalidade like usumodu.cd-modalidade
                            field cd-usuario like usumodu.cd-usuario
                            field cd-modulo like usumodu.cd-modulo
                            field nr-proposta like usumodu.nr-proposta
                            field dt-inicio like usumodu.dt-inicio
                            field dt-fim like usumodu.dt-fim
                            field cd-sit-modulo like usumodu.cd-sit-modulo
                            field dt-cancelamento like usumodu.dt-cancelamento

                           /*campos transferBenefs*/
                           field cd-motivo-cancel like pro-pla.cd-motivo-cancel
                           field cd-userid like usuario.cd-userid
                           field dt-atualizacao as date
                           field cd-userid-inclusao like usuario.cd-userid
                           field dt-mov-inclusao as date
                           field ds-motivo-cancel as char

                           field aa-ult-fat as int
                           field mm-ult-fat as int

                           index tmp1
                           cd-modalidade
                           nr-proposta
                           cd-usuario
                           cd-modulo
                           dt-cancelamento

                           index tmp2
                           dt-cancelamento.

      Tabela tmp-cpc-bosaubenefs-solic

def temp-table tmp-cpc-bosaubenefs-solic no-undo
field cd-modalidade like usuario.cd-modalidade
field nr-proposta like usuario.nr-proposta
field cd-usuario like usuario.cd-usuario
field ds-observacao as char.