Sintoma

Necessário desenvolvimento para configurar mensagem para permitir registro da DI repetido.

Solução

Feito desenvolvimento para configurar mensagem para permitir registro da DI repetido.

Informações Complementares

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

Nota Número 08821 Data: 13/08/2009 Hora: 11:45:49

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

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

Nota Número              : 08821

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00109

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

Referência às notas relacionadas:

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

06608  - 00001 - 7.0    - 00005  - INCLUSÃO DE VERIFICAÇÃO DO NUMERO DA DECLARAÇÃO DA DI

07828  - 00002 - 7.0    - 00008  - DUMP AO SAIR DA DI QUANDO JÁ POSSUI UM NÚMERO IGUAL AO DA DECLARA

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

CONFIGURAR MENSAGEM PARA PERMITIR REGISTRO DA DI REPETIDO

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

Palavras Chave:

MENSAGEM - DI - REGISTRO - REPETIDO

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

Objetos da nota:

MESS /PWS/ZYCIM146

REPS /PWS/MZYCI023F03

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

Modificações efetuadas em MESS /PWS/ZYCIM146

*Criada a mensagem 146 na classe de mensagens /PWS/ZYCIM

146 Número de declaração já utilizado na DI

en  Declaration number is already used.

es  Numero de declaracion utilizado en DI

*Não esquecer de parametrizar na /PWS/ZYGLT217 a mensagem 146 com esse texto e o tipo de mensagem

*(informação, aviso ou erro).

*O campo ARBGB = /PWS/ZYCIM,

*MSGNR = 146, TEXT igual abaixo

*MSGTP será o que eles querem fazer: I = Informação e W = Aviso (não barram o programa) e E = erro,

*aborta a ação.

*

*Português: Número de declaração já utilizado na DI

*Espanhol : Declaration number is already used.

*Inglês   : Numero de declaracion utilizado en DI

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

FORM verifica_nrdi.

  DATA: v_nrseqdi TYPE /pws/zycie085-nrseqdi.

  IF NOT t001-land1 EQ 'CL' AND NOT t001-land1 EQ 'AR'.

    IF NOT /pws/zycie085-nrdi IS INITIAL.

      SELECT SINGLE nrseqdi FROM /pws/zycit085 INTO v_nrseqdi

          WHERE nrseqdi NE /pws/zycie085-nrseqdi

            AND nrdi EQ /pws/zycie085-nrdi.             "#EC CI_NOFIELD

      IF sy-subrc EQ 0 .

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

        IF okcode EQ 'BACK' OR okcode EQ 'LEAV'.

          MESSAGE i015 WITH text-254 v_nrseqdi.

          v_grava_ok = 'F'.

        ELSE.

          MESSAGE e015 WITH text-254 v_nrseqdi.

* << Fim da exclusão

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

      SELECT SINGLE * FROM /pws/zyglt217

        WHERE arbgb EQ '/PWS/ZYCIM'

        AND   msgnr EQ '146'.

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

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

* << Fim da inclusão

        ENDIF.

      ENDIF.

    ENDIF.

    v_tam_nrdi = strlen( /pws/zycie085-nrdi ).

    IF v_tam_nrdi > 10.                                   "#EC PORTABLE

      SELECT SINGLE * FROM /pws/zyglt217

        WHERE arbgb EQ '/PWS/ZYCIM'

        AND   msgnr EQ '127'.

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

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

...