CE PLUS - Nota 000155
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 18/10/2005 00:00:00
Data/Hora Última Alteração: 20/06/2011 15:06:58
Descrição da Nota: AJUSTES TÉCNICOS NOS PROGRAMAS.
Sintoma
Alguns programas e objetos não atendiam tecnicamente a solicitação do cliente.
Solução
Ajustar tecnicamente.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00155 Data: 18/10/2005 Hora: 10:10:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00155
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00083
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTES TÉCNICOS NOS PROGRAMAS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
AJUSTES TÉCNICOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUGR /PWS/ZYGLGF1
REPS /PWS/ZYCBR112
REPS /PWS/ZYCER252
REPS /PWS/ZYCIR321
REPT /PWS/ZYCER252
TOBJ /PWS/ZYCIV615V
TRAN /PWS/ZYCIT190
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCER252
*Os seguintes textos foram modificados:
ID Chave Compr Txt.
PARA : I 009 10 /PWS/CB07
DE : I 009 4 CB07
PARA : I 011 10 /PWS/CB08
DE : I 011 4 CB08
PARA : I 012 10 /PWS/CB09
DE : I 012 4 CB09
PARA : I 015 10 /PWS/CE01
DE : I 015 4 CE01
PARA : I 016 10 /PWS/CE02
DE : I 016 4 CE02
PARA : I 018 10 /PWS/ZDE
DE : I 018 3 ZDE
PARA : I 020 10 /PWS/ZDI
DE : I 020 3 ZDI
PARA : I 022 10 /PWS/ZEMB
DE : I 022 4 ZEMB
PARA : I 025 10 /PWS/ZIE
DE : I 025 3 ZIE
PARA : I 026 10 /PWS/ZLI
DE : I 026 3 ZLI
PARA : I 039 10 /PWS/CE05
DE : I 039 4 CE05
PARA : I 040 10 /PWS/CE03
DE : I 040 4 CE03
PARA : I 041 10 /PWS/CE04
DE : I 041 4 CE04
PARA : I 042 10 /PWS/CE06
DE : I 042 4 CE06
PARA : I 044 10 /PWS/CE06
DE : I 044 4 CE07
PARA : I 046 10 /PWS/CA01
DE : I 046 4 CA01
PARA : I 048 10 /PWS/ZOBE
DE : I 048 4 ZOBE
PARA : I 050 10 /PWS/ZBLC
DE : I 050 4 ZBLC
PARA : I 052 10 /PWS/ZFAT
DE : I 052 4 ZFAT
PARA : I 054 10 /PWS/ZDDI
DE : I 054 4 ZDDI
PARA : I 055 10 /PWS/ZDDC
DE : I 055 4 ZDDC
PARA : I 057 10 /PWS/ZOLI
DE : I 057 4 ZOLI
PARA : I 059 10 /PWS/ZCAC
DE : I 059 4 ZCAC
PARA : I 061 10 /PWS/ZCOR
DE : I 061 4 ZCOR
PARA : I 063 10 /PWS/ZICE
DE : I 063 4 ZICE
PARA : I 065 10 /PWS/ZYCG
DE : I 065 4 ZYCG
PARA : I 067 10 /PWS/ZIDN
DE : I 067 4 ZIDN
PARA : I 069 10 /PWS/ZTLI
DE : I 069 4 ZTLI
PARA : I 071 10 /PWS/ZDSI
DE : I 071 4 ZDSI
PARA : I 073 10 /PWS/ZDDA
DE : I 073 4 ZDDA
PARA : I 074 10 /PWS/ZDAD
DE : I 074 4 ZDAD
PARA : I 076 10 0104
DE : I 076 4 0104
PARA : I 078 10 /PWS/ADMT
DE : I 078 4 ADMT
PARA : I 080 10 /PWS/REPE
DE : I 080 4 REPE
PARA : I 081 9 /PWS/REPE
DE : I 081 9 ITAB_REPE
PARA : I 083 13 /PWS/ZYCI_ANP
DE : I 083 13 ZYCI_ANP
PARA : I 084 10 /PWS/ZPAN
DE : I 084 4 ZPAN
PARA : I 086 10 /PWS/ZIDN
DE : I 086 4 ZIDN
PARA : I 091 10 /PWS/CB01
DE : I 091 4 CB01
PARA : I 095 10 /PWS/ZCOP
DE : I 095 4 ZCOP
PARA : I 097 10 /PWS/ZFAC
DE : I 097 4 ZFAC
PARA : I 100 10 /PWS/CE10
DE : I 100 4 CE10
PARA : I 101 10 /PWS/CE11
DE : I 101 4 CE11
PARA : I 104 9 /PWS/ZYCI
DE : I 104 9 ZYCI
PARA : I 106 10 /PWS/CM01
DE : I 106 4 CM01
PARA : I 121 10 /PWS/CE01
DE : I 121 4 CE01
PARA : I 122 10 /PWS/CE02
DE : I 122 4 CE02
PARA : I 125 10 /PWS/CE03
DE : I 125 4 CE03
PARA : I 126 10 /PWS/CE04
DE : I 126 4 CE04
PARA : I 128 10 /PWS/ZPEX
DE : I 128 4 ZPEX
PARA : I 130 10 /PWS/ZDLE
DE : I 130 4 ZDLE
PARA : I 134 10 /PWS/ZYCB
DE : I 134 4 ZYCB
PARA : I 135 10 /PWS/CB12
DE : I 135 4 CB12
PARA : I 137 10 /PWS/ZEM
DE : I 137 3 ZEM
PARA : I 139 10 /PWS/ADMT
DE : I 139 4 ADMT
PARA : I 141 10 /PWS/REPE
DE : I 141 4 REPE
PARA : I 143 10 /PWS/ZYRP
DE : I 143 4 ZYRP
PARA : I 145 10 /PWS/ZMV
DE : I 145 3 ZMV
PARA : I 147 10 /PWS/ZMV1
DE : I 147 4 ZMV1
PARA : I 149 10 /PWS/ZTIE
DE : I 149 4 ZTIE
PARA : I 152 10 /PWS/CM901
DE : I 152 5 CM901
PARA : I 154 10 /PWS/ZDDC
DE : I 154 4 ZDDC
PARA : I 156 10 /PWS/ZDDI
DE : I 156 4 ZDDI
PARA : I 158 10 /PWS/ZTNF
DE : I 158 4 ZTNF
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR112
Contexto: FORM estorna_documento_selecionado.
v_codmod = 'I'.
*<<Início Inclusão>> <----- Nota
EXPORT v_codmod TO MEMORY ID 'E019'.
* EXPORT v_codmod TO DATABASE indx(19) ID 'E019'.
*<<Fim Inclusão>> <----- Nota
SUBMIT /pws/zyglr020 VIA SELECTION-SCREEN AND RETURN.
ENDFORM. " estorna_documento_selecionado
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR321
Contexto: FORM read_textdi.
CLEAR: rtexti,
xtheadi,
v_txtki.
REFRESH: rtexti.
CONCATENATE itab_zycit085d-nrseqdi itab_zycit100d-nrseq
itab_zycit100d-ebeln itab_zycit100d-ebelp INTO v_txtki.
PERFORM fill_desc.
*<<Início Inclusão>> <----- Nota
xtheadi-tdobject = '/PWS/CIDI'. "Objeto Fixo
* xtheadi-tdobject = 'ZYCI_DDI'. "Objeto Fixo
*<<Fim Inclusão>> <----- Nota
xtheadi-tdname = v_txtki. "Nº Seqüencial do Embarque
xtheadi-tdid = 'ZDSI'. "Constante
xtheadi-tdspras = sy-langu. "Idioma
xtheadi-tdlinesize = 070. "Largura da linha do editor
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI' "Constante
language = sy-langu
name = v_txtki
*<<Início Inclusão>> <----- Nota
object = '/PWS/CIDI' "Objeto Fixo
* object = 'ZYCi_DDI' "Objeto Fixo
*<<Fim Inclusão>> <----- Nota
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
ENDFORM. " read_textdi
-----------------------------------------------------------
Contexto: FORM fill_desc.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI' "Constante
language = sy-langu
name = v_txtki
*<<Início Inclusão>> <----- Nota
object = '/PWS/CIDI' "Objeto Fixo
* object = 'ZYCI_DDI' "Objeto Fixo
*<<Fim Inclusão>> <----- Nota
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc NE 0.
SORT itab_zycit229 BY codseq. ...
----------------------------------------------------------------------
Contexto: FORM fill_desc_dsi.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI' "Constante
language = sy-langu
name = v_txtki
*<<Início Inclusão>> <----- Nota
* object = 'ZYCI_DDI' "Objeto Fixo
object = '/PWS/CIDI' "Objeto Fixo
*<<Fim Inclusão>> <----- Nota
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc NE 0.
SORT itab_zycit229 BY codseq.
READ TABLE itab_ekpos WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
...
--------------------------------------------------------------------
Contexto: FORM read_dsi.
CLEAR: rtexti,
xtheadi,
v_txtki.
REFRESH: rtexti.
CONCATENATE itab_zycit085s-nrseqdi itab_zycit100s-nrseq
itab_zycit100s-ebeln itab_zycit100s-ebelp INTO v_txtki.
PERFORM fill_desc_dsi.
*<<Início Inclusão>> <----- Nota
* xtheadi-tdobject = 'ZYCI_DDI'. "Objeto Fixo
xtheadi-tdobject = '/PWS/CIDI'. "Objeto Fixo
*<<Fim Inclusão>> <----- Nota
xtheadi-tdname = v_txtki. "Nº Seqüencial do Embarque
xtheadi-tdid = 'ZDSI'. "Constante
xtheadi-tdspras = sy-langu. "Idioma
xtheadi-tdlinesize = 070. "Largura da linha do editor
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI' "Constante
language = sy-langu
name = v_txtki
*<<Início Inclusão>> <----- Nota
object = '/PWS/CIDI' "Objeto Fixo
* object = 'ZYCI_DDI' "Objeto Fixo
*<<Fim Inclusão>> <----- Nota
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
ENDFORM. " read_dsi
---------------------------------------------------------------------
Contexto: FORM text_adic_di.
CLEAR: rtexta,
xtheada,
v_txtki.
REFRESH: rtexta.
CONCATENATE itab_zycit085d-nrseqdi wa_it-adicao
wa_it-nrseq wa_it-ebeln wa_it-ebelp INTO v_txtki.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDDA' "Constante
language = sy-langu
name = v_txtki
*<<Início Inclusão>> <----- Nota
object = '/PWS/CIDI' "Objeto Fixo
* object = 'ZYCI_DDI' "Objeto Fixo
*<<Fim Inclusão>> <----- Nota
TABLES
lines = rtexta
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
CLEAR: t_espec.
IF NOT rtexta[] IS INITIAL.
READ TABLE rtexta INDEX 1.
t_espec = rtexta-tdline.
ENDIF.
ELSE.
CLEAR: t_espec.
ENDIF.
ENDFORM. " text_adic_di
--------------------------------------------------------------------
Contexto: FORM fill_item_di.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI' "Constante
language = sy-langu
name = v_txtki
*<<Início Inclusão>> <----- Nota
* object = 'ZYCI_DDI' "Objeto Fixo
object = '/PWS/CIDI' "Objeto Fixo
*<<Fim Inclusão>> <----- Nota
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc NE 0.
SORT itab_zycit229 BY codseq.
READ TABLE itab_ekpod WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
DATA: v_spras LIKE ekko-spras.
IF NOT itab_zycit229[] IS INITIAL.
LOOP AT itab_zycit229.
CLEAR: v_name, v_texto, itab_makt, itab_stxl, v_spras.
FREE: itab_makt, itab_stxl.
* Pegando Idioma do Pedido ou o configurado na ZYCIT229
IF itab_zycit229-spras NE space.
v_spras = itab_zycit229-spras.
ELSE.
SELECT SINGLE spras FROM ekko INTO v_spras
WHERE ebeln = itab_it-ebeln.
ENDIF.
* Texto Breve do Material - 01
IF itab_zycit229-txtdesc = '01'.
...
-----------------------------------------------------------------------
Contexto: FORM read_dsi_item CHANGING p_text.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI' "Constante
language = sy-langu
name = v_txtki
*<<Início Inclusão>> <----- Nota
object = '/PWS/CIDI' "Objeto Fixo
* object = 'ZYCI_DDI' "Objeto Fixo
*<<Fim Inclusão>> <----- Nota
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
CLEAR: p_text.
IF NOT rtexti[] IS INITIAL.
p_text = itab_it-descr.
ELSE.
IF sy-dynnr NE '0400'.
p_text = itab_it-descr.
ENDIF.
ENDIF.
ELSE.
IF NOT itab_it-especificacao IS INITIAL.
rtexti-tdformat = space.
rtexti-tdline = itab_it-especificacao.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TOBJ /PWS/ZYCIV615V
*Campo de tela modificado: BEZEI
MODIFICAR CAMPO: BEZEI
PROGRAMA:
DE :
(X) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
PARA :
( ) - CAMPO DE ENTRADA
( ) - CAMPO DE SAÍDA
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TRAN /PWS/ZYCIT190
*Alteração na transação
CÓDIGO DE TRANSAÇÃO: /PWS/ZYCIT190
VALORES PROPOSTOS
NOME DO CAMPO DA TELA VALOR
DE : VIEWNAME ZYCIT190
PARA : VIEWNAME /PWS/ZYCIT190
*<<Fim da Nota>>
*<<Fim da Nota>>
*<<Fim da Nota>>