Sintoma

Inclusão de botão para replicar depósito para todos os itens da nota

Solução

Inclusão de botão para replicar depósito para todos os itens da nota

Informações Complementares

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

Nota Número 07402 Data: 03/10/2008 Hora: 15:12:27

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

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

Nota Número              : 07402

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00067

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

Referência às notas relacionadas:

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

05567  - 00001 - 7.0    - 00004  - AJUSTADO TRATAMENTO PARA EXIBIÇÃO DO BOTÃO DE ESTORNO DO RECEBIME

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

INCLUSÃO DE BOTÃO PARA REPLICAR DEPÓSITO PARA TODOS OS ITENS DA NOTA

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

Palavras Chave:

REPLICAR - DEPÓSITO - RECEBIMENTO - ITENS - NOTA - FISCAL

/PWS/SAPMZYCI017

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

Objetos da nota:

CUAD /PWS/SAPMZYCI017

REPS /PWS/MZYCI017F01

REPS /PWS/MZYCI017O01

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

Modificações efetuadas em CUAD /PWS/SAPMZYCI017

*Status GUI : 200

*Tecla de função:

*Inclusão:

Código de função:     REPL

Categoria de função:  Função de aplicação

Texto de função:      Replicar depósito

Nome de ícone:        ICON_WORKFLOW_FORK

Tecla de função:      Shift-F7                       REPL                 Replicar depósito

Barra de botões: Incluir o botão na posição 06.

*Status GUI : 100

*Tecla de função:

*Inclusão:

Código de função:     REPL

Categoria de função:  Função de aplicação

Texto de função:      Replicar depósito

Nome de ícone:        ICON_WORKFLOW_FORK

Tecla de função:      Shift-Ctrl-0

Barra de botões: Incluir o botão na posição 06.

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

        ENDIF.

      ENDIF.

    WHEN 'LOTE'.

      PERFORM verifica_lote.

      IF NOT v_suj_lote IS INITIAL.

        PERFORM divide_lote.

      ENDIF.

    WHEN 'VISUA'.

      v_visualiza = 'X'.

      PERFORM ver_rateio.

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

    WHEN  'REPL'.

      IF gc_subscreen-prog EQ '0200'.

        LOOP AT itab_zycit044 WHERE mark EQ 'X'.

          MODIFY itab_zycit044 TRANSPORTING lgort

                  WHERE lgort NE itab_zycit044-lgort.

        ENDLOOP.

        IF sy-subrc NE 0.

        ENDIF.

      ELSEIF gc_subscreen-prog EQ '0100'.

        LOOP AT itab_zycit042 WHERE mark EQ 'X'.

          MODIFY itab_zycit042 TRANSPORTING lgort

                  WHERE lgort NE itab_zycit042-lgort.

        ENDLOOP.

      ENDIF.

* << Fim da inclusão

  ENDCASE.

  CLEAR okcode.

ENDFORM.

FORM fill_date_mr1m.

  DATA   v_gjahr LIKE rbkpv-gjahr.

  DATA:  t_fields(20) TYPE c VALUE 'J_1BNFDOC-NFE',

         t_fields2(20) TYPE c VALUE 'J_1BNFDOC-DOCSTAT'.

  FIELD-SYMBOLS: <docsta> TYPE ANY,

                 <nfe> TYPE ANY.

  CLEAR   itab_itemdata.

...

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

Modificações efetuadas em REPS /PWS/MZYCI017O01

...

    ENDIF.

  ELSE.

    CLEAR v_desctm.

  ENDIF.

ENDMODULE.

MODULE status_0050 OUTPUT.

  CASE gc_subscreen-prog.

    WHEN '0200'.

      IF sy-tcode EQ '/PWS/ZYCI017_E'

          OR v_tcode = '/PWS/ZYCI017_E'.

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

        it_code-fcode = 'REPL'. APPEND it_code.

* << Fim da inclusão

        it_code-fcode = 'ESTOR'. APPEND it_code.

        it_code-fcode = 'RECEB'. APPEND it_code.

        SET PF-STATUS '0200' EXCLUDING it_code.

        SET TITLEBAR '0200'.

      ELSE.

        SET PF-STATUS '0200'.

        SET TITLEBAR '0200_A'.

      ENDIF.

      gv_subscreen_0050 = '0200'.

    WHEN '0100'.

      IF sy-tcode = '/PWS/ZYCI017_E' OR v_tcode = '/PWS/ZYCI017_E'.

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

        it_code-fcode = 'REPL'. APPEND it_code.

* << Fim da inclusão

        itab_pf_status-fcode = 'ESTOR'.

        APPEND itab_pf_status.

        itab_pf_status-fcode = 'RECEB'.

        APPEND itab_pf_status.

        SET PF-STATUS '0100' EXCLUDING itab_pf_status .

      ELSE.

        SET PF-STATUS '0100'.

      ENDIF.

      IF sy-tcode = '/PWS/ZYCI017_E' OR v_tcode = '/PWS/ZYCI017_E'.

        SET TITLEBAR '0100'.

...