CE PLUS - Nota 003633
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 08/05/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:41:18
Descrição da Nota: DESCRIÇÃO DO ÍTEM GENÉRICO NA DI E LI, DETALHE DO ITEM
Sintoma
necessário adicionar descrição da tabela de parâmetro /PWS/ZYCIT433 nos detalhes dos itens de DI e
LI com Drawback
Solução
Novo desenvolvimento para levar a descrição do ítem genérico nos casos de Drawback.
O sistema leva a descrição standart e nos casos de Drawback também leva a descrição do ítem genérico
da tabela de "Insumos Alternativos-Drawback" (/PWS/ZYCIT433).
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03633 Data: 08/05/2007 Hora: 13:54:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03633
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00165
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02557 - 00001 - 6.0 - 00025 - ERRO AO CARREGAR DESCRIÇÃO DE MATERIAIS NA NOTA FISCAL
----------------------------------------------------------------------------------------------------
DESCRIÇÃO DO ÍTEM GENÉRICO NA DI E LI, DETALHE DO ITEM
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESCRIÇÃO - ÍTEM GENÉRICO - DI - LI - DETALHE - /PWS/ZYCIT433
/PWS/ZYCIT229 - DRAWBACK
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
answer = v_resposta.
IF v_resposta EQ 'J'.
wa_zycit136-stasis = 'A'.
wa_zycit136-dtenvf = sy-datum .
MODIFY /pws/zycit136 FROM wa_zycit136.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM fill_desc.
* >> Início da inclusão: FORM FILL_DESC
if /pws/zycie078-dtuserc is initial and
( sy-tcode eq '/PWS/ZYCI020_C' or
sy-tcode eq '/PWS/ZYCI020_I' OR
SY-TCODE EQ '/PWS/ZYCI020_P' ) .
/pws/zycie078-dtuserc = sy-datum .
endif.
* << Fim da inclusão
IF v_esp IS INITIAL.
CLEAR rtexti.
REFRESH rtexti.
IF itab_zycit229[] IS INITIAL.
SELECT * FROM /pws/zycit229 INTO TABLE itab_zycit229
WHERE codeven EQ 'LI'.
ENDIF.
SORT itab_zycit229 BY codseq.
READ TABLE it_ekpo WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
...
...
CONCATENATE text-172 it_zycit079-ebeln
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ELSEIF itab_zycit229-txtdesc = '12'.
rtexti-tdformat = '*'.
CONCATENATE text-171 it_zycit079-ebelp
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM FILL_DESC
if not /PWS/ZYCIE078-NRSEQD is initial.
perform verifica_generico.
endif.
* << Fim da inclusão
READ TABLE rtexti INDEX 1.
CLEAR rtexti-tdformat.
v_esp = rtexti-tdline.
MODIFY rtexti INDEX 1.
PERFORM save_txt_2.
ENDIF.
ENDFORM.
FORM read_text_especif CHANGING p_v_texto.
READ TABLE itab_stxl INDEX 1.
CALL FUNCTION 'READ_TEXT'
...
...
IF NOT /PWS/ZYCIE078-NRLI IS INITIAL.
EXIT.
ENDIF.
cont = cont + 1.
ENDWHILE.
IF sy-subrc = 0 AND NOT /PWS/ZYCIE078-NRLI IS INITIAL.
/pws/zycie078-nrli = /pws/zycit078-nrli.
/pws/zycie078-dtreg = /PWS/ZYCIt078-DTREG .
ENDIF.
endform.
* >> Início da inclusão:
form verifica_generico.
data: begin of itab_zycit433 occurs 0 .
include structure /pws/zycit433 .
data: end of itab_zycit433.
select single matnr from ekpo
into v_matnr
where ebeln eq it_zycit079-ebeln.
if sy-subrc eq 0.
select * from /pws/zycit433
into table itab_zycit433
where matnr eq v_matnr
and dtde <= /pws/zycie078-dtuserc
and dtate >= /pws/zycie078-dtuserc .
if sy-subrc eq 0.
loop at itab_zycit433.
rtexti-tdformat = '*'.
move itab_zycit433-desc_g to rtexti-tdline .
append rtexti.
endloop.
endif.
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
ENDIF.
IF sy-subrc = 0.
REFRESH rtexti.
* >> Início da exclusão: FORM READ_TEXT_ESPECIF
APPEND rtexti.
* << Fim da exclusão
LOOP AT rtextesp.
rtexti-tdformat = '*'.
rtexti-tdline = rtextesp-tdline.
APPEND rtexti.
ENDLOOP.
ELSE.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
...
...
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
ENDIF.
ENDFORM.
FORM fill_desc.
* >> Início da inclusão: FORM FILL_DESC
if /pws/zycie085-dtuserc is initial and
sy-tcode eq '/PWS/ZYCI023_C' .
/pws/zycie085-dtuserc = sy-datum .
endif.
* << Fim da inclusão
CLEAR rtexti. REFRESH rtexti.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
language = sy-langu
name = v_txtki
object = '/PWS/CIDDI'
TABLES
lines = rtexti
...
...
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ENDIF.
ENDLOOP.
ELSE.
READ TABLE itab_ekpo WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
rtexti-tdformat = '*'.
rtexti-tdline = itab_ekpo-txz01.
APPEND rtexti.
* >> Início da inclusão: FORM FILL_DESC
ENDIF.
read table itab_ZYCIT003 WITH KEY EBELN = ITAB_IT-EBELN
EBELP = ITAB_IT-EBELP.
IF SY-SUBRC EQ 0 and
not itab_zycit003-nrseqli is initial.
SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078 WHERE
nrseqli = itab_zycit003-nrseqli.
if sy-subrc eq 0 and not wa_zycit078-nrseqd is initial.
perform verifica_generico.
endif.
* << Fim da inclusão
ENDIF.
ENDIF.
IF itab_it-especificacao IS INITIAL.
READ TABLE rtexti INDEX 1.
itab_it-especificacao = rtexti-tdline.
ENDIF.
IF itab_it-especificacao IS INITIAL.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
itab_it-especificacao = itab_zycit003-descr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
CHANGING t_fundes_regtri /pws/zycie100a-codfunlegpiscofi.
ELSE.
CLEAR: t_fundes_regtri.
ENDIF.
ENDFORM.
FORM comm_fundap.
PERFORM load_cnpj USING /pws/zycie085-j_1bbranch
/pws/zycie085-bukrs
CHANGING s_cnpj.
ENDFORM.
* >> Início da inclusão:
form verifica_generico.
data: begin of itab_zycit433 occurs 0 .
include structure /pws/zycit433 .
data: end of itab_zycit433.
data: v_matnr type /pws/zycit433-matnr.
select single matnr from ekpo
into v_matnr
where ebeln eq itab_it-ebeln.
if sy-subrc eq 0.
select * from /pws/zycit433
into table itab_zycit433
where matnr eq v_matnr
and dtde <= wa_zycit078-dtuserc
and dtate >= wa_zycit078-dtuserc .
if sy-subrc eq 0.
loop at itab_zycit433.
rtexti-tdformat = '*'.
move itab_zycit433-desc_g to rtexti-tdline .
append rtexti.
endloop.
endif.
endif.
endform.
* << Fim da inclusão