Sintoma

Criada exit no momento em que são importados os dados do forecast para o ato concessório.

Solução

Criada exit no momento em que são importados os dados do forecast para o ato concessório.

Informações Complementares

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

Nota Número 03129 Data: 22/02/2007 Hora: 11:03:09

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

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

Nota Número              : 03129

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00154

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

01000  - 00001 - 6.0    - 00022  - CRIADA EXIT NO USER COMMAND DA TELA 200 DO ATO CONCESSÓRIO

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

CRIADA EXIT "ATO003"

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

Palavras Chave:

ATO - CONCESSÓRIO - FORECAST - IMPORTA - DADOS

/PWS/SAPMZYCI040

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

Objetos da nota:

REPS /PWS/MZYCI040I01

REPS /PWS/MZYCI040TOP2

REPS /PWS/MZYCI040X01

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

Modificações efetuadas em REPS /PWS/MZYCI040I01

...

MODULE user_command_0200_exit INPUT.

  CASE ok_code2.

    WHEN 'ABORT'.

      PERFORM check_button_abort2.

  ENDCASE.

ENDMODULE.

MODULE trata_forecast INPUT.

  DATA: v_item_fc TYPE i,

        v_brgew_t TYPE /pws/zycit245-qtd_tot,

        v_ntgew_t TYPE /pws/zycit245-qtd_tot.

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

  PERFORM verifica_exit USING 'D'

                             '/PWS/SAPMZYCI040'

                             'ATO003'.

  e_subrc = 0.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY zexit = 'ATO003'  BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa)

                       CHANGING e_subrc

                                        IF FOUND     .

      IF e_subrc EQ '8'.

        EXIT.

      ENDIF.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  IF NOT /pws/zycie244-nrforecast IS INITIAL.

    CLEAR:   itab_zycit239,

             itab_zycit249.

    REFRESH: itab_zycit239,

             itab_zycit249.

    SELECT * UP TO 1 ROWS FROM /pws/zycit238 INTO wa_zycit2382

           WHERE nrseqd EQ /pws/zycie244-nrforecast.

    ENDSELECT.

    IF sy-subrc EQ 0.

      IF NOT wa_zycit2382-atocon IS INITIAL.

...

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

Modificações efetuadas em REPS /PWS/MZYCI040TOP2

TABLES: ekko     ,

        t001a    ,

* >> Início da exclusão:

        t001     ,

* << Fim da exclusão

        t002t    ,

        t604n    ,

        marc     ,

        /pws/zycit001 ,

        /pws/zycit003 ,

        /pws/zycit085 ,

        /pws/zycit100 ,

        /pws/zycet001 ,

        /pws/zycet002 ,

        /pws/zycet003 ,

        /pws/zycet008 ,

        /pws/zycit078 ,

        /pws/zycit079 ,

        /pws/zycie085 ,

        /pws/zycet116 ,

        /pws/zycet118 ,

        /pws/zycet183 ,

        /pws/zycet184 ,

* >> Início da exclusão:

        /pws/zycie245 ,

* << Fim da exclusão

        /pws/zycie245c,

        /pws/zycie245d,

        /pws/zycit245 ,

        /pws/zycie246 ,

        /pws/zycie246c,

        /pws/zycie246d,

        /pws/zycit246 ,

* >> Início da exclusão:

        /pws/zycie247 ,

* << Fim da exclusão

        /pws/zycie247c,

        /pws/zycit247 ,

        /pws/zycie248 ,

        /pws/zycie248c,

        /pws/zycit248 ,

        /pws/zycie277 ,

        /pws/zycit277 ,

        /pws/zycie279 ,

        /pws/zycit283 ,

        /pws/zycit285 ,

* >> Início da exclusão:

        /pws/zycit321 ,

* << Fim da exclusão

        /pws/zycit422 ,

        /pws/zycit427 ,

        /pws/zycie427 ,

        /pws/zycit421 ,

        /pws/zycie470 ,

        /pws/zycie368 ,

        /pws/zycit368 ,

        /pws/zycie369 ,

        /pws/zycit369 ,

        j_1bnfdoc     ,

...

...

          TC_CENTRO_EI type tableview using screen '0243',

          tc_res_apo   TYPE TABLEVIEW USING SCREEN '0237',

          tc_perda     TYPE TABLEVIEW USING SCREEN '0238',

          tc_transf    TYPE TABLEVIEW USING SCREEN '0239',

          tc_inf_exp   TYPE TABLEVIEW USING SCREEN '0241',

          tc_inf_imp   TYPE TABLEVIEW USING SCREEN '0242',

          tc_lanc      TYPE TABLEVIEW USING SCREEN '0244',

          tc_areas_n   TYPE TABLEVIEW USING SCREEN '0247',

          tc_setlt     TYPE TABLEVIEW USING SCREEN '0400'.

DATA: ok_code2           LIKE sy-ucomm                   ,

* >> Início da exclusão:

      v_tcode2           LIKE sy-tcode                   ,

* << Fim da exclusão

      v_tcode2_aux                                       ,

      v_ico2             TYPE icons-text                 ,

      v_icoicms          TYPE icons-text                 ,

      v_icone2           TYPE iconname                   ,

      v_icoreal1         LIKE icon-id                    ,

      v_werks2           LIKE /pws/zycie244-werks             ,

      v_status2(1)       TYPE c VALUE '1'                ,

      v_status2a         TYPE i VALUE '0'                ,

      pressed_tab_2a     LIKE sy-ucomm VALUE 'FS_CABEC2' ,

      pressed_tab_3a     LIKE sy-ucomm VALUE 'FS_COMPI2' ,

...

...

      v_tot_rc           LIKE /pws/zycie246-qtd_iten          ,

      v_tot2_rc          LIKE /pws/zycie246-vltot             ,

      v_tot_rm           LIKE /pws/zycie248-qtd_iten          ,

      v_tot2_rm          LIKE /pws/zycie248-vlfob             ,

      v_ilinhas2         TYPE i                          ,

      v_indicatu2        LIKE sy-tabix                   ,

      v_indicatu3        LIKE sy-tabix                   ,

      v_indicatu8        LIKE sy-tabix                   ,

      v_indicatu9        LIKE sy-tabix                   ,

      v_indicatu228      LIKE sy-tabix                   ,

* >> Início da exclusão:

      v_tcambial(16)     TYPE c                          ,

* << Fim da exclusão

      v_moeda            LIKE /pws/zycie245-waers             ,

      v_txic             LIKE /pws/zycie246c-i_txicms         ,

      v_totii            LIKE /pws/zycie246c-i_vlii           ,

      v_multii           LIKE /pws/zycie246c-i_multaii        ,

      v_jurosii          LIKE /pws/zycie246c-i_jurosii        ,

      v_totipi           LIKE /pws/zycie246c-i_vlipi          ,

      v_multipi          LIKE /pws/zycie246c-i_multaipi       ,

      v_jurosipi         LIKE /pws/zycie246c-i_jurosipi       ,

      v_totcif           LIKE /pws/zycie246c-i_vlcifn_mi      ,

      v_toticms          LIKE /pws/zycie246c-i_vlicms         ,

...

...

      v_tabix2           LIKE sy-tabix                   ,

      marc_rdc(1)        TYPE c                          ,

      v_descr1_0216(40)  TYPE c                          ,

      marc_rrm(1)        TYPE c                          ,

      tt_pis_dicp        LIKE /pws/zycie260d-vlpis           ,

      tt_cofins_dicp     LIKE /pws/zycie260d-vlcofins        ,

      tt_ii_dicp         LIKE /pws/zycie260d-i_vlii          ,

      tt_ipi_dicp        LIKE /pws/zycie260d-i_vlipi          ,

      tt_icms_dicp       LIKE /pws/zycie260d-i_vlicms         ,

      tt_afrmm_dicp       LIKE /pws/zycie260d-i_vlicms         ,

* >> Início da exclusão:

      v_verificp2(1)     TYPE c VALUE 'N'                ,

* << Fim da exclusão

      v_verificp2_merc   TYPE c VALUE 'S'                ,

      v_null2(1)         TYPE c                          ,

      v_verifiit2        TYPE i                          ,

      v_ex_enc                                           ,

      v_pbt_0203         LIKE /pws/zycie245-brgew             ,

      v_plt_0203         LIKE /pws/zycie245-ntgew             ,

      v_pbt_0206         LIKE /pws/zycie247-brgew             ,

      v_plt_0206         LIKE /pws/zycie247-ntgew             ,

      v_ndtmp            TYPE tv_nodekey                 ,

* >> Início da exclusão:

      v_nritem(5)        TYPE c                          ,

* << Fim da exclusão

      v_vltot227         LIKE /pws/zycie373-vl_itnf        ,

      v_qtd_tot227       LIKE /pws/zycie373-qtd_iten       ,

      v_vlsaldo227       LIKE /pws/zycie373-vl_itnf        ,

      v_saldo227         LIKE /pws/zycie373-qtd_iten       ,

      v_nrre             LIKE /pws/zycit248-nrre,

      v_vltot228         LIKE /pws/zycie371-vlfob        ,

      v_qtd_tot228       LIKE /pws/zycie371-qtd_iten       ,

      v_vlsaldo228       LIKE /pws/zycie371-vlfob        ,

      v_saldo228         LIKE /pws/zycie371-qtd_iten       ,

      v_mark2                                              ,

...

...

      v_stlan_t LIKE mast-stlan,

      v_stlnr_t LIKE mast-stlnr,

      v_stlal_t LIKE mast-stlal,

      vl_dif2   LIKE /pws/zycit246-qtd_nacion,

      v_vl_transf    LIKE /pws/zycit245-netpr_t.

DATA: wa_zycit003  LIKE /pws/zycit003    ,

      wa_zycit001  LIKE /pws/zycit001    ,

      wa_zycit085  LIKE /pws/zycit085    ,

      wa_zycit100  LIKE /pws/zycit100    ,

      wa_zycit244  LIKE /pws/zycie244    ,

* >> Início da exclusão:

      wa_zycit2382 LIKE /pws/zycie238    ,

      wa_zycit2582 LIKE /pws/zycie258    ,

* << Fim da exclusão

      wa_zycit246  LIKE /pws/zycie246d   ,

      wa_cols2     TYPE cxtab_column,

      wat001a      LIKE t001a       ,

      wa_zycit321  LIKE /pws/zycit321    ,

      wa_thead     LIKE thead       .

DATA: BEGIN OF wa_stxl             ,

        relid    LIKE stxl-relid   ,

        tdobject LIKE stxl-tdobject,

        tdname   LIKE stxl-tdname  ,

        tdid     LIKE stxl-tdid    ,

...

...

      END OF itab_matchcode.

DATA: BEGIN OF itab_botoes2 OCCURS 0.

DATA: bname(20) TYPE c        .

DATA: END OF itab_botoes2           .

DATA: BEGIN OF it_log_erro OCCURS 0.

DATA:   ltext(135) TYPE c.

DATA: END OF it_log_erro.

DATA: BEGIN OF it_vals OCCURS 200,

       imps(90) TYPE c,

       END OF it_vals.

* >> Início da exclusão:

DATA: BEGIN OF itab_centros2 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit243   .

DATA: END OF itab_centros2           .

* << Fim da exclusão

DATA: BEGIN OF itab_centros2_save OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit243        .

DATA: END OF itab_centros2_save           .

DATA: BEGIN OF itab_vencto2 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit277   .

DATA: END OF itab_vencto2           .

DATA: BEGIN OF itab_vencto2_save OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit277        .

DATA: END OF itab_vencto2_save           .

DATA: BEGIN OF it_zycit285 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit285.

DATA: END OF it_zycit285.

DATA: BEGIN OF itab_zycit285 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit285.

DATA: END OF itab_zycit285.

* >> Início da exclusão:

DATA: BEGIN OF itab_zycit245 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit245   .

DATA: markci(1) TYPE c               .

DATA: END OF itab_zycit245           .

DATA: BEGIN OF itab_zycit245_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit245   .

DATA: markci(1) TYPE c               .

DATA: END OF itab_zycit245_aux       .

* << Fim da exclusão

DATA: BEGIN OF itab_zycit245_acum OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit245   .

DATA: markci(1) TYPE c               .

DATA: END OF itab_zycit245_acum       .

DATA: BEGIN OF itab_zycit245_save OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit245        .

DATA: markci(1) TYPE c                    .

DATA: END OF itab_zycit245_save           .

DATA: BEGIN OF itab_zycit246 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit246   .

...

...

DATA: END OF itab_zycit470           .

DATA: BEGIN OF itab_zycit470_s OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit470  .

DATA: END OF itab_zycit470_s           .

DATA: BEGIN OF itab_zycit469 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit469  .

DATA: END OF itab_zycit469           .

DATA: BEGIN OF itab_matnr OCCURS 0.

DATA: matnr LIKE marc-matnr.

DATA: END OF itab_matnr.

* >> Início da exclusão:

DATA: BEGIN OF itab_zycit247 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit247   .

DATA: markme(1) TYPE c               .

DATA: END OF itab_zycit247           .

DATA: BEGIN OF itab_zycit247_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit247   .

DATA: markme(1) TYPE c               .

DATA: END OF itab_zycit247_aux       .

* << Fim da exclusão

DATA: BEGIN OF itab_zycit247_save OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit247        .

DATA: markme(1) TYPE c                    .

DATA: END OF itab_zycit247_save           .

DATA: BEGIN OF itab_zycit248 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit248     .

DATA: END OF itab_zycit248           .

DATA: BEGIN OF itab_zycit248_final OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit248        .

DATA: END OF itab_zycit248_final           .

...

...

DATA: END OF itab_j_1bnfdoc           .

DATA: BEGIN OF itab_zycit078 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit078.

DATA: END OF itab_zycit078.

DATA: BEGIN OF itab_zycit079 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit079.

DATA: END OF itab_zycit079.

DATA: BEGIN OF itab_zycit283 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit283.

DATA: END OF itab_zycit283.

* >> Início da exclusão:

DATA: BEGIN OF itab_zycit249 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit249     .

DATA: END OF itab_zycit249           .

DATA: BEGIN OF itab_zycit240 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit240     .

DATA: END OF itab_zycit240           .

DATA: BEGIN OF itab_zycit239 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit239     .

DATA: END OF itab_zycit239           .

* << Fim da exclusão

DATA: BEGIN OF itab_zycit259 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit259.

DATA: END OF itab_zycit259.

DATA: BEGIN OF itab_zycit261 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie261.

DATA: END OF itab_zycit261.

DATA: BEGIN OF itab_res_dicomp OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie260.

DATA: marc_rdc(1) TYPE c.

DATA: END OF itab_res_dicomp.

...

...

DATA: BEGIN OF itab_zycit433 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit433.

DATA: END OF itab_zycit433.

DATA: BEGIN OF itab_centro_ei OCCURS 0.

data werks type /pws/zycie244-werks.

DATA: END OF itab_centro_ei.

DATA: BEGIN OF itab_zycit432_r OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit432.

data: desc type makt-maktx      .

DATA: END OF itab_zycit432_r.

* >> Início da exclusão:

DATA: BEGIN OF itab_zycit250 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit250.

DATA: END OF itab_zycit250.

* << Fim da exclusão

data: BTN201_02 type icon-id,

      v_area    type /pws/zycit250-codagrup.

DATA: toolbar_container2 TYPE REF TO cl_gui_custom_container,

      tool_container2    TYPE        scrfname VALUE 'BTN2'  ,

      myevent_tab2       TYPE        cntl_simple_events     ,

      myevent2           TYPE        cntl_simple_event      ,

      btn2               TYPE REF TO cl_gui_toolbar         ,

      v_exec_bt.

CLASS lcl_my_event_handler2 DEFINITION.

  PUBLIC SECTION.

...

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

Modificações efetuadas em REPS /PWS/MZYCI040X01

TABLES: /pws/zycie244,

* >> Início da inclusão:

        t001     ,

        /pws/zycit321 ,

        /pws/zycie245 ,

        /pws/zycie247 ,

* << Fim da inclusão

        /pws/zycit244.

* >> Início da inclusão:

DATA: BEGIN OF COMMON PART a.

DATA: BEGIN OF itab_zycit239 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit239     .

DATA: END OF itab_zycit239           .

DATA: BEGIN OF itab_zycit249 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit249     .

DATA: END OF itab_zycit249           .

DATA: BEGIN OF itab_zycit240 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit240     .

DATA: END OF itab_zycit240           .

DATA: BEGIN OF itab_centros2 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit243   .

DATA: END OF itab_centros2           .

DATA: BEGIN OF itab_zycit250 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit250.

DATA: END OF itab_zycit250.

DATA: BEGIN OF itab_zycit245 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit245   .

DATA: markci(1) TYPE c               .

DATA: END OF itab_zycit245           .

DATA: BEGIN OF itab_zycit245_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit245   .

DATA: markci(1) TYPE c               .

DATA: END OF itab_zycit245_aux       .

DATA: BEGIN OF itab_zycit247 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit247   .

DATA: markme(1) TYPE c               .

DATA: END OF itab_zycit247           .

DATA: BEGIN OF itab_zycit247_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit247   .

DATA: markme(1) TYPE c               .

DATA: END OF itab_zycit247_aux       .

DATA: wa_zycit2382 LIKE /pws/zycie238    ,

      wa_zycit2582 LIKE /pws/zycie258    .

DATA: v_nritem(5)        TYPE c                     ,

      v_verificp2(1)     TYPE c VALUE 'N'                ,

      v_tcambial(16)     TYPE c                          ,

      v_tcode2           LIKE sy-tcode              .

DATA: END OF COMMON PART.

* << Fim da inclusão