CE PLUS - Nota 001357
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 17/05/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:24:20
Descrição da Nota: ERRO NA PASTA PAGAMENTO E VALOR DE FRETE DE DI DE NACIONALIZAÇÃO
Sintoma
Não está vindo valores na pasta pagamento e valor de frete está zerado na DI de nacionalização.
Solução
Feito tratamento para ajustar regime do embarque e atribuir '1' ao valor da taxa, sendo que é BRL
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01357 Data: 17/05/2006 Hora: 10:39:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01357
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00114
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ERRO NA PASTA PAGAMENTO E VALOR DE FRETE DE DI DE NACIONALIZAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PASTA PAGAMENTO - VALOR DE FRETE - DI - NACIONALIZAÇÃO - DA
----------------------------------------------------------------------------------------------------
Objetos da nota:
PROG /PWS/MZYCI023F01
PROG /PWS/MZYCI023TOP
PROG /PWS/MZYCI023X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em PROG /PWS/MZYCI023F01
CLEAR itab_zycit100_temp.
REFRESH itab_zycit100_temp.
LOOP AT itab_it.
MOVE-CORRESPONDING itab_it TO itab_zycit100_temp.
APPEND itab_zycit100_temp.
ENDLOOP.
*>> Início Inclusão FORM fill_itabit
if itab_zycit001-regime eq '16'.
/PWS/ZYCIE085-UKURSFRE = '1'.
endif.
*>> Fim Inclusão
ENDFORM. " fill_itabit
----------------------------------------------------------------------------------------------------
Modificações efetuadas em PROG /PWS/MZYCI023X01
DATA: v_xa LIKE t_icms,
v_xb LIKE t_icms,
v_xc LIKE t_icms,
v_fatx TYPE p DECIMALS 8,
v_faty TYPE p DECIMALS 8,
v_tot_real LIKE /pws/zycie003-vlreal,
v_fatpc LIKE t_icms,
v_nova,
*>> Início Inclusão
V_ITAD_PLAN LIKE /PWS/ZYCIT003-NETPR,
V_TTAD_PLAN LIKE /PWS/ZYCIT003-NETPR .
*>> Fim Inclusão
* Work Áreas
data: wa_it000 LIKE /pws/zycit000,
wa_zycit078 like /pws/zycit078.
data: end of common part.