CE PLUS - Nota 003080
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 12/02/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:09:45
Descrição da Nota: EMBARQUE CAMPO PESO LIQUIDO ESTÁ VINDO EM BRANCO.
Sintoma
Quando se vincula o pedido ao embarque campo peso liquido está vindo em branco.
Solução
Atualizado o programa de embarque para calcular o pesa liquido corretamente
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03080 Data: 12/02/2007 Hora: 09:35:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03080
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00151
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02105 - 00001 - 6.0 - 00024 - NÃO DEIXAR CRIAR EMBARQUE COM REGIME DIFERENTE DE 14 QUANDO DA É
----------------------------------------------------------------------------------------------------
EMBARQUE CAMPO PESO LIQUIDO ESTÁ VINDO EM BRANCO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE - PESO LIQUIDO - BRANCO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
ENDAT.
ENDLOOP.
FREE itab_zycit030_aux.
PERFORM load_valor_fob_ped.
IF /pws/zycie001-meioemba NE 'PS'.
READ TABLE itab_t006 WITH KEY msehi = itab_itens_aux-gewei.
IF sy-subrc EQ 0 AND
v_existe_bl NE 'S'.
IF itab_zycit003-invoiced IS INITIAL
AND NOT itab_itens_aux-ntgew IS INITIAL
* >> Início da exclusão: FORM VERIFICA_ITENS
AND itab_zycit003-ntgew IS INITIAL
* << Fim da exclusão
AND NOT itab_zycit003-qtd_iten IS INITIAL
AND NOT itab_t006-nennr IS INITIAL .
* >> Início da inclusão: FORM VERIFICA_ITENS
CLEAR itab_zycit003_aux.
READ TABLE itab_zycit003_aux WITH KEY
nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc IS INITIAL.
IF itab_zycit003_aux-qtd_iten NE itab_zycit003-qtd_iten.
* << Fim da inclusão
itab_zycit003-ntgew = itab_zycit003-qtd_iten *
itab_t006-zaehl / itab_t006-nennr *
itab_itens_aux-ntgew.
* >> Início da inclusão: FORM VERIFICA_ITENS
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycit003-gewei = 'KG'.
ENDIF.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F02
...
itab_zycit003-qtd_iten = itab_zycit003-slqtde.
ELSEIF NOT itab_zycit003_aux-qtd_iten IS INITIAL AND
itab_zycit003-qtd_iten IS INITIAL.
itab_zycit003-qtd_iten = 0.
itab_zycit003-noinitial = 'X'.
ENDIF.
IF itab_zycit003_aux-qtd_iten NE itab_zycit003-qtd_iten.
itab_zycit003-slqtde = itab_zycit003-slqtde +
( itab_zycit003_aux-qtd_iten - itab_zycit003-qtd_iten ).
v_qtd_ant = itab_zycit003_aux-qtd_iten.
* >> Início da inclusão: FORM ATUALIZA_ITENS
select single ntgew INTO EKPO-NTGEW
from ekpo
where ebeln = itab_zycit003-ebeln
and ebelp = itab_ZYCIT003-EBELP.
itab_zycit003-ntgew = itab_zycit003-QTD_ITEN * EKPO-ntgew.
* << Fim da inclusão
IF itab_zycit003-slqtde < 0 AND v_qtd_ant IS INITIAL.
itab_zycit003-slqtde = itab_zycit003_aux-slqtde.
IF itab_zycit003-menge NE itab_zycit003_aux-menge.
MESSAGE w061 WITH text-018 itab_zycit003-ebelp
text-019 itab_zycit003-ebeln.
ELSE.
MESSAGE w061 WITH text-004 itab_zycit003-ebelp
text-005 itab_zycit003-ebeln.
ENDIF.
CLEAR itab_zycit003-qtd_iten.
...