Sintoma

O programa de composição não está preenchendo o peso liquido e bruto para os processos de trading

company.

Solução

Ajustar o programa para trazer estás informações da tabela vbrp.

Informações Complementares

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

Nota Número 03668 Data: 14/05/2007 Hora: 07:33:00

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

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

Nota Número              : 03668

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00165

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

Referência às notas relacionadas:

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

02251  - 00001 - 6.0    - 00025  - COMPOSIÇÃO ISENÇÃO(EXPORTAÇÃO, TRADING COMPANY, COMERCIAL EXPORTA

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

PREENCHE O PESO LIQUIDO E BRUTO PARA PROCESSOS DE TRADING COMPANY

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

Palavras Chave:

PREENCHE - PESO - BRUTO - LIQUIDO - TRADING - COMPANY - COMPOSIÇÃO

/PWS/SAPMZYCI064

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

Objetos da nota:

REPS /PWS/MZYCI064F03

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

Modificações efetuadas em REPS /PWS/MZYCI064F03

...

    itab_cent_ei = itab_di_final-werks.

    COLLECT itab_cent_ei.

  ENDLOOP.

  DELETE itab_cent_ei WHERE werks EQ space.

  SORT itab_cent_ei BY werks.

  CALL SCREEN '0320' STARTING AT 30 4.

ENDFORM.

FORM comerc_exp.

  DATA: itab_vbfa_aux   LIKE itab_vbfa     OCCURS 0 WITH HEADER LINE,

        itab_zycit259_d TYPE /pws/zycit259 OCCURS 0 WITH HEADER LINE.

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

  DATA: BEGIN OF itab_vbrp OCCURS 0.

  DATA: vbeln TYPE vbrp-vbeln,

        posnr TYPE vbrp-posnr,

        ntgew TYPE vbrp-ntgew,

        brgew TYPE vbrp-brgew,

        gewei TYPE vbrp-gewei.

  DATA: END OF itab_vbrp.

* << Fim da inclusão

  IF itab_zycit472[] IS INITIAL.

    SELECT * FROM /pws/zycit472 INTO TABLE itab_zycit472.

    SELECT * FROM /pws/zycit473 INTO TABLE itab_zycit473.

  ENDIF.

  REFRESH itab_nota_c.

  IF NOT itab_zycit281[] IS INITIAL.

    SELECT a~docnum a~docdat a~parid a~nfnum a~series b~refkey

           b~refitm b~menge  b~meins b~netpr b~netwr

           b~werks  b~cfop   b~nbm b~matnr b~itmnum

           b~netfre b~netins a~waerk

...

...

  IF NOT itab_vbfa_aux[] IS INITIAL.

    SELECT * FROM /pws/zycit259 INTO TABLE itab_zycit259_d

        FOR ALL ENTRIES IN itab_vbfa_aux

        WHERE nrseqd NE /pws/zycie258-nrseqd

          AND vbeln_vf EQ itab_vbfa_aux-vbeln

          AND posnr    EQ itab_vbfa_aux-posnn.

  ENDIF.

  LOOP AT itab_zycit259_d.

    DELETE itab_nota_c WHERE refkey EQ itab_zycit259_d-vbeln_vf

                         AND refitm EQ itab_zycit259_d-posnr.

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

    DELETE itab_vbfa_aux

      WHERE vbeln EQ itab_zycit259_d-vbeln_vf

        AND posnn EQ itab_zycit259_d-posnr.

    .

* << Fim da inclusão

  ENDLOOP.

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

  IF NOT itab_vbfa_aux[] IS INITIAL.

    SELECT vbeln posnr ntgew brgew gewei FROM vbrp

            INTO TABLE itab_vbrp

            FOR ALL ENTRIES IN itab_vbfa_aux

            WHERE vbeln EQ itab_vbfa_aux-vbeln

              AND posnr EQ itab_vbfa_aux-posnn.

  ENDIF.

* << Fim da inclusão

  LOOP AT itab_nota_c.

    READ TABLE itab_det_exp_final WITH KEY

                              vbeln_vf = itab_nota_c-refkey

                              posnr    = itab_nota_c-refitm.

    IF sy-subrc EQ 0.

      CONTINUE.

    ENDIF.

    CLEAR: itab_det_exp_final.

    READ TABLE itab_zycit281 WITH KEY matnr = itab_nota_c-matnr

                                    werks = itab_nota_c-werks.

...

...

          MODIFY itab_nota_c TRANSPORTING werks

                WHERE matnr EQ itab_nota_c-matnr.

        ENDIF.

      ENDIF.

    ENDIF.

    CLEAR: itab_det_exp_final.

    READ TABLE itab_vbfa_1 WITH KEY vbeln = itab_nota_c-refkey

                                  posnn = itab_nota_c-refitm

                                                  vbtyp_v = 'C'.

    IF sy-subrc EQ 0.

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

      MOVE: itab_vbfa_1-vbelv TO itab_det_exp_final-vbeln_va,

            itab_vbfa_1-posnv TO itab_det_exp_final-posnr   .

* << Fim da exclusão

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

      MOVE: itab_vbfa_1-vbelv TO itab_det_exp_final-vbeln_va.

* << Fim da inclusão

    ELSE.

      CONTINUE.

    ENDIF.

    READ TABLE itab_vbfa_1 WITH KEY vbeln = itab_nota_c-refkey

                                    posnn = itab_nota_c-refitm

                                                  vbtyp_v = 'J'.

    IF sy-subrc EQ 0.

      MOVE: itab_vbfa_1-vbelv TO itab_det_exp_final-vbeln_vl,

            itab_vbfa_1-posnv TO itab_det_exp_final-posnl,

            itab_vbfa_1-vbelv TO itab_det_exp_final-fornec    ,

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

            itab_vbfa_1-posnv TO itab_det_exp_final-it_fornec ,

            itab_vbfa_1-gewei TO itab_det_exp_final-gewei   ,

            itab_vbfa_1-ntgew TO itab_det_exp_final-ntgew   ,

            itab_vbfa_1-brgew TO itab_det_exp_final-brgew   .

* << Fim da exclusão

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

            itab_vbfa_1-posnv TO itab_det_exp_final-it_fornec .

* << Fim da inclusão

    ELSE.

      CONTINUE.

    ENDIF.

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

    CLEAR: itab_vbrp.

    READ TABLE itab_vbrp WITH KEY

                              vbeln = itab_vbfa_1-vbeln

                              posnr = itab_vbfa_1-posnn.

    MOVE: itab_vbrp-gewei TO itab_det_exp_final-gewei   ,

          itab_vbrp-ntgew TO itab_det_exp_final-ntgew   ,

          itab_vbrp-brgew TO itab_det_exp_final-brgew   .

* << Fim da inclusão

    MOVE:

        /pws/zycie258-nrseqd    TO itab_det_exp_final-nrseqd  ,

        /pws/zycie258-lifnr     TO itab_det_exp_final-lifnr   ,

        itab_zycit281-werks     TO itab_det_exp_final-werks   ,

        itab_zycit281-stlnr     TO itab_det_exp_final-stlnr   ,

        itab_zycit281-stlal     TO itab_det_exp_final-stlal   ,

        itab_zycit281-stlan     TO itab_det_exp_final-stlan   ,

        itab_nota_c-matnr       TO itab_det_exp_final-codmat  ,

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

        itab_nota_c-refkey      TO itab_det_exp_final-vbeln_vf,

* << Fim da exclusão

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

        itab_vbfa_1-vbeln       TO itab_det_exp_final-vbeln_vf,

        itab_vbfa_1-posnn       TO itab_det_exp_final-posnr,

* << Fim da inclusão

        itab_nota_c-werks       TO itab_det_exp_final-werks_e ,

        itab_nota_c-nbm         TO itab_det_exp_final-j_1bnbm ,

        itab_nota_c-nfnum       TO itab_det_exp_final-nfnum   ,

        itab_nota_c-series      TO itab_det_exp_final-serie   ,

        itab_nota_c-docdat      TO itab_det_exp_final-dtnf    ,

        itab_nota_c-netfre      TO itab_det_exp_final-vlfre   ,

        itab_nota_c-meins       TO itab_det_exp_final-meins   ,

        itab_nota_c-menge       TO itab_det_exp_final-qtd_iten,

        itab_nota_c-waers       TO itab_det_exp_final-waersfob,

        itab_nota_c-netwr       TO itab_det_exp_final-vlfob   .

...