Sintoma

Ao entrar na pasta mercadoria da adição, não estava sendo preenchida conforme parâmetros

/PWS/ZYCIT195 E /PWS/ZYCIT196, e os campos já vinham preenchidos.

Solução

Foi criado tratamento para verificar quais campos estão preenchidos, dependendo se os campos

especificação, nível e atributo, traz descrição da tabela /PWS/ZYCIT196 caso esteje somente os

campos nível e atributo traz a descrição descrição da tabela /PWS/ZYCIT195. Os campos são

preenchidos pelo usuário.

Informações Complementares

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

Nota Número 02100 Data: 14/09/2006 Hora: 10:39:49

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

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

Nota Número              : 02100

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00129

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AJUSTE NO PROGRAMA DA DI, DESCRIÇÃO NA PASTA MERCADORIA

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

Palavras Chave:

NVE, /PWS/ZUCIT195, /PWS/ZYCIT196, ADIÇÃO, PASTA 3,

FORM LOAD_ESPECDES_AUX, NÍVEL, ATRIBUTO, ESPECIFICAÇÃO

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023F04

REPS /PWS/MZYCI023O01

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

      LOOP AT itab_zycit195.

        CLEAR: itab_zycit118b.

        itab_zycit118b-nrseqdi  = /pws/zycie085-nrseqdi.

        itab_zycit118b-adicao   = wa_it-adicao.

        itab_zycit118b-steuc    = v_ncm02.

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

        itab_zycit118b-nivel    = itab_zycit195-nivel.

        itab_zycit118b-atributo = itab_zycit195-atributo.

* << Fim da exclusão

        APPEND itab_zycit118b.

      ENDLOOP.

    ENDIF.

  ENDIF.

  LOOP AT itab_zycit121 WHERE adicao = wa_it-adicao.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

FORM load_especdes.

  CLEAR: a_espde.

  SELECT SINGLE descricao FROM /pws/zycit196 INTO a_espde WHERE

         steuc         = /pws/zycie118-steuc    AND

         atributo      = /pws/zycie118-atributo AND

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

         nivel         = /pws/zycie118-nivel    AND

* << Fim da inclusão

         especificacao = /pws/zycie118-especificacao.

ENDFORM.

FORM call_li USING    p_li.

  SET PARAMETER ID '/PWS/ZYCIP078' FIELD p_li.

  IF v_acto EQ 'A' AND /pws/zycie085-dtreg IS INITIAL.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F04

...

  ELSE.

    CLEAR: v_descr, p_campo2.

    MESSAGE e015 WITH text-238.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

FORM load_especdes_aux.

  CLEAR: a_espde.

  SELECT SINGLE descricao FROM /pws/zycit195 INTO a_espde WHERE

         steuc         = /pws/zycie118-steuc AND

         nivel         = /pws/zycie118-nivel AND

         atributo      = /pws/zycie118-atributo.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI023O01

...

MODULE fill_struct115 OUTPUT.

  MOVE itab_zycit115b TO /pws/zycie115.

ENDMODULE.

MODULE fill_struct118 OUTPUT.

  MOVE itab_zycit118b TO /pws/zycie118.

* >> Início da exclusão: MODULE FILL_STRUCT118

  IF NOT /pws/zycie118-especificacao IS INITIAL.

* << Fim da exclusão

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

  IF NOT /pws/zycie118-especificacao IS INITIAL AND

     NOT /pws/zycie118-nivel IS INITIAL AND

     NOT /pws/zycie118-atributo IS INITIAL.

* << Fim da inclusão

    PERFORM load_especdes.

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

  ELSEIF NOT /pws/zycie118-nivel IS INITIAL AND

         NOT /pws/zycie118-atributo IS INITIAL.

    PERFORM load_especdes_aux.

* << Fim da inclusão

  ENDIF.

ENDMODULE.

MODULE fill_struct121b OUTPUT.

  MOVE itab_zycit121b TO /pws/zycie121.

  IF /pws/zycie121-moedanac EQ 'S'.

...