CE PLUS - Nota 002860
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 11/01/2007 00:00:00
Data/Hora Última Alteração: 03/02/2010 16:48:01
Descrição da Nota: FATURA AJUSTE LIVRE NÃO ESTA RATEANDO
Sintoma
num embarque CFR, quando eu gero uma fatura e o sistema acusa uma diferença de R$0,01, eu seleciono
o Ajuste Livre na pasta Itens a fim de acertar manualmente a diferença desse valor. Nessa hora, o
sistema aponta que a diferença passou a ser do valor total do frete. Observei que nesse ponto,
dentro da pasta itens, ele passa a desconsiderar o valor do realizado do Frete na hora de compor o
total, juntamente com a diferença de R$0,01.
Solução
Atualização do programa da fatura para quando for ajuste livre fazer o rateio.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02860 Data: 11/01/2007 Hora: 14:52:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02860
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00148
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
FATURA AJUSTE LIVRE NÃO ESTA RATEANDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - AJUSTE LIVRE - RATEIO - VL. TOTAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
WRITE v_ttotal TO v_tot_char CURRENCY /pws/zycie006-waers.
MESSAGE s015 WITH text-019 v_tot_char.
v_dif_saldo = 'S'.
ENDIF.
ELSEIF /pws/zycie006-ratval EQ '4' .
CLEAR v_dif_saldo.
ENDIF.
ENDFORM.
FORM atualizando_total.
DATA: v_valplan LIKE /pws/zycie003-netpr,
* >> Início da exclusão: FORM ATUALIZANDO_TOTAL
v_vltotal LIKE /pws/zycie003-vlreal.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZANDO_TOTAL
v_vltotal LIKE /pws/zycie003-vlreal,
v_tot_aux type /pws/zycie003-vlreal.
* << Fim da inclusão
IF itab_zycit003-vlfre_aux IS INITIAL AND NOT
itab_zycit003-vlfre_fat IS INITIAL.
itab_zycit003-vlfre_aux = itab_zycit003-vlfre_fat.
ENDIF.
IF itab_zycit003-vlseg_aux IS INITIAL AND NOT
itab_zycit003-vlseg_fat IS INITIAL.
itab_zycit003-vlseg_aux = itab_zycit003-vlseg_fat.
ENDIF.
DESCRIBE TABLE itab_zycit003 LINES v_line.
IF v_waers_diferente = 'X'.
...
...
itab_zycit003-livre = 'S'.
IF NOT /pws/zycie006-vlmerc IS INITIAL AND
NOT itab_zycit003[] IS INITIAL AND
NOT itab_zycit003-toinv IS INITIAL.
IF ( t001-land1 = 'AR' OR t001-land1 = 'CL' )
AND /pws/zycit031-inco1_ci = 'FOB'.
itab_zycit003-vlreal =
( itab_zycit003-netpr * itab_zycit003-toinv )
/ itab_zycit003-toinv.
ELSE.
* >> Início da inclusão: FORM ATUALIZANDO_TOTAL
v_tot_aux = /pws/zycie006-vltotal.
PERFORM retorna_decimais USING /pws/zycie006-waers
CHANGING v_tot_aux .
IF v_tot_aux = v_val_plan_tot.
* << Fim da inclusão
itab_zycit003-vlreal =
( ( itab_zycit003-netpr * itab_zycit003-toinv ) -
itab_zycit003-vlfre_fat - itab_zycit003-vlseg_fat ) /
itab_zycit003-toinv.
* >> Início da inclusão: FORM ATUALIZANDO_TOTAL
ELSE.
itab_zycit003-vlreal = ( v_valplan / v_val_plan_tot ) * v_taxa
* v_vlreal / itab_zycit003-toinv.
ENDIF.
* << Fim da inclusão
ENDIF.
ELSE.
itab_zycit003-vlreal = itab_zycit003-netpr.
ENDIF.
IF v_tabix = v_line.
IF v_vlreal IS INITIAL.
v_tot_item = itab_zycit003-toinv * itab_zycit003-vlreal.
ELSE.
v_tot_item = v_vlreal - v_total2.
ENDIF.
...