CE PLUS - Nota 013706
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 26/03/2014 10:13:47
Data/Hora Última Alteração: 26/03/2014 10:13:47
Descrição da Nota: REMESSA - COMPLEMENTO BOLETO
Sintoma
O programa não está preenchendo corretamente a classificação contábil na partida de crédido do
documento gerado para os casos de impostos contabilizados na conta do razão.
Solução
O mapeamento foi corrigido para prever o preenchimento destes campos
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13706 Data: 13/02/2014 Hora: 13:09:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13706
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03868 - 00001 - 7.0 - 00001 - COMPLEMENTO DO BOLETO - CAMPO CENTRO DE CUSTO
10215 - 00002 - 8.0 - 00003 - REMESSA FINANCEIRA, CONTABILIZAÇÃO SOCIEDADE PARCEIRA
10222 - 00003 - 8.0 - 00003 - COMPLEMENTO DE BOLETOS, CONTABILIZAÇÃO SOCIEDADE PARCEIRA
12577 - 00004 - 9.0 - 00002 - COMPLEMENTO DO BOLETO, NÃO LEVAR CLASSIFICAÇÃO CONTÁBIL CONTA CRÉ
13553 - 00005 - 9.0 - 00007 - REMESSA FINANCEIRA, ORIGEM ORDEM DE VENDA
----------------------------------------------------------------------------------------------------
REMESSA - COMPLEMENTO BOLETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA - COMPLEMENTO BOLETO - CLASSIFICAÇÃO CONTÁBIL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCA109F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
else.
v_trans = 'F-43'.
endif.
endif.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = v_trans.
itab_zycbe033-tabela = '/PWS/ZYCBT031'.
itab_zycbe033-cpochv = /pws/zycbe031-nrseq.
itab_zycbe033-bcorec = /pws/zycbe031-bco.
itab_zycbe033-budat = itab_dados_tc-dtlanc.
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
clear itab_zycbt141.
read table itab_zycbt141 with key tpimp = p_tpimp.
itab_zycbe033-aufnr = itab_zycbt141-aufnr.
itab_zycbe033-d_prctr = itab_zycbt141-prctr.
itab_zycbe033-c_prctr = itab_zycbt141-prctr.
itab_zycbe033-ps_posid = itab_zycbt141-ps_posid.
* << Fim da inclusão
itab_zycbe033-c_kostl = itab_zycbt141-kostl.
itab_zycbe033-d_kostl = itab_zycbt141-kostl.
if /pws/zycbe031-contabreal is initial or
not p_recontabiliza is initial.
itab_zycbe033-kursf = itab_dados_tc-kursf.
itab_zycbe033-wrbtr = itab_dados_tc-vlme.
itab_zycbe033-dmbtr = itab_dados_tc-vlmi.
itab_zycbe033-waersb = wa_zycbt007-waersb.
else.
itab_zycbe033-wrbtr = itab_dados_tc-vlme.
...
...
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
endif.
itab_zycbe033-vbund = itab_zycbt124_aux-vbund.
if p_tpimp ne 'PRINCIPAL' and
itab_zycat024-n_preencher_cf = 'X' and
itab_zycbe033-newbs eq '50'.
itab_zycbe033-c_kostl = ''.
itab_zycbe033-d_kostl = ''.
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
clear: itab_zycbe033-aufnr,
itab_zycbe033-d_prctr,
itab_zycbe033-c_prctr,
itab_zycbe033-ps_posid.
* << Fim da inclusão
endif.
append itab_zycbe033.
perform lancamento_multiplo using p_tpimp
p_recontabiliza
p_recuperar.
loop at itab_zycbt034.
itab_zycbt032-msgv1 = itab_zycbt034-descricao.
perform message_store
using c_classe_msg
c_tipo_msg_e
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
read table itab_zyglt316 index 1.
itab_zycbe033-c_newko = itab_zyglt316-konth.
endif.
itab_zycbe033-newbs = '50'.
clear: v_koart_bi, v_shkzg_bi.
endif.
endif.
itab_zycbe033-d_gsber = /pws/zycbe124-gsber.
itab_zycbe033-c_gsber = /pws/zycbe124-gsber.
itab_zycbe033-vbund = /pws/zycbe124-vbund.
* >> Início da inclusão: FORM CONTABILIZA_F43
CLEAR itab_zycbt141.
READ TABLE itab_zycbt141 WITH KEY tpimp = p_tpimp.
IF p_tpimp NE 'PRINCIPAL' AND
itab_zycat024-n_preencher_cf = ' ' AND
itab_zycbe033-newbs EQ '50'.
itab_zycbe033-aufnr = itab_zycbt141-aufnr.
itab_zycbe033-d_prctr = itab_zycbt141-prctr.
itab_zycbe033-c_prctr = itab_zycbt141-prctr.
itab_zycbe033-ps_posid = itab_zycbt141-ps_posid.
itab_zycbe033-c_kostl = itab_zycbt141-kostl.
itab_zycbe033-d_kostl = itab_zycbt141-kostl.
ENDIF.
* << Fim da inclusão
append itab_zycbe033.
perform preenche_partida_multipla using p_tpimp.
clear: itab_zyglt100.
refresh: itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'F'
i_func = v_syrepid
...
...
if sy-subrc = 0.
perform carrega_bschl.
loop at itab_vbfa.
clear: wa_bkpf,
itab_bseg.
refresh: itab_bseg.
select *
from bkpf
up to 1 rows
into wa_bkpf
* >> Início da exclusão: FORM CRIAR_REMESSA_ORDEM_2
where awkey = itab_vbfa-vbeln. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_ORDEM_2
WHERE awkey = itab_vbfa-vbeln. "#EC CI_NOFIRST
* << Fim da inclusão
endselect.
if sy-subrc = 0.
select * from bseg into table itab_bseg
where belnr = wa_bkpf-belnr
and bukrs = wa_bkpf-bukrs
and gjahr = wa_bkpf-gjahr
and bschl in r_bschl
and koart = 'D'
and augbl = space
and umskz = space.
...