CE PLUS - Nota 007753
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 11/12/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:15:49
Descrição da Nota: REMESSA - ANO FISCAL - ERRO VERIFICAÇÃO PERÍODO FECHADO
Sintoma
- Ao criar uma remessa onde o ambiente tem ano fiscal diferente do padrão, esta exibindo mensagem de
período fechado antes de contabilizar, mas o período esta ok.
- Na remessa com origem, quando inserimos impostos competência, exibe mensagem de que o fator de
conversão não foi encontrado e segue a contabilização.
Solução
- Ajustar lógica de verificação de período contábil fechado, considerando ano/período correto.
- Se o campo FTAXA estiver vazio, buscar categoria da moeda na tabela /pws/zycbt011.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07753 Data: 11/12/2008 Hora: 11:57:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07753
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02024 - 00001 - 6.0 - 00024 - COMPLEMENTO DO BOLETO REMESSA FINANCEIRA ALTERAÇÃO VALOR MI F-43
04834 - 00002 - 7.0 - 00003 - ESTRATÉGIA LIBERAÇÃO - REMESSA - JPY - FATOR DE CONVERSÃO
07467 - 00003 - 7.0 - 00007 - REMESSA - ANO FISCAL - OB52 - DRILL-DOWN E BUSCA DE DOCUMENTOS
07712 - 00004 - 7.0 - 00007 - PROGRAMA DE REMESSA - ALTERAR CODIGOS DE ANO FISCAL
----------------------------------------------------------------------------------------------------
REMESSA - ANO FISCAL - ERRO VERIFICAÇÃO PERÍODO FECHADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA ANO FISCAL ERRO VERIFICAÇÃO PERÍODO FECHADO CRIAR E MODIFICAR
OB52
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCA_TRANSACAO_F_63R
REPS /PWS/LZYCAGF2F01
REPS /PWS/MZYCA109F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_63R
...
OTHERS = 4.
v_budat = v_data_lanc_char.
WHILE v_ok EQ 'N'.
PERFORM check_periodo USING '+'
v_monat
v_bukrs
v_gjahr
space
CHANGING v_budat
v_ok.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
MOVE v_budat+6(4) TO v_gjahr.
MOVE v_budat+3(2) TO v_monat.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
SELECT SINGLE datfm FROM usr01 INTO usr01-datfm
WHERE bname = sy-uname.
IF usr01-datfm = 1 OR sy-subrc NE 0.
CONCATENATE v_budat+6(4) v_budat+3(2) v_budat(2)
INTO t_dados-budat.
ELSEIF usr01-datfm = 2 OR usr01-datfm = 3.
CONCATENATE v_budat+6(4) v_budat(2) v_budat+3(2)
INTO t_dados-budat.
ELSEIF usr01-datfm > 3.
CONCATENATE v_budat(4) v_budat+5(2) v_budat+8(2)
INTO t_dados-budat.
ENDIF.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = t_dados-bukrs
v_date = t_dados-budat
IMPORTING
v_year = v_gjahr
EXCEPTIONS
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
OTHERS = 7.
CALL FUNCTION 'DETERMINE_PERIOD'
EXPORTING
date = t_dados-budat
version = v_periv
IMPORTING
period = v_monat
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
WRITE t_dados-budat TO v_data_lanc_char.
* << Fim da inclusão
ENDWHILE.
v_koart = '+'.
PERFORM check_periodo USING v_koart
v_monat
v_bukrs
v_gjahr
v_konto
CHANGING v_data_lanc_char
v_ok.
WRITE: t_dados-budat TO v_data_lanc_char2.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCAGF2F01
...
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
IF sy-subrc EQ 0.
else.
ENDIF.
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = p_bukrs
* >> Início da exclusão: FORM DETERMINA_PERIODO
i_gjahr = p_data+0(4)
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_PERIODO
i_gjahr = p_year
* << Fim da inclusão
i_koart = '+'
i_monat = p_period
EXCEPTIONS
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc EQ 0.
else.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
IF v_compra = 'X'.
v_kurst = 'G'.
ELSEIF v_venda = 'X'.
v_kurst = 'B'.
ELSEIF v_media = 'X'.
v_kurst = 'M'.
ENDIF.
ELSE.
v_kurst = /pws/zycbe124-ftaxa.
ENDIF.
* >> Início da inclusão: FORM VERIFICA_TAXA
IF v_kurst IS INITIAL.
v_kurst = wa_zycbt011-ctmoed.
ENDIF.
* << Fim da inclusão
SELECT * FROM /pws/zycbt009 INTO TABLE itab_zycbt009.
CLEAR itab_zycbt009.
READ TABLE itab_zycbt009 WITH KEY codpadr = v_kurst.
IF /pws/zycbt007-waersb IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs = /pws/zycbe124-bukrs.
ENDIF.
CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'
EXPORTING
i_montante = /pws/zycbe124-vlme
...
...
ENDLOOP.
ENDIF.
ENDFORM.
FORM verifica_estrategia_liberacao.
CLEAR: v_lib, v_area.
SELECT SINGLE * FROM /pws/zyglt340
WHERE codmod = 'F'
AND func = 'CP'
AND estrat = 'X'.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM VERIFICA_ESTRATEGIA_LIBERACAO
PERFORM get_parameters_f63_f02 USING 'PRINCIPAL'.
* << Fim da inclusão
PERFORM verifica_taxa.
IF /pws/zycbe124-criacao NE 'S'.
PERFORM determina_ano USING /pws/zycbe124-dtdocto
/pws/zycbe124-bukrs
CHANGING v_ano.
SELECT SINGLE kursf FROM bkpf INTO itab_zycbe033-kursf
WHERE belnr = /pws/zycbe124-belnr
AND bukrs = /pws/zycbe124-bukrs
AND gjahr = v_ano.
ENDIF.
...