CE PLUS - Nota 003852
Módulo: DRAWBACK
Funcionalidade: Composição
Data/Hora da Publicação: 05/06/2007 00:00:00
Data/Hora Última Alteração: 17/02/2011 13:04:35
Descrição da Nota: COMPOSIÇÃO ISENÇÃO CONVERSÃO UNIDADES DE MEDIDA
Sintoma
O programa não estava realizando a conversão de unidades de medida
Solução
Ajustado para utilizar o centro do material importado
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03852 Data: 05/06/2007 Hora: 17:15:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03852
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00169
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01691 - 00001 - 6.0 - 00024 - AJUSTES REFERENTES A RASTREIO DE LOTE EFETUADO NOS PROGRAMAS DE D
02251 - 00002 - 6.0 - 00025 - COMPOSIÇÃO ISENÇÃO(EXPORTAÇÃO, TRADING COMPANY, COMERCIAL EXPORTA
----------------------------------------------------------------------------------------------------
COMPOSIÇÃO ISENÇÃO CONVERSÃO UNIDADES DE MEDIDA
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPOSIÇÃO ISENÇÃO CONVERSÃO UNIDADES DE MEDIDA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI064F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064F03
...
IF itab_zycit003-qtd_iten <= 0.
itab_mess_un-meins = itab_det_exp_final-meins.
itab_mess_un-matnr = itab_det_exp_final-codmat.
APPEND itab_mess_un.
CONTINUE.
ENDIF.
MOVE: itab_zycit003-meins TO itab_di_final-meins ,
itab_zycit003-qtd_iten TO itab_di_final-qtd_di .
PERFORM converte_um_ncm USING itab_zycit003-matnr
CHANGING itab_di_final-meins
* >> Início da exclusão: FORM SELECIONA_DI3_L
/pws/zycie258-werks
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DI3_L
itab_zycit003-werks
* << Fim da inclusão
itab_di_final-qtd_di.
IF itab_di_final-qtd_di IS INITIAL.
EXIT.
ENDIF.
v_fator_conv = v_vlreali / itab_zycit003-qtd_iten.
CLEAR: v_advii, v_advicms, v_advipi, v_advpis, v_advcof, v_xa, v_xb,
v_fatx, v_faty.
v_advii = ( itab_zycit003-advalii / 100 ).
v_advipi = ( itab_zycit003-advalipi / 100 ).
IF NOT itab_zycit003-basred IS INITIAL.
...
...
IF itab_zycit003-qtd_iten <= 0.
itab_mess_un-meins = itab_det_exp_final-meins.
itab_mess_un-matnr = itab_det_exp_final-codmat.
APPEND itab_mess_un.
EXIT.
ENDIF.
MOVE: itab_zycit003-meins TO itab_di_final-meins ,
itab_zycit003-qtd_iten TO itab_di_final-qtd_di .
PERFORM converte_um_ncm USING itab_zycit003-matnr
CHANGING itab_di_final-meins
* >> Início da exclusão: FORM MONTA_DIS3
/pws/zycie258-werks
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DIS3
itab_zycit003-werks
* << Fim da inclusão
itab_di_final-qtd_di.
IF itab_di_final-qtd_di IS INITIAL.
EXIT.
ENDIF.
v_fator_conv = v_vlreali / itab_zycit003-qtd_iten.
CLEAR: v_advii, v_advicms, v_advipi, v_advpis, v_advcof, v_xa, v_xb,
v_fatx, v_faty.
v_advii = ( itab_zycit003-advalii / 100 ).
v_advipi = ( itab_zycit003-advalipi / 100 ).
IF NOT itab_zycit003-basred IS INITIAL.
...