CE PLUS - Nota 006111
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 05/03/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:57:59
Descrição da Nota: O EXTRATO DA LI NÃO APARECE O NR DO MATERIAL E DESCRIÇÃO NO DETALHE ITEM
Sintoma
O extrato da LI, não aparece o nr. do material e a descrição no detalhe do item (campos
/PWS/ZYCIT003-MATNR, PWS/ZYCIT003-DESCR), assim o despachante não consegue identificar o material da
LI.
Solução
Implementar o Código do Produto na /pws/zycit229 e configurar nos programas de DI e LI
Domínio /PWS/ZYGLD049
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06111 Data: 05/03/2008 Hora: 16:03:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06111
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00052
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
O EXTRATO DA LI NÃO APARECE O NR DO MATERIAL E DESCRIÇÃO NO DETALHE ITEM
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXTRATO - LI - EXTRATO LI - DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMD /PWS/ZYGLD049
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMD /PWS/ZYGLD049
------------------------------------------------------------------------
Domínio modificado: /PWS/ZYGLD049
-Valores individuais
Incluído valor fixo "14"
Texto incluído, idioma: PT (14 caracteres):
"CÓDIGO PRODUTO"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
FORM fill_desc.
* >> Início da inclusão: FORM FILL_DESC
DATA: v_matnr like ekpo-matnr,
v_mat(18) TYPE c.
* << Fim da inclusão
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.
CLEAR rtexti.
CONCATENATE it_zycit079-nrseqli it_zycit079-ebeln
it_zycit079-ebelp INTO v_txtki.
PERFORM preenche_thead USING wa_thead 'CE01'.
...
...
ENDIF.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '11'.
rtexti-tdformat = '*'.
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
* >> Início da inclusão: FORM FILL_DESC
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ELSEIF itab_zycit229-txtdesc = '14'.
SELECT SINGLE matnr FROM ekpo INTO v_matnr
WHERE ebeln = /PWS/ZYCIE079A-ebeln
AND ebelp = /PWS/ZYCIE079A-ebelp.
SELECT SINGLE * FROM makt INTO itab_makt
WHERE matnr = v_matnr
AND spras = v_spras.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = itab_makt-matnr
IMPORTING
output = v_mat.
IF sy-subrc = 0.
rtexti-tdformat = '*'.
CONCATENATE 'P/N:' v_mat
* << Fim da inclusão
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
* >> Início da inclusão: FORM FILL_DESC
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
IF NOT /pws/zycie078-nrseqd IS INITIAL.
PERFORM verifica_generico.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
FORM fill_desc.
* >> Início da inclusão: FORM FILL_DESC
DATA: v_mat(18) TYPE c.
* << Fim da inclusão
IF /pws/zycie085-dtuserc IS INITIAL AND
sy-tcode EQ '/PWS/ZYCI023_C' .
/pws/zycie085-dtuserc = sy-datum .
ENDIF.
CLEAR rtexti. REFRESH rtexti.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
language = sy-langu
...
...
ENDIF.
ENDIF.
ELSEIF itab_zycit229-txtdesc = '11'.
rtexti-tdformat = '*'.
CONCATENATE text-052 itab_it-ebeln
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ELSEIF itab_zycit229-txtdesc = '12'.
rtexti-tdformat = '*'.
CONCATENATE text-115 itab_it-ebelp
* >> Início da inclusão: FORM FILL_DESC
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
ELSEIF itab_zycit229-txtdesc = '14'.
SELECT SINGLE * FROM makt INTO itab_makt
WHERE matnr = itab_ekpo-matnr
AND spras = v_spras.
IF sy-subrc = 0.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = itab_makt-matnr
IMPORTING
output = v_mat.
rtexti-tdformat = '*'.
CONCATENATE 'P/N:' v_mat
* << Fim da inclusão
INTO rtexti-tdline SEPARATED BY space.
APPEND rtexti.
* >> Início da inclusão: FORM FILL_DESC
ENDIF.
* << Fim da inclusão
ENDIF.
IF rtexti IS INITIAL.
PERFORM read_text_blitem CHANGING /pws/zycie100a-especificacao.
ENDIF.
ENDLOOP.
...