CE PLUS - Nota 009665
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 08/01/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 10:50:58
Descrição da Nota: COMPLEMENTO DO BOLETO - CONTABILIZAÇÃO - CAMPO CENTRO DE LUCRO
Sintoma
Complemento do Boleto - contabilização - campo Centro de Lucro não está mapeado no BI
Solução
Mapear o campo PRCTR (centro de Lucro) no BI para aparecer na contabilização
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09665 Data: 08/01/2010 Hora: 15:20:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09665
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00003
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00001 - 09389 - 6.0 - 00021 - DI - SUSPENSÃO DE ICMS
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - CONTABILIZAÇÃO - CAMPO CENTRO DE LUCRO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - CONTABILIZAÇÃO - CAMPO CENTRO DE LUCRO
NÃO ESTÁ MAPEADO NO BI
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCM_TRANSACAO_F_43C
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_43C
...
...
* Tela 303, 304 ou 2320 ------------------------------------------------
describe table t_item lines v_linhas.
loop at t_item.
add 1 to v_tabix.
if not v_zfbdt_char is initial and
v_zfbdt_char(2) ne '00'.
select single ulsk1 ulsk2
from t042
into (v_ulsk1, v_ulsk2)
where bukrs = t_dados-bukrs.
if sy-subrc eq 0.
if t_dados-umskz ca v_ulsk1 or
t_dados-umskz ca v_ulsk2.
perform bdc_field using 'BSEG-ZFBDT' v_zfbdt_char.
else.
select single umsks
from t074u
into v_umsks
where koart = 'K' and
umskz = t_dados-umskz.
if sy-subrc eq 0.
if v_umsks ne 'A'.
perform bdc_field using 'BSEG-ZFBDT' v_zfbdt_char.
endif.
endif.
endif.
else.
read table itab_oculto with key campo = 'BSEG-ZFBDT'
chave = 'D'.
if sy-subrc <> 0. "Não está oculto
perform bdc_field using 'BSEG-ZFBDT' v_zfbdt_char.
endif.
endif.
endif.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
read table itab_oculto with key campo = 'BSEG-PRCTR'
chave = 'D'.
if sy-subrc <> 0. "Não está oculto
if not t_dados-d_prctr is initial.
perform bdc_field using 'BSEG-PRCTR' t_dados-d_prctr.
endif.
endif.
* << Fim da inclusão
read table itab_oculto with key
campo = 'BSEG-PROJK' chave = 'D'.
if sy-subrc <> 0. "Não está oculto
if not t_dados-ps_psp_pnr is initial.
call function 'CONVERSION_EXIT_KONPR_OUTPUT'
exporting
input = t_dados-ps_psp_pnr
importing
output = v_pep.
perform bdc_field using:
'BSEG-PROJK' v_pep. "Elemento PEP
endif.
endif.
if v_tabix ne v_linhas.
perform bdc_field using:
'BSEG-WRBTR' v_wrbtr, "Montante
'RF05A-NEWBS' '29', "Chv.lançto-débito
'RF05A-NEWKO' t_item-d_newko, "Conta débito
'RF05A-NEWUM' t_item-umskz, "Rze
'BDC_OKCODE' '/00'.
endif.
endloop.
...
...
if not t_dados-ps_psp_pnr is initial.
call function 'CONVERSION_EXIT_KONPR_OUTPUT'
exporting
input = t_dados-ps_psp_pnr
importing
output = v_pep.
perform bdc_field using:
'BSEG-PROJK' v_pep.
endif.
endif.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
read table itab_oculto with key campo = 'BSEG-PRCTR'
chave = 'D'.
if sy-subrc <> 0.
if not t_dados-d_prctr is initial.
perform bdc_field using 'BSEG-PRCTR' t_dados-d_prctr.
endif.
endif.
* << Fim da inclusão
endif.
perform bdc_field using 'BDC_OKCODE' '=AB'.
perform bdc_screen using 'SAPMF05A' '0700'.
perform bdc_field using 'BDC_OKCODE' '=BU'.
refresh itab_msg.
clear itab_msg.
v_transacao = 'F-43'.
v_update = 'S'.
v_msgid = 'F5'.
v_msgno = '312'.
...