Visualização da Nota 3037

CE PLUS - Nota 003037

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Custo Efetivo

Data/Hora da Publicação: 06/02/2007 00:00:00

Data/Hora Última Alteração: 08/03/2010 16:59:24

Descrição da Nota: NECESSÁRIA CHAMADA DE EXIT PARA MOVIMENTADO - RETORNO VARIÁVEL V_RUB

Sintoma

necessária chamada de exit para movimentado - retorno variável v_rub

Solução

Abertura de exit no programa de custo efetivo (CUS006 no perform exit_movimentado),para alterar a

coluna do movimentado.

Versões Tratadas

6.0

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 03037 Data: 06/02/2007 Hora: 16:28:28

----------------------------------------------------------------------------------------------------

Nota Número : 03037

Categoria : Melhoria

Prioridade : Alta

Versão PW.CE : 6.0

Pacote : 00026

Agrupamento : 00151

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

NECESSÁRIA CHAMADA DE EXIT PARA MOVIMENTADO - RETORNO VARIÁVEL V_RUB

----------------------------------------------------------------------------------------------------

Palavras Chave:

CHAMADA DE EXIT - EXIT_MOVIMENTADO - V_RUB - CALL FUNCTION

/PWS/ZYGLT100

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI010F03

REPS /PWS/MZYCI010TOP

REPS /PWS/MZYCI010X01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI010F03

...

MOVE itab_zycbt035_aux2[] TO itab_zycbt035[].

ENDFORM.

FORM exit_movimentado TABLES itab_zycit036_aux2 STRUCTURE

/pws/zycit036

CHANGING v_rub.

CALL CUSTOMER-FUNCTION '002'

TABLES

itab_zycit036_aux2 = itab_zycit036_aux2

CHANGING

v_rub = v_rub.

* >> Início da inclusão: FORM EXIT_MOVIMENTADO

REFRESH itab_zyglt100.

PERFORM verifica_exit USING 'D'

'/PWS/SAPMZYCI010'

'CUS006'.

e_subrc = '0'.

CLEAR itab_zyglt100 .

READ TABLE itab_zyglt100 WITH KEY

zexit = 'CUS006' BINARY SEARCH.

IF sy-subrc EQ 0.

IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

PERFORM (itab_zyglt100-formulario) IN PROGRAM

(itab_zyglt100-programa) IF FOUND .

ENDIF.

* << Fim da inclusão

ENDFORM.

FORM custear_movimentado.

indx-aedat = sy-datlo.

indx-usera = sy-uname.

EXPORT itab_zycit036[] TO MEMORY ID 'I006A'.

PERFORM calcular_outros_custos(/pws/zycir006) TABLES

itab_zycit036_aux2.

indx-aedat = sy-datlo.

indx-usera = sy-uname.

IMPORT itab_zycit036[] FROM MEMORY ID 'I006A'.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI010TOP

...

data: end of itab_zycit030.

data: begin of itab_zycit030_aux occurs 0.

include structure /pws/zycit030.

data: valor like ekpo-netpr,

ebeln like /pws/zycie003-ebeln,

ebelp like /pws/zycie003-ebelp.

data: end of itab_zycit030_aux.

data: begin of itab_zycit033 occurs 0.

include structure /pws/zycit033.

data: end of itab_zycit033.

* >> Início da exclusão:

data: begin of itab_zycit036_aux occurs 0.

include structure /pws/zycit036.

data: end of itab_zycit036_aux.

data: begin of itab_zycit036_aux3 occurs 0.

include structure /pws/zycit036.

data: end of itab_zycit036_aux3.

data: begin of itab_zycit036_aux2 occurs 0.

include structure /pws/zycit036.

data: end of itab_zycit036_aux2.

data itab_zycit036_rub like /pws/zycit036 occurs 0 with header line.

data: begin of itab_zycit036_plan occurs 0.

include structure /pws/zycit036.

data: end of itab_zycit036_plan.

* << Fim da exclusão

data: begin of itab_zycit031 occurs 0.

include structure /pws/zycit031.

data: end of itab_zycit031.

data: begin of itab_zycit140 occurs 0.

include structure /pws/zycit140.

data: end of itab_zycit140.

data: itab_zycit019 like /pws/zycit019 occurs 0 with header line,

itab_zycit020 like /pws/zycit020 occurs 0 with header line,

itab_zycit039 like /pws/zycit039 occurs 0 with header line.

data: begin of itab_zycit049 occurs 0.

...

v_ebelp like /pws/zycit036-ebelp,

v_nrseq like /pws/zycit001-nrseq,

v_nrseqda like /pws/zycit003-nrseqda,

v_itemcongela,

v_real_brl like /pws/zycit036-vlreal,

v_taxa like /pws/zycie085-ukursfob,

s_msg1,

v_vlbrl like /pws/zycit036-vlreal,

v_vlbrl_a like /pws/zycit036-vlreal,

v_nrseqenc like /pws/zycit201-nrseqenc,

* >> Início da exclusão:

v_rub,

* << Fim da exclusão

v_conta,

v_resp,

v_livre,

v_dpnf,

v_nota,

v_netprt type /pws/zycil816 ,

v_vlreal_tl like /pws/zycie003-vlreal ,

v_vlmov_tl like /pws/zycie003-vlmov ,

v_vldif_tl like /pws/zycie003-vldif ,

v_qtd_moeda(2) type c,

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI010X01

...

data: begin of itab_anlz occurs 0 .

data: anln1 type anlz-anln1 ,

anln2 type anlz-anln2 ,

gsber type anlz-gsber .

data: end of itab_anlz .

data: v_vldif1 type /pws/zycit003-vldif,

v_mr22.

data: begin of itab_zycit398 occurs 0.

include structure /pws/zycit398.

data: end of itab_zycit398.

* >> Início da inclusão:

data: begin of itab_zycit036_aux occurs 0.

include structure /pws/zycit036.

data: end of itab_zycit036_aux.

data: begin of itab_zycit036_aux3 occurs 0.

include structure /pws/zycit036.

data: end of itab_zycit036_aux3.

data: begin of itab_zycit036_aux2 occurs 0.

include structure /pws/zycit036.

data: end of itab_zycit036_aux2.

data itab_zycit036_rub like /pws/zycit036 occurs 0 with header line.

data: begin of itab_zycit036_plan occurs 0.

include structure /pws/zycit036.

data: end of itab_zycit036_plan.

data v_rub.

* << Fim da inclusão

DATA: END OF COMMON PART b.