CE PLUS - Nota 005210
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: BL
Data/Hora da Publicação: 13/11/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:16:37
Descrição da Nota: BL - FRETE EMBARQUE ENTREPOSTO ADUANEIRO
Sintoma
Quando cria um BL em um processo de nacionalização de entreposto aduaneiro, o valor do frete é
preenchido automaticamente com o total do frete informado na DA, porém a quantidade do item da DA é
100 e a quantidade do embarque é 10. O ideal é que o programa busque automaticamente o valor
proporcional ao peso/quantidade do item do embarque de nacionalização.
Solução
Calcular o valor do Frete proporcional a quantidade do Item do Embarque - PREPAID, COLLECT e
TERNACION.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05210 Data: 13/11/2007 Hora: 11:20:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05210
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00021
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01329 - 00001 - 6.0 - 00023 - TRATAMENTO DE BL DE NACIONALIZAÇÃO DA DA
----------------------------------------------------------------------------------------------------
BL - FRETE EMBARQUE ENTREPOSTO ADUANEIRO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALOR DO FRETE PROPORCIONAL AO ITEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI002F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002F02
...
/pws/zycit442-tpconh TO /pws/zycie093-tpconh ,
/pws/zycit442-utilizacao TO /pws/zycie093-utilizacao,
/pws/zycit442-identconh TO /pws/zycie093-identconh ,
/pws/zycit442-identmaster TO /pws/zycie093-identmaster,
/pws/zycit442-localemb TO /pws/zycie093-localemb ,
/pws/zycit442-dtemb TO /pws/zycie093-dt_carga ,
/pws/zycit442-multimod TO /pws/zycie093-multimod ,
/pws/zycit442-bandtransp TO /pws/zycie093-bandtransp,
/pws/zycit442-dtcheg TO /pws/zycie093-dtcheg ,
/pws/zycit442-waersfre TO /pws/zycie093-waersfre ,
* >> Início da exclusão: FORM TRATA_DA
/pws/zycit442-prepaid TO /pws/zycie093-prepaid ,
/pws/zycit442-collect TO /pws/zycie093-collect ,
/pws/zycit442-ternacion TO /pws/zycie093-ternacion ,
* << Fim da exclusão
/pws/zycit442-meiotransp TO /pws/zycie093-meiotransp,
/pws/zycit442-dtemb TO /pws/zycie093-dtemb ,
/pws/zycit442-meiotransp TO /pws/zycie093-meiotransp.
ENDIF.
ENDIF.
SELECT * FROM /pws/zycit443
INTO TABLE itab_zycit443
WHERE nrseqda EQ /pws/zycit442-nrseqda.
LOOP AT itab_zycit443.
v_qtd_da = v_qtd_da + itab_zycit443-qtd_da .
ENDLOOP.
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
WHERE nrseq EQ /pws/zycie001-nrseq.
LOOP AT itab_zycit003.
v_qtd_iten = v_qtd_iten + itab_zycit003-qtd_iten .
ENDLOOP.
CLEAR itab_zycit003.
REFRESH itab_zycit003.
/pws/zycit093-brgew = ( /pws/zycit442-brgew / v_qtd_da )
* v_qtd_iten.
* >> Início da inclusão: FORM TRATA_DA
/PWS/ZYCIE093-PREPAID = ( /PWS/ZYCIT442-PREPAID / V_QTD_DA )
* V_QTD_ITEN.
/PWS/ZYCIE093-COLLECT = ( /PWS/ZYCIT442-COLLECT / V_QTD_DA )
* V_QTD_ITEN.
/PWS/ZYCIE093-TERNACION = ( /PWS/ZYCIT442-TERNACION / V_QTD_DA )
* v_qtd_iten.
* << Fim da inclusão
SELECT * FROM /pws/zycit464
INTO TABLE itab_zycit464
WHERE nrseqda EQ /pws/zycit442-nrseqda.
LOOP AT itab_zycit464.
MOVE:
/pws/zycie093-nrseqce TO itab_zycit055-nrseq ,
/pws/zycie093-identify TO itab_zycit055-embarca ,
itab_zycit464-container TO itab_zycit055-nrcontainer.
APPEND itab_zycit055.
...