CE PLUS - Nota 008737
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 27/07/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:11:18
Descrição da Nota: IMPLEMENTADO PARA DI E LI BUSCAR OS TEXTOS DO PROGRAMA DE REMESSA
Sintoma
Implementado a Busca dos Textos do Programa de Remessa na LI e na DI
Solução
Implementado a Busca dos Textos do Programa de Remessa na LI e na DI
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08737 Data: 27/07/2009 Hora: 14:34:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08737
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00107
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
IMPLEMENTADO PARA DI E LI BUSCAR OS TEXTOS DO PROGRAMA DE REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - LI - TEXTOS - REMESSA
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TEXTO_DETALHE_ITEM
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TEXTO_DETALHE_ITEM
...
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F03' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif TABLES itab_stxl
rtexti
CHANGING v_name.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TEXTO_DETALHE_ITEM
ELSE.
CLEAR v_name.
CONCATENATE ebeln ebelp INTO v_name.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'L03' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif TABLES itab_stxl
rtexti
CHANGING v_name.
ENDIF.
* << Fim da inclusão
ENDIF.
ELSEIF itab_zycit229-txtdesc = '03'.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'MATERIAL' AND
tdname = wa_ekpo-matnr AND
tdid = 'GRUN' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
...
...
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F01' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif TABLES itab_stxl
rtexti
CHANGING v_name.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TEXTO_DETALHE_ITEM
ELSE.
CLEAR v_name.
CONCATENATE ebeln ebelp INTO v_name.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'L01' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif TABLES itab_stxl
rtexti
CHANGING v_name.
ENDIF.
* << Fim da inclusão
ENDIF.
ELSEIF itab_zycit229-txtdesc = '05'.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'MATERIAL' AND
tdname = wa_ekpo-matnr AND
tdid = 'BEST' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
...
...
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F04' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif TABLES itab_stxl
rtexti
CHANGING v_name.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TEXTO_DETALHE_ITEM
ELSE.
CLEAR v_name.
CONCATENATE ebeln ebelp INTO v_name.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'L04' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif TABLES itab_stxl
rtexti
CHANGING v_name.
ENDIF.
* << Fim da inclusão
ENDIF.
ELSEIF itab_zycit229-txtdesc = '07'.
CONCATENATE ebeln ebelp INTO v_name.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F05' AND
tdspras = v_spras AND
srtf2 = 0.
...
...
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'F02' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif TABLES itab_stxl
rtexti
CHANGING v_name.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TEXTO_DETALHE_ITEM
ELSE.
CLEAR v_name.
CONCATENATE ebeln ebelp INTO v_name.
SELECT SINGLE * FROM stxl INTO itab_stxl
WHERE relid = 'TX' AND
tdobject = 'EKPO' AND
tdname = v_name AND
tdid = 'L02' AND
tdspras = v_spras AND
srtf2 = 0.
IF sy-subrc = 0.
PERFORM read_text_especif TABLES itab_stxl
rtexti
CHANGING v_name.
ENDIF.
* << Fim da inclusão
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.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = itab_makt-matnr
IMPORTING
...