CE PLUS - Nota 010496
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: PLI
Data/Hora da Publicação: 13/08/2010 00:00:00
Data/Hora Última Alteração: 13/08/2010 15:52:34
Descrição da Nota: PLI ESTA SE PERDENDO AO COMPOR O CAMPO VALOR NO LOCAL DA MERCADORIA
Sintoma
Na PLI esta compondo incorretamente o valor do local da mercadoria
Solução
Verificar corretamente os dados para compor o valor do local da mercadoria
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10496 Data: 13/08/2010 Hora: 15:38:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10496
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 - Descrição Breve
10468 - 00001 - AJUSTE PREENCHIMENTO ESPECIFICAÇÃO TÉCNICA E VALOR NO LOCAL EMBARQUE
10479 - 00002 - ABRIR CAMPO VALOR TOTAL MERCADORIA NO DETALHE DO ITEM PLI
10492 - 00003 - PRÉ CRÍTICA DA PLI RECLAMA QUE VALOR DA MERCADORIA NÃO FOI PREENCHIDO
----------------------------------------------------------------------------------------------------
PLI ESTA SE PERDENDO AO COMPOR O CAMPO VALOR NO LOCAL DA MERCADORIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
PLI - VALOR - LOCAL - MERCADORIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
ENDIF.
ENDIF.
ENDIF.
ENDIF.
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
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI020'
'PLI003'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'PLI003' BINARY SEARCH.
...
...
ENDIF.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie078-bukrs.
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.
FORM verificacao_sub.
IF NOT v_flagsub IS INITIAL.
CLEAR: it_log ,
it_vincula ,
it_zycit003_aux,
...