CE PLUS - Nota 000459

Módulo: DOC. EXPORTAÇÃO

Funcionalidade: Pasta Container

Data/Hora da Publicação: 15/12/2005 00:00:00

Data/Hora Última Alteração: 21/02/2011 14:43:29

Descrição da Nota: CONTAINER TRAZ ITENS DEVOLVIDOS COMPLETAMENTE

Sintoma

Ao devolver completamente um item no Embarque de Exportação e chamar a funcionalidade de Container,

os dados do item devolvido aparecem no Container.

 

 

Solução

Efetuar o cálculo de forma correta.

 

Versões Tratadas

6.0


Pré-Requisitos

Produto:

Nota

Descrição

ORDENS DE DEVOLUÇÃO CONSIDERADAS NO PROGRAMA DE CONTAINER

Informações Complementares

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

Nota Número 00459 Data: 15/12/2005 Hora: 15:35:50

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

 

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

Nota Número              : 00459

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00093

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

Referência às notas relacionadas:

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

 

00415  - 00001 - 6.0    - 00022  - ORDENS DE DEVOLUÇÃO CONSIDERADAS NO PROGRAMA DE CONTAINER

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

CONTAINER TRAZ ITENS DEVOLVIDOS COMPLETAMENTE

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

Palavras Chave:

EXPORTAÇÃO CONTAINER DEVOLUÇÃO

 

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

Objetos da nota:

REPS /PWS/MZYCE106F01

 

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

Modificações efetuadas em REPS /PWS/MZYCE106F01

 

...

  DATA: END   OF it_002_aux.

  DATA: BEGIN OF it_vbak_aux OCCURS 0,

          vbeln LIKE vbak-vbeln,

          vbtyp LIKE vbak-vbtyp,

        END OF it_vbak_aux.

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

  DATA: BEGIN OF itab_vbap2 OCCURS 0,

          vbeln  TYPE vbap-vbeln,

          posnr  TYPE vbap-posnr,

          matnr  TYPE vbap-matnr,

          netwr  TYPE vbap-netwr,

          kwmeng TYPE vbap-kwmeng,

          vrkme  TYPE vbap-vrkme,

        END OF itab_vbap2.

  DATA: BEGIN OF itab_vbrp2 OCCURS 0,

          vbeln TYPE vbrp-vbeln,

          posnr TYPE vbrp-posnr,

          netwr TYPE vbrp-netwr,

        END OF itab_vbrp2.

* << Fim da inclusão

  SELECT * FROM /pws/zycet002

           INTO TABLE it_zycet002

           WHERE nrseq = /pws/zycee001-nrseq.

  SELECT * FROM /pws/zycet023

           INTO TABLE it_zycet023.

...

 

...

    ENDLOOP.

    CLEAR it_zycet002. REFRESH it_zycet002.

    it_zycet002[] = it_zycet002_ov[].

  ENDIF.

  IF v_autom NE 'X'.

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

    IF NOT it_zycet002[] IS INITIAL.

      SELECT vbeln

         posnr

         matnr

         netwr

         kwmeng

         vrkme

         FROM vbap

         INTO TABLE itab_vbap2

         FOR ALL ENTRIES IN it_zycet002

         WHERE vbeln = it_zycet002-vbeln_va AND

               posnr = it_zycet002-aupos.

      SELECT vbeln

             posnr

             netwr

             FROM vbrp

             INTO TABLE itab_vbrp2

             FOR ALL ENTRIES IN it_zycet002

             WHERE vbeln = it_zycet002-vbeln_vf AND

                   posnr = it_zycet002-posnr.

    ENDIF.

* << Fim da inclusão

    LOOP AT it_zycet002.

      nrseq = nrseq + 001.

      itab_zycee085-nrseq = nrseq.

      SHIFT itab_zycee085-nrseq RIGHT DELETING TRAILING space.

      DO 9 TIMES.

...

 

...

      MOVE : it_zycet002-mandt TO itab_zycee085-mandt,

             it_zycet002-vbeln_va TO itab_zycee085-vbeln_va,

             it_zycet002-aupos    TO itab_zycee085-aupos,

             it_zycet002-vbeln_vf TO itab_zycee085-vbeln_vf,

             it_zycet002-posnr TO itab_zycee085-posnr,

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

             it_zycet002-vlme  TO itab_zycee085-vlme,

* << Fim da exclusão

             it_zycet002-ntgew TO itab_zycee085-ntgew,

             it_zycet002-brgew TO itab_zycee085-brgew,

             it_zycet002-shkzg TO itab_zycee085-shkzg,

             it_zycet002-nfnum TO itab_zycee085-nfnum,

             it_zycet002-auart TO itab_zycee085-auart,

             it_zycet002-waers TO itab_zycee085-waers,

             it_zycet002-gewei TO itab_zycee085-gewei,

             it_zycet002-bukrs TO itab_zycee085-bukrs,

             it_zycet002-fkart TO itab_zycee085-fkart,

             it_zycet002-pstyv TO itab_zycee085-pstyv.

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

      IF itab_zycee085-vbeln_va IS INITIAL AND

         itab_zycee085-aupos    IS INITIAL.

        MOVE: it_zycet002-ebeln TO itab_zycee085-vbeln_va,

              it_zycet002-ebelp TO itab_zycee085-aupos.

      ENDIF.

      READ TABLE itab_vbap2 WITH KEY vbeln = it_zycet002-vbeln_va

                                     posnr = it_zycet002-aupos.

      IF sy-subrc = 0.

        IF itab_vbap2-kwmeng > 0.

          PERFORM converte_um USING it_zycet002-fkimg

                                    it_zycet002-vrkme

                                    itab_vbap2-vrkme

                                    itab_vbap2-matnr

                           CHANGING it_zycet002-fkimg.

          itab_zycee085-vlme =

                       ( itab_vbap2-netwr / itab_vbap2-kwmeng ) *

                         it_zycet002-fkimg.

        ELSE.

          itab_zycee085-vlme = itab_vbap2-netwr.

        ENDIF.

      ENDIF.

      READ TABLE itab_vbrp2 WITH KEY vbeln = it_zycet002-vbeln_vf

                                     posnr = it_zycet002-posnr.

      IF sy-subrc = 0.

        MOVE: itab_vbrp2-netwr TO itab_zycee085-vlme.

      ENDIF.

* << Fim da inclusão

      APPEND itab_zycee085.

    ENDLOOP.

    EXPORT itab_zycee085 TO MEMORY ID 'ODOC'.

    CALL FUNCTION '/PWS/ZYCE_TRATA_ORDEM'

         TABLES

...

 

...

           object_id  = 'CATSXT_START_IMAGE'

           object_url = 'CATSXT_START_IMAGE'

      EXCEPTIONS

           OTHERS     = 1.

ENDFORM.

* >> Início da inclusão:

FORM converte_um USING value(p_quant_de)

                       value(p_um_de)    LIKE mara-meins

                       value(p_um_para)  LIKE mara-meins

                       value(p_matnr)    LIKE mara-matnr

              CHANGING       p_quant_para.

  DATA: v_i_menge LIKE ekpo-menge,

        v_e_menge LIKE ekpo-menge.

  IF p_quant_de IS INITIAL.

    CLEAR p_quant_para.

    EXIT.

  ENDIF.

  IF p_um_de EQ p_um_para.

    p_quant_para = p_quant_de.

    EXIT.

  ENDIF.

  v_i_menge = p_quant_de.

  CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'

       EXPORTING

            i_matnr              = p_matnr

            i_in_me              = p_um_de

            i_out_me             = p_um_para

            i_menge              = v_i_menge

       IMPORTING

            e_menge              = v_e_menge

       EXCEPTIONS

            error_in_application = 1

            error                = 2

            OTHERS               = 3.

  IF sy-subrc NE 0.

    p_quant_para = p_quant_de.

  ELSE.

    p_quant_para = v_e_menge.

  ENDIF.

endform.

* << Fim da inclusão