CE PLUS - Nota 000372
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 30/11/2005 00:00:00
Data/Hora Última Alteração: 21/02/2011 14:13:28
Descrição da Nota: ERRO EM VALORES DE SALDO À VINCULAR NO CÂMBIO
Sintoma
Os valores de Saldo à Vincular na tabela /PWS/ZYCBT017 estavam maiores do que os valores FOB do
Embarque.
Solução
Ajustes na procura de valores na tabela /PWS/ZYCBT030.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00372 Data: 30/11/2005 Hora: 13:51:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00372
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00090
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00193 - 00001 - 6.0 - 00021 - ENVIO DE EMBARQUE PARA O CÂMBIO COM VALORES INCORRETOS
00273 - 00002 - 6.0 - 00021 - PREENCHIMENTO DO CAMPO LOCAL DE NEGÓCIOS PARA CONTABILIZAÇÃO DE F
00328 - 00003 - 6.0 - 00021 - ERRO DE ARREDONDAMENTO DE FRETE NO ENVIO PARA CÂMBIO
00356 - 00004 - 6.0 - 00021 - O VALOR DE FRETE REAL NA PASTA DE ORDENS DE VENDA COM ERRO.
----------------------------------------------------------------------------------------------------
ERRO EM VALORES DE SALDO À VINCULAR NO CÂMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CÂMBIO; VINCULAR; SALDO; VALORES; ERRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
FORM correcao_itens_cambio USING wa_zycee313 TYPE /pws/zycee313.
DATA: v_vlfrete LIKE /pws/zycbt017-vlfrete,
v_vlseg LIKE /pws/zycbt017-vlseg,
v_vlcomis LIKE /pws/zycbt017-vlcomis,
v_vldesp LIKE /pws/zycbt017-vldesp,
v_lines TYPE n.
...
v_vlfrete = v_vlfrete + itab_zycbt017-vlfrete.
v_vlseg = v_vlseg + itab_zycbt017-vlseg.
v_vlcomis = v_vlcomis + itab_zycbt017-vlcomis.
v_vldesp = v_vldesp + itab_zycbt017-vldesp.
READ TABLE itab_zycbt030 WITH KEY nrinvoic = itab_zycbt017-nrinvoic
* >> Início da exclusão: FORM CORRECAO_ITENS_CAMBIO
gsberf = itab_zycbt017-gsberf
nrparcf = itab_zycbt017-nrparcf.
* << Fim da exclusão
* >> Início da inclusão: FORM CORRECAO_ITENS_CAMBIO
gsberf = itab_zycbt017-gsberf.
* << Fim da inclusão
CHECK sy-subrc EQ 0.
CLEAR: itab_zycbt017-vlavinc,
itab_zycbt017-vlslf.
LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt017-nrinvoic AND
* >> Início da exclusão: FORM CORRECAO_ITENS_CAMBIO
gsberf = itab_zycbt017-gsberf AND
nrparcf = itab_zycbt017-nrparcf.
* << Fim da exclusão
* >> Início da inclusão: FORM CORRECAO_ITENS_CAMBIO
gsberf = itab_zycbt017-gsberf.
* << Fim da inclusão
ADD itab_zycbt030-vlslliq TO: itab_zycbt017-vlavinc,
itab_zycbt017-vlslf.
ENDLOOP.
IF itab_zycbt017-parvw EQ 'CG' OR
itab_zycbt017-parvw EQ 'AD'.
...
IF v_vldesp NE wa_zycee313-vlme_out.
itab_zycbt017-vldesp = itab_zycbt017-vldesp -
( v_vldesp - wa_zycee313-vlme_out ).
ENDIF.
MODIFY itab_zycbt017 INDEX v_lines.
ENDFORM. " correcao_itens_cambio