Sintoma

Abertura de EXit na DSI para habilitação de campos.

Solução

criada a chamada de exit 'DSI001'.

Informações Complementares

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

Nota Número 04165 Data: 12/07/2007 Hora: 15:39:36

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

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

Nota Número              : 04165

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00003

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

Referência às notas relacionadas:

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

02022  - 00001 - 6.0    - 00024  - AJUSTES DSI MUNDANÇA SISCOMEX

02104  - 00002 - 6.0    - 00024  - EM DSI COURIER O CAMPO DE PREENCHIMENTO DO SEGURO ESTÁ ZERADO E F

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

NECESSÁRIO CHAMADA DE EXIT NAS TELAS DA DSI

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

Palavras Chave:

CHAMADA DE EXIT  - TELAS - DSI - /PWS/ZYGLT100

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

Objetos da nota:

DYNP /PWS/SAPMZYCI058                        0221

DYNP /PWS/SAPMZYCI058                        0222

DYNP /PWS/SAPMZYCI058                        0223

DYNP /PWS/SAPMZYCI058                        0232

DYNP /PWS/SAPMZYCI058                        0233

DYNP /PWS/SAPMZYCI058                        0234

DYNP /PWS/SAPMZYCI058                        0235

REPS /PWS/MZYCI058F04

REPS /PWS/MZYCI058O01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI058                        0221

process before output.

module: set_screen_padrao,

        screen_lines.

*<< Inicio Inclusão

module exit_tela .

*<< Fim Inclusão

loop at itab_zycit014 with control tc_svol.

     module: fill_struct88.

endloop.

process after input.

loop at itab_zycit014.

endloop.

chain.

       field: /pws/zycie085-recalf,

              /pws/zycie085-setor.

       module load_reca on chain-request.

endchain.

field: /pws/zycie085-urfdesp    module load_urf on request.

module verify_tables.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI058                        0222

process before output.

module: set_screen.

*<< Inicio Inclusão

module exit_tela .

*<< Fim Inclusão

process after input.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI058                        0223

process before output.

module: set_screen,

        data_clean_seg,

        load_valcarga.

*<< Inicio Inclusão

module exit_tela .

*<< Fim Inclusão

process after input.

field: /pws/zycie085-vlseg module load_sgvl on request.

field: /pws/zycie085-waersseg module load_sewa on request.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI058                        0232

process before output.

module: fill_consist,

        set_codfun  ,

        set_screen  .

*<< Inicio Inclusão

module exit_tela .

*<< Fim Inclusão

process after input.

field: /pws/zycie100a-codregtri module load_regt on request,

       /pws/zycie100a-codfunleg module load_fund on request,

       /pws/zycie100a-motivo    module load_moti on request,

       /pws/zycie100a-classific module load_clas on request,

       /pws/zycie100a-codtsp    module load_tsp  on request,

       /pws/zycie100a-pproc     module load_ppro on request.

chain.

       field: /pws/zycie100a-codregtri.

   module calc_vii on chain-request.

endchain.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI058                        0233

process before output.

module: set_screen,

        load_valitem.

*<< Inicio Inclusão

module exit_tela .

*<< Fim Inclusão

process after input.

module: user_command_0231.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI058                        0234

process before output.

module: set_screen.

process after input.

*<< Inicio Inclusão

module exit_tela .

*<< Fim Inclusão

field: /pws/zycie003-advalii   module load_iii   on request,

       /pws/zycie003-advalipi  module load_iipi  on request.

chain.

    field: /pws/zycie003-advalicms,

           /PWS/ZYCIE003-BASRED   .

   module calc_vicms on chain-request.

endchain.

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

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

PROCESS BEFORE OUTPUT.

    module: load_piscofins,

            set_screen.

*<< Inicio Inclusão

module exit_tela .

*<< Fim Inclusão

PROCESS AFTER INPUT.

chain.

    field:  /pws/zycie100a-advalpis,

            /pws/zycie100a-advalcofins,

            /pws/zycie100a-UM_PIS,

            /pws/zycie100a-UM_COFINS,

            /pws/zycie100a-QTDUM_PIS,

            /pws/zycie100a-QTDUM_COFINS,

            /PWS/ZYCIE100A-CODREGTRIPISCOFI.

            module calc_vicms on chain-request.

   module calc_vii on chain-request.

endchain.

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

Modificações efetuadas em REPS /PWS/MZYCI058F04

...

                    * /pws/zycie100a-basecofins ) .

      ENDIF.

  ENDCASE.

  itab_it-pis_calc  = t_pis_calc.

  itab_it-pis_dev   = t_pis_dev .

  itab_it-cofi_calc = t_cof_calc.

  itab_it-cofi_dev  = t_cof_dev .

  itab_it-vlpis     =  t_pis_calc .

  itab_it-vlcofins  =  t_cof_calc .

ENDFORM.

* >> Início da inclusão:

FORM verifica_exit USING    p_modulo

                            p_func

                            p_exit.

  CLEAR itab_zyglt100.

  REFRESH itab_zyglt100.

  CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

       EXPORTING

            i_codmod                = p_modulo

            i_func                  = p_func

            i_zexit                 = p_exit

       TABLES

            itab_zyglt100           = itab_zyglt100

       EXCEPTIONS

            i_codmod_nao_encontrado = 1

            i_func_nao_encontrado   = 2

            i_zexit_nao_encontrado  = 3

            OTHERS                  = 4.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI058O01

...

  PERFORM propoe_fundleg.

  PERFORM load_iicms USING 'B'.

ENDMODULE.

MODULE set_codfun OUTPUT.

  CLEAR: itab_zycit177t. REFRESH: itab_zycit177t.

  SELECT * FROM /pws/zycit177 INTO TABLE itab_zycit177t

    WHERE origem EQ /pws/zycie085-tpdi

      AND regime EQ /pws/zycie100a-codregtri

      AND codigo EQ /pws/zycie100a-codfunleg.

ENDMODULE.

* >> Início da inclusão:

module exit_tela output.

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI058'

                              'DSI001'.

  CLEAR: itab_zyglt100 .

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

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa).

    ENDIF.

  ENDIF.

ENDMODULE.

* << Fim da inclusão