Visualização da Nota 9829

CE PLUS - Nota 009829

Módulo: CÂMBIO EXPORTAÇÃO

Funcionalidade: Valores Mantidos no Exterior

Data/Hora da Publicação: 12/02/2010 00:00:00

Data/Hora Última Alteração: 18/02/2011 17:49:46

Descrição da Nota: VALORES MANTIDOS NO EXTERIOR - NÃO RETORNA MENSAGENS DE ERRO CONTABIL

Sintoma

Ao executar a ida ou estorno de VME, se ocorrer algum erro, não retorna na tela a mensagem do que

ocorreu.

Solução

Tratar retorno dos erros/avisos das contabilizações.

Versões Tratadas

8.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 8036

VALORES MANTIDOS NO EXTERIOR - O CAMPO BUDAT NÃO GRAVA A DATA CORRETA

Nota 8239

VALORES MANTIDOS NO EXTERIOR E LIQUIDAÇÃO - COMISSÃO DE AGENTE

Nota 6995

ESTORNO DA ORDEM SEM FAZER O CLEARING DA CONTA DO BANCO

Nota 7865

VALORES MANTIDOS NO EXTERIOR - ESTORNO - CLEARING CLIENTE - GSBER VAZIO

Nota 3270

DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO

Nota 5482

VALORES MANTIDOS NO EXTERIOR - DA COMPLETO

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 09829 Data: 12/02/2010 Hora: 13:46:50

----------------------------------------------------------------------------------------------------

Nota Número : 09829

Categoria : Erro de Programa

Prioridade : Média

Versão PW.CE : 8.0

Pacote : 00002

Agrupamento : 00008

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

03270 - 00001 - 6.0 - 00026 - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO

05482 - 00002 - 7.0 - 00003 - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO

06995 - 00003 - 7.0 - 00006 - ESTORNO DA ORDEM SEM FAZER O CLEARING DA CONTA DO BANCO

07865 - 00004 - 7.0 - 00008 - VALORES MANTIDOS NO EXTERIOR - ESTORNO - CLEARING CLIENTE - GSBER

08036 - 00005 - 7.0 - 00008 - VALORES MANTIDOS NO EXTERIOR - O CAMPO BUDAT NÃO GRAVA A DATA COR

08239 - 00006 - 7.0 - 00009 - VALORES MANTIDOS NO EXTERIOR E LIQUIDAÇÃO - COMISSÃO DE AGENTE

----------------------------------------------------------------------------------------------------

VALORES MANTIDOS NO EXTERIOR - NÃO RETORNA MENSAGENS DE ERRO CONTABIL

----------------------------------------------------------------------------------------------------

Palavras Chave:

VALORES MANTIDOS NO EXTERIOR NÃO RETORNA MENSAGENS DE ERRO CONTABIL

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCB034F01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB034F01

...

perform message_store

using '/PWS/ZYCBM'

'E'

'Campo não está preenchido.'(m13)

wa_zycbt034-campo

'-'

wa_zycbt034-descricao

'061'.

endloop.

endif.

* >> Início da inclusão: FORM DOC_COMPENSACAO

else.

loop at itab_zycbt034 into wa_zycbt034.

perform message_store

using '/PWS/ZYCBM'

'E'

'Campo não está preenchido.'(m13)

wa_zycbt034-campo

'-'

wa_zycbt034-descricao

'061'.

endloop.

* << Fim da inclusão

endif.

endform.

form preenche_contas_bloqueio using

p_mandt type mandt

p_bukrs type bukrs

p_tpconta type koart

p_conta type hkont

p_modo type enqmode.

data: wa_zycbe224 type t_s_zycbe224.

check not p_tpconta is initial and

...

t_dados = itab_zycbe033

t_campo = itab_zycbt034

t_zycbt032 = itab_zycbt032

t_zycbt036 = itab_zycbt036

exceptions

campo_em_branco = 1

periodo_fechado = 2

others = 3.

endif.

move sy-subrc to v_retorno_f_30.

* >> Início da exclusão: FORM ESTORNO

read table itab_zycbe033 into wa_zycbe033 index 1.

* << Fim da exclusão

if sy-subrc = 0.

* >> Início da inclusão: FORM ESTORNO

read table itab_zycbe033 into wa_zycbe033 index 1.

* << Fim da inclusão

read table itab_zycbt032 with key

tcode = 'F-30'

tabela = '/PWS/ZYCBT226'

cpochv = wa_zycbe033-cpochv

tpmsg = 'S'

into wa_zycbt032.

...

'E'

'Campo não está preenchido.'(m13)

wa_zycbt034-campo

'-'

wa_zycbt034-descricao

'061'.

endloop.

perform estornar_contabilizacoes

changing itab_contabilizacoes.

endif.

* >> Início da inclusão: FORM ESTORNO

else.

loop at itab_zycbt034 into wa_zycbt034.

perform message_store

using '/PWS/ZYCBM'

'E'

'Campo não está preenchido.'(m13)

wa_zycbt034-campo

'-'

wa_zycbt034-descricao

'061'.

endloop.

perform estornar_contabilizacoes

changing itab_contabilizacoes.

* << Fim da inclusão

endif.

endform.

form volta_saldo using value(p_processo) type c

value(p_zycbt032) type t_s_zycbt032

value(p_zycbe033) type t_s_zycbe033

p_zycbt225 type t_s_zycbt225

p_zycbt030 type t_s_zycbt030

p_zycbt209 type t_s_zycbt209

value(p_tot_liqand) type wrbtr.

data:

...

'E'

'Campo não está preenchido.'(m13)

wa_zycbt034-campo

'-'

wa_zycbt034-descricao

'061'.

endloop.

perform estornar_contabilizacoes

changing itab_contabilizacoes.

endif.

* >> Início da inclusão: FORM ESTORNO_LIQ_AND

else.

loop at itab_zycbt034 into wa_zycbt034.

perform message_store

using '/PWS/ZYCBM'

'E'

'Campo não está preenchido.'(m13)

wa_zycbt034-campo

'-'

wa_zycbt034-descricao

'061'.

endloop.

perform estornar_contabilizacoes

changing itab_contabilizacoes.

* << Fim da inclusão

endif.

refresh: itab_zycbt032,

itab_zycbe033,

itab_zycbt036,

itab_zycbe224.

endloop.

call function '/PWS/ZYCB_ENQUEUE_CONTAS'

exporting

i_bloqueia = 'X'

tables

...

itab_contabil-vbeln = itab_aux-vbeln.

itab_contabil-gsberf = itab_aux-gsberf.

itab_contabil-msg = text-063.

append itab_contabil.

endif.

endloop.

if v_aux eq '1'.

clear v_aux.

else.

clear v_erro_f28.

* >> Início da exclusão: FORM LIQUIDA_COMIS_TRANS

loop at itab_zycbt032 into wa_zycbt032.

message i015 with wa_zycbt032-msg+0(50)

wa_zycbt032-msg+50(50).

* << Fim da exclusão

* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS

loop at itab_zycbt032 into wa_zycbt032

where tcode = 'F-30'

and tabela = '/PWS/ZYCBT226'

and cpochv = wa_zycbe033-cpochv

and tpmsg = 'E'.

perform message_store

using wa_zycbt032-msgid

wa_zycbt032-tpmsg

wa_zycbt032-msgv1

wa_zycbt032-msgv2

wa_zycbt032-msgv3

wa_zycbt032-msgv4

wa_zycbt032-nrmsg.

* << Fim da inclusão

endloop.

endif.

if v_status_f30 eq 'S'.

perform executa_clearing_agente.

endif.

else.

loop at itab_zycbt034 into wa_zycbt034.

* >> Início da exclusão: FORM LIQUIDA_COMIS_TRANS

message i016 with wa_zycbt034-descricao.

* << Fim da exclusão

* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS

perform message_store using

'/PWS/ZYCBM'

'W'

wa_zycbt034-descricao

space

'016'.

* << Fim da inclusão

endloop.

endif.

endform.

form clear_date_batch.

clear:

itab_zycbt034,

itab_zycbe033,

itab_zycbt032,

itab_zycbt036.

...

endloop.

endif.

update /pws/zycbt226 set status = <fs_op>-status

where nrseq = <fs_op>-nrseq

and nrinvoic = <fs_op>-nrinvoic

and nrparcf = <fs_op>-nrparcf

and gsberf = <fs_op>-gsberf.

commit work.

endif.

* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE

else.

loop at itab_zycbt034 into wa_zycbt034.

perform message_store

using '/PWS/ZYCBM'

'E'

'Campo não está preenchido.'(m13)

wa_zycbt034-campo

'-'

wa_zycbt034-descricao

'061'.

endloop.

* << Fim da inclusão

endif.

perform message_store

using '/PWS/ZYCBM'

'I'

'DOC. CLEARING DE AGENTE.'(065)

'-'

<fs_op>-nrinvoic

space

'061'.

perform message_store

using wa_zycbt032-msgid

wa_zycbt032-tpmsg

wa_zycbt032-msgv1

wa_zycbt032-msgv2

wa_zycbt032-msgv3

wa_zycbt032-msgv4

wa_zycbt032-nrmsg.

* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE

else.

loop at itab_zycbt034 into wa_zycbt034.

perform message_store

using '/PWS/ZYCBM'

'E'

'Campo não está preenchido.'(m13)

wa_zycbt034-campo

'-'

wa_zycbt034-descricao

'061'.

endloop.

* << Fim da inclusão

endif.

endform.

form fill_date_f30_comissao .

data: v_chave(50), v_erro_f28(1), v_aux,

v_status_f30(1) value 'E',

v_vlslliq like /pws/zycbt030-vlslliq.

perform clear_date_batch.

clear: itab_zycbt032a, itab_zycbt036.

refresh: itab_zycbt032a, itab_zycbt036.

perform get_parameters_comissao .

...

perform message_store

using '/PWS/ZYCBM'

'E'

'Campo não está preenchido.'(m13)

wa_zycbt034-campo

'-'

wa_zycbt034-descricao

'061'.

endloop.

else.

* >> Início da exclusão: FORM FILL_DATE_F30_COMISSAO

loop at itab_zycbt032 into wa_zycbt032

where tcode = 'F-30'

and tabela = '/PWS/ZYCET010'

and cpochv = wa_zycbe033-cpochv

and tpmsg = 'E'.

* << Fim da exclusão

* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO

loop at itab_zycbt034 into wa_zycbt034.

* << Fim da inclusão

perform message_store

* >> Início da exclusão: FORM FILL_DATE_F30_COMISSAO

using wa_zycbt032-msgid

wa_zycbt032-tpmsg

wa_zycbt032-msgv1

wa_zycbt032-msgv2

wa_zycbt032-msgv3

wa_zycbt032-msgv4

wa_zycbt032-nrmsg.

* << Fim da exclusão

* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO

using '/PWS/ZYCBM'

'E'

'Campo não está preenchido.'(m13)

wa_zycbt034-campo

'-'

wa_zycbt034-descricao

'061'.

* << Fim da inclusão

endloop.

perform estorna_comissao.

endif.

endform.

form verifica_pais_filial using p_bukrs

p_brnch.

select single adrnr from j_1bbranch into j_1bbranch-adrnr

where bukrs = p_bukrs

and branch = p_brnch.

...

perform message_store

using '/PWS/ZYCBM'

'E'

'Campo não está preenchido.'(m13)

wa_zycbt034-campo

'-'

wa_zycbt034-descricao

'061'.

endloop.

endif.

* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE

else.

loop at itab_zycbt034 into wa_zycbt034.

perform message_store

using '/PWS/ZYCBM'

'E'

'Campo não está preenchido.'(m13)

wa_zycbt034-campo

'-'

wa_zycbt034-descricao

'061'.

endloop.

* << Fim da inclusão

endif.

endform.