CE PLUS - Nota 001577
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 13/06/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:34:48
Descrição da Nota: AJUSTE TIME ZONE DA DI
Sintoma
Ajustar TIME ZONE para funcionalidade DI
Solução
Atualização do programa da DI nos campos data para aceitar fuso horário diferente.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01577 Data: 13/06/2006 Hora: 12:10:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01577
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00117
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTE TIME ZONE DA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
TIME ZONE - DATA - SY-DATLO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
FORM findnrseq.
DATA:
v_nrseqc LIKE /pws/zycit085-nrseqdi,
v_count(7) TYPE n,
v_ano(4).
* >> Início da exclusão: FORM FINDNRSEQ
CONCATENATE '%' 'I' sy-datum+2(2) INTO v_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM FINDNRSEQ
CONCATENATE '%' 'I' sy-datlo+2(2) INTO v_ano.
* << Fim da inclusão
SELECT MAX( nrseqdi ) INTO (v_nrseqc) FROM /pws/zycit085
WHERE nrseqdi LIKE v_ano.
v_count = v_nrseqc+0(7) + 1.
* >> Início da exclusão: FORM FINDNRSEQ
CONCATENATE v_count+0(7) 'I' sy-datum+2(2) INTO /pws/zycie085-nrseqdi.
* << Fim da exclusão
* >> Início da inclusão: FORM FINDNRSEQ
CONCATENATE v_count+0(7) 'I' sy-datlo+2(2) INTO /pws/zycie085-nrseqdi.
* << Fim da inclusão
ENDFORM.
FORM save_data.
IF v_required EQ '1'.
CHECK NOT /pws/zycie085-dttax IS INITIAL.
ENDIF.
...
...
nrseqdi = /pws/zycie085-nrseqdi.
IF sy-subrc NE 0.
PERFORM fill_nrseq.
ELSE.
IF sy-tcode <> '/PWS/ZYCI023_C' AND sy-tcode <> '/PWS/ZYCI023_I'.
* >> Início da exclusão: FORM SAVE_DATA
/pws/zycie085-dtusera = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_DATA
/pws/zycie085-dtusera = sy-datlo.
* << Fim da inclusão
/pws/zycie085-usernamea = sy-uname.
ELSEIF v_salvo NE 'X'.
v_salvo = 'X'.
PERFORM fill_nrseq.
MESSAGE i015 WITH text-013 /pws/zycie085-nrseqdi.
...
...
ENDIF.
ENDFORM.
FORM fill_criar.
v_salvo = 'X'.
/pws/zycie085-mandt = sy-mandt.
* >> Início da exclusão: FORM FILL_CRIAR
/pws/zycie085-dtuserc = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_CRIAR
/pws/zycie085-dtuserc = sy-datlo.
* << Fim da inclusão
/pws/zycie085-usernamec = sy-uname.
/pws/zycie085-tpdi = v_dit.
ENDFORM.
FORM procura_mensagem_li.
DATA:
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
WHERE regio = ' '
AND lei = 'MP255'.
ENDIF.
CLEAR v_nova.
IF /pws/zycie085-dtuserc IS INITIAL.
* >> Início da exclusão: FORM LOAD_IICMS
/pws/zycie085-dtuserc = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
/pws/zycie085-dtuserc = sy-datlo.
* << Fim da inclusão
ENDIF.
IF NOT itab_it[] IS INITIAL.
SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003_rateio
FOR ALL ENTRIES IN itab_it
WHERE nrseq = itab_it-nrseq AND
...
...
ENDIF.
wa_zycit136-nrseq = /pws/zycie085-nrseqdi.
wa_zycit136-bukrs = /pws/zycie085-bukrs.
wa_zycit136-branch = /pws/zycie085-j_1bbranch.
wa_zycit136-identify = /pws/zycie085-identify.
* >> Início da exclusão: FORM COMM_SEND
wa_zycit136-dtenvf = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_SEND
wa_zycit136-dtenvf = sy-datlo.
* << Fim da inclusão
wa_zycit136-uname = sy-uname.
wa_zycit136-stasis = 'A'.
MODIFY /pws/zycit136 FROM wa_zycit136.
PERFORM send.
ELSE.
...
...
titel = text-070
IMPORTING
answer = v_resposta.
IF v_resposta EQ 'J'.
wa_zycit136-stasis = 'A'.
* >> Início da exclusão: FORM COMM_SEND
wa_zycit136-dtenvf = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_SEND
wa_zycit136-dtenvf = sy-datlo.
wa_zycit136-dtenvf = sy-datlo.
* << Fim da inclusão
MODIFY /pws/zycit136 FROM wa_zycit136.
PERFORM send.
ENDIF.
ENDIF.
ENDIF.
...
...
INTO TABLE itab_li
FOR ALL ENTRIES IN itab_ekpo
WHERE /pws/zycit079~ebeln EQ itab_ekpo-ebeln AND
/pws/zycit079~ebelp EQ itab_ekpo-ebelp AND
/pws/zycit079~nrseq EQ space AND
* >> Início da exclusão: FORM VERIFICA_LI
/pws/zycit078~dtvencto >= sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_LI
/pws/zycit078~dtvencto >= sy-datlo.
* << Fim da inclusão
ENDIF.
LOOP AT itab_ekpo.
READ TABLE itab_it WITH KEY ebeln = itab_ekpo-ebeln
ebelp = itab_ekpo-ebelp.
IF sy-subrc EQ 0.
...
...
MODIFY /pws/zycit001 FROM TABLE it_zycit001.
CLEAR it_zycit255. REFRESH it_zycit255.
MOVE: sy-mandt TO it_zycit255-mandt,
it_zycit001-nrseq TO it_zycit255-nrseq,
it_zycit001-status TO it_zycit255-status,
* >> Início da exclusão: FORM ATUALIZA_STATUS
sy-datum TO it_zycit255-data,
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_STATUS
sy-datlo TO it_zycit255-data,
* << Fim da inclusão
sy-uzeit TO it_zycit255-hora,
sy-uname TO it_zycit255-usuario.
APPEND it_zycit255.
INSERT INTO /pws/zycit255 VALUES it_zycit255.
ENDIF.
...
...
MODIFY /pws/zycit001 FROM TABLE itab_zycit001.
CLEAR itab_zycit255. REFRESH itab_zycit255.
MOVE: sy-mandt TO itab_zycit255-mandt,
itab_zycit001-nrseq TO itab_zycit255-nrseq,
itab_zycit001-status TO itab_zycit255-status,
* >> Início da exclusão: FORM VERIFY_HIST
sy-datum TO itab_zycit255-data,
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_HIST
sy-datlo TO itab_zycit255-data,
* << Fim da inclusão
sy-uzeit TO itab_zycit255-hora,
sy-uname TO itab_zycit255-usuario.
APPEND itab_zycit255.
INSERT INTO /pws/zycit255 VALUES itab_zycit255.
COMMIT WORK.
...
...
PERFORM get_parameters_f_51_variacao USING '001VM'.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-51'.
itab_zycbe033-tabela = '/PWS/ZYCIT044'.
itab_zycbe033-cpochv = /pws/zycie085-nrseqdi.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
itab_zycbe033-bldat = sy-datlo.
itab_zycbe033-d_valut = sy-datlo.
itab_zycbe033-budat = sy-datlo.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
itab_zycbe033-d_newko = itab_matuse_aux2-hkont.
itab_zycbe033-agkoa = 'S'.
CLEAR: v_xblnr, v_zuonr, v_sgtxt, v_bktxt.
CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'
...
...
MESSAGE i059 WITH itab_zycbt032-belnr.
LOOP AT itab_matuse_aux WHERE
hkont = itab_matuse_aux2-hkont.
IF itab_matuse_aux-j_1bmatuse = 0.
/pws/zycie085-belnr_0 = itab_zycbt032-belnr.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_0 = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_0 = sy-datlo.
* << Fim da inclusão
ELSEIF itab_matuse_aux-j_1bmatuse = 1.
/pws/zycie085-belnr_1 = itab_zycbt032-belnr.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_1 = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_1 = sy-datlo.
* << Fim da inclusão
ELSEIF itab_matuse_aux-j_1bmatuse = 2.
/pws/zycie085-belnr_2 = itab_zycbt032-belnr.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_2 = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_2 = sy-datlo.
* << Fim da inclusão
ELSEIF itab_matuse_aux-j_1bmatuse = 3.
/pws/zycie085-belnr_3 = itab_zycbt032-belnr.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_3 = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_3 = sy-datlo.
* << Fim da inclusão
ENDIF.
ENDLOOP.
UPDATE /pws/zycit085 SET belnr_0 = /pws/zycie085-belnr_0
belnr_1 = /pws/zycie085-belnr_1
belnr_2 = /pws/zycie085-belnr_2
...
...
IF sy-subrc EQ 0.
LOOP AT itab_zycbt032 .
MESSAGE i104 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
PERFORM executa_fb08 USING v_belnrf05 sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
PERFORM executa_fb08 USING v_belnrf05 sy-datlo.
* << Fim da inclusão
PERFORM limpa_doc_f05.
ENDIF.
ENDIF.
ELSE.
READ TABLE itab_zycbt032 WITH KEY tpmsg = 'E'.
IF sy-subrc EQ 0.
LOOP AT itab_zycbt032 .
MESSAGE i104 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
PERFORM executa_fb08 USING v_belnrf05 sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
PERFORM executa_fb08 USING v_belnrf05 sy-datlo.
* << Fim da inclusão
PERFORM limpa_doc_f05.
ENDIF.
ENDIF.
ENDIF.
ELSE.
...
...
MESSAGE i059 WITH itab_zycbt032-belnr.
LOOP AT itab_matuse_aux WHERE
hkont = itab_matuse_aux2-hkont.
IF itab_matuse_aux-j_1bmatuse = 0.
/pws/zycie085-belnr_0 = itab_zycbt032-belnr.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_0 = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_0 = sy-datlo.
* << Fim da inclusão
ELSEIF itab_matuse_aux-j_1bmatuse = 1.
/pws/zycie085-belnr_1 = itab_zycbt032-belnr.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_1 = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_1 = sy-datlo.
* << Fim da inclusão
ELSEIF itab_matuse_aux-j_1bmatuse = 2.
/pws/zycie085-belnr_2 = itab_zycbt032-belnr.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_2 = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_2 = sy-datlo.
* << Fim da inclusão
ELSEIF itab_matuse_aux-j_1bmatuse = 3.
/pws/zycie085-belnr_3 = itab_zycbt032-belnr.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_3 = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
/pws/zycie085-budat_3 = sy-datlo.
* << Fim da inclusão
ENDIF.
ENDLOOP.
UPDATE /pws/zycit085 SET belnr_0 = /pws/zycie085-belnr_0
belnr_1 = /pws/zycie085-belnr_1
belnr_2 = /pws/zycie085-belnr_2
...
...
IF sy-subrc EQ 0.
LOOP AT itab_zycbt032 .
MESSAGE i104 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
PERFORM executa_fb08 USING v_belnrf05 sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
PERFORM executa_fb08 USING v_belnrf05 sy-datlo.
* << Fim da inclusão
PERFORM limpa_doc_f05.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
...
...
it_zycit270-nrseq = /pws/zycie100a-nrseqdi.
it_zycit270-embarca = v_embarca.
it_zycit270-compl = v_text.
it_zycit270-nrseqemb = /pws/zycie100a-nrseq.
it_zycit270-tcode = sy-tcode.
* >> Início da exclusão: FORM PREENCHE_HIST_CONTABIL
it_zycit270-dtestorno = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_HIST_CONTABIL
it_zycit270-dtestorno = sy-datlo.
* << Fim da inclusão
APPEND it_zycit270.
ENDFORM.
FORM executa_fbra USING p_belnr
p_budat.
DATA: v_belnr_ant LIKE /pws/zycie006-belnr_p.
...
...
PERFORM get_parameters_f_51_variacao USING '001VM'.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-05'.
itab_zycbe033-tabela = '/PWS/ZYCIT044'.
itab_zycbe033-cpochv = /pws/zycie085-nrseqdi.
* >> Início da exclusão: FORM FILL_DATE_F_05_VARIACAO
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_05_VARIACAO
itab_zycbe033-bldat = sy-datlo.
itab_zycbe033-d_valut = sy-datlo.
itab_zycbe033-budat = sy-datlo.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
itab_zycbe033-d_newko = itab_matuse_aux2-hkont.
itab_zycbe033-agkoa = 'S'.
CLEAR: v_xblnr, v_zuonr, v_sgtxt, v_bktxt.
READ TABLE itab_zycit100 WITH KEY nrseqdi = /pws/zycie085-nrseqdi.
...
...
v_taxa_to LIKE v_taxa .
PERFORM trata_decimais USING v_waersfrom
CHANGING p_val.
IF /pws/zycie085-dttax IS INITIAL.
PERFORM taxa_converte USING
* >> Início da exclusão: FORM CALC_CONV_FRETE_INI
v_waersfrom sy-datum v_taxa_from.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_CONV_FRETE_INI
v_waersfrom sy-datlo v_taxa_from.
* << Fim da inclusão
ELSE.
PERFORM taxa_converte USING
v_waersfrom /pws/zycie085-dttax v_taxa_from.
ENDIF.
IF NOT v_taxa_from IS INITIAL.
IF /pws/zycie085-dttax IS INITIAL.
PERFORM taxa_converte USING
* >> Início da exclusão: FORM CALC_CONV_FRETE_INI
v_waersto sy-datum v_taxa_to.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_CONV_FRETE_INI
v_waersto sy-datlo v_taxa_to.
* << Fim da inclusão
ELSE.
PERFORM taxa_converte USING
v_waersto /pws/zycie085-dttax v_taxa_to.
ENDIF.
IF NOT v_taxa_to IS INITIAL.
...
...
EXPORTING
i_montante = 1
i_demoeda = p_waers_real
i_paramoeda = /pws/zycbt007-waersa
i_ctmoeda = v_kurst
* >> Início da exclusão: FORM BUSCA_TAXA_TCURR
i_dtbase = sy-datum
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_TAXA_TCURR
i_dtbase = sy-datlo
* << Fim da inclusão
IMPORTING
e_txc = v_tax
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
v_rsegfat LIKE t_icms,
v_tmle LIKE t_icms,
v_ini LIKE t_icms,
v_ini2 LIKE t_icms,
v_bltofat LIKE t_icms,
* >> Início da exclusão:
v_budat LIKE sy-datum,
* << Fim da exclusão
* >> Início da inclusão:
v_budat LIKE sy-datlo,
* << Fim da inclusão
v_sgtofat LIKE t_icms,
v_tdif LIKE t_icms,
v_dif_frn LIKE t_icms,
v_tdif_aux LIKE t_icms,
t_vldif LIKE t_icms,
...
...
DATA:
vl_variacao LIKE /pws/zycit085-vlfob,
v_rec_ia TYPE i,
v_rec_ia_1 TYPE i,
v_text(14) TYPE c,
* >> Início da exclusão:
v_datum LIKE sy-datum,
* << Fim da exclusão
* >> Início da inclusão:
v_datum LIKE sy-datlo,
* << Fim da inclusão
v_dele ,
v_blart LIKE /pws/zycbt011-blart,
v_desp_acr LIKE /pws/zycit049-vldp,
v_desp_brl LIKE /pws/zycit049-vldp,
v_evento LIKE /pws/zyglt321-codeven,
...