Sintoma

Pré crítica da PLI reclama que valor da mercadoria não foi preenchido

Solução

Retornar cálculo valor da Mercadoria no local do embarque retirado em ajuste anterior.

Informações Complementares

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

Nota Número 10492 Data: 12/08/2010 Hora: 14:20:08

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

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

Nota Número              : 10492

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00034

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

Referência às notas relacionadas:

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

10486  - 00001 - 8.0    - 00004  - PROGRAMA SOMA ERRADO COM PEDIDOS COM UNIDADES DE MEDIDAS DIFERENT

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

PRÉ CRÍTICA DA PLI RECLAMA QUE VALOR DA MERCADORIA NÃO FOI PREENCHIDO

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

Palavras Chave:

PRÉ CRÍTICA - PLI - VALOR MERCADORIA

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

Objetos da nota:

REPS /PWS/MZYCI020F01

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

    CONCATENATE /pws/zycie079-steuc1(4) /pws/zycie079-steuc1+5(2)

    /pws/zycie079-steuc1+8(2) INTO /pws/zycie079-ncm.

    PERFORM load_taxa.

    MODIFY it_zycit079.

  ENDLOOP.

  CLEAR /pws/zycie078-vlmerc.

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

  IF it_zycit079-vlmerc IS INITIAL.

* << Fim da exclusão

    PERFORM verifica_vltotal_local_emb.

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

  ENDIF.

* << Fim da exclusão

...

...

  SELECT * FROM /pws/zycit030

    INTO TABLE itab_zycit030

    WHERE codigo EQ 'FOB'

      AND land1  EQ t001-land1

      AND bukrs  EQ /pws/zycie078-bukrs.

  LOOP AT it_zycit079_a.

    CLEAR v_vlmerc.

    CLEAR itab_itens_aux.

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

    IF it_zycit079_a-vlmerc IS INITIAL.

* << Fim da inclusão

    READ TABLE itab_itens_aux WITH KEY ebeln = it_zycit079_a-ebeln

                                       ebelp = it_zycit079_a-ebelp.

    IF sy-subrc EQ 0.

      MOVE: itab_itens_aux-txz01  TO it_zycit079_a-descr,

            itab_itens_aux-bednr  TO it_zycit079_a-bednr,

            itab_itens_aux-uebto  TO it_zycit079_a-uebto,

            itab_itens_aux-meins  TO it_zycit079_a-meins,

            itab_itens_aux-uebtk  TO it_zycit079_a-uebtk.

      READ TABLE it_ekpo WITH KEY  ebeln = itab_itens-ebeln

                                   ebelp = itab_itens-ebelp.

...

...

            it_zycit079-vlmerc = v_vlmerc * it_zycit079_a-menge.

            MODIFY it_zycit079 TRANSPORTING vlmerc

            WHERE nrseqli = it_zycit079_a-nrseqli

              AND tpli  = it_zycit079_a-tpli

              AND ebeln = it_zycit079_a-ebeln

              AND ebelp = it_zycit079_a-ebelp.

          ENDIF.

        ENDAT.

      ENDLOOP.

      FREE itab_zycit030_aux.

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

      ENDIF.

* << Fim da inclusão

    ENDIF.

    /pws/zycie078-vlmerc = /pws/zycie078-vlmerc +

                      it_zycit079_a-netpr * it_zycit079_a-qtd_iten.

  ENDLOOP.

ENDFORM.

...