Sintoma

A condição de pagamento escolhida pelo usuário (entrada manual) é perdida após a execução do

"refresh" de embarque.

Solução

O programa sempre recuperava o valor guardado na tabela (/PWS/ZYCET046-ZTERM).

Informações Complementares

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

Nota Número 04556 Data: 29/08/2007 Hora: 10:27:11

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

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

Nota Número              : 04556

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00010

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

CONDIÇÃO DE PAGAMENTO MANUAL É PERDIDA APÓS REFRESH

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

Palavras Chave:

EMBARQUE CONDIÇÃO PAGAMENTO REFRESH

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

Objetos da nota:

REPS /PWS/MZYCE003F01

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

Modificações efetuadas em REPS /PWS/MZYCE003F01

...

  PERFORM progress_indicator USING 14 36

                             'Efetuando Refresh do Embarque'(m01).

  PERFORM seleciona_novos_materiais.

  PERFORM progress_indicator USING 15 36

                             'Efetuando Refresh do Embarque'(m01).

  PERFORM seleciona_novos_comex.

  PERFORM elimina_linhas_duplicadas.

ENDFORM.

FORM seleciona_dados_adicionais_pw.

  DATA: itab_003 LIKE itab_zycet003 OCCURS 0 WITH HEADER LINE.

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

  DATA: v_zterm_atual TYPE /pws/zycet046-zterm.

* << Fim da inclusão

  itab_003[]        = itab_zycet003[].

  IF sy-tcode NE c_transacao_c.

    READ TABLE itab_t001 WITH KEY bukrs = /pws/zycee001-bukrs.

    IF itab_t001-land1 EQ 'AR'.

      SELECT nrseq

             nrper

             dtincl

             nrseqper

        FROM /pws/zycet292

        INTO CORRESPONDING FIELDS OF TABLE itab_permiso

...

...

                   nrseqre NE space.

      LOOP AT itab_zycet003 WHERE NOT nrseqre IS initial.

        READ TABLE itab_003 WITH KEY nrseqre = itab_zycet003-nrseqre.

        IF itab_003-dtlibanu NE itab_zycet003-dtlibanu.

          itab_zycet003-dtlibanu = itab_003-dtlibanu.

        ENDIF.

        MODIFY itab_zycet003 TRANSPORTING dtlibanu.

      ENDLOOP.

    ENDIF.

    IF okcode NE 'SALVA'.

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

      IF NOT /pws/zycee046 IS INITIAL.

        v_zterm_atual = /pws/zycee046-zterm.

      ENDIF.

* << Fim da inclusão

      SELECT SINGLE *

             FROM /pws/zycet046

             INTO /pws/zycee046

             WHERE nrseq = /pws/zycee001-nrseq.

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

      IF NOT v_zterm_atual IS INITIAL.

        /pws/zycee046-zterm = v_zterm_atual.

      ENDIF.

* << Fim da inclusão

    ENDIF.

...