CE PLUS - Nota 010844
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LSI
Data/Hora da Publicação: 17/12/2010 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:09:48
Descrição da Nota: ACRESCENTAR OPÇÃO DE TEXTOS DE DRAWBACK NA ZYCIT229
Sintoma
Acrescentar opção de textos de drawback na zycit229
Solução
Acrescentado opção de textos de drawback na zycit229
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10844 Data: 17/12/2010 Hora: 15:39:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10844
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00052
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02850 - 00001 - 6.0 - 00026 - O SISTEMA NAO RECUPERA TEXTOS DO PEDIDO DE COMPRA
06111 - 00002 - 7.0 - 00005 - O EXTRATO DA LI NÃO APARECE O NR DO MATERIAL E DESCRIÇÃO NO DETAL
06559 - 00003 - 7.0 - 00005 - AO PARAMETRIZAR ORIGEM DE INFORECORD, NAO CARREGA TEXTO LI
06611 - 00004 - 7.0 - 00005 - ALTERAÇÃO PARA UTILIZAR NOVA FUNÇÃO PARA BUSCAR TEXTOS
08018 - 00005 - 7.0 - 00008 - DUMP AO SELECIONAR O TEXTO DO PEDIDO
08737 - 00006 - 7.0 - 00010 - IMPLEMENTADO PARA DI E LI BUSCAR OS TEXTOS DO PROGRAMA DE REMESSA
----------------------------------------------------------------------------------------------------
ACRESCENTAR OPÇÃO DE TEXTOS DE DRAWBACK NA ZYCIT229
----------------------------------------------------------------------------------------------------
Palavras Chave:
TEXTOS - DRAWBACK - ZYCIT229
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMD /PWS/ZYGLD049
FUNC /PWS/ZYCI_TEXTO_DETALHE_ITEM
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMD /PWS/ZYGLD049
------------------------------------------------------------------------
Domínio modificado: /PWS/ZYGLD049
-Valores individuais
Incluído valor fixo "15"
Texto incluído, idioma: PT (14 caracteres):
"TEXTO DRAWBACK"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TEXTO_DETALHE_ITEM
FUNCTION /pws/zyci_texto_detalhe_item .
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TEXTO_DETALHE_ITEM
tables: /pws/zycie078.
DATA: BEGIN OF itab_zycit433 OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit433 .
DATA: END OF itab_zycit433.
data: v_matnr like ekpo-matnr.
* << Fim da inclusão
...
...
PERFORM read_text_especif TABLES itab_stxl
rtexti
CHANGING v_name.
ENDIF.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '14'.
SELECT SINGLE * FROM makt INTO itab_makt
WHERE matnr = wa_ekpo-matnr
AND spras = v_spras.
IF sy-subrc = 0.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TEXTO_DETALHE_ITEM
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = itab_makt-matnr
IMPORTING
output = v_mat.
* << Fim da exclusão
rtexti-tdformat = '*'.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TEXTO_DETALHE_ITEM
CONCATENATE text-056 v_mat
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TEXTO_DETALHE_ITEM
CONCATENATE text-056 itab_makt-matnr
* << Fim da inclusão
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TEXTO_DETALHE_ITEM
ENDIF.
ELSEIF itab_zycit229-txtdesc = '15'.
import /pws/zycie078 from memory id '078'.
if not /pws/zycie078 is initial and
NOT /pws/zycie078-nrseqd IS INITIAL.
SELECT SINGLE matnr FROM ekpo
INTO v_matnr
WHERE ebeln EQ 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.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDLOOP.
ELSE.
rtexti-tdformat = '*'.
rtexti-tdline = wa_ekpo-txz01.
APPEND rtexti.
ENDIF.
rtext[] = rtexti[].
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
IF NOT /pws/zycie078-nrseqlisuba IS INITIAL AND
NOT v_flagsub IS INITIAL.
CONCATENATE it_zycit079-nrseqli it_zycit079-ebeln
it_zycit079-ebelp INTO v_txtki.
ENDIF.
READ TABLE rtexti INDEX 1.
ENDIF.
IF rtexti IS INITIAL.
CLEAR rtexti.
REFRESH rtexti.
* >> Início da inclusão: FORM FILL_DESC
EXPORT /pws/zycie078 TO MEMORY ID '078'.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_TEXTO_DETALHE_ITEM'
EXPORTING
ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp
codeven = 'LI'
TABLES
rtext = rtexti
EXCEPTIONS
item_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
* >> Início da exclusão: FORM FILL_DESC
IF NOT /pws/zycie078-nrseqd IS INITIAL.
PERFORM verifica_generico.
ENDIF.
* << Fim da exclusão
READ TABLE rtexti INDEX 1.
CLEAR rtexti-tdformat.
v_esp = rtexti-tdline.
MODIFY rtexti INDEX 1.
PERFORM save_txt_2.
ENDIF.
IF v_esp IS INITIAL.
READ TABLE rtexti INDEX 1.
v_esp = rtexti-tdline.
ENDIF.
...
...
CLEAR: itab_zycit338.
REFRESH: itab_zycit338.
SELECT SINGLE * FROM /pws/zycit338 INTO itab_zycit338
WHERE matnr = v_matnr
AND codsufra = /pws/zycie079a-codsufra.
READ TABLE itab_zycit338 INDEX 1.
CLEAR v_txtki.
itab_zycit338-mandt = sy-mandt.
itab_zycit338-matnr = v_matnr.
v_txtki = itab_zycit338(25).
* >> Início da exclusão: FORM FILL_DESC
CLEAR: rtexti.
REFRESH: rtexti.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
CLEAR: rtexti338 .
REFRESH: rtexti338 .
* << Fim da inclusão
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = '0338'
language = sy-langu
name = v_txtki
object = '/PWS/ZYCI'
TABLES
* >> Início da exclusão: FORM FILL_DESC
lines = rtexti
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
lines = rtexti338
* << Fim da inclusão
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
* >> Início da exclusão: FORM FILL_DESC
READ TABLE rtexti INDEX 1.
v_esp338 = rtexti-tdline.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
READ TABLE rtexti338 INDEX 1.
v_esp338 = rtexti338-tdline.
* << Fim da inclusão
ENDFORM.
...
...
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
READ TABLE rtextesp INDEX 1.
MOVE rtextesp-tdline TO p_v_texto.
* >> Início da exclusão: FORM READ_TEXT_ESPECIF
LOOP AT rtextesp.
rtexti-tdformat = '*'.
rtexti-tdline = rtextesp-tdline.
APPEND rtexti.
ENDLOOP.
* << Fim da exclusão
ENDIF.
ENDFORM.
...
...
* >> Início da exclusão: FORM VERIFICA_GENERICO
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 exclusão
...