CE PLUS - Nota 009297
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 30/10/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:05:47
Descrição da Nota: NÃO ESTÁ PREENCHENDO A QUANTIDADE NAS INFORMAÇÕES DE DRAWBACK
Sintoma
Ao salvar a LI exibe mensagem informando que a quantidade drawback não está preenchida e não salva a
LI.
Solução
Ajustado programa para utilizar a quantidade dos itens no calculo da quantidade drawback quando a
unidade estatistica for Kg e o peso não estiver preenchido no pedido.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09297 Data: 30/10/2009 Hora: 16:11:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09297
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07831 - 00001 - 7.0 - 00008 - CALCULO DA QUANTIDADE ESTATISTICA
----------------------------------------------------------------------------------------------------
NÃO ESTÁ PREENCHENDO A QUANTIDADE NAS INFORMAÇÕES DE DRAWBACK
----------------------------------------------------------------------------------------------------
Palavras Chave:
QUANTIDADE - DRAWBACK - PESO - UNIDADE - ESTATISTICA - PEDIDO
/PWS/SAPMZYCI020 - PREENCHER
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
FORM comm_detli.
v_flag2 = '1'.
LOOP AT it_zycit079 WHERE mark = 'X'.
v_ip = sy-tabix.
IF v_qtdtot > 0 .
* >> Início da exclusão: FORM COMM_DETLI
IF /pws/zycie078-zum EQ '10'.
IF NOT v_peso IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_DETLI
IF /pws/zycie078-zum EQ '10' AND
NOT v_peso IS INITIAL.
* << Fim da inclusão
it_zycit079-qtd_drawback =
( it_zycit079-ntgew * /pws/zycie078-qtdest ) / v_peso.
* >> Início da exclusão: FORM COMM_DETLI
ENDIF.
* << Fim da exclusão
ELSE.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
ENDIF.
ELSE.
...
...
IF itab_atos-grupo NE space.
LOOP AT itab_zycit433 WHERE grupo EQ itab_atos-grupo.
LOOP AT it_ekpo WHERE matnr EQ itab_zycit433-matnr.
READ TABLE it_zycit079 WITH KEY
ebeln = it_ekpo-ebeln
ebelp = it_ekpo-ebelp.
MOVE:
itab_atos-nritem+2 TO it_zycit079-item_drawback,
itab_atos-nritem TO it_zycit079-nritem_db.
IF v_qtdtot > 0.
* >> Início da exclusão: FORM USER_COMMAND_0810
IF /pws/zycie078-zum EQ '10'.
IF NOT v_peso IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0810
IF /pws/zycie078-zum EQ '10' AND
NOT v_peso IS INITIAL.
* << Fim da inclusão
it_zycit079-qtd_drawback =
( it_zycit079-ntgew * /pws/zycie078-qtdest ) / v_peso.
* >> Início da exclusão: FORM USER_COMMAND_0810
ENDIF.
* << Fim da exclusão
ELSE.
it_zycit079-qtd_drawback = ( it_zycit079-qtd_iten *
/pws/zycie078-qtdest ) / v_qtdtot.
ENDIF.
ELSE.
...
...
ENDLOOP.
ELSE.
LOOP AT it_ekpo WHERE matnr EQ itab_atos-matnr.
READ TABLE it_zycit079 WITH KEY
ebeln = it_ekpo-ebeln
ebelp = it_ekpo-ebelp.
MOVE:
itab_atos-nritem+2 TO it_zycit079-item_drawback,
itab_atos-nritem TO it_zycit079-nritem_db.
IF v_qtdtot > 0.
* >> Início da exclusão: FORM USER_COMMAND_0810
IF /pws/zycie078-zum EQ '10'.
IF NOT v_peso IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0810
IF /pws/zycie078-zum EQ '10' AND
NOT v_peso IS INITIAL.
* << Fim da inclusão
it_zycit079-qtd_drawback =
( it_zycit079-ntgew * /pws/zycie078-qtdest ) / v_peso.
* >> Início da exclusão: FORM USER_COMMAND_0810
ENDIF.
* << Fim da exclusão
ELSE.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
ENDIF.
ELSE.
...
...
AND ebelp = it_ekpo-ebelp.
ENDLOOP.
ENDIF.
ENDLOOP.
ELSE.
READ TABLE itab_atos WITH KEY nrseqd = itab_atos2-nrseqd.
LOOP AT it_zycit079.
MOVE itab_atos-nritem+2 TO it_zycit079-item_drawback.
MOVE itab_atos-nritem TO it_zycit079-nritem_db.
IF v_qtdtot > 0.
* >> Início da exclusão: FORM USER_COMMAND_0810
IF /pws/zycie078-zum EQ '10'.
IF NOT v_peso IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0810
IF /pws/zycie078-zum EQ '10' AND
NOT v_peso IS INITIAL.
* << Fim da inclusão
it_zycit079-qtd_drawback =
( it_zycit079-ntgew * /pws/zycie078-qtdest ) / v_peso.
* >> Início da exclusão: FORM USER_COMMAND_0810
ENDIF.
* << Fim da exclusão
ELSE.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
ENDIF.
ELSE.
...