Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

field in-evento-programa                        as char format "x(06)"
field nm-ponto-chamada-cpc                 as char format "x(15)"
field cd-modalidade                                like usuario.cd-modalidade
field nr-ter-adesao                                   like usuario.nr-ter-adesao
field cd-usuario                                       like usuario.cd-usuario
field aa-mm-referencia                           as int format "999999"
field in-entidade                                      like evenimp.in-entidade
field cd-imposto                                      like evenimp.cd-imposto
field cd-evento                                         like evenimp.cd-evento
field cd-forma-pagto                               as int
field dt-vigencia                                       like evenimp.dt-vigencia-ini
field cd-unidade-grupo                            like evengrimp.cd-unidade-grupo
field cd-grupo-contratante                      like evengrimp.cd-grupo-contratante
field cd-compl-grupo-contrat                  like evengrimp.cd-compl-grupo-contrat
field nr-insc-contratante                         like evenctrimp.nr-insc-contratante
field vl-base-imp                                     like fatueven.vl-evento
field cd-contratante                                like notaserv.cd-contratante
field cd-contratante-origem                   like notaserv.cd-contratante-origem
field nr-sequencia                                  like notaserv.nr-sequencia

...

field cod-gr-cli                                        like contrat.cod-gr-cli initial ""

...

field nr-rowid-usuario                             as rowid

...

field nr-rowid-propost                             as rowid

...

field cd-mensagem-erro                         as int
field hStream                                          as handle.

...

def temp-table tmp-cpc-fp0711a-saida no-undo
      field lg-undo-retry                             as log

...

     field dt-ref-reajuste                           as date format "99/99/9999"

...

     field ds-mensagem                          as char

...

     field lg-continua                               as log initial yes

...

     field vl-base-imp                              like fatueven.vl-evento

...

     field ds-retorno                                 as char

...

   

...

 field lg-next-contratante                    as log
   

...

 field lg-next                                       as log
   

...

 field cod-gr-cli                                   like contrat.cod-gr-cli initial ""

...

   

...

 field lg-nao-chama-cpc-fp0711a       as log

...

     field lg-mostra-selecao                     as log
     field lg-desconsidera-benef-excluido    as log initial yes.

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

    • lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
    • dt-ref-reajuste – Data de referncia calculada da susupensao do reajuste.
    • ds-mensagem – Mensagem de retorno da cpc.
    • lg-continua – Indica se processo deve continuar ou não.
    • vl-base-imp – Valor da base de cálculo do imposto que está sendo calculado pela cpc.
    • ds-retorno – descrição de retorno da CPC.
    • lg-next-contratante - indicador de próximo contratante.
    • lg-next - indicador de próximo.
    • cod-gr-cli - código do grupo do cliente
    • lg-nao-chama-cpc-fp0711a  - indicador se deve ou não chamar a cp-fp0711a.
    • lg-motra-selecao - Indica se tem informação para mostrar o filtro da seleção no relatório.
    • lg-desconsidera-benef-excluido - indica se deve desconsiderar beneficiario excluído.

          Tabela de saída tmp-cpc-fp0711a-contrat

...