Sintoma

A DI ao ser transmitida para o Siscomex e possuindo duas adições está misturando os materiais nas

adições, e o valor total da adições ficou incorreto.

Solução

Atualizado ordenação das tabelas de transmissão na função /PWS/ZYCI_TRANSFER_DI. Ou  seja,

atualizado a descrição do item na pasta mercadoria 2 da adição.

Informações Complementares

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

Nota Número 01883 Data: 04/08/2006 Hora: 18:16:22

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

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

Nota Número              : 01883

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00125

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DESCRIÇÃO DO TEXTO INCORRETA NA DI E VALORES ERRADOS NA TRANSMISSAO

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

Palavras Chave:

TEXTO - DETALHE DO ITEM - DI - TRANSMISSÃO - READ_TEXT

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSFER_DI

REPS /PWS/MZYCI023F01

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI

...

                   nrseq = it_itens_di-nrseq

                   ebeln = it_itens_di-ebeln

                   ebelp = it_itens_di-ebelp.

              IF sy-subrc EQ 0.

                MOVE-CORRESPONDING it_det_itens_di TO it_adicao_di.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

              MOVE : it_det_itens_di-advalicms TO it_adicao_di-aliqicms.

* << Fim da inclusão

                CLEAR: it_adicao_di-qtd_iten,

                       it_adicao_di-ntgew,

                       it_adicao_di-qtdeumest,

                       it_adicao_di-vlmle,

                       it_adicao_di-vlmler.

...

...

                  ebelp = it_itens_di-ebelp.

        IF sy-subrc EQ 0.

          MOVE-CORRESPONDING

               it_det_itens_di TO it_resumoit_di.

        ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

        move it_itens_di-adicao to it_resumoit_di-adicao.

* << Fim da inclusão

        CONCATENATE wa_085-nrseqdi

                    it_itens_di-nrseq

                    it_itens_di-ebeln

                    it_itens_di-ebelp INTO v_txtki.

        CLEAR: rtexti.

...

...

          ENDLOOP.

        ENDLOOP.

        SORT it_acresc_sisco BY adicao codigo.

        SORT it_deduc_sisco  BY adicao codigo.

      ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

    ENDIF.

  ENDIF.

  DATA: it_det_itens_di_aux LIKE it_det_itens_di

        OCCURS 0 WITH HEADER LINE,

        IT_RESUMOIT_DI_aux LIKE IT_RESUMOIT_DI

        OCCURS 0 WITH HEADER LINE.

  LOOP AT it_itens_di.

    READ TABLE it_det_itens_di WITH KEY

        nrseq = it_itens_di-nrseq

        ebeln = it_itens_di-ebeln

        ebelp = it_itens_di-ebelp.

    IF sy-subrc EQ 0.

      MOVE it_det_itens_di TO it_det_itens_di_aux.

      APPEND it_det_itens_di_aux.

* << Fim da inclusão

    ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

    READ TABLE IT_RESUMOIT_DI WITH KEY

        nrseq  = it_itens_di-nrseq

        ebeln  = it_itens_di-ebeln

        ebelp  = it_itens_di-ebelp

        adicao = it_itens_di-adicao.

    IF sy-subrc EQ 0.

      MOVE IT_RESUMOIT_DI TO IT_RESUMOIT_DI_aux.

      APPEND IT_RESUMOIT_DI_aux.

* << Fim da inclusão

  ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

  ENDLOOP.

  CLEAR   : it_det_itens_di[], IT_RESUMOIT_DI[].

  REFRESH : it_det_itens_di[], IT_RESUMOIT_DI[].

  MOVE:  it_det_itens_di_aux[] TO it_det_itens_di[],

         IT_RESUMOIT_DI_aux[]  to IT_RESUMOIT_DI[].

* << Fim da inclusão

ENDFUNCTION.

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

             ebelp  = wa_it-ebelp.

  LOOP AT itab_zycit115b.

    MOVE itab_zycit115b TO itab_zycit115.

    APPEND itab_zycit115.

  ENDLOOP.

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

  read table rtexti index 1.

  move itab_it-especificacao to rtexti-TDLINE.

  modify rtexti index 1.

* << Fim da inclusão

  CONCATENATE /pws/zycie085-nrseqdi

                 itab_it-nrseq

                 itab_it-ebeln

                 itab_it-ebelp

                 INTO v_txtki.

...