Sintoma

O valor FOB utilizado pelo programa de vinculaçao é diferente daquele importado do pedido pelo

embarque de impotação.

Solução

Ajustar o programa de vinculação para utilizar a parametrização de custo da tabela /pws/zycit030.

Informações Complementares

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

Nota Número 03245 Data: 14/03/2007 Hora: 14:53:10

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

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

Nota Número              : 03245

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00156

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VALOR FOB PARA VINCULAÇÃO DO PEDIDO DE ACORDO COM PARAMET. /PWS/ZYCIT030

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

Palavras Chave:

VINCULAÇÃO - PEDIDO - VALOR - FOB - ATO - CONCESSÓRIO - PARAMETRO

/PWS/SAPMZYCI068 - /PWS/ZYCIT030

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

Objetos da nota:

REPS /PWS/MZYCI068F01

REPS /PWS/MZYCI068TOP

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

Modificações efetuadas em REPS /PWS/MZYCI068F01

...

        FOR ALL ENTRIES IN itab_ekpo

        WHERE ebeln EQ itab_ekpo-ebeln

          AND ebelp EQ itab_ekpo-ebelp.

      IF NOT itab_zycit079[] IS INITIAL.

        SELECT * FROM /pws/zycit078 INTO TABLE itab_zycit078

            FOR ALL ENTRIES IN itab_zycit079

            WHERE nrseqli EQ itab_zycit079-nrseqli

              AND nrseqd NE space.

      ENDIF.

    ENDIF.

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

    SELECT * FROM /pws/zycit030 INTO TABLE itab_zycit030

        WHERE codigo EQ 'FOB'.

* << Fim da inclusão

    PERFORM monta_376_apr.

    IF NOT itab_zycit376_t[] IS INITIAL.

      CALL SCREEN 0100.

    ENDIF.

  ELSE.

  ENDIF.

ENDFORM.

FORM monta_376_apr.

  DATA: v_grupo TYPE /pws/zycit433-grupo,

        v_flag  TYPE c                  .

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

  DATA : v_ebelp   TYPE komv-kposn,

         v_vl_temp TYPE /pws/zycit376-vlfob.

* << Fim da inclusão

  LOOP AT itab_ekpo.

    READ TABLE itab_zycit376 WITH KEY

                            ebeln = itab_ekpo-ebeln

                            ebelp = itab_ekpo-ebelp.

    IF sy-subrc EQ 0.

      CONTINUE.

    ENDIF.

    IF /pws/zycit321-apr_imp NE 'X'.

      IF /pws/zycit321-c_comum IS INITIAL.

        READ TABLE itab_atos WITH KEY matnr = itab_ekpo-matnr

...

...

          itab_ekpo-aedat       TO  itab_zycit376_t-datac,

          itab_ekpo-werks       TO  itab_zycit376_t-werks,

          itab_ekpo-j_1bnbm     TO  itab_zycit376_t-j_1bnbm,

          itab_ekpo-txz01       TO  itab_zycit376_t-descr,

          itab_ekpo-menge       TO  itab_zycit376_t-qtd_iten,

          itab_ekpo-meins       TO  itab_zycit376_t-meins,

          itab_ekpo-meins       TO  itab_zycit376_t-meinsp,

          itab_ekpo-matnr       TO  itab_zycit376_t-matnr,

          itab_ekko-lifnr       TO  itab_zycit376_t-lifnr,

          itab_eket-eindt       TO  itab_zycit376_t-dtprevcheg.

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

    READ TABLE itab_komv WITH KEY knumv = itab_ekko-knumv.

    IF sy-subrc NE 0.

      REFRESH: itab_komv.

      CLEAR: wa_komk.

      wa_komk-knumv = itab_ekko-knumv.

      CALL FUNCTION 'RV_KONV_SELECT'

           EXPORTING

                comm_head_i  = wa_komk

                general_read = 'X'

           TABLES

                tkomv        = itab_komv

           EXCEPTIONS

                OTHERS       = 1.

    ENDIF.

    IF t001-bukrs NE itab_ekko-bukrs.

      SELECT SINGLE * FROM t001 INTO t001

               WHERE bukrs EQ itab_ekko-bukrs.

    ENDIF.

    CLEAR v_ebelp.

    CONCATENATE '0' itab_ekpo-ebelp INTO v_ebelp.

    LOOP AT itab_zycit030 where land1 EQ t001-land1

                            and bukrs EQ itab_ekko-bukrs.

      LOOP AT itab_komv

        WHERE kposn EQ v_ebelp

          AND kschl EQ itab_zycit030-kschl

          AND knumv EQ itab_ekko-knumv.

* << Fim da inclusão

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

    PERFORM converter_moeda USING itab_ekpo-brtwr

* << Fim da exclusão

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

        clear: v_vl_temp.

        PERFORM converter_moeda USING itab_komv-kwert

* << Fim da inclusão

                               itab_ekko-waers

                               'USD'

                               itab_ekpo-aedat

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

                      CHANGING itab_zycit376_t-vlfob.

* << Fim da exclusão

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

                          CHANGING v_vl_temp.

        IF itab_zycit030-fator EQ '+'.

          itab_zycit376_t-vlfob = itab_zycit376_t-vlfob + v_vl_temp.

        ELSE.

          itab_zycit376_t-vlfob = itab_zycit376_t-vlfob - v_vl_temp.

        ENDIF.

      ENDLOOP.

    ENDLOOP.

* << Fim da inclusão

    itab_zycit376_t-waers = 'USD'.

    APPEND itab_zycit376_t.

  ENDLOOP.

ENDFORM.

FORM converter_moeda USING p_devlme

                           p_deme

                           p_parame

                           p_data

                  CHANGING p_paravlme.

  DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'G',

...

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

Modificações efetuadas em REPS /PWS/MZYCI068TOP

...

      itab_eket     LIKE eket OCCURS 0 WITH HEADER LINE,

      itab_ekpo     LIKE ekpo OCCURS 0 WITH HEADER LINE,

      itab_lfa1     LIKE lfa1 OCCURS 0 WITH HEADER LINE,

      itab_zycit245 LIKE /pws/zycit245 OCCURS 0 WITH HEADER LINE,

      itab_zycit100 LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE,

      itab_zycit079 LIKE /pws/zycit079 OCCURS 0 WITH HEADER LINE,

      itab_zycit078 LIKE /pws/zycit078 OCCURS 0 WITH HEADER LINE,

      itab_zycit433 LIKE /pws/zycit433 OCCURS 0 WITH HEADER LINE,

      itab_zycit433a LIKE /pws/zycit433 OCCURS 0 WITH HEADER LINE,

      itab_atos_t   LIKE itab_atos OCCURS 0 WITH HEADER LINE.

* >> Início da inclusão:

DATA: wa_komk type komk.

DATA: BEGIN OF itab_komv OCCURS 0.

        INCLUDE STRUCTURE komv.

DATA: ebeln LIKE ekko-ebeln.

DATA: END OF itab_komv.

DATA: BEGIN OF itab_zycit030 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit030.

DATA: END OF itab_zycit030.

* << Fim da inclusão

DATA: v_marc                                                    ,

      ok_code         LIKE sy-ucomm                             ,

      v_qtd_tot       LIKE /pws/zycit245-qtd_tot                ,

      v_icon          LIKE icon-id                              ,

      v_resp                                                    ,

      v_tipo(35)                                                ,

      v_modalidade(35)                                          ,

      wa_cols         TYPE cxtab_column                         ,

      v_lines  TYPE i                                           ,

      v_vlfob         LIKE /pws/zycit245-netpr                  ,

...