CE PLUS - Nota 009435
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 24/11/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:04:24
Descrição da Nota: LIQUIDAÇÃO - UTILIZAR TAXA DE VALORES MANTIDOS NO EXTERIOR
Sintoma
Utilizar taxa de Valores Mantidos no Exterior - ao efetuar a liquidação onde possui
valores mantidos no exterior, necessita contabilizar com esta taxa para não gerar variação cambial
indevida.
Solução
Criar um novo parâmetro na tabela /PWS/ZYCBT169 que permite utilizar a taxa do valores mantidos no
exterior. Ao efetuar a baixa do contrato contra a fatura(última F-30), verificar se a fatura possui
valores mantidos no exterior e se vai ser utilizado este recurso(tablecontrol cliente/liq. and/VME).
Se sim, verificar se para esta contabilização esta parametrizado o novo campo taxa VME. Se sim,
buscar a taxa do documento /pws/zycbt226-belnr_op2 ou /pws/zycbt226-belnr_op.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09435 Data: 24/11/2009 Hora: 10:06:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09435
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08826 - 00001 - 7.0 - 00010 - ALTERAÇÃO DO CAMPO LANGUAGE PARA IDIOMA - TABELAS 166, 167, 168 E
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - UTILIZAR TAXA DE VALORES MANTIDOS NO EXTERIOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - UTILIZAR TAXA DE VALORES MANTIDOS NO EXTERIOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
DTEL /PWS/ZYGLL1423
FUGR /PWS/ZYCBGF1
FUNC /PWS/ZYCB_DADOS_BI
REPS /PWS/MZYCB004F03
TABD /PWS/ZYCBT169
TABU TDDAT
TABU TVDIR
TOBJ /PWS/ZYCBT169S
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYGLL1423
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYGLL1423
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (21 caracteres), idioma: PT
"CB - Utiliza Taxa VME"
Categoria de dados: Domínio
Domínio: XFELD
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (8 caracteres), idioma: PT
"Taxa VME"
Comprimento máximo do denominador médio: 19
Denominador médio incluído (19 caracteres), idioma: PT
"CB-Utiliza Taxa VME"
Comprimento máximo do denominador longo: 21
Denominador longo incluído (21 caracteres), idioma: PT
"CB - Utiliza Taxa VME"
Comprimento máximo do título: 21
Título incluído (21 caracteres), idioma: PT
"CB - Utiliza Taxa VME"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DADOS_BI
PARÂMETROS:
IMPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
I_ZYCBT030
I_ZYCBT017
* >> Início da inclusão:
I_ZYCBT226 TYPE /PWS/ZYCBT226 ' ' 'X' 'X' CB - Valores Mantidos
* << Fim da inclusão
I_KURSF6
I_WAERS
I_CTMOED
I_TCODE
I_TABELA
I_CPOCHV
* >> Início da inclusão:
I_VME TYPE C ' ' 'X' 'X' Indica se tem VME
* << Fim da inclusão
TEXTO FONTE:
...
tpcontr = i_tpcontr
tpcontabil = i_tpcontabil.
if sy-subrc = 0.
if not itab_zycbt169-tpdocto is initial.
t_zycbe033-blart = itab_zycbt169-tpdocto.
if not t_zycbe033-blart is initial.
clear t_zycbt034.
delete t_zycbt034 where campo = 'BLART'.
endif.
endif.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DADOS_BI
if not i_vme is initial and
not itab_zycbt169-taxa_vme is initial and
not i_zycbt226 is initial.
if not i_zycbt226-belnr_op2 is initial.
perform determina_ano using i_zycbt226-dtlancto2
i_zycbt226-bukrs
changing v_gjahr.
select single kursf
from bkpf
into e_kursf
where bukrs = i_zycbt226-bukrs
and belnr = i_zycbt226-belnr_op2
and gjahr = v_gjahr.
check sy-subrc ne 0.
elseif not i_zycbt226-belnr_op is initial.
perform determina_ano using i_zycbt226-dtlancto
i_zycbt226-bukrs
changing v_gjahr.
select single kursf
from bkpf
into e_kursf
where bukrs = i_zycbt226-bukrs
and belnr = i_zycbt226-belnr_op
and gjahr = v_gjahr.
check sy-subrc ne 0.
endif.
endif.
* << Fim da inclusão
clear v_databl.
if not itab_zycbt169-taxa is initial.
if i_funcionalidade = 'LIQ'.
if i_tpcontabil = 'E_D_LIA'.
if i_zycbt001-tpcontr(1) eq 'C'.
if itab_zycbt169-taxa eq 'DTEMB'.
v_databl = i_zycbt017-dtbl.
else.
v_databl = i_zycbt006-dtpagto.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
endcase.
modify screen.
endloop.
endform.
form busca_dados_bi using p_bukrs
p_tpcontabil.
data: wa_zycbt005 type /pws/zycbt005,
wa_zycbt006 type /pws/zycbt006,
wa_zycbt017 type /pws/zycbt017,
wa_zycbt030 type /pws/zycbt030.
* >> Início da inclusão: FORM BUSCA_DADOS_BI
data: v_vme type c.
* << Fim da inclusão
move-corresponding: itab_zycbt005 to wa_zycbt005,
itab_zycbt006 to wa_zycbt006,
itab_zycbt017 to wa_zycbt017,
itab_zycbt030 to wa_zycbt030.
* >> Início da inclusão: FORM BUSCA_DADOS_BI
clear v_vme.
read table itab_zycbt226 into wa_zycbt226
with key nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf.
if sy-subrc = 0 and itab_recurso_aux2[] is initial.
v_vme = 'X'.
elseif sy-subrc = 0 and not itab_recurso_aux2[] is initial.
read table itab_recurso_aux into wa_recurso_aux
with key nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf
descorigem = c_liq_vme.
if sy-subrc = 0.
v_vme = 'X'.
endif.
endif.
* << Fim da inclusão
call function '/PWS/ZYCB_DADOS_BI'
exporting
i_bukrs = p_bukrs
i_funcionalidade = 'LIQ'
i_tpcontr = /pws/zycbe001-tpcontr
i_tpcontabil = p_tpcontabil
i_zycbt001 = /pws/zycbe001
i_zycbt005 = wa_zycbt005
i_zycbt006 = wa_zycbt006
i_dtlanc = v_dtpagto
i_zycbt007 = wa_zycbt007
i_zycbt030 = wa_zycbt030
i_zycbt017 = wa_zycbt017
* >> Início da inclusão: FORM BUSCA_DADOS_BI
i_zycbt226 = wa_zycbt226
* << Fim da inclusão
i_kursf6 = v_kursf6
i_waers = itab_zycbe033-waers
i_ctmoed = wa_zycbt011-ctmoed
i_tcode = itab_zycbe033-tcode
i_tabela = itab_zycbe033-tabela
i_cpochv = itab_zycbe033-cpochv
* >> Início da inclusão: FORM BUSCA_DADOS_BI
i_vme = v_vme
* << Fim da inclusão
importing
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT169
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT169
DESCRIÇÃO BREVE: CB - Parametrização de Dados para Contabilização
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
TAXA /PWS/ZYGLL1418 ' ' ' ' /PWS/ZYCBT168
TAXA_DESCR /PWS/ZYGLL1419 ' ' ' '
* >> Início da inclusão:
TAXA_VME /PWS/ZYGLL1423 ' ' ' '
* << Fim da inclusão
Após ativar a tabela, gerar novamente a tela de atualização:
SE11 - MODIFICAR - UTILITÁRIOS - GERADOR DE ATUALIZAÇÃO DE TABELAS - MODIFICAR - FLEGAR TODAS OPÇOES
(MENOS A PRIMEIRA) - FLEGAR AS DUAS PRIMEIRAS OPÇOES - PROSSEGUIR ATÉ FINALIZAR
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUGR /PWS/ZYCBGF1
Modificações efetuadas em TABU TDDAT
Modificações efetuadas em TABU TVDIR
Modificações efetuadas em TOBJ /PWS/ZYCBT169S