Sintoma

O incoterm do embarque é FOB. Após a vinculação do pedido ao embarque, alterei o incoterm do pedido

para CIF. E consegui criar a fatura com incoterm CIF.

Bloquear a criação da fatura caso o incoterm não seja da mesma família que o incoterm do embarque.

Solução

Bloquear a criação da fatura caso o incoterm não seja da mesma família que o incoterm do embarque.

Informações Complementares

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

Nota Número 12425 Data: 13/08/2012 Hora: 10:43:10

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

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

Nota Número              : 12425

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 9.0

Pacote                   : 00001

Agrupamento              : 00124

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

Referência às notas relacionadas:

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

12019  - 00001 - 8.0    - 00010  - EMBARQUE - GRANEL - QUANTIDADE DESEMBARCADA - PESO LIQUIDO DESEMB

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

BLOQUEAR A CRIAÇÃO DA FATURA CASO O INCOTERM NÃO SEJA DA MESMA FAMÍLIA.

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

Palavras Chave:

PEDIDO - INCOTERM - EMBARQUE - FATURA -

VERIFICAR O INCOTERM NA CRIAÇÃO DA FATURA

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

Objetos da nota:

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI003I01

REPT /PWS/SAPMZYCI001

REPT /PWS/SAPMZYCI003

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

form grava_tabelas changing p_abort.

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

  DATA: lv_inco1_ci TYPE /pws/zycit031-inco1_ci.

* << Fim da inclusão

...

...

        if itab_zycit442-codreg eq '04'.

          if /pws/zycie001-regime ne '16' and

             /pws/zycie001-regime ne '04'.

            message s015 with text-444.

            v_sair = 'X'.

          endif.

        endif.

      endloop.

    endif.

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

    CLEAR: itab_zycit031, itab_zycit031[], t001, lv_inco1_ci.

    SELECT SINGLE * FROM t001

      WHERE bukrs EQ /pws/zycie001-bukrs.

    SELECT SINGLE inco1_ci INTO lv_inco1_ci

      FROM /pws/zycit031

           WHERE inco1   EQ /pws/zycie001-inco1

             AND land1   EQ t001-land1

             AND codmod  EQ 'D'.

    SELECT * FROM /pws/zycit031

      INTO TABLE itab_zycit031

       WHERE inco1_ci EQ lv_inco1_ci

         AND land1    EQ t001-land1

         AND codmod   EQ 'D'.

* << Fim da inclusão

    call function 'MESSAGES_INITIALIZE'.

...

...

      if /pws/zycie001-regime eq '12'.

        if itab_zycit003-adm_temp eq 'X' .

          v_adm_temp = 'X'.

        endif.

      ENDIF.

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

      READ TABLE itab_zycit031 WITH KEY inco1 = itab_zycit003-inco1.

      IF sy-subrc NE 0.

        v_sair = 'X'.

        MESSAGE i015 WITH text-532.

        EXIT.

      endif.

* << Fim da inclusão

    endloop.

    if lv_message eq 'X'.

      call function 'MESSAGES_SHOW'

           exporting

                object          = '/PWS/SAPMZYCI001'

                i_amodal_window = ' '.

      call function 'MESSAGES_INITIALIZE'.

    endif.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003I01

...

MODULE user_command_0100 INPUT.

* >> Início da inclusão: MODULE USER_COMMAND_0100

  DATA: BEGIN OF lt_ekko OCCURS 0,

          ebeln TYPE ekko-ebeln,

          inco1 TYPE ekko-inco1,

        END OF lt_ekko.

  DATA: lt_zycit031 TYPE /pws/zycit031 OCCURS 0 WITH HEADER LINE.

  DATA: lv_inco1_ci TYPE /pws/zycit031-inco1_ci.

* << Fim da inclusão

...

...

          IF /pws/zycie006-tpfatura = '01' AND

             /pws/zycie006-fabricante = '3' AND

             sy-subrc EQ 0.

            MESSAGE e015 WITH text-208.

          ENDIF.

        ENDIF.

        IF /pws/zycie006-frpagto IS INITIAL.

          MESSAGE e015 WITH text-168.

        ENDIF.

* >> Início da inclusão: MODULE USER_COMMAND_0100

        CLEAR: lt_zycit031, lt_zycit031[], lt_ekko, lt_ekko[],

               lv_inco1_ci.

        SELECT SINGLE inco1_ci INTO lv_inco1_ci

          FROM /pws/zycit031

               WHERE inco1   EQ /pws/zycie001-inco1

                 AND land1   EQ t001-land1

                 AND codmod  EQ 'D'.

        SELECT * FROM /pws/zycit031

          INTO TABLE lt_zycit031

           WHERE inco1_ci EQ lv_inco1_ci

             AND land1    EQ t001-land1

             AND codmod   EQ 'D'.

        SELECT ebeln inco1 FROM ekko

          INTO TABLE lt_ekko

          FOR ALL ENTRIES IN itab_zycit003

          WHERE ebeln EQ itab_zycit003-ebeln.

        LOOP AT lt_ekko.

          READ TABLE lt_zycit031 WITH KEY inco1 = lt_ekko-inco1.

          IF sy-subrc NE 0.

            MESSAGE e015 WITH text-532.

          ENDIF.

        ENDLOOP.

* << Fim da inclusão

        PERFORM trata_save.

      WHEN 'MODI'.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI001

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 532

Texto: (38 caracteres)

"Incoterms Order Shipment is different."

Comprimento máximo: 52

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 532

Texto: (44 caracteres)

"Incoterms do Pedido é diferente do Embarque."

Comprimento máximo: 52

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 532

Texto: (35 caracteres)

"Envío Incoterms orden es diferente."

Comprimento máximo: 52

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

Modificações efetuadas em REPT /PWS/SAPMZYCI003

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 532

Texto: (38 caracteres)

"Incoterms Order Shipment is different."

Comprimento máximo: 132

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 532

Texto: (44 caracteres)

"Incoterms do Pedido é diferente do Embarque."

Comprimento máximo: 132

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 532

Texto: (35 caracteres)

"Envío Incoterms orden es diferente."

Comprimento máximo: 132