Sintoma

Ajustado programa para permitir tipo de conhecimento 25 em processos com transporte Marítimo para os

países cadastrados na tabela /pws/zycit477.

Solução

Ajustado programa para permitir tipo de conhecimento 25 em processos com transporte Marítimo para os

países cadastrados na tabela /pws/zycit477.

Informações Complementares

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

Nota Número 10249 Data: 07/06/2010 Hora: 16:01:15

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

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

Nota Número              : 10249

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00026

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AJUSTE PARA PERMITIR TIPO DE CONHECIMENTO 25 PARA TRANSP. MARÍTIMO

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

Palavras Chave:

TRANSPORTE - MARÍTIMO - TIPO - CONHECIMENTO - 25 - PAÍSES

/PWS/SAPMZYCI002 - /PWS/ZYCIT477

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

Objetos da nota:

REPS /PWS/MZYCI002F02

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

Modificações efetuadas em REPS /PWS/MZYCI002F02

...

FORM verify_tpconh.

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

  CLEAR: itab_zycit477.

  READ TABLE itab_zycit477 WITH KEY land = t001-land1.

* << Fim da inclusão

  CASE /pws/zycie093-meiotransp.

    WHEN 'TA'.

      IF ( /pws/zycie093-tpconh  NE '01'  AND

           /pws/zycie093-tpconh  NE '03'  AND

           /pws/zycie093-tpconh  NE '14' ).

        v_changed = '2'.

        MESSAGE i015 WITH text-034 text-035.

        EXIT.

      ENDIF.

    WHEN 'MA' OR 'FR' OR 'FL' OR 'LC'.

      IF ( /pws/zycie093-meiotransp EQ 'MA' ) AND

         ( /pws/zycie093-tpconh   NE '10'     AND

           /pws/zycie093-tpconh   NE '12'     AND

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

        NOT ( /pws/zycie093-tpconh EQ '25'    AND

              itab_zycit477-land NE space )   AND

* << Fim da inclusão

           /pws/zycie093-tpconh   NE '99'   ).

        v_changed = '2'.

        MESSAGE i015 WITH text-034 text-035.

        EXIT.

      ENDIF.

      IF ( /pws/zycie093-meiotransp EQ 'FR' ) AND

         ( /pws/zycie093-tpconh     NE '17'   AND

           /pws/zycie093-tpconh     NE '18'   AND

           /pws/zycie093-tpconh     NE '19' ).

        v_changed = '2'.

...