Sintoma

Não era possível armazenar os documentos gerados (arquivos .xls) no sistema.

Solução

Foi incluída a possibilidade de se armazenar o arquivo gerado no sistema, usando o BDS.

Informações Complementares

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

Nota Número 05568 Data: 07/01/2008 Hora: 07:58:34

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

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

Nota Número              : 05568

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00028

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

INTEGRAÇÃO DO REPORTS EXCEL COM O BDS

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

Palavras Chave:

INTEGRAÇÃO REPORTS EXCEL BDS

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

Objetos da nota:

CUAD /PWS/SAPLZYCRGF4

CUAD /PWS/SAPMZYCR003

DOMA /PWS/ZYCRD007

DTEL /PWS/ZYCRL022

DTEL /PWS/ZYCRL023

DTEL /PWS/ZYCRL024

DTEL /PWS/ZYCRL026

DYNP /PWS/SAPMZYCR003                        0231

DYNP /PWS/SAPMZYCR003                        0235

FUGR /PWS/ZYCRGF1

MESS /PWS/ZYCRM046

MESS /PWS/ZYCRM047

MESS /PWS/ZYCRM048

REPS /PWS/LZYCRGF4F01

REPS /PWS/LZYCRGF4I01

REPS /PWS/MZYCR003F02

REPS /PWS/MZYCR003I01

REPS /PWS/MZYCR003O01

REPS /PWS/MZYCR003TOP

REPS /PWS/ZYCRI003

REPS /PWS/ZYCRI005

REPS /PWS/ZYCRR003

REPS /PWS/ZYCRR010

REPS /PWS/ZYCRR011

REPS /PWS/ZYCRR013

REPS /PWS/ZYCRR014

REPS /PWS/ZYCRR015

REPS /PWS/ZYCRR016

REPS /PWS/ZYCRR017

REPS /PWS/ZYCRR018

REPS /PWS/ZYCRR020

REPS /PWS/ZYCRR021

REPS /PWS/ZYCRR023

REPS /PWS/ZYCRR024

REPS /PWS/ZYCRR026

REPS /PWS/ZYCRR027

REPS /PWS/ZYCRR033

REPS /PWS/ZYCRR100

REPT /PWS/ZYCRR003

REPT /PWS/ZYCRR010

REPT /PWS/ZYCRR011

REPT /PWS/ZYCRR013

REPT /PWS/ZYCRR014

REPT /PWS/ZYCRR015

REPT /PWS/ZYCRR016

REPT /PWS/ZYCRR017

REPT /PWS/ZYCRR018

REPT /PWS/ZYCRR020

REPT /PWS/ZYCRR021

REPT /PWS/ZYCRR023

REPT /PWS/ZYCRR024

REPT /PWS/ZYCRR026

REPT /PWS/ZYCRR027

REPT /PWS/ZYCRR033

TABD /PWS/ZYCRT013

TOBJ /PWS/ZYCRT013S

TRAN /PWS/ZYCRR100

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

Modificações efetuadas em CUAD /PWS/SAPLZYCRGF4

Criar no status-gui 5000 um nova tecla de função:

Código: REP_LIST

Tecla de Atalho: F5

Descrição: Listar documentos já gerados

Ícone: ICON_STORE

Descrição para ícone: Documentos armazenados no BDS

Incluir um separador de itens na barra de botões, após o botão cancelar.

Incluir a tecla criada na barra de botões, após o separador criado.

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

Modificações efetuadas em CUAD /PWS/SAPMZYCR003

Criar um novo status-gui para diálogo:

Número: 0235

Descrição: Editar parâmetros do BDS

Para este status-gui, criar as seguintes teclas de função:

Atalho: ENTER

Código de função: OK

Texto: Avançar

Descrição para ícone: <nenhuma>

Atalho: F12

Código de função: CANCEL

Texto: Cancelar

Descrição para ícone: <nenhuma>

Atalho: Shift-F2

Código de função: DELETE_BDS

Texto: Excluir parâmetros

Ícone: ICON_DELETE

Descrição para ícone: <nenhuma>

Incluir na barra de botões os seguintes itens:

1º: ENTER

2º: F12

3º: <separador>

4º: Shift-F2

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

Modificações efetuadas em DOMA /PWS/ZYCRD007

Domínio criado: /PWS/ZYCRD007

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

"CR - Opções de carregamento de arquivo no BDS"

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Categoria de dados: CHAR

Número de posições: 1

Comprimento de saída: 1

Letras minúsculas: NÃO

-Valores individuais

Incluído valor fixo "N"

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

"Criar novo arquivo"

Incluído valor fixo "A"

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

"Substituir arquivo existente"

Incluído valor fixo "V"

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

"Criar nova versão"

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

Modificações efetuadas em DTEL /PWS/ZYCRL022

Elemento de dados criado: /PWS/ZYCRL022

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

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

"CR - Carregar arquivo no BDS"

Categoria de dados: Domínio

Domínio: XFELD

Documentar modificações: NÃO

Comprimento máximo do denominador breve: 05

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

"BDS"

Comprimento máximo do denominador médio: 10

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

"Carrg. BDS"

Comprimento máximo do denominador longo: 15

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

"Carregar no BDS"

Comprimento máximo do título: 25

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

"Carregar arquivo no BDS"

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

Modificações efetuadas em DTEL /PWS/ZYCRL023

Elemento de dados criado: /PWS/ZYCRL023

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

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

"CR - Opção de criação de arquivo no BDS"

Categoria de dados: Domínio

Domínio: /PWS/ZYCRD007

Documentar modificações: NÃO

Comprimento máximo do denominador breve: 10

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

"Criação"

Comprimento máximo do denominador médio: 15

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

"Criação BDS"

Comprimento máximo do denominador longo: 20

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

"Criação no BDS"

Comprimento máximo do título: 25

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

"Opção de criação no BDS"

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

Modificações efetuadas em DTEL /PWS/ZYCRL024

Elemento de dados criado: /PWS/ZYCRL024

Classe de desenvolvimento: /PWS/ZYCR

Idioma original: PT

Descrição breve incluída: (42 caracteres), idioma: EN

"Business Document Service: Attribute value"

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

"CR - Descrição do report para arquivamento no BDS"

Descrição breve incluída: (44 caracteres), idioma: ES

"Business Document Service: Valor de atributo"

Categoria de dados: Domínio

Domínio: CHAR64

Nome componente default: PROP_VALUE

Documentar modificações: NÃO

Comprimento máximo do denominador breve: 10

Denominador breve incluído (5 caracteres), idioma: EN

"Value"

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

"Desc"

Denominador breve incluído (5 caracteres), idioma: ES

"Valor"

Comprimento máximo do denominador médio: 15

Denominador médio incluído (15 caracteres), idioma: EN

"Attribute value"

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

"Descrição"

Denominador médio incluído (14 caracteres), idioma: ES

"Valor atributo"

Comprimento máximo do denominador longo: 20

Denominador longo incluído (15 caracteres), idioma: EN

"Attribute value"

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

"Descr. Rep."

Denominador longo incluído (17 caracteres), idioma: ES

"Valor de atributo"

Comprimento máximo do título: 25

Título incluído (15 caracteres), idioma: EN

"Attribute value"

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

"Descrição do Report"

Título incluído (17 caracteres), idioma: ES

"Valor de atributo"

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

Modificações efetuadas em DTEL /PWS/ZYCRL026

Elemento de dados criado: /PWS/ZYCRL026

Classe de desenvolvimento: /PWS/ZYCR

Idioma original: PT

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

"CR - Palavra-chave para pesquisa do documento no BDS"

Categoria de dados: Domínio

Domínio: TEXT64

Documentar modificações: NÃO

Comprimento máximo do denominador breve: 10

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

"P.Chv."

Comprimento máximo do denominador médio: 15

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

"Pal.Chave."

Comprimento máximo do denominador longo: 30

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

"Palavra-chave p/ pesq. no BDS"

Comprimento máximo do título: 55

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

"Palavra-chave para pesquisa do documento no BDS"

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

Modificações efetuadas em DYNP /PWS/SAPMZYCR003                        0231

Aumentar a altura do quadro FRM_VALUES para 6 linhas.

Criar botão BTN_BDS_CONFIG:

Linha: 15

Coluna: 2

Comprimento(def. e vis.): 30

Texto: Configurar arquivamento no BDS

Código de função: BTN_BDS_CONFIG

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

Modificações efetuadas em DYNP /PWS/SAPMZYCR003                        0235

Criar a tela 0235 como "Caixa de diálogo modal"

Descrição: Diálogo de parâmetros do BDS

Linhas: 6

Colunas: 50

-Lista de elementos:

Nome do campo                  Tipo   Lin Col  CDef. CVis. Dropdown  Ref.DDIC

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

/PWS/ZYCRT013-BDS_CLASSNAME    Texto  1     1   15     15            X

WA_BDS_CONFIG-BDS_CLASSNAME    I/O    1    17   30     30

/PWS/ZYCRT013-BDS_CLASSTYPE    Texto  2     1   15     15            X

WA_BDS_CONFIG-BDS_CLASSTYPE    I/O    2    17    2     30     L

/PWS/ZYCRT013-BDS_OBJECT_KEY   Texto  3     1   15     15            X

WA_BDS_CONFIG-BDS_OBJECT_KEY   I/O    3    17   70     34

/PWS/ZYCRT013-BDS_DESCRIPTION  Texto  4     1   15     15            X

WA_BDS_CONFIG-BDS_DESCRIPTION  I/O    4    17   64     34

/PWS/ZYCRT013-BDS_DOC_TYPE     Texto  5     1   15     15            X

WA_BDS_CONFIG-BDS_DOC_TYPE     I/O    5    17   10     10

/PWS/ZYCRT013-BDS_CREATION     Texto  6     1   15     15            X

WA_BDS_CONFIG-BDS_CREATION     I/O    6    17    1     30     L

OK_CODE                        OK

-Lógica de processamento:

PROCESS BEFORE OUTPUT.

  MODULE status_0235.

  MODULE load_data_0235.

PROCESS AFTER INPUT.

  MODULE user_command_0235.

  MODULE user_exit_command_0235 AT EXIT-COMMAND.

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

Modificações efetuadas em MESS /PWS/ZYCRM046

Criar a mensagem 046 na classe de mensagem /PWS/ZYCRM.

Texto: Não foi encontrado nenhum report configurado para arquivamento no BDS

Auto-explicativa?: Sim.

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

Modificações efetuadas em MESS /PWS/ZYCRM047

Criar a mensagem 047 na classe de mensagem /PWS/ZYCRM.

Texto: Nenhum arquivo foi encontrado no BDS

Auto-explicativa?: Sim.

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

Modificações efetuadas em MESS /PWS/ZYCRM048

Criar a mensagem 048 na classe de mensagem /PWS/ZYCRM.

Texto: Report não parametrizado para arquivamento no BDS

Auto-explicativa?: Sim.

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

Modificações efetuadas em REPS /PWS/LZYCRGF4F01

...

  CLEAR: it_linha_marcada[], wa_linha_marcada, wa_documento.

  CALL METHOD grid_doc->get_selected_rows

       IMPORTING

         et_row_no = it_linha_marcada[].

  IF NOT it_linha_marcada[] IS INITIAL.

    READ TABLE it_linha_marcada[] INTO wa_linha_marcada INDEX 1.

    READ TABLE itab_reports[] INTO wa_documento

        INDEX wa_linha_marcada-row_id.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

FORM exibe_lista_bds

     USING

       p_report LIKE wa_documento

       p_nrseq  TYPE /pws/zycet001-nrseq.

  IF NOT p_report IS INITIAL.

    SUBMIT /pws/zycrr100

        WITH s_repmod = wa_documento-report_module

        WITH s_repid  = wa_documento-report_id

        WITH s_pchave = p_nrseq

        AND RETURN.

  ELSE.

    MESSAGE i029.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/LZYCRGF4I01

...

  CASE okcode.

    WHEN 'OK'.

      PERFORM obtem_documento_selecionado.

      PERFORM executa_report

              USING

                itab_reports[]

                g_nrseq

                ch_options.

    WHEN 'CANCEL'.

      SET SCREEN 0.

* >> Início da inclusão: MODULE USER_COMMAND_5000

    WHEN 'REP_LIST'.

      PERFORM obtem_documento_selecionado.

      PERFORM exibe_lista_bds

              USING

                wa_documento

                g_nrseq.

* << Fim da inclusão

  ENDCASE.

  CLEAR okcode.

ENDMODULE.

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

Modificações efetuadas em REPS /PWS/MZYCR003F02

...

                USING

                   p_t_rep_param[]

                   wa_rep_param_to-rep_param-report_module

                   wa_rep_param_to-rep_param-report_id

                CHANGING

                   wa_rep_param_to-rep_param-matrix.

        wa_rep_param_to-rep_param-file_id

            = p_from_rep_param-file_id.

        wa_rep_param_to-rep_param-commentary

            = p_to_rep_param-commentary.

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

        wa_rep_param_to-rep_param-bds_classname

            = p_to_rep_param-bds_classname.

        wa_rep_param_to-rep_param-bds_classtype

            = p_to_rep_param-bds_classtype.

        wa_rep_param_to-rep_param-bds_object_key

            = p_to_rep_param-bds_object_key.

        wa_rep_param_to-rep_param-bds_description

            = p_to_rep_param-bds_description.

        wa_rep_param_to-rep_param-bds_doc_type

            = p_to_rep_param-bds_doc_type.

        wa_rep_param_to-rep_param-bds_creation

            = p_to_rep_param-bds_creation.

* << Fim da inclusão

        IF p_mark = 'X'.

          PERFORM mark_grid

                  USING

                     c_unmark_all

                  CHANGING

                     p_t_rep_param[].

        ENDIF.

        wa_rep_param_to-mark = p_mark.

        wa_rep_param_to-db_op = c_db_update.

        MODIFY p_t_rep_param[] FROM wa_rep_param_to INDEX v_tabix.

...

...

              USING

                 p_t_rep_param[]

                 wa_rep_param_to-rep_param-report_module

                 wa_rep_param_to-rep_param-report_id

              CHANGING

                 wa_rep_param_to-rep_param-matrix.

      wa_rep_param_to-rep_param-file_id

          = p_from_rep_param-file_id.

      wa_rep_param_to-rep_param-commentary

          = p_to_rep_param-commentary.

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

      wa_rep_param_to-rep_param-bds_classname

          = p_to_rep_param-bds_classname.

      wa_rep_param_to-rep_param-bds_classtype

          = p_to_rep_param-bds_classtype.

      wa_rep_param_to-rep_param-bds_object_key

          = p_to_rep_param-bds_object_key.

      wa_rep_param_to-rep_param-bds_description

          = p_to_rep_param-bds_description.

      wa_rep_param_to-rep_param-bds_doc_type

          = p_to_rep_param-bds_doc_type.

      wa_rep_param_to-rep_param-bds_creation

          = p_to_rep_param-bds_creation.

* << Fim da inclusão

      IF p_mark = 'X'.

        PERFORM mark_grid

                USING

                   c_unmark_all

                CHANGING

                   p_t_rep_param[].

      ENDIF.

      wa_rep_param_to-mark = p_mark.

      wa_rep_param_to-db_op = c_db_insert.

      INSERT wa_rep_param_to INTO p_t_rep_param[] INDEX v_tabix.

...

...

  ENDIF.

ENDFORM.

FORM mark_repository

     USING

       p_mark         TYPE xfeld

       p_index        TYPE i

     CHANGING

       p_t_repository TYPE t_repository.

  DATA: wa_repository LIKE LINE OF p_t_repository[].

  IF p_mark = 'X'.

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

    MODIFY it_repository[] FROM wa_repository

* << Fim da exclusão

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

    MODIFY p_t_repository[] FROM wa_repository

* << Fim da inclusão

                           TRANSPORTING mark

                           WHERE mark <> space.

    wa_repository-mark = 'X'.

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

    MODIFY it_repository[] FROM wa_repository

* << Fim da exclusão

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

    MODIFY p_t_repository[] FROM wa_repository

* << Fim da inclusão

                           INDEX p_index

                           TRANSPORTING mark.

  ELSE.

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

    MODIFY it_repository[] FROM wa_repository

* << Fim da exclusão

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

    MODIFY p_t_repository[] FROM wa_repository

* << Fim da inclusão

                           INDEX p_index

                           TRANSPORTING mark.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

FORM set_screen_0235

     USING

       p_op_mode TYPE t_operation_mode.

  DATA: it_exclude_fcodes TYPE STANDARD TABLE OF sy-ucomm.

  APPEND: 'OK'         TO it_exclude_fcodes[],

          'DELETE_BDS' TO it_exclude_fcodes[].

  IF p_op_mode = c_show_mode.

    SET PF-STATUS '0235' EXCLUDING it_exclude_fcodes[].

  ELSE.

    SET PF-STATUS '0235'.

  ENDIF.

  SET TITLEBAR '0235'.

  IF p_op_mode <> 'M'.

    LOOP AT SCREEN.

      IF screen-group1 = 'EDT'.

        screen-input = '0'.

        MODIFY SCREEN.

      ENDIF.

    ENDLOOP.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCR003I01

...

      LEAVE TO SCREEN 0.

  ENDCASE.

ENDMODULE.

MODULE user_command_0200 INPUT.

  IF NOT v_new_report_module IS INITIAL.

    /pws/zycre010-report_module = v_new_report_module.

    CLEAR v_new_report_module.

  ENDIF.

ENDMODULE.

MODULE update_repository INPUT.

* >> Início da exclusão: MODULE UPDATE_REPOSITORY

  MODIFY it_repository[] FROM wa_repository

                         INDEX tc_files-current_line

                         TRANSPORTING mark.

* << Fim da exclusão

* >> Início da inclusão: MODULE UPDATE_REPOSITORY

  PERFORM mark_repository

          USING

            wa_repository-mark

            tc_files-current_line

          CHANGING

            it_repository[].

* << Fim da inclusão

ENDMODULE.

MODULE update_tree INPUT.

  v_rebuild_reports_tree = abap_true.

  PERFORM mark_report

          USING

               c_unmark_all

          CHANGING

               it_reports[].

  PERFORM mark_grid

          USING

...

...

                 it_rep_param[]

                 v_saved.

    WHEN 'BTN_CLEAR_FOLDER'.

      PERFORM clear_rep_folder_shlp

              USING

                 v_text_edit_report_folder

                 /pws/zycrt013

              CHANGING

                 it_rep_param[]

                 v_saved.

* >> Início da inclusão: MODULE USER_COMMAND_0231

    WHEN 'BTN_BDS_CONFIG'.

      CALL SCREEN 0235 STARTING AT 2 1.

* << Fim da inclusão

  ENDCASE.

ENDMODULE.

MODULE update_grid INPUT.

  PERFORM update_grid

          USING

              /pws/zycrt013

          CHANGING

              it_rep_param[]

              v_rebuild_reports_tree

              v_saved.

...

...

              CHANGING

                 it_key_priority[].

  ENDCASE.

ENDMODULE.

MODULE user_exit_command_0222 INPUT.

  CASE ok_code.

    WHEN 'CANC'.

      LEAVE TO SCREEN 0.

  ENDCASE.

ENDMODULE.

* >> Início da inclusão:

MODULE user_command_0235 INPUT.

  CASE ok_code.

    WHEN 'OK'.

      IF wa_bds_config-bds_classname <> /pws/zycrt013-bds_classname

          OR wa_bds_config-bds_classtype <> /pws/zycrt013-bds_classtype

          OR wa_bds_config-bds_object_key

              <> /pws/zycrt013-bds_object_key

          OR wa_bds_config-bds_description

              <> /pws/zycrt013-bds_description

          OR wa_bds_config-bds_doc_type <> /pws/zycrt013-bds_doc_type

          OR wa_bds_config-bds_creation <> /pws/zycrt013-bds_creation.

        /pws/zycrt013-bds_classname   = wa_bds_config-bds_classname.

        /pws/zycrt013-bds_classtype   = wa_bds_config-bds_classtype.

        /pws/zycrt013-bds_object_key  = wa_bds_config-bds_object_key.

        /pws/zycrt013-bds_description = wa_bds_config-bds_description.

        /pws/zycrt013-bds_doc_type    = wa_bds_config-bds_doc_type.

        /pws/zycrt013-bds_creation    = wa_bds_config-bds_creation.

        PERFORM update_grid

                USING

                  /pws/zycrt013

                CHANGING

                  it_rep_param[]

                  v_rebuild_reports_tree

                  v_saved.

      ENDIF.

      LEAVE TO SCREEN 0.

  ENDCASE.

ENDMODULE.

MODULE user_exit_command_0235 INPUT.

  CASE ok_code.

    WHEN 'CANCEL'.

      LEAVE TO SCREEN 0.

    WHEN 'DELETE_BDS'.

      CLEAR: /pws/zycrt013-bds_classname,

             /pws/zycrt013-bds_classtype,

             /pws/zycrt013-bds_object_key,

             /pws/zycrt013-bds_description,

             /pws/zycrt013-bds_doc_type,

             /pws/zycrt013-bds_creation.

      PERFORM update_grid

              USING

                /pws/zycrt013

              CHANGING

                it_rep_param[]

                v_rebuild_reports_tree

                v_saved.

      LEAVE TO SCREEN 0.

  ENDCASE.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCR003O01

...

ENDMODULE.

MODULE load_data_0222 OUTPUT.

  IF it_key_priority[] IS INITIAL.

    PERFORM convert_key_priority_to_table

            USING

               /pws/zycre010-key_priority

            CHANGING

               it_key_priority[].

  ENDIF.

ENDMODULE.

* >> Início da inclusão:

MODULE status_0235 OUTPUT.

  PERFORM SET_SCREEN_0235

          USING

            v_op_mode.

ENDMODULE.

MODULE load_data_0235 OUTPUT.

  wa_bds_config-bds_classname   = /pws/zycrt013-bds_classname.

  wa_bds_config-bds_classtype   = /pws/zycrt013-bds_classtype.

  wa_bds_config-bds_object_key  = /pws/zycrt013-bds_object_key.

  wa_bds_config-bds_description = /pws/zycrt013-bds_description.

  wa_bds_config-bds_doc_type    = /pws/zycrt013-bds_doc_type.

  wa_bds_config-bds_creation    = /pws/zycrt013-bds_creation.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCR003TOP

...

       END OF s_key_priority,

       t_key_priority TYPE STANDARD TABLE OF s_key_priority

                           WITH NON-UNIQUE KEY id.

TYPES: BEGIN OF s_report_sheets,

         file_id TYPE /pws/zycrt017-file_id,

         sheet   TYPE /pws/zycrt017-sheet,

       END OF s_report_sheets,

       t_report_sheets TYPE SORTED TABLE OF s_report_sheets

                       WITH NON-UNIQUE KEY file_id.

TYPES: t_sect_height TYPE STANDARD TABLE OF /pws/zycrt017.

* >> Início da inclusão:

TYPES: BEGIN OF s_bds_config,

         bds_classname   TYPE /pws/zycrt013-bds_classname,

         bds_classtype   TYPE /pws/zycrt013-bds_classtype,

         bds_object_key  TYPE /pws/zycrt013-bds_object_key,

         bds_description TYPE /pws/zycrt013-bds_description,

         bds_doc_type    TYPE /pws/zycrt013-bds_doc_type,

         bds_creation    TYPE /pws/zycrt013-bds_creation,

       END OF s_bds_config.

* << Fim da inclusão

CONSTANTS: c_show_mode TYPE t_operation_mode VALUE 'S',

           c_edit_mode TYPE t_operation_mode VALUE 'M'.

CONSTANTS: c_import_mode TYPE t_operation_mode VALUE 'I',

           c_export_mode TYPE t_operation_mode VALUE 'E'.

CONSTANTS: c_db_unmodified TYPE db_op VALUE ' ',

           c_db_delete     TYPE db_op VALUE 'D',

           c_db_insert     TYPE db_op VALUE 'I',

           c_db_update     TYPE db_op VALUE 'M'.

CONSTANTS: c_unmark_all(1) TYPE n VALUE '0'.

CONSTANTS: c_create_new           TYPE t_creation_mode VALUE 'N',

...

...

      it_rep_param TYPE t_rep_param,

      it_matrix    TYPE t_matrix.

DATA: it_matrix_selected TYPE t_matrix,

      wa_matrix_selected LIKE LINE OF it_matrix_selected[].

DATA: it_matrix_copied TYPE t_matrix,

      wa_matrix_copied LIKE LINE OF it_matrix_selected[].

DATA: it_reports_nodes TYPE t_nodes.

DATA: it_rep_fields TYPE t_rep_fields.

DATA: it_key_priority TYPE t_key_priority,

      wa_key_priority LIKE LINE OF it_key_priority.

* >> Início da inclusão:

DATA: wa_bds_config TYPE s_bds_config.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/ZYCRI003

...

CONSTANTS: xl_op_create_sheet(1) TYPE x VALUE 2,

           xl_op_new_page(1)     TYPE x VALUE 1,

           xl_op_fill_field(1)   TYPE x VALUE 3.

CONSTANTS: ole_true  TYPE i VALUE -1,

           ole_false TYPE i VALUE 0.

TYPES: generation_option(2) TYPE x.

CONSTANTS:

  xl_print_after_generate TYPE generation_option VALUE 1,

  xl_prn_prev_after_generate TYPE generation_option VALUE 2,

  xl_dont_show_after_generate TYPE generation_option VALUE 3,

* >> Início da exclusão:

  xl_email_file_after_generate TYPE generation_option VALUE 4.

* << Fim da exclusão

* >> Início da inclusão:

  xl_email_file_after_generate TYPE generation_option VALUE 4,

  xl_upload_report_into_bds TYPE generation_option VALUE 5,

  xl_report_key TYPE generation_option VALUE 254,

  xl_process_key TYPE generation_option VALUE 255,

  xl_items_group TYPE generation_option VALUE 256,

  xl_custom_val_1 TYPE generation_option VALUE 257,

  xl_custom_val_2 TYPE generation_option VALUE 258,

  xl_custom_val_3 TYPE generation_option VALUE 259,

  xl_custom_val_4 TYPE generation_option VALUE 260,

  xl_custom_val_5 TYPE generation_option VALUE 261,

  xl_custom_val_6 TYPE generation_option VALUE 262,

  xl_custom_val_7 TYPE generation_option VALUE 263,

  xl_custom_val_8 TYPE generation_option VALUE 264,

  xl_custom_val_9 TYPE generation_option VALUE 265,

  xl_bds_keywords TYPE generation_option VALUE 266.

* << Fim da inclusão

TYPES: BEGIN OF s_generation_options,

         option        TYPE generation_option,

         argument(255) TYPE c,

       END OF s_generation_options.

TYPES: t_generation_options TYPE STANDARD TABLE OF s_generation_options.

TYPES: BEGIN OF s_rep_fields,

         field      TYPE /pws/zycrt015-field,

         curr_field TYPE /pws/zycrt015-curr_field,

         unit_field TYPE /pws/zycrt015-unit_field,

         edit_mask  TYPE /pws/zycrt015-edit_mask,

...

...

        posnl        TYPE /PWS/ZYCRE018-posnl,

        vbeln_va     TYPE /PWS/ZYCRE018-vbeln_va,

        aupos        TYPE /PWS/ZYCRE018-aupos,

        matnr        TYPE /PWS/ZYCRE018-matnr,

        vkorg_auft   TYPE /PWS/ZYCRE018-vkorg_auft,

        vtweg_auft   TYPE /PWS/ZYCRE018-vtweg_auft,

        nrseqtr      TYPE /PWS/ZYCET046-nrseqtr,

        nrrota_tr    TYPE /PWS/ZYCRE018-nrrota_tr,

       END OF s_format_codigo,

       t_format_codigo TYPE STANDARD TABLE OF s_format_codigo.

* >> Início da inclusão:

INCLUDE /pws/zycri005.

* << Fim da inclusão

FORM get_occupied_rows                                      "#EC CALLED

     USING

        p_string    TYPE c

        p_width     TYPE i

     CHANGING

        p_row_count TYPE i.

  DATA: string_length    TYPE i,

        string_index     TYPE i,

        current_char(1)  TYPE c,

        line_index       TYPE i,

...

...

    wa_excel_content-row = wa_matrix-row_position + displacement.

    wa_excel_content-column = wa_matrix-column_position.

    PERFORM write_field_to_char

            USING

               p_header

               wa_matrix-field

               p_t_rep_fields[]

            CHANGING

               wa_excel_content-value

               subrc.

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

    IF subrc = 0.

* << Fim da inclusão

    APPEND wa_excel_content TO p_t_excel_content[].

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

    ENDIF.

* << Fim da inclusão

  ENDLOOP.

ENDFORM.

FORM build_excel_report                                     "#EC CALLED

     USING

        p_file_name             TYPE c

        p_report_sheet_name     TYPE /pws/zycrl008

        p_report_sheet_password TYPE c

        p_t_excel_content       TYPE t_excel_content

        p_t_sections            TYPE t_sect_height

        p_t_options             TYPE t_generation_options.

  DATA: wa_excel_content LIKE LINE OF p_t_excel_content[],

        wa_options       LIKE LINE OF p_t_options[].

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

  DATA: wa_bds_upload_info TYPE s_bds_upload_info,

        it_bds_keywords    TYPE TABLE OF s_bds_keywords,

        bds_doc_id         TYPE bds_docid,

        bds_doc_ver_no     TYPE bds_dverno,

        bds_doc_var_id     TYPE bds_dvarid.

* << Fim da inclusão

  STATICS: application   TYPE ole2_object,

           workbook      TYPE ole2_object,

           report_sheet  TYPE ole2_object,

           page_breaks   TYPE ole2_object.

  PERFORM xl_create_and_initialize_excel

          CHANGING

             application.

  PERFORM xl_open_file

          USING

             application

...

...

            USING

              report_sheet.

  ENDIF.

  READ TABLE p_t_options TRANSPORTING NO FIELDS

       WITH KEY option = xl_email_file_after_generate.

  IF sy-subrc = 0.

    PERFORM xl_email_workbook

            USING

              application.

  ENDIF.

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

  PERFORM unpack_single_argument

        USING

          p_t_options[]

          xl_upload_report_into_bds

        CHANGING

          wa_bds_upload_info.

* << Fim da inclusão

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

  READ TABLE p_t_options TRANSPORTING NO FIELDS

       WITH KEY option = xl_dont_show_after_generate.

* << Fim da exclusão

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

  PERFORM check_argument_exists

          USING

            p_t_options[]

            xl_dont_show_after_generate.

* << Fim da inclusão

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

  IF sy-subrc <> 0.

* << Fim da exclusão

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

  IF sy-subrc <> 0 AND wa_bds_upload_info IS INITIAL.

* << Fim da inclusão

    PERFORM xl_show_report

            USING

               application.

  ELSE.

    CALL METHOD OF application 'QUIT'.

  ENDIF.

  FREE OBJECT: page_breaks   NO FLUSH,

               report_sheet  NO FLUSH,

               workbook      NO FLUSH.

  CALL METHOD cl_gui_cfw=>flush

       EXCEPTIONS

          cntl_system_error = 1

          cntl_error        = 2

          OTHERS            = 3.

  IF sy-subrc <> 0.

    CALL METHOD OF application 'QUIT'.

    FREE OBJECT application.

    MESSAGE e001(/pws/zycrm).

  ENDIF.

  FREE OBJECT application.

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

  IF NOT wa_bds_upload_info IS INITIAL.

    PERFORM unpack_table_argument

            USING

              p_t_options[]

              xl_bds_keywords

            CHANGING

              it_bds_keywords[].

    PERFORM bds_fill_description_mask

            USING

              wa_bds_upload_info-spras

              p_t_options[]

            CHANGING

              wa_bds_upload_info-description.

    PERFORM bds_upload_file

            USING

              wa_bds_upload_info

              it_bds_keywords[]

              p_file_name

            CHANGING

              bds_doc_id

              bds_doc_ver_no

              bds_doc_var_id.

    PERFORM check_argument_exists

            USING

               p_t_options[]

               xl_dont_show_after_generate.

    IF sy-subrc <> 0.

      PERFORM bds_show_file_in_navigator

              USING

                wa_bds_upload_info

                bds_doc_id

                bds_doc_ver_no

                bds_doc_var_id.

    ENDIF.

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM xl_create_and_initialize_excel                         "#EC CALLED

     CHANGING

        p_application TYPE ole2_object.

  CREATE OBJECT p_application 'EXCEL.APPLICATION'.

  IF sy-subrc <> 0.

    MESSAGE e027.

  ELSE.

    SET PROPERTY OF p_application 'WINDOWSTATE' = -4140 no flush.

    SET PROPERTY OF p_application 'INTERACTIVE' = ole_false no flush.

...

...

    ELSE.

      IF wa_rep_fields-edit_mask IS INITIAL.

        WRITE <fs_field> TO p_excel_field LEFT-JUSTIFIED.

      ELSE.

        WRITE <fs_field> TO p_excel_field LEFT-JUSTIFIED

                         USING EDIT MASK wa_rep_fields-edit_mask.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

FORM pack_single_argument

     USING

         p_option   TYPE s_generation_options-option

         p_argument TYPE any

     CHANGING

         p_list     TYPE t_generation_options.

  DATA: wa_list LIKE LINE OF p_list.

  READ TABLE p_list[] INTO wa_list WITH KEY option = p_option

       TRANSPORTING argument.

  IF sy-subrc = 0.

    wa_list-argument = p_argument.

    MODIFY p_list[] FROM wa_list INDEX sy-tabix TRANSPORTING argument.

    sy-subrc = 8.

  ELSE.

    wa_list-option   = p_option.

    wa_list-argument = p_argument.

    APPEND wa_list TO p_list[].

    sy-subrc = 0.

  ENDIF.

ENDFORM.

FORM unpack_single_argument

     USING

         p_list     TYPE t_generation_options

         p_option   TYPE s_generation_options-option

     CHANGING

         p_argument TYPE any.

  DATA: wa_list LIKE LINE OF p_list.

  READ TABLE p_list[] INTO wa_list WITH KEY option = p_option

       TRANSPORTING argument.

  IF sy-subrc = 0.

    p_argument = wa_list-argument.

    sy-subrc = 0.

  ELSE.

    CLEAR p_argument.

    sy-subrc = 4.

  ENDIF.

ENDFORM.

FORM unpack_table_argument

     USING

         p_list     TYPE t_generation_options

         p_option   TYPE s_generation_options-option

     CHANGING

         p_t_argument TYPE table.

  DATA: wa_list LIKE LINE OF p_list.

  CLEAR: p_t_argument[].

  LOOP AT p_list[] INTO wa_list WHERE option = p_option.

    APPEND wa_list-argument TO p_t_argument[].

  ENDLOOP.

ENDFORM.

FORM check_argument_exists

     USING

         p_list   TYPE t_generation_options

         p_option TYPE s_generation_options-option.

  READ TABLE p_list[] WITH KEY option = p_option TRANSPORTING NO FIELDS.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/ZYCRI005

Criar o include /PWS/ZYCRI005

Classe de desenvolvimento: /PWS/ZYCR

Descrição: Rotinas e declarações comuns ao arquivamento no BDS

Categoria: I-Programa include

Status: K-Programa de clientes produtivo

Código-fonte:

*----------------------------------------------------------------------*

*   INCLUDE /PWS/ZYCRI005                                              *

*----------------------------------------------------------------------*

*------------------------------------------------------------------

* Lista de valores de substituição na máscara

*------------------------------------------------------------------

* Símbolo   Significado                  Observação

*------------------------------------------------------------------

* %%        '%'

* %d ou %D  Data atual                   sy-datlo (AAAAMMDD)

* %t ou %T  Hora atual                   sy-timlo (HHMMSS)

* %r ou %R  Chave do report              /PWS/ZYCRT010-REPORT_KEY

* %u ou %U  Usuário SAP                  sy-uname

* %l ou %L  Idioma utilizado na geração  Depende do report

* %k ou %K  Chave do processo            Depende do report

* %g ou %G  Grupo de itens               Depende do report

* %1        Valor personalizável 1       Depende do report

* %2        Valor personalizável 2       Depende do report

* %3        Valor personalizável 3       Depende do report

* %4        Valor personalizável 4       Depende do report

* %5        Valor personalizável 5       Depende do report

* %6        Valor personalizável 6       Depende do report

* %7        Valor personalizável 7       Depende do report

* %8        Valor personalizável 8       Depende do report

* %9        Valor personalizável 9       Depende do report

*------------------------------------------------------------------

TYPE-POOLS: sbdst.

TYPES: bds_file_creation_mode(1) TYPE c.

TYPES: BEGIN OF s_bds_upload_info,

         classname     TYPE /pws/zycrt013-bds_classname,

         classtype     TYPE /pws/zycrt013-bds_classtype,

         object_key    TYPE /pws/zycrt013-bds_object_key,

         description   TYPE /pws/zycrt013-bds_description,

         document_type TYPE /pws/zycrt013-bds_doc_type,

         creation_mode TYPE /pws/zycrt013-bds_creation,

         spras         TYPE lang,

       END OF s_bds_upload_info.

TYPES: BEGIN OF s_bds_keywords,

         keyword_1 TYPE bapibds01-prop_value,

         keyword_2 TYPE bapibds01-prop_value,

         keyword_3 TYPE bapibds01-prop_value,

       END OF s_bds_keywords,

       t_bds_keywords TYPE STANDARD TABLE OF s_bds_keywords.

CONSTANTS:

    bds_create_new_document TYPE /pws/zycrl023 VALUE 'N',

    bds_create_new_version  TYPE /pws/zycrl023 VALUE 'V',

    bds_update_document     TYPE /pws/zycrl023 VALUE 'A'.

* --------------------------------------------------------------------

* Form bds_upload_file

* --------------------------------------------------------------------

* Objetivo: Carregar um arquivo no BDS

* --------------------------------------------------------------------

* Parâmetros:   ( --> Entrada ) ( <-- Saída ) ( <-> Tabelas )

* --------------------------------------------------------------------

* --> p_bds_upload_info  Parâmetros de carregamento

*     p_file_name        Caminho do arquivo a ser carregado

* <-- p_doc_id           ID do arquivo

*     p_doc_ver_no       Número da versão

*     p_doc_var_id       Número da variante

* <-> <nenhum>

* --------------------------------------------------------------------

* Chamado  Data       Descrição

* --------------------------------------------------------------------

* 391073   12/09/07   Codificação inicial

* --------------------------------------------------------------------

FORM bds_upload_file                                        "#EC CALLED

     USING

         p_bds_upload_info TYPE s_bds_upload_info

         p_t_bds_keywords  TYPE t_bds_keywords

         p_file_name       TYPE c

     CHANGING

         p_doc_id          TYPE bds_docid

         p_doc_ver_no      TYPE bds_dverno

         p_doc_var_id      TYPE bds_dvarid.

  DATA: it_files TYPE sbdst_files,

        wa_files LIKE LINE OF it_files[].

  DATA: it_signature TYPE sbdst_signature,

        wa_signature LIKE LINE OF it_signature[].

  DATA: wa_bds_keywords LIKE LINE OF p_t_bds_keywords[].

  DATA: doc_type TYPE toadv-doc_type.

* As assinaturas se referem a um único arquivo

  wa_signature-doc_count  = '1'.

* Preenche a tabela de assinatura do arquivo: descrição e tipo

  wa_signature-prop_name  = 'DESCRIPTION'.

  wa_signature-prop_value = p_bds_upload_info-description.

  APPEND wa_signature TO it_signature[].

  wa_signature-prop_name  = 'LANGUAGE'.

  wa_signature-prop_value = p_bds_upload_info-spras.

  APPEND wa_signature TO it_signature[].

  wa_signature-prop_name  = 'BDS_DOCUMENTTYPE'.

  wa_signature-prop_value = p_bds_upload_info-document_type.

  APPEND wa_signature TO it_signature[].

  SELECT SINGLE doc_type

      FROM toadv

      INTO doc_type

      WHERE ar_object = p_bds_upload_info-document_type.

  IF sy-subrc = 0.

    wa_signature-prop_name  = 'BDS_DOCUMENTCLASS'.

    wa_signature-prop_value = doc_type.

    APPEND wa_signature TO it_signature[].

  ENDIF.

  LOOP AT p_t_bds_keywords[] INTO wa_bds_keywords.

    IF NOT wa_bds_keywords-keyword_1 IS INITIAL.

      wa_signature-prop_name  = 'BDS_KEYWORD'.

      wa_signature-prop_value = wa_bds_keywords-keyword_1.

      APPEND wa_signature TO it_signature[].

    ENDIF.

    IF NOT wa_bds_keywords-keyword_2 IS INITIAL.

      wa_signature-prop_name  = 'BDS_KEYWORD'.

      wa_signature-prop_value = wa_bds_keywords-keyword_2.

      APPEND wa_signature TO it_signature[].

    ENDIF.

    IF NOT wa_bds_keywords-keyword_3 IS INITIAL.

      wa_signature-prop_name  = 'BDS_KEYWORD'.

      wa_signature-prop_value = wa_bds_keywords-keyword_3.

      APPEND wa_signature TO it_signature[].

    ENDIF.

  ENDLOOP.

* Preenche a tabela de arquivos: caminho do arquivo

  wa_files-doc_count = '1'.

  PERFORM split_file_path

          USING

            p_file_name

          CHANGING

            wa_files-filename

            wa_files-directory.

  SELECT SINGLE mimetype

      FROM toadd

      INTO wa_files-mimetype

      WHERE doc_type = doc_type.

  APPEND wa_files TO it_files.

  CASE p_bds_upload_info-creation_mode.

    WHEN bds_create_new_document.

      PERFORM bds_create_document

              USING

                p_bds_upload_info-classname

                p_bds_upload_info-classtype

                p_bds_upload_info-object_key

                it_files[]

                it_signature[]

              CHANGING

                p_doc_id

                p_doc_ver_no

                p_doc_var_id.

    WHEN bds_create_new_version.

      PERFORM bds_create_version

              USING

                p_bds_upload_info-classname

                p_bds_upload_info-classtype

                p_bds_upload_info-object_key

                it_files[]

                it_signature[]

              CHANGING

                p_doc_id

                p_doc_ver_no

                p_doc_var_id.

    WHEN bds_update_document.

      PERFORM bds_update_document

              USING

                p_bds_upload_info-classname

                p_bds_upload_info-classtype

                p_bds_upload_info-object_key

                it_files[]

                it_signature[]

              CHANGING

                p_doc_id

                p_doc_ver_no

                p_doc_var_id.

  ENDCASE.

ENDFORM.                    " bds_upload_file

* --------------------------------------------------------------------

* Form bds_query_newest_document

* --------------------------------------------------------------------

* Objetivo: Buscar a versão do documento mais recente

* --------------------------------------------------------------------

* Parâmetros:   ( --> Entrada ) ( <-- Saída ) ( <-> Tabelas )

* --------------------------------------------------------------------

* --> p_classname           Nome da classe de objetos

*     p_classtype           Tipo da classe de objetos

*     p_object_key          Chave do objeto

*     value(p_t_signature)  Tabela de assinatura do arquivo

* <-- p_doc_id              ID do objeto

*     p_doc_ver_no          Número da versão

*     p_doc_var_id          Número da variante

* <-> <nenhum>

* --------------------------------------------------------------------

* Chamado  Data       Descrição

* --------------------------------------------------------------------

* 391073   12/09/07   Codificação inicial

* --------------------------------------------------------------------

FORM bds_query_newest_document                              "#EC CALLED

     USING

         p_classname          TYPE sbdst_classname

         p_classtype          TYPE sbdst_classtype

         p_object_key         TYPE sbdst_object_key

         value(p_t_signature) TYPE sbdst_signature

     CHANGING

         p_doc_id             TYPE bds_docid

         p_doc_ver_no         TYPE bds_dverno

         p_doc_var_id         TYPE bds_dvarid.

  DATA: wa_signature LIKE LINE OF p_t_signature[].

  DELETE p_t_signature[] WHERE prop_name = 'BDS_KEYWORD'.

  CALL METHOD cl_bds_document_set=>get_info_newest_only

       EXPORTING

         classname       = p_classname

         classtype       = p_classtype

         object_key      = p_object_key

       CHANGING

         signature       = p_t_signature

       EXCEPTIONS

         nothing_found   = 3.

  CASE sy-subrc.

    WHEN 0.

      READ TABLE p_t_signature[] INTO wa_signature

           INDEX 1

           TRANSPORTING doc_id

                        doc_ver_no

                        doc_var_id.

      IF sy-subrc = 0.

        p_doc_id     = wa_signature-doc_id.

        p_doc_ver_no = wa_signature-doc_ver_no.

        p_doc_var_id = wa_signature-doc_var_id.

        sy-subrc = 0.

      ELSE.

        sy-subrc = 4.

      ENDIF.

    WHEN 3.

      sy-subrc = 4.

    WHEN OTHERS.

      sy-subrc = 8.

  ENDCASE.

ENDFORM.                    " bds_query_newest_document

* --------------------------------------------------------------------

* Form bds_create_document

* --------------------------------------------------------------------

* Objetivo: Cria um novo documento no BDS

* --------------------------------------------------------------------

* Parâmetros:   ( --> Entrada ) ( <-- Saída ) ( <-> Tabelas )

* --------------------------------------------------------------------

* --> p_classname           Nome da classe de objetos

*     p_classtype           Tipo da classe de objetos

*     value(p_object_key)   Chave de objeto

*     value(p_t_files)      Tabela de informações dos arquivos

*     value(p_t_signature)  Tabela de informações dos objetos

* <-- p_doc_id              ID do novo objeto

*     p_doc_ver_no          Número da versão do novo objeto

*     p_doc_var_id          Número da variante do novo objeto

* <-> <nenhum>

* --------------------------------------------------------------------

* Chamado  Data       Descrição

* --------------------------------------------------------------------

* 391073   12/09/07   Codificação inicial

* --------------------------------------------------------------------

FORM bds_create_document                                    "#EC CALLED

     USING

         p_classname          TYPE sbdst_classname

         p_classtype          TYPE sbdst_classtype

         value(p_object_key)  TYPE sbdst_object_key

         value(p_t_files)     TYPE sbdst_files

         value(p_t_signature) TYPE sbdst_signature

     CHANGING

         p_doc_id             TYPE bds_docid

         p_doc_ver_no         TYPE bds_dverno

         p_doc_var_id         TYPE bds_dvarid.

  DATA: wa_signature LIKE LINE OF p_t_signature[].

  CALL METHOD cl_bds_document_set=>create_with_files

       EXPORTING

         classname       = p_classname

         classtype       = p_classtype

       CHANGING

         files           = p_t_files[]

         object_key      = p_object_key

         signature       = p_t_signature[].

  IF sy-subrc = 0.

    READ TABLE p_t_signature[] INTO wa_signature

         INDEX 1

         TRANSPORTING doc_id

                      doc_ver_no

                      doc_var_id.

    IF sy-subrc = 0.

      p_doc_id     = wa_signature-doc_id.

      p_doc_ver_no = wa_signature-doc_ver_no.

      p_doc_var_id = wa_signature-doc_var_id.

    ENDIF.

  ELSE.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

ENDFORM.                    " bds_create_document

* --------------------------------------------------------------------

* Form bds_create_version

* --------------------------------------------------------------------

* Objetivo: Cria uma nova versão de um documento, se já existir, ou

*           cria um novo documento.

* --------------------------------------------------------------------

* Parâmetros:   ( --> Entrada ) ( <-- Saída ) ( <-> Tabelas )

* --------------------------------------------------------------------

* --> p_classname       Nome da classe de objetos

*     p_classtype       Tipo da classe de objetos

*     p_object_key      Chave do objeto

*     value(p_t_files)  Tabela de informações do arquivo

*     p_t_signature     Tabela de informações do documento

* <-- p_doc_id          ID do objeto

*     p_doc_ver_no      Número da versão do objeto

*     p_doc_var_id      Número da variante do objeto

* <-> <nenhum>

* --------------------------------------------------------------------

* Chamado  Data       Descrição

* --------------------------------------------------------------------

* 391073   12/09/07   Codificação inicial

* --------------------------------------------------------------------

FORM bds_create_version                                     "#EC CALLED

     USING

         p_classname      TYPE sbdst_classname

         p_classtype      TYPE sbdst_classtype

         p_object_key     TYPE sbdst_object_key

         value(p_t_files) TYPE sbdst_files

         p_t_signature    TYPE sbdst_signature

     CHANGING

         p_doc_id         TYPE bds_docid

         p_doc_ver_no     TYPE bds_dverno

         p_doc_var_id     TYPE bds_dvarid.

  DATA: previous_doc_id     TYPE bds_docid,

        previous_doc_ver_no TYPE bds_dverno,

        previous_doc_var_id TYPE bds_dvarid.

  DATA: wa_signature LIKE LINE OF p_t_signature.

  DATA: it_properties TYPE sbdst_properties,

        wa_properties LIKE LINE OF it_properties[].

  PERFORM bds_query_newest_document

          USING

            p_classname

            p_classtype

            p_object_key

            p_t_signature

          CHANGING

            previous_doc_id

            previous_doc_ver_no

            previous_doc_var_id.

  CASE sy-subrc.

    WHEN 0.

      LOOP AT p_t_signature INTO wa_signature

        WHERE prop_name = 'BDS_KEYWORD'

           OR prop_name = 'BDS_DOCUMENTCLASS'

           OR prop_name = 'DESCRIPTION'

           OR prop_name = 'LANGUAGE'.

        wa_properties-prop_name  = wa_signature-prop_name.

        wa_properties-prop_value = wa_signature-prop_value.

        APPEND wa_properties TO it_properties[].

      ENDLOOP.

      CALL METHOD cl_bds_document_set=>create_version_with_files

           EXPORTING

             classname       = p_classname

             classtype       = p_classtype

             object_key      = p_object_key

             doc_id          = previous_doc_id

             doc_ver_no      = previous_doc_ver_no

             doc_var_id      = previous_doc_var_id

           IMPORTING

             new_doc_ver_no  = p_doc_ver_no

           CHANGING

             files           = p_t_files[]

             properties      = it_properties[]

           EXCEPTIONS

             error_kpro      = 1

             internal_error  = 2

             nothing_found   = 3

             not_authorized  = 4

             not_allowed     = 5

             parameter_error = 6

             OTHERS          = 7.

      IF sy-subrc = 0.

        p_doc_id     = previous_doc_id.

        p_doc_var_id = previous_doc_var_id.

      ELSE.

        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

                   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

      ENDIF.

    WHEN 4.

      PERFORM bds_create_document

              USING

                p_classname

                p_classtype

                p_object_key

                p_t_files[]

                p_t_signature[]

              CHANGING

                p_doc_id

                p_doc_ver_no

                p_doc_var_id.

  ENDCASE.

ENDFORM.                    " bds_create_version

* --------------------------------------------------------------------

* Form bds_update_document

* --------------------------------------------------------------------

* Objetivo: Atauliza um arquivo, se já existir, ou cria um novo

* --------------------------------------------------------------------

* Parâmetros:   ( --> Entrada ) ( <-- Saída ) ( <-> Tabelas )

* --------------------------------------------------------------------

* --> p_classname           Nome da classe de objetos

*     p_classtype           Tipo da classe de objetos

*     p_object_key          Chave do objeto

*     value(p_t_files)      Tabela de informações do arquivo

*     value(p_t_signature)  Tabela de informações do documento

* <-- p_doc_id              ID do objeto

*     p_doc_ver_no          Número da versão do objeto

*     p_doc_var_id          Número da variante do objeto

* <-> <nenhum>

* --------------------------------------------------------------------

* Chamado  Data       Descrição

* --------------------------------------------------------------------

* 391073   12/09/07   Codificação inicial

* --------------------------------------------------------------------

FORM bds_update_document                                    "#EC CALLED

     USING

         p_classname          TYPE sbdst_classname

         p_classtype          TYPE sbdst_classtype

         p_object_key         TYPE sbdst_object_key

         value(p_t_files)     TYPE sbdst_files

         value(p_t_signature) TYPE sbdst_signature

     CHANGING

         p_doc_id             TYPE bds_docid

         p_doc_ver_no         TYPE bds_dverno

         p_doc_var_id         TYPE bds_dvarid.

  DATA: previous_doc_id     TYPE bds_docid,

        previous_doc_ver_no TYPE bds_dverno,

        previous_doc_var_id TYPE bds_dvarid.

  DATA: wa_signature LIKE LINE OF p_t_signature.

  PERFORM bds_query_newest_document

          USING

             p_classname

             p_classtype

             p_object_key

             p_t_signature

          CHANGING

             previous_doc_id

             previous_doc_ver_no

             previous_doc_var_id.

  CASE sy-subrc.

    WHEN 0.

      CALL METHOD cl_bds_document_set=>update_with_files

           EXPORTING

             classname       = p_classname

             classtype       = p_classtype

             object_key      = p_object_key

             doc_id          = previous_doc_id

             doc_ver_no      = previous_doc_ver_no

             doc_var_id      = previous_doc_var_id

             x_force_update  = 'X'

           CHANGING

             files           = p_t_files[]

             signature       = p_t_signature[].

      IF sy-subrc = 0.

        READ TABLE p_t_signature[] INTO wa_signature

             INDEX 1

             TRANSPORTING doc_id

                          doc_ver_no

                          doc_var_id.

        IF sy-subrc = 0.

          p_doc_id     = wa_signature-doc_id.

          p_doc_ver_no = wa_signature-doc_ver_no.

          p_doc_var_id = wa_signature-doc_var_id.

        ENDIF.

      ELSE.

        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

                   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

      ENDIF.

    WHEN 4.

      PERFORM bds_create_document

           USING

             p_classname

             p_classtype

             p_object_key

             p_t_files[]

             p_t_signature[]

           CHANGING

             p_doc_id

             p_doc_ver_no

             p_doc_var_id.

  ENDCASE.

ENDFORM.                    " bds_update_document

* --------------------------------------------------------------------

* Form bds_show_file_in_navigator

* --------------------------------------------------------------------

* Objetivo: Exibir um documento no BDN

* --------------------------------------------------------------------

* Parâmetros:   ( --> Entrada ) ( <-- Saída ) ( <-> Tabelas )

* --------------------------------------------------------------------

* --> p_bds_upload_info  Parâmetros do documento

*     p_doc_id           ID do Documento

*     p_doc_ver_no       Número da versão do documento

*     p_doc_var_id       Número da variante do documento

* <-- <nenhum>

* <-> <nenhum>

* --------------------------------------------------------------------

* Chamado  Data       Descrição

* --------------------------------------------------------------------

* 391073   12/09/07   Codificação inicial

* --------------------------------------------------------------------

FORM bds_show_file_in_navigator                             "#EC CALLED

     USING

         p_bds_upload_info TYPE s_bds_upload_info

         p_doc_id          TYPE bds_docid

         p_doc_ver_no      TYPE bds_dverno

         p_doc_var_id      TYPE bds_dvarid.

  DATA: it_signature TYPE sbdst_signature,

        wa_signature LIKE LINE OF it_signature[].

  wa_signature-doc_count  = 1.

  wa_signature-doc_id     = p_doc_id.

  wa_signature-doc_ver_no = p_doc_ver_no.

  wa_signature-doc_var_id = p_doc_var_id.

  APPEND wa_signature TO it_signature[].

  CALL METHOD cl_bds_document_set=>call_navigator

       EXPORTING

         classname          = p_bds_upload_info-classname

         classtype          = p_bds_upload_info-classtype

         display_single_doc = 'X'

       CHANGING

         objkey             = p_bds_upload_info-object_key

         signature          = it_signature[].

ENDFORM.                    " bds_show_file_in_navigator

* --------------------------------------------------------------------

* Form bds_fill_description_mask

* --------------------------------------------------------------------

* Objetivo: Preencher o campo de descrição de documento

* --------------------------------------------------------------------

* Parâmetros:   ( --> Entrada ) ( <-- Saída ) ( <-> Tabelas )

* --------------------------------------------------------------------

* --> p_lang         Idioma do documento

*     p_t_arguments  Lista de opções de geração

* <-- p_description  Descrição do documento

* <-> <nenhum>

* --------------------------------------------------------------------

* Chamado  Data       Descrição

* --------------------------------------------------------------------

* 391073   12/09/07   Codificação inicial

* --------------------------------------------------------------------

FORM bds_fill_description_mask                              "#EC CALLED

     USING

         p_lang        TYPE lang

         p_t_arguments TYPE t_generation_options

     CHANGING

         p_description TYPE /pws/zycrt013-bds_description.

  DATA: report_key   TYPE s_generation_options-argument,

        process_key  TYPE s_generation_options-argument,

        items_group  TYPE s_generation_options-argument,

        custom_var_1 TYPE s_generation_options-argument,

        custom_var_2 TYPE s_generation_options-argument,

        custom_var_3 TYPE s_generation_options-argument,

        custom_var_4 TYPE s_generation_options-argument,

        custom_var_5 TYPE s_generation_options-argument,

        custom_var_6 TYPE s_generation_options-argument,

        custom_var_7 TYPE s_generation_options-argument,

        custom_var_8 TYPE s_generation_options-argument,

        custom_var_9 TYPE s_generation_options-argument.

  PERFORM unpack_single_argument

          USING

            p_t_arguments[]

            xl_report_key

          CHANGING

            report_key.

  PERFORM unpack_single_argument

          USING

            p_t_arguments[]

            xl_process_key

          CHANGING

            process_key.

  PERFORM unpack_single_argument

          USING

            p_t_arguments[]

            xl_items_group

          CHANGING

            items_group.

  PERFORM unpack_single_argument

          USING

            p_t_arguments[]

            xl_custom_val_1

          CHANGING

            custom_var_1.

  PERFORM unpack_single_argument

          USING

            p_t_arguments[]

            xl_custom_val_2

          CHANGING

            custom_var_2.

  PERFORM unpack_single_argument

          USING

            p_t_arguments[]

            xl_custom_val_3

          CHANGING

            custom_var_3.

  PERFORM unpack_single_argument

          USING

            p_t_arguments[]

            xl_custom_val_4

          CHANGING

            custom_var_4.

  PERFORM unpack_single_argument

          USING

            p_t_arguments[]

            xl_custom_val_5

          CHANGING

            custom_var_5.

  PERFORM unpack_single_argument

          USING

            p_t_arguments[]

            xl_custom_val_6

          CHANGING

            custom_var_6.

  PERFORM unpack_single_argument

          USING

            p_t_arguments[]

            xl_custom_val_7

          CHANGING

            custom_var_7.

  PERFORM unpack_single_argument

          USING

            p_t_arguments[]

            xl_custom_val_8

          CHANGING

            custom_var_8.

  PERFORM unpack_single_argument

          USING

            p_t_arguments[]

            xl_custom_val_9

          CHANGING

            custom_var_9.

  PERFORM bds_replace_descr_symbols

          USING

             p_lang

             report_key

             process_key

             items_group

             custom_var_1

             custom_var_2

             custom_var_3

             custom_var_4

             custom_var_5

             custom_var_6

             custom_var_7

             custom_var_8

             custom_var_9

          CHANGING

             p_description.

ENDFORM.                    " bds_fill_description_mask

* --------------------------------------------------------------------

* Form bds_replace_descr_symbols

* --------------------------------------------------------------------

* Objetivo: Substituir os símbolos na máscara de descrição de

*           documento

* --------------------------------------------------------------------

* Parâmetros:   ( --> Entrada ) ( <-- Saída ) ( <-> Tabelas )

* --------------------------------------------------------------------

* --> p_lang          Idioma do report

*     p_report_key    Chave do report

*     p_process_key   Chave do processo

*     p_custom_var_1  Variável personálizavel 1

*     p_custom_var_2  Variável personálizavel 2

*     p_custom_var_3  Variável personálizavel 3

*     p_custom_var_4  Variável personálizavel 4

*     p_custom_var_5  Variável personálizavel 5

*     p_custom_var_6  Variável personálizavel 6

*     p_custom_var_7  Variável personálizavel 7

*     p_custom_var_8  Variável personálizavel 8

*     p_custom_var_9  Variável personálizavel 9

* <-- p_mask          Descrição do documento

* <-> <nenhum>

* --------------------------------------------------------------------

* Chamado  Data       Descrição

* --------------------------------------------------------------------

* 391073   12/09/07   Codificação inicial

* --------------------------------------------------------------------

FORM bds_replace_descr_symbols                              "#EC CALLED

     USING

         p_lang         TYPE lang

         p_report_key   TYPE c

         p_process_key  TYPE c

         p_items_group  TYPE c

         p_custom_var_1 TYPE c

         p_custom_var_2 TYPE c

         p_custom_var_3 TYPE c

         p_custom_var_4 TYPE c

         p_custom_var_5 TYPE c

         p_custom_var_6 TYPE c

         p_custom_var_7 TYPE c

         p_custom_var_8 TYPE c

         p_custom_var_9 TYPE c

     CHANGING

         p_mask TYPE /pws/zycrt013-bds_description.

  DATA: len    TYPE i,      " nº caracteres na máscara

        pos    TYPE i,      " posição atualmente lida

        cch(1) TYPE c,      " caractere atual

        sym    TYPE xfeld.  " flag indicativo de símbolo lido

  DATA: str    LIKE p_mask, " máscara preenchida

        csz    TYPE i.      " tamanho da máscara já utilizado

  len = numofchar( p_mask ).

  DO len TIMES.

    pos = sy-index - 1.

    cch = p_mask+pos(1).

    IF cch = '%' AND sym IS INITIAL. " Símbolo

      sym = 'X'.

    ELSE.

      IF sym = 'X'.

        CASE cch.

          WHEN '%'.

            MOVE '%' TO str+csz.

            csz = csz + 1.

          WHEN 'd' OR 'D'.

            MOVE sy-datlo TO str+csz.

            csz = csz + NUMOFCHAR( sy-datlo ).

          WHEN 't' OR 'T'.

            MOVE sy-timlo TO str+csz.

            csz = csz + NUMOFCHAR( sy-timlo ).

          WHEN 'r' OR 'R'.

            MOVE p_report_key TO str+csz.

            csz = csz + NUMOFCHAR( p_report_key ).

          WHEN 'u' OR 'U'.

            MOVE sy-uname TO str+csz.

            csz = csz + NUMOFCHAR( sy-uname ).

          WHEN 'g' OR 'G'.

            MOVE p_items_group TO str+csz.

            csz = csz + NUMOFCHAR( p_items_group ).

          WHEN 'l' OR 'L'.

            WRITE p_lang TO str+csz.

            csz = csz + NUMOFCHAR( str+csz ).

          WHEN 'k' OR 'K'.

            MOVE p_process_key TO str+csz.

            csz = csz + NUMOFCHAR( p_process_key ).

          WHEN '1'.

            MOVE p_custom_var_1 TO str+csz.

            csz = csz + NUMOFCHAR( p_custom_var_1 ).

          WHEN '2'.

            MOVE p_custom_var_2 TO str+csz.

            csz = csz + NUMOFCHAR( p_custom_var_2 ).

          WHEN '3'.

            MOVE p_custom_var_3 TO str+csz.

            csz = csz + NUMOFCHAR( p_custom_var_3 ).

          WHEN '4'.

            MOVE p_custom_var_4 TO str+csz.

            csz = csz + NUMOFCHAR( p_custom_var_4 ).

          WHEN '5'.

            MOVE p_custom_var_5 TO str+csz.

            csz = csz + NUMOFCHAR( p_custom_var_5 ).

          WHEN '6'.

            MOVE p_custom_var_6 TO str+csz.

            csz = csz + NUMOFCHAR( p_custom_var_6 ).

          WHEN '7'.

            MOVE p_custom_var_7 TO str+csz.

            csz = csz + NUMOFCHAR( p_custom_var_7 ).

          WHEN '8'.

            MOVE p_custom_var_8 TO str+csz.

            csz = csz + NUMOFCHAR( p_custom_var_8 ).

          WHEN '9'.

            MOVE p_custom_var_9 TO str+csz.

            csz = csz + NUMOFCHAR( p_custom_var_8 ).

          WHEN OTHERS.

            MOVE '%' TO str+csz.

            csz = csz + 1.

            MOVE cch TO str+csz.

            csz = csz + 1.

        ENDCASE.

        CLEAR sym.

      ELSE.

        MOVE cch TO str+csz.

        csz = csz + 1.

      ENDIF.

    ENDIF.

  ENDDO.

  p_mask = str.

ENDFORM.                    " bds_replace_descr_symbols

* --------------------------------------------------------------------

* Form split_file_path

* --------------------------------------------------------------------

* Objetivo: Dividir o caminho completo para um arquivo em nome do

*           arquivo e diretório.

* --------------------------------------------------------------------

* Parâmetros:   ( --> Entrada ) ( <-- Saída ) ( <-> Tabelas )

* --------------------------------------------------------------------

* --> value(p_full_file_path)  Caminho completo

* <-- p_file_name              Só o nome do arquivo

*     p_folder                 Só o nome do diretório

* <-> <nenhum>

* --------------------------------------------------------------------

* Chamado  Data       Descrição

* --------------------------------------------------------------------

* 391073   12/09/07   Codificação inicial

* --------------------------------------------------------------------

FORM split_file_path                                        "#EC CALLED

     USING

         value(p_full_file_path) TYPE c

     CHANGING

         p_file_name             TYPE c

         p_folder                TYPE c.

  CALL FUNCTION 'STRING_REVERSE'

       EXPORTING

            string  = p_full_file_path

            lang    = sy-langu

       IMPORTING

            rstring = p_full_file_path.

  SPLIT p_full_file_path AT '\' INTO p_file_name p_folder.

  CALL FUNCTION 'STRING_REVERSE'

       EXPORTING

            string  = p_file_name

            lang    = sy-langu

       IMPORTING

            rstring = p_file_name.

  CALL FUNCTION 'STRING_REVERSE'

       EXPORTING

            string  = p_folder

            lang    = sy-langu

       IMPORTING

            rstring = p_folder.

ENDFORM.                    " split_file_path

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

Modificações efetuadas em REPS /PWS/ZYCRR003

...

DATA: wa_gen_param     TYPE /pws/zycrt012,

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'

                                     MATCHCODE OBJECT h_unit_volume.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura/Cargo 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR010

...

DATA: wa_gen_param     TYPE /pws/zycrt012,

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq         OBLIGATORY

                                                      MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR011

...

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_waersa TYPE /pws/zycbt007-waersa.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b7 WITH FRAME TITLE text-010.

PARAMETERS: p_agrup TYPE /pws/zycrl025 AS CHECKBOX DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK b7.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR013

...

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_waersa TYPE /pws/zycbt007-waersa.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b7 WITH FRAME TITLE text-010.

PARAMETERS: p_agrup TYPE /pws/zycrl025 AS CHECKBOX DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK b7.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR014

...

DATA: wa_gen_param     TYPE /pws/zycrt012,

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR015

...

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_waersa TYPE /pws/zycbt007-waersa.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR016

...

DATA: wa_gen_param     TYPE /pws/zycrt012,

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'

                                     MATCHCODE OBJECT h_unit_volume.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura/Cargo 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR017

...

DATA: wa_gen_param     TYPE /pws/zycrt012,

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'

                                     MATCHCODE OBJECT h_unit_volume.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura/Cargo 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR018

...

DATA: wa_gen_param     TYPE /pws/zycrt012,

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'

                                     MATCHCODE OBJECT h_unit_volume.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura/Cargo 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR020

...

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_waersa TYPE /pws/zycbt007-waersa.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'

                                     MATCHCODE OBJECT h_unit_volume.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura/Cargo 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR021

...

DATA: wa_gen_param     TYPE /pws/zycrt012,

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'

                                     MATCHCODE OBJECT h_unit_volume.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura/Cargo 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR023

...

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_waersa TYPE /pws/zycbt007-waersa.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

    wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

    wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

    wa_bds_upload_info-spras         = v_langu.

    wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

    wa_bds_upload_info-description   = wa_rep_param-bds_description.

    wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

    IF NOT wa_bds_upload_info IS INITIAL.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR024

...

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_waersa TYPE /pws/zycbt007-waersa.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'

                                     MATCHCODE OBJECT h_unit_volume.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura/Cargo 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR026

...

DATA: wa_gen_param     TYPE /pws/zycrt012,

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'

                                     MATCHCODE OBJECT h_unit_volume.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura/Cargo 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR027

...

DATA: wa_gen_param     TYPE /pws/zycrt012,

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'

                                     MATCHCODE OBJECT h_unit_volume.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura/Cargo 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

    wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

    wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

    wa_bds_upload_info-spras         = v_langu.

    wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

    wa_bds_upload_info-description   = wa_rep_param-bds_description.

    wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

    IF NOT wa_bds_upload_info IS INITIAL.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR033

...

DATA: wa_gen_param     TYPE /pws/zycrt012,

      wa_rep_param     TYPE /pws/zycrt013,

      it_matrix        TYPE t_matrix,

      it_report_fields TYPE t_rep_fields.

DATA: it_excel_content TYPE t_excel_content,

      it_sect_height   TYPE t_sect_height.

DATA: it_generation_options TYPE t_generation_options,

      wa_generation_options LIKE LINE OF it_generation_options.

DATA: v_grupo            TYPE /pws/zycet002-grupo,

      v_process_key(100) TYPE c.

* >> Início da inclusão:

DATA: wa_bds_upload_info TYPE s_bds_upload_info,

      wa_bds_keywords    TYPE s_bds_keywords.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

PARAMETERS: p_nrseq  TYPE /pws/zycet002-nrseq OBLIGATORY

                                              MODIF ID key.

SELECT-OPTIONS: s_grupos FOR /pws/zycet002-grupo NO INTERVALS.

PARAMETERS: p_repmod TYPE /pws/zycrt010-report_module OBLIGATORY

                                                      MODIF ID key

                                                      VALUE CHECK,

            p_report TYPE /pws/zycrt010-report_id     OBLIGATORY

                                                      MODIF ID key.

SELECTION-SCREEN END OF BLOCK b1.

...

...

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b6.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-005.

PARAMETERS: p_un_vol TYPE t006-msehi OBLIGATORY DEFAULT 'M3'.

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN BEGIN OF BLOCK b5 WITH FRAME TITLE text-006.

PARAMETERS: p_print       TYPE /pws/zycrl017 AS CHECKBOX,

            p_prev        TYPE /pws/zycrl018 AS CHECKBOX,

            p_email       TYPE /pws/zycrl019 AS CHECKBOX,

            p_noshow      TYPE /pws/zycrl020 AS CHECKBOX,

* >> Início da inclusão:

            p_up_bds      TYPE /pws/zycrl023 AS CHECKBOX,

            p_bds_kw      TYPE /pws/zycrl026,

* << Fim da inclusão

            p_passwd(132) TYPE c LOWER CASE.

SELECTION-SCREEN END OF BLOCK b5.

PARAMETERS: p_option TYPE xfeld NO-DISPLAY.

AT SELECTION-SCREEN.

  IF sscrfields-ucomm = 'ONLI' OR sscrfields-ucomm = 'PRIN'.

    IF ( r_s1_ft = 'X' AND p_s1_ft IS INITIAL )

      OR ( r_s1_db = 'X' AND p_s1_db IS INITIAL ).

      MESSAGE w030 WITH 'Assinatura 1'(001).

    ENDIF.

    IF ( r_s2_ft = 'X' AND p_s2_ft IS INITIAL )

...

...

  IF p_prev = 'X'.

    wa_generation_options-option = xl_prn_prev_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_print = 'X'.

    wa_generation_options-option = xl_print_after_generate.

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_noshow = 'X'.

    wa_generation_options-option = xl_dont_show_after_generate.

* >> Início da inclusão:

    APPEND wa_generation_options TO it_generation_options[].

  ENDIF.

  IF p_up_bds = 'X'.

    IF NOT wa_rep_param-bds_classname IS INITIAL.

      wa_bds_upload_info-classname     = wa_rep_param-bds_classname.

      wa_bds_upload_info-classtype     = wa_rep_param-bds_classtype.

      wa_bds_upload_info-object_key    = wa_rep_param-bds_object_key.

      wa_bds_upload_info-spras         = v_langu.

      wa_bds_upload_info-document_type = wa_rep_param-bds_doc_type.

      wa_bds_upload_info-description   = wa_rep_param-bds_description.

      wa_bds_upload_info-creation_mode = wa_rep_param-bds_creation.

      wa_generation_options-option   = xl_upload_report_into_bds.

      wa_generation_options-argument = wa_bds_upload_info.

      APPEND wa_generation_options TO it_generation_options[].

      wa_generation_options-option   = xl_process_key.

      wa_generation_options-argument = wa_cabecalho-zycet001-nrseq.

      APPEND wa_generation_options TO it_generation_options[].

      wa_bds_keywords-keyword_1 = wa_cabecalho-zycet001-nrseq.

      wa_bds_keywords-keyword_2 = wa_cabecalho-zycet001-nremb.

      wa_bds_keywords-keyword_3 = p_bds_kw.

      wa_generation_options-option   = xl_bds_keywords.

      wa_generation_options-argument = wa_bds_keywords.

* << Fim da inclusão

    APPEND wa_generation_options TO it_generation_options[].

* >> Início da inclusão:

    ELSE.

      MESSAGE e048.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  PERFORM create_report

          USING

             wa_gen_param-report_generator

...

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

Modificações efetuadas em REPS /PWS/ZYCRR100

Criar o report /PWS/ZYCRR100

Classe de desenvolvimento: /PWS/ZYCR

Descrição: Pesquisa de reports arquivados no BDS

Categoria: 1-Programa executável

Status: K-Programa de clientes produtivo

-Elementos de texto:

Símbolos de texto:

nº  Texto                                 ComD ComM

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

000 Critérios de pesquisa principais      32   40

001 Critérios de pesquisa secundários     33   40

002 Arquivos encontrados:                 21   60

003 Selecionado reports...                22   50

004 Pesquisando documentos arquivados...  36   50

005 Preparando exibição dos resultados... 37   50

006 P.Ch.1                                 6   10

007 Pal.Chave 1                           11   20

008 Palavra Chave 1                       15   40

009 P.Ch.2                                 6   10

010 Pal.Chave 2                           11   20

011 Palavra Chave 2                       15   40

012 P.Ch.3                                 6   10

013 Pal.Chave 3                           11   20

014 Palavra Chave 3                       15   40

015 Us.Cri.                                7   10

016 Us.Criação                            10   20

017 Usuário de Criação                    18   40

018 Dt.Cri.                                7   10

019 Dt.Criação                            10   20

020 Data de Criação                       15   40

021 Us.Mod.                                7   10

022 Us.Modif.                              9   20

023 Usuário de Modificação                22   40

024 Dt.Mod.                                7   10

025 Dt.Modif.                              9   20

026 Data de Modificação                   19   40

Textos de seleção

Parâm.   Texto                        Ref.DDIC

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

S_DH_CH  Data e hora da última modif.

S_DH_CR  Data e hora de criação

S_LANG   Idioma

S_OBJDES Descrição do report

S_PCHAVE Palavra-chave

S_REPID  ID Report                      X

S_REPMOD Código de Módulo               X

S_US_CH  Usuário da últ. modificação

S_US_CR  Usuário de criação

Código-fonte:

* --------------------------------------------------------------------

* PROCWORK Software

* Produto:   pw.CE

* Módulo:    CR - CE Reports

* Descrição: Relatório de pesquisa de documentos arquivados no BDS

* Help Desk: (11) 5504-0270

* --------------------------------------------------------------------

* ESTE PROGRAMA NÃO DEVE SER ALTERADO SEM PRÉVIA CONSULTA

* --------------------------------------------------------------------

* Chamado  Data      Descrição

* --------------------------------------------------------------------

* 371091   31/12/07  Codificação inicial

* --------------------------------------------------------------------

REPORT /pws/zycrr100 MESSAGE-ID /pws/zycrm.

* ---------------------------------------------------------------------

TYPE-POOLS: slis.

* ---------------------------------------------------------------------

TABLES: bapibds01,

        /pws/zycrt013.

* ---------------------------------------------------------------------

TYPES: BEGIN OF s_zycrt013,

         report_module   TYPE /pws/zycrt013-report_module,

         report_id       TYPE /pws/zycrt013-report_id,

         bds_classname   TYPE /pws/zycrt013-bds_classname,