Sintoma

Não existe tratamento para a nova ordem de pagamento.

Solução

Adicionado código para tratar os dados.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 05471 Data: 14/12/2007 Hora: 20:28:47

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 05471

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00027

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

DEREX - AJUSTES PARA NOVA ORDEM DE PAGAMENTO

----------------------------------------------------------------------------------------------------

Palavras Chave:

DEREX - AJUSTES PARA NOVA ORDEM DE PAGAMENTO

----------------------------------------------------------------------------------------------------

Objetos da nota:

DOMA /PWS/ZYGLD574

DOMA /PWS/ZYGLD575

DOMA /PWS/ZYGLD576

DOMA /PWS/ZYGLD577

DTEL /PWS/ZYGLL1371

DTEL /PWS/ZYGLL1372

DTEL /PWS/ZYGLL1373

DTEL /PWS/ZYGLL1374

REPS /PWS/ZYCBR146

REPT /PWS/ZYCBR146

TABD /PWS/ZYGLT009

TABL /PWS/ZYCBT165

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DOMA /PWS/ZYGLD574

------------------------------------------------------------------------

Domínio incluído: /PWS/ZYGLD574

Descrição breve incluída (33 caracteres), idioma: PT

"Data Disponibilidade L11.371/2006"

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Categoria de dados: CHAR

Número de posições: 2

Comprimento de saída: 2

Rotina de conversão:

Letras minúsculas: NÃO

-Valores individuais

Incluído valor fixo "01"

Texto incluído, idioma: PT (18 caracteres):

"Data de lançamento"

Incluído valor fixo "02"

Texto incluído, idioma: PT (27 caracteres):

"Data de crédito no exterior"

Incluído valor fixo "03"

Texto incluído, idioma: PT (23 caracteres):

"Data da disponibilidade"

Incluída tabela de valores:

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DOMA /PWS/ZYGLD575

------------------------------------------------------------------------

Domínio incluído: /PWS/ZYGLD575

Descrição breve incluída (35 caracteres), idioma: PT

"Disponibilidade - Câmbio Simultâneo"

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Categoria de dados: CHAR

Número de posições: 2

Comprimento de saída: 2

Rotina de conversão:

Letras minúsculas: NÃO

-Valores individuais

Incluído valor fixo "01"

Texto incluído, idioma: PT (18 caracteres):

"Data do lançamento"

Incluído valor fixo "02"

Texto incluído, idioma: PT (27 caracteres):

"Data de crédito no exterior"

Incluído valor fixo "03"

Texto incluído, idioma: PT (23 caracteres):

"Data da disponibilidade"

Incluída tabela de valores:

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DOMA /PWS/ZYGLD576

------------------------------------------------------------------------

Domínio incluído: /PWS/ZYGLD576

Descrição breve incluída (14 caracteres), idioma: PT

"Outras Origens"

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Categoria de dados: CHAR

Número de posições: 2

Comprimento de saída: 2

Rotina de conversão:

Letras minúsculas: NÃO

-Valores individuais

Incluído valor fixo "01"

Texto incluído, idioma: PT (18 caracteres):

"Data do lançamento"

Incluído valor fixo "02"

Texto incluído, idioma: PT (27 caracteres):

"Data de crédito no exterior"

Incluída tabela de valores:

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DOMA /PWS/ZYGLD577

------------------------------------------------------------------------

Domínio incluído: /PWS/ZYGLD577

Descrição breve incluída (18 caracteres), idioma: PT

"Origem do processo"

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Categoria de dados: CHAR

Número de posições: 2

Comprimento de saída: 2

Rotina de conversão:

Letras minúsculas: NÃO

-Valores individuais

Incluído valor fixo "01"

Texto incluído, idioma: PT (31 caracteres):

"Disponibilidades - L11.371/2006"

Incluído valor fixo "02"

Texto incluído, idioma: PT (36 caracteres):

"Disponibilidades - Câmbio Simultâneo"

Incluído valor fixo "03"

Texto incluído, idioma: PT (33 caracteres):

"Rendimentos Recebidos no Exterior"

Incluído valor fixo "04"

Texto incluído, idioma: PT (26 caracteres):

"Transferência de outras IF"

Incluído valor fixo "05"

Texto incluído, idioma: PT (14 caracteres):

"Outras Origens"

Incluído valor fixo "06"

Texto incluído, idioma: PT (22 caracteres):

"Aplicações Financeiras"

Incluído valor fixo "07"

Texto incluído, idioma: PT (13 caracteres):

"Investimentos"

Incluído valor fixo "08"

Texto incluído, idioma: PT (11 caracteres):

"Empréstimos"

Incluído valor fixo "09"

Texto incluído, idioma: PT (17 caracteres):

"Aquisição de Bens"

Incluído valor fixo "10"

Texto incluído, idioma: PT (21 caracteres):

"Aquisição de Serviços"

Incluído valor fixo "11"

Texto incluído, idioma: PT (23 caracteres):

"Remuneração de Direitos"

Incluído valor fixo "12"

Texto incluído, idioma: PT (28 caracteres):

"Transferência para outras IF"

Incluído valor fixo "13"

Texto incluído, idioma: PT (30 caracteres):

"Internação de Disponibilidades"

Incluído valor fixo "14"

Texto incluído, idioma: PT (17 caracteres):

"Outras Aplicações"

Incluída tabela de valores:

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DTEL /PWS/ZYGLL1371

------------------------------------------------------------------------

Elemento de dados incluído: /PWS/ZYGLL1371

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (35 caracteres), idioma: PT

"GL - Disponibilidade - L11.371/2006"

Categoria de dados: Domínio

Domínio: /PWS/ZYGLD574

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (8 caracteres), idioma: PT

"Disp.L11"

Comprimento máximo do denominador médio: 20

Denominador médio incluído (18 caracteres), idioma: PT

"Disp. L11.371/2006"

Comprimento máximo do denominador longo: 30

Denominador longo incluído (28 caracteres), idioma: PT

"Disponibilidade L11.371/2006"

Comprimento máximo do título: 40

Título incluído (33 caracteres), idioma: PT

"Data Disponibilidade L11.371/2006"

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DTEL /PWS/ZYGLL1372

------------------------------------------------------------------------

Elemento de dados incluído: /PWS/ZYGLL1372

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (40 caracteres), idioma: PT

"GL - Disponibilidade - Câmbio Simultâneo"

Categoria de dados: Domínio

Domínio: /PWS/ZYGLD575

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (10 caracteres), idioma: PT

"Disp.Simul"

Comprimento máximo do denominador médio: 20

Denominador médio incluído (20 caracteres), idioma: PT

"Disp. câmbio simult."

Comprimento máximo do denominador longo: 35

Denominador longo incluído (35 caracteres), idioma: PT

"Disponibilidade - Câmbio Simultâneo"

Comprimento máximo do título: 40

Título incluído (40 caracteres), idioma: PT

"Data Disponibilidade - Câmbio Simultâneo"

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DTEL /PWS/ZYGLL1373

------------------------------------------------------------------------

Elemento de dados incluído: /PWS/ZYGLL1373

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (19 caracteres), idioma: PT

"GL - Outras Origens"

Categoria de dados: Domínio

Domínio: /PWS/ZYGLD576

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (10 caracteres), idioma: PT

"Disp.orig."

Comprimento máximo do denominador médio: 20

Denominador médio incluído (19 caracteres), idioma: PT

"Disp.Outras Origens"

Comprimento máximo do denominador longo: 32

Denominador longo incluído (32 caracteres), idioma: PT

"Disponibilidade - Outras Origens"

Comprimento máximo do título: 40

Título incluído (37 caracteres), idioma: PT

"Data Disponibilidade - Outras Origens"

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DTEL /PWS/ZYGLL1374

------------------------------------------------------------------------

Elemento de dados incluído: /PWS/ZYGLL1374

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (18 caracteres), idioma: PT

"Origem do Processo"

Categoria de dados: Domínio

Domínio: /PWS/ZYGLD577

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (6 caracteres), idioma: PT

"Origem"

Comprimento máximo do denominador médio: 20

Denominador médio incluído (6 caracteres), idioma: PT

"Origem"

Comprimento máximo do denominador longo: 30

Denominador longo incluído (18 caracteres), idioma: PT

"Origem do Processo"

Comprimento máximo do título: 40

Título incluído (18 caracteres), idioma: PT

"Origem do Processo"

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCBR146

REPORT /pws/zycbr146 MESSAGE-ID /pws/zycbm.

TYPE-POOLS: slis.

TABLES: /pws/zycbt226,

        tcurc,

        t005k,

        t005t.

TYPES: BEGIN OF s_relatorio,

        vl_sl_anterior_m1 TYPE /pws/zycbt226-vlr_exterior,

        disponi_l_11_m1   TYPE /pws/zycbt226-vlr_exterior,

        disponi_c_si_m1   TYPE /pws/zycbt226-vlr_exterior,

* >> Início da inclusão:

        vl_rend_rec_m1    TYPE /pws/zycbt240-vlcred,

        vl_tran_if_m1     TYPE /pws/zycbt240-vlcred,

        vl_outr_ori_m1    TYPE /pws/zycbt226-sld_exterior,

        vl_aplic_fi_m1    TYPE /pws/zycbt240-vlcred,

        vl_invest_m1      TYPE /pws/zycbt240-vlcred,

        vl_emprest_m1     TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_pag_obrig_m1   TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_bens_m1  TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_serv_m1  TYPE /pws/zycbt232-vl_pagto,

* >> Início da inclusão:

        vl_remun_dir_m1    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_transf_m1      TYPE /pws/zycbt006-vlme,

* >> Início da inclusão:

        vl_inter_dis_m1    TYPE /pws/zycbt240-vlcred,

        vl_outr_apl_m1    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_sl_mes_m1      TYPE /pws/zycbt226-vlr_exterior,

        vl_sl_anterior_m2 TYPE /pws/zycbt226-vlr_exterior,

        disponi_l_11_m2   TYPE /pws/zycbt226-vlr_exterior,

        disponi_c_si_m2   TYPE /pws/zycbt226-vlr_exterior,

* >> Início da inclusão:

        vl_rend_rec_m2    TYPE /pws/zycbt240-vlcred,

        vl_tran_if_m2     TYPE /pws/zycbt240-vlcred,

        vl_outr_ori_m2    TYPE /pws/zycbt226-sld_exterior,

        vl_aplic_fi_m2    TYPE /pws/zycbt240-vlcred,

        vl_invest_m2      TYPE /pws/zycbt240-vlcred,

        vl_emprest_m2     TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_pag_obrig_m2   TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_bens_m2  TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_serv_m2  TYPE /pws/zycbt232-vl_pagto,

* >> Início da inclusão:

        vl_remun_dir_m2    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_transf_m2      TYPE /pws/zycbt006-vlme,

* >> Início da inclusão:

        vl_inter_dis_m2    TYPE /pws/zycbt240-vlcred,

        vl_outr_apl_m2    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_sl_mes_m2      TYPE /pws/zycbt226-vlr_exterior,

        vl_sl_anterior_m3 TYPE /pws/zycbt226-vlr_exterior,

        disponi_l_11_m3   TYPE /pws/zycbt226-vlr_exterior,

        disponi_c_si_m3   TYPE /pws/zycbt226-vlr_exterior,

* >> Início da inclusão:

        vl_rend_rec_m3    TYPE /pws/zycbt240-vlcred,

        vl_tran_if_m3     TYPE /pws/zycbt240-vlcred,

        vl_outr_ori_m3    TYPE /pws/zycbt226-sld_exterior,

        vl_aplic_fi_m3    TYPE /pws/zycbt240-vlcred,

        vl_invest_m3      TYPE /pws/zycbt240-vlcred,

        vl_emprest_m3     TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_pag_obrig_m3   TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_bens_m3  TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_serv_m3  TYPE /pws/zycbt232-vl_pagto,

* >> Início da inclusão:

        vl_remun_dir_m3    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_transf_m3      TYPE /pws/zycbt006-vlme,

* >> Início da inclusão:

        vl_inter_dis_m3    TYPE /pws/zycbt240-vlcred,

        vl_outr_apl_m3    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_sl_mes_m3      TYPE /pws/zycbt226-vlr_exterior,

        vl_sl_anterior_m4 TYPE /pws/zycbt226-vlr_exterior,

        disponi_l_11_m4   TYPE /pws/zycbt226-vlr_exterior,

        disponi_c_si_m4   TYPE /pws/zycbt226-vlr_exterior,

* >> Início da inclusão:

        vl_rend_rec_m4    TYPE /pws/zycbt240-vlcred,

        vl_tran_if_m4     TYPE /pws/zycbt240-vlcred,

        vl_outr_ori_m4    TYPE /pws/zycbt226-sld_exterior,

        vl_aplic_fi_m4    TYPE /pws/zycbt240-vlcred,

        vl_invest_m4      TYPE /pws/zycbt240-vlcred,

        vl_emprest_m4     TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_pag_obrig_m4   TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_bens_m4  TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_serv_m4  TYPE /pws/zycbt232-vl_pagto,

* >> Início da inclusão:

        vl_remun_dir_m4    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_transf_m4      TYPE /pws/zycbt006-vlme,

* >> Início da inclusão:

        vl_inter_dis_m4    TYPE /pws/zycbt240-vlcred,

        vl_outr_apl_m4    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_sl_mes_m4      TYPE /pws/zycbt226-vlr_exterior,

        vl_sl_anterior_m5 TYPE /pws/zycbt226-vlr_exterior,

        disponi_l_11_m5   TYPE /pws/zycbt226-vlr_exterior,

        disponi_c_si_m5   TYPE /pws/zycbt226-vlr_exterior,

* >> Início da inclusão:

        vl_rend_rec_m5    TYPE /pws/zycbt240-vlcred,

        vl_tran_if_m5     TYPE /pws/zycbt240-vlcred,

        vl_outr_ori_m5    TYPE /pws/zycbt226-sld_exterior,

        vl_aplic_fi_m5    TYPE /pws/zycbt240-vlcred,

        vl_invest_m5      TYPE /pws/zycbt240-vlcred,

        vl_emprest_m5     TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_pag_obrig_m5   TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_bens_m5  TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_serv_m5  TYPE /pws/zycbt232-vl_pagto,

* >> Início da inclusão:

        vl_remun_dir_m5    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_transf_m5      TYPE /pws/zycbt006-vlme,

* >> Início da inclusão:

        vl_inter_dis_m5    TYPE /pws/zycbt240-vlcred,

        vl_outr_apl_m5    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_sl_mes_m5      TYPE /pws/zycbt226-vlr_exterior,

        vl_sl_anterior_m6 TYPE /pws/zycbt226-vlr_exterior,

        disponi_l_11_m6   TYPE /pws/zycbt226-vlr_exterior,

        disponi_c_si_m6   TYPE /pws/zycbt226-vlr_exterior,

* >> Início da inclusão:

        vl_rend_rec_m6    TYPE /pws/zycbt240-vlcred,

        vl_tran_if_m6     TYPE /pws/zycbt240-vlcred,

        vl_outr_ori_m6    TYPE /pws/zycbt226-sld_exterior,

        vl_aplic_fi_m6    TYPE /pws/zycbt240-vlcred,

        vl_invest_m6      TYPE /pws/zycbt240-vlcred,

        vl_emprest_m6     TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_pag_obrig_m6   TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_bens_m6  TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_serv_m6  TYPE /pws/zycbt232-vl_pagto,

* >> Início da inclusão:

        vl_remun_dir_m6    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_transf_m6      TYPE /pws/zycbt006-vlme,

* >> Início da inclusão:

        vl_inter_dis_m6    TYPE /pws/zycbt240-vlcred,

        vl_outr_apl_m6    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_sl_mes_m6      TYPE /pws/zycbt226-vlr_exterior,

        vl_sl_anterior_m7 TYPE /pws/zycbt226-vlr_exterior,

        disponi_l_11_m7   TYPE /pws/zycbt226-vlr_exterior,

        disponi_c_si_m7   TYPE /pws/zycbt226-vlr_exterior,

* >> Início da inclusão:

        vl_rend_rec_m7    TYPE /pws/zycbt240-vlcred,

        vl_tran_if_m7     TYPE /pws/zycbt240-vlcred,

        vl_outr_ori_m7    TYPE /pws/zycbt226-sld_exterior,

        vl_aplic_fi_m7    TYPE /pws/zycbt240-vlcred,

        vl_invest_m7      TYPE /pws/zycbt240-vlcred,

        vl_emprest_m7     TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_pag_obrig_m7   TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_bens_m7  TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_serv_m7  TYPE /pws/zycbt232-vl_pagto,

* >> Início da inclusão:

        vl_remun_dir_m7    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_transf_m7      TYPE /pws/zycbt006-vlme,

* >> Início da inclusão:

        vl_inter_dis_m7    TYPE /pws/zycbt240-vlcred,

        vl_outr_apl_m7    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_sl_mes_m7      TYPE /pws/zycbt226-vlr_exterior,

        vl_sl_anterior_m8 TYPE /pws/zycbt226-vlr_exterior,

        disponi_l_11_m8   TYPE /pws/zycbt226-vlr_exterior,

        disponi_c_si_m8   TYPE /pws/zycbt226-vlr_exterior,

* >> Início da inclusão:

        vl_rend_rec_m8    TYPE /pws/zycbt240-vlcred,

        vl_tran_if_m8     TYPE /pws/zycbt240-vlcred,

        vl_outr_ori_m8    TYPE /pws/zycbt226-sld_exterior,

        vl_aplic_fi_m8    TYPE /pws/zycbt240-vlcred,

        vl_invest_m8      TYPE /pws/zycbt240-vlcred,

        vl_emprest_m8     TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_pag_obrig_m8   TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_bens_m8  TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_serv_m8  TYPE /pws/zycbt232-vl_pagto,

* >> Início da inclusão:

        vl_remun_dir_m8    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_transf_m8      TYPE /pws/zycbt006-vlme,

* >> Início da inclusão:

        vl_inter_dis_m8    TYPE /pws/zycbt240-vlcred,

        vl_outr_apl_m8    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_sl_mes_m8      TYPE /pws/zycbt226-vlr_exterior,

        vl_sl_anterior_m9 TYPE /pws/zycbt226-vlr_exterior,

        disponi_l_11_m9   TYPE /pws/zycbt226-vlr_exterior,

        disponi_c_si_m9   TYPE /pws/zycbt226-vlr_exterior,

* >> Início da inclusão:

        vl_rend_rec_m9    TYPE /pws/zycbt240-vlcred,

        vl_tran_if_m9     TYPE /pws/zycbt240-vlcred,

        vl_outr_ori_m9    TYPE /pws/zycbt226-sld_exterior,

        vl_aplic_fi_m9    TYPE /pws/zycbt240-vlcred,

        vl_invest_m9      TYPE /pws/zycbt240-vlcred,

        vl_emprest_m9     TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_pag_obrig_m9   TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_bens_m9  TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_serv_m9  TYPE /pws/zycbt232-vl_pagto,

* >> Início da inclusão:

        vl_remun_dir_m9    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_transf_m9      TYPE /pws/zycbt006-vlme,

* >> Início da inclusão:

        vl_inter_dis_m9    TYPE /pws/zycbt240-vlcred,

        vl_outr_apl_m9    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_sl_mes_m9      TYPE /pws/zycbt226-vlr_exterior,

        vl_sl_anterior_m10 TYPE /pws/zycbt226-vlr_exterior,

        disponi_l_11_m10   TYPE /pws/zycbt226-vlr_exterior,

        disponi_c_si_m10   TYPE /pws/zycbt226-vlr_exterior,

* >> Início da inclusão:

        vl_rend_rec_m10   TYPE /pws/zycbt240-vlcred,

        vl_tran_if_m10    TYPE /pws/zycbt240-vlcred,

        vl_outr_ori_m10   TYPE /pws/zycbt226-sld_exterior,

        vl_aplic_fi_m10   TYPE /pws/zycbt240-vlcred,

        vl_invest_m10     TYPE /pws/zycbt240-vlcred,

        vl_emprest_m10    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_pag_obrig_m10   TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_bens_m10  TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_serv_m10  TYPE /pws/zycbt232-vl_pagto,

* >> Início da exclusão:

        vl_transf_m10      TYPE /pws/zycbt006-vlme,

* << Fim da exclusão

* >> Início da inclusão:

        vl_remun_dir_m10   TYPE /pws/zycbt240-vlcred,

        vl_transf_m10     TYPE /pws/zycbt006-vlme,

        vl_inter_dis_m10   TYPE /pws/zycbt240-vlcred,

        vl_outr_apl_m10   TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_sl_mes_m10      TYPE /pws/zycbt226-vlr_exterior,

        vl_sl_anterior_m11 TYPE /pws/zycbt226-vlr_exterior,

        disponi_l_11_m11   TYPE /pws/zycbt226-vlr_exterior,

        disponi_c_si_m11   TYPE /pws/zycbt226-vlr_exterior,

* >> Início da inclusão:

        vl_rend_rec_m11   TYPE /pws/zycbt240-vlcred,

        vl_tran_if_m11    TYPE /pws/zycbt240-vlcred,

        vl_outr_ori_m11   TYPE /pws/zycbt226-sld_exterior,

        vl_aplic_fi_m11   TYPE /pws/zycbt240-vlcred,

        vl_invest_m11     TYPE /pws/zycbt240-vlcred,

        vl_emprest_m11    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_pag_obrig_m11   TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_bens_m11  TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_serv_m11  TYPE /pws/zycbt232-vl_pagto,

* >> Início da exclusão:

        vl_transf_m11      TYPE /pws/zycbt006-vlme,

* << Fim da exclusão

* >> Início da inclusão:

        vl_remun_dir_m11   TYPE /pws/zycbt240-vlcred,

        vl_transf_m11     TYPE /pws/zycbt006-vlme,

        vl_inter_dis_m11   TYPE /pws/zycbt240-vlcred,

        vl_outr_apl_m11   TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_sl_mes_m11      TYPE /pws/zycbt226-vlr_exterior,

        vl_sl_anterior_m12 TYPE /pws/zycbt226-vlr_exterior,

        disponi_l_11_m12   TYPE /pws/zycbt226-vlr_exterior,

        disponi_c_si_m12   TYPE /pws/zycbt226-vlr_exterior,

* >> Início da inclusão:

        vl_rend_rec_m12   TYPE /pws/zycbt240-vlcred,

        vl_tran_if_m12    TYPE /pws/zycbt240-vlcred,

        vl_outr_ori_m12   TYPE /pws/zycbt226-sld_exterior,

        vl_aplic_fi_m12   TYPE /pws/zycbt240-vlcred,

        vl_invest_m12     TYPE /pws/zycbt240-vlcred,

        vl_emprest_m12    TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_pag_obrig_m12   TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_bens_m12  TYPE /pws/zycbt232-vl_pagto,

        vl_aquis_serv_m12  TYPE /pws/zycbt232-vl_pagto,

* >> Início da exclusão:

        vl_transf_m12      TYPE /pws/zycbt006-vlme,

* << Fim da exclusão

* >> Início da inclusão:

        vl_remun_dir_m12   TYPE /pws/zycbt240-vlcred,

        vl_transf_m12     TYPE /pws/zycbt006-vlme,

        vl_inter_dis_m12   TYPE /pws/zycbt240-vlcred,

        vl_outr_apl_m12   TYPE /pws/zycbt240-vlcred,

* << Fim da inclusão

        vl_sl_mes_m12      TYPE /pws/zycbt226-vlr_exterior,

       END OF s_relatorio.

TYPES: BEGIN OF s_arq_xml,

         vl_sl_anterior_m1(17)   TYPE c,

         disponi_l_11_m1(17)     TYPE c,

         disponi_c_si_m1(17)     TYPE c,

* >> Início da inclusão:

        vl_rend_rec_m1(17)     TYPE c,

        vl_tran_if_m1(17)      TYPE c,

        vl_outr_ori_m1(17)     TYPE c,

        vl_aplic_fi_m1(17)     TYPE c,

        vl_invest_m1(17)       TYPE c,

        vl_emprest_m1(17)      TYPE c,

* << Fim da inclusão

         vl_pag_obrig_m1(17)     TYPE c,

         vl_aquis_bens_m1(17)    TYPE c,

         vl_aquis_serv_m1(17)    TYPE c,

* >> Início da exclusão:

         vl_transf_m1(17)        TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

        vl_remun_dir_m1(17)    TYPE c,

        vl_transf_m1(17)       TYPE c,

        vl_inter_dis_m1(17)    TYPE c,

        vl_outr_apl_m1(17)     TYPE c,

* << Fim da inclusão

         vl_sl_mes_m1(17)        TYPE c,

         vl_sl_anterior_m2(17)   TYPE c,

         disponi_l_11_m2(17)     TYPE c,

         disponi_c_si_m2(17)     TYPE c,

* >> Início da inclusão:

        vl_rend_rec_m2(17)     TYPE c,

        vl_tran_if_m2(17)      TYPE c,

        vl_outr_ori_m2(17)     TYPE c,

        vl_aplic_fi_m2(17)     TYPE c,

        vl_invest_m2(17)       TYPE c,

        vl_emprest_m2(17)      TYPE c,

* << Fim da inclusão

         vl_pag_obrig_m2(17)     TYPE c,

         vl_aquis_bens_m2(17)    TYPE c,

         vl_aquis_serv_m2(17)    TYPE c,

* >> Início da exclusão:

         vl_transf_m2(17)        TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

        vl_remun_dir_m2(17)    TYPE c,

        vl_transf_m2(17)       TYPE c,

        vl_inter_dis_m2(17)    TYPE c,

        vl_outr_apl_m2(17)     TYPE c,

* << Fim da inclusão

         vl_sl_mes_m2(17)        TYPE c,

         vl_sl_anterior_m3(17)   TYPE c,

         disponi_l_11_m3(17)     TYPE c,

         disponi_c_si_m3(17)     TYPE c,

* >> Início da inclusão:

        vl_rend_rec_m3(17)     TYPE c,

        vl_tran_if_m3(17)      TYPE c,

        vl_outr_ori_m3(17)     TYPE c,

        vl_aplic_fi_m3(17)     TYPE c,

        vl_invest_m3(17)       TYPE c,

        vl_emprest_m3(17)      TYPE c,

* << Fim da inclusão

         vl_pag_obrig_m3(17)     TYPE c,

         vl_aquis_bens_m3(17)    TYPE c,

         vl_aquis_serv_m3(17)    TYPE c,

* >> Início da exclusão:

         vl_transf_m3(17)        TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

        vl_remun_dir_m3(17)    TYPE c,

        vl_transf_m3(17)       TYPE c,

        vl_inter_dis_m3(17)    TYPE c,

        vl_outr_apl_m3(17)     TYPE c,

* << Fim da inclusão

         vl_sl_mes_m3(17)        TYPE c,

         vl_sl_anterior_m4(17)   TYPE c,

         disponi_l_11_m4(17)     TYPE c,

         disponi_c_si_m4(17)     TYPE c,

* >> Início da inclusão:

        vl_rend_rec_m4(17)     TYPE c,

        vl_tran_if_m4(17)      TYPE c,

        vl_outr_ori_m4(17)     TYPE c,

        vl_aplic_fi_m4(17)     TYPE c,

        vl_invest_m4(17)       TYPE c,

        vl_emprest_m4(17)      TYPE c,

* << Fim da inclusão

         vl_pag_obrig_m4(17)     TYPE c,

         vl_aquis_bens_m4(17)    TYPE c,

         vl_aquis_serv_m4(17)    TYPE c,

* >> Início da exclusão:

         vl_transf_m4(17)        TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

        vl_remun_dir_m4(17)    TYPE c,

        vl_transf_m4(17)       TYPE c,

        vl_inter_dis_m4(17)    TYPE c,

        vl_outr_apl_m4(17)     TYPE c,

* << Fim da inclusão

         vl_sl_mes_m4(17)        TYPE c,

         vl_sl_anterior_m5(17)   TYPE c,

         disponi_l_11_m5(17)     TYPE c,

         disponi_c_si_m5(17)     TYPE c,

* >> Início da inclusão:

        vl_rend_rec_m5(17)     TYPE c,

        vl_tran_if_m5(17)      TYPE c,

        vl_outr_ori_m5(17)     TYPE c,

        vl_aplic_fi_m5(17)     TYPE c,

        vl_invest_m5(17)       TYPE c,

        vl_emprest_m5(17)      TYPE c,

* << Fim da inclusão

         vl_pag_obrig_m5(17)     TYPE c,

         vl_aquis_bens_m5(17)    TYPE c,

         vl_aquis_serv_m5(17)    TYPE c,

* >> Início da exclusão:

         vl_transf_m5(17)        TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

        vl_remun_dir_m5(17)    TYPE c,

        vl_transf_m5(17)       TYPE c,

        vl_inter_dis_m5(17)    TYPE c,

        vl_outr_apl_m5(17)     TYPE c,

* << Fim da inclusão

         vl_sl_mes_m5(17)        TYPE c,

         vl_sl_anterior_m6(17)   TYPE c,

         disponi_l_11_m6(17)     TYPE c,

         disponi_c_si_m6(17)     TYPE c,

* >> Início da inclusão:

        vl_rend_rec_m6(17)     TYPE c,

        vl_tran_if_m6(17)      TYPE c,

        vl_outr_ori_m6(17)     TYPE c,

        vl_aplic_fi_m6(17)     TYPE c,

        vl_invest_m6(17)       TYPE c,

        vl_emprest_m6(17)      TYPE c,

* << Fim da inclusão

         vl_pag_obrig_m6(17)     TYPE c,

         vl_aquis_bens_m6(17)    TYPE c,

         vl_aquis_serv_m6(17)    TYPE c,

* >> Início da exclusão:

         vl_transf_m6(17)        TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

        vl_remun_dir_m6(17)    TYPE c,

        vl_transf_m6(17)       TYPE c,

        vl_inter_dis_m6(17)    TYPE c,

        vl_outr_apl_m6(17)     TYPE c,

* << Fim da inclusão

         vl_sl_mes_m6(17)        TYPE c,

         vl_sl_anterior_m7(17)   TYPE c,

         disponi_l_11_m7(17)     TYPE c,

         disponi_c_si_m7(17)     TYPE c,

* >> Início da inclusão:

        vl_rend_rec_m7(17)     TYPE c,

        vl_tran_if_m7(17)      TYPE c,

        vl_outr_ori_m7(17)     TYPE c,

        vl_aplic_fi_m7(17)     TYPE c,

        vl_invest_m7(17)       TYPE c,

        vl_emprest_m7(17)      TYPE c,

* << Fim da inclusão

         vl_pag_obrig_m7(17)     TYPE c,

         vl_aquis_bens_m7(17)    TYPE c,

         vl_aquis_serv_m7(17)    TYPE c,

* >> Início da exclusão:

         vl_transf_m7(17)        TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

        vl_remun_dir_m7(17)    TYPE c,

        vl_transf_m7(17)       TYPE c,

        vl_inter_dis_m7(17)    TYPE c,

        vl_outr_apl_m7(17)     TYPE c,

* << Fim da inclusão

         vl_sl_mes_m7(17)        TYPE c,

         vl_sl_anterior_m8(17)   TYPE c,

         disponi_l_11_m8(17)     TYPE c,

         disponi_c_si_m8(17)     TYPE c,

* >> Início da inclusão:

        vl_rend_rec_m8(17)     TYPE c,

        vl_tran_if_m8(17)      TYPE c,

        vl_outr_ori_m8(17)     TYPE c,

        vl_aplic_fi_m8(17)     TYPE c,

        vl_invest_m8(17)       TYPE c,

        vl_emprest_m8(17)      TYPE c,

* << Fim da inclusão

         vl_pag_obrig_m8(17)     TYPE c,

         vl_aquis_bens_m8(17)    TYPE c,

         vl_aquis_serv_m8(17)    TYPE c,

* >> Início da exclusão:

         vl_transf_m8(17)        TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

        vl_remun_dir_m8(17)    TYPE c,

        vl_transf_m8(17)       TYPE c,

        vl_inter_dis_m8(17)    TYPE c,

        vl_outr_apl_m8(17)     TYPE c,

* << Fim da inclusão

         vl_sl_mes_m8(17)        TYPE c,

         vl_sl_anterior_m9(17)   TYPE c,

         disponi_l_11_m9(17)     TYPE c,

         disponi_c_si_m9(17)     TYPE c,

* >> Início da inclusão:

        vl_rend_rec_m9(17)     TYPE c,

        vl_tran_if_m9(17)      TYPE c,

        vl_outr_ori_m9(17)     TYPE c,

        vl_aplic_fi_m9(17)     TYPE c,

        vl_invest_m9(17)       TYPE c,

        vl_emprest_m9(17)      TYPE c,

* << Fim da inclusão

         vl_pag_obrig_m9(17)     TYPE c,

         vl_aquis_bens_m9(17)    TYPE c,

         vl_aquis_serv_m9(17)    TYPE c,

* >> Início da exclusão:

         vl_transf_m9(17)        TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

        vl_remun_dir_m9(17)    TYPE c,

        vl_transf_m9(17)       TYPE c,

        vl_inter_dis_m9(17)    TYPE c,

        vl_outr_apl_m9(17)     TYPE c,

* << Fim da inclusão

         vl_sl_mes_m9(17)        TYPE c,

         vl_sl_anterior_m10(17)  TYPE c,

         disponi_l_11_m10(17)    TYPE c,

         disponi_c_si_m10(17)    TYPE c,

* >> Início da inclusão:

        vl_rend_rec_m10(17)     TYPE c,

        vl_tran_if_m10(17)      TYPE c,

        vl_outr_ori_m10(17)     TYPE c,

        vl_aplic_fi_m10(17)     TYPE c,

        vl_invest_m10(17)       TYPE c,

        vl_emprest_m10(17)      TYPE c,

* << Fim da inclusão

         vl_pag_obrig_m10(17)    TYPE c,

         vl_aquis_bens_m10(17)   TYPE c,

         vl_aquis_serv_m10(17)   TYPE c,

* >> Início da inclusão:

        vl_remun_dir_m10(17)    TYPE c,

* << Fim da inclusão

         vl_transf_m10(17)       TYPE c,

* >> Início da inclusão:

        vl_inter_dis_m10(17)    TYPE c,

        vl_outr_apl_m10(17)     TYPE c,

* << Fim da inclusão

         vl_sl_mes_m10(17)       TYPE c,

         vl_sl_anterior_m11(17)  TYPE c,

         disponi_l_11_m11(17)    TYPE c,

         disponi_c_si_m11(17)    TYPE c,

* >> Início da inclusão:

        vl_rend_rec_m11(17)     TYPE c,

        vl_tran_if_m11(17)      TYPE c,

        vl_outr_ori_m11(17)     TYPE c,

        vl_aplic_fi_m11(17)     TYPE c,

        vl_invest_m11(17)       TYPE c,

        vl_emprest_m11(17)      TYPE c,

* << Fim da inclusão

         vl_pag_obrig_m11(17)    TYPE c,

         vl_aquis_bens_m11(17)   TYPE c,

         vl_aquis_serv_m11(17)   TYPE c,

* >> Início da inclusão:

        vl_remun_dir_m11(17)    TYPE c,

* << Fim da inclusão

         vl_transf_m11(17)       TYPE c,

* >> Início da inclusão:

        vl_inter_dis_m11(17)    TYPE c,

        vl_outr_apl_m11(17)     TYPE c,

* << Fim da inclusão

         vl_sl_mes_m11(17)       TYPE c,

         vl_sl_anterior_m12(17)  TYPE c,

         disponi_l_11_m12(17)    TYPE c,

         disponi_c_si_m12(17)    TYPE c,

* >> Início da inclusão:

        vl_rend_rec_m12(17)     TYPE c,

        vl_tran_if_m12(17)      TYPE c,

        vl_outr_ori_m12(17)     TYPE c,

        vl_aplic_fi_m12(17)     TYPE c,

        vl_invest_m12(17)       TYPE c,

        vl_emprest_m12(17)      TYPE c,

* << Fim da inclusão

         vl_pag_obrig_m12(17)    TYPE c,

         vl_aquis_bens_m12(17)   TYPE c,

         vl_aquis_serv_m12(17)   TYPE c,

* >> Início da inclusão:

        vl_remun_dir_m12(17)    TYPE c,

* << Fim da inclusão

         vl_transf_m12(17)       TYPE c,

* >> Início da inclusão:

        vl_inter_dis_m12(17)    TYPE c,

        vl_outr_apl_m12(17)     TYPE c,

* << Fim da inclusão

         vl_sl_mes_m12(17)       TYPE c,

       END OF s_arq_xml.

TYPES: BEGIN OF s_relatorio_display,

        linha1(50)    TYPE c,

        ds_mes_1      TYPE /pws/zycbt226-vlr_exterior,

        ds_mes_2      TYPE /pws/zycbt226-vlr_exterior,

        ds_mes_3      TYPE /pws/zycbt226-vlr_exterior,

        ds_mes_4      TYPE /pws/zycbt226-vlr_exterior,

        ds_mes_5      TYPE /pws/zycbt226-vlr_exterior,

        ds_mes_6      TYPE /pws/zycbt226-vlr_exterior,

...

...

         bukrs      TYPE /pws/zycbt226-bukrs,

         dtlancto   LIKE /pws/zycbt226-dtlancto,

         bco_me     TYPE /pws/zycbt226-bco_me,

         waers      TYPE /pws/zycbt226-waers,

         destino    TYPE /pws/zycbt226-destino,

       vlr_exterior TYPE /pws/zycbt226-vlr_exterior,

         nrboleto   TYPE /pws/zycbt232-nrboleto,

         tpproc     TYPE /pws/zycbt232-tpproc,

         vl_pagto   TYPE /pws/zycbt232-vl_pagto,

      END OF t_resultado.

* >> Início da inclusão:

DATA: BEGIN OF t_zycbt238 OCCURS 0,

         nrseq       TYPE /pws/zycbt238-nrseq,

         destino     TYPE /pws/zycbt238-destino,

         dtdisp      TYPE /pws/zycbt238-dtdisp,

         vldisp      TYPE /pws/zycbt238-vldisp,

         waers       TYPE /pws/zycbt238-waers,

       END OF t_zycbt238.

DATA: BEGIN OF t_zycbt226 OCCURS 0,

       nrseq           TYPE /pws/zycbt226-nrseq,

       bukrs           TYPE /pws/zycbt226-bukrs,

       waers           TYPE /pws/zycbt226-waers,

       conta_contabil  TYPE /pws/zycbt226-conta_contabil,

       destino         TYPE /pws/zycbt226-destino,

       sld_exterior TYPE /pws/zycbt226-sld_exterior,

       dt226        TYPE /pws/zycbt226-dtlancto,

       dtcredext    TYPE /pws/zycbt226-dtcredext,

       bco_me       TYPE /pws/zycbt226-bco_me,

     END OF t_zycbt226.

DATA: BEGIN OF t_zycbt240 OCCURS 0,

         vlcred      TYPE /pws/zycbt240-vlcred,

         dtreceb     TYPE /pws/zycbt240-dtreceb,

         bco_ext     TYPE /pws/zycbt240-bco_ext,

         waers       TYPE /pws/zycbt240-waers,

       END OF t_zycbt240.

DATA: BEGIN OF t_zycbt241 OCCURS 0,

         nrseqc      TYPE /pws/zycbt241-nrseqc,

         nrseq       TYPE /pws/zycbt241-nrseq,

       END OF t_zycbt241.

DATA: BEGIN OF t_zycbt231 OCCURS 0,

         nrseq       TYPE /pws/zycbt231-nrseq,

         dtpagto     TYPE /pws/zycbt231-dtpagto,

         vlme        TYPE /pws/zycbt231-vlme,

       END OF t_zycbt231.

DATA: BEGIN OF t_zycbt226_231 OCCURS 0,

         nrseq        TYPE /pws/zycbt226-nrseq,

       END OF t_zycbt226_231.

DATA: BEGIN OF t_zycbt001 OCCURS 0,

         bukrs      TYPE /pws/zycbt001-bukrs,

         dtcontr    TYPE /pws/zycbt001-dtcontr,

         dtdesem    TYPE /pws/zycbt001-dtdesem,

         dtcred     TYPE /pws/zycbt001-dtcred,

         fdtlanc    TYPE /pws/zycbt001-fdtlanc,

         vlme       TYPE /pws/zycbt001-vlme,

         waers      TYPE /pws/zycbt001-waers,

         tp_pagt_antc TYPE /pws/zycbt001-tp_pagt_antc,

         nrseqc     TYPE /pws/zycbt001-nrseqc,

   END OF t_zycbt001.

DATA: BEGIN OF t_bkpf OCCURS 0,

         bukrs       TYPE bkpf-bukrs,

         belnr       TYPE bkpf-belnr,

         blart       TYPE bkpf-blart,

       END OF t_bkpf.

DATA: BEGIN OF t_bkpf_bseg OCCURS 0,

         bukrs       TYPE bseg-bukrs,

         belnr       TYPE bseg-belnr,

         bschl       TYPE bseg-bschl,

         hkont       TYPE bseg-hkont,

         umskz       TYPE bseg-umskz,

         gjahr       TYPE bseg-gjahr,

         zfbdt       TYPE bseg-zfbdt,

         wrbtr       TYPE bseg-wrbtr,

       END OF t_bkpf_bseg.

DATA: BEGIN OF t_bseg_mes OCCURS 0,

         zfbdtmes(2) TYPE n,

         wrbtr       TYPE bseg-wrbtr,

       END OF t_bseg_mes.

DATA: BEGIN OF t_zycbt165 OCCURS 0,

         origem         TYPE /pws/zycbt165-origem,

         bukrs          TYPE /pws/zycbt165-bukrs,

         conta_contab   TYPE /pws/zycbt165-conta_contab,

         blart          TYPE /pws/zycbt165-blart,

         bschl          TYPE /pws/zycbt165-bschl,

         umskz          TYPE /pws/zycbt165-umskz,

       END OF t_zycbt165.

DATA: BEGIN OF t_zyglt009 OCCURS 0,

        disp_l1137       TYPE /pws/zyglt009-disp_l1137,

        disp_simultaneo  TYPE /pws/zyglt009-disp_simultaneo,

        disp_origem      TYPE /pws/zyglt009-disp_origem,

       END OF t_zyglt009.

* << Fim da inclusão

DATA: BEGIN OF t_zycbt134 OCCURS 0,

         nrseq       TYPE /pws/zycbt134-nrseq,

         tpproc      TYPE /pws/zycbt134-tpproc,

* >> Início da inclusão:

         vlme        TYPE /pws/zycbt134-vlme,

* << Fim da inclusão

         dtlanc      TYPE /pws/zycbt134-dtlanc,

         mdcorresp   TYPE /pws/zycbt134-mdcorresp,

         bukrs       TYPE /pws/zycbt134-bukrs,

       END OF t_zycbt134.

...

...

      ENDIF.

    ENDLOOP.

  ENDIF.

START-OF-SELECTION.

  PERFORM verificar_parametros_digitados.

  PERFORM seleciona_dados

          USING

            s_emp

            s_filial

            s_ano

* >> Início da exclusão:

            s_bco

* << Fim da exclusão

            s_moeda

            s_pais

       CHANGING

* >> Início da inclusão:

            s_bco

* << Fim da inclusão

            p_name1

            p_landx

            p_ltext

            p_cgc

...

...

    ENDIF.

  ELSE.

    MESSAGE i222.

  ENDIF.

END-OF-SELECTION.

FORM seleciona_dados

     USING

       p_emp          TYPE /pws/zycbt226-bukrs

       p_filial       TYPE /pws/zycbt226-j_1bbranch

       p_ano          TYPE ioworkflds-yearn

* >> Início da exclusão: FORM SELECIONA_DADOS

       p_bco          TYPE /pws/zycbt226-bco_me

* << Fim da exclusão

       p_moeda        TYPE /pws/zycbt226-waers

       p_pais         TYPE t005t-land1

  CHANGING

* >> Início da inclusão: FORM SELECIONA_DADOS

       p_bco          TYPE /pws/zycbt226-bco_me

* << Fim da inclusão

       p_name1        TYPE lfa1-name1

       p_landx        TYPE t005t-landx

       p_ltext        TYPE tcurt-ltext

       p_cgc          TYPE j_1bwfield-cgc_number

       p_butxt        TYPE t001-butxt

       s_data_inicial TYPE sy-datum

       s_data_final   TYPE sy-datum

       p_indicativo   TYPE t005k-telefto

       p_codigo       TYPE tcurc-/pws/codmo.

* >> Início da inclusão: FORM SELECIONA_DADOS

  DATA:

    vl_tipodt(02)  TYPE c,

    vl_destino(02) TYPE c.

* << Fim da inclusão

  PERFORM aguardar_processamento.

  PERFORM buscar_descricao_financeira

         USING

           p_bco

        CHANGING

           p_name1.

  PERFORM buscar_codigo_indicativo

        USING

          p_pais

     CHANGING

...

...

          p_emp

          p_filial

     CHANGING

          p_cgc.

  PERFORM primeiro_dia_e_ultima_dia_ano

        USING

          p_ano

     CHANGING

          s_data_inicial

          s_data_final.

* >> Início da exclusão: FORM SELECIONA_DADOS

  SELECT t_zycbt226~nrseq t_zycbt226~nrinvoic t_zycbt226~nrparcf

         t_zycbt226~gsberf t_zycbt226~bukrs t_zycbt226~dtlancto

         t_zycbt226~bco_me t_zycbt226~waers t_zycbt226~destino

         t_zycbt226~vlr_exterior

         t_zycbt232~nrboleto t_zycbt232~tpproc  t_zycbt232~vl_pagto

      INTO TABLE t_resultado

      FROM /pws/zycbt226 AS t_zycbt226 LEFT OUTER JOIN

             /pws/zycbt232 AS t_zycbt232

               ON t_zycbt226~nrseq = t_zycbt232~nrseq

      WHERE t_zycbt226~bukrs    = p_emp

        AND t_zycbt226~dtlancto GE s_data_inicial

        AND t_zycbt226~dtlancto LE s_data_final

        AND t_zycbt226~bco_me   EQ p_bco

        AND t_zycbt226~waers    EQ p_moeda.

  IF t_resultado[] IS INITIAL.

    MESSAGE i222.

    STOP.

  ENDIF.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

  SHIFT p_bco LEFT DELETING LEADING '0'.

* << Fim da inclusão

  SELECT nrseq

         tpproc

* >> Início da inclusão: FORM SELECIONA_DADOS

         vlme

* << Fim da inclusão

         dtlanc

         mdcorresp

         bukrs

         FROM /pws/zycbt134

         INTO TABLE t_zycbt134

         WHERE bukrs   EQ p_emp

* >> Início da exclusão: FORM SELECIONA_DADOS

           AND dtlanc  GE s_data_inicial  AND

               dtlanc  LE s_data_final.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

           AND bco_ccme   = p_bco

           AND waers_ccme = p_moeda

           AND ( dtlanc  GE s_data_inicial  AND

                 dtlanc  LE s_data_final ).

* << Fim da inclusão

* >> Início da exclusão: FORM SELECIONA_DADOS

  SELECT nrinvoic

         nrparcf

         gsberf

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

  SELECT disp_l1137

         disp_simultaneo

         disp_origem

    FROM /pws/zyglt009

    INTO TABLE t_zyglt009

   WHERE bukrs = p_emp.

  CLEAR: t_zycbt226, t_zycbt238, t_zycbt226[], t_zycbt238[].

  READ TABLE t_zyglt009 INDEX 1.

  vl_tipodt  = t_zyglt009-disp_l1137.

  vl_destino = '30'.

  PERFORM f_monta_select_t226

          USING  vl_tipodt vl_destino s_data_inicial s_data_final.

  vl_tipodt  = t_zyglt009-disp_simultaneo.

  vl_destino = '70'.

  PERFORM f_monta_select_t226

          USING  vl_tipodt vl_destino s_data_inicial s_data_final.

  PERFORM f_monta_select_t226ori

          USING  vl_tipodt s_data_inicial s_data_final.

  SELECT vlcred

         dtreceb

         bco_ext

         waers

    FROM /pws/zycbt240

    INTO TABLE t_zycbt240

   WHERE bukrs    = p_emp

     AND ( dtreceb  GE s_data_inicial  AND

           dtreceb  LE s_data_final ).

  SELECT nrseq

* << Fim da inclusão

         dtpagto

* >> Início da exclusão: FORM SELECIONA_DADOS

         FROM /pws/zycbt084

         INTO TABLE t_zycbt084

         FOR ALL ENTRIES IN t_resultado

         WHERE tdesmemb  EQ 'O'                  AND

                nrinvoic EQ t_resultado-nrinvoic AND

                nrparcf  EQ t_resultado-nrparcf  AND

                gsberf   EQ t_resultado-gsberf   AND

                dtpagto  GE s_data_inicial       AND

                dtpagto  LE s_data_final.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

       vlme

    FROM /pws/zycbt231

    INTO TABLE t_zycbt231

   WHERE dtpagto  GE s_data_inicial

     AND dtpagto  LE s_data_final.

* << Fim da inclusão

* >> Início da exclusão: FORM SELECIONA_DADOS

  IF sy-subrc = 0.

    SELECT nrinvoic

           nrparcf

           gsberf

           dtpagto

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

  SELECT nrseq

    FROM /pws/zycbt226

    INTO TABLE t_zycbt226_231

    FOR ALL ENTRIES IN t_zycbt231

   WHERE  nrseq    = t_zycbt231-nrseq

     AND  bukrs    = s_emp

     AND  waers    = s_moeda

     AND  bco_me   = p_bco.

  LOOP AT t_zycbt231.

    READ TABLE t_zycbt226_231 WITH KEY nrseq = t_zycbt231-nrseq.

    IF sy-subrc <> 0.

      DELETE t_zycbt231.

    ENDIF.

  ENDLOOP.

  SELECT bukrs

       dtcontr

       dtdesem

       dtcred

       fdtlanc

* << Fim da inclusão

           vlme

* >> Início da exclusão: FORM SELECIONA_DADOS

      FROM /pws/zycbt006

      INTO TABLE t_zycbt006

       FOR ALL ENTRIES IN t_zycbt084

     WHERE bukrs        EQ p_emp

       AND nrinvoic     EQ t_zycbt084-nrinvoic AND

           nrparcf      EQ t_zycbt084-nrparcf  AND

           gsberf       EQ t_zycbt084-gsberf   AND

           dtpagto      EQ t_zycbt084-dtpagto.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

       waers

       tp_pagt_antc

       nrseqc

    FROM /pws/zycbt001

    INTO TABLE t_zycbt001

   WHERE bukrs        = p_emp

     AND tp_pagt_antc = 'C'.

  SELECT nrseqc

         nrseq

    FROM /pws/zycbt241

    INTO TABLE t_zycbt241

    FOR ALL ENTRIES IN t_zycbt001

   WHERE nrseqc EQ t_zycbt001-nrseqc.

    SELECT nrseq

          bukrs

          waers

          conta_contabil

          destino

          sld_exterior

          dtlancto

          dtcredext

          bco_me

      FROM /pws/zycbt226

      APPENDING TABLE t_zycbt226

      FOR ALL ENTRIES IN t_zycbt241

     WHERE nrseq = t_zycbt241-nrseq

       AND bukrs = s_emp

       AND waers = s_moeda.

  SORT t_zycbt226 BY nrseq.

  DELETE ADJACENT DUPLICATES FROM t_zycbt226

    COMPARING nrseq.

  SORT t_zycbt238 BY nrseq destino dtdisp.

  DELETE ADJACENT DUPLICATES FROM t_zycbt238

    COMPARING nrseq destino dtdisp.

  SELECT origem

       bukrs

       conta_contab

       blart

       bschl

       umskz

    FROM /pws/zycbt165

    INTO TABLE t_zycbt165

  WHERE bukrs = p_emp.

  IF  sy-subrc = 0.

    SELECT bukrs

         belnr

         bschl

         hkont

         umskz

         gjahr

         zfbdt

         wrbtr

      FROM bseg

      INTO TABLE t_bkpf_bseg

      FOR ALL ENTRIES IN t_zycbt165

     WHERE bukrs = p_emp

       AND hkont = t_zycbt165-conta_contab

       AND bschl = t_zycbt165-bschl

       AND umskz = t_zycbt165-umskz

       AND ( zfbdt  GE s_data_inicial  AND

             zfbdt  LE s_data_final ).

  ENDIF.

  SELECT bukrs

       belnr

       blart

    FROM bkpf

    INTO TABLE t_bkpf

    FOR ALL ENTRIES IN t_zycbt165

   WHERE bukrs = t_zycbt165-bukrs

     AND blart = t_zycbt165-blart.

  LOOP AT t_bkpf_bseg.

    READ TABLE t_bkpf WITH KEY belnr = t_bkpf_bseg-belnr.

    IF sy-subrc <> 0.

      DELETE t_bkpf_bseg.

    ENDIF.

  ENDLOOP.

  PERFORM f_collect_bseg.

  IF t_zycbt226[]    IS INITIAL AND

     t_zycbt238[]    IS INITIAL AND

     t_zycbt226_231[] IS INITIAL.

    MESSAGE i222.

    STOP.

* << Fim da inclusão

  ENDIF.

ENDFORM.

FORM move_dados

     TABLES

       t_resultado STRUCTURE t_resultado

       t_zycbt134 STRUCTURE t_zycbt134

       t_zycbt084 STRUCTURE t_zycbt084

       t_zycbt006 STRUCTURE t_zycbt006

       t_relatorio_display   STRUCTURE t_relatorio_display

     USING

       p_saldo           TYPE  /pws/zycbt226-vlr_exterior

  CHANGING

       p_t_relatorio     TYPE s_relatorio.

  DATA: v_associado(50) TYPE c,

        v_sy_index(2)   TYPE c,

        v_mes(2)        TYPE c,

        vl_disponi_l_11 TYPE p DECIMALS 2,

        vl_disponi_c_si TYPE p DECIMALS 2,

* >> Início da inclusão: FORM MOVE_DADOS

        vl_rend_rec     TYPE p DECIMALS 2,

        vl_tran_if      TYPE p DECIMALS 2,

        vl_outr_ori     TYPE p DECIMALS 2,

        vl_aplic_fi     TYPE p DECIMALS 2,

        vl_invest       TYPE p DECIMALS 2,

        vl_emprest      TYPE p DECIMALS 2,

* << Fim da inclusão

        vl_pag_obrig    TYPE p DECIMALS 2,

        vl_aquis_bens   TYPE p DECIMALS 2,                  "#EC NEEDED

        vl_aquis_serv   TYPE p DECIMALS 2,                  "#EC NEEDED

* >> Início da inclusão: FORM MOVE_DADOS

        vl_remun_dir    TYPE p DECIMALS 2,

* << Fim da inclusão

        vl_transf       TYPE p DECIMALS 2,

* >> Início da inclusão: FORM MOVE_DADOS

        vl_inter_dis    TYPE p DECIMALS 2,

        vl_outr_apl     TYPE p DECIMALS 2,

* << Fim da inclusão

        vl_mes          TYPE p DECIMALS 2,

* >> Início da exclusão: FORM MOVE_DADOS

        wa_nrseq        TYPE /pws/zycbt226-nrseq.

* << Fim da exclusão

* >> Início da inclusão: FORM MOVE_DADOS

        wa_nrseq        TYPE /pws/zycbt226-nrseq,

        vl_mesaux       TYPE /pws/zycbt001-dtcontr.

* << Fim da inclusão

  FIELD-SYMBOLS: <fs_sl_anterior>  TYPE ANY,

                 <fs_disponi_l_11> TYPE ANY,

                 <fs_disponi_c_si> TYPE ANY,

* >> Início da inclusão: FORM MOVE_DADOS

                 <fs_rend_rec>     TYPE ANY,

                 <fs_tran_if>      TYPE ANY,

                 <fs_outr_ori>     TYPE ANY,

                 <fs_aplic_fi>     TYPE ANY,

                 <fs_invest>       TYPE ANY,

                 <fs_emprest>      TYPE ANY,

* << Fim da inclusão

                 <fs_pag_obrig>    TYPE ANY,

                 <fs_aquis_bens>   TYPE ANY,

                 <fs_aquis_serv>   TYPE ANY,

* >> Início da inclusão: FORM MOVE_DADOS

                 <fs_remun_dir>    TYPE ANY,

* << Fim da inclusão

                 <fs_transf>       TYPE ANY,

* >> Início da inclusão: FORM MOVE_DADOS

                 <fs_inter_dis>    TYPE ANY,

                 <fs_outr_apl>     TYPE ANY,

* << Fim da inclusão

                 <fs_sl_mes>       TYPE ANY.

  DO 12 TIMES.

    MOVE sy-index TO v_sy_index.

    SHIFT v_sy_index LEFT DELETING LEADING '0 '.

    MOVE sy-index TO v_mes.

    SHIFT v_mes RIGHT DELETING TRAILING ' '.

    REPLACE space WITH '0' INTO v_mes.

* >> Início da inclusão: FORM MOVE_DADOS

    CASE t_zyglt009-disp_l1137.

      WHEN '01'.

        LOOP AT t_zycbt226 WHERE dt226+4(2) = v_mes

            AND waers  EQ s_moeda.

          SHIFT t_zycbt226-bco_me LEFT DELETING LEADING '0'.

          CHECK t_zycbt226-bco_me EQ s_bco.

          CHECK t_zycbt226-dt226(4) EQ s_ano.

          t_zycbt238-vldisp = 0.

          LOOP AT t_zycbt238

            WHERE nrseq  EQ t_zycbt226-nrseq

              AND destino EQ '30'.

            CONCATENATE 'p_t_relatorio-disponi_l_11_m' v_sy_index

                   INTO v_associado.

            ASSIGN (v_associado)    TO <fs_disponi_l_11>.

            ADD t_zycbt238-vldisp   TO <fs_disponi_l_11>.

            vl_disponi_l_11 = vl_disponi_l_11 + t_zycbt238-vldisp.

            CLEAR wa_nrseq.

            wa_nrseq = t_resultado-nrseq.

          ENDLOOP.

        ENDLOOP.

      WHEN '02'.

        LOOP AT t_zycbt226 WHERE dtcredext+4(2) = v_mes

            AND waers  EQ s_moeda.

          SHIFT t_zycbt226-bco_me LEFT DELETING LEADING '0'.

          CHECK t_zycbt226-bco_me EQ s_bco.

          CHECK t_zycbt226-dtcredext(4) EQ s_ano.

          t_zycbt238-vldisp = 0.

          LOOP AT t_zycbt238

            WHERE nrseq  EQ t_zycbt226-nrseq

              AND destino EQ '30'.

            CONCATENATE 'p_t_relatorio-disponi_l_11_m' v_sy_index

                   INTO v_associado.

            ASSIGN (v_associado)    TO <fs_disponi_l_11>.

            ADD t_zycbt238-vldisp   TO <fs_disponi_l_11>.

            vl_disponi_l_11 = vl_disponi_l_11 + t_zycbt238-vldisp.

            CLEAR wa_nrseq.

            wa_nrseq = t_resultado-nrseq.

          ENDLOOP.

        ENDLOOP.

* << Fim da inclusão

* >> Início da exclusão: FORM MOVE_DADOS

    LOOP AT t_resultado WHERE dtlancto+4(2) = v_mes.

      IF t_resultado-nrseq <> wa_nrseq.

        IF t_resultado-destino EQ '30'.

* << Fim da exclusão

* >> Início da inclusão: FORM MOVE_DADOS

      WHEN '03'.

        SORT t_zycbt238 BY dtdisp.

        LOOP AT t_zycbt238

          WHERE dtdisp+4(2) EQ v_mes

            AND waers       EQ s_moeda

            AND destino     EQ '30'.

          READ TABLE t_zycbt226 WITH KEY nrseq = t_zycbt238-nrseq.

          CHECK sy-subrc EQ 0.

          SHIFT t_zycbt226-bco_me LEFT DELETING LEADING '0'.

          CHECK t_zycbt226-bco_me EQ s_bco.

          CHECK t_zycbt238-dtdisp(4) EQ s_ano.

* << Fim da inclusão

          CONCATENATE 'p_t_relatorio-disponi_l_11_m' v_sy_index

* >> Início da inclusão: FORM MOVE_DADOS

                 INTO v_associado.

          ASSIGN (v_associado)    TO <fs_disponi_l_11>.

          ADD t_zycbt238-vldisp   TO <fs_disponi_l_11>.

          vl_disponi_l_11 = vl_disponi_l_11 + t_zycbt238-vldisp.

        ENDLOOP.

    ENDCASE.

    CASE t_zyglt009-disp_simultaneo.

      WHEN '01'.

        LOOP AT t_zycbt226 WHERE dt226+4(2) = v_mes

            AND waers  EQ s_moeda.

          SHIFT t_zycbt226-bco_me LEFT DELETING LEADING '0'.

          CHECK t_zycbt226-bco_me EQ s_bco.

          CHECK t_zycbt226-dt226(4) EQ s_ano.

          t_zycbt238-vldisp = 0.

          LOOP AT t_zycbt238

            WHERE nrseq  EQ t_zycbt226-nrseq

              AND destino EQ '70'.

            CONCATENATE 'p_t_relatorio-disponi_c_si_m' v_sy_index

                   INTO v_associado.

            ASSIGN (v_associado)    TO <fs_disponi_c_si>.

            ADD t_zycbt238-vldisp   TO <fs_disponi_c_si>.

            vl_disponi_c_si = vl_disponi_c_si + t_zycbt238-vldisp.

            CLEAR wa_nrseq.

            wa_nrseq = t_resultado-nrseq.

          ENDLOOP.

        ENDLOOP.

      WHEN '02'.

        LOOP AT t_zycbt226 WHERE dtcredext+4(2) = v_mes

            AND waers  EQ s_moeda.

          SHIFT t_zycbt226-bco_me LEFT DELETING LEADING '0'.

          CHECK t_zycbt226-bco_me EQ s_bco.

          CHECK t_zycbt226-dtcredext(4) EQ s_ano.

          t_zycbt238-vldisp = 0.

          LOOP AT t_zycbt238

            WHERE nrseq  EQ t_zycbt226-nrseq

              AND destino EQ '70'.

            CONCATENATE 'p_t_relatorio-disponi_c_si_m' v_sy_index

* << Fim da inclusão

                 INTO v_associado.

* >> Início da exclusão: FORM MOVE_DADOS

          ASSIGN (v_associado)         TO <fs_disponi_l_11>.

          ADD t_resultado-vlr_exterior TO <fs_disponi_l_11>.

          vl_disponi_l_11 = <fs_disponi_l_11>.

        ENDIF.

* << Fim da exclusão

* >> Início da inclusão: FORM MOVE_DADOS

            ASSIGN (v_associado)    TO <fs_disponi_c_si>.

            ADD t_zycbt238-vldisp   TO <fs_disponi_c_si>.

            vl_disponi_c_si = vl_disponi_c_si + t_zycbt238-vldisp.

            CLEAR wa_nrseq.

            wa_nrseq = t_resultado-nrseq.

          ENDLOOP.

        ENDLOOP.

* << Fim da inclusão

* >> Início da exclusão: FORM MOVE_DADOS

        IF t_resultado-destino EQ '70'.

* << Fim da exclusão

* >> Início da inclusão: FORM MOVE_DADOS

      WHEN '03'.

        LOOP AT t_zycbt238

          WHERE dtdisp+4(2) EQ v_mes

            AND waers       EQ s_moeda

            AND destino EQ '70'.

          READ TABLE t_zycbt226 WITH KEY nrseq = t_zycbt238-nrseq.

          CHECK sy-subrc EQ 0.

          SHIFT t_zycbt226-bco_me LEFT DELETING LEADING '0'.

          CHECK t_zycbt226-bco_me EQ s_bco.

          CHECK t_zycbt238-dtdisp(4) EQ s_ano.

* << Fim da inclusão

          CONCATENATE 'p_t_relatorio-disponi_c_si_m' v_sy_index

* >> Início da inclusão: FORM MOVE_DADOS

                 INTO v_associado.

          ASSIGN (v_associado)    TO <fs_disponi_c_si>.

          ADD t_zycbt238-vldisp   TO <fs_disponi_c_si>.

          vl_disponi_c_si = vl_disponi_c_si + t_zycbt238-vldisp.

        ENDLOOP.

    ENDCASE.

    CASE t_zyglt009-disp_origem.

      WHEN '01'.

        SORT t_zycbt226 BY dt226.

        LOOP AT t_zycbt226 WHERE dt226+4(2) = v_mes

            AND waers  EQ s_moeda.

          SHIFT t_zycbt226-bco_me LEFT DELETING LEADING '0'.

          CHECK t_zycbt226-bco_me EQ s_bco.

          CHECK t_zycbt226-dt226(4) EQ s_ano.

          CONCATENATE 'p_t_relatorio-vl_outr_ori_m' v_sy_index

                 INTO v_associado.

          ASSIGN (v_associado)        TO <fs_outr_ori>.

          ADD t_zycbt226-sld_exterior TO <fs_outr_ori>.

          vl_outr_ori = vl_outr_ori + t_zycbt226-sld_exterior.

          CLEAR wa_nrseq.

          wa_nrseq = t_resultado-nrseq.

        ENDLOOP.

      WHEN '02'.

        LOOP AT t_zycbt226 WHERE dtcredext+4(2) = v_mes

            AND waers  EQ s_moeda.

          SHIFT t_zycbt226-bco_me LEFT DELETING LEADING '0'.

          CHECK t_zycbt226-bco_me EQ s_bco.

          CHECK t_zycbt226-dtcredext(4) EQ s_ano.

          CONCATENATE 'p_t_relatorio-vl_outr_ori_m' v_sy_index

* << Fim da inclusão

                 INTO v_associado.

* >> Início da exclusão: FORM MOVE_DADOS

          ASSIGN (v_associado)         TO <fs_disponi_c_si>.

          ADD t_resultado-vlr_exterior TO <fs_disponi_c_si>.

          vl_disponi_c_si = <fs_disponi_c_si>.

        ENDIF.

* << Fim da exclusão

* >> Início da inclusão: FORM MOVE_DADOS

          ASSIGN (v_associado)        TO <fs_outr_ori>.

          ADD t_zycbt226-sld_exterior TO <fs_outr_ori>.

          vl_outr_ori = vl_outr_ori + t_zycbt226-sld_exterior.

* << Fim da inclusão

        CLEAR wa_nrseq.

        wa_nrseq = t_resultado-nrseq.

* >> Início da exclusão: FORM MOVE_DADOS

      ENDIF.

* << Fim da exclusão

* >> Início da inclusão: FORM MOVE_DADOS

        ENDLOOP.

    ENDCASE.

    LOOP AT t_zycbt240

      WHERE dtreceb+4(2) EQ v_mes

        AND waers        EQ s_moeda.

      SHIFT t_zycbt240-bco_ext LEFT DELETING LEADING '0'.

      CHECK t_zycbt240-bco_ext EQ s_bco.

      CONCATENATE 'p_t_relatorio-vl_rend_rec_m' v_sy_index

             INTO v_associado.

      ASSIGN (v_associado)    TO <fs_rend_rec>.

      ADD t_zycbt240-vlcred   TO <fs_rend_rec>.

      vl_rend_rec = vl_rend_rec + t_zycbt240-vlcred.

* << Fim da inclusão

    ENDLOOP.

    LOOP AT t_zycbt134  WHERE dtlanc+4(2) = v_mes.

      IF t_zycbt134-mdcorresp = 'IP'.

* >> Início da exclusão: FORM MOVE_DADOS

        READ TABLE t_resultado

              WITH KEY nrboleto = t_zycbt134-nrseq.

        IF sy-subrc = 0.

* << Fim da exclusão

          CONCATENATE 'p_t_relatorio-vl_aquis_bens_m' v_sy_index

                 INTO v_associado.

* >> Início da exclusão: FORM MOVE_DADOS

          ASSIGN (v_associado)    TO <fs_aquis_bens>.

          ADD t_resultado-vl_pagto TO   <fs_aquis_bens>.

          vl_aquis_bens = <fs_aquis_bens>.

        ENDIF.

* << Fim da exclusão

* >> Início da inclusão: FORM MOVE_DADOS

        ASSIGN (v_associado)  TO  <fs_aquis_bens>.

        ADD t_zycbt134-vlme   TO  <fs_aquis_bens>.

        vl_aquis_bens = vl_aquis_bens + t_zycbt134-vlme.

* << Fim da inclusão

      ENDIF.

* >> Início da exclusão: FORM MOVE_DADOS

      IF ( t_zycbt134-tpproc(4)  NE 'CIDE'    OR

           t_zycbt134-tpproc(6)  NE 'COFINS'  OR

           t_zycbt134-tpproc(3)  NE 'ISS'     OR

           t_zycbt134-tpproc(3)  NE 'IOF'     OR

           t_zycbt134-tpproc(4)  NE 'IRRF'    OR

* << Fim da exclusão

* >> Início da inclusão: FORM MOVE_DADOS

      IF ( t_zycbt134-tpproc(4)  NE 'CIDE'    AND

           t_zycbt134-tpproc(6)  NE 'COFINS'  AND

           t_zycbt134-tpproc(3)  NE 'ISS'     AND

           t_zycbt134-tpproc(3)  NE 'IOF'     AND

           t_zycbt134-tpproc(4)  NE 'IRRF'    AND

* << Fim da inclusão

           t_zycbt134-tpproc(3)  NE 'PIS' )   AND

           t_zycbt134-mdcorresp  NE 'IP'.

* >> Início da exclusão: FORM MOVE_DADOS

        READ TABLE t_resultado

              WITH KEY nrboleto = t_zycbt134-nrseq.

        IF sy-subrc = 0.

* << Fim da exclusão

          CONCATENATE 'p_t_relatorio-vl_aquis_serv_m' v_sy_index

                 INTO v_associado.

* >> Início da exclusão: FORM MOVE_DADOS

          ASSIGN (v_associado)    TO <fs_aquis_serv>.

          ADD t_resultado-vl_pagto TO <fs_aquis_serv>.

          vl_aquis_serv = <fs_aquis_serv>.

        ENDIF.

* << Fim da exclusão

* >> Início da inclusão: FORM MOVE_DADOS

        ASSIGN (v_associado)  TO <fs_aquis_serv>.

        ADD t_zycbt134-vlme   TO  <fs_aquis_serv>.

        vl_aquis_serv = vl_aquis_serv + t_zycbt134-vlme.

* << Fim da inclusão

      ENDIF.

    ENDLOOP.

    CONCATENATE 'p_t_relatorio-vl_pag_obrig_m' v_sy_index

           INTO v_associado.

    ASSIGN (v_associado) TO <fs_pag_obrig>.

    IF <fs_aquis_bens> IS ASSIGNED.

      ADD <fs_aquis_bens> TO <fs_pag_obrig>.

    ENDIF.

    IF <fs_aquis_serv> IS ASSIGNED.

      ADD <fs_aquis_serv> TO <fs_pag_obrig>.

    ENDIF.

* >> Início da inclusão: FORM MOVE_DADOS

    IF <fs_remun_dir> IS ASSIGNED.

      ADD <fs_remun_dir> TO <fs_pag_obrig>.

    ENDIF.

* << Fim da inclusão

    vl_pag_obrig = <fs_pag_obrig>.

* >> Início da inclusão: FORM MOVE_DADOS

    t_bseg_mes-wrbtr = 0.

    READ TABLE t_bseg_mes WITH KEY zfbdtmes = v_mes.

* << Fim da inclusão

* >> Início da exclusão: FORM MOVE_DADOS

    LOOP AT t_zycbt084  WHERE dtpagto+4(2) = v_mes.

      READ TABLE t_zycbt006

            WITH KEY nrinvoic = t_zycbt084-nrinvoic

                      nrparcf = t_zycbt084-nrparcf

                       gsberf = t_zycbt084-gsberf

                      dtpagto = t_zycbt084-dtpagto.

* << Fim da exclusão

* >> Início da inclusão: FORM MOVE_DADOS

    t_zycbt165-origem = 04.

    READ TABLE t_zycbt165 WITH KEY origem = t_zycbt165-origem.

    IF sy-subrc = 0.

      CONCATENATE 'p_t_relatorio-vl_tran_if_m' v_sy_index

             INTO v_associado.

      ASSIGN (v_associado)  TO  <fs_tran_if>.

      ADD t_bseg_mes-wrbtr   TO  <fs_tran_if>.

      vl_tran_if = vl_tran_if + <fs_tran_if>.

    ENDIF.

    t_zycbt165-origem = 06.

    READ TABLE t_zycbt165 WITH KEY origem = t_zycbt165-origem.

    IF sy-subrc = 0.

      CONCATENATE 'p_t_relatorio-vl_aplic_fi_m' v_sy_index

             INTO v_associado.

      ASSIGN (v_associado)  TO  <fs_aplic_fi>.

      ADD t_bseg_mes-wrbtr  TO  <fs_aplic_fi>.

      vl_aplic_fi = vl_aplic_fi + <fs_aplic_fi>.

    ENDIF.

    t_zycbt165-origem = 07.

    READ TABLE t_zycbt165 WITH KEY origem = t_zycbt165-origem.

    IF sy-subrc = 0.

      CONCATENATE 'p_t_relatorio-vl_invest_m' v_sy_index

             INTO v_associado.

      ASSIGN (v_associado)  TO  <fs_invest>.

      ADD t_bseg_mes-wrbtr   TO  <fs_invest>.

      vl_invest = vl_invest + <fs_invest>.

    ENDIF.

    t_zycbt165-origem = 08.

    READ TABLE t_zycbt165 WITH KEY origem = t_zycbt165-origem.

    IF sy-subrc = 0.

      CONCATENATE 'p_t_relatorio-vl_emprest_m' v_sy_index

             INTO v_associado.

      ASSIGN (v_associado)  TO  <fs_emprest>.

      ADD t_bseg_mes-wrbtr   TO  <fs_emprest>.

      vl_emprest = vl_emprest + <fs_emprest>.

    ENDIF.

    t_zycbt165-origem = 11.

    READ TABLE t_zycbt165 WITH KEY origem = t_zycbt165-origem.

    IF sy-subrc = 0.

      CONCATENATE 'p_t_relatorio-vl_remun_dir_m' v_sy_index

             INTO v_associado.

      ASSIGN (v_associado)  TO  <fs_remun_dir>.

      ADD t_bseg_mes-wrbtr   TO  <fs_remun_dir>.

      vl_remun_dir = vl_remun_dir + <fs_remun_dir>.

    ENDIF.

    t_zycbt165-origem = 12.

    READ TABLE t_zycbt165 WITH KEY origem = t_zycbt165-origem.

* << Fim da inclusão

      IF sy-subrc = 0.

        CONCATENATE 'p_t_relatorio-vl_transf_m' v_sy_index

* >> Início da inclusão: FORM MOVE_DADOS

             INTO v_associado.

      ASSIGN (v_associado)  TO  <fs_transf>.

      ADD t_bseg_mes-wrbtr   TO  <fs_transf>.

      vl_transf = vl_transf + <fs_transf>.

    ENDIF.

    t_zycbt165-origem = 14.

    READ TABLE t_zycbt165 WITH KEY origem = t_zycbt165-origem.

    IF sy-subrc = 0.

      CONCATENATE 'p_t_relatorio-vl_outr_apl_m' v_sy_index

             INTO v_associado.

      ASSIGN (v_associado)  TO  <fs_outr_apl>.

      ADD t_bseg_mes-wrbtr   TO  <fs_outr_apl>.

      vl_outr_apl = vl_outr_apl + <fs_outr_apl>.

    ENDIF.

    LOOP AT t_zycbt231 WHERE dtpagto+4(2) = v_mes.

      READ TABLE t_zycbt226 WITH KEY nrseq = t_zycbt231-nrseq.

      CHECK sy-subrc EQ 0.

      SHIFT t_zycbt226-bco_me LEFT DELETING LEADING '0'.

      CHECK t_zycbt226-bco_me EQ s_bco.

      CONCATENATE 'p_t_relatorio-vl_inter_dis_m' v_sy_index

             INTO v_associado.

      ASSIGN (v_associado)  TO  <fs_inter_dis>.

      ADD t_zycbt231-vlme   TO  <fs_inter_dis>.

      vl_inter_dis = vl_inter_dis + t_zycbt231-vlme.

    ENDLOOP.

    LOOP AT t_zycbt001 WHERE waers EQ s_moeda.

      CLEAR t_zycbt241.

      READ TABLE t_zycbt241 WITH KEY nrseqc = t_zycbt001-nrseqc.

      CHECK sy-subrc EQ 0.

      READ TABLE t_zycbt226 WITH KEY nrseq = t_zycbt241-nrseq.

      CHECK sy-subrc EQ 0.

      SHIFT t_zycbt226-bco_me LEFT DELETING LEADING '0'.

      CHECK t_zycbt226-bco_me EQ s_bco.

      vl_mesaux = 0.

      IF t_zycbt001-fdtlanc = 'C'.

        vl_mesaux = t_zycbt001-dtcred.

      ELSEIF t_zycbt001-fdtlanc = 'D'.

        vl_mesaux = t_zycbt001-dtdesem.

      ELSEIF t_zycbt001-fdtlanc = 'D'.

        vl_mesaux = t_zycbt001-dtcontr.

      ENDIF.

      CHECK vl_mesaux+0(4) EQ s_ano.

      IF vl_mesaux+4(2) = v_mes.

        CONCATENATE 'p_t_relatorio-vl_inter_dis_m' v_sy_index

* << Fim da inclusão

               INTO v_associado.

* >> Início da exclusão: FORM MOVE_DADOS

        ASSIGN (v_associado) TO <fs_transf>.

        ADD t_zycbt006-vlme  TO <fs_transf>.

        vl_transf = <fs_transf>.

* << Fim da exclusão

* >> Início da inclusão: FORM MOVE_DADOS

        ASSIGN (v_associado)  TO  <fs_inter_dis>.

        ADD t_zycbt001-vlme   TO  <fs_inter_dis>.

        vl_inter_dis = vl_inter_dis + t_zycbt001-vlme.

* << Fim da inclusão

      ENDIF.

    ENDLOOP.

    CONCATENATE 'p_t_relatorio-vl_sl_mes_m' v_sy_index

           INTO v_associado.

    ASSIGN (v_associado) TO <fs_sl_mes>.

    CONCATENATE 'p_t_relatorio-vl_sl_anterior_m' v_sy_index

           INTO  v_associado.

    IF v_mes EQ '01'.

      ASSIGN (v_associado) TO <fs_sl_anterior>.

      <fs_sl_anterior> = p_saldo.

    ELSE.

      ASSIGN (v_associado) TO <fs_sl_anterior>.

      <fs_sl_anterior> = vl_mes.

    ENDIF.

    <fs_sl_mes> = + <fs_sl_anterior>

                  + vl_disponi_l_11

                  + vl_disponi_c_si

* >> Início da exclusão: FORM MOVE_DADOS

                  - ( vl_pag_obrig

                  +   vl_transf ).

* << Fim da exclusão

* >> Início da inclusão: FORM MOVE_DADOS

                  + vl_rend_rec

                  + vl_tran_if

                  + vl_outr_ori

                  - ( vl_aplic_fi  +

                      vl_invest    +

                      vl_emprest   +

                      vl_pag_obrig +

                      vl_transf    +

                      vl_inter_dis +

                      vl_outr_apl ).

* << Fim da inclusão

    CLEAR: vl_mes,

           vl_disponi_l_11,

           vl_disponi_c_si,

* >> Início da inclusão: FORM MOVE_DADOS

           vl_rend_rec,

           vl_tran_if,

           vl_outr_ori,

           vl_aplic_fi,

           vl_invest,

           vl_emprest,

* << Fim da inclusão

           vl_pag_obrig,

           vl_aquis_bens,

           vl_aquis_serv,

           vl_transf,

* >> Início da inclusão: FORM MOVE_DADOS

           vl_remun_dir,

           vl_inter_dis,

           vl_outr_apl,

* << Fim da inclusão

           vl_mes.

    vl_mes = <fs_sl_mes>.

    UNASSIGN: <fs_sl_anterior>,

* >> Início da exclusão: FORM MOVE_DADOS

              <fs_sl_anterior>,

* << Fim da exclusão

              <fs_disponi_l_11>,

              <fs_disponi_c_si>,

* >> Início da inclusão: FORM MOVE_DADOS

              <fs_rend_rec>,

              <fs_tran_if>,

              <fs_outr_ori>,

              <fs_aplic_fi>,

              <fs_invest>,

              <fs_emprest>,

* << Fim da inclusão

              <fs_pag_obrig>,

              <fs_aquis_bens>,

              <fs_aquis_serv>,

* >> Início da inclusão: FORM MOVE_DADOS

              <fs_remun_dir>,

* << Fim da inclusão

              <fs_transf>,

* >> Início da inclusão: FORM MOVE_DADOS

              <fs_inter_dis>,

              <fs_outr_apl>,

* << Fim da inclusão

              <fs_sl_mes>.

  ENDDO.

  PERFORM atribuir_valores

     TABLES

        t_relatorio_display

   CHANGING

        p_t_relatorio.

ENDFORM.

FORM exibe_relatorio

   TABLES

...

...

    FROM t005t

   WHERE spras = 'PT'    AND

         land1 = p_pais.

  CHECK sy-subrc = 0.

ENDFORM.

FORM atribuir_valores

     TABLES

           t_relatorio_display STRUCTURE t_relatorio_display

   CHANGING

           p_relatorio     STRUCTURE  wa_relatorio.

* >> Início da exclusão: FORM ATRIBUIR_VALORES

  MOVE: 'SALDO ANTERIOR'(067)          TO t_relatorio_display-linha1,

* << Fim da exclusão

* >> Início da inclusão: FORM ATRIBUIR_VALORES

  MOVE: 'SALDO ANTERIOR'               TO t_relatorio_display-linha1,

* << Fim da inclusão

        p_relatorio-vl_sl_anterior_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_sl_anterior_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_sl_anterior_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_sl_anterior_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_sl_anterior_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_sl_anterior_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_sl_anterior_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_sl_anterior_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_sl_anterior_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_sl_anterior_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_sl_anterior_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_sl_anterior_m12 TO t_relatorio_display-ds_mes_12.

  APPEND t_relatorio_display.

* >> Início da exclusão: FORM ATRIBUIR_VALORES

  MOVE: '(+)Disponibilidades - L11.371/2006'(068)

* << Fim da exclusão

* >> Início da inclusão: FORM ATRIBUIR_VALORES

  MOVE: '(+)Disponibilidades - L11.371/2006'

* << Fim da inclusão

                                     TO t_relatorio_display-linha1,

        p_relatorio-disponi_l_11_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-disponi_l_11_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-disponi_l_11_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-disponi_l_11_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-disponi_l_11_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-disponi_l_11_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-disponi_l_11_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-disponi_l_11_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-disponi_l_11_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-disponi_l_11_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-disponi_l_11_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-disponi_l_11_m12 TO t_relatorio_display-ds_mes_12.

  APPEND t_relatorio_display.

* >> Início da exclusão: FORM ATRIBUIR_VALORES

  MOVE: '(+)Disponibilidades - Câmbio Simultâneo'(069)

* << Fim da exclusão

* >> Início da inclusão: FORM ATRIBUIR_VALORES

  MOVE: '(+)Disponibilidades - Câmbio Simultâneo'

* << Fim da inclusão

                                     TO t_relatorio_display-linha1,

        p_relatorio-disponi_c_si_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-disponi_c_si_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-disponi_c_si_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-disponi_c_si_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-disponi_c_si_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-disponi_c_si_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-disponi_c_si_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-disponi_c_si_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-disponi_c_si_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-disponi_c_si_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-disponi_c_si_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-disponi_c_si_m12 TO t_relatorio_display-ds_mes_12.

* >> Início da inclusão: FORM ATRIBUIR_VALORES

  APPEND t_relatorio_display.

  MOVE: '(+) Rendimentos Recebidos no Exterior'

                                     TO t_relatorio_display-linha1,

        p_relatorio-vl_rend_rec_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_rend_rec_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_rend_rec_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_rend_rec_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_rend_rec_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_rend_rec_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_rend_rec_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_rend_rec_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_rend_rec_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_rend_rec_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_rend_rec_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_rend_rec_m12 TO t_relatorio_display-ds_mes_12.

  APPEND t_relatorio_display.

  MOVE: '(+)Transferência de outras IF'

                                      TO t_relatorio_display-linha1,

        p_relatorio-vl_tran_if_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_tran_if_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_tran_if_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_tran_if_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_tran_if_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_tran_if_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_tran_if_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_tran_if_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_tran_if_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_tran_if_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_tran_if_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_tran_if_m12 TO t_relatorio_display-ds_mes_12.

  APPEND t_relatorio_display.

  MOVE: '(+) Outras Origens'

                                     TO t_relatorio_display-linha1,

        p_relatorio-vl_outr_ori_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_outr_ori_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_outr_ori_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_outr_ori_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_outr_ori_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_outr_ori_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_outr_ori_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_outr_ori_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_outr_ori_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_outr_ori_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_outr_ori_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_outr_ori_m12 TO t_relatorio_display-ds_mes_12.

  APPEND t_relatorio_display.

  MOVE: '(-) Aplicações Financeiras'

                                     TO t_relatorio_display-linha1,

        p_relatorio-vl_aplic_fi_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_aplic_fi_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_aplic_fi_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_aplic_fi_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_aplic_fi_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_aplic_fi_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_aplic_fi_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_aplic_fi_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_aplic_fi_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_aplic_fi_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_aplic_fi_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_aplic_fi_m12 TO t_relatorio_display-ds_mes_12.

  APPEND t_relatorio_display.

  MOVE: '(-) Investimentos'

                                     TO t_relatorio_display-linha1,

        p_relatorio-vl_invest_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_invest_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_invest_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_invest_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_invest_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_invest_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_invest_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_invest_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_invest_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_invest_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_invest_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_invest_m12 TO t_relatorio_display-ds_mes_12.

  APPEND t_relatorio_display.

  MOVE: '(-) Empréstimos'

                                     TO t_relatorio_display-linha1,

        p_relatorio-vl_emprest_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_emprest_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_emprest_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_emprest_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_emprest_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_emprest_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_emprest_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_emprest_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_emprest_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_emprest_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_emprest_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_emprest_m12 TO t_relatorio_display-ds_mes_12.

* << Fim da inclusão

  APPEND t_relatorio_display.

* >> Início da exclusão: FORM ATRIBUIR_VALORES

  MOVE: '(-)Pagamento de Obrigações'(070)

* << Fim da exclusão

* >> Início da inclusão: FORM ATRIBUIR_VALORES

  MOVE: '(-)Pagamento de Obrigações'

* << Fim da inclusão

                                     TO t_relatorio_display-linha1,

        p_relatorio-vl_pag_obrig_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_pag_obrig_m2  TO t_relatorio_display-ds_mes_2,

...

...

        p_relatorio-vl_pag_obrig_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_pag_obrig_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_pag_obrig_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_pag_obrig_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_pag_obrig_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_pag_obrig_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_pag_obrig_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_pag_obrig_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_pag_obrig_m12 TO t_relatorio_display-ds_mes_12.

  APPEND t_relatorio_display.

* >> Início da exclusão: FORM ATRIBUIR_VALORES

  MOVE: '(+)Aquisição de Bens'(071)

* << Fim da exclusão

* >> Início da inclusão: FORM ATRIBUIR_VALORES

  MOVE: '(+)Aquisição de Bens'

* << Fim da inclusão

                                      TO t_relatorio_display-linha1,

        p_relatorio-vl_aquis_bens_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_aquis_bens_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_aquis_bens_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_aquis_bens_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_aquis_bens_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_aquis_bens_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_aquis_bens_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_aquis_bens_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_aquis_bens_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_aquis_bens_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_aquis_bens_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_aquis_bens_m12 TO t_relatorio_display-ds_mes_12.

  APPEND t_relatorio_display.

* >> Início da exclusão: FORM ATRIBUIR_VALORES

  MOVE: '(+)Aquisição de Serviços'(072)

* << Fim da exclusão

* >> Início da inclusão: FORM ATRIBUIR_VALORES

  MOVE: '(+)Aquisição de Serviços'(078)

* << Fim da inclusão

                                      TO t_relatorio_display-linha1,

        p_relatorio-vl_aquis_serv_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_aquis_serv_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_aquis_serv_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_aquis_serv_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_aquis_serv_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_aquis_serv_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_aquis_serv_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_aquis_serv_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_aquis_serv_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_aquis_serv_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_aquis_serv_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_aquis_serv_m12 TO t_relatorio_display-ds_mes_12.

  APPEND t_relatorio_display.

* >> Início da exclusão: FORM ATRIBUIR_VALORES

  MOVE: '(-)Transferência para outras IF'(073)

* << Fim da exclusão

* >> Início da inclusão: FORM ATRIBUIR_VALORES

  MOVE: '(+) Remuneração de direitos'

                                      TO t_relatorio_display-linha1,

        p_relatorio-vl_remun_dir_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_remun_dir_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_remun_dir_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_remun_dir_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_remun_dir_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_remun_dir_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_remun_dir_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_remun_dir_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_remun_dir_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_remun_dir_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_remun_dir_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_remun_dir_m12 TO t_relatorio_display-ds_mes_12.

  APPEND t_relatorio_display.

  MOVE: '(-) Transferência para outras IF'

* << Fim da inclusão

                                      TO t_relatorio_display-linha1,

        p_relatorio-vl_transf_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_transf_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_transf_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_transf_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_transf_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_transf_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_transf_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_transf_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_transf_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_transf_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_transf_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_transf_m12 TO t_relatorio_display-ds_mes_12.

* >> Início da inclusão: FORM ATRIBUIR_VALORES

  APPEND t_relatorio_display.

  MOVE: '(-) Internação de disponibilidades'

                                      TO t_relatorio_display-linha1,

        p_relatorio-vl_inter_dis_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_inter_dis_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_inter_dis_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_inter_dis_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_inter_dis_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_inter_dis_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_inter_dis_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_inter_dis_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_inter_dis_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_inter_dis_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_inter_dis_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_inter_dis_m12 TO t_relatorio_display-ds_mes_12.

* << Fim da inclusão

  APPEND t_relatorio_display.

* >> Início da exclusão: FORM ATRIBUIR_VALORES

  MOVE: 'SALDO NO MÊS'(074)

* << Fim da exclusão

* >> Início da inclusão: FORM ATRIBUIR_VALORES

  MOVE: '(-) Outras Aplicações'

* << Fim da inclusão

                                      TO t_relatorio_display-linha1,

* >> Início da inclusão: FORM ATRIBUIR_VALORES

        p_relatorio-vl_outr_apl_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_outr_apl_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_outr_apl_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_outr_apl_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_outr_apl_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_outr_apl_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_outr_apl_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_outr_apl_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_outr_apl_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_outr_apl_m10 TO t_relatorio_display-ds_mes_10,

        p_relatorio-vl_outr_apl_m11 TO t_relatorio_display-ds_mes_11,

        p_relatorio-vl_outr_apl_m12 TO t_relatorio_display-ds_mes_12.

  APPEND t_relatorio_display.

  MOVE: 'SALDO NO MÊS'

                                      TO t_relatorio_display-linha1,

* << Fim da inclusão

        p_relatorio-vl_sl_mes_m1  TO t_relatorio_display-ds_mes_1,

        p_relatorio-vl_sl_mes_m2  TO t_relatorio_display-ds_mes_2,

        p_relatorio-vl_sl_mes_m3  TO t_relatorio_display-ds_mes_3,

        p_relatorio-vl_sl_mes_m4  TO t_relatorio_display-ds_mes_4,

        p_relatorio-vl_sl_mes_m5  TO t_relatorio_display-ds_mes_5,

        p_relatorio-vl_sl_mes_m6  TO t_relatorio_display-ds_mes_6,

        p_relatorio-vl_sl_mes_m7  TO t_relatorio_display-ds_mes_7,

        p_relatorio-vl_sl_mes_m8  TO t_relatorio_display-ds_mes_8,

        p_relatorio-vl_sl_mes_m9  TO t_relatorio_display-ds_mes_9,

        p_relatorio-vl_sl_mes_m10 TO t_relatorio_display-ds_mes_10,

...

...

    ' nome="' p_butxt '" situacaoEspecial="" tipoCpfCnpj="">'

    '<idSistemaOperacional nome="' syst-opsys '" versao="" />'

    '</identificador>'

  '<movimentacoes tipoItens="serpro.derex.movimentacoes.Movimentacao">'

    '<item chave="0">'

    '<identMov banco="' p_name1 '" endereco="" identConta=""'

    ' identOficial="" moeda="' p_codigo '" moedaDesc="' p_ltext '"'

    ' nomeExterior="" pais="' p_indicativo '" paisDesc="' p_landx '"'

    ' tipoDocumento="" tipoDocumentoDesc="" />'

    '<planilha saldoAnterior="' p_saldo_string '">'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

   '<jan aplicFinanc="0,00" aquisBens="' t_arq_xml-vl_aquis_bens_m1 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

   '<jan aplicFinanc="' t_arq_xml-vl_aplic_fi_m1 '"'

    ' aquisBens="' t_arq_xml-vl_aquis_bens_m1 '"'

* << Fim da inclusão

    ' aquisServ="' t_arq_xml-vl_aquis_serv_m1 '"'

   ' codigo="01" disponibilidades11371="' t_arq_xml-disponi_l_11_m1 '"'

    ' disponibilidadesCambio="' t_arq_xml-disponi_c_si_m1 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="0,00" invest="0,00"'

    ' outrasAplic="0,00" outrasOrigem="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="' t_arq_xml-vl_emprest_m1 '"'

    ' invest="' t_arq_xml-vl_invest_m1 '"'

    ' outrasAplic="' t_arq_xml-vl_outr_apl_m1 '"'

    ' rendRecebidosExt="' t_arq_xml-vl_rend_rec_m1 '"'

    ' outrasOrigem="' t_arq_xml-vl_outr_ori_m1 '"'

* << Fim da inclusão

    ' pgtoObrigacoes="' t_arq_xml-vl_pag_obrig_m1 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="0,00" rendRecebidosExt="0,00"'

    ' repatriacaoDispon="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="' t_arq_xml-vl_remun_dir_m1 '"'

    ' repatriacaoDispon="' t_arq_xml-vl_inter_dis_m1 '"'

* << Fim da inclusão

    ' saldoAnterior="' p_saldo_string '"'

    ' saldoMes="' t_arq_xml-vl_sl_mes_m1 '"'

    ' transfOutrasIFAplic="' t_arq_xml-vl_transf_m1 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="0,00" />'

   '<fev aplicFinanc="0,00" aquisBens="' t_arq_xml-vl_aquis_bens_m2 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="' t_arq_xml-vl_tran_if_m1 '" />'

    '<fev aplicFinanc="' t_arq_xml-vl_aplic_fi_m2

    '" aquisBens="' t_arq_xml-vl_aquis_bens_m2 '"'

* << Fim da inclusão

    ' aquisServ="' t_arq_xml-vl_aquis_serv_m2 '"'

   ' codigo="02" disponibilidades11371="' t_arq_xml-disponi_l_11_m2 '"'

    ' disponibilidadesCambio="' t_arq_xml-disponi_c_si_m2 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="0,00" invest="0,00"'

    ' outrasAplic="0,00" outrasOrigem="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="' t_arq_xml-vl_emprest_m2 '"'

    ' invest="' t_arq_xml-vl_invest_m2 '"'

    ' outrasAplic="' t_arq_xml-vl_outr_apl_m2 '"'

    ' rendRecebidosExt="' t_arq_xml-vl_rend_rec_m2 '"'

    ' outrasOrigem="' t_arq_xml-vl_outr_ori_m2 '"'

* << Fim da inclusão

    ' pgtoObrigacoes="' t_arq_xml-vl_pag_obrig_m2 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="0,00" rendRecebidosExt="0,00"'

    ' repatriacaoDispon="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="' t_arq_xml-vl_remun_dir_m2 '"'

    ' repatriacaoDispon="' t_arq_xml-vl_inter_dis_m2 '"'

* << Fim da inclusão

    ' saldoAnterior="' t_arq_xml-vl_sl_anterior_m1 '"'

    ' saldoMes="' t_arq_xml-vl_sl_mes_m2 '"'

    ' transfOutrasIFAplic="' t_arq_xml-vl_transf_m2 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="0,00" />'

   '<mar aplicFinanc="0,00" aquisBens="' t_arq_xml-vl_aquis_bens_m3 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="' t_arq_xml-vl_tran_if_m2 '" />'

   '<mar aplicFinanc="' t_arq_xml-vl_aplic_fi_m3 '" aquisBens="'

    t_arq_xml-vl_aquis_bens_m3 '"'

* << Fim da inclusão

    ' aquisServ="' t_arq_xml-vl_aquis_serv_m3 '"'

   ' codigo="03" disponibilidades11371="' t_arq_xml-disponi_l_11_m3 '"'

    ' disponibilidadesCambio="' t_arq_xml-disponi_c_si_m3 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="0,00" invest="0,00"'

    ' outrasAplic="0,00" outrasOrigem="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="' t_arq_xml-vl_emprest_m3 '"'

    ' invest="' t_arq_xml-vl_invest_m3 '"'

    ' outrasAplic="' t_arq_xml-vl_outr_apl_m3 '"'

    ' rendRecebidosExt="' t_arq_xml-vl_rend_rec_m3 '"'

    ' outrasOrigem="' t_arq_xml-vl_outr_ori_m3 '"'

* << Fim da inclusão

    ' pgtoObrigacoes="' t_arq_xml-vl_pag_obrig_m3 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="0,00" rendRecebidosExt="0,00"'

    ' repatriacaoDispon="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="' t_arq_xml-vl_remun_dir_m3 '"'

    ' repatriacaoDispon="' t_arq_xml-vl_inter_dis_m3 '"'

* << Fim da inclusão

    ' saldoAnterior="' t_arq_xml-vl_sl_anterior_m2 '"'

    ' saldoMes="' t_arq_xml-vl_sl_mes_m3 '"'

    ' transfOutrasIFAplic="' t_arq_xml-vl_transf_m3 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="0,00" />'

   '<abr aplicFinanc="0,00" aquisBens="' t_arq_xml-vl_aquis_bens_m4 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="' t_arq_xml-vl_tran_if_m3 '" />'

   '<abr aplicFinanc="' t_arq_xml-vl_aplic_fi_m4 '" aquisBens="'

    t_arq_xml-vl_aquis_bens_m4 '"'

* << Fim da inclusão

    ' aquisServ="' t_arq_xml-vl_aquis_serv_m4 '"'

   ' codigo="04" disponibilidades11371="' t_arq_xml-disponi_l_11_m4 '"'

    ' disponibilidadesCambio="' t_arq_xml-disponi_c_si_m4 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="0,00" invest="0,00"'

    ' outrasAplic="0,00" outrasOrigem="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="' t_arq_xml-vl_emprest_m4 '"'

    ' invest="' t_arq_xml-vl_invest_m4 '"'

    ' outrasAplic="' t_arq_xml-vl_outr_apl_m4 '"'

    ' rendRecebidosExt="' t_arq_xml-vl_rend_rec_m4 '"'

    ' outrasOrigem="' t_arq_xml-vl_outr_ori_m4 '"'

* << Fim da inclusão

    ' pgtoObrigacoes="' t_arq_xml-vl_pag_obrig_m4 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="0,00" rendRecebidosExt="0,00"'

    ' repatriacaoDispon="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="' t_arq_xml-vl_remun_dir_m4 '"'

    ' repatriacaoDispon="' t_arq_xml-vl_inter_dis_m4 '"'

* << Fim da inclusão

    ' saldoAnterior="' t_arq_xml-vl_sl_anterior_m3 '"'

    ' saldoMes="' t_arq_xml-vl_sl_mes_m4 '"'

    ' transfOutrasIFAplic="' t_arq_xml-vl_transf_m4 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="0,00" />'

   '<mai aplicFinanc="0,00" aquisBens="' t_arq_xml-vl_aquis_bens_m5 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="' t_arq_xml-vl_tran_if_m4 '" />'

   '<mai aplicFinanc="' t_arq_xml-vl_aplic_fi_m5 '" aquisBens="'

    t_arq_xml-vl_aquis_bens_m5 '"'

* << Fim da inclusão

    ' aquisServ="' t_arq_xml-vl_aquis_serv_m5 '"'

   ' codigo="05" disponibilidades11371="' t_arq_xml-disponi_l_11_m5 '"'

    ' disponibilidadesCambio="' t_arq_xml-disponi_c_si_m5 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="0,00" invest="0,00"'

    ' outrasAplic="0,00" outrasOrigem="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="' t_arq_xml-vl_emprest_m5 '"'

    ' invest="' t_arq_xml-vl_invest_m5 '"'

    ' outrasAplic="' t_arq_xml-vl_outr_apl_m5 '"'

    ' rendRecebidosExt="' t_arq_xml-vl_rend_rec_m5 '"'

    ' outrasOrigem="' t_arq_xml-vl_outr_ori_m5 '"'

* << Fim da inclusão

    ' pgtoObrigacoes="' t_arq_xml-vl_pag_obrig_m5 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="0,00" rendRecebidosExt="0,00"'

    ' repatriacaoDispon="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="' t_arq_xml-vl_remun_dir_m5 '"'

    ' repatriacaoDispon="' t_arq_xml-vl_inter_dis_m5 '"'

* << Fim da inclusão

    ' saldoAnterior="' t_arq_xml-vl_sl_anterior_m4 '"'

    ' saldoMes="' t_arq_xml-vl_sl_mes_m5 '"'

    ' transfOutrasIFAplic="' t_arq_xml-vl_transf_m5 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="0,00" />'

   '<jun aplicFinanc="0,00" aquisBens="' t_arq_xml-vl_aquis_bens_m6 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="' t_arq_xml-vl_tran_if_m5 '" />'

   '<jun aplicFinanc="' t_arq_xml-vl_aplic_fi_m6 '" aquisBens="'

    t_arq_xml-vl_aquis_bens_m6 '"'

* << Fim da inclusão

    ' aquisServ="' t_arq_xml-vl_aquis_serv_m6 '"'

   ' codigo="06" disponibilidades11371="' t_arq_xml-disponi_l_11_m6 '"'

    ' disponibilidadesCambio="' t_arq_xml-disponi_c_si_m6 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="0,00" invest="0,00"'

    ' outrasAplic="0,00" outrasOrigem="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="' t_arq_xml-vl_emprest_m6 '"'

    ' invest="' t_arq_xml-vl_invest_m6 '"'

    ' outrasAplic="' t_arq_xml-vl_outr_apl_m6 '"'

    ' rendRecebidosExt="' t_arq_xml-vl_rend_rec_m6 '"'

    ' outrasOrigem="' t_arq_xml-vl_outr_ori_m6 '"'

* << Fim da inclusão

    ' pgtoObrigacoes="' t_arq_xml-vl_pag_obrig_m6 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="0,00" rendRecebidosExt="0,00"'

    ' repatriacaoDispon="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="' t_arq_xml-vl_remun_dir_m6 '"'

    ' repatriacaoDispon="' t_arq_xml-vl_inter_dis_m6 '"'

* << Fim da inclusão

    ' saldoAnterior="' t_arq_xml-vl_sl_anterior_m5 '"'

    ' saldoMes="' t_arq_xml-vl_sl_mes_m6 '"'

    ' transfOutrasIFAplic="' t_arq_xml-vl_transf_m6 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="0,00" />'

   '<jul aplicFinanc="0,00" aquisBens="' t_arq_xml-vl_aquis_bens_m7 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="' t_arq_xml-vl_tran_if_m6 '" />'

   '<jul aplicFinanc="' t_arq_xml-vl_aplic_fi_m7 '" aquisBens="'

    t_arq_xml-vl_aquis_bens_m7 '"'

* << Fim da inclusão

    ' aquisServ="' t_arq_xml-vl_aquis_serv_m7 '"'

   ' codigo="07" disponibilidades11371="' t_arq_xml-disponi_l_11_m7 '"'

    ' disponibilidadesCambio="' t_arq_xml-disponi_c_si_m7 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="0,00" invest="0,00"'

    ' outrasAplic="0,00" outrasOrigem="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="' t_arq_xml-vl_emprest_m7 '"'

    ' invest="' t_arq_xml-vl_invest_m7 '"'

    ' outrasAplic="' t_arq_xml-vl_outr_apl_m7 '"'

    ' rendRecebidosExt="' t_arq_xml-vl_rend_rec_m7 '"'

    ' outrasOrigem="' t_arq_xml-vl_outr_ori_m7 '"'

* << Fim da inclusão

    ' pgtoObrigacoes="' t_arq_xml-vl_pag_obrig_m7 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="0,00" rendRecebidosExt="0,00"'

    ' repatriacaoDispon="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="' t_arq_xml-vl_remun_dir_m7 '"'

    ' repatriacaoDispon="' t_arq_xml-vl_inter_dis_m7 '"'

* << Fim da inclusão

    ' saldoAnterior="' t_arq_xml-vl_sl_anterior_m6 '"'

    ' saldoMes="' t_arq_xml-vl_sl_mes_m7 '"'

    ' transfOutrasIFAplic="' t_arq_xml-vl_transf_m7 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="0,00" />'

   '<ago aplicFinanc="0,00" aquisBens="' t_arq_xml-vl_aquis_bens_m8 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="' t_arq_xml-vl_tran_if_m7 '" />'

   '<ago aplicFinanc="' t_arq_xml-vl_aplic_fi_m8 '" aquisBens="'

    t_arq_xml-vl_aquis_bens_m8 '"'

* << Fim da inclusão

    ' aquisServ="' t_arq_xml-vl_aquis_serv_m8 '"'

   ' codigo="08" disponibilidades11371="' t_arq_xml-disponi_l_11_m8 '"'

    ' disponibilidadesCambio="' t_arq_xml-disponi_c_si_m8 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="0,00" invest="0,00"'

    ' outrasAplic="0,00" outrasOrigem="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="' t_arq_xml-vl_emprest_m8 '"'

    ' invest="' t_arq_xml-vl_invest_m8 '"'

    ' outrasAplic="' t_arq_xml-vl_outr_apl_m8 '"'

    ' rendRecebidosExt="' t_arq_xml-vl_rend_rec_m8 '"'

    ' outrasOrigem="' t_arq_xml-vl_outr_ori_m8 '"'

* << Fim da inclusão

    ' pgtoObrigacoes="' t_arq_xml-vl_pag_obrig_m8 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="0,00" rendRecebidosExt="0,00"'

    ' repatriacaoDispon="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="' t_arq_xml-vl_remun_dir_m8 '"'

    ' repatriacaoDispon="' t_arq_xml-vl_inter_dis_m8 '"'

* << Fim da inclusão

    ' saldoAnterior="' t_arq_xml-vl_sl_anterior_m7 '"'

    ' saldoMes="' t_arq_xml-vl_sl_mes_m8 '"'

    ' transfOutrasIFAplic="' t_arq_xml-vl_transf_m8 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="0,00" />'

   '<set aplicFinanc="0,00" aquisBens="' t_arq_xml-vl_aquis_bens_m9 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="' t_arq_xml-vl_tran_if_m8 '" />'

   '<set aplicFinanc="' t_arq_xml-vl_aplic_fi_m9 '" aquisBens="'

    t_arq_xml-vl_aquis_bens_m9 '"'

* << Fim da inclusão

    ' aquisServ="' t_arq_xml-vl_aquis_serv_m9 '"'

   ' codigo="09" disponibilidades11371="' t_arq_xml-disponi_l_11_m9 '"'

    ' disponibilidadesCambio="' t_arq_xml-disponi_c_si_m9 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="0,00" invest="0,00"'

    ' outrasAplic="0,00" outrasOrigem="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="' t_arq_xml-vl_emprest_m9 '"'

    ' invest="' t_arq_xml-vl_invest_m9 '"'

    ' outrasAplic="' t_arq_xml-vl_outr_apl_m9 '"'

    ' rendRecebidosExt="' t_arq_xml-vl_rend_rec_m9 '"'

    ' outrasOrigem="' t_arq_xml-vl_outr_ori_m9 '"'

* << Fim da inclusão

    ' pgtoObrigacoes="' t_arq_xml-vl_pag_obrig_m9 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="0,00" rendRecebidosExt="0,00"'

    ' repatriacaoDispon="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="' t_arq_xml-vl_remun_dir_m9 '"'

    ' repatriacaoDispon="' t_arq_xml-vl_inter_dis_m9 '"'

* << Fim da inclusão

    ' saldoAnterior="' t_arq_xml-vl_sl_anterior_m8 '"'

    ' saldoMes="' t_arq_xml-vl_sl_mes_m9 '"'

    ' transfOutrasIFAplic="' t_arq_xml-vl_transf_m9 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="0,00" />'

  '<out aplicFinanc="0,00" aquisBens="' t_arq_xml-vl_aquis_bens_m10 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="' t_arq_xml-vl_tran_if_m9 '" />'

   '<out aplicFinanc="' t_arq_xml-vl_aplic_fi_m10 '" aquisBens="'

    t_arq_xml-vl_aquis_bens_m10 '"'

* << Fim da inclusão

    ' aquisServ="' t_arq_xml-vl_aquis_serv_m10 '"'

  ' codigo="10" disponibilidades11371="' t_arq_xml-disponi_l_11_m10 '"'

    ' disponibilidadesCambio="' t_arq_xml-disponi_c_si_m10 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="0,00" invest="0,00"'

    ' outrasAplic="0,00" outrasOrigem="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="' t_arq_xml-vl_emprest_m10 '"'

    ' invest="' t_arq_xml-vl_invest_m10 '"'

    ' outrasAplic="' t_arq_xml-vl_outr_apl_m10 '"'

    ' rendRecebidosExt="' t_arq_xml-vl_rend_rec_m10 '"'

    ' outrasOrigem="' t_arq_xml-vl_outr_ori_m10 '"'

* << Fim da inclusão

    ' pgtoObrigacoes="' t_arq_xml-vl_pag_obrig_m10 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="0,00" rendRecebidosExt="0,00"'

    ' repatriacaoDispon="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="' t_arq_xml-vl_remun_dir_m10 '"'

    ' repatriacaoDispon="' t_arq_xml-vl_inter_dis_m10 '"'

* << Fim da inclusão

    ' saldoAnterior="' t_arq_xml-vl_sl_anterior_m9 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' saldoMes="' t_arq_xml-vl_sl_mes_m6 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' saldoMes="' t_arq_xml-vl_sl_mes_m10 '"'

* << Fim da inclusão

    ' transfOutrasIFAplic="' t_arq_xml-vl_transf_m10 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="0,00" />'

  '<nov aplicFinanc="0,00" aquisBens="' t_arq_xml-vl_aquis_bens_m11 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="' t_arq_xml-vl_tran_if_m10 '" />'

   '<nov aplicFinanc="' t_arq_xml-vl_aplic_fi_m11 '" aquisBens="'

    t_arq_xml-vl_aquis_bens_m11 '"'

* << Fim da inclusão

    ' aquisServ="' t_arq_xml-vl_aquis_serv_m11 '"'

  ' codigo="11" disponibilidades11371="' t_arq_xml-disponi_l_11_m11 '"'

    ' disponibilidadesCambio="' t_arq_xml-disponi_c_si_m11 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="0,00" invest="0,00"'

    ' outrasAplic="0,00" outrasOrigem="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="' t_arq_xml-vl_emprest_m11 '"'

    ' invest="' t_arq_xml-vl_invest_m11 '"'

    ' outrasAplic="' t_arq_xml-vl_outr_apl_m11 '"'

    ' rendRecebidosExt="' t_arq_xml-vl_rend_rec_m11 '"'

    ' outrasOrigem="' t_arq_xml-vl_outr_ori_m11 '"'

* << Fim da inclusão

    ' pgtoObrigacoes="' t_arq_xml-vl_pag_obrig_m11 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="0,00" rendRecebidosExt="0,00"'

    ' repatriacaoDispon="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="' t_arq_xml-vl_remun_dir_m11 '"'

    ' repatriacaoDispon="' t_arq_xml-vl_inter_dis_m11 '"'

* << Fim da inclusão

    ' saldoAnterior="' t_arq_xml-vl_sl_anterior_m10 '"'

    ' saldoMes="' t_arq_xml-vl_sl_mes_m11 '"'

    ' transfOutrasIFAplic="' t_arq_xml-vl_transf_m11 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="0,00" />'

  '<dez aplicFinanc="0,00" aquisBens="' t_arq_xml-vl_aquis_bens_m12 '"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="' t_arq_xml-vl_tran_if_m11 '" />'

   '<dez aplicFinanc="' t_arq_xml-vl_aplic_fi_m12 '" aquisBens="'

    t_arq_xml-vl_aquis_bens_m12 '"'

* << Fim da inclusão

    ' aquisServ="' t_arq_xml-vl_aquis_serv_m12 '"'

  ' codigo="12" disponibilidades11371="' t_arq_xml-disponi_l_11_m12 '"'

    ' disponibilidadesCambio="' t_arq_xml-disponi_c_si_m12 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="0,00" invest="0,00"'

    ' outrasAplic="0,00" outrasOrigem="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' emprestimos="' t_arq_xml-vl_emprest_m12 '"'

    ' invest="' t_arq_xml-vl_invest_m12 '"'

    ' outrasAplic="' t_arq_xml-vl_outr_apl_m12 '"'

    ' rendRecebidosExt="' t_arq_xml-vl_rend_rec_m12 '"'

    ' outrasOrigem="' t_arq_xml-vl_outr_ori_m12 '"'

* << Fim da inclusão

    ' pgtoObrigacoes="' t_arq_xml-vl_pag_obrig_m12 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="0,00" rendRecebidosExt="0,00"'

    ' repatriacaoDispon="0,00"'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' remunDireitos="' t_arq_xml-vl_remun_dir_m12 '"'

    ' repatriacaoDispon="' t_arq_xml-vl_inter_dis_m12 '"'

* << Fim da inclusão

    ' saldoAnterior="' t_arq_xml-vl_sl_anterior_m11 '"'

    ' saldoMes="' t_arq_xml-vl_sl_mes_m12 '"'

    ' transfOutrasIFAplic="' t_arq_xml-vl_transf_m12 '"'

* >> Início da exclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="0,00" />'

* << Fim da exclusão

* >> Início da inclusão: FORM GRAVAR_ARQUIVO_XML

    ' transfOutrasIFOrigem="' t_arq_xml-vl_tran_if_m12 '" />'

* << Fim da inclusão

    '</planilha>'

    '</item>'

    '</movimentacoes>'

    '</classe>'

                          INTO t_xml-xml_doc.               "#EC NOTEXT

  APPEND t_xml.

  CONCATENATE p_arq p_cgc '\' INTO p_arq.

  CALL FUNCTION 'TMP_GUI_CREATE_DIRECTORY'

       EXPORTING

            dirname = p_arq

...

...

  CONDENSE p_t_arq_xml-vl_aquis_bens_m1 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m1

     TO p_t_arq_xml-vl_aquis_serv_m1 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_aquis_serv_m1 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m1

     TO p_t_arq_xml-vl_transf_m1 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_transf_m1 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m1

     TO p_t_arq_xml-vl_sl_mes_m1 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_mes_m1 NO-GAPS.

* >> Início da inclusão: FORM ATRIBUIR_ARQ_XML

  WRITE p_t_relatorio-vl_rend_rec_m1

     TO p_t_arq_xml-vl_rend_rec_m1 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_rend_rec_m1 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_apl_m1

     TO p_t_arq_xml-vl_outr_apl_m1 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_apl_m1 NO-GAPS.

  WRITE p_t_relatorio-vl_inter_dis_m1

     TO p_t_arq_xml-vl_inter_dis_m1 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_inter_dis_m1 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_ori_m1

     TO p_t_arq_xml-vl_outr_ori_m1 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_ori_m1 NO-GAPS.

* << Fim da inclusão

  WRITE p_t_relatorio-vl_sl_anterior_m2

     TO p_t_arq_xml-vl_sl_anterior_m2 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_anterior_m2 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m2

     TO p_t_arq_xml-disponi_l_11_m2 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_l_11_m2 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m2

     TO p_t_arq_xml-disponi_c_si_m2 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_c_si_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m2

...

...

  CONDENSE p_t_arq_xml-vl_aquis_bens_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m2

     TO p_t_arq_xml-vl_aquis_serv_m2 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_aquis_serv_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m2

     TO p_t_arq_xml-vl_transf_m2 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_transf_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m2

     TO p_t_arq_xml-vl_sl_mes_m2 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_mes_m2 NO-GAPS.

* >> Início da inclusão: FORM ATRIBUIR_ARQ_XML

  WRITE p_t_relatorio-vl_rend_rec_m2

     TO p_t_arq_xml-vl_rend_rec_m2 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_rend_rec_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_apl_m2

     TO p_t_arq_xml-vl_outr_apl_m2 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_apl_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_inter_dis_m2

     TO p_t_arq_xml-vl_inter_dis_m2 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_inter_dis_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_ori_m2

     TO p_t_arq_xml-vl_outr_ori_m2 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_ori_m2 NO-GAPS.

* << Fim da inclusão

  WRITE p_t_relatorio-vl_sl_anterior_m3

     TO p_t_arq_xml-vl_sl_anterior_m3 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_anterior_m3 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m3

     TO p_t_arq_xml-disponi_l_11_m3 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_l_11_m3 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m3

     TO p_t_arq_xml-disponi_c_si_m3 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_c_si_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m3

...

...

  CONDENSE p_t_arq_xml-vl_aquis_bens_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m3

     TO p_t_arq_xml-vl_aquis_serv_m3 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_aquis_serv_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m3

     TO p_t_arq_xml-vl_transf_m3 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_transf_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m3

     TO p_t_arq_xml-vl_sl_mes_m3 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_mes_m3 NO-GAPS.

* >> Início da inclusão: FORM ATRIBUIR_ARQ_XML

  WRITE p_t_relatorio-vl_rend_rec_m3

     TO p_t_arq_xml-vl_rend_rec_m3 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_rend_rec_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_apl_m3

     TO p_t_arq_xml-vl_outr_apl_m3 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_apl_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_inter_dis_m3

     TO p_t_arq_xml-vl_inter_dis_m3 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_inter_dis_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_ori_m3

     TO p_t_arq_xml-vl_outr_ori_m3 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_ori_m3 NO-GAPS.

* << Fim da inclusão

  WRITE p_t_relatorio-vl_sl_anterior_m4

     TO p_t_arq_xml-vl_sl_anterior_m4 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_anterior_m4 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m4

     TO p_t_arq_xml-disponi_l_11_m4 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_l_11_m4 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m4

     TO p_t_arq_xml-disponi_c_si_m4 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_c_si_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m4

...

...

  CONDENSE p_t_arq_xml-vl_aquis_bens_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m4

     TO p_t_arq_xml-vl_aquis_serv_m4 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_aquis_serv_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m4

     TO p_t_arq_xml-vl_transf_m4 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_transf_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m4

     TO p_t_arq_xml-vl_sl_mes_m4 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_mes_m4 NO-GAPS.

* >> Início da inclusão: FORM ATRIBUIR_ARQ_XML

  WRITE p_t_relatorio-vl_rend_rec_m4

     TO p_t_arq_xml-vl_rend_rec_m4 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_rend_rec_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_apl_m4

     TO p_t_arq_xml-vl_outr_apl_m4 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_apl_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_inter_dis_m4

     TO p_t_arq_xml-vl_inter_dis_m4 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_inter_dis_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_ori_m4

     TO p_t_arq_xml-vl_outr_ori_m4 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_ori_m4 NO-GAPS.

* << Fim da inclusão

  WRITE p_t_relatorio-vl_sl_anterior_m5

     TO p_t_arq_xml-vl_sl_anterior_m5 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_anterior_m5 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m5

     TO p_t_arq_xml-disponi_l_11_m5 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_l_11_m5 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m5

     TO p_t_arq_xml-disponi_c_si_m5 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_c_si_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m5

...

...

  CONDENSE p_t_arq_xml-vl_aquis_bens_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m5

     TO p_t_arq_xml-vl_aquis_serv_m5 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_aquis_serv_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m5

     TO p_t_arq_xml-vl_transf_m5 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_transf_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m5

     TO p_t_arq_xml-vl_sl_mes_m5 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_mes_m5 NO-GAPS.

* >> Início da inclusão: FORM ATRIBUIR_ARQ_XML

  WRITE p_t_relatorio-vl_rend_rec_m5

     TO p_t_arq_xml-vl_rend_rec_m5 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_rend_rec_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_apl_m5

     TO p_t_arq_xml-vl_outr_apl_m5 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_apl_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_inter_dis_m5

     TO p_t_arq_xml-vl_inter_dis_m5 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_inter_dis_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_ori_m5

     TO p_t_arq_xml-vl_outr_ori_m5 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_ori_m5 NO-GAPS.

* << Fim da inclusão

  WRITE p_t_relatorio-vl_sl_anterior_m6

     TO p_t_arq_xml-vl_sl_anterior_m6 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_anterior_m6 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m6

     TO p_t_arq_xml-disponi_l_11_m6 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_l_11_m6 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m6

     TO p_t_arq_xml-disponi_c_si_m6 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_c_si_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m6

...

...

  CONDENSE p_t_arq_xml-vl_aquis_bens_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m6

     TO p_t_arq_xml-vl_aquis_serv_m6 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_aquis_serv_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m6

     TO p_t_arq_xml-vl_transf_m6 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_transf_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m6

     TO p_t_arq_xml-vl_sl_mes_m6 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_mes_m6 NO-GAPS.

* >> Início da inclusão: FORM ATRIBUIR_ARQ_XML

  WRITE p_t_relatorio-vl_rend_rec_m6

     TO p_t_arq_xml-vl_rend_rec_m6 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_rend_rec_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_apl_m6

     TO p_t_arq_xml-vl_outr_apl_m6 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_apl_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_inter_dis_m6

     TO p_t_arq_xml-vl_inter_dis_m6 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_inter_dis_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_ori_m6

     TO p_t_arq_xml-vl_outr_ori_m6 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_ori_m6 NO-GAPS.

* << Fim da inclusão

  WRITE p_t_relatorio-vl_sl_anterior_m7

     TO p_t_arq_xml-vl_sl_anterior_m7 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_anterior_m7 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m7

     TO p_t_arq_xml-disponi_l_11_m7 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_l_11_m7 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m7

     TO p_t_arq_xml-disponi_c_si_m7 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_c_si_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m7

...

...

  CONDENSE p_t_arq_xml-vl_aquis_bens_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m7

     TO p_t_arq_xml-vl_aquis_serv_m7 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_aquis_serv_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m7

     TO p_t_arq_xml-vl_transf_m7 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_transf_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m7

     TO p_t_arq_xml-vl_sl_mes_m7 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_mes_m7 NO-GAPS.

* >> Início da inclusão: FORM ATRIBUIR_ARQ_XML

  WRITE p_t_relatorio-vl_rend_rec_m7

     TO p_t_arq_xml-vl_rend_rec_m7 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_rend_rec_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_apl_m7

     TO p_t_arq_xml-vl_outr_apl_m7 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_apl_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_inter_dis_m7

     TO p_t_arq_xml-vl_inter_dis_m7 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_inter_dis_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_ori_m7

     TO p_t_arq_xml-vl_outr_ori_m7 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_ori_m7 NO-GAPS.

* << Fim da inclusão

  WRITE p_t_relatorio-vl_sl_anterior_m8

     TO p_t_arq_xml-vl_sl_anterior_m8 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_anterior_m8 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m8

     TO p_t_arq_xml-disponi_l_11_m8 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_l_11_m8 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m8

     TO p_t_arq_xml-disponi_c_si_m8 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_c_si_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m8

...

...

  CONDENSE p_t_arq_xml-vl_aquis_bens_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m8

     TO p_t_arq_xml-vl_aquis_serv_m8 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_aquis_serv_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m8

     TO p_t_arq_xml-vl_transf_m8 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_transf_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m8

     TO p_t_arq_xml-vl_sl_mes_m8 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_mes_m8 NO-GAPS.

* >> Início da inclusão: FORM ATRIBUIR_ARQ_XML

  WRITE p_t_relatorio-vl_rend_rec_m8

     TO p_t_arq_xml-vl_rend_rec_m8 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_rend_rec_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_apl_m8

     TO p_t_arq_xml-vl_outr_apl_m8 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_apl_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_inter_dis_m8

     TO p_t_arq_xml-vl_inter_dis_m8 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_inter_dis_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_ori_m8

     TO p_t_arq_xml-vl_outr_ori_m8 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_ori_m8 NO-GAPS.

* << Fim da inclusão

  WRITE p_t_relatorio-vl_sl_anterior_m9

     TO p_t_arq_xml-vl_sl_anterior_m9 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_anterior_m9 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m9

     TO p_t_arq_xml-disponi_l_11_m9 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_l_11_m9 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m9

     TO p_t_arq_xml-disponi_c_si_m9 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_c_si_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m9

...

...

  CONDENSE p_t_arq_xml-vl_aquis_bens_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m9

     TO p_t_arq_xml-vl_aquis_serv_m9 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_aquis_serv_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m9

     TO p_t_arq_xml-vl_transf_m9 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_transf_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m9

     TO p_t_arq_xml-vl_sl_mes_m9 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_mes_m9 NO-GAPS.

* >> Início da inclusão: FORM ATRIBUIR_ARQ_XML

  WRITE p_t_relatorio-vl_rend_rec_m9

     TO p_t_arq_xml-vl_rend_rec_m9 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_rend_rec_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_apl_m9

     TO p_t_arq_xml-vl_outr_apl_m9 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_apl_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_inter_dis_m9

     TO p_t_arq_xml-vl_inter_dis_m9 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_inter_dis_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_ori_m9

     TO p_t_arq_xml-vl_outr_ori_m9 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_ori_m9 NO-GAPS.

* << Fim da inclusão

  WRITE p_t_relatorio-vl_sl_anterior_m10

     TO p_t_arq_xml-vl_sl_anterior_m10 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_anterior_m10 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m10

     TO p_t_arq_xml-disponi_l_11_m10 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_l_11_m10 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m10

     TO p_t_arq_xml-disponi_c_si_m10 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_c_si_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m10

...

...

  CONDENSE p_t_arq_xml-vl_aquis_bens_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m10

     TO p_t_arq_xml-vl_aquis_serv_m10 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_aquis_serv_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m10

     TO p_t_arq_xml-vl_transf_m10 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_transf_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m10

     TO p_t_arq_xml-vl_sl_mes_m10 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_mes_m10 NO-GAPS.

* >> Início da inclusão: FORM ATRIBUIR_ARQ_XML

  WRITE p_t_relatorio-vl_rend_rec_m10

     TO p_t_arq_xml-vl_rend_rec_m10 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_rend_rec_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_apl_m10

     TO p_t_arq_xml-vl_outr_apl_m10 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_apl_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_inter_dis_m10

     TO p_t_arq_xml-vl_inter_dis_m10 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_inter_dis_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_ori_m10

     TO p_t_arq_xml-vl_outr_ori_m10 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_ori_m10 NO-GAPS.

* << Fim da inclusão

  WRITE p_t_relatorio-vl_sl_anterior_m11

     TO p_t_arq_xml-vl_sl_anterior_m11 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_anterior_m11 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m11

     TO p_t_arq_xml-disponi_l_11_m11 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_l_11_m11 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m11

     TO p_t_arq_xml-disponi_c_si_m11 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_c_si_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m11

...

...

  CONDENSE p_t_arq_xml-vl_aquis_bens_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m11

     TO p_t_arq_xml-vl_aquis_serv_m11 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_aquis_serv_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m11

     TO p_t_arq_xml-vl_transf_m11 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_transf_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m11

     TO p_t_arq_xml-vl_sl_mes_m11 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_mes_m11 NO-GAPS.

* >> Início da inclusão: FORM ATRIBUIR_ARQ_XML

  WRITE p_t_relatorio-vl_rend_rec_m11

     TO p_t_arq_xml-vl_rend_rec_m11 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_rend_rec_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_apl_m11

     TO p_t_arq_xml-vl_outr_apl_m11 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_apl_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_inter_dis_m11

     TO p_t_arq_xml-vl_inter_dis_m11 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_inter_dis_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_ori_m11

     TO p_t_arq_xml-vl_outr_ori_m11 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_ori_m11 NO-GAPS.

* << Fim da inclusão

  WRITE p_t_relatorio-vl_sl_anterior_m12

     TO p_t_arq_xml-vl_sl_anterior_m12 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_anterior_m12 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m12

     TO p_t_arq_xml-disponi_l_11_m12 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_l_11_m12 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m12

     TO p_t_arq_xml-disponi_c_si_m12 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-disponi_c_si_m12 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m12

...

...

  CONDENSE p_t_arq_xml-vl_aquis_bens_m12 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m12

     TO p_t_arq_xml-vl_aquis_serv_m12 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_aquis_serv_m12 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m12

     TO p_t_arq_xml-vl_transf_m12 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_transf_m12 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m12

     TO p_t_arq_xml-vl_sl_mes_m12 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_sl_mes_m12 NO-GAPS.

* >> Início da inclusão: FORM ATRIBUIR_ARQ_XML

  WRITE p_t_relatorio-vl_rend_rec_m12

     TO p_t_arq_xml-vl_rend_rec_m12 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_rend_rec_m12 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_apl_m12

     TO p_t_arq_xml-vl_outr_apl_m12 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_apl_m12 NO-GAPS.

  WRITE p_t_relatorio-vl_inter_dis_m12

     TO p_t_arq_xml-vl_inter_dis_m12 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_inter_dis_m12 NO-GAPS.

  WRITE p_t_relatorio-vl_outr_ori_m12

     TO p_t_arq_xml-vl_outr_ori_m12 CURRENCY s_moeda.

  CONDENSE p_t_arq_xml-vl_outr_ori_m12 NO-GAPS.

* << Fim da inclusão

ENDFORM.

FORM verificar_parametros_digitados.

  IF s_xml = 'X'.

    IF p_arq IS INITIAL.

      SET CURSOR FIELD 'P_ARQ'.

      MESSAGE i015 WITH 'Campo diretório deve ser preenchido !'.

                                                            "#EC NOTEXT

      STOP.

    ELSE.

      PERFORM corrigir_diretorio USING p_arq.

...

...

FORM buscar_codigo_moeda

          USING

               p_moeda

       CHANGING

               p_codigo.

  SELECT SINGLE /pws/codmo

    INTO p_codigo

    FROM tcurc

   WHERE waers = p_moeda.

ENDFORM.

* >> Início da inclusão:

FORM f_monta_select_t226

      USING  p_tipodt       TYPE /pws/zycbt226-destino

             p_destino      TYPE /pws/zycbt226-destino

             p_data_inicial TYPE /pws/zycbt226-dtlancto

             p_data_final   TYPE /pws/zycbt226-dtlancto.

  IF p_tipodt = 01.

    SELECT nrseq

          bukrs

          waers

          conta_contabil

          destino

          sld_exterior

          dtlancto

          dtcredext

          bco_me

      FROM /pws/zycbt226

      APPENDING TABLE t_zycbt226

     WHERE  bukrs   = s_emp

       AND  waers   = s_moeda

       AND ( dtlancto  GE p_data_inicial  AND

             dtlancto  LE p_data_final ).

    IF NOT t_zycbt226[] IS INITIAL.

      SELECT  nrseq

           destino

           dtdisp

           vldisp

           waers

        FROM /pws/zycbt238

        APPENDING TABLE t_zycbt238

        FOR ALL ENTRIES IN t_zycbt226

       WHERE nrseq   = t_zycbt226-nrseq

         AND destino = p_destino.

    ENDIF.

  ELSEIF  p_tipodt = 02.

    SELECT nrseq

          bukrs

          waers

          conta_contabil

          destino

          sld_exterior

          dtlancto

          dtcredext

          bco_me

      FROM /pws/zycbt226

      APPENDING TABLE t_zycbt226

     WHERE  bukrs   = s_emp

       AND  waers   = s_moeda

       AND ( dtcredext  GE p_data_inicial  AND

             dtcredext  LE p_data_final ).

    IF NOT t_zycbt226[] IS INITIAL.

      SELECT  nrseq

           destino

           dtdisp

           vldisp

           waers

        FROM /pws/zycbt238

        APPENDING TABLE t_zycbt238

        FOR ALL ENTRIES IN t_zycbt226

       WHERE nrseq = t_zycbt226-nrseq

         AND destino = p_destino.

    ENDIF.

  ELSEIF  p_tipodt = 03.

    SELECT  nrseq

         destino

         dtdisp

         vldisp

         waers

      FROM /pws/zycbt238

      APPENDING TABLE t_zycbt238

     WHERE destino   = p_destino

       AND ( dtdisp  GE p_data_inicial  AND

             dtdisp  LE p_data_final ).

    IF NOT t_zycbt238[] IS INITIAL.

      SELECT nrseq

            bukrs

            waers

            conta_contabil

            destino

            sld_exterior

            dtlancto

            dtcredext

            bco_me

        FROM /pws/zycbt226

        APPENDING TABLE t_zycbt226

        FOR ALL ENTRIES IN t_zycbt238

       WHERE nrseq    = t_zycbt238-nrseq

         AND  bukrs   = s_emp

         AND  waers   = s_moeda.

    ENDIF.

  ENDIF.

ENDFORM.

FORM f_monta_select_t226ori USING    p_tipodt

                                     p_data_inicial

                                     p_data_final.

  IF p_tipodt = 01.

    SELECT nrseq

          bukrs

          waers

          conta_contabil

          destino

          sld_exterior

          dtlancto

          dtcredext

          bco_me

      FROM /pws/zycbt226

      APPENDING TABLE t_zycbt226

     WHERE  bukrs   = s_emp

       AND  waers   = s_moeda

       AND ( dtlancto  GE p_data_inicial  AND

             dtlancto  LE p_data_final ).

    IF NOT t_zycbt226[] IS INITIAL.

      SELECT  nrseq

           destino

           dtdisp

           vldisp

           waers

        FROM /pws/zycbt238

        APPENDING TABLE t_zycbt238

        FOR ALL ENTRIES IN t_zycbt226

       WHERE nrseq = t_zycbt226-nrseq.

    ENDIF.

  ELSEIF  p_tipodt = 02.

    SELECT nrseq

          bukrs

          waers

          conta_contabil

          destino

          sld_exterior

          dtlancto

          dtcredext

          bco_me

      FROM /pws/zycbt226

      APPENDING TABLE t_zycbt226

     WHERE  bukrs   = s_emp

       AND  waers   = s_moeda

       AND ( dtcredext  GE p_data_inicial  AND

             dtcredext  LE p_data_final ).

    IF NOT t_zycbt226[] IS INITIAL.

      SELECT  nrseq

           destino

           dtdisp

           vldisp

           waers

        FROM /pws/zycbt238

        APPENDING TABLE t_zycbt238

        FOR ALL ENTRIES IN t_zycbt226

       WHERE nrseq = t_zycbt226-nrseq.

    ENDIF.

  ENDIF.

ENDFORM.

FORM f_collect_bseg.

  LOOP AT t_bkpf_bseg.

    t_bseg_mes-zfbdtmes = t_bkpf_bseg-zfbdt+4(2).

    t_bseg_mes-wrbtr    = t_bkpf_bseg-wrbtr.

    COLLECT t_bseg_mes.

  ENDLOOP.

ENDFORM.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/ZYCBR146

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 078

Texto: (24 caracteres)

"(+)Aquisição de Serviços"

Comprimento máximo: 24

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TABD /PWS/ZYGLT009

Nome de campo   Chv Elem.dados     Tab.verif. N CtDt Comp. Grupo

* >> Início da inclusão:

DISP_L1137          /PWS/ZYGLL1371              CHAR     2

DISP_SIMULTANEO     /PWS/ZYGLL1372              CHAR     2

DISP_ORIGEM         /PWS/ZYGLL1373              CHAR     2

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TABL /PWS/ZYCBT165

* >> Início da inclusão:

* Executar o gerador de atualização de tabela.

Gupo de Funções:  /PWS/ZYCBGF1

Nível Único

Tela de síntese.: 100

CRIAR TABELA TRANSPARENTE: /PWS/ZYCBT165

DESCRIÇÃO BREVE: CB - Valores criados fora do PW.CE - DEREX

CARACTERÍSTICAS

CATEGORIA DA TABELA: Tabela transparente

CLASSE DE ENTREGA: A

(X) - AUTUALIZAÇÃO DE TABELAS PERMITIDA

CAMPOS NOVOS

CAMPOS:         TP. CAMPO    CH: INI: TAB.VALOR.:    TAB.REF.:     CPO.RE

MANDT         MANDT           X   X    T000

ORIGEM        /PWS/ZYGLL1374  X   X

BUKRS         BUKRS           X   X    T001

CONTA_CONTAB  SAKNR           X   X    SKA1

BLART         BLART           X   X    T003

BSCHL         BSCHL           X   X    TBSL

UMSKZ         UMSKZ                    T074U

OPÇÕES TÉCNICAS

TIPO DE DADOS: APPL0

CATEGOR. TAMANHO: 0

(X) - AR. BUFFER NÃO PERMITIDO

(_) - AR. BUFFER PERMITIDO, MAS DESATIVADO

(_) - AR. BUFFER ATIVADO

(_) - RGSTS. IND ARMAZENADOS

(_) - ÁREA GEN ARMAZENADA EM BUFFER   Nº DE CPOS CHAVE: 0

(_) - TOTALMENTE ARMAZENADO

(_) - REGISTRAR MODIFICS. DDS. EM LOG.

* << Fim da inclusão

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

04472  - 00001 - CÂMBIO EXPORTAÇÃO - RELATÓRIO DEREX

04893  - 00002 - DEREX - TRATAMENTO DE EXCESSÃO

05469  - 00003 - DESENVOLVIMENTO ADICIONAL - SAÍDA DE PAGAMENTO UTILIZANDO CONTA CORRENTE

05470  - 00004 - RELATÓRIO VALORES RECEBIDOS EM C/C NO EXTERIOR

05475  - 00005 - RELATÓRIO DE PAGAMENTOS COM RECURSOS NO EXTERIOR

05478  - 00006 - DA - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO

05479  - 00007 - CAPTAÇÂO - ORDEM DE PAGAMENTO

05482  - 00008 - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO