CE PLUS - Nota 001480
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: BL
Data/Hora da Publicação: 31/05/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:37:57
Descrição da Nota: AJUSTES NO COMPRIMENTO DA DATA, CAMPO FREETIME E DTFORZOSO
Sintoma
Datas do B/L estão com tamanho do campo diferente.
A coluna free time, fica inteira preenchida, e deveria preencher somente a linha que tem
container.
A coluna data do forzoso esta aparecendo para empresas brasileiras.
Solução
Foi definido assim como os demais o tamanho do campo DATA.
Foi feito uma consistência pra verificar se tem algum campo da linha preenchido, se houver ele traz
o freetime.
Foi definido um tratamento para ocultar a coluna dtforzoso caso o país fosse Brasil.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01480 Data: 31/05/2006 Hora: 14:43:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01480
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00116
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTES NO COMPRIMENTO DA DATA, CAMPO FREETIME E DTFORZOSO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DATA, FREETIME, DTFORZOSO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI002F02
REPS /PWS/MZYCI002O01
REPS /PWS/MZYCI002TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002F02
...
SELECT codarmad codagente free_time FROM /pws/zycet133
INTO TABLE itab_zycet133
WHERE codarmad = /pws/zycie093-armador
AND codagente = /pws/zycie093-agente.
ENDFORM.
* >> Início da inclusão:
FORM seleciona_pais.
IF NOT /pws/zycie093 IS INITIAL.
MOVE-CORRESPONDING /pws/zycie093 TO itab_zycit093.
SELECT bukrs land1
FROM t001
INTO TABLE itab_t001
FOR ALL ENTRIES IN itab_zycit093
WHERE bukrs = itab_zycit093-bukrs.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002O01
...
/pws/zycie055-perarmaz = itab_zycit055-perarmaz.
/pws/zycie055-armazen = itab_zycit055-armazen.
/pws/zycie055-pesobruto = itab_zycit055-pesobruto.
/pws/zycie055-dtforzoso = itab_zycit055-dtforzoso.
/pws/zycie055-gewei = itab_zycit055-gewei.
* >> Início da exclusão: MODULE ENCHE_TABCTRL1
SELECT SINGLE free_time FROM /pws/zycet133
INTO v_freetime
WHERE codarmad = /pws/zycie093-armador
AND codagente = /pws/zycie093-agente.
* << Fim da exclusão
* >> Início da inclusão: MODULE ENCHE_TABCTRL1
IF NOT itab_zycit055-nrcontainer IS INITIAL.
IF v_nrcontainer <> itab_zycit055-nrcontainer.
ENDIF.
ENDIF.
IF NOT /pws/zycie055 IS INITIAL.
CLEAR itab_zycet133.
READ TABLE itab_zycet133
WITH KEY codarmad = /pws/zycie093-armador
codagente = /pws/zycie093-agente.
IF sy-subrc = 0.
v_freetime = itab_zycet133-free_time.
ENDIF.
ENDIF.
v_nrcontainer = itab_zycit055-nrcontainer.
* << Fim da inclusão
marc3 = itab_zycit055-marc.
tabctrl1-lines = tabctrl1-lines + 13.
ENDMODULE.
MODULE trata_tabctrl1 OUTPUT.
READ TABLE itab_zycit055 INDEX 1.
MOVE: itab_zycit055-dtatrac TO /pws/zycie055-dtatrac.
IF ts_bl-activetab EQ 'FC_CONT'.
tabctrl1-lines = tabctrl1-lines + 15.
* >> Início da inclusão: MODULE TRATA_TABCTRL1
ENDIF.
DATA: BEGIN OF itab_zycit093 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie093.
DATA: END OF itab_zycit093.
PERFORM seleciona_pais.
READ TABLE itab_t001 WITH KEY bukrs = itab_zycit093-bukrs.
IF itab_t001-land1 = 'BR'.
LOOP AT tabctrl1-cols INTO wa_cols2.
IF wa_cols2-screen-name = '/PWS/ZYCIE055-DTFORZOSO'.
wa_cols2-invisible = 1.
MODIFY tabctrl1-cols FROM wa_cols2.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDIF.
ENDMODULE.
MODULE transp_dados OUTPUT.
IMPORT v_nrbl FROM MEMORY ID rimc2.
IF sy-subrc EQ 0.
...
...
ELSEIF sy-tcode EQ '/PWS/ZYCI002_E'.
v_tcode = '/PWS/ZYCI002_E'.
v_status = 0.
ENDIF.
v_status = v_status_s.
v_tcode = v_tcode_s.
PERFORM load_agen_transp.
CLEAR: v_st.
SELECT status UP TO 1 ROWS FROM /pws/zycit085 INTO v_st
WHERE nrbl EQ /pws/zycie093-nrseqce.
ENDSELECT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002TOP
...
uebtk LIKE ekpo-uebtk,
noinitial,
mark,
idnlf LIKE mepo1319-idnlf.
DATA: END OF itab_zycit003.
* >> Início da inclusão:
DATA: BEGIN OF itab_t001 OCCURS 0,
bukrs TYPE t001-bukrs,
land1 TYPE t001-land1,
END OF itab_t001.
* << Fim da inclusão
DATA: BEGIN OF wa_lfa1,
lifnr LIKE lfa1-lifnr,
name1 LIKE lfa1-name1,
land1 LIKE lfa1-land1,
END OF wa_lfa1.
...
...
wa_limpinv LIKE /pws/zycie093 ,
wa_sel LIKE /pws/zycie094 ,
wa_zycie003 LIKE /pws/zycie003 ,
wa_zycie085 LIKE /pws/zycie085 ,
wa_zycit055 LIKE itab_zycit055 .
* >> Início da inclusão:
DATA: wa_cols2 TYPE cxtab_column.
* << Fim da inclusão
DATA: v_codbarra LIKE /pws/zycie093-identconh ,
v_dtemb LIKE /pws/zycie093-dtemb ,
v_lpost LIKE /pws/zycit093-localemb ,
v_aux_id LIKE /pws/zycie093-identify ,
v_aux_mt LIKE /pws/zycie093-meiotransp ,
...