CPC-API-BOSAU-INVOICE-GENERATION.p

• Rotina utilizada para geração de faturas batch.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro do programa bosau-invoice-generation.

Ponto de Utilização

• "LENDO-NOTASERV"

• "ANTES-LE-NOTASE"

• "ANTES-VAL-NOTA"

• "ANTES-LEI-TAB"

• "APOS-LEI-TAB"

• "APOS-FAT-DEV"

• "APOS-LEI-CONTRA"

• "ANTES-BUSC-EMIT"

• "APOS-BUSC-EMIT"

• "APOS-TOT-MODA"

• "INI-RELAT-ERRO"

• "ANTES-RELAT-FAT"

Include das definições das tabelas temporárias

• cpc-bosau-invoice-generation.i

Tabelas de entrada e saída:

    Definição campo a campo da tabela de entrada

• in-evento-programa - Nome do evento do ponto de cpc
• nm-ponto-chamda-cpc - Nome do ponto de chamada da cpc
• dt-ano-mes-ini - data inicial
• dt-ano-mes-fim - data final 
• ix-nota - contador
• in-demap - correspondente a váriavel in-demap-aux
• in-indicador - correspondente ao in-indicador-aux
• lg-demap   - correspondente a váriavel in-demap-aux
• h-convenio - Tabela de convênios
• cd-contratante - código do contratante
• cd-contratante-origem - código do contratante origem 
• nr-ter-adesao - número do termo de adesão
• cd-modalidade - código da modalidade
• cd-modalidade-ini - código da modalidade inicial 
• cd-modalidade-fim - código da modalidade final
• ep-codigo-ini - código da empresa inicial
• ep-codigo-fim - código da empresa final 
• cd-estabel-ini - código do estabelecimento inicial
• cd-estabel-fim - código do estabelecimento final
• cd-tipo-venc-ini - código do tipo de vencimento inicial 
• cd-tipo-venc-fim - código do tipo de vencimento final 
• nr-ter-ade-ini - número do termo de adesão inicial
• nr-ter-ade-fim - número do termo de adesão final
• dt-emissao-ini - data de emissão inicial
• dt-emissao-fim - data de emissão final
• dt-vencimento-ini - data de vencimento inicial
• dt-vencimento-fim - data de vencimento final
• cd-especie-ini - código da especie inicial
• cd-especie-fim - código da especie final
• cd-plano-ini - código do plano inicial
• cd-plano-fim - código do plano final
• cd-tipo-plano-ini - código do tipo inicial
• cd-tipo-plano-fim - código do tipo final
• cd-tab-preco-ini - código da tabela preço inicial
• cd-tab-preco-fim - código da tabela preço final
• aa-reajuste-ini - ano de reajuste inicial
• mm-reajuste-ini - mês de reajuste inicial
• aa-reajuste-fim - ano de reajuste final
• mm-reajuste-fim - mês de reajuste final
• nr-fatura - número da fatura
• aa-referencia - ano de referência
• mm-referencia - mês de referência
• cd-especie - código da especie
• vl-total - valor total
• nr-sequencia - número da sequência
• h-temp-erro - tabela de erro
• nm-arq - nome/diretório do arquivo de acompanhamento
• nm-arq-erro  - nome/diretório do arquivo de erro

    Tabela de entrada tmp-cpc-bosau-invoice-ge-entrada

    def temp-table tmp-cpc-bosau-invoice-ge-entrada no-undo
    field nm-ponto-chamada-cpc         as char format "x(15)"
    field in-evento-programa           as char
    field dt-ano-mes-ini               as char
    field dt-ano-mes-fim               as char
    field ix-nota                      as int
    field in-demap                     as int
    field in-indicador                 as int
    field lg-demap                     as log
    field h-convenio                   as handle
    field cd-contratante               like notaserv.cd-contratante
    field cd-contratante-origem        like notaserv.cd-contratante-origem
    field nr-ter-adesao                like notaserv.nr-ter-adesao
    field cd-modalidade                like notaserv.cd-modalidade
    field cd-modalidade-ini            like notaserv.cd-modalidade
    field cd-modalidade-fim            like notaserv.cd-modalidade
    field ep-codigo-ini                like notaserv.ep-codigo
    field ep-codigo-fim                like notaserv.ep-codigo
    field cd-estabel-ini               like notaserv.cod-estabel
    field cd-estabel-fim               like notaserv.cod-estabel
    field cd-tipo-venc-ini             like notaserv.cd-tipo-vencimento
    field cd-tipo-venc-fim             like notaserv.cd-tipo-vencimento
    field nr-ter-ade-ini               like notaserv.nr-ter-adesao
    field nr-ter-ade-fim               like notaserv.nr-ter-adesao
    field dt-emissao-ini               like notaserv.dt-emissao
    field dt-emissao-fim               like notaserv.dt-emissao
    field dt-vencimento-ini            like notaserv.dt-vencimento
    field dt-vencimento-fim            like notaserv.dt-vencimento
    field cd-especie-ini               like notaserv.cd-especie
    field cd-especie-fim               like notaserv.cd-especie
    field cd-plano-ini                 like propost.cd-plano
    field cd-plano-fim                 like propost.cd-plano
    field cd-tipo-plano-ini            like propost.cd-tipo-plano
    field cd-tipo-plano-fim            like propost.cd-tipo-plano
    field cd-tab-preco-ini             like propost.cd-tab-preco
    field cd-tab-preco-fim             like propost.cd-tab-preco
    field aa-reajuste-ini              like propost.aa-ult-reajuste
    field mm-reajuste-ini              like propost.mm-ult-reajuste
    field aa-reajuste-fim              like propost.aa-ult-reajuste
    field mm-reajuste-fim              like propost.mm-ult-reajuste
    field nr-fatura                    like fatura.nr-fatura
    field aa-referencia                like fatura.aa-referencia
    field mm-referencia                like fatura.mm-referencia
    field cd-especie                   like fatura.cd-especie
    field vl-total                     like fatura.vl-total
    field nr-sequencia                 like notaserv.nr-sequencia
    field h-temp-erro                  as handle
    field nm-arq                       as char
    field nm-arq-erro                  as char.

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

• • lg-undo-retry - Indica se ocorreu erro no processo.
  •  lg-undo-retry - Indica se ocorreu erro no processo. 
  • ds-mensagem - Mensagem com a descrição do erro ocorrido no processamento da CPC.
    
  •  lg-next - informa se deve executar o "next".
    
  •  lg-considera-primeiro - informa se deve considerar como primeiro registro.
    
  •  lg-considera-ultimo - informa se deve considerar como ultimo registro.
    
  •  lg-primeiro - informa se é o primeiro registro.
    
  •  lg-ultimo - informa se é o ultimo registro.
    
  •  lg-executa - informa se deve realizar a execução.
    
  •  lg-return - informa se deve executar o "return".

    Tabela de entrada tmp-cpc-bosau-invoice-ge-saida

    def temp-table tmp-cpc-bosau-invoice-ge-saida no-undo
    field lg-undo-retry                as log
    field ds-mensagem                  as char
    field lg-next                      as log
    field lg-considera-primeiro        as log initial yes
    field lg-considera-ultimo          as log initial yes
    field lg-primeiro                  as log    
    field lg-ultimo                    as log
    field lg-executa                   as log initial yes
    field lg-return                    as log.