CE PLUS - Nota 000759
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 31/01/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:04:26
Descrição da Nota: PROBLEMAS COM O VALOR DO RATEIO
Sintoma
O sistema rateia as despesas informadas na DI utilizando como referência o valor FOB da mercadoria,
a receita em MG instrui os despachantes a utilizarem o valor CIF para ratear as despesas das
adiçoes. Como em MG as despesas fazem parte da base de cálculo do ICMS a diferença no rateio gera
resultados divergentes no valor do ICMS entre o pw.CE e o Despachante.
Solução
Inserida condição para fazer rateio corretamente.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00759 Data: 31/01/2006 Hora: 16:36:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00759
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00098
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PROBLEMAS COM O VALOR DO RATEIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - RATEIO - FOB - CIF - ICMS - DESPACHANTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMA /PWS/ZYGLD557
DTEL /PWS/ZYCIL830
TABD /PWS/ZYCIT062
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYGLD557
CRIAR DOMÍNIO: /PWS/ZYGLD557
DESCRIÇÃO BREVE: GL - Base de Rateio ICMS
DEFINIÇÃO
FORMATO:
CATEGORIA DE DADOS: CHAR
NUM. POISÇÕES: 3
DECIMAIS: 0
CARACTERÍSTICAS DE SAÍDA:
COMPRIM. SAÍDA: 3
ROTINA CONVERSÃO:
(_) - SINAL(+/-)
(_) - LETR. MAIÚSCULAS: ________
ÁREA DE VALORES
VALORES INDIVIDUAIS
VALOR FIXO: FOB DESCRIÇÃO : BREVE: Rateio Base FOB
CIF Rateio Base CIF
INTERVALOS
LIMITE INF.: LIMITE SUP.: DESCRIÇÃO BREVE:
TABELA VALORES: _________________________
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL830
CRIAR ELEMENTO DE DADOS: /PWS/ZYCIL830
DESCRIÇÃO BREVE: GL - Base de Rateio ICMS
DEFINIÇÃO
CATEGORIA DE DADOS
(X) - CATEGORIA ELEMENTAR
(X) - DOMÍNIO /PWS/ZYGLD557
(_) - TIPO INSTALADO CTG. DADOS: CHAR
CUMPRIMEN. 3 DECIMAIS. 0
(_) - TIPO DE REFERÊNCIA
REFERÊNCIA A:_____________________________________
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT062
Inserir o campo BS_RAT_ICMS Conforme abaixo entre os campos BCNFC e USERNAMEC:
BCNFC /PWS/ZYCIL827 CHAR 1
BS_RAT_ICMS /PWS/ZYCIL830 CHAR 3
USERNAMEC SYUNAME CHAR 12
*Gerada visão de atualização da tabela /PWS/ZYCIT062
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
t_ivdes2 = ( v_it_plan / v_tot_plan ) *
itab_zycit049-vlreal.
ELSE.
* t_ivdes2 = ( t_vmle / v_tval3 ) * itab_zycit049-vlreal.
* << inicio da inclusão
if /pws/zycit062-BS_RAT_ICMS eq 'CIF'.
t_ivdes2 = ( itab_zycit049-vlreal *
( t_vmle + v_tot_fre + v_tot_seg ) )
/ ( v_tval3 + v_bltofat + v_sgtofat ) .
else.
* >> Fim da inclusão
t_ivdes2 = ( itab_zycit003_rateio-vlreal *
itab_zycit003_rateio-qtd_iten
/ v_tot_real ) * itab_zycit049-vlreal.
* << inicio da inclusão
endif.
* >> Fim da inclusão
ENDIF.
IF p_tipo = 'I'.
itab_zycit049-vldp_aux = itab_zycit049-vldp_aux + t_ivdes2.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
LOOP AT SCREEN.
IF NOT screen-group1 IS INITIAL.
screen-invisible = '1'.
CASE screen-group1.
WHEN 'F3'.
* >> Início da exclusão: MODULE SET_SCREEN
IF wa_it-fabric EQ '1'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
IF '01' ca wa_it-fabric .
* << Fim da inclusão
screen-invisible = '0'.
ENDIF.
WHEN 'F1' OR 'F2'.
IF '23' CA wa_it-fabric.
screen-invisible = '0'.
ENDIF.
WHEN 'ALL'.
* >> Início da exclusão: MODULE SET_SCREEN
IF '12' CA wa_it-fabric.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
IF '012' CA wa_it-fabric.
* << Fim da inclusão
screen-invisible = '0'.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDIF.
...
...
/pws/zycie116-periodic.
a_1indice = a_2indice = a_3indice =
/pws/zycie116-indice.
a_1valtot = a_2valtot = a_3valtot =
/pws/zycie116-valtot.
* >> Início da exclusão: MODULE LOAD_ADIC
IF itab_zycit003-fabric EQ '1'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ADIC
IF '01' ca itab_zycit003-fabric .
* << Fim da inclusão
PERFORM load_forn USING: /pws/zycie006-lifnr '800'.
ELSEIF itab_zycit003-fabric EQ '2'.
PERFORM load_forn USING: /pws/zycie006-lifnr '800'.
IF itab_zycit003-flagfabr = 'N'.
/pws/zycie080a-name1 = itab_zycit003-descfab.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03