Sintoma

Desenvolvimento entreposto a granel

Solução

Desenvolvimento entreposto a granel

Informações Complementares

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

Nota Número 10137 Data: 07/05/2010 Hora: 16:22:47

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

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

Nota Número              : 10137

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00020

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

Referência às notas relacionadas:

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

10021  - 00001 - 8.0    - 00003  - DESEMBARAÇO DA NÃO ESTA GRAVANDO O MEIO DE EMBARQUE

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

DESENVOLVIMENTO ENTREPOSTO A GRANEL

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

Palavras Chave:

DESENVOLVIMENTO - ENTREPOSTO - GRANEL - MODIFICAR - PESO - LIQUIDO

/PWS/SAPMZYCI070

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

Objetos da nota:

DYNP /PWS/SAPMZYCI070                        0131

DYNP /PWS/SAPMZYCI070                        0150

REPS /PWS/MZYCI070F02

REPS /PWS/MZYCI070F03

REPS /PWS/MZYCI070F05

REPS /PWS/MZYCI070I01

REPS /PWS/MZYCI070O01

REPS /PWS/MZYCI070X01

REPT /PWS/SAPMZYCI070

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI070                        0131

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE442-NTGEW"

Grupo 1                  AC

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0131

...

  ENDLOOP.

  FIELD: /pws/zycie442-land      MODULE load_land ON REQUEST,

         /pws/zycie442-urfent    MODULE load_urfe ON REQUEST,

         /pws/zycie442-urfdesp   MODULE load_urf  ON REQUEST,

         /pws/zycie442-contropcb MODULE load_opcb ON REQUEST.

  CHAIN.

    FIELD: /pws/zycie442-recalf,

           /pws/zycie442-setor.

    MODULE load_reca ON CHAIN-REQUEST.

  ENDCHAIN.

* >> Início da inclusão:

  CHAIN.

    FIELD: /pws/zycie442-ntgew

        MODULE modify_peso ON CHAIN-REQUEST.

  ENDCHAIN.

* << Fim da inclusão

  MODULE: verify_tables,

          check_urf.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI070                        0150

MODIFICAR TEXTO "TXT01" em tbl.contr./tabstr.

Altura                   20

MODIFICAR CAMPO TEXTO "V_SALDO_DA" em tbl.contr./tabstr.

Comprimento Visível      20

Texto                    _.___.___.___,_____V

MODIFICAR CAIXA DE VERIFICAÇÃO "WA_IT-MARK" em tbl.contr./tabstr.

Texto                    _

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

Modificações efetuadas em REPS /PWS/MZYCI070F02

...

FORM load_para.

  CLEAR: wa_zycbt007, wa_it000.

  DATA  wa_zycit001-bukrs  LIKE /pws/zycie001-bukrs.

  GET PARAMETER ID 'BKR' FIELD wa_zycit001-bukrs.

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

  IF NOT wa_zycit001-bukrs IS INITIAL.

* << Fim da exclusão

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

  IF NOT wa_zycit001-bukrs IS INITIAL AND

     /pws/zycie442-bukrs IS INITIAL.

* << Fim da inclusão

    SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007

                    WHERE bukrs EQ wa_zycit001-bukrs.

    SELECT SINGLE * FROM t001

                    WHERE bukrs EQ wa_zycit001-bukrs.

  ELSE.

    SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007

                    WHERE bukrs EQ /pws/zycie442-bukrs.

    SELECT SINGLE * FROM t001

                    WHERE bukrs EQ /pws/zycie442-bukrs.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI070F03

...

FORM saldo_online_da.

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

  DATA: v_qtd_toler TYPE /pws/zycit003-qtd_iten.

* << Fim da inclusão

  CHECK /pws/zycie442-codreg NE '04'.

  CLEAR v_da_sem_saldo.

  CLEAR v_sd_utilizado.

  LOOP AT itab_zycit443_saldo

    WHERE ebeln = itab_it-ebeln

      AND ebelp = itab_it-ebelp.

    v_sd_utilizado = v_sd_utilizado + itab_zycit443_saldo-qtd_da.

  ENDLOOP.

  v_saldo_da = itab_it-qtd_iten - ( v_qtd_da + v_sd_utilizado ).

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

  IF v_saldo_da LT 0.

* << Fim da exclusão

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

  CHECK itab_it-uebtK NE 'X'.

  CLEAR v_qtd_toler.

  IF NOT itab_it-uebto IS INITIAL.

    v_qtd_toler = -1 * itab_it-qtd_iten * ( itab_it-uebto / 100 ) .

  ENDIF.

  IF v_saldo_da LT v_qtd_toler.

* << Fim da inclusão

    MOVE 'X' TO v_da_sem_saldo.

    CLEAR v_saldo_da.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI070F05

...

    IF sy-subrc EQ 0.

      v_nac = 'X'.

    ENDIF.

  ELSE.

    SELECT SINGLE * FROM /pws/zycit003

      WHERE nrseq EQ /pws/zycie442-nrseqda.

    IF sy-subrc EQ 0.

      v_nac = 'X'.

    ENDIF.

  ENDIF.

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

  CLEAR v_exdoc.

  READ TABLE itab_zycit459 WITH KEY

         nrseqda = /pws/zycie442-nrseqda

         status  = 'A'.

  IF sy-subrc EQ 0.

    v_exdoc = 'X'.

  ENDIF.

  IF v_exdoc NE 'X'.

    REFRESH: itab_zycit459, itab_zycit465.

    SELECT SINGLE *

           INTO  itab_zycit459

           FROM  /pws/zycit459

           WHERE nrseqda EQ /pws/zycie442-nrseqda

           AND   status  EQ 'A'.

    IF sy-subrc EQ 0.

      v_exdoc = 'X'.

      APPEND itab_zycit459.

    ENDIF.

  ENDIF.

* << Fim da inclusão

ENDFORM.

...

...

  IF sy-dynnr EQ '0220'.

    IF NOT itab_zycit463[] IS INITIAL.

      SELECT * FROM /pws/zycit467 INTO TABLE itab_zycit467_nac

      FOR ALL ENTRIES IN itab_zycit463

      WHERE nrseqda   EQ itab_zycit463-nrseqda

      AND   nrseqlote EQ itab_zycit463-nrseqlote

      AND   ebeln     EQ itab_zycit463-ebeln

      AND   ebelp     EQ itab_zycit463-ebelp.

    ENDIF.

  ENDIF.

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

  wa_zycit442a = /pws/zycie442.

* << Fim da inclusão

ENDFORM.

...

...

* >> Início da inclusão:

FORM preenche_tolerancia.

  LOOP AT itab_it.

    READ TABLE itab_ekpo WITH KEY ebeln = itab_it-ebeln

                                  ebelp = itab_it-ebelp.

    IF sy-subrc NE 0.

      SELECT SINGLE * FROM ekpo INTO itab_ekpo

            WHERE ebeln = itab_it-ebeln

              AND ebelp = itab_it-ebelp.

      APPEND itab_ekpo.

    ENDIF.

    itab_it-uebto = itab_ekpo-uebto.

    itab_it-uebtk = itab_ekpo-uebtk.

    MODIFY itab_it.

  ENDLOOP.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI070I01

...

* >> Início da inclusão:

MODULE modify_peso INPUT.

  DATA: v_ntgewa TYPE /pws/zycie442-ntgew.

  IF /pws/zycie442-ntgew IS INITIAL.

    MESSAGE e015 WITH text-545.

    EXIT.

  ENDIF.

  CLEAR v_ntgewa.

  LOOP AT itab_it.

    itab_it-ntgew = /pws/zycie442-ntgew *

        ( itab_it-ntgew / wa_zycit442a-ntgew ).

    ADD itab_it-ntgew TO v_ntgewa.

    MODIFY itab_it.

  ENDLOOP.

  itab_it-ntgew = itab_it-ntgew + ( /pws/zycie442-ntgew - v_ntgewa ).

  MODIFY itab_it TRANSPORTING ntgew

        WHERE ebeln EQ itab_it-ebeln

          AND ebelp EQ itab_it-ebelp.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI070O01

...

      /pws/zycie442-tpdi = 'S'.

    ENDIF.

 ELSEIF ( sy-tcode <> '/PWS/ZYCI070_C' AND sy-tcode <> '/PWS/ZYCI070_I'

                                                                      )

                                                  AND s_cnpj IS INITIAL.

    PERFORM: load_init.

    v_txtkey = /pws/zycie442-nrseqda.

    PERFORM read_text.

  ENDIF.

  PERFORM seleciona_saldo_da.

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

  PERFORM preenche_tolerancia.

* << Fim da inclusão

ENDMODULE.

...

...

                   ( screen-name EQ '/PWS/ZYCIE442-SETOR' AND

                     /pws/zycie442-recalf IS INITIAL ).

              screen-input = '0'.

            ELSEIF screen-name EQ '/PWS/ZYCIE442-URFDESP'.

              SELECT * FROM /pws/zyglt369

                 INTO TABLE itab_zyglt369.              "#EC CI_NOWHERE

              IF sy-subrc EQ 0.

                screen-required = '1'.

              ELSE.

                screen-required = '0'.

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

              ENDIF.

            ELSEIF screen-name EQ '/PWS/ZYCIE442-NTGEW'.

              IF /pws/zycie442-codreg NE '02' or

                not ( v_exdoc IS INITIAL

                  AND v_nac   IS INITIAL ).

                screen-input = '0'.

              ELSE.

                screen-input = '1'.

* << Fim da inclusão

              ENDIF.

            ENDIF.

          ENDIF.

        ENDIF.

        IF screen-name EQ '/PWS/ZYCIE443A-CODMAT' AND

          v_embimp EQ 'X'.

          screen-input = screen-required = '0'.

        ENDIF.

        IF screen-name EQ 'T_VMLE2' AND

          v_embimp EQ 'X'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI070X01

...

* >> Início da inclusão:

DATA: wa_zycit442a   LIKE /pws/zycie442a.

data: v_exdoc type c.

* << Fim da inclusão

DATA: END OF COMMON PART.

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

Modificações efetuadas em REPT /PWS/SAPMZYCI070

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 545

Texto: (21 caracteres)

"Informar peso liquido"

Comprimento máximo: 50