CE PLUS - Nota 001930

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Embarque

Data/Hora da Publicação: 14/08/2006 00:00:00

Data/Hora Última Alteração: 20/06/2011 12:41:53

Descrição da Nota: EMBARQUE - MENSAGEM (CADASTRAR A EMPRESA NO PROGRAMA DE RANGES

Sintoma

Erro ao colocar letras e números junto na coluna filial da tabela /pws/zygl001.

 

 

Solução

Ajustado MODULE MODIFY_ITAB2.

 

Versões Tratadas

6.0


Pré-Requisitos

Produto:

Nota

Descrição

PADRONIZAÇÃO E TRADUÇÃO DA CLASSE /PWS/ZYGL.

Informações Complementares

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

Nota Número 01930 Data: 14/08/2006 Hora: 17:08:13

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

 

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

Nota Número              : 01930

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00127

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

Referência às notas relacionadas:

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

 

01433  - 00001 - 6.0    - 00023  - PADRONIZAÇÃO E TRADUÇÃO DA CLASSE /PWS/ZYGL.

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

EMBARQUE - MENSAGEM (CADASTRAR A EMPRESA NO PROGRAMA DE RANGES

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

Palavras Chave:

EMBARQUE - MENSAGEM - CADASTRAR - EMPRESA - RANGES

 

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

Objetos da nota:

REPS /PWS/MZYGL001I01

 

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

Modificações efetuadas em REPS /PWS/MZYGL001I01

 

...

module modify_itab2 input.

  clear: itab_zyglt006_aux1,

         v_flag            .

    if /pws/zygle006-codmod eq v_mod.

      if v_mod eq 'D'.

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

        if /pws/zygle006-j_1bbranch eq space or

           /pws/zygle006-j_1bbranch eq 0.

* << Fim da exclusão

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

      IF /pws/zygle006-j_1bbranch IS INITIAL.

* << Fim da inclusão

          loop at itab_zyglt006 where j_1bbranch ne space

                                and   j_1bbranch ne 0.

            message w001 with text-010 text-011.

            message w001 with text-012.

            v_flag = '1'.

...