Sintoma

Inclusão da mensagem configuravel "Verificar pedido pasta confirmações" quando o pedido possuir

registro na pasta confirmação.

Solução

Atualização do programa de embarque para quando o pedido tiver confirmação o sistema exiba a

mensagem configurável de "verificar pasta confirmações".

Informações Complementares

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

Nota Número 07157 Data: 18/08/2008 Hora: 15:08:24

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

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

Nota Número              : 07157

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00061

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

Referência às notas relacionadas:

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

00227  - 00001 - 6.0    - 00021  - VERIFICAÇÃO DE PESO TOTAL NO EMBARQUE

05277  - 00002 - 7.0    - 00003  - EMBARQUE - VINCULAÇÃO DE PEDIDOS BLOQUEADOS

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

MENSAGEM CONFIGURAVEL "VERIFICAR PEDIDO PASTA CONFIRMAÇÕES"

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

Palavras Chave:

MENSAGEM - CONFIGURAVEL - EMBARQUE - CONFIRMAÇÃO - PEDIDO - VERIFICAR

/PWS/SAPMZYCI001

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

Objetos da nota:

MESS /PWS/ZYCIM139

MESS /PWS/ZYCIM140

MESS /PWS/ZYCIM141

MESS /PWS/ZYCIM142

REPS /PWS/MZYCI001F01

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

Modificações efetuadas em MESS /PWS/ZYCIM139

Criar mensagem:

139 Nota fiscal &1 possui recebimento no PW.CE.

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

Modificações efetuadas em MESS /PWS/ZYCIM140

Criar mensagem:

140 Nota fiscal &1 possui recebimento no PW.CE.

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

Modificações efetuadas em MESS /PWS/ZYCIM141

Criar mensagem:

141 Nota fiscal &1 possui remessa(s)

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

Modificações efetuadas em MESS /PWS/ZYCIM142

Criar mensagem:

142 Verificar pedido pasta confirmações

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

        v_lifnr LIKE /pws/zycie001-lifnr,

        v_inco1 LIKE /pws/zycie001-inco1,

        v_cont  TYPE i.

  DATA:  BEGIN OF itab_inco1 OCCURS 1,

           sign(1)   TYPE c,

           option(2) TYPE c,

           low       LIKE /pws/zycie001-inco1,

           high      LIKE /pws/zycie001-inco1,

         END OF itab_inco1.

  DATA: v_inco1a LIKE /pws/zycie001-inco1.

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

  DATA v_confirm TYPE c.

  DATA BEGIN OF itab_ekes OCCURS 0.

  DATA: ebeln TYPE ekes-ebeln,

        ebelp TYPE ekes-ebelp.

  DATA END OF itab_ekes.

* << Fim da inclusão

  e_subrc = '0'.

  IF sy-dynnr EQ '0300'.

    CLEAR v_cont .

    IF so_lifnr+3(1) EQ ' '.

      v_cont = v_cont + 1 .

    ENDIF.

    IF so_bednr+3(1) EQ ' '.

      v_cont = v_cont + 1.

    ENDIF.

    IF so_ebeln+3(1) EQ ' '.

...

...

                        AND   ebelp EQ itab_itens-ebelp.

    ELSEIF itab_itens-loekz EQ 'L'.

      MESSAGE i015 WITH text-341

                        itab_itens-ebeln

                        itab_itens-ebelp

                        text-339.

      DELETE itab_itens WHERE ebeln EQ itab_itens-ebeln

                        AND   ebelp EQ itab_itens-ebelp.

    ENDIF.

  ENDLOOP.

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

  SELECT ebeln ebelp FROM ekes INTO TABLE itab_ekes

      FOR ALL ENTRIES IN itab_itens

      WHERE ebeln EQ itab_itens-ebeln

        AND ebelp EQ itab_itens-ebelp.

  CLEAR v_confirm.

* << Fim da inclusão

  LOOP AT itab_itens.

    IF itab_itens-webre EQ 'X'.

      MESSAGE i013 WITH text-314 text-315.

    ENDIF.

    IF itab_itens-wepos NE 'X'.

      MESSAGE i015 WITH text-342

                        itab_itens-ebeln

                        itab_itens-ebelp

                        text-339.

      DELETE itab_itens WHERE ebeln = itab_itens-ebeln

...

...

      DELETE itab_itens WHERE ebeln = itab_itens-ebeln

                        AND   ebelp = itab_itens-ebelp.

    ENDIF.

    IF itab_itens-j_1bmatuse EQ ' ' AND

       v_land1 = 'BR'.

      MESSAGE e013 WITH text-314 text-320.

    ENDIF.

    IF itab_itens-waers = /pws/zycbt007-waersb.

      MESSAGE e013 WITH text-314 text-321.

    ENDIF.

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

    READ TABLE itab_ekes WITH KEY ebeln = itab_itens-ebeln

                                  ebelp = itab_itens-ebelp.

    IF sy-subrc EQ 0 AND

       itab_itens-wepos EQ 'X' AND

       itab_itens-elikz NE 'X'.

      v_confirm = 'X'.

    ENDIF.

* << Fim da inclusão

  ENDLOOP.

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

  IF v_confirm = 'X'.

    SELECT SINGLE * FROM /pws/zyglt217

    WHERE arbgb EQ '/PWS/ZYCIM'

    AND   msgnr EQ '142'.

    IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.

      MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '142'.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  TABLES t16fb.

  IF NOT itab_itens[] IS INITIAL.

    SELECT ebeln frgke FROM ekko

    INTO TABLE itab_bloqueio

    FOR ALL ENTRIES IN itab_itens

    WHERE ebeln EQ itab_itens-ebeln.

  ENDIF.

  LOOP AT itab_bloqueio.

    READ TABLE itab_itens  WITH KEY ebeln = itab_bloqueio-ebeln.

    IF sy-subrc EQ 0 AND

...