CE PLUS - Nota 006295
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 02/04/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:31:49
Descrição da Nota: AO ENTRAR NO CUSTO DE EMBARQUE DE SERVIÇO,RECLAMA DA FALTA DA TAXA DA DI
Sintoma
AO ENTRAR NO CUSTO DE EMBARQUE DE SERVIÇO,RECLAMA DA FALTA DA TAXA DA DI
Solução
Atualização no programa de custo efetivo para que nos embarques de serviço o sistema exiba
corretamente o custo efetivo.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06295 Data: 02/04/2008 Hora: 14:39:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06295
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00041
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02396 - 00001 - 6.0 - 00025 - FATURA DE DESPESA PARA EMBARQUES DE SERVIÇO
02814 - 00002 - 6.0 - 00026 - AJUSTE NO CALCULO DO TOTAL DO REALIZADO DO EMBARQUE.
----------------------------------------------------------------------------------------------------
AO ENTRAR NO CUSTO DE EMBARQUE DE SERVIÇO,RECLAMA DA FALTA DA TAXA DA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
AO ENTRAR NOEMBARQUE DE SERVIÇO - FALTA DA TAXA DA DI - MODALIDADE 02
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F01
REPS /PWS/MZYCI010F03
REPS /PWS/MZYCI010O02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F01
...
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING v_vlreal.
ELSE.
* >> Início da exclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
* << Fim da exclusão
LEAVE PROGRAM.
ENDIF.
ENDIF.
ELSEIF itab_zycit036_aux2-origem EQ 'DC'.
READ TABLE it_dc WITH KEY
nrseq = itab_zycit036_aux2-nrseq
nradto = itab_zycit036_aux2-nrseqori.
IF it_dc-dtaprov LT /pws/zycit085-dtuserc.
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
...
...
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING v_vlreal.
ELSE.
* >> Início da exclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
* << Fim da exclusão
LEAVE PROGRAM.
ENDIF.
ENDIF.
ELSEIF itab_zycit036_aux2-origem EQ 'DCD'.
IF itab_zycit036_aux2-waers_real NE /pws/zycbt007-waersb AND
itab_zycit036_aux2-origem NE 'PED'.
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036_aux2-waers_real
/pws/zycit442-dttax
CHANGING v_taxa.
...
...
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
ELSE.
* >> Início da exclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
* << Fim da exclusão
LEAVE PROGRAM.
ENDIF.
ELSEIF itab_zycit036_aux2-origem EQ 'PCD'.
IF itab_zycit036_aux2-waers_real NE /pws/zycbt007-waersb AND
itab_zycit036_aux2-origem NE 'PED'.
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036_aux2-waers_real
/pws/zycit442-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
...
...
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
ELSE.
* >> Início da exclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
* << Fim da exclusão
LEAVE PROGRAM.
ENDIF.
ELSE.
IF /pws/zycit000-flag_desp IS INITIAL.
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
itab_zycit036_aux2-waers_real
/pws/zycbt007-waersb
CHANGING itab_zycit036_aux2-vlreal.
PERFORM converter_moeda
...
...
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
ELSE.
* >> Início da exclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
* << Fim da exclusão
LEAVE PROGRAM.
ENDIF.
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING v_vlreal.
ELSE.
IF itab_zycit036_aux2-waers_real NE /pws/zycbt007-waersb AND
itab_zycit036_aux2-origem NE 'PED'.
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036_aux2-waers_real
/pws/zycit442-dttax
...
...
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
ELSE.
* >> Início da exclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
* << Fim da exclusão
LEAVE PROGRAM.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ELSE.
IF /pws/zycit000-flag_desp IS INITIAL.
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
/pws/zycie001-waers
/pws/zycbt007-waersb
CHANGING itab_zycit036_aux2-vlreal.
PERFORM converter_moeda
USING itab_zycit036_aux2-vlreal
/pws/zycbt007-waersb
/pws/zycie001-waers
CHANGING itab_zycit036_aux2-vlreal.
ELSE.
IF /pws/zycie001-regime NE '14'.
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-modalidade EQ '02'.
v_taxa = '1'.
ELSE.
* << Fim da inclusão
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
* >> Início da inclusão: FORM CUSTEAR_ITENS
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ELSE.
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
...
...
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
* >> Início da exclusão: FORM CONVERSAO_AUX
ENDIF.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM CONVERSAO_AUX
IF /pws/zycie001-modalidade = '02'.
v_taxa = 1.
* << Fim da exclusão
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = v_vlreal_t / v_taxa.
ELSE.
* >> Início da exclusão: FORM CONVERSAO_AUX
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
* << Fim da exclusão
LEAVE PROGRAM.
ENDIF.
ELSE.
IF /pws/zycit442 IS INITIAL.
READ TABLE itab_zycit003 INDEX 1.
SELECT SINGLE * FROM /pws/zycit442
WHERE nrseqda EQ itab_zycit003-nrseqda.
ENDIF.
IF itab_zycit036_aux2-waers_real NE /pws/zycbt007-waersb.
IF NOT /pws/zycit442-dttax IS INITIAL.
...
...
/pws/zycit442-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = v_vlreal_t / v_taxa.
ELSE.
* >> Início da exclusão: FORM CONVERSAO_AUX
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
ENDIF.
* << Fim da exclusão
LEAVE PROGRAM.
ENDIF.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F03
...
waers = p_waers.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit174 INTO /pws/zycit174 WHERE
codconver = v_moeda AND
vigen_inicio <= p_data AND
vigen_fim >= p_data AND
land1 = t001-land1.
IF sy-subrc EQ 0.
p_taxa = /pws/zycit174-txconver.
ELSE.
* >> Início da inclusão: FORM TAXA_CONVERTE
IF ( /pws/zycie001-tpdecl EQ 'DI' AND
/pws/zycie001-modalidade EQ '02' ).
p_taxa = '1'.
ELSE.
* << Fim da inclusão
CONCATENATE p_data+6(2) '/' p_data+4(2) '/' p_data+0(4)
INTO v_msgd.
CONCATENATE p_waers text-022 v_msgd INTO s_msg1 SEPARATED BY space.
MESSAGE s015 WITH text-075 v_msgd.
* >> Início da inclusão: FORM TAXA_CONVERTE
ENDIF.
* << Fim da inclusão
ENDIF.
ELSE.
s_msg1 = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010O02
...
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
IF /pws/zycie001-modalidade = '02' AND v_taxa IS INITIAL.
v_taxa = 1.
ENDIF.
* << Fim da exclusão
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036-vlreal / v_taxa.
ELSE.
LEAVE PROGRAM.
ENDIF.
ENDIF.
v_treal_conv = v_vlreal.
ELSEIF itab_zycit036-origem EQ 'DC'.
READ TABLE it_dc WITH KEY
nrseq = itab_zycit036-nrseq
...
...
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
ENDIF.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
IF /pws/zycie001-modalidade = '02' AND v_taxa IS INITIAL.
v_taxa = 1.
* << Fim da exclusão
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036-vlreal / v_taxa.
ELSE.
LEAVE PROGRAM.
...
...
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
IF /pws/zycie001-modalidade = '02' AND v_taxa IS INITIAL.
v_taxa = 1.
ENDIF.
* << Fim da exclusão
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036-vlreal / v_taxa.
ELSE.
LEAVE PROGRAM.
ENDIF.
v_treal_conv = v_vlreal.
ELSEIF itab_zycit036-origem EQ 'PCD'.
IF itab_zycit036-waers_real NE /pws/zycbt007-waersb AND
itab_zycit036-origem NE 'PED'.
IF NOT /pws/zycit442-dttax IS INITIAL.
...
...
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
ENDIF.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: MODULE CARREGA_TOTAIS
IF /pws/zycie001-modalidade = '02' AND v_taxa IS INITIAL.
v_taxa = 1.
* << Fim da exclusão
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036-vlreal / v_taxa.
ELSE.
LEAVE PROGRAM.
...