Sintoma

Ajuste para abertura do campo usagem quando este estiver em branco.

Solução

Ajuste para abertura do campo usagem quando este estiver em branco.

Informações Complementares

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

Nota Número 04609 Data: 04/09/2007 Hora: 08:18:37

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

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

Nota Número              : 04609

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00013

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ABRE CAMPO USAGEM(%) PARA PREENCHIMENTO QUANDO ESTE ESTIVER EM BRANCO.

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

Palavras Chave:

CAMPO - MODIFICAÇÃO - USAGEM - IMPORTAÇÃO - PASTA - ATO - CONCESSÓRIO

/PWS/SAPMZYCI040

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

Objetos da nota:

REPS /PWS/MZYCI040F02

REPS /PWS/MZYCI040O01

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

    itab_zycit245-qtd_perda  = /pws/zycie245-qtd_perda .

    itab_zycit245-perda_e     = /pws/zycie245-perda_e     .

    itab_zycit245-qtd_perda_e = /pws/zycie245-qtd_perda_e .

    itab_zycit245-waers    = /pws/zycie245-waers   .

    itab_zycit245-netpr    = /pws/zycie245-netpr   .

    itab_zycit245-vl_frete_t = /pws/zycie245-vl_frete_t.

    itab_zycit245-pctseg   = /pws/zycie245-pctseg  .

    itab_zycit245-vl_seg_t = /pws/zycie245-vl_seg_t.

    itab_zycit245-j_1bnbm  = /pws/zycie245-j_1bnbm .

    itab_zycit245-markci   = markci           .

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

    IF itab_zycit245-qtd_tot IS INITIAL.

      itab_zycit245-qtd_tot = itab_zycit245-qtd_iten.

    ENDIF.

* << Fim da exclusão

    IF NOT itab_zycit245-qtd_tot IS INITIAL.

      itab_zycit245-vl_frete = itab_zycit245-vl_frete_t /

            itab_zycit245-qtd_tot.

      itab_zycit245-qtd_ncm = itab_zycit245-qtd_tot.

      itab_zycit245-um_ncm = itab_zycit245-meins .

      PERFORM converte_um_ncm USING itab_zycit245-codcomp

                              CHANGING itab_zycit245-um_ncm

                                       itab_zycit245-werks

                                       itab_zycit245-qtd_ncm.

    ENDIF.

...

...

    itab_zycit245-gewei    = /pws/zycie245-gewei   .

    itab_zycit245-brgew    = /pws/zycie245-brgew   .

    itab_zycit245-ntgew    = /pws/zycie245-ntgew   .

    itab_zycit245-waers    = /pws/zycie245-waers   .

    itab_zycit245-netpr    = /pws/zycie245-netpr   .

    itab_zycit245-vl_frete_t = /pws/zycie245-vl_frete_t.

    itab_zycit245-pctseg   = /pws/zycie245-pctseg  .

    itab_zycit245-vl_seg_t = /pws/zycie245-vl_seg_t.

    itab_zycit245-j_1bnbm  = /pws/zycie245-j_1bnbm .

    itab_zycit245-markci   = markci           .

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

    IF itab_zycit245-qtd_tot IS INITIAL.

      itab_zycit245-qtd_tot = itab_zycit245-qtd_iten.

    ENDIF.

* << Fim da exclusão

    IF NOT itab_zycit245-qtd_tot IS INITIAL.

      itab_zycit245-vl_frete = itab_zycit245-vl_frete_t /

        itab_zycit245-qtd_tot.

      itab_zycit245-qtd_ncm = itab_zycit245-qtd_tot.

      itab_zycit245-um_ncm = itab_zycit245-meins .

      PERFORM converte_um_ncm USING itab_zycit245-codcomp

                              CHANGING itab_zycit245-um_ncm

                                       itab_zycit245-werks

                                       itab_zycit245-qtd_ncm.

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI040O01

...

    ENDIF.

    IF screen-name EQ '/PWS/ZYCIE245-QTD_TOT'.

      READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.

      IF sy-subrc EQ 0 AND NOT /pws/zycie245-qtd_tot IS INITIAL

        AND /pws/zycie244-tipo NE 'F' AND

        /pws/zycit321-c_comum NE 'X'.

        screen-input = 0.

        MODIFY SCREEN.

      ENDIF.

    ENDIF.

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

    IF screen-name EQ '/PWS/ZYCIE245-QTD_ITEN' AND

      v_agrup EQ '1'.

      IF NOT /pws/zycie245-codcomp IS INITIAL AND

      /pws/zycie245-qtd_iten IS INITIAL.

        screen-input = 1.

      ELSE.

        screen-input = 0.

      ENDIF.

      MODIFY SCREEN.

    ENDIF.

* << Fim da inclusão

    IF screen-name EQ '/PWS/ZYCIE245-QTD_NCM'.

      IF /pws/zycie244-tipo EQ 'F'

        AND /pws/zycie245-um_ncm <> /pws/zycie245-meins.

        READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.

        screen-input = 1.

        MODIFY SCREEN.

      ELSEIF /pws/zycit321-c_comum EQ 'X'.

        screen-input = 1.

      ELSE.

        screen-input = 0.

...