CE PLUS - Nota 010955
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 14/02/2011 00:00:00
Data/Hora Última Alteração: 21/02/2011 10:22:16
Descrição da Nota: VINCULAÇÃO E LIQUIDAÇÃO COM PERÍODO FECHADO
Sintoma
Feita liquidação automática preenchendo o campo "data da vinculação" no período aberto e o campo
"data da liquidação" no período fechado, o programa abriu um pop up para digitar a data em um
período aberto, e está errado, o correto é aparecer a mensagem " O período contábil está fechado.
lançamento não será efetuado nesta data: xx.xx.xxxx", esta mensagem aparece apenas se o campo "data
da vinculação" estiver no período fechado, ou seja, o programa está apenas verificando se o período
está fechado na data de vinculação, mas o programa deverá também verificar a data da liquidação, e
se o período estiver fechado, o programa deverá demosntrar a mesma mensagem.
Solução
Agora o programa irá verificar, além da data de vinculação, também a data de liquidação se está com
período fechado.
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10955 Data: 14/02/2011 Hora: 10:09:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10955
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00060
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
VINCULAÇÃO E LIQUIDAÇÃO COM PERÍODO FECHADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO, LIQUIDAÇÃO, PERÍODO FECHADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB009F03
REPT /PWS/SAPMZYCB004
REPT /PWS/SAPMZYCB009
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
where nrseqc = /pws/zycbt001-nrseqc and
tppror = 'L' and
dtpror >= v_dtpagto.
if sy-subrc ne 0.
if v_vinculacao is initial.
message i011(pc) with text-201.
endif.
endif.
endif.
endif.
* >> Início da inclusão: FORM VERIFICA_DTPAGTO
clear: v_ano, v_monat.
if sy-tcode eq c_transacao_c and not v_dtpagto is initial.
perform determina_periodo using v_dtpagto
/pws/zycbe005-bukrs
changing v_monat.
perform determina_ano using v_dtpagto
/pws/zycbe005-bukrs
changing v_ano.
call function 'FI_PERIOD_CHECK'
exporting
i_bukrs = /pws/zycbe005-bukrs
i_gjahr = v_ano
i_koart = '+'
i_monat = v_monat
exceptions
error_period = 1
error_period_acc = 2
others = 3.
if sy-subrc <> 0.
message i018(pc) with text-467 text-468 text-469.
endif.
endif.
* << Fim da inclusão
endform.
form seleciona_paga_documento.
perform verifica_status_linha.
perform verif_contas.
if v_cta_bloq eq 'S'.
exit.
endif.
perform seleciona_dados.
perform seleciona_zycbt030.
perform verifica_documentos.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F03
...
if sy-subrc eq 0.
message i061 with text-329 text-330 text-331
itab_zycbt005-dtvincul.
endif.
if v_resposta eq 'J'.
v_resposta = 'A'.
endif.
exit.
endif.
endif.
* >> Início da inclusão: FORM GRAVA_TABELAS
clear: v_resp_func.
clear: v_ano, v_monat.
if ( sy-tcode eq c_transacao_c or sy-tcode eq c_transacao_a ) and
not /pws/zycbe006-dtpagto is initial.
if sy-tcode eq c_transacao_a.
select * from /pws/zycbt006 up to 1 rows
where nrseqc = /pws/zycbe001-nrseqc and
dtvincul = /pws/zycbe005-dtvincul.
endselect.
endif.
if sy-tcode eq c_transacao_c or
( sy-tcode eq c_transacao_a and sy-subrc ne 0 ).
perform determina_periodo using /pws/zycbe006-dtpagto
/pws/zycbe001-bukrs
changing v_monat.
perform determina_ano using /pws/zycbe006-dtpagto
/pws/zycbe001-bukrs
changing v_ano.
call function 'FI_PERIOD_CHECK'
exporting
i_bukrs = /pws/zycbe001-bukrs
i_gjahr = v_ano
i_koart = '+'
i_monat = v_monat
exceptions
error_period = 1
error_period_acc = 2
others = 3.
if sy-subrc <> 0.
v_resp_func = 'A'.
endif.
if v_resp_func = 'A'.
read table itab_zycbt005 index 1.
if sy-subrc eq 0.
message i061 with text-329 text-330 text-513
/pws/zycbe006-dtpagto.
endif.
if v_resposta eq 'J'.
v_resposta = 'A'.
endif.
exit.
endif.
endif.
endif.
* << Fim da inclusão
perform verifica_taxas.
check v_vert = 'X'.
perform verfica_conta.
check v_cta_bloq = 'N'.
if v_excep = 'X'.
message i015 with text-366.
exit.
endif.
perform verifica_valores.
if v_cvalor eq 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB004
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 467
Texto: (32 caracteres)
"O Período Contábil está fechado."
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 468
Texto: (28 caracteres)
"Lançamento não será efetuado"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 469
Texto: (25 caracteres)
"nesta Data de Liquidação."
Comprimento máximo: 25
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB009
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 513
Texto: (25 caracteres)
"nesta Data de Liquidação:"
Comprimento máximo: 25