CE PLUS - Nota 009725
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 26/01/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:53:20
Descrição da Nota: PREENCHER O EX TARIFARIO QUANDO CADASTRADO NA T604F
Sintoma
Ajuste para preenchimento automatico do ex tarifario quando este estiver parametrizado na tabela
T604F.
Solução
Ajuste para preenchimento automatico do ex tarifario quando este estiver parametrizado na tabela
T604F.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09725 Data: 26/01/2010 Hora: 10:12:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09725
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00006
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07672 - 00001 - 7.0 - 00007 - DESENVOLVIMENTO PARA MELHORIA NA NAVEGABILIDADE NA DI E NA DSI
08456 - 00002 - 7.0 - 00009 - AO SALVAR DI, MUDA RATEIO DE VALORES DE DESPESA, ALTERANDO OS IMP
09562 - 00003 - 8.0 - 00002 - AO INSERIR DADOS NÃO CARREGA CORRETAMENTE PARÂMETRO DA ZYCIT195 E
----------------------------------------------------------------------------------------------------
PREENCHER O EX TARIFARIO QUANDO CADASTRADO NA T604F
----------------------------------------------------------------------------------------------------
Palavras Chave:
EX - TARIFARIO - PARAMETRO - DI - EMBARQUE
/PWS/SAPMZYCI023 - /PWS/ZYCIT001
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F02
REPT /PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
FORM selecionar_itens.
* >> Início da inclusão: FORM SELECIONAR_ITENS
DATA itab_t604f TYPE t604f OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
SELECT SINGLE steuc FROM marc INTO itab_zycit003-j_1bnbm
WHERE matnr = itab_zycit003-matnr.
ELSE.
SELECT SINGLE steuc FROM marc INTO itab_zycit003-j_1bnbm
WHERE matnr = itab_zycit003-matnr
AND werks = ekpo-werks.
ENDIF.
ENDIF.
PERFORM carrega_nve USING itab_itens-matnr
itab_zycit003-j_1bnbm.
* >> Início da inclusão: FORM SELECIONAR_ITENS
CLEAR itab_t604f.
READ TABLE itab_t604f WITH KEY steuc = itab_zycit003-j_1bnbm.
IF sy-subrc NE 0.
SELECT SINGLE * FROM t604f
INTO itab_t604f
WHERE land1 EQ 'BR'
AND steuc EQ itab_zycit003-j_1bnbm.
APPEND itab_t604f.
ENDIF.
itab_zycit003-extarif_al = itab_t604f-/pws/exinfo.
* << Fim da inclusão
APPEND itab_zycit003.
ENDIF.
ENDLOOP.
IF sy-tcode NE '/PWS/ZYCI001_E'.
LOOP AT itab_zycit003.
CLEAR v_tabix.
v_tabix = sy-tabix.
CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT013'
EXPORTING
ebeln = itab_zycit003-ebeln
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
FORM save_data.
* >> Início da inclusão: FORM SAVE_DATA
DATA v_ex TYPE c.
LOOP AT itab_it.
CHECK NOT itab_it-tipo_al IS INITIAL OR
NOT itab_it-extarif_al IS INITIAL OR
NOT itab_it-orgemiss_al IS INITIAL OR
NOT itab_it-numero_al IS INITIAL OR
NOT itab_it-anoemiss_al IS INITIAL .
IF itab_it-tipo_al IS INITIAL OR
itab_it-extarif_al IS INITIAL OR
itab_it-orgemiss_al IS INITIAL OR
itab_it-numero_al IS INITIAL OR
itab_it-anoemiss_al IS INITIAL .
v_ex = 'X'.
MESSAGE i015 WITH text-262 itab_it-ebeln '/' itab_it-ebelp.
EXIT.
ENDIF.
ENDLOOP.
IF v_ex = 'X'.
EXIT.
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie085-dtdesemb IS INITIAL AND
NOT /pws/zycie085-dtreg IS INITIAL.
IF /pws/zycie085-dtdesemb LT /pws/zycie085-dtreg .
MESSAGE i015 WITH text-255 text-256.
EXIT.
ENDIF.
ENDIF.
IF NOT /pws/zycie085-dtdesemb IS INITIAL AND
NOT /pws/zycie085-dataci IS INITIAL.
IF /pws/zycie085-dtdesemb GT /pws/zycie085-dataci.
...
...
ad_anoemiss = itab_it-ad_anoemiss
naladincca = itab_it-naladincca
nrseqd = itab_it-nrseqd
nrdrawback = itab_it-nrdrawback
modalidade = itab_it-modalidade
basred = itab_it-basred
tpnf = /pws/zycie003-tpnf
WHERE
nrseq = itab_it-nrseq AND
ebeln = itab_it-ebeln AND
* >> Início da exclusão: FORM SAVE_DATA
ebelp = itab_it-ebelp. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
ebelp = itab_it-ebelp. "#EC CI_NOFIRST
* << Fim da inclusão
ENDLOOP.
CLEAR: itab_zycit003_t, itab_zycit078_t,
itab_zycit085_t, itab_zycit100_t.
REFRESH: itab_zycit003_t, itab_zycit078_t,
itab_zycit085_t, itab_zycit100_t.
SELECT * FROM /pws/zycit085 INTO TABLE itab_zycit085_t WHERE
nrseqdi = /pws/zycie085-nrseqdi AND
nrdi = /pws/zycie085-nrdi.
IF sy-subrc = 0.
IF NOT itab_zycit085_t[] IS INITIAL.
...
...
FORM verify_changes.
CLEAR v_changed.
CHECK v_acto EQ 'A'.
CLEAR: itab_zycit100, itab_zycit003.
REFRESH: itab_zycit100, itab_zycit049di2.
LOOP AT itab_it.
MOVE-CORRESPONDING itab_it TO itab_zycit100.
APPEND itab_zycit100.
ENDLOOP.
* >> Início da inclusão: FORM VERIFY_CHANGES
CLEAR itab_zycit003a.
REFRESH itab_zycit003a.
MOVE itab_zycit003[] TO itab_zycit003a[].
* << Fim da inclusão
LOOP AT itab_it.
LOOP AT itab_zycit003 WHERE ebeln = itab_it-ebeln
AND ebelp = itab_it-ebelp.
v_tfrefat = itab_zycit003-vlfre_fat.
v_tsegfat = itab_zycit003-vlseg_fat.
v_qtd_iten = itab_zycit003-qtd_itenc3.
MOVE-CORRESPONDING itab_it TO itab_zycit003.
itab_zycit003-qtd_itenc3 = v_qtd_iten.
itab_zycit003-vlfre_fat = v_tfrefat .
itab_zycit003-vlseg_fat = v_tsegfat .
...
...
(itab_zycit003-qtd_iten, itab_zycit003-vlreal, itab_zycit003-ntgewd)
WHERE nrseq EQ itab_it-nrseq
AND ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
MODIFY itab_zycit003.
ENDLOOP.
ENDLOOP.
SORT itab_zycit100 BY nrseqdi nrseq ebeln ebelp adicao.
SORT itab_zycit100a BY nrseqdi nrseq ebeln ebelp adicao.
SORT itab_zycit003 BY nrseq ebeln ebelp.
* >> Início da exclusão: FORM VERIFY_CHANGES
CLEAR itab_zycit003a.
REFRESH itab_zycit003a.
MOVE itab_zycit003[] TO itab_zycit003a[].
* << Fim da exclusão
LOOP AT itab_zycit049.
MOVE-CORRESPONDING itab_zycit049 TO itab_zycit049di2.
APPEND itab_zycit049di2.
ENDLOOP.
SORT itab_zycit049di2 BY tpdesp.
SORT itab_zycit049di BY tpdesp.
IF sy-binpt IS INITIAL.
CALL METHOD editor2->get_text_as_r3table IMPORTING table = ittxt1[].
ENDIF.
CLEAR: itab_zycit200. REFRESH: itab_zycit200.
...
...
AND branch = /pws/zycie085-j_1bbranch.
SELECT SINGLE region FROM adrc INTO v_icms_regio
WHERE addrnumber = j_1bbranch-adrnr.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit062
WHERE regio = v_icms_regio.
ENDIF.
IF itab_zycit031[] IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit031 INTO TABLE itab_zycit031
* >> Início da exclusão: FORM FILL_ITABIT
WHERE land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
WHERE land1 EQ t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycit031 WITH KEY inco1 = itab_zycit001-inco1.
IF sy-subrc EQ 0.
s_inco1_ci = itab_zycit031-inco1_ci.
ELSE.
CLEAR: s_inco1_ci.
MESSAGE i015 WITH text-039 wa_it-inco1.
ENDIF.
IF /pws/zycie085-codreg EQ '03' AND /pws/zycie085-tpdi EQ 'N'.
LOOP AT itab_it.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
MODULE load_ex INPUT.
* >> Início da exclusão: MODULE LOAD_EX
IF /pws/zycie003-tipo_al IS INITIAL OR /pws/zycie003-extarif_al IS
INITIAL.
CLEAR: /pws/zycie003-tipo_al, /pws/zycie003-extarif_al,
/pws/zycie003-orgemiss_al,
/pws/zycie003-numero_al, /pws/zycie003-anoemiss_al.
ENDIF.
* << Fim da exclusão
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI023
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 262
Texto: (40 caracteres)
"Ato legal incompleto para o pedido/item:"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 262
Texto: (41 caracteres)
"Incomplete legal act for the pedido/item:"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 262
Texto: (45 caracteres)
"Acto jurídico incompleto para el pedido/item:"
Comprimento máximo: 50