CE PLUS - Nota 007580
Módulo: DRAWBACK
Funcionalidade: Vinculação de Importação
Data/Hora da Publicação: 17/11/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:32:11
Descrição da Nota: VALOR DAS REMESSAS
Sintoma
O programa esta corregando o valor parcial do contrato.
Solução
Atualização do calculo dos valores dos contratos nas vinculações de importações.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07580 Data: 17/11/2008 Hora: 09:01:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07580
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00074
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07381 - 00001 - 7.0 - 00007 - AJUSTE PARA PERMITIR VINCULAÇÃO DE REMESSA
----------------------------------------------------------------------------------------------------
VALOR DAS REMESSAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO DE IMPORTAÇÃO VALOR REMESSAS CONTRATOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI068F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI068F01
...
ENDIF.
ENDIF.
LOOP AT itab_ekpo.
CLEAR itab_zycit376_t.
READ TABLE itab_zycit376 WITH KEY
ebeln = itab_ekpo-ebeln
ebelp = itab_ekpo-ebelp.
IF sy-subrc EQ 0.
CONTINUE.
ENDIF.
* >> Início da inclusão: FORM MONTA_376_APR
READ TABLE itab_zycit079 WITH KEY
ebeln = itab_ekpo-ebeln
ebelp = itab_ekpo-ebelp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit078 WITH KEY nrseqli = itab_zycit079-nrseqli.
IF sy-subrc EQ 0.
IF NOT itab_zycit078-nrseqd EQ space.
CONTINUE.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF s_apr NE 'X'.
IF /pws/zycit321-c_comum IS INITIAL.
READ TABLE itab_atos WITH KEY matnr = itab_ekpo-matnr
j_1bnbm = itab_ekpo-j_1bnbm.
ELSE.
READ TABLE itab_atos WITH KEY j_1bnbm = itab_ekpo-j_1bnbm.
ENDIF.
IF sy-subrc NE 0.
READ TABLE itab_zycit433 WITH KEY
matnr = itab_ekpo-matnr.
...
...
LOOP AT itab_zycit030 WHERE land1 EQ t001-land1
AND bukrs EQ itab_ekko-bukrs.
IF itab_ekko-bstyp = 'L'.
LOOP AT itab_konp WHERE ebeln = itab_ekpo-ebeln AND
ebelp = itab_ekpo-ebelp AND
kschl = itab_zycit030-kschl.
CLEAR: v_vl_temp, v_vl_temp2.
PERFORM retorna_decimais USING itab_ekko-waers
CHANGING itab_konp-kbetr.
IF NOT itab_konp-kpein IS INITIAL.
* >> Início da exclusão: FORM MONTA_376_APR
v_vl_temp2 = itab_ekpo-menge *
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_376_APR
v_vl_temp2 = itab_ekpo-ktmng *
* << Fim da inclusão
( itab_konp-kbetr / itab_konp-kpein ).
ENDIF.
PERFORM converter_moeda USING v_vl_temp2
itab_ekko-waers
'USD'
itab_ekpo-aedat
CHANGING v_vl_temp.
IF itab_zycit030-fator EQ '+'.
itab_zycit376_t-vlfob = itab_zycit376_t-vlfob + v_vl_temp.
ELSE.
...