CE PLUS - Nota 009292
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 30/10/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:46:31
Descrição da Nota: FORMATO DA DATA DE EMBARQUE NOS TEXTOS COMPLEMENTARES ESTÁ INCORRETO.
Sintoma
Formato da data de embarque nos textos complementares está incorreto.
Solução
Tratar formato da data.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09292 Data: 30/10/2009 Hora: 11:35:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09292
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00120
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
FORMATO DA DATA DE EMBARQUE NOS TEXTOS COMPLEMENTARES ESTÁ INCORRETO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DATA DE EMBARQUE - DI - TEXTOS COMPLEMENTARES
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
FORM fill_text_compl.
* >> Início da inclusão: FORM FILL_TEXT_COMPL
DATA: wa_usr01 TYPE usr01.
* << Fim da inclusão
DATA: v_word .
CHECK sy-binpt IS INITIAL.
CALL METHOD editor2->get_text_as_r3table IMPORTING table = ittxt1[].
LOOP AT itab_zycit104 WHERE NOT flag IS initial.
CLEAR: rtextcompl.
REFRESH: rtextcompl.
v_txtcom+00 = sy-mandt.
v_txtcom+03 = itab_zycit104-codmod.
v_txtcom+04 = itab_zycit104-codint.
v_txtcom+07 = itab_zycit104-idtext.
...
...
it_words-word = /pws/zycie085-nrbl.
ENDIF.
WHEN 'NAVIO'.
CLEAR it_words-word.
IF NOT /pws/zycie093-embarca IS INITIAL.
it_words-word = /pws/zycie093-embarca.
ENDIF.
WHEN 'DTCHEG'.
CLEAR it_words-word.
IF NOT /pws/zycie093-dtcheg IS INITIAL.
* >> Início da exclusão: FORM FILL_TEXT_COMPL
it_words-word+00 = /pws/zycie093-dtcheg+06(2).
it_words-word+02 = '/'.
it_words-word+03 = /pws/zycie093-dtcheg+04(2).
it_words-word+05 = '/'.
it_words-word+06 = /pws/zycie093-dtcheg+00(4).
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_TEXT_COMPL
SELECT SINGLE * FROM usr01 INTO wa_usr01
WHERE bname EQ sy-uname.
CASE wa_usr01-datfm.
WHEN 1.
CONCATENATE /pws/zycie093-dtcheg+06(2)
/pws/zycie093-dtcheg+04(2)
/pws/zycie093-dtcheg+0(4) INTO it_words-word.
WHEN 2 OR 3.
CONCATENATE /pws/zycie093-dtcheg+4(2)
/pws/zycie093-dtcheg+6(2)
/pws/zycie093-dtcheg+0(4) INTO it_words-word.
WHEN 4 OR 5 OR 6.
CONCATENATE /pws/zycie093-dtcheg+0(4)
/pws/zycie093-dtcheg+4(2)
/pws/zycie093-dtcheg+6(2) INTO it_words-word.
ENDCASE.
* << Fim da inclusão
ENDIF.
WHEN 'IDENT'.
CLEAR it_words-word.
IF NOT /pws/zycie093-identconh IS INITIAL.
it_words-word = /pws/zycie093-identconh.
ENDIF.
WHEN 'MASTER'.
CLEAR it_words-word.
IF NOT /pws/zycie093-identmaster IS INITIAL.
it_words-word = /pws/zycie093-identmaster.
...
...
ENDIF.
WHEN 'LOCALEMB'.
CLEAR it_words-word.
CLEAR it_words-word.
IF NOT /pws/zycie093-localemb IS INITIAL.
it_words-word = /pws/zycie093-localemb.
ENDIF.
WHEN 'DTEMB'.
CLEAR it_words-word.
IF NOT /pws/zycie093-dtemb IS INITIAL.
* >> Início da exclusão: FORM FILL_TEXT_COMPL
it_words-word = /pws/zycie093-dtemb.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_TEXT_COMPL
CASE wa_usr01-datfm.
WHEN 1.
CONCATENATE /pws/zycie093-dtemb+06(2)
/pws/zycie093-dtemb+04(2)
/pws/zycie093-dtemb+0(4) INTO it_words-word.
WHEN 2 OR 3.
CONCATENATE /pws/zycie093-dtemb+4(2)
/pws/zycie093-dtemb+6(2)
/pws/zycie093-dtemb+0(4) INTO it_words-word.
WHEN 4 OR 5 OR 6.
CONCATENATE /pws/zycie093-dtemb+0(4)
/pws/zycie093-dtemb+4(2)
/pws/zycie093-dtemb+6(2) INTO it_words-word.
ENDCASE.
* << Fim da inclusão
ENDIF.
ENDCASE.
MODIFY it_words INDEX v_idxa.
ENDLOOP.
IF it_words_app[] IS INITIAL.
CLEAR v_txta.
IF v_word EQ 'X'.
LOOP AT it_words.
MOVE it_words-word TO v_txta.
ittxt2-line = v_txta(66).
...