CE PLUS - Nota 002619
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 07/12/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:43:00
Descrição da Nota: AJUSTE INSUMO ALTERNATIVO, CENTROS DA COMPOSIÇÃO E DATAS DO ATO
Sintoma
O ato concessório não carrega todos os centros da composição de isenção.
Deve ser ajustado o ato para preenchimento altomatico das datas de validade do ato concessório .
É necessario ajustar o tratamento dos insumos alternativos para tratar as alterações realizadas no
cadastro dos mesmos.
Solução
Ajustar o ato para selecionar todos os centros da composição.
Deve ser ajustado o ato para preenchimento altomatico das datas de validade do ato concessório .
É necessario ajustar o tratamento dos insumos alternativos para tratar as alterações realizadas no
cadastro dos mesmos.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02619 Data: 07/12/2006 Hora: 09:11:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02619
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00142
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02196 - 00001 - 6.0 - 00025 - AJUSTE NA DATA DO ATO E O COMPRIMENTO DO CAMPO NÚMERO
02285 - 00002 - 6.0 - 00025 - AJUSTES PARA TRATAMENTO DE ATO CONCESSÓRIO ISENÇÃO COM ITENS GENÉ
----------------------------------------------------------------------------------------------------
AJUSTE INSUMO ALTERNATIVO, CENTROS DA COMPOSIÇÃO E DATAS DO ATO
----------------------------------------------------------------------------------------------------
Palavras Chave:
INSUMO - ALTERNATIVO - CENTROS - COMPOSIÇÃO - DATA - VALIDADE
/PWS/SAPMZYCI040 - ATO - CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040I01
REPS /PWS/MZYCI040O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
AND ebelp EQ itab_zycit279_ap-ebelp.
itab_zycit279_ap-qtd_perda = itab_zycit279_ap-qtd_perda +
itab_zycit282_ap-qtd_perda.
itab_zycit279_ap-qtd_perda_e = itab_zycit279_ap-qtd_perda_e +
itab_zycit282_ap-qtd_perda_e.
ENDLOOP.
itab_zycit279_ap-perda = ( itab_zycit279_ap-qtd_perda /
itab_zycit279_ap-menge ) * 100.
MODIFY itab_zycit279_ap.
ENDLOOP.
* >> Início da inclusão: FORM CARREGA_TABELA279
IF /pws/zycie244-dtdi IS INITIAL.
DELETE itab_data_di WHERE data EQ space.
IF NOT itab_data_di[] IS INITIAL.
SORT itab_data_di BY data.
READ TABLE itab_data_di INDEX 1.
/pws/zycie244-dtdi = itab_data_di-data.
IF /pws/zycie244-vcto_fn IS INITIAL.
/pws/zycie244-vcto_fn = /pws/zycie244-dtdi + 731.
UPDATE /pws/zycit244 SET dtdi = /pws/zycie244-dtdi
vcto_fn = /pws/zycie244-vcto_fn
WHERE nrseqd EQ /pws/zycie244-nrseqd.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM monta_transf.
REFRESH itab_zycit279_ap_aux.
CLEAR itab_zycit279_ap.
MODIFY itab_zycit279_ap TRANSPORTING mark
WHERE mark EQ 'X'.
IF /pws/zycie244-tipo NE 'G'.
READ TABLE itab_zycit246_final WITH KEY
matnr = itab_resumo_ap-matnr.
READ TABLE itab_zycit245 WITH KEY
...
...
CONTINUE.
ENDIF.
READ TABLE itab_zycit245 WITH KEY
grupo = itab_zycit433-grupo.
ELSE.
READ TABLE itab_zycit245 WITH KEY
codcomp = itab_zycit279_ap-matnr.
IF sy-subrc NE 0.
CLEAR:itab_zycit433a.
LOOP AT itab_zycit433a
* >> Início da exclusão: FORM MOVE_REALIZ
WHERE matnr EQ itab_zycit279_ap-matnr
AND dtde <= itab_zycit279_ap-dtdi
AND dtate >= itab_zycit279_ap-dtdi.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_REALIZ
WHERE matnr EQ itab_zycit279_ap-matnr.
* << Fim da inclusão
EXIT.
ENDLOOP.
IF itab_zycit433a-grupo IS INITIAL.
CONTINUE.
ENDIF.
READ TABLE itab_zycit433 WITH KEY
grupo = itab_zycit433a-grupo.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040I01
...
ENDIF.
MOVE: wa_zycit2582-bukrs TO /pws/zycie244-bukrs ,
wa_zycit2582-codagrup TO /pws/zycie244-codagrup ,
wa_zycit2582-modalidade TO /pws/zycie244-modalidade,
wa_zycit2582-tipo TO /pws/zycie244-tipo ,
wa_zycit2582-tipo2 TO /pws/zycie244-tipo2 ,
wa_zycit2582-werks TO /pws/zycie244-werks ,
wa_zycit2582-ekorg TO /pws/zycie244-ekorg ,
wa_zycit2582-importacao TO /pws/zycie244-importacao.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie244-bukrs.
* >> Início da inclusão: MODULE TRATA_COMPOSICAO
CLEAR itab_centros2. REFRESH itab_centros2.
SELECT mandt nrseqd werks FROM /pws/zycit434
INTO TABLE itab_centros2
WHERE nrseqd EQ /pws/zycie244-nrcompos.
IF sy-subrc EQ 0.
itab_centros2-nrseqd = /pws/zycie244-nrseqd.
MODIFY itab_centros2 transporting nrseqd
WHERE nrseqd EQ /pws/zycie244-nrcompos.
ENDIF.
* << Fim da inclusão
PERFORM busca_dados_composicao.
IF v_tcode2 EQ '/PWS/ZYCI040_A'.
IF /pws/zycie244-modalidade EQ 'S'.
ELSE.
ENDIF.
ENDIF.
ELSE.
MESSAGE e015 WITH text-051.
ENDIF.
ELSE.
...
...
IF /pws/zycie244-tipo EQ 'F'.
CLEAR v_stfield.
PERFORM status_field USING '/PWS/ZYCIE244-DTATOC' CHANGING
v_stfield.
IF /pws/zycie244-dtatoc IS INITIAL AND
/pws/zycie244-status EQ 'D' AND
v_stfield EQ 1.
MESSAGE e015 WITH text-174.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE TRATA_OBRIGATORIO_DT
IF NOT /pws/zycie244-dtdi IS INITIAL AND
/pws/zycie244-vcto_fn IS INITIAL AND
/pws/zycie244-status NE 'A' AND
/pws/zycie244-status NE 'I'.
/pws/zycie244-vcto_fn = /pws/zycie244-dtdi + 731.
IF /pws/zycie244-vcto_vg IS INITIAL.
/pws/zycie244-vcto_vg = /pws/zycie244-vcto_fn.
itab_vencto2-vencto = /pws/zycie244-vcto_fn.
APPEND itab_vencto2.
ENDIF.
ENDIF.
* << Fim da exclusão
ENDMODULE.
MODULE trata_obrigatorio_fr INPUT.
IF /pws/zycie244-tipo EQ 'F'.
CLEAR v_stfield.
PERFORM status_field USING '/PWS/ZYCIE244-LIFNR' CHANGING v_stfield.
IF /pws/zycie244-lifnr IS INITIAL AND v_stfield EQ 1.
MESSAGE e015 WITH text-174.
ENDIF.
ENDIF.
ENDMODULE.
...
...
PERFORM seleciona_tipo.
ENDMODULE.
MODULE verifica_ato INPUT.
IF /pws/zycie244-status EQ 'D'.
IF /pws/zycie244-nratoc IS INITIAL OR
/pws/zycie244-dtatoc IS INITIAL.
MESSAGE e015 WITH text-209 text-210.
/pws/zycie244-status = v_status_dif.
EXIT.
ELSE.
* >> Início da exclusão: MODULE VERIFICA_ATO
/pws/zycie244-dtdi = /pws/zycie244-dtatoc.
IF NOT /pws/zycie244-dtatoc IS INITIAL.
/pws/zycie244-vcto_fn = /pws/zycie244-dtatoc + 731.
IF /pws/zycie244-vcto_vg IS INITIAL.
/pws/zycie244-vcto_vg = /pws/zycie244-vcto_fn.
itab_vencto2-vencto = /pws/zycie244-vcto_fn.
APPEND itab_vencto2.
ENDIF.
UPDATE /pws/zycit244 SET vcto_fn = /pws/zycie244-vcto_fn
WHERE nrseqd EQ /pws/zycie244-nrseqd.
ENDIF.
* << Fim da exclusão
ENDIF.
ELSEIF /pws/zycie244-status EQ 'E' AND
wa_zycit244-status NE 'E' AND
sy-ucomm NE 'ENCER'.
/pws/zycie244-status = wa_zycit244-status.
ENDIF.
ENDMODULE.
MODULE altera_cliente INPUT.
IF NOT /pws/zycie244-kunnr IS INITIAL.
CLEAR: /pws/zycie244-name1, /pws/zycie244-stcd1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
ENDIF.
IF /pws/zycbt007 IS INITIAL.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD sy-tcode.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-290 sy-tcode.
LEAVE PROGRAM.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie244-bukrs.
ENDIF.
* >> Início da inclusão: MODULE STATUS_0200
IF /pws/zycie244-vcto_vg IS INITIAL AND
NOT /pws/zycie244-dtatoc IS INITIAL and
/pws/zycie244-status NE 'A' AND
/pws/zycie244-status NE 'I'.
/pws/zycie244-vcto_vg = /pws/zycie244-dtatoc + 365.
itab_vencto2-vencto = /pws/zycie244-vcto_fn.
APPEND itab_vencto2.
ENDIF.
* << Fim da inclusão
PERFORM status_custom.
PERFORM move_dados_iniciais2.
PERFORM gera_numero_seq2.
PERFORM set_page2.
PERFORM trata_botoes2.
PERFORM carrega_icone2.
PERFORM carrega_tree_edit2.
SET PF-STATUS 'ST0200' EXCLUDING itab_botoes2.
IF v_tcode2 EQ '/PWS/ZYCI040_C'.
SET TITLEBAR 'TL0200' WITH text-048.
...