CE PLUS - Nota 007681
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 01/12/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:04:12
Descrição da Nota: VINCULAÇÃO DA LI AO ATO CONCESSÓRIO
Sintoma
Ao vincular / desvincular a LI ao Ato COncessório o programa não esta acertando o saldo do Ato
Concessório.
Solução
Atualização da vinculção / desvinculação da LI ao Ato Concessório.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07681 Data: 01/12/2008 Hora: 14:30:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07681
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07621 - 00001 - 7.0 - 00007 - PREENCHIMENTO DO CAMPO ITEM DO DRAWBACK
----------------------------------------------------------------------------------------------------
VINCULAÇÃO DA LI AO ATO CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO DA LI AO ATO CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
nrseqli = /pws/zycie078-nrseqli.
ENDIF.
ENDFORM.
FORM field_industrializacao.
READ TABLE it_zycit079 WITH KEY ebeln = /pws/zycie079a-ebeln
ebelp = /pws/zycie079a-ebelp.
IF sy-subrc EQ 0.
MOVE-CORRESPONDING /pws/zycie079a TO it_zycit079.
MODIFY it_zycit079 TRANSPORTING
item_drawback
* >> Início da inclusão: FORM FIELD_INDUSTRIALIZACAO
nritem_db
* << Fim da inclusão
qtd_drawback
vl_prod_drawback
destaque
espec_tecnica
ref_fabricante
part_number
mat_prima_basica
desc_complem
fabric
lifnr
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
/pws/zycie078-codregtri = '3'.
ELSEIF /pws/zycie078-modalidade EQ 'S'.
/pws/zycie078-codregtri = '5'.
ENDIF.
MESSAGE s015 WITH text-441.
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.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULA_ATO
itab_zycit376-nritem+2 TO it_zycit079-item_drawback,
itab_zycit376-nritem TO it_zycit079-nritem_db.
* << Fim da inclusão
IF v_qtdtot > 0.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
ELSE.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ).
ENDIF.
it_zycit079-vl_prod_drawback =
it_zycit079-qtd_iten * it_zycit079-netpr.
MODIFY it_zycit079.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
IF /pws/zycit321-c_comum NE 'X' AND
itab_atos2-tipo NE 'G'.
LOOP AT itab_atos WHERE nrseqd EQ itab_atos2-nrseqd.
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:
* >> Início da exclusão: MODULE USER_COMMAND_0810
itab_atos-nritem+2 TO it_zycit079-item_drawback.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0810
itab_atos-nritem+2 TO it_zycit079-item_drawback,
itab_atos-nritem TO it_zycit079-nritem_db.
* << Fim da inclusão
IF v_qtdtot > 0.
it_zycit079-qtd_drawback = ( it_zycit079-qtd_iten *
/pws/zycie078-qtdest ) / v_qtdtot.
ELSE.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ).
ENDIF.
it_zycit079-vl_prod_drawback =
it_zycit079-qtd_iten * it_zycit079-netpr.
* >> Início da exclusão: MODULE USER_COMMAND_0810
MODIFY it_zycit079 TRANSPORTING item_drawback
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0810
MODIFY it_zycit079 TRANSPORTING item_drawback nritem_db
* << Fim da inclusão
qtd_drawback vl_prod_drawback
WHERE ebeln = it_ekpo-ebeln
AND ebelp = it_ekpo-ebelp.
ENDLOOP.
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.
...
...
itab_atos-nritem TO it_zycit079-nritem_db.
IF v_qtdtot > 0.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
ELSE.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ).
ENDIF.
it_zycit079-vl_prod_drawback =
it_zycit079-qtd_iten * it_zycit079-netpr.
* >> Início da exclusão: MODULE USER_COMMAND_0810
MODIFY it_zycit079 TRANSPORTING item_drawback
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0810
MODIFY it_zycit079 TRANSPORTING item_drawback nritem_db
* << Fim da inclusão
qtd_drawback vl_prod_drawback
WHERE ebeln = it_ekpo-ebeln
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.
...