CE PLUS - Nota 003179
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 02/03/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:53:02
Descrição da Nota: AO VINCULARO EMBARQUE É VINCULADO AO ATO CONCESSÓRIO DE DRAWBACK, DUMP
Sintoma
LI - Mensagem "Unidade não parametrizada para o material". O sistema faz select na ZYGLT204 com
unidade de medida estatistica (ZUM) para encontrar a unidade que vai conferir na MARM. Como nem
todos os materiais são cadastrados pela unidade de medida estatística e sim pela de comercialização,
ocorre a mensagem a cada ENTER dado na LI (no Drawback também). Quando o embarque é vinculado ao ato
concessório de Drawback, esta mensagem aparece no recebimento do embarque e ocasiona dump.
Solução
Ajustado o programa para tratar de divisão por zero em todas as divisões dos Forms
adiciona_saldo_ato e estorna_saldo_ato do recebimento.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03179 Data: 02/03/2007 Hora: 10:54:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03179
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00155
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01981 - 00001 - 6.0 - 00024 - AJUSTE PARA TRATAR NOTAS FISCAIS DE REMESSA NO RECEBIMENTO VINC.
02156 - 00002 - 6.0 - 00025 - AJUSTE NO RECEBIMENTO VINCULADO AO ATO CONCESSÓRIO
03154 - 00003 - 6.0 - 00026 - AJUSTADO PREENCHIMENTO DAS TABELAS DE DRAWBACK NO RECEBIMENTO COM
----------------------------------------------------------------------------------------------------
AO VINCULARO EMBARQUE É VINCULADO AO ATO CONCESSÓRIO DE DRAWBACK, DUMP
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO CONCESSÓRIO - DRAWBACK - RECEBIMENTO - DUMP
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
itab_zycit245-vlvinc = itab_zycit245-vlvinc - v_variacfob.
UPDATE /pws/zycit245 SET vlvinc = itab_zycit245-vlvinc
WHERE nrseqd EQ itab_zycit245-nrseqd
AND nritem EQ itab_zycit245-nritem.
.
.
.
PERFORM taxa_converte USING /pws/zycit001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
IF NOT itab_zycit003-qtd_iten IS INITIAL.
* << Fim da inclusão
itab_zycit279-valor = ( itab_zycit100-vlfob * v_taxa ) /
itab_zycit003-qtd_iten.
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
ENDIF.
* << Fim da inclusão
IF /pws/zycit321-lote IS INITIAL.
APPEND itab_zycit279.
ELSE.
READ TABLE itab_zycit223 WITH KEY
nrseqnf = itab_itens_nf-nrseqnf
...
...
WHERE nrseq = itab_zycit279-nrseq
AND ebeln = itab_zycit279-ebeln
AND ebelp = itab_zycit279-ebelp
AND lote = wa_zycit279-lote.
ELSE.
itab_zycit279 = wa_zycit279.
itab_zycit279-qtd_iten = itab_zycit223-qtde.
PERFORM carrega_umncm_real USING itab_zycit003-matnr
CHANGING v_meins
itab_zycit223-qtde.
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
IF NOT itab_itens_nf-qtd_item IS INITIAL.
* << Fim da inclusão
itab_zycit279-ntgew = itab_zycit279-ntgew *
( itab_zycit223-qtde /
itab_itens_nf-qtd_item ).
itab_zycit279-vltot = itab_zycit279-vltot *
( itab_zycit223-qtde /
itab_itens_nf-qtd_item ).
itab_zycit279-vlseg = itab_zycit279-vlseg *
( itab_zycit223-qtde /
itab_itens_nf-qtd_item ).
itab_zycit279-vlfrete = itab_zycit279-vlfrete *
...
...
itab_itens_nf-qtd_item ).
itab_zycit279-basecofins = itab_zycit279-basecofins *
( itab_zycit223-qtde /
itab_itens_nf-qtd_item ).
itab_zycit279-basepis = itab_zycit279-basepis *
( itab_zycit223-qtde /
itab_itens_nf-qtd_item ).
itab_zycit279-baseicms = itab_zycit279-baseicms *
( itab_zycit223-qtde /
itab_itens_nf-qtd_item ).
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
ENDIF.
* << Fim da inclusão
COLLECT itab_zycit279.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDLOOP.
IF NOT itab_zycit279[] IS INITIAL.
MODIFY /pws/zycit279 FROM TABLE itab_zycit279.
PERFORM unlock_record.
ENDIF.
...