CE PLUS - Nota 006153
Módulo: DRAWBACK
Funcionalidade: Vinculação de Importação
Data/Hora da Publicação: 12/03/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:18:58
Descrição da Nota: ATUALIZAÇÃO DAS CONDITIONS PARAMETRIZADAS NA TABELA /PWS/ZYCIT030
Sintoma
O programa não está carregando o valor FOB, quando a parametrização da tabela /PWS/ZYCIT030 não
possue empresa.
Solução
Atualização da vinculação de importação para considerar as conditions que não possuem empresa
parametrizada.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06153 Data: 12/03/2008 Hora: 10:33:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06153
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00038
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06134 - 00001 - 7.0 - 00004 - TRATATIVA PARA MOEDAS QUE NÃO POSSUEM CASAS DECIMAIS
----------------------------------------------------------------------------------------------------
ATUALIZAÇÃO DAS CONDITIONS PARAMETRIZADAS NA TABELA /PWS/ZYCIT030
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO DE IMPORTAÇÕES CONDITIONS /PWS/ZYCIT030 EMPRESA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI068F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI068F01
...
tkomv = itab_komv
EXCEPTIONS
OTHERS = 1.
ENDIF.
IF t001-bukrs NE itab_ekko-bukrs.
SELECT SINGLE * FROM t001 INTO t001
WHERE bukrs EQ itab_ekko-bukrs.
ENDIF.
CLEAR v_ebelp.
CONCATENATE '0' itab_ekpo-ebelp INTO v_ebelp.
* >> Início da inclusão: FORM MONTA_376_APR
READ TABLE itab_zycit030 WITH KEY bukrs = itab_ekko-bukrs.
IF sy-subrc NE 0.
CLEAR itab_ekko-bukrs.
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycit030 WHERE land1 EQ t001-land1
AND bukrs EQ itab_ekko-bukrs.
LOOP AT itab_komv
WHERE kposn EQ v_ebelp
AND kschl EQ itab_zycit030-kschl
AND knumv EQ itab_ekko-knumv.
CLEAR: v_vl_temp.
PERFORM retorna_decimais USING itab_ekko-waers
CHANGING itab_komv-kwert.
PERFORM converter_moeda USING itab_komv-kwert
...
...
itab_ekpo-aedat
CHANGING v_vl_temp.
IF itab_zycit030-fator EQ '+'.
itab_zycit376_t-vlfob = itab_zycit376_t-vlfob + v_vl_temp.
ELSE.
itab_zycit376_t-vlfob = itab_zycit376_t-vlfob - v_vl_temp.
ENDIF.
ENDLOOP.
ENDLOOP.
itab_zycit376_t-waers = 'USD'.
* >> Início da inclusão: FORM MONTA_376_APR
IF NOT itab_zycit376_t-vlfob > 0.
CONTINUE.
ENDIF.
* << Fim da inclusão
APPEND itab_zycit376_t.
ENDLOOP.
ENDFORM.
FORM converter_moeda USING p_devlme
p_deme
p_parame
p_data
CHANGING p_paravlme.
DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'G',
v_devlme LIKE bsak-wrbtr,
...