Sintoma

O programa esta dando dump na hora de gerar o relatorio.

Solução

Foi adicionado o tratamento para a exception da função no programa.

Informações Complementares

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

Nota Número 04893 Data: 03/10/2007 Hora: 14:52:23

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

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

Nota Número              : 04893

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00015

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DEREX - TRATAMENTO DE EXCESSÃO

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

Palavras Chave:

DEREX - TRATAMENTO DE EXCESSÃO

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

Objetos da nota:

REPS /PWS/ZYCBR146

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

Modificações efetuadas em REPS /PWS/ZYCBR146

...

       USING

           p_emp    TYPE /pws/zycbt226-bukrs

           p_filial TYPE /pws/zycbt226-j_1bbranch

    CHANGING

           p_cgc TYPE j_1bwfield-cgc_number.

  CALL FUNCTION 'J_1BREAD_BRANCH_DATA'

       EXPORTING

            branch     = p_filial

            bukrs      = p_emp

       IMPORTING

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

            cgc_number = p_cgc.

* << Fim da exclusão

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

            cgc_number = p_cgc

       EXCEPTIONS

         BRANCH_NOT_FOUND        = 1

         ADDRESS_NOT_FOUND       = 2

         COMPANY_NOT_FOUND       = 3

         OTHERS                  = 4.

* << Fim da inclusão

ENDFORM.

FORM gravar_arquivo_xml

      USING

          p_ano          TYPE ioworkflds-yearn

          p_saldo        TYPE  /pws/zycbt226-vlr_exterior

          p_cgc          TYPE j_1bwfield-cgc_number

   CHANGING

          p_arq          LIKE rlgrap-filename

          p_name1        TYPE lfa1-name1

          p_landx        TYPE t005t-landx

...

...

        END OF t_xml.

  DATA: p_file_name TYPE string.

  PERFORM atribuir_arq_xml

     CHANGING

       p_relatorio

       t_arq_xml.

  DATA: p_saldo_string(17)  TYPE c,

        p_cgc_layout(18)    TYPE c,

        p_data_final(10)    TYPE c,

        p_data_inicial(10)  TYPE c.

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

  WRITE p_saldo TO p_saldo_string CURRENCY s_moeda.

* << Fim da inclusão

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

  WRITE p_saldo TO p_saldo_string.

* << Fim da exclusão

  CONDENSE p_saldo_string NO-GAPS.

  WRITE p_cgc TO p_cgc_layout

           USING EDIT MASK '__.___.___/____-__'.

  CONCATENATE s_data_final+6(02) '/'

              s_data_final+4(02) '/'

              s_data_final(04)   INTO p_data_final.

  CONCATENATE s_data_inicial+6(02) '/'

              s_data_inicial+4(02) '/'

              s_data_inicial(04)   INTO p_data_inicial.

  PERFORM tirar_acento

...

...

  TRANSLATE p_field

  USING 'ÃAãaÕOõoÂAâaÊEêeÔOôoÁAáaÓOóoÍIíiÚUúuÇCçcÉEée'.

  TRANSLATE p_field

  USING '/ \ " , - . % ( ) + : = ª # * @ º '.

ENDFORM.

FORM atribuir_arq_xml

    CHANGING

           p_t_relatorio   TYPE  s_relatorio

           p_t_arq_xml     TYPE  s_arq_xml.

  WRITE p_t_relatorio-vl_sl_anterior_m1

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

     TO p_t_arq_xml-vl_sl_anterior_m1.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_anterior_m1 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_anterior_m1 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m1

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

     TO p_t_arq_xml-disponi_l_11_m1.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_l_11_m1 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_l_11_m1 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m1

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

     TO p_t_arq_xml-disponi_c_si_m1.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_c_si_m1 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_c_si_m1 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m1

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

     TO p_t_arq_xml-vl_pag_obrig_m1.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_pag_obrig_m1 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_pag_obrig_m1 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_bens_m1

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

     TO p_t_arq_xml-vl_aquis_bens_m1.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_bens_m1 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_bens_m1 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m1

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

     TO p_t_arq_xml-vl_aquis_serv_m1.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_serv_m1 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_serv_m1 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m1

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

     TO p_t_arq_xml-vl_transf_m1.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_transf_m1 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_transf_m1 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m1

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

     TO p_t_arq_xml-vl_sl_mes_m1.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_mes_m1 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_mes_m1 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_anterior_m2

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

     TO p_t_arq_xml-vl_sl_anterior_m2.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_anterior_m2 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_anterior_m2 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m2

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

     TO p_t_arq_xml-disponi_l_11_m2.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_l_11_m2 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_l_11_m2 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m2

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

     TO p_t_arq_xml-disponi_c_si_m2.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_c_si_m2 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_c_si_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m2

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

     TO p_t_arq_xml-vl_pag_obrig_m2.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_pag_obrig_m2 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_pag_obrig_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_bens_m2

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

     TO p_t_arq_xml-vl_aquis_bens_m2.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_bens_m2 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_bens_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m2

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

     TO p_t_arq_xml-vl_aquis_serv_m2.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_serv_m2 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_serv_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m2

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

     TO p_t_arq_xml-vl_transf_m2.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_transf_m2 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_transf_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m2

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

     TO p_t_arq_xml-vl_sl_mes_m2.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_mes_m2 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_mes_m2 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_anterior_m3

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

     TO p_t_arq_xml-vl_sl_anterior_m3.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_anterior_m3 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_anterior_m3 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m3

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

     TO p_t_arq_xml-disponi_l_11_m3.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_l_11_m3 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_l_11_m3 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m3

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

     TO p_t_arq_xml-disponi_c_si_m3.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_c_si_m3 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_c_si_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m3

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

     TO p_t_arq_xml-vl_pag_obrig_m3.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_pag_obrig_m3 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_pag_obrig_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_bens_m3

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

     TO p_t_arq_xml-vl_aquis_bens_m3.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_bens_m3 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_bens_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m3

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

     TO p_t_arq_xml-vl_aquis_serv_m3.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_serv_m3 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_serv_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m3

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

     TO p_t_arq_xml-vl_transf_m3.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_transf_m3 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_transf_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m3

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

     TO p_t_arq_xml-vl_sl_mes_m3.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_mes_m3 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_mes_m3 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_anterior_m4

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

     TO p_t_arq_xml-vl_sl_anterior_m4.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_anterior_m4 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_anterior_m4 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m4

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

     TO p_t_arq_xml-disponi_l_11_m4.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_l_11_m4 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_l_11_m4 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m4

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

     TO p_t_arq_xml-disponi_c_si_m4.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_c_si_m4 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_c_si_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m4

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

     TO p_t_arq_xml-vl_pag_obrig_m4.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_pag_obrig_m4 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_pag_obrig_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_bens_m4

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

     TO p_t_arq_xml-vl_aquis_bens_m4.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_bens_m4 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_bens_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m4

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

     TO p_t_arq_xml-vl_aquis_serv_m4.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_serv_m4 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_serv_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m4

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

     TO p_t_arq_xml-vl_transf_m4.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_transf_m4 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_transf_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m4

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

     TO p_t_arq_xml-vl_sl_mes_m4.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_mes_m4 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_mes_m4 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_anterior_m5

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

     TO p_t_arq_xml-vl_sl_anterior_m5.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_anterior_m5 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_anterior_m5 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m5

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

     TO p_t_arq_xml-disponi_l_11_m5.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_l_11_m5 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_l_11_m5 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m5

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

     TO p_t_arq_xml-disponi_c_si_m5.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_c_si_m5 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_c_si_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m5

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

     TO p_t_arq_xml-vl_pag_obrig_m5.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_pag_obrig_m5 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_pag_obrig_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_bens_m5

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

     TO p_t_arq_xml-vl_aquis_bens_m5.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_bens_m5 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_bens_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m5

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

     TO p_t_arq_xml-vl_aquis_serv_m5.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_serv_m5 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_serv_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m5

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

     TO p_t_arq_xml-vl_transf_m5.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_transf_m5 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_transf_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m5

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

     TO p_t_arq_xml-vl_sl_mes_m5.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_mes_m5 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_mes_m5 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_anterior_m6

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

     TO p_t_arq_xml-vl_sl_anterior_m6.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_anterior_m6 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_anterior_m6 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m6

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

     TO p_t_arq_xml-disponi_l_11_m6.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_l_11_m6 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_l_11_m6 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m6

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

     TO p_t_arq_xml-disponi_c_si_m6.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_c_si_m6 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_c_si_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m6

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

     TO p_t_arq_xml-vl_pag_obrig_m6.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_pag_obrig_m6 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_pag_obrig_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_bens_m6

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

     TO p_t_arq_xml-vl_aquis_bens_m6.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_bens_m6 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_bens_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m6

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

     TO p_t_arq_xml-vl_aquis_serv_m6.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_serv_m6 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_serv_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m6

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

     TO p_t_arq_xml-vl_transf_m6.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_transf_m6 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_transf_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m6

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

     TO p_t_arq_xml-vl_sl_mes_m6.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_mes_m6 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_mes_m6 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_anterior_m7

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

     TO p_t_arq_xml-vl_sl_anterior_m7.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_anterior_m7 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_anterior_m7 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m7

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

     TO p_t_arq_xml-disponi_l_11_m7.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_l_11_m7 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_l_11_m7 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m7

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

     TO p_t_arq_xml-disponi_c_si_m7.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_c_si_m7 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_c_si_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m7

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

     TO p_t_arq_xml-vl_pag_obrig_m7.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_pag_obrig_m7 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_pag_obrig_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_bens_m7

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

     TO p_t_arq_xml-vl_aquis_bens_m7.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_bens_m7 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_bens_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m7

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

     TO p_t_arq_xml-vl_aquis_serv_m7.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_serv_m7 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_serv_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m7

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

     TO p_t_arq_xml-vl_transf_m7.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_transf_m7 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_transf_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m7

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

     TO p_t_arq_xml-vl_sl_mes_m7.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_mes_m7 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_mes_m7 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_anterior_m8

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

     TO p_t_arq_xml-vl_sl_anterior_m8.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_anterior_m8 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_anterior_m8 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m8

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

     TO p_t_arq_xml-disponi_l_11_m8.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_l_11_m8 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_l_11_m8 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m8

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

     TO p_t_arq_xml-disponi_c_si_m8.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_c_si_m8 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_c_si_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m8

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

     TO p_t_arq_xml-vl_pag_obrig_m8.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_pag_obrig_m8 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_pag_obrig_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_bens_m8

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

     TO p_t_arq_xml-vl_aquis_bens_m8.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_bens_m8 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_bens_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m8

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

     TO p_t_arq_xml-vl_aquis_serv_m8.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_serv_m8 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_serv_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m8

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

     TO p_t_arq_xml-vl_transf_m8.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_transf_m8 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_transf_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m8

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

     TO p_t_arq_xml-vl_sl_mes_m8.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_mes_m8 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_mes_m8 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_anterior_m9

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

     TO p_t_arq_xml-vl_sl_anterior_m9.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_anterior_m9 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_anterior_m9 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m9

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

     TO p_t_arq_xml-disponi_l_11_m9.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_l_11_m9 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_l_11_m9 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m9

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

     TO p_t_arq_xml-disponi_c_si_m9.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_c_si_m9 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_c_si_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m9

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

     TO p_t_arq_xml-vl_pag_obrig_m9.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_pag_obrig_m9 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_pag_obrig_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_bens_m9

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

     TO p_t_arq_xml-vl_aquis_bens_m9.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_bens_m9 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_bens_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m9

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

     TO p_t_arq_xml-vl_aquis_serv_m9.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_serv_m9 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_serv_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m9

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

     TO p_t_arq_xml-vl_transf_m9.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_transf_m9 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_transf_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m9

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

     TO p_t_arq_xml-vl_sl_mes_m9.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_mes_m9 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_mes_m9 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_anterior_m10

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

     TO p_t_arq_xml-vl_sl_anterior_m10.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_anterior_m10 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_anterior_m10 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m10

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

     TO p_t_arq_xml-disponi_l_11_m10.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_l_11_m10 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_l_11_m10 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m10

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

     TO p_t_arq_xml-disponi_c_si_m10.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_c_si_m10 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_c_si_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m10

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

     TO p_t_arq_xml-vl_pag_obrig_m10.

* << Fim da exclusão

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

      TO p_t_arq_xml-vl_pag_obrig_m10 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_pag_obrig_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_bens_m10

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

     TO p_t_arq_xml-vl_aquis_bens_m10.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_bens_m10 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_bens_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m10

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

     TO p_t_arq_xml-vl_aquis_serv_m10.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_serv_m10 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_serv_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m10

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

     TO p_t_arq_xml-vl_transf_m10.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_transf_m10 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_transf_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m10

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

     TO p_t_arq_xml-vl_sl_mes_m10.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_mes_m10 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_mes_m10 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_anterior_m11

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

     TO p_t_arq_xml-vl_sl_anterior_m11.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_anterior_m11 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_anterior_m11 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m11

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

     TO p_t_arq_xml-disponi_l_11_m11.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_l_11_m11 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_l_11_m11 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m11

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

     TO p_t_arq_xml-disponi_c_si_m11.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_c_si_m11 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_c_si_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m11

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

     TO p_t_arq_xml-vl_pag_obrig_m11.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_pag_obrig_m11 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_pag_obrig_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_bens_m11

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

     TO p_t_arq_xml-vl_aquis_bens_m11.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_bens_m11 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_bens_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m11

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

     TO p_t_arq_xml-vl_aquis_serv_m11.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_serv_m11 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_serv_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m11

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

     TO p_t_arq_xml-vl_transf_m11.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_transf_m11 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_transf_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m11

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

     TO p_t_arq_xml-vl_sl_mes_m11.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_mes_m11 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_mes_m11 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_anterior_m12

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

     TO p_t_arq_xml-vl_sl_anterior_m12.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_anterior_m12 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_anterior_m12 NO-GAPS.

  WRITE p_t_relatorio-disponi_l_11_m12

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

     TO p_t_arq_xml-disponi_l_11_m12.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_l_11_m12 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_l_11_m12 NO-GAPS.

  WRITE p_t_relatorio-disponi_c_si_m12

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

     TO p_t_arq_xml-disponi_c_si_m12.

* << Fim da exclusão

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

     TO p_t_arq_xml-disponi_c_si_m12 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-disponi_c_si_m12 NO-GAPS.

  WRITE p_t_relatorio-vl_pag_obrig_m12

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

     TO p_t_arq_xml-vl_pag_obrig_m12.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_pag_obrig_m12 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_pag_obrig_m12 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_bens_m12

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

     TO p_t_arq_xml-vl_aquis_bens_m12.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_bens_m12 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_bens_m12 NO-GAPS.

  WRITE p_t_relatorio-vl_aquis_serv_m12

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

     TO p_t_arq_xml-vl_aquis_serv_m12.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_aquis_serv_m12 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_aquis_serv_m12 NO-GAPS.

  WRITE p_t_relatorio-vl_transf_m12

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

     TO p_t_arq_xml-vl_transf_m12.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_transf_m12 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_transf_m12 NO-GAPS.

  WRITE p_t_relatorio-vl_sl_mes_m12

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

     TO p_t_arq_xml-vl_sl_mes_m12.

* << Fim da exclusão

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

     TO p_t_arq_xml-vl_sl_mes_m12 CURRENCY s_moeda.

* << Fim da inclusão

  CONDENSE p_t_arq_xml-vl_sl_mes_m12 NO-GAPS.

ENDFORM.

...