Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 14/02/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:51:40
Descrição da Nota: AO CRIAR EMBARQUE GRANEL OCORRE FALHA NO RATEIO POR PESO
Sintoma
Ao criar embarque que não é granel e o peso líquido desembarcado é informado, o frete na DI fica
incorreto quando há mais de um item. Se o frete for para custo pela NF, o encerramento fica com
diferença.
Solução
Se informado um dos campos QTD. Desembarcada ou Peso Liq. Desembarcado obrigar informar o outro
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05925 Data: 14/02/2008 Hora: 09:02:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05925
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00034
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO CRIAR EMBARQUE GRANEL OCORRE FALHA NO RATEIO POR PESO
----------------------------------------------------------------------------------------------------
Palavras Chave:
GRANEL - EMBARQUE - RATEIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPT /PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
ENDIF.
IF itab_zycit442-codreg EQ '04'.
IF /pws/zycie001-regime NE '16' AND
/pws/zycie001-regime NE '04'.
MESSAGE s015 WITH text-444.
v_sair = 'X'.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
* >> Início da inclusão: FORM GRAVA_TABELAS
LOOP AT itab_zycit003.
IF ( NOT itab_zycit003-qtd_itend IS INITIAL AND
itab_zycit003-ntgewd IS INITIAL ) OR
( itab_zycit003-qtd_itend IS INITIAL AND
NOT itab_zycit003-ntgewd IS INITIAL ).
v_sair = 'X'.
MESSAGE i015 WITH text-465 text-466.
ENDIF.
ENDLOOP.
* << Fim da inclusão
IF v_sair = 'X'.
EXIT.
ENDIF.
v_nrseqerro = space.
CLEAR: itab_zycit008.
FREE: itab_zycit008.
SELECT * FROM /pws/zycit008 "#EC CI_NOFIELD
INTO TABLE itab_zycit008
WHERE tpgto EQ 'D'.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 465
Texto: (48 caracteres)
"Processo granel é obrigatório informar os campos"
Comprimento máximo: 51
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 466
Texto: (42 caracteres)
"Qtd. Desembarcada e Peso Liq. Desembarcada"
Comprimento máximo: 75