CE PLUS - Nota 004349

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DI

Data/Hora da Publicação: 06/08/2007 00:00:00

Data/Hora Última Alteração: 22/02/2011 13:47:55

Descrição da Nota: NA DI, QUANDO HÁ MAIS DE 2 ADIÇÕES, REPETE O NÚMERO DOS ITENS

Sintoma

na DI de nacionalização, quando um item tem mais de 2 adições, no terceiro item ele repete a

numeração do primeiro, deixando a adição 1-2-1 respectivamente.

 

 

Solução

Atualização do programa da DI para quando tiver alteração nas adições o sistema recalcule o número

do ítem na pasta mercadoria da adição.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

DECLARAÇÃO DE IMPORTAÇÃO - CAMPO ITEM ADIÇÃO SISCOMEX

Informações Complementares

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

Nota Número 04349 Data: 06/08/2007 Hora: 11:24:21

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

 

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

Nota Número              : 04349

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00006

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

Referência às notas relacionadas:

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

 

04213  - 00001 - 7.0    - 00002  - DECLARAÇÃO DE IMPORTAÇÃO - CAMPO ITEM ADIÇÃO SISCOMEX

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

NA DI, QUANDO HÁ MAIS DE 2 ADIÇÕES, REPETE O NÚMERO DOS ITENS

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

Palavras Chave:

ADIÇÃO - DI - VÁRIOS ITENS -NUMERAÇÃO INCORRETA

 

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

Objetos da nota:

DYNP /PWS/SAPMZYCI023                        0322

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023O01

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI023                        0322

 

 

O campo  WA_ITB-ITEM_ADI_SISC foi fechado na tela.

 

 

 

   Nome

      Ctg.      Linha   Coluna  CmprDf  CmVis   Altura  Format Dict  Modif At.Des.Só At

      Gr1 Gr2 Gr3 Gr4  SPA GPA ID parâm             Cód.F                TCmp   TpoLoopExbLoop

      Outros atributos

 

*DE

 - WA_ITB-ITEM_ADI_SISC

      I/O        1       13       3       3       1     NUMC               Ent Off

      PossRol, Elem.TC

 

*Para

 - WA_ITB-ITEM_ADI_SISC

      I/O        1       13       3       3       1     NUMC                   Off

      PossRol, Elem.TC

 

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

 

...

    it_adi-nrseqd        = itab_it_aux-nrseqd   .

    CONCATENATE /pws/zycie085-identify '-' it_adi-adicao

                INTO it_adi-identify.

    APPEND it_adi.

    READ TABLE itab_zycit100_temp WITH KEY nrseq = itab_it_aux-nrseq

                                           ebeln = itab_it_aux-ebeln

                                           ebelp = itab_it_aux-ebelp.

    IF sy-subrc = 0.

      MOVE itab_it_aux-adicao TO itab_zycit100_temp-adicao.

      MODIFY itab_zycit100_temp INDEX v_tabix TRANSPORTING adicao.

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

    ENDIF.

  ENDLOOP.

  SORT itab_it_aux BY adicao ebeln ebelp.

  READ TABLE itab_it_aux INDEX 1.

  v_adic = itab_it_aux-adicao.

  CLEAR v_cont .

  LOOP AT itab_it_aux.

    v_tabix = sy-tabix.

    IF v_adic = itab_it_aux-adicao.

      itab_it_aux-item_adi_sisc = v_cont + 1 .

    ELSE.

      CLEAR v_cont.

      itab_it_aux-item_adi_sisc = v_cont + 1 .

* << Fim da inclusão

    ENDIF.

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

    v_adic = itab_it_aux-adicao.

    MODIFY itab_it_aux INDEX v_tabix.

    itab_it-item_adi_sisc = itab_it_aux-item_adi_sisc.

    MODIFY itab_it TRANSPORTING item_adi_sisc

           WHERE ebeln EQ itab_it_aux-ebeln

           AND   ebelp EQ itab_it_aux-ebelp.

    v_cont = v_cont + 1.

* << Fim da inclusão

  ENDLOOP.

  MOVE: it_adi[]   TO it_alist[],

        it_adi[]   TO it_adia[].

  DELETE ADJACENT DUPLICATES FROM it_alist COMPARING adicao.

  DATA: local_adia LIKE it_adia.

  SORT it_adia BY adicao valor.

  DESCRIBE TABLE it_alist      LINES v_line.

  DESCRIBE TABLE itab_zycit116 LINES v_linha.

  IF v_line NE v_linha.

    IF v_dit EQ 'N'.

...