Sintoma

Não é possível verificar os dados que estão na linha agrupada quando é feito o processamento em

background.

Solução

Desenvolvido tratamento para imprimir os dados que estão na linha agrupada quando o processamento

for em background.

Informações Complementares

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

Nota Número 02987 Data: 29/01/2007 Hora: 12:00:18

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

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

Nota Número              : 02987

Categoria                : Melhoria

Prioridade               : Média

Versão PW.TP             : 2.0

Pacote                   : 00024

Agrupamento              : 00006

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

RELATÓRIO DIPJ

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

Palavras Chave:

RELATÓRIO DIPJ - PROCESSAMENTO EM BACKGROUND - DETALHE DO AGRUPAMENTO

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

Objetos da nota:

REPS /PWS/ZYTPR042

REPT /PWS/ZYTPR042

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

Modificações efetuadas em REPS /PWS/ZYTPR042

* >> Início da exclusão:

REPORT  /pws/zytpr042 LINE-SIZE 300 .

* << Fim da exclusão

* >> Início da inclusão:

REPORT  /pws/zytpr042 LINE-SIZE 1023.

* << Fim da inclusão

TYPE-POOLS: slis.

TABLES: /pws/zytpt901, /pws/zytpt000, /pws/zytpt056.

DATA: t_001 TYPE TABLE OF /pws/zytpt001 WITH HEADER LINE,

      t_002 TYPE TABLE OF /pws/zytpt002 WITH HEADER LINE,

      t_004 TYPE TABLE OF /pws/zytpt004 WITH HEADER LINE,

      t_005 TYPE TABLE OF /pws/zytpt005 WITH HEADER LINE,

      t_006 TYPE TABLE OF /pws/zytpt006 WITH HEADER LINE,

      t_007 TYPE TABLE OF /pws/zytpt007 WITH HEADER LINE,

      t_014 TYPE TABLE OF /pws/zytpt014 WITH HEADER LINE,

      t_020 TYPE TABLE OF /pws/zytpt020 WITH HEADER LINE,

...

...

      t_filter        TYPE slis_t_filter_alv   WITH HEADER LINE,

      t_sort          TYPE slis_t_sortinfo_alv WITH HEADER LINE,

      t_cabec         TYPE slis_t_listheader   WITH HEADER LINE,

      t_cabec_parc    TYPE slis_t_listheader   WITH HEADER LINE,

      t_events        TYPE slis_t_event        WITH HEADER LINE,

      w_var           TYPE disvariant,

      w_layout        TYPE slis_layout_alv,

      w_layout_parc   TYPE slis_layout_alv,

      w_keyinfo       TYPE slis_keyinfo_alv,

      w_print         TYPE slis_print_alv,

* >> Início da inclusão:

      w_grid_settings TYPE lvc_s_glay,

* << Fim da inclusão

      v_tipoie(1)   TYPE c,

      v_data_ini    TYPE sy-datum,

      v_data_fim    TYPE sy-datum,

      v_matnr(1)    TYPE c,

      v_grupo(1)    TYPE c,

      v_unneg(1)    TYPE c,

      v_metodo      TYPE i,

      v_det_parc(1) TYPE c,

      v_agru(1)     TYPE c,

      v_ind(20)     TYPE c.

...

...

           definir_eventos,

           definir_filtro,

           definir_variante,

           definir_opcoes.

  IF p_comp = space.

    w_layout-zebra = 'X'.

  ELSEIF p_conpar = space.

    w_layout-coltab_fieldname = 'COR'.

  ENDIF.

  w_layout-colwidth_optimize = 'X'.

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

  w_grid_settings-eol_p_only = 'X'.

  w_print-no_change_print_params = 'X'.

  w_print-no_print_selinfos = 'X'.

  w_print-no_print_listinfos = 'X'.

* << Fim da inclusão

  w_layout_parc-zebra = 'X'.

  w_layout_parc-colwidth_optimize = 'X'.

  IF p_comp = 'X'.

    w_layout_parc-no_totalline = 'X'.

  ENDIF.

  IF p_parc = 'X'.

    w_keyinfo-header01 = 'MATNR'.

    w_keyinfo-item01   = 'MATNR'.

    w_keyinfo-header02 = 'GRUPO'.

    w_keyinfo-item02   = 'GRUPO'.

...

...

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

       EXPORTING

            it_list_commentary = t_cabec[].

ENDFORM.

FORM cabec_parc.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

       EXPORTING

            it_list_commentary = t_cabec_parc[].

ENDFORM.

FORM montar_cabecalho.

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

  REFRESH t_cabec.

* << Fim da inclusão

  DATA:

     ls_line    TYPE slis_listheader,

     v_data(10) TYPE c,

     v_hora(10) TYPE c.

  CLEAR: ls_line.

  ls_line-typ  = 'H'.

  PERFORM montar_titulo USING p_comp p_imp space

                        CHANGING ls_line-info.

  APPEND ls_line TO t_cabec.

  CLEAR ls_line.

...

...

              program_error           = 1

              OTHERS                  = 2.

  ELSE.

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

         EXPORTING

              i_callback_program      = '/PWS/ZYTPR042'

              i_callback_top_of_page  = 'CABECALHO'

              i_callback_user_command = 'USER_COMMAND'

              it_fieldcat             = t_fieldcat[]

              is_layout               = w_layout

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

              it_events               = t_events[]

              i_grid_settings         = w_grid_settings

* << Fim da inclusão

              i_default               = 'X'

              i_save                  = 'A'

              is_variant              = w_var

              is_print                = w_print

         TABLES

              t_outtab                = p_calculo

         EXCEPTIONS

              program_error           = 1

              OTHERS                  = 2.

  ENDIF.

...

...

    t_operacao-flag = 'X'.

    MODIFY t_operacao

      TRANSPORTING descr land1 landx tp_vinc txt_vinc flag

      WHERE parid = t_operacao-parid.

  ENDLOOP.

ENDFORM.

FORM definir_eventos.

  t_events-name = 'TOP_OF_LIST'.

  t_events-form = 'TOP_OF_LIST'.

  APPEND t_events.

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

  IF p_parc = 'X'.

* << Fim da exclusão

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

  IF sy-batch = 'X' AND NOT t_calc_aux[] IS INITIAL

  AND ( p_49 = 'X' OR p_80 = 'X' ).

    t_events-name = 'END_OF_LIST'.

    t_events-form = 'END_OF_LIST_AGRUP'.

    APPEND t_events.

  ELSEIF p_parc = 'X'.

* << Fim da inclusão

    t_events-name = 'END_OF_LIST'.

    t_events-form = 'END_OF_LIST_PARC'.

    APPEND t_events.

  ENDIF.

ENDFORM.

FORM top_of_list.

  IF p_parc = 'X'.

    WRITE: / text-054.

  ELSEIF p_conpar = 'X'.

    WRITE: / text-055.

...

...

    WRITE: / '|', text-106, v_tot_oper CURRENCY 'BRL', 124 '|'.

  ELSE.

    SELECT SUM( preco_liq ) FROM /pws/zytpt902

    INTO v_tot_oper

    WHERE bukrs_g = p_bukrsg

      AND ano = p_ano

      AND mes BETWEEN 1 and p_mes

      and PROCESSO = '212'.

    WRITE: / '|', text-107, v_tot_oper CURRENCY 'BRL', 124 '|'.

  ENDIF.

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

  ULINE (124).

* << Fim da exclusão

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

  ULINE /(124).

* << Fim da inclusão

  FORMAT COLOR OFF.

ENDFORM.

FORM exit_info_forn.

  DATA: BEGIN OF t_dados_fornecedor OCCURS 0,

         lifnr   TYPE lfa1-lifnr,

         land1   TYPE lfa1-land1,

         name1   TYPE lfa1-name1,

         regio   TYPE lfa1-regio,

        END OF t_dados_fornecedor.

  PERFORM (t_025-form) IN PROGRAM (t_025-programa)

...

...

FORM exit_info_pais.

  PERFORM (t_025-form) IN PROGRAM (t_025-programa)

          TABLES t_t005t

                 IF FOUND.

ENDFORM.

FORM exit_info_matnr.

  PERFORM (t_025-form) IN PROGRAM (t_025-programa)

          TABLES t_matnr

                 IF FOUND.

ENDFORM.

* >> Início da inclusão:

FORM end_of_list_agrup.

  w_layout-list_append = 'X'.

  w_layout-colwidth_optimize = 'X'.

  REFRESH t_events.

  t_events-name = 'TOP_OF_LIST'.

  t_events-form = 'TOP_OF_LIST_AGRUP'.

  APPEND t_events.

  IF p_parc = 'X'.

    t_events-name = 'END_OF_LIST'.

    t_events-form = 'END_OF_LIST_PARC'.

    APPEND t_events.

    CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

         EXPORTING

              i_callback_program = '/PWS/ZYTPR042'

              is_layout          = w_layout

              it_fieldcat        = t_fieldcat[]

              it_filter          = t_filter[]

              i_save             = 'X'

              is_variant         = w_var

              it_events          = t_events[]

              i_tabname_header   = 'T_CALCULO'

              i_tabname_item     = 'T_OPERACAO'

              is_keyinfo         = w_keyinfo

              is_print           = w_print

         TABLES

              t_outtab_header    = t_calc_aux

              t_outtab_item      = t_operacao

         EXCEPTIONS

              program_error      = 1

              OTHERS             = 2.

    IF sy-subrc NE 0.

      MESSAGE i079(/pws/zytpm) WITH text-046 sy-subrc.

    ENDIF.

  ELSE.

    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

         EXPORTING

              i_callback_program = '/PWS/ZYTPR042'

              is_layout          = w_layout

              it_fieldcat        = t_fieldcat[]

              i_default          = 'X'

              i_save             = 'A'

              is_variant         = w_var

              is_print           = w_print

              it_events          = t_events[]

         TABLES

              t_outtab           = t_calc_aux

         EXCEPTIONS

              program_error      = 1

              OTHERS             = 2.

    IF sy-subrc NE 0.

      MESSAGE i079(/pws/zytpm) WITH text-046 sy-subrc.

    ENDIF.

  ENDIF.

ENDFORM.

FORM top_of_list_agrup.

  FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.

  WRITE: / text-109.

  FORMAT COLOR OFF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPT /PWS/ZYTPR042

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 109

Texto: (22 caracteres)

"Detalhe do Agrupamento"

Comprimento máximo: 22