Sintoma

Criar nrseq em tabelas de retificação para identificar embarque

Solução

Criado NRSEQ do embarque nas tabelas /PWS/ZYCIT491 e /PWS/ZYCIT493

Informações Complementares

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

Nota Número 13421 Data: 19/11/2013 Hora: 10:06:36

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

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

Nota Número              : 13421

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00006

Agrupamento              : 00166

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

Referência às notas relacionadas:

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

06440  - 00001 - 7.0    - 00005  - DESENVOLVIMENTO DE FUNCIONALIDADE DE RETIFICAÇÃO DA DI

07172  - 00002 - 7.0    - 00006  - DESENVOLVIMENTO DO RELATÓRIO DE RETIFICAÇÃO DE DI

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

CRIAR NRSEQ EM TABELAS DE RETIFICAÇÃO PARA IDENTIFICAR EMBARQUE

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

Palavras Chave:

NRSEQ - SEQUENCIAL EMBARQUUE - RETIFICAÇÃO - DI

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

Objetos da nota:

TABD /PWS/ZYCIT493

TABD /PWS/ZYCIT491

REPS /PWS/MZYCI023F01

REPS /PWS/ZYCIR519

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

Modificações efetuadas em TABD /PWS/ZYCIT493

*Incluir campo abaixo

 Nome de campo  Chv Elem.dados    Tab.verif. N CtDt Comp. Grupo

 MANDT          X    MANDT                      CLNT     3

 NRSEQDI        X    /PWS/ZYCIL230              CHAR    10

 ADICAO         X    /PWS/ZYCIL267              NUMC     3

 RETIF          X    NUMC3                      NUMC     3

*<<Inicio Inclusão

 NRSEQ          X  /PWS/ZYCIL001                 CHAR    10

*<<Fim Inclusão

 WAERSREAL          WAERS                      CUKY     5

 STCD1              STCD1                      CHAR    16

...

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

Modificações efetuadas em TABD /PWS/ZYCIT491

*Incluir campo abaixo

Nome campo   Chv Elem.dados    Tab.verif.    N CtDt Comp. Grupo

MANDT        X    MANDT                         CLNT     3

NRSEQDI      X   /PWS/ZYCIL230                 CHAR    10

RETIF        X    NUMC3                         NUMC     3

*<<Inicio Inclusão

NRSEQ        X    /PWS/ZYCIL001                 CHAR    10

*<<Fim Inclusão

TPDI             /PWS/ZYCIL231                 CHAR     1

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

          itab_zycit094 WHERE

          nrseqce = /pws/zycie093-nrseqce.

      ENDIF.

      LOOP AT itab_zycit094.

        MOVE-CORRESPONDING itab_zycit094 TO wa_zycit490.

        wa_zycit490-retif = wa_zycit487-retif.

        INSERT /pws/zycit490 FROM wa_zycit490.

      ENDLOOP.

      MOVE-CORRESPONDING /pws/zycie085 TO wa_zycit491.

      wa_zycit491-retif = wa_zycit487-retif.

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

      wa_zycit491-nrseq =  itab_it-nrseq .

* << Fim da inclusão

      INSERT /pws/zycit491 FROM wa_zycit491.

      LOOP AT itab_zycit100.

        MOVE-CORRESPONDING itab_zycit100 TO wa_zycit492.

        wa_zycit492-retif = wa_zycit487-retif.

        INSERT /pws/zycit492 FROM wa_zycit492.

      ENDLOOP.

      LOOP AT itab_zycit116.

        MOVE-CORRESPONDING itab_zycit116 TO wa_zycit493.

        wa_zycit493-retif = wa_zycit487-retif.

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

      wa_zycit493-nrseq =  itab_it-nrseq .

* << Fim da inclusão

        INSERT /pws/zycit493 FROM wa_zycit493.

      ENDLOOP.

    ENDIF.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/ZYCIR519

...

  SELECT * FROM /pws/zycit487 INTO TABLE itab_zycit487

      WHERE nrseq EQ itab_zycit100-nrseq.

  SELECT * FROM /pws/zycit488 INTO TABLE itab_zycit488

      WHERE nrseq EQ itab_zycit100-nrseq.

  SELECT * FROM /pws/zycit492 INTO TABLE itab_zycit492

      WHERE nrseq EQ itab_zycit100-nrseq.               "#EC CI_NOFIRST

  IF NOT itab_zycit492[] IS INITIAL.

    SELECT * FROM /pws/zycit491 INTO TABLE itab_zycit491

          FOR ALL ENTRIES IN itab_zycit492

        WHERE nrseqdi EQ itab_zycit492-nrseqdi

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

          AND retif EQ itab_zycit492-retif.

* << Fim da exclusão

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

          AND retif EQ itab_zycit492-retif

          AND nrseq EQ itab_zycit100-nrseq.

* << Fim da inclusão

    IF sy-subrc EQ 0.

      SELECT * FROM /pws/zycit489 INTO TABLE itab_zycit489

          FOR ALL ENTRIES IN itab_zycit491

          WHERE nrseqce EQ itab_zycit491-nrbl

            AND retif EQ itab_zycit491-retif.

      SELECT * FROM /pws/zycit490 INTO TABLE itab_zycit490

          FOR ALL ENTRIES IN itab_zycit491

          WHERE nrseqce EQ itab_zycit491-nrbl

            AND retif EQ itab_zycit491-retif.

    ENDIF.

    SELECT * FROM /pws/zycit493 INTO TABLE itab_zycit493

          FOR ALL ENTRIES IN itab_zycit492

        WHERE nrseqdi EQ itab_zycit492-nrseqdi

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

          AND retif EQ itab_zycit492-retif.

* << Fim da exclusão

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

          AND retif EQ itab_zycit492-retif

          AND nrseq EQ itab_zycit100-nrseq.

* << Fim da inclusão

  ENDIF.

...