CE PLUS - Nota 009567
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 11/12/2009 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:45:15
Descrição da Nota: QUANTIDADE DOS INSUMOS ERRADA PARA LISTA TÉCNICA POR AGRUPAMENTO.
Sintoma
Ao criar o ato concessório utilizando lista técnica por agrupamento o programa preenche os insumos
corretamente porém ao realizar qualquer ação o programa altera a unidade basica do item sem alterar
quantidade deste.
Solução
Ajustado programa para utilizar a quantidade basica do material na explosão da lista técnica.
Ajustado programa para fechar o campo moeda na pasta mercado interno para ato concessório
Intermediario-Exportador somente após a moeda não ser informada e o ato concessório ser salvo.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09567 Data: 11/12/2009 Hora: 14:31:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09567
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
04512 - 00001 - 7.0 - 00002 - CORREÇÃO DA USAGEM NO ATO CONCESSÓRIO POR AGRUPAMENTO
08661 - 00002 - 7.0 - 00010 - ATO CONCESSÓRIO INTERMEDIÁRIO EXPORTAÇÃO USD
08721 - 00003 - 7.0 - 00010 - PERMITIR TRANSFERENCIA DE ITENS APENAS SE POSSUIR SALDO TOTAL.
----------------------------------------------------------------------------------------------------
QUANTIDADE DOS INSUMOS ERRADA PARA LISTA TÉCNICA POR AGRUPAMENTO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
QUANTIDADE - INSUMO - UNIDADE - LISTA - TÉCNICA - AGRUPAMENTO
/PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI040O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
AND ( datuv <= sy-datum
AND datub >= sy-datum ).
IF sy-subrc EQ 0.
LOOP AT t_zycit422.
CLEAR itab_zycit245.
IF v_tcode2 EQ '/PWS/ZYCI040_A'.
READ TABLE itab_zycit245 WITH KEY codcomp = t_zycit422-idnrk
werks = t_zycit422-werks
nrseqd = /pws/zycie244-nrseqd.
ENDIF.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
PERFORM converte_um_base USING t_zycit422-idnrk
CHANGING t_zycit422-meins
t_zycit422-menge.
* << Fim da inclusão
MOVE: /pws/zycie244-nrseqd TO itab_zycit245-nrseqd,
t_zycit422-idnrk TO itab_zycit245-codcomp,
t_zycit422-meins TO itab_zycit245-meins,
t_zycit422-werks TO itab_zycit245-werks,
'1' TO itab_zycit245-proced.
IF /pws/zycit421-base IS INITIAL.
/pws/zycit421-base = 1.
ENDIF.
t_zycit422-menge = t_zycit422-menge / /pws/zycit421-base.
itab_zycit245-qtd_iten = t_zycit422-menge.
...
...
AND ( datuv <= sy-datum
AND datub >= sy-datum ).
IF sy-subrc EQ 0.
LOOP AT t_zycit422.
CLEAR itab_zycit245.
IF v_tcode2 EQ '/PWS/ZYCI040_A'.
READ TABLE itab_zycit245 WITH KEY codcomp = t_zycit422-idnrk
werks = t_zycit422-werks
nrseqd = /pws/zycie244-nrseqd.
ENDIF.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
PERFORM converte_um_base USING t_zycit422-idnrk
CHANGING t_zycit422-meins
t_zycit422-menge.
* << Fim da inclusão
MOVE: /pws/zycie244-nrseqd TO itab_zycit245-nrseqd,
t_zycit422-idnrk TO itab_zycit245-codcomp,
t_zycit422-meins TO itab_zycit245-meins,
t_zycit422-werks TO itab_zycit245-werks,
'1' TO itab_zycit245-proced.
IF /pws/zycit421-base IS INITIAL.
/pws/zycit421-base = 1.
ENDIF.
t_zycit422-menge = t_zycit422-menge / /pws/zycit421-base.
itab_zycit245-qtd_iten = t_zycit422-menge.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
ebelp = itab_zycit279_ap_aux-ebelp.
READ TABLE itab_zycit279_ap WITH KEY
nrseq = itab_zycit279_ap_aux-nrseq
docnum = itab_zycit279_ap_aux-docnum
ebeln = itab_zycit279_ap_aux-ebeln
ebelp = itab_zycit279_ap_aux-ebelp.
IF itab_zycit246_final-i_txmoeda IS INITIAL.
itab_zycit246_final-i_txmoeda = 1.
ENDIF.
v_vl_transf =
* >> Início da exclusão: MODULE MODIFICA_ATO_DEST
( /pws/zycie279-qtd_transf * itab_zycit279_ap-valor ) /
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFICA_ATO_DEST
( itab_zycit279_ap-qtd_transf * itab_zycit279_ap-valor ) /
* << Fim da inclusão
itab_zycit246_final-i_txmoeda.
IF v_saldo_vl < v_vl_transf.
* >> Início da exclusão: MODULE MODIFICA_ATO_DEST
MESSAGE i015 WITH text-268 /pws/zycie279-nrseqd_d text-268.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFICA_ATO_DEST
MESSAGE i015 WITH text-268 /pws/zycie279-nrseqd_d text-269.
* << Fim da inclusão
v_nvinc = 'X'.
EXIT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE245-VL_SEG_T'.
IF NOT /pws/zycie245-pctseg IS INITIAL.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ 'V_WAERS'.
IF /pws/zycie244-tipo EQ 'F'.
* >> Início da exclusão: MODULE TRATA_SCREEN_0203
IF NOT v_waers IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_SCREEN_0203
IF NOT v_waers IS INITIAL
AND v_tcode2 NE '/PWS/ZYCI040_C'.
* << Fim da inclusão
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descrit_0203
WHERE matnr = /pws/zycie245-codcomp
AND spras = sy-langu.
...