CE PLUS - Nota 009286
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 29/10/2009 00:00:00
Data/Hora Última Alteração: 16/12/2010 09:37:45
Descrição da Nota: VALORES MANTIDOS NO EXTERIOR, SISTEMA DE PAGAMENTO EM MOEDA LOCAL
Sintoma
Na tentativa de gravar um embarque de exportação na funcionalidade Valores Mantidos no Exterior e
Sistema de Pagamento em Moeda Local, o BI da F-02 é feito, no entanto, o programa não está fazendo
as 2 F-30 para compensação e desmembramento do cliente, exibindo a msg de : campo ZTERM (condição de
pagto) não preenchido.
Solução
O Programa foi alterado para que o Campo ZTERM seja carregado com as Condições de Pagamento, porém
será necessário parametrizá-lo no /pws/zyglt321 (conforme Evento e Módulo), quando estiver
parametrizado, o Programa irá carregar a Informação da /pws/zycbt017 e levar para as F-30.
Outra solução é não parametrizar o campo e verificar todas as parametrizações do SAP-FI para
identificar o ponto que está obrigando a informar.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09286 Data: 29/10/2009 Hora: 16:29:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09286
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VALORES MANTIDOS NO EXTERIOR, SISTEMA DE PAGAMENTO EM MOEDA LOCAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALORES MANTIDOS NO EXTERIOR, SML CONDIÇÃO DE PAGAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB034F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
c_ref(06) type c value 'REF_OP',
c_obs(03) type c value 'OBS',
c_dtincl(06) type c value 'DTINCL',
c_dtlancto(08) type c value 'DTLANCTO',
c_dtlimite(08) type c value 'DTLIMITE',
c_dtbl(4) type c value 'DTBL',
c_dtinvoic(10) type c value 'DTINVOIC',
c_nrinvoic_ms(11) type c value 'NRINVOIC+MS',
c_nrseq_ms(08) type c value 'NRSEQ+MS',
c_nremb_ms(08) type c value 'NREMB+MS',
* >> Início da exclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
c_ref_ms(09) type c value 'REF_OP+MS'.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
c_ref_ms(09) type c value 'REF_OP+MS',
c_zterm(05) type c value 'ZTERM'.
* << Fim da inclusão
field-symbols:
<fs_zyglt321> type t_s_zyglt321.
data: v_hora(8) type c.
loop at itab_zyglt321
assigning <fs_zyglt321>
where ktosl = p_ktosl
and codeven = p_codeven.
case <fs_zyglt321>-cpor3.
when c_sgtxt.
case <fs_zyglt321>-cpocb.
...
...
when c_dtbl.
p_wa_zycbe033-c_valut = wa_fat-dtbl.
p_wa_zycbe033-d_valut = wa_fat-dtbl.
when c_dtinvoic.
p_wa_zycbe033-c_valut = wa_fat-dtinvoic.
p_wa_zycbe033-d_valut = wa_fat-dtinvoic.
when c_dtlancto.
p_wa_zycbe033-c_valut = <fs_op>-dtlancto.
p_wa_zycbe033-d_valut = <fs_op>-dtlancto.
endcase.
* >> Início da inclusão: FORM PREENCHE_CAMPOS_CONTAB_EXC
when c_zterm.
if <fs_zyglt321>-cpocb = c_zterm.
p_wa_zycbe033-zterm = wa_fat-zterm.
endif.
* << Fim da inclusão
endcase.
endloop.
endform.
form doc_op using value(p_estorno) type c
changing p_belnr_est_f02 type /pws/zycbt226-belnr_op
p_dtlancto_est_f02 type /pws/zycbt226-dtlancto.
data: wa_zycbt032 type t_s_zycbt032,
wa_zycbe033 type t_s_zycbe033,
wa_zycbt034 type t_s_zycbt034,
wa_tab_op type t_s_tab_op,
...
...
endif.
endform.
form busca_parametros_321
using p_evento
p_chave
p_txtlanc type /pws/zycbe239-txtlanc
changing p_zycbe033 like line of itab_zycbe033. "#EC *
data:
v_hora(8) type c,
itab_zyglt321 type standard table of /pws/zyglt321,
* >> Início da exclusão: FORM BUSCA_PARAMETROS_321
wa_zyglt321 like line of itab_zyglt321.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321
wa_zyglt321 like line of itab_zyglt321,
v_zterm type /pws/zycbt017-zterm.
read table itab_zycbt017 with key nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf
into wa_zycbt017.
if sy-subrc = 0.
v_zterm = wa_zycbt017-zterm.
else.
select single zterm
from /pws/zycbt017
into v_zterm
where nrinvoic = <fs_op>-nrinvoic and
nrparcf = <fs_op>-nrparcf and
gsberf = <fs_op>-gsberf.
endif.
* << Fim da inclusão
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = p_chave and
codeven = p_evento.
loop at itab_zyglt321 into wa_zyglt321.
case wa_zyglt321-cpor3.
when 'SGTXT'.
if p_txtlanc is initial.
case wa_zyglt321-cpocb.
when 'NRINVOIC'.
...
...
when 'NRSEQ'.
p_zycbe033-d_zuonr = <fs_op>-nrseq.
p_zycbe033-c_zuonr = <fs_op>-nrseq.
when 'NRINVOIC'.
p_zycbe033-d_zuonr = <fs_op>-nrinvoic.
p_zycbe033-c_zuonr = <fs_op>-nrinvoic.
when 'NREMB'.
p_zycbe033-d_zuonr = <fs_op>-nremb.
p_zycbe033-c_zuonr = <fs_op>-nremb.
endcase.
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321
when 'ZTERM'.
if wa_zyglt321-cpocb = 'ZTERM'.
p_zycbe033-zterm = v_zterm.
endif.
* << Fim da inclusão
endcase.
endloop.
endform.
form store_erros
using p_itab_zycbt034 type t_t_zycbt034.
data:
wa_zycbt034 like line of p_itab_zycbt034.
loop at p_itab_zycbt034 into wa_zycbt034.
perform message_store
using '/PWS/ZYCBM'
...
...
changing
p_kursf.
endform.
form busca_parametros_321_devolucao
using p_evento
p_chave
p_devolucao like line of itab_devolucao
changing p_zycbe033 like line of itab_zycbe033. "#EC *
data:
itab_zyglt321 type standard table of /pws/zyglt321,
* >> Início da exclusão: FORM BUSCA_PARAMETROS_321_DEVOLUCAO
wa_zyglt321 like line of itab_zyglt321.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321_DEVOLUCAO
wa_zyglt321 like line of itab_zyglt321,
v_zterm type /pws/zycbt017-zterm.
read table itab_zycbt017 with key nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf
into wa_zycbt017.
if sy-subrc = 0.
v_zterm = wa_zycbt017-zterm.
else.
select single zterm
from /pws/zycbt017
into v_zterm
where nrinvoic = <fs_op>-nrinvoic and
nrparcf = <fs_op>-nrparcf and
gsberf = <fs_op>-gsberf.
endif.
* << Fim da inclusão
select * from /pws/zyglt321
into table itab_zyglt321
where ktosl = p_chave and
codeven = p_evento.
loop at itab_zyglt321 into wa_zyglt321.
case wa_zyglt321-cpor3.
when 'SGTXT'.
case wa_zyglt321-cpocb.
when 'NRSEQ_OP'.
p_zycbe033-d_sgtxt = <fs_op>-nrseq.
...
...
when 'NRSEQ_OP'.
p_zycbe033-d_zuonr = <fs_op>-nrseq.
p_zycbe033-c_zuonr = <fs_op>-nrseq.
when 'REF_OP'.
p_zycbe033-d_zuonr = <fs_op>-ref_op.
p_zycbe033-c_zuonr = <fs_op>-ref_op.
when 'NRSEQ'.
p_zycbe033-d_zuonr = p_devolucao-nrseq.
p_zycbe033-c_zuonr = p_devolucao-nrseq.
endcase.
* >> Início da inclusão: FORM BUSCA_PARAMETROS_321_DEVOLUCAO
when 'ZTERM'.
if wa_zyglt321-cpocb = 'ZTERM'.
p_zycbe033-zterm = v_zterm.
endif.
* << Fim da inclusão
endcase.
endloop.
endform.
form contabiliza_desm_devolucao
changing p_devolucao type t_devolucao.
data:
v_count type t_mensagem-msg,
v_msg type t_mensagem-msg,
v_cpochv type /pws/zycbe033-cpochv,
wa_zycbt011 type /pws/zycbe011,
...