CE PLUS - Nota 001587
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Encerramento de Custo
Data/Hora da Publicação: 14/06/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:39:08
Descrição da Nota: O RELATORIO DO ENCERRAMENTO DE CUSTO ESTA COM VAL. E QTD. DSITORCIDOS
Sintoma
Relatório de encerramento de custo está com valores distorcidos e quantidades incorretas.
Solução
Ajuste no encerramento e no rel. de encerramento de custo.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01587 Data: 14/06/2006 Hora: 11:17:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01587
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00117
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01174 - 00001 - 6.0 - 00023 - VALOR LEVADO PARA O ENCERRAMENTO DE CUSTOS ESTA MAIOR DO QUE DEVE
----------------------------------------------------------------------------------------------------
O RELATORIO DO ENCERRAMENTO DE CUSTO ESTA COM VAL. E QTD. DSITORCIDOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
RELATORIO DO ENCERRAMENTO DE CUSTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F02
REPS /PWS/ZYCIR007
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F02
...
ENDIF.
ENDIF.
SELECT * FROM /pws/zycit331 INTO TABLE itab_zycit331.
FREE itab_zycie031_aux.
LOOP AT itab_zycit003_custo.
* >> Início da exclusão: FORM GET_PARAMETERS_MR22
CLEAR itab_zycie031.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MR22
CLEAR itab_zycie031_aux.
* << Fim da inclusão
CLEAR itab_zycit003.
READ TABLE itab_zycit003 WITH KEY
ebeln = itab_zycit003_custo-ebeln
ebelp = itab_zycit003_custo-ebelp.
CLEAR itab_material.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR007
REPORT /pws/zycir007 MESSAGE-ID /pws/zycim
LINE-COUNT 65
* >> Início da exclusão:
LINE-SIZE 200
* << Fim da exclusão
* >> Início da inclusão:
line-size 224
* << Fim da inclusão
NO STANDARD PAGE HEADING.
TABLES:
/pws/zycbt007,
indx.
DATA: BEGIN OF itab_zycbt035 OCCURS 0.
...
...
e_okcode = sy-ucomm.
EXPORT e_okcode TO MEMORY ID 'I007E'.
LEAVE PROGRAM.
ENDCASE.
FORM lista_impressao.
* >> Início da inclusão: FORM LISTA_IMPRESSAO
uline at /(223).
* << Fim da inclusão
* >> Início da exclusão: FORM LISTA_IMPRESSAO
ULINE AT /(183).
* << Fim da exclusão
WRITE: /00 '|', text-015,
* >> Início da exclusão: FORM LISTA_IMPRESSAO
183 '|'.
ULINE AT /(183).
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
223 '|'.
uline at /(223).
* << Fim da inclusão
WRITE: /00 '|', text-001,
14 '|', text-002,
24 '|', text-003,
36 '|', text-011,
53 '|', text-012,
* >> Início da exclusão: FORM LISTA_IMPRESSAO
72 '|', text-004,
91 '|', text-005,
97 '|', text-006,
110 '|', text-007,
123 '|', text-008,
136 '|', text-009,
154 '|', text-010,
172 '|', text-016,
183 '|'.
ULINE AT /(183).
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
81 '|', text-004,
100 '|', text-005,
106 '|', text-006,
119 '|', text-007,
132 '|', text-008,
145 '|', text-009,
181 '|', text-010,
199 '|', text-016,
223 '|'.
uline at /(223).
* << Fim da inclusão
IF NOT itab_zycie031_aux[] IS INITIAL.
LOOP AT itab_zycie031_aux.
CLEAR: itab_zycit001, itab_zycit003, v_wrbtr.
v_wrbtr = itab_zycie031_aux-wrbtr.
* >> Início da exclusão: FORM LISTA_IMPRESSAO
v_wrbtr = v_wrbtr / 1000.
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
v_wrbtr = v_wrbtr / 100000.
* << Fim da inclusão
READ TABLE itab_zycit003 WITH KEY ebeln = itab_zycie031_aux-ebeln
ebelp = itab_zycie031_aux-ebelp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit001 WITH KEY nrseq = itab_zycit003-nrseq.
IF sy-subrc EQ 0.
...
...
WRITE: /00 '|', itab_zycie031_aux-ebeln,
14 '|', itab_zycie031_aux-ebelp,
24 '|', itab_zycie031_aux-matnr,
36 '|', itab_zycie031_aux-menge UNIT v_unit,
53 '|', v_wrbtr CURRENCY /pws/zycbt007-waersb,
* >> Início da exclusão: FORM LISTA_IMPRESSAO
72 '|',
91 '|',
97 '|',
110 '|',
123 '|',
136 '|',
154 '|',
172 '|',
183 '|'.
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
81 '|',
100 '|',
106 '|',
119 '|',
132 '|',
145 '|',
181 '|',
199 '|',
223 '|'.
* << Fim da inclusão
CLEAR itab_zycie031_aux.
ENDLOOP.
* >> Início da exclusão: FORM LISTA_IMPRESSAO
ULINE AT /(183).
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
uline at /(223).
* << Fim da inclusão
ENDIF.
IF NOT itab_zycbt035_aux[] IS INITIAL.
SORT itab_zycbt035_aux BY ebeln ebelp matuse d_newko.
LOOP AT itab_zycbt035_aux.
CLEAR: itab_zycit001, itab_zycit003, v_wrbtr.
v_wrbtr = itab_zycbt035_aux-wrbtr.
* >> Início da exclusão: FORM LISTA_IMPRESSAO
v_wrbtr = v_wrbtr / 1000.
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
v_wrbtr = v_wrbtr / 100000.
* << Fim da inclusão
READ TABLE itab_zycit003 WITH KEY ebeln = itab_zycbt035_aux-ebeln
ebelp = itab_zycbt035_aux-ebelp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit001 WITH KEY nrseq = itab_zycit003-nrseq.
IF sy-subrc EQ 0.
...
...
WRITE: /00 '|', itab_zycbt035_aux-ebeln,
14 '|', itab_zycbt035_aux-ebelp,
24 '|', itab_zycbt035_aux-matnr,
36 '|', itab_zycbt035_aux-menge UNIT v_unit,
53 '|', v_wrbtr CURRENCY /pws/zycbt007-waersb,
* >> Início da exclusão: FORM LISTA_IMPRESSAO
72 '|', itab_zycbt035_aux-newko,
91 '|', itab_zycbt035_aux-matuse,
97 '|', itab_zycbt035_aux-d_gsber,
110 '|', itab_zycbt035_aux-d_kostl,
123 '|', itab_zycbt035_aux-d_prctr,
136 '|', itab_zycbt035_aux-d_fictr,
154 '|', itab_zycbt035_aux-d_fipos,
172 '|', itab_zycbt035_aux-ps_psp_pnr,
183 '|'.
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
81 '|', itab_zycbt035_aux-newko,
100 '|', itab_zycbt035_aux-matuse,
106 '|', itab_zycbt035_aux-d_gsber,
119 '|', itab_zycbt035_aux-d_kostl,
132 '|', itab_zycbt035_aux-d_prctr,
145 '|', itab_zycbt035_aux-d_fictr,
181 '|', itab_zycbt035_aux-d_fipos,
199 '|', itab_zycbt035_aux-ps_psp_pnr,
223 '|'.
* << Fim da inclusão
ENDLOOP.
* >> Início da exclusão: FORM LISTA_IMPRESSAO
ULINE AT /(183).
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
uline at /(223).
* << Fim da inclusão
SKIP.
ENDIF.
IF NOT itab_zycie031[] IS INITIAL.
ULINE AT /(51).
WRITE: /00 '|', text-014,
...
...
ENDIF.
IF NOT itab_zycbt035[] IS INITIAL.
ULINE AT /(119).
WRITE: /00 '|', text-013,
119 '|'.
* >> Início da exclusão: FORM LISTA_IMPRESSAO
ULINE AT /(119).
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
uline at /(143).
* << Fim da inclusão
WRITE: /00 '|', text-004,
17 '|', text-012,
* >> Início da exclusão: FORM LISTA_IMPRESSAO
36 '|', text-005,
41 '|', text-006,
53 '|', text-007,
66 '|', text-008,
79 '|', text-009,
98 '|', text-010,
115 '|', text-016,
126 '|'.
ULINE AT /(126).
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
46 '|', text-005,
51 '|', text-006,
62 '|', text-007,
74 '|', text-008,
86 '|', text-009,
103 '|', text-010,
118 '|', text-016,
143 '|'.
uline at /(143).
* << Fim da inclusão
LOOP AT itab_zycbt035.
CLEAR: itab_zycit001, itab_zycit003, v_wrbtr.
v_wrbtr = itab_zycbt035-wrbtr.
* >> Início da exclusão: FORM LISTA_IMPRESSAO
v_wrbtr = v_wrbtr / 1000.
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
v_wrbtr = v_wrbtr / 100000.
* << Fim da inclusão
READ TABLE itab_zycit003 WITH KEY ebeln = itab_zycbt035-ebeln
ebelp = itab_zycbt035-ebelp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit001 WITH KEY nrseq = itab_zycit003-nrseq.
IF sy-subrc EQ 0.
...
...
IF itab_zycbt035-bschl EQ '50'.
v_wrbtr = v_wrbtr * -1.
ENDIF.
WRITE: /00 '|', itab_zycbt035-d_newko,
17 '|', v_wrbtr CURRENCY /pws/zycbt007-waersb,
* >> Início da exclusão: FORM LISTA_IMPRESSAO
36 '|', itab_zycbt035-matuse,
41 '|', itab_zycbt035-d_gsber,
53 '|', itab_zycbt035-d_kostl,
66 '|', itab_zycbt035-d_prctr,
79 '|', itab_zycbt035-d_fictr,
98 '|', itab_zycbt035-d_fipos,
115 '|', itab_zycbt035-ps_psp_pnr,
126 '|'.
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
46 '|', itab_zycbt035-matuse,
51 '|', itab_zycbt035-d_gsber,
62 '|', itab_zycbt035-d_kostl,
74 '|', itab_zycbt035-d_prctr,
86 '|', itab_zycbt035-d_fictr,
103 '|', itab_zycbt035-d_fipos,
118 '|', itab_zycbt035-ps_psp_pnr,
143 '|'.
* << Fim da inclusão
ENDLOOP.
* >> Início da exclusão: FORM LISTA_IMPRESSAO
ULINE AT /(126).
* << Fim da exclusão
* >> Início da inclusão: FORM LISTA_IMPRESSAO
uline at /(143).
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM selecionar_dados.
DATA: v_index TYPE i.
SELECT SINGLE * FROM /pws/zycbt007.
...