CE PLUS - Nota 001064
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 20/03/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:29:45
Descrição da Nota: PRECISAMOS ALTERAR A CONTABILIZAÇÃO DO ENCERRAMENTO CONTÁBIL E DE CUSTOS
Sintoma
Precisamos alterar a contabilização do encerramento contábil e de custos para que o documento de
compra e o centro sejam preenchidos em cada documento contábil criado no processo. Os outros
documentos criados pelo sistema foram configurados para contabilizar por item de pedido através de
exits do sistema, precisamos que seja feito o mesmo no encerramento.
Solução
Inserido Ponto de Exit CUS003 no form fill_date_f_02.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01064 Data: 20/03/2006 Hora: 16:09:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01064
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00106
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PRECISAMOS ALTERAR A CONTABILIZAÇÃO DO ENCERRAMENTO CONTÁBIL E DE CUSTOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
CONTABILIZAÇÃO - ENCERRAMENTO - CONTABIL - CENTROS - EXIT
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F02
REPS /PWS/MZYCI010I02
REPS /PWS/MZYCI010TOP
REPS /PWS/MZYCI010X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F02
...
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL AND
NOT itab_contas[] IS INITIAL.
* >> Início da inclusão: FORM FILL_DATE_F_02
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI010'
'CUS003'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'CUS003' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) .
ENDIF.
ENDIF.
IF e_subrc = 0.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_F_02C'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
...
...
t_contas = itab_contas
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM FILL_DATE_F_02
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM FILL_DATE_F_02
IF sy-subrc = 0.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02
IF sy-subrc = 0 .
* << Fim da inclusão
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-02'
tabela = '/PWS/ZYCIT003'
cpochv = /pws/zycie001-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010I02
...
module user_command_0050 input.
clear: v_item, v_soma, v_treal, v_tabix.
describe table itab_zycit036a lines v_total.
* >> Início da exclusão: MODULE USER_COMMAND_0050
DATA: e_subrc LIKE sy-subrc,
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
DATA:
* << Fim da inclusão
e_exec_okcode,
v_descfab(01).
IF okcode EQ 'PB_HELP'.
v_tela_help = '0071'.
EXIT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010TOP
...
* >> Início da exclusão:
data: itab_zycie033 like /pws/zycbe033 occurs 10 with header line,
itab_zycit032 like /pws/zycit032 occurs 10 with header line,
itab_zycit034 like /pws/zycit034 occurs 10 with header line,
itab_zycet031 like /pws/zycie031 occurs 10 with header line,
itab_zycbt034 like /pws/zycbt034 occurs 10 with header line,
itab_zycbt032 like /pws/zycbt032 occurs 10 with header line,
itab_zycbe035 like /pws/zycbe035 occurs 0 with header line,
itab_zycbe035_a like /pws/zycbe035 occurs 0 with header line,
itab_zycbe035_b like /pws/zycbe035 occurs 0 with header line,
itab_zycbt036 like /pws/zycbt036 occurs 10 with header line,
itab_zycbt013 like /pws/zycbt013 occurs 10 with header line,
itab_zycbt012 like /pws/zycbt012 occurs 10 with header line.
* << Fim da exclusão
...
...
* >> Início da exclusão:
data: begin of itab_zycbt035_aux occurs 0.
include structure /pws/zycbe035.
data: knttp like ekpo-knttp.
data: end of itab_zycbt035_aux.
data: begin of itab_zycbt035_aux2 occurs 0.
include structure /pws/zycbe035.
data: knttp like ekpo-knttp.
data: end of itab_zycbt035_aux2.
data: begin of itab_contas occurs 0.
include structure /pws/zycbe035.
data: end of itab_contas.
data: begin of itab_zycie031 occurs 0.
include structure /pws/zycie031.
data: end of itab_zycie031.
data: begin of itab_zycie031_aux occurs 0.
include structure /pws/zycie031.
data: end of itab_zycie031_aux.
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_modo_bi,
e_okcode like sy-ucomm,
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010X01
...
* >> Início da inclusão:
data: itab_zycie033 like /pws/zycbe033 occurs 10 with header line,
itab_zycit032 like /pws/zycit032 occurs 10 with header line,
itab_zycit034 like /pws/zycit034 occurs 10 with header line,
itab_zycet031 like /pws/zycie031 occurs 10 with header line,
itab_zycbt034 like /pws/zycbt034 occurs 10 with header line,
itab_zycbt032 like /pws/zycbt032 occurs 10 with header line,
itab_zycbe035 like /pws/zycbe035 occurs 0 with header line,
itab_zycbe035_a like /pws/zycbe035 occurs 0 with header line,
itab_zycbe035_b like /pws/zycbe035 occurs 0 with header line,
itab_zycbt036 like /pws/zycbt036 occurs 10 with header line,
itab_zycbt013 like /pws/zycbt013 occurs 10 with header line,
itab_zycbt012 like /pws/zycbt012 occurs 10 with header line.
data: begin of itab_zycbt035_aux occurs 0.
include structure /pws/zycbe035.
data: knttp like ekpo-knttp.
data: end of itab_zycbt035_aux.
data: begin of itab_zycbt035_aux2 occurs 0.
include structure /pws/zycbe035.
data: knttp like ekpo-knttp.
data: end of itab_zycbt035_aux2.
data: begin of itab_contas occurs 0.
include structure /pws/zycbe035.
data: end of itab_contas.
data: begin of itab_zycie031 occurs 0.
include structure /pws/zycie031.
data: end of itab_zycie031.
data: begin of itab_zycie031_aux occurs 0.
include structure /pws/zycie031.
data: end of itab_zycie031_aux.
data: v_modo_bi,
e_subrc VALUE '0',
e_okcode like sy-ucomm.
* << Fim da inclusão
DATA: END OF COMMON PART b.