CE PLUS - Nota 001784
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 20/07/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:04:22
Descrição da Nota: PARA OS PROCESSOS DE SERVIÇO ONDE TEMOS PEDIDOS COM CLASSIFICAÇÃO CONTÁB
Sintoma
Para os processos de Serviço onde temos pedidos com classificação contábil por Elemento PEP, quando
fazemos a contabilização da Fatura (F-43) o sistema não esta levando no batch input a informação do
Elemento PEP.
Solução
Não passar o elemento PEP para a F-51.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01784 Data: 20/07/2006 Hora: 10:52:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01784
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00123
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01186 - 00001 - 6.0 - 00023 - F-51 PARA A CONTA DE IA LIMPAR LIMPAR A ITAB T_CONTAS CAMPO PS_PS
----------------------------------------------------------------------------------------------------
PARA OS PROCESSOS DE SERVIÇO ONDE TEMOS PEDIDOS COM CLASSIFICAÇÃO CONTÁB
----------------------------------------------------------------------------------------------------
Palavras Chave:
ELEMENTO - PEP - CONTABIL - FATURA
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_F_43A
FUNC /PWS/ZYCI_TRANSACAO_F_51C
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_43A
...
input = t_contas-ps_psp_pnr
IMPORTING
output = v_pep.
PERFORM bdc_field USING:
'COBL-PS_PSP_PNR' v_pep.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43A
perform bdc_field using:
'COBL-PS_POSID' v_pep.
* << Fim da inclusão
ENDIF.
ENDIF.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.
ENDIF.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_51C
...
READ TABLE itab_oculto WITH KEY campo = 'BSEG-EBELP'
chave = v_chave.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'BSEG-EBELP' t_dados-ebelp.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_51C
READ TABLE itab_oculto WITH KEY
campo = 'BSEG-PS_PSP_PNR'
chave = v_chave.
IF sy-subrc <> 0.
IF NOT t_contas-ps_psp_pnr IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_KONPR_OUTPUT'
EXPORTING
input = t_contas-ps_psp_pnr
IMPORTING
output = v_pep.
PERFORM bdc_field USING:
'BSEG-PS_PSP_PNR' v_pep.
ENDIF.
ENDIF.
* << Fim da exclusão
IF NOT t_contas-aufnr IS INITIAL.
PERFORM bdc_field USING 'BSEG-AUFNR' t_contas-aufnr.
ENDIF.
CLEAR t_contas_aux.
READ TABLE t_contas_aux INDEX v_index_aux.
...
...
READ TABLE itab_oculto WITH KEY campo = 'COBL-PRCTR'
chave = v_chave.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-PRCTR' t_contas-d_prctr.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_51C
READ TABLE itab_oculto WITH KEY
campo = 'COBL-PS_PSP_PNR'
chave = v_chave.
IF sy-subrc <> 0.
IF NOT t_contas-ps_psp_pnr IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_KONPR_OUTPUT'
EXPORTING
input = t_contas-ps_psp_pnr
IMPORTING
output = v_pep.
PERFORM bdc_field USING:
'COBL-PS_PSP_PNR' v_pep.
ENDIF.
ENDIF.
* << Fim da exclusão
IF NOT t_contas-aufnr IS INITIAL.
PERFORM bdc_field USING 'COBL-AUFNR' t_contas-aufnr.
ENDIF.
PERFORM bdc_field USING:
'BDC_OKCODE' '=ENTE'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
IF v_dif_wrbtr NE 0.
itab_zycbt035_aux-wrbtr = itab_zycbt035_aux-wrbtr -
v_dif_wrbtr.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
itab_zycbt035_aux-ps_psp_pnr = itab_ekkn-ps_psp_pnr.
IF NOT itab_ekkn-ps_psp_pnr IS INITIAL.
/pws/zycie006-ps_psp_pnr = itab_ekkn-ps_psp_pnr.
ENDIF.
* << Fim da inclusão
IF /pws/zycie006-tpfatura EQ '11'.
IF /pws/zycit000-clucro_ia = ' '.
CLEAR: itab_zycbt035-c_kostl,
itab_zycbt035-d_kostl.
ENDIF.
...