CE PLUS - Nota 003284
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 20/03/2007 00:00:00
Data/Hora Última Alteração: 08/03/2010 20:12:47
Descrição da Nota: DA - DECLARAÇÃO DE ADMISSÃO SEM ITENS
Sintoma
Dump ao entrar numa DA que foi criada sem ser vinculada a pedido de compras. O valor do frete foi
preenchido.
Solução
Quando a DA não possuir itens, mover o valor do frete do cabeçalho da DA para a variável.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03284 Data: 20/03/2007 Hora: 14:34:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03284
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00028
Agrupamento : 00158
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DA - DECLARAÇÃO DE ADMISSÃO SEM ITENS
----------------------------------------------------------------------------------------------------
Palavras Chave:
FRETE; ITENS; VINCULAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI070F01
REPS /PWS/MZYCI070F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F03
...
IF /pws/zycie442-waersfob NE itab_it-waersbem.
PERFORM: calc_conv_moeda
USING itab_it-waersbem
/pws/zycie442-waersfob
CHANGING itab_it-vlfre_fat.
v_tfrefat = v_tfrefat + itab_it-vlfre_fat.
ELSE.
v_tfrefat = v_tfrefat + itab_it-vlfre_fat.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM CALC_INIT
IF itab_it[] IS INITIAL.
v_tfrefat = /pws/zycie442-vlfre.
ENDIF.
* << Fim da inclusão
IF v_dit = 'N'.
v_bltofat = /pws/zycie442-prepaid +
/pws/zycie442-collect.
v_sgtofat = /pws/zycie442-vlseg.
IF NOT v_sgtofat IS INITIAL .
PERFORM retorna_decimais
USING /pws/zycie442-waersseg
CHANGING v_sgtofat.
ENDIF.
CASE s_inco1_ci.
...
...
USING /pws/zycie442-waersseg
CHANGING v_sgtofat.
ENDIF.
v_tdif = v_tfrefat - v_bltofat .
v_bltofat = /pws/zycie442-prepaid +
/pws/zycie442-collect - /pws/zycie442-ternacion.
PERFORM calc_conv_frete CHANGING v_bltofat.
ENDCASE.
ENDIF.
CLEAR v_ntgew.
* >> Início da exclusão: FORM CALC_INIT
CLEAR v_tfrefat .
* << Fim da exclusão
LOOP AT itab_zycit003.
v_ntgew = v_ntgew + itab_zycit003-ntgew.
ENDLOOP.
LOOP AT itab_it.
READ TABLE itab_zycit003 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF itab_it-qtd_itend NE '' AND v_dit = 'N'
AND itab_it-vlreald IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F03
IF v_erro_lote = 'S'.
MESSAGE i039 WITH text-498.
EXIT.
ENDIF.
* Ch.327936-31.08.2006-F:Pedido/Item nos Lotes
* >> Início da exclusão: FORM SAVE_DATA
* Ch.368305-20.03.2007-I:retirar msg
* ATENÇÃO! Este ajuste refere-se ao ch. 368814 - Urgente p/testes
*chamado 329371 inicio
* IF /pws/zycie442-codreg EQ '02'.
* READ TABLE itab_it INDEX 1.
* v_matnr = itab_it-matnr.
* LOOP AT itab_it WHERE matnr NE v_matnr.
* ENDLOOP.
* IF sy-subrc EQ 0.
* MESSAGE i039 WITH text-524.
* EXIT.
* ENDIF.
* ENDIF.
*chamado 329371 fim
* Ch.368305-20.03.2007-F:retirar msg
* << Fim da exclusão
IF v_dit = 'N'.
*PWS280450 - Início
IF NOT /pws/zycie442-waersfob IS INITIAL.
*PWS280450 - FIm