Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 07/04/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:14:52
Descrição da Nota: ROTINA MENSAL EXPORTAÇÃO-SEPARAÇÃO ACC/ACE-NÃO DEDUZ VALOR PROVISIONADO
Sintoma
Ao executar a rotina mensal de clearing no pagamento, esta demonstrando a provisão anterior, mas não
deduz do valor a ser provisionado(diferença a provisionar).
Solução
Ao buscar a conta de acc ou ace, considerar o parâmetro da /pws/zygl007-Geral-Rotina Mensal-Prov.
Jur. contas separadas Moeda Contr. Se estiver igual a sim e a moeda do contrato for igual a moeda
estrangeira da /PWS/ZYGL007, busca a conta de ACC ou ACE pelo J + USD(exemplo). Como não estava
considerando isso, buscava só por J e pegava conta errada, não deduzindo a provisão por não
reconhecer que é ACC ou ACE.
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08284 Data: 07/04/2009 Hora: 16:54:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08284
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00093
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01309 - 00001 - 6.0 - 00023 - ROTINA MENSAL EXPORTAÇÃO CONTABILIZAÇÃO SEPARADA DE ACC E ACE = S
----------------------------------------------------------------------------------------------------
ROTINA MENSAL EXPORTAÇÃO-SEPARAÇÃO ACC/ACE-NÃO DEDUZ VALOR PROVISIONADO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL EXPORTAÇÃO SEPARAÇÃO ACC/ACE NÃO DEDUZ VALOR PROVISIONADO
CLEARING NO PAGAMENTO DIFERENÇA A PROVISIONAR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
v_vlmeaux = p_vlme.
endif.
p_vlmi = ( ( p_taxa / v_defator ) * v_parafator ) * v_vlmeaux.
endform.
form verifica_conta_acc_ace changing p_conta_dif
p_conta_dif_parametro.
data: v_codaux2 like /pws/zyglt316-codaux2,
v_codaux3 like /pws/zyglt316-codaux3,
v_conta type /pws/zyglt316-konts.
clear: p_conta_dif, p_conta_dif_parametro.
* >> Início da inclusão: FORM VERIFICA_CONTA_ACC_ACE
IF /pws/zyglt009-provjur_moeda = 'X' AND
aux_relat-waers = wa_zycbt007-waersa.
CONCATENATE 'J' wa_zycbt007-waersa
INTO v_codaux1 SEPARATED BY space.
ELSE.
* << Fim da inclusão
v_codaux1 = 'J'.
* >> Início da inclusão: FORM VERIFICA_CONTA_ACC_ACE
ENDIF.
* << Fim da inclusão
v_codaux2 = aux_relat-tpcontr.
* >> Início da inclusão: FORM VERIFICA_CONTA_ACC_ACE
IF /pws/zyglt009-cont_rot_sep EQ 'S'.
* << Fim da inclusão
if aux_relat-ftpj = 'A'.
v_codaux3 = 'ACC'.
elseif aux_relat-ftpj = 'E'.
v_codaux3 = 'ACE'.
* >> Início da inclusão: FORM VERIFICA_CONTA_ACC_ACE
ELSE.
CLEAR v_codaux3.
ENDIF.
ELSE.
CLEAR v_codaux3.
* << Fim da inclusão
endif.
refresh itab_contas.
call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
exporting
bukrs = aux_relat-bukrs
ktosl = 'DSE'
codaux1 = v_codaux1
codaux2 = v_codaux2
codaux3 = v_codaux3
tables
...