CE PLUS - Nota 001591
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 14/06/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:39:20
Descrição da Nota: DATAS DO CUSTO EFETIVO
Sintoma
TIME ZONE para Data de Encerramento de Custo - MR22
Solução
Atualização do programa de encerramento para não ter problemas com o fuso horario.
Foi mudada as datas do programa de sy-datum para sy-datlo.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01591 Data: 14/06/2006 Hora: 16:02:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01591
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00117
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01417 - 00001 - 6.0 - 00023 - AGREGAR OS CUSTOS EFETIVOS DA ADMISSÃO NA NACIONALIZAÇÃO DA MERCA
01422 - 00002 - 6.0 - 00023 - VALOR QUE FOI LEVADO PARA O ENCER. DE CUSTOS ESTA MAIOR DO QUE DE
01438 - 00003 - 6.0 - 00023 - ERRO NA EXIBIÇÃO DO ENCERRAMENTO DE PROCESSO SEM EURO
----------------------------------------------------------------------------------------------------
DATAS DO CUSTO EFETIVO
----------------------------------------------------------------------------------------------------
Palavras Chave:
SY-DATUM, SY-DATLO, DATA, CUSTO EFETIVO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F01
REPS /PWS/MZYCI010F02
REPS /PWS/MZYCI010F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F01
...
EXPORTING
i_montante = p_devlme
i_demoeda = p_deme
i_paramoeda = p_parame
i_ctmoeda = v_kurst
* >> Início da exclusão: FORM CONVERTER_MOEDA
i_dtbase = sy-datum
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTER_MOEDA
i_dtbase = sy-datlo
* << Fim da inclusão
IMPORTING
e_montante = p_paravlme
e_txc = v_tax
e_defator = v_dfact
EXCEPTIONS
...
...
PERFORM taxa_converte USING itab_zycit036_aux2-waers_real
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036_aux2-waers_real
* >> Início da exclusão: FORM CUSTEAR_ITENS
sy-datum
* << Fim da exclusão
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING v_taxa.
ENDIF.
itab_zycit036_aux2-vlreal =
itab_zycit036_aux2-vlreal * v_taxa.
ENDIF.
...
...
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
* >> Início da exclusão: FORM CUSTEAR_ITENS
sy-datum
* << Fim da exclusão
* >> Início da inclusão: FORM CUSTEAR_ITENS
sy-datlo
* << Fim da inclusão
CHANGING v_taxa.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
ELSE.
...
...
waers_plan waers_real waers_mov waers_dif
WHERE nrseq = /pws/zycie001-nrseq.
ENDIF.
ENDFORM.
FORM custear_mov_dif.
* >> Início da exclusão: FORM CUSTEAR_MOV_DIF
indx-aedat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CUSTEAR_MOV_DIF
indx-aedat = sy-datlo.
* << Fim da inclusão
indx-usera = sy-uname.
EXPORT itab_zycit036[] TO MEMORY ID 'I006A'.
PERFORM calcular_outros_custos(/pws/zycir006) TABLES itab_zycit036.
* >> Início da exclusão: FORM CUSTEAR_MOV_DIF
indx-aedat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CUSTEAR_MOV_DIF
indx-aedat = sy-datlo.
* << Fim da inclusão
indx-usera = sy-uname.
IMPORT itab_zycit036[] FROM MEMORY ID 'I006A'.
FREE MEMORY ID 'I006A'.
ENDFORM.
FORM modo_batch_input.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F02
...
CLEAR /pws/zycie001-belnr_mr22.
PERFORM get_parameters_mr22.
ENDIF.
PERFORM multiplos_lancamentos_f_02.
PERFORM get_parameters_f-02.
* >> Início da exclusão: FORM ENCERRAMENTO
indx-aedat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM ENCERRAMENTO
indx-aedat = sy-datlo.
* << Fim da inclusão
indx-usera = sy-uname.
EXPORT: itab_zycbt035_aux[] TO MEMORY ID 'I007A',
itab_zycbt035[] TO MEMORY ID 'I007B',
itab_zycie031_aux[] TO MEMORY ID 'I007C',
itab_zycie031[] TO MEMORY ID 'I007D'.
...
...
NOT /pws/zycie001-belnr_f_02 IS INITIAL ) OR
( NOT /pws/zycie001-belnr_mr22 IS INITIAL AND
/pws/zycie001-belnr_f_02 IS INITIAL AND
v_mr22 IS INITIAL ) AND
v_conta NE 'X' ).
* >> Início da exclusão: FORM ENCERRAMENTO
/pws/zycie001-dtencer = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM ENCERRAMENTO
/pws/zycie001-dtencer = sy-datlo.
* << Fim da inclusão
/pws/zycie001-status = 'EN'.
/pws/zycie001-status_e = 'E'.
MODIFY /pws/zycit001 FROM /pws/zycie001.
PERFORM fill_encerramento USING '1'.
PERFORM fill_diferencas.
...
...
ENDIF.
ELSE.
EXIT.
ENDIF.
ELSEIF v_nota IS INITIAL.
* >> Início da exclusão: FORM ENCERRAMENTO
/pws/zycie001-dtencer = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM ENCERRAMENTO
/pws/zycie001-dtencer = sy-datlo.
* << Fim da inclusão
/pws/zycie001-status = 'EN'.
/pws/zycie001-status_e = 'E'.
UPDATE /pws/zycit001 SET dtencer = /pws/zycie001-dtencer
status = /pws/zycie001-status
status_e = /pws/zycie001-status_e
...
...
PERFORM clear_date_batch.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-02'.
itab_zycbe033-tabela = '/PWS/ZYCIT003'.
itab_zycbe033-cpochv = /pws/zycie001-nrseq.
* >> Início da exclusão: FORM FILL_DATE_F_02
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02
itab_zycbe033-bldat = sy-datlo.
itab_zycbe033-d_valut = sy-datlo.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE_F_02
itab_zycbe033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02
itab_zycbe033-budat = sy-datlo.
* << Fim da inclusão
itab_zycbe033-bktxt = /pws/zycbt007-bktxt.
LOOP AT itab_zycbt035.
CLEAR: v_zuonr, v_zuonr, v_sgtxt, itab_zycbe033-xblnr.
CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'
EXPORTING
...
...
e_all_productive = v_werks.
IF NOT v_werks IS INITIAL.
CLEAR itab_zycie033-werks.
ENDIF.
itab_zycie033-bukrs = /pws/zycie001-bukrs.
* >> Início da exclusão: FORM FILL_DATE_MR22
itab_zycie033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_MR22
itab_zycie033-budat = sy-datlo.
* << Fim da inclusão
LOOP AT itab_zycbt035.
CLEAR: v_zuonr, v_sgtxt, itab_zycbe033-xblnr.
CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'
EXPORTING
v_nrseq = /pws/zycie001-nrseq
...
...
ELSE.
MESSAGE s018 WITH /pws/zycie001-embarca /pws/zycie001-nrseq.
ENDIF.
ENDFORM.
FORM imprime_relatorio TABLES p_itab_custos STRUCTURE itab_zycit036.
* >> Início da exclusão: FORM IMPRIME_RELATORIO
indx-aedat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_RELATORIO
indx-aedat = sy-datlo.
* << Fim da inclusão
indx-usera = sy-uname.
EXPORT p_itab_custos[] TO MEMORY ID 'I010P1'.
DATA: v_waers_plan LIKE /pws/zycie001-waers,
v_waers_real LIKE /pws/zycie001-waers,
v_waers_mov LIKE /pws/zycie001-waers,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F03
...
conta_r = itab_matuse_aux2-conta_r.
IF sy-subrc EQ 0.
IF itab_matuse_aux1-matuse EQ '0'.
v_execloop = 'S'.
/pws/zycie001-belnr_f51_mt0 = itab_bsis_aux2-doccont.
* >> Início da exclusão: FORM ENCERRAMENTO_CONTABIL
/pws/zycie001-dt_f51_mt = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM ENCERRAMENTO_CONTABIL
/pws/zycie001-dt_f51_mt = sy-datlo.
* << Fim da inclusão
ELSEIF itab_matuse_aux1-matuse EQ '1'.
v_execloop = 'S'.
/pws/zycie001-belnr_f51_mt1 = itab_bsis_aux2-doccont.
* >> Início da exclusão: FORM ENCERRAMENTO_CONTABIL
/pws/zycie001-dt_f51_mt = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM ENCERRAMENTO_CONTABIL
/pws/zycie001-dt_f51_mt = sy-datlo.
* << Fim da inclusão
ELSEIF itab_matuse_aux1-matuse EQ '2'.
v_execloop = 'S'.
/pws/zycie001-belnr_f51_mt2 = itab_bsis_aux2-doccont.
* >> Início da exclusão: FORM ENCERRAMENTO_CONTABIL
/pws/zycie001-dt_f51_mt = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM ENCERRAMENTO_CONTABIL
/pws/zycie001-dt_f51_mt = sy-datlo.
* << Fim da inclusão
ELSEIF itab_matuse_aux1-matuse EQ '3'.
v_execloop = 'S'.
/pws/zycie001-belnr_f51_mt3 = itab_bsis_aux2-doccont.
* >> Início da exclusão: FORM ENCERRAMENTO_CONTABIL
/pws/zycie001-dt_f51_mt = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM ENCERRAMENTO_CONTABIL
/pws/zycie001-dt_f51_mt = sy-datlo.
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycit061 WHERE hkont = itab_bsis_aux2-hkont.
MODIFY /pws/zycit061 FROM itab_zycit061.
ENDLOOP.
ENDIF.
...
...
OTHERS = 7.
IF v_ano_bsis1 IS INITIAL.
MOVE /pws/zycie001-dtinicio+0(4) TO v_ano_bsis1.
ENDIF.
IF v_ano_bsis2 IS INITIAL.
* >> Início da exclusão: FORM OBTEM_ANO_CONTABIL
MOVE sy-datum+0(4) TO v_ano_bsis2.
* << Fim da exclusão
* >> Início da inclusão: FORM OBTEM_ANO_CONTABIL
MOVE sy-datlo+0(4) TO v_ano_bsis2.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM carrega_nro_documentos.
DATA v_nrseq_pgfat LIKE /pws/zycit263-nrseq_pgfat.
CLEAR: itab_docscont ,
...
...
FORM preenche_t_dados_bi.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = text-054.
itab_zycbe033-tabela = text-053.
itab_zycbe033-cpochv = itab_bsis_aux-hkont.
* >> Início da exclusão: FORM PREENCHE_T_DADOS_BI
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-budat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_T_DADOS_BI
itab_zycbe033-bldat = sy-datlo.
itab_zycbe033-budat = sy-datlo.
* << Fim da inclusão
PERFORM verify_null_field USING itab_zycbe033-budat 'BUDAT' text-059.
itab_zycbe033-bukrs = /pws/zycie001-bukrs.
PERFORM verify_null_field USING itab_zycbe033-bukrs 'BUKRS' text-055.
itab_zycbe033-blart = wa_zycbt011-blart.
PERFORM verify_null_field USING itab_zycbe033-blart 'BLART' text-056.
...
...
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM taxa_converte USING itab_zycit036a-waers
* >> Início da exclusão: FORM MOVE_PLAN_MOV
sy-datum
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_PLAN_MOV
sy-datlo
* << Fim da inclusão
CHANGING v_taxa.
ENDIF.
itab_zycit036a-vlmov = itab_zycit036a-netpr * v_taxa.
itab_zycit036a-waers_mov = /pws/zycbt007-waersb.
itab_zycit036a-vldif = itab_zycit036a-vlreal -
...
...
DATA:
v_nrseqc LIKE /pws/zycit202-nrseqenc,
v_count(7) TYPE n,
v_ano(4).
IF v_mr22 NE 'X'.
* >> Início da exclusão: FORM FILL_ENCERR_NRSEQ
CONCATENATE '%' 'I' sy-datum+2(2) INTO v_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ENCERR_NRSEQ
CONCATENATE '%' 'I' sy-datlo+2(2) INTO v_ano.
* << Fim da inclusão
SELECT MAX( nrseqenc ) INTO (v_nrseqc) FROM /pws/zycit202
WHERE nrseqenc LIKE v_ano.
v_count = v_nrseqc+0(7) + 1.
* >> Início da exclusão: FORM FILL_ENCERR_NRSEQ
CONCATENATE v_count+0(7) 'I' sy-datum+2(2) INTO v_nrseqenc.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ENCERR_NRSEQ
CONCATENATE v_count+0(7) 'I' sy-datlo+2(2) INTO v_nrseqenc.
* << Fim da inclusão
ELSE.
v_nrseqenc = /pws/zycit202-nrseqenc.
ENDIF.
ENDFORM.
FORM call_encerramento.
...
...
itab_zycit085-dttax
CHANGING v_taxa.
ELSEIF itab_zycit085-dttax IS INITIAL AND
s_msg1 = 'X'.
PERFORM taxa_converte USING itab_zycit036_aux2-waers
* >> Início da exclusão: FORM MOVE_PLAN_MOV_AUX
sy-datum
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_PLAN_MOV_AUX
sy-datlo
* << Fim da inclusão
CHANGING v_taxa.
ENDIF.
IF /pws/zycit000-fretepres EQ 'X' AND
itab_zycit036_aux2-codigo EQ 'FRETEI' AND
( itab_zycit036_aux2-origem NE 'NF' OR
...
...
itab_zycit036_aux2 = itab_zycit036_aux2
CHANGING
v_rub = v_rub.
ENDFORM.
FORM custear_movimentado.
* >> Início da exclusão: FORM CUSTEAR_MOVIMENTADO
indx-aedat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CUSTEAR_MOVIMENTADO
indx-aedat = sy-datlo.
* << Fim da inclusão
indx-usera = sy-uname.
EXPORT itab_zycit036[] TO MEMORY ID 'I006A'.
PERFORM calcular_outros_custos(/pws/zycir006) TABLES
itab_zycit036_aux2.
* >> Início da exclusão: FORM CUSTEAR_MOVIMENTADO
indx-aedat = sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FORM CUSTEAR_MOVIMENTADO
indx-aedat = sy-datlo.
* << Fim da inclusão
indx-usera = sy-uname.
IMPORT itab_zycit036[] FROM MEMORY ID 'I006A'.
LOOP AT itab_zycit036_aux2.
UPDATE /pws/zycit036 SET vlmov = itab_zycit036_aux2-vlmov
waers_mov = itab_zycit036_aux2-waers_mov
...