CE PLUS - Nota 001623
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 22/06/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:50:16
Descrição da Nota: AJUSTES PARA TRATAMENTOS DE DATAS
Sintoma
Data de Criação / Alteração / Transmissão na criação da DI está com erro por causa de fuso horário.
Solução
alterar atribuição de sy-datum por sy-datlo.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01623 Data: 22/06/2006 Hora: 10:21:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01623
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00119
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTES PARA TRATAMENTOS DE DATAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
TRATAMENTO DE DATAS - SY-DATLO - SY-DATUM - DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
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 inclusão: FORM FINDNRSEQ
CONCATENATE '%' 'I' sy-datlo+2(2) INTO v_ano.
* << Fim da inclusão
* >> Início da exclusão: FORM FINDNRSEQ
CONCATENATE '%' 'I' sy-datum+2(2) INTO v_ano.
* << Fim da exclusã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.
* << 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
...