CE PLUS - Nota 001057
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:13:30
Descrição da Nota: DATA DE ENC.NO EMBARQUE E DESPESAS NO MOVIMENTADO E DIFERENÇA NO CUSTO.
Sintoma
Ao concluir o embarque, não apareceu a data do encerramento na capa do embarque. Um processo de
embarque está carregando as despesas tanto para a coluna movimentado, quanto para a coluna de
diferença do custo efetivo. Ajustado saldo do pedido na PLI.
Solução
Ao concluir o embarque, não apareceu a data do encerramento na capa do embarque. Um processo de
embarque está carregando as despesas tanto para a coluna movimentado, quanto para a coluna de
diferença.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01057 Data: 20/03/2006 Hora: 10:18:46
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01057
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00106
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DATA DE ENC.NO EMBARQUE E DESPESAS NO MOVIMENTADO E DIFERENÇA NO CUSTO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ENCERRAMENTO - DATA DE ENCERRAMENTO - CAPA DE EMBARQUE
DESPESAS NO CUSTO EFETIVO - COLUNA MOVIMENTADO - COLUNA DIFERENÇA
----------------------------------------------------------------------------------------------------
Objetos da nota:
MERG F6DK931248 20060317 181740 PWSCI
RELE F6DK931245 20060317 182107 PWSCI
RELE F6DK931249 20060317 182059 PWSCI
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F02
REPS /PWS/MZYCI001O01
REPS /PWS/MZYCI010F02
REPS /PWS/MZYCI017I01
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
SELECT * FROM konp INTO TABLE itab_komp
FOR ALL ENTRIES IN itab_komv WHERE
knumh = itab_komv-knumh AND
kopos = itab_komv-kopos.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM VERIFICA_ITENS
sort itab_komp by knumh kopos loevm_ko.
* << Fim da inclusão
LOOP AT itab_komv.
v_index = sy-tabix.
READ TABLE itab_komp WITH KEY knumh = itab_komv-knumh
kopos = itab_komv-kopos.
IF sy-subrc EQ 0.
IF itab_komp-loevm_ko EQ 'X'.
* >> Início da exclusão: FORM VERIFICA_ITENS
DELETE itab_komv INDEX v_index.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F02
...
select single status
from /pws/zycit001
into /pws/zycie001-status
where nrseq = /pws/zycie001-nrseq.
endif.
* >> Início da inclusão: FORM LOAD_DATA
IF /pws/zycie001-dtencer IS INITIAL.
SELECT SINGLE dtencer status status_e
FROM /pws/zycit001
INTO (/pws/zycie001-dtencer,
/pws/zycie001-status,
/pws/zycie001-status_e)
WHERE nrseq EQ /pws/zycie001-nrseq.
ENDIF.
* << Fim da inclusão
if not itab_zycit003[] is initial.
perform seleciona_nf.
perform seleciona_bl.
perform seleciona_di.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001O01
...
screen-input = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
IF screen-name = '/PWS/ZYCIE001-DT_ENT_DE' OR
screen-name = '/PWS/ZYCIE001-DT_ENT_ATE'.
IF /pws/zycie001-regime = '02' AND v_status_s = 0.
screen-input = 0.
screen-invisible = 0.
ELSEIF /pws/zycie001-regime = '02'.
screen-input = 1.
screen-invisible = 0.
ELSE.
screen-input = 0.
screen-invisible = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
IF screen-name EQ '/PWS/ZYCIE001-NRDESPADU'.
IF NOT /pws/zycit000-oil IS INITIAL.
screen-required = '1'.
ELSE.
screen-required = 0 .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F02
...
/pws/zycie001-status_e = 'E'.
UPDATE /pws/zycit001 SET dtencer = /pws/zycie001-dtencer
status = /pws/zycie001-status
status_e = /pws/zycie001-status_e
WHERE nrseq = /pws/zycie001-nrseq.
* >> Início da inclusão: FORM ENCERRAMENTO
IF sy-subrc = 0.
EXPORT /pws/zycie001-dtencer TO MEMORY ID 'ENCER01'.
EXPORT /pws/zycie001-status TO MEMORY ID 'ENCER02'.
EXPORT /pws/zycie001-status_e TO MEMORY ID 'ENCER03'.
ENDIF.
* << Fim da inclusão
PERFORM fill_encerramento USING '2'.
COMMIT WORK AND WAIT.
PERFORM call_encerramento.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017I01
...
WHEN '0020'.
CLEAR: /pws/zycie050, /pws/zycie050a.
FREE: itab_zycit050.
LEAVE TO SCREEN 0.
WHEN '0050' OR '0100' OR '0200' .
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
REFRESH itab_zycit036. FREE itab_zycit036.
* << Fim da inclusão
LEAVE TO SCREEN 0.
WHEN '0110'.
CLEAR: /pws/zycie223.
LEAVE TO SCREEN 0.
ENDCASE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
ENDIF.
MOVE:
itab_itens-menge TO it_zycit079-menge,
itab_itens-uebto TO it_zycit079-uebto,
itab_itens-uebtk TO it_zycit079-uebtk.
* >> Início da exclusão: FORM SELECIONAR_ITENS
IF itab_itens-bstyp EQ 'F'.
* << Fim da exclusão
MOVE itab_itens-menge TO it_zycit079-menge.
* >> Início da exclusão: FORM SELECIONAR_ITENS
ELSEIF itab_itens-bstyp EQ 'L'.
MOVE itab_itens-ktmng TO it_zycit079-menge.
ENDIF.
* << Fim da exclusão
ELSE.
* >> Início da exclusão: FORM SELECIONAR_ITENS
IF itab_itens-bstyp EQ 'F'.
* << Fim da exclusão
MOVE: itab_itens-menge TO it_zycit079-slqtde,
itab_itens-menge TO it_zycit079-menge.
* >> Início da exclusão: FORM SELECIONAR_ITENS
ELSEIF itab_itens-bstyp EQ 'L'.
MOVE: itab_itens-ktmng TO it_zycit079-slqtde,
itab_itens-ktmng TO it_zycit079-menge.
ENDIF.
* << Fim da exclusão
MOVE: itab_itens-uebto TO it_zycit079-uebto,
itab_itens-uebtk TO it_zycit079-uebtk.
ENDIF.
CLEAR itab_divisao.
CLEAR itab_tpmat.
...
...
ENDIF.
ENDIF.
ENDFORM.
FORM quest_gravacao.
CLEAR v_resp_save.
* >> Início da inclusão: FORM QUEST_GRAVACAO
DATA: v_save.
* << Fim da inclusão
IF v_tcode NE '/PWS/ZYCI020_E' AND
v_tcode NE '/PWS/ZYCI020_R' AND
v_tcode NE '/PWS/ZYCI020_L'.
* >> Início da exclusão: FORM QUEST_GRAVACAO
IF /pws/zycie078 NE wa_zycit078 OR
it_zycit079_aux[] NE it_zycit079_aux2[] OR
/pws/zycie080 NE wa_zycit080_aux OR
/pws/zycie080a NE wa_zycit080_aux2 OR
/pws/zycie080b NE wa_zycit080_aux3 OR
/pws/zycie080c NE wa_zycit080_aux4 OR
it_zycit081[] NE it_zycit081_aux[] OR
it_anu2[] NE it_anu2_aux[] OR
ittxt1[] NE ittxt2[] .
* << Fim da exclusão
* >> Início da inclusão: FORM QUEST_GRAVACAO
IF /pws/zycie078 NE wa_zycit078.
v_save = 'X'.
ELSEIF it_zycit079_aux[] NE it_zycit079_aux2[].
v_save = 'X'.
ELSEIF /pws/zycie080a NE wa_zycit080_aux2.
v_save = 'X'.
ELSEIF /pws/zycie080b NE wa_zycit080_aux3.
v_save = 'X'.
ELSEIF /pws/zycie080c NE wa_zycit080_aux4.
v_save = 'X'.
ELSEIF it_zycit081[] NE it_zycit081_aux[].
v_save = 'X'.
ELSEIF it_anu2[] NE it_anu2_aux[].
v_save = 'X'.
ELSEIF ittxt1[] NE ittxt2[].
v_save = 'X'.
ENDIF.
IF NOT v_save IS INITIAL.
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-003
text_button_1 = text-004
icon_button_1 = 'ICON_OKAY'
...
...
IF sy-subrc EQ 0.
READ TABLE itab_itens_aux WITH KEY ebelp = it_zycit079-ebelp
ebeln = it_zycit079-ebeln.
v_ncm = itab_itens_aux-j_1bnbm.
ENDIF.
* >> Início da exclusão: FORM SAVE
LOOP AT it_zycit079.
READ TABLE itab_itens_aux WITH KEY ebelp = it_zycit079-ebelp
ebeln = it_zycit079-ebeln.
IF sy-subrc EQ 0.
IF itab_itens_aux-j_1bnbm NE v_ncm.
MESSAGE s015 WITH text-073.
v_erro = v_erro + 1.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
IF v_erro NE 0.
EXIT.
ENDIF.
* << Fim da exclusão
MOVE: v_ncm TO /pws/zycie078-steuc1,
v_ncm TO wa_zycit078-steuc1.
IF NOT v_exit IS INITIAL.
EXIT.
ENDIF.
...
...
v_index = sy-tabix.
READ TABLE itab_komp WITH KEY knumh = itab_komv-knumh
kopos = itab_komv-kopos.
IF sy-subrc EQ 0.
IF itab_komp-loevm_ko EQ 'X'.
* >> Início da exclusão: FORM VERIFICA_ITENS
DELETE itab_komv INDEX v_index.
* << Fim da exclusão
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
...
...
itab_itens_aux-netpr TO it_zycit079-netpr,
itab_itens_aux-bednr TO it_zycit079-bednr,
itab_itens_aux-uebto TO it_zycit079-uebto,
itab_itens_aux-meins TO it_zycit079-meins,
itab_itens_aux-uebtk TO it_zycit079-uebtk.
* >> Início da exclusão: FORM VERIFICA_ITENS
IF itab_itens_aux-bstyp EQ 'F'.
* << Fim da exclusão
IF it_zycit079-menge NE itab_itens_aux-menge.
it_zycit079-slqtde = it_zycit079-slqtde +
( itab_itens_aux-menge - it_zycit079-menge ).
MOVE itab_itens_aux-menge TO it_zycit079-menge.
* >> Início da exclusão: FORM VERIFICA_ITENS
ENDIF.
ELSEIF itab_itens_aux-bstyp EQ 'L'.
IF it_zycit079-menge NE itab_itens_aux-ktmng.
it_zycit079-slqtde = it_zycit079-slqtde +
( itab_itens_aux-ktmng - it_zycit079-menge ).
MOVE itab_itens_aux-ktmng TO it_zycit079-menge.
ENDIF.
* << Fim da exclusão
ENDIF.
IF itab_itens_aux-loekz EQ 'L'.
MESSAGE w061 WITH text-014
itab_itens_aux-ebeln itab_itens_aux-ebelp
text-015.
...
...
MOVE itab_tline2-tdline TO ittxt2-line.
APPEND ittxt2.
ENDLOOP.
MOVE: ittxt2[] TO ittxt1[].
IF NOT ittxt1[] IS INITIAL.
* >> Início da exclusão: FORM CARREGA_COMPL
CALL METHOD editor2->set_text_as_r3table EXPORTING table = ittxt1[].
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_COMPL
CALL METHOD editor2->set_text_as_r3table
EXPORTING
table = ittxt1[].
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM save_pexpam.
MODIFY /pws/zycit203 FROM TABLE it_zycit203.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
AND ebelp = it_zycit079-ebelp.
MODIFY it_zycit079 INDEX v_tabix.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE i085.
* >> Início da exclusão: FORM EXCLUI_LI
CLEAR /pws/zycie078-flagpli.
* << Fim da exclusão
ENDIF.
IF NOT /pws/zycie078-flagpli IS INITIAL.
LOOP AT it_zycit079_del.
DELETE FROM /pws/zycit079 WHERE nrseqli = it_zycit079_del-numli
AND tpli = 'N'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
ENDIF.
ENDLOOP.
SORT it_anu2 BY nrseqli tpli codncm ebeln ebelp.
DELETE ADJACENT DUPLICATES FROM it_anu2
COMPARING nrseqli tpli codncm ebeln ebelp.
* >> Início da inclusão: MODULE USER_COMMAND_0002
it_anu2_aux[] = it_anu2[].
* << Fim da inclusão
IF NOT /pws/zycie078-nrseqlisub IS INITIAL.
IF v_tcode EQ '/PWS/ZYCI020_G'.
v_tcode = '/PWS/ZYCI020_L'.
MESSAGE s015 WITH text-054.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
ENDIF.
ENDIF.
ENDMODULE.
MODULE load_item OUTPUT.
v_total = /pws/zycie079a-qtd_iten * /pws/zycie079a-netpr.
* >> Início da inclusão: MODULE LOAD_ITEM
DATA: v_steu LIKE it_zycit079-steuc1.
v_steu = it_zycit079-steuc1 .
REPLACE '.' WITH '0' INTO v_steu.
IF sy-subrc EQ 0.
* << Fim da inclusão
CONCATENATE it_zycit079-steuc1(4) it_zycit079-steuc1+5(2)
it_zycit079-steuc1+8(2) INTO /pws/zycie079a-ncm.
* >> Início da inclusão: MODULE LOAD_ITEM
ELSE.
/pws/zycie079a-ncm = it_zycit079-steuc1.
ENDIF.
* << Fim da inclusão
IF v_txtki IS INITIAL.
CONCATENATE /pws/zycie079a-nrseqli /pws/zycie079a-ebeln
/pws/zycie079a-ebelp INTO v_txtki.
ENDIF.
PERFORM: load_meins ,
...