Sintoma

Adicionada quantidade base a lista técnica por agrupamento

Solução

Adicionada quantidade base a lista técnica por agrupamento

Informações Complementares

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

Nota Número 04485 Data: 22/08/2007 Hora: 14:33:29

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

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

Nota Número              : 04485

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

ADICIONADA QUANTIDADE BASE A LISTA TÉCNICA POR AGRUPAMENTO

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

Palavras Chave:

QUANTIDADE - BASE - LISTA - TÉCNICA - AGRPAMENTO

/PWS/SAPMZYCI062

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

Objetos da nota:

DYNP /PWS/SAPMZYCI062                        0104

REPS /PWS/MZYCI062F01

TABD /PWS/ZYCIT421

TABD /PWS/ZYCIT422

TABT /PWS/ZYCIT421

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI062                        0104

   Nome

      Ctg.      Linha   Coluna  CmprDf  CmVis   Altura  Format Dict  Modif At.Des.Só At

      Gr1 Gr2 Gr3 Gr4  SPA GPA ID parâm             Cód.F                TCmp   TpoLoopExbLoop

      Outros atributos

* >> Início da inclusão:

   /PWS/ZYCIT421-BASE

      Texto      4       28       9       9       1     CHAR      X    F

   /PWS/ZYCIT421-BASE

      I/O        4       44      18      18       1     QUAN   X           Ent Off

      Alinh.à dir., Entr.obrig.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI062F01

...

  READ TABLE itab_ltcab WITH KEY mark = 'X'.

  IF sy-subrc NE 0.

    MESSAGE i015 WITH text-e01.

  ELSE.

    REFRESH itab_ltitem.

    /pws/zycit421-meins = itab_ltcab-meins.

    /pws/zycit421-agrup = itab_ltcab-agrup.

    /pws/zycit421-werks = itab_ltcab-werks.

    /pws/zycit421-stlal = itab_ltcab-stlal.

    /pws/zycit421-meins = itab_ltcab-meins.

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

    /pws/zycit421-base  = itab_ltcab-base.

* << Fim da inclusão

    SELECT * FROM /pws/zycit422

      INTO TABLE itab_ltitem

      WHERE agrup EQ itab_ltcab-agrup AND

            werks EQ itab_ltcab-werks AND

            stlal EQ itab_ltcab-stlal.

    CLEAR v_conitn.

    LOOP AT itab_ltitem.

    ENDLOOP.

    v_conitn = sy-tabix.

    CALL SCREEN '0104'.

...

...

    IF sy-subrc EQ 0.

      MESSAGE i015 WITH text-e13.

      EXIT.

    ENDIF.

  ENDIF.

  CLEAR v_operacao.

  MOVE /pws/zycit421-agrup TO wa_zycit421-agrup.

  MOVE /pws/zycit421-werks TO wa_zycit421-werks.

  MOVE /pws/zycit421-stlal TO wa_zycit421-stlal.

  MOVE /pws/zycit421-meins TO wa_zycit421-meins.

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

  MOVE /pws/zycit421-base  TO wa_zycit421-base.

* << Fim da inclusão

  MODIFY /pws/zycit421 FROM wa_zycit421.

  DELETE itab_ltitem WHERE agrup = space AND

                           werks = space AND

                           stlal = space AND

                           posnr = space AND

                           idnrk = space.

  MODIFY /pws/zycit422 FROM TABLE itab_ltitem.

  IF sy-subrc EQ 0.

    MESSAGE s015 WITH text-004.

  ENDIF.

...

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

Modificações efetuadas em TABD /PWS/ZYCIT421

Nome campo Chv Elem.dados     Tab.verif.    N CtDt Comp. Grupo

MANDT      X   MANDT                        X CLNT     3

AGRUP      X   /PWS/ZYGLL1072 /PWS/ZYCIT419 X CHAR     3

WERKS      X   WERKS_D                      X CHAR     4

STLAL      X   STLAL                        X CHAR     2

MEINS          MEINS          T006            UNIT     3

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

BASE           KMPMG                          QUAN    13

* << Fim da inclusão

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

Modificações efetuadas em TABD /PWS/ZYCIT422

* >> Início da Modificação:

Nome campo Chv Elem.dados     Tab.verif.    N CtDt Comp. Casas dec. Grupo

*De.

MENGE          KMPMG                          QUAN    13          3

*Para.

MENGE          /PWS/ZYCIL813                  QUAN    23         12

* << Fim da Modificação