CE PLUS - Nota 004686
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 12/09/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:02:04
Descrição da Nota: QUNATIDADE NA UNIDADE DE MEDIDA ESTATISTICA NO DETALHE DO ITEN DA LI
Sintoma
O programa não esta convertendo a quantidade para a unidade de medida estatistica nos processos de
Drawback.
Solução
Adicionada rotina de conversão.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04686 Data: 12/09/2007 Hora: 10:18:29
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04686
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03820 - 00001 - 7.0 - 00001 - LI - QUANTIDADE UM ESTATÍSTICA
03906 - 00002 - 7.0 - 00002 - CÁLCULO INCORRETO DO VALOR FOB DA MERCADORIA NO LOCAL DE EMBARQUE
----------------------------------------------------------------------------------------------------
QUNATIDADE NA UNIDADE DE MEDIDA ESTATISTICA NO DETALHE DO ITEN DA LI
----------------------------------------------------------------------------------------------------
Palavras Chave:
QUANTIDADE ESTATISTICA LI DETALHES DO ITEM DRAWBACK
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
REPS /PWS/MZYCI020TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
FORM comm_detli.
v_flag2 = '1'.
LOOP AT it_zycit079 WHERE mark = 'X'.
v_ip = sy-tabix.
* >> Início da inclusão: FORM COMM_DETLI
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
MODIFY it_zycit079 TRANSPORTING qtd_drawback.
* << Fim da inclusão
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
PERFORM load_desc_fabr.
...
...
LOOP AT it_zycit079.
READ TABLE itab_zycit376 WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp
nrseqd = v_nrseqd_v.
MOVE:
* >> Início da exclusão: FORM VINCULA_ATO
itab_zycit376-nritem+2 TO it_zycit079-item_drawback,
it_zycit079-qtd_iten TO it_zycit079-qtd_drawback.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULA_ATO
itab_zycit376-nritem+2 TO it_zycit079-item_drawback.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
* << Fim da inclusão
it_zycit079-vl_prod_drawback =
it_zycit079-qtd_iten * it_zycit079-netpr.
MODIFY it_zycit079.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
READ TABLE it_zycit003_aux2 WITH KEY
ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
READ TABLE it_zycit245 WITH KEY codcomp =
it_zycit003_aux2-matnr.
MOVE:
it_zycit245-nritem+2 TO it_zycit079-item_drawback,
* >> Início da exclusão: MODULE USER_COMMAND_0810
it_zycit079-qtd_iten TO it_zycit079-qtd_drawback,
* << Fim da exclusão
/pws/zycie078-vltot TO it_zycit079-vl_prod_drawback.
* >> Início da inclusão: MODULE USER_COMMAND_0810
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
* << Fim da inclusão
MODIFY it_zycit079 INDEX 1.
ENDIF.
ENDLOOP.
IF NOT /pws/zycie078-tipodb IS INITIAL.
IF /pws/zycie078-modalidade EQ 'I'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
SELECT * FROM ekpo INTO TABLE it_ekpo
FOR ALL ENTRIES IN it_zycit079
WHERE ebeln EQ it_zycit079-ebeln
AND ebelp EQ it_zycit079-ebelp.
ENDIF.
* >> Início da exclusão: MODULE LOAD_DATA
CLEAR v_qtdest.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
CLEAR: v_qtdest, v_qtdtot.
* << Fim da inclusão
LOOP AT it_zycit079.
READ TABLE it_ekpo WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
IF sy-subrc NE 0.
SELECT SINGLE * FROM ekpo INTO it_ekpo
WHERE ebeln EQ it_zycit079-ebeln
AND ebelp EQ it_zycit079-ebelp.
IF sy-subrc EQ 0.
APPEND it_ekpo.
ELSE.
CONTINUE.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE LOAD_DATA
v_qtdtot = v_qtdtot + it_zycit079-qtd_iten.
* << Fim da inclusão
PERFORM converte_um_ncm USING it_ekpo-matnr
CHANGING it_zycit079-meins
it_zycit079-qtd_iten.
v_qtdest = v_qtdest +
it_zycit079-qtd_iten.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020TOP
...
* >> Início da inclusão:
DATA: v_qtdtot TYPE /pws/zycit079-qtd_iten.
* << Fim da inclusão
SELECTION-SCREEN BEGIN OF SCREEN 0300.
PARAMETERS: pa_bukrs LIKE /pws/zycie078-bukrs DEFAULT
/pws/zycie078-bukrs.
...