CE PLUS - Nota 010852
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Valores Mantidos no Exterior
Data/Hora da Publicação: 21/12/2010 00:00:00
Data/Hora Última Alteração: 22/03/2011 11:13:07
Descrição da Nota: VALORES MANTIDOS NO EXTERIOR - PROBLEMA NAS MSGS AO EFETUAR CG
Sintoma
as mensagens ao efetuar conta grafica em valores mantidos no exterior estão incorretas
Solução
acertar os textos criados para os campos para a mensagem aparecer com o problema correto.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10852 Data: 21/12/2010 Hora: 16:02:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10852
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00051
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08239 - 00001 - 7.0 - 00009 - VALORES MANTIDOS NO EXTERIOR E LIQUIDAÇÃO - COMISSÃO DE AGENTE
09829 - 00002 - 8.0 - 00002 - VALORES MANTIDOS NO EXTERIOR - NÃO RETORNA MENSAGENS DE ERRO CONT
09950 - 00003 - 8.0 - 00002 - TRADUÇÃO INGLÊS E ESPANHOL PARA OBJETOS NOVOS
10135 - 00004 - 8.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO-MENSAGEM SALDO INCORRETA
10343 - 00005 - 8.0 - 00004 - CODE INSPECTOR
10665 - 00006 - 8.0 - 00005 - TRADUÇÃO PARA INGLÊS
10850 - 00007 - 8.0 - 00006 - VME VALORES MANTIDOS NO EXTERIOR CONTABILIZAÇÃO COMISSÃO CG SALDO
----------------------------------------------------------------------------------------------------
VALORES MANTIDOS NO EXTERIOR - PROBLEMA NAS MSGS AO EFETUAR CG
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALORES MANTIDOS NO EXTERIOR - PROBLEMA NAS MSGS AO EFETUAR
CONTA GRAFICA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB034F01
REPT /PWS/SAPMZYCB034
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
else.
wa_zycbe033-newbs = '50'.
endif.
if wa_zycbt007-comis = 'C'.
wa_zycbe033-d_newko = itab_zycbt012a-saknr1.
else.
wa_zycbe033-d_newko = itab_zycbt012-saknr2.
endif.
perform verify_null_field using wa_zycbe033-d_newko
'KONTO'
* >> Início da exclusão: FORM LIQUIDA_COMIS_TRANS
text-016.
* << Fim da exclusão
* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS
text-035.
* << Fim da inclusão
wa_zycbe033-agkoa = 'D'.
wa_zycbe033-agkon = itab_zycbt017_cg-kunag.
perform verify_null_field using wa_zycbe033-agkon
'AGKON'
* >> Início da exclusão: FORM LIQUIDA_COMIS_TRANS
text-042.
* << Fim da exclusão
* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS
text-036.
* << Fim da inclusão
perform dados_batch .
concatenate itab_aux-nrinvoic itab_aux-vbeln itab_aux-gsberf
into v_chave.
wa_zycbe033-cpochv = v_chave.
perform valor_baixar_comissao.
v_valorc = wa_zycbe033-wrbtr.
perform verify_null_field using itab_aux-belnr6
'BELNR'
* >> Início da exclusão: FORM LIQUIDA_COMIS_TRANS
text-044.
* << Fim da exclusão
* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS
text-068.
* << Fim da inclusão
wa_zycbe033-belnr = itab_aux-belnr6.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = <fs_op>-bukrs
v_date = itab_zycet010-dtlanc
importing
v_year = v_year
exceptions
variante_de_exercicio = 1
...
...
endcase.
endloop.
wa_zycbe033-bktxt = wa_zycbt007-bktxt.
if wa_zycbe033-d_sgtxt is initial.
wa_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
wa_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
wa_zycbe033-augtx = wa_zycbt011-txtdesc.
endif.
perform verify_null_field using <fs_op>-bukrs
'BUKRS'
* >> Início da exclusão: FORM DADOS_BATCH
text-048.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH
text-006.
* << Fim da inclusão
wa_zycbe033-bukrs = <fs_op>-bukrs.
perform verify_null_field using itab_zycbt017_cg-waers
'WAERS'
* >> Início da exclusão: FORM DADOS_BATCH
text-049.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH
text-010.
* << Fim da inclusão
wa_zycbe033-waers = itab_zycbt017_cg-waers.
perform verifica_data.
perform define_cambio using v_databl
<fs_op>-waers
wa_zycbt007-waersb
wa_zycbe033-kursf.
perform verify_null_field using wa_zycbe033-kursf
'TXCAMB'
* >> Início da exclusão: FORM DADOS_BATCH
text-051.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH
text-019.
* << Fim da inclusão
perform verify_null_field using wa_zycbt011-blart
'BLART'
* >> Início da exclusão: FORM DADOS_BATCH
text-050.
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH
text-008.
* << Fim da inclusão
wa_zycbe033-blart = wa_zycbt011-blart.
wa_zycbe033-zfbdt = v_dtpagto.
...
...
clear itab_zycbt036.
refresh itab_zycbt036.
concatenate itab_selreg-nrchave
itab_selreg-lifnr
into v_cpochv.
wa_zycbe033-tcode = 'F-30'.
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
wa_zycbe033-cpochv = v_cpochv.
perform verify_null_field using v_dtpagto
'DTPAGTO'
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
text-003.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
text-069.
* << Fim da inclusão
wa_zycbe033-budat = v_dtpagto.
perform verify_null_field using wa_zycbt011-blart
'BLART'
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
text-050.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
text-008.
* << Fim da inclusão
wa_zycbe033-blart = wa_zycbt011-blart.
wa_zycbe033-bktxt = wa_zycbt007-bktxt.
wa_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
wa_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
perform verifica_data.
perform define_cambio using v_databl
<fs_op>-waers
wa_zycbt007-waersb
wa_zycbe033-kursf.
perform verify_null_field using wa_zycbe033-kursf
'TXCAMB'
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
text-051.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
text-019.
* << Fim da inclusão
if wa_zycbt007-fdtdoc = 'D'.
wa_zycbe033-bldat = sy-datum.
wa_zycbe033-d_valut = sy-datum.
else.
wa_zycbe033-bldat = wa_zycbe033-budat.
wa_zycbe033-d_valut = wa_zycbe033-budat.
endif.
wa_zycbe033-augtx = wa_zycbt011-txtdesc.
loop at itab_zyglt321_cg into wa_zyglt321_cg.
case wa_zyglt321_cg-cpor3.
...
...
wa_zycbe033-d_zuonr = wa_zyglt321_cg-descr.
endcase.
when 'ZTERM'.
if wa_zyglt321_cg-cpocb = 'ZTERM'.
wa_zycbe033-zterm = itab_zycbt017_cg-zterm.
endif.
endcase.
endloop.
perform verify_null_field using <fs_op>-bukrs
'BUKRS'
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
text-048.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
text-006.
* << Fim da inclusão
wa_zycbe033-bukrs = <fs_op>-bukrs.
perform verify_null_field using itab_zycbt017_cg-waers
'WAERS'
* >> Início da exclusão: FORM EXECUTA_CLEARING_AGENTE
text-049.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
text-010.
* << Fim da inclusão
wa_zycbe033-waers = itab_zycbt017_cg-waers.
...
...
wa_zycbe033-newbs = '31'.
endif.
endif.
if wa_zycbt007-comis = 'C'.
wa_zycbe033-d_newko = itab_zycbt012a-saknr1.
else.
wa_zycbe033-d_newko = itab_selreg-lifnr.
endif.
perform verify_null_field using wa_zycbe033-d_newko
'KONTO'
* >> Início da exclusão: FORM FILL_DATE_F30_COMISSAO
text-016.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO
text-035.
* << Fim da inclusão
wa_zycbe033-agkoa = 'D'.
wa_zycbe033-agkon = itab_zycbt017_cg-kunag.
perform verify_null_field using wa_zycbe033-agkon
'AGKON'
* >> Início da exclusão: FORM FILL_DATE_F30_COMISSAO
text-042.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO
text-036.
* << Fim da inclusão
perform dados_batch.
concatenate itab_aux-nrinvoic
itab_aux-nrparcf
itab_aux-vbeln itab_aux-gsberf into v_chave.
wa_zycbe033-cpochv = v_chave.
perform valor_baixar_comissao.
perform verify_null_field using itab_aux-belnr6
'BELNR'
* >> Início da exclusão: FORM FILL_DATE_F30_COMISSAO
text-044.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO
text-068.
* << Fim da inclusão
wa_zycbe033-belnr = itab_aux-belnr6.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = <fs_op>-bukrs
v_date = itab_aux-budat
importing
v_year = v_year
exceptions
variante_de_exercicio = 1
...
...
itab_aux-gsberf into v_cpochv.
wa_zycbe033-cpochv = v_cpochv.
perform verifica_pais_filial using <fs_op>-bukrs
<fs_op>-j_1bbranch.
wa_zycbe033-brnch = <fs_op>-j_1bbranch.
perform get_parameters_003.
perform verifica_taxa_original.
wa_zycbe033-kursf = v_taxa.
perform verify_null_field using wa_zycbe033-kursf
'TXCAMB'
* >> Início da exclusão: FORM FILL_DATE6_F22_COMISSAO
text-051.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
text-019.
* << Fim da inclusão
wa_zycbe033-d_gsber = <fs_op>-gsberf.
wa_zycbe033-augtx = wa_zycbt011-txtdesc.
wa_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
wa_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
wa_zycbe033-wrbtr = itab_aux-valor.
perform verify_null_field using wa_zycbe033-wrbtr
'WRBTR'
text-007.
loop at itab_zyglt321_cg into wa_zyglt321_cg.
case wa_zyglt321_cg-cpor3.
...
...
endform.
form local_negocio.
clear wa_t001w.
select single * from t001w into wa_t001w
where werks = <fs_op>-werks.
endform.
form get_parameters_003.
wa_zycbe033-bktxt = wa_zycbt007-bktxt.
perform verify_null_field using <fs_op>-bukrs
'BUKRS'
* >> Início da exclusão: FORM GET_PARAMETERS_003
text-004.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_003
text-006.
* << Fim da inclusão
wa_zycbe033-bukrs = <fs_op>-bukrs.
perform verify_null_field using <fs_op>-waers
'WAERS'
* >> Início da exclusão: FORM GET_PARAMETERS_003
text-005.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_003
text-010.
* << Fim da inclusão
wa_zycbe033-waers = <fs_op>-waers.
perform verify_null_field using wa_zycbt011-blart
'BLART'
* >> Início da exclusão: FORM GET_PARAMETERS_003
text-006.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_003
text-008.
* << Fim da inclusão
wa_zycbe033-blart = wa_zycbt011-blart.
endform.
form verifica_taxa_original.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = <fs_op>-bukrs
v_date = <fs_op>-dtlancto
importing
v_year = v_year
...
...
v_taxa = bkpf-kursf.
endform.
form executa_clearing_cliente.
perform clear_date_batch.
wa_zycbe033-tcode = 'F-30'.
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
wa_zycbe033-cpochv = v_cpochv.
v_dtpagto = <fs_op>-dtlancto.
perform verify_null_field using v_dtpagto
'DTPAGTO'
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
text-003.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
text-069.
* << Fim da inclusão
wa_zycbe033-budat = v_dtpagto.
perform verify_null_field using wa_zycbt011-blart
'BLART'
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
text-050.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
text-008.
* << Fim da inclusão
wa_zycbe033-blart = wa_zycbt011-blart.
perform verifica_data.
perform define_cambio using v_databl
<fs_op>-waers
wa_zycbt007-waersb
wa_zycbe033-kursf.
perform verify_null_field using wa_zycbe033-kursf
'TXCAMB'
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
text-051.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
text-019.
* << Fim da inclusão
if wa_zycbt007-fdtdoc = 'D'.
wa_zycbe033-bldat = sy-datum.
wa_zycbe033-d_valut = sy-datum.
else.
wa_zycbe033-bldat = wa_zycbe033-budat.
wa_zycbe033-d_valut = wa_zycbe033-budat.
endif.
loop at itab_zyglt321_cg into wa_zyglt321_cg.
case wa_zyglt321_cg-cpor3.
when 'SGTXT'.
...
...
wa_zycbe033-d_zuonr = wa_zyglt321_cg-descr.
endcase.
when 'ZTERM'.
if wa_zyglt321_cg-cpocb = 'ZTERM'.
wa_zycbe033-zterm = itab_zycbt017_cg-zterm.
endif.
endcase.
endloop.
perform verify_null_field using <fs_op>-bukrs
'BUKRS'
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
text-048.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
text-006.
* << Fim da inclusão
wa_zycbe033-bukrs = <fs_op>-bukrs.
perform verify_null_field using itab_zycbt017_cg-waers
'WAERS'
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
text-049.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
text-010.
* << Fim da inclusão
wa_zycbe033-waers = itab_zycbt017_cg-waers.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB034
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 068
Texto: (16 caracteres)
"Número Documento"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 069
Texto: (14 caracteres)
"Data Pagamento"
Comprimento máximo: 132