Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 09/09/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:23:08
Descrição da Nota: AO ELIMINAR A DI DE GRANEL, NÃO HABILITA QTDE DESEMBARCADA NO EMBARQUE.
Sintoma
Ao eliminar a DI de Granel, não habilita qtde desembarcada no embarque.
Solução
Verificar se há DI vinculada ao retornar ao Embarque.
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07282 Data: 09/09/2008 Hora: 10:43:46
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07282
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00064
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04091 - 00001 - 7.0 - 00002 - NA CRIAÇÃO DA NF, NÃO TRAZ O VALOR DO PESO BRUTO VINDO DA DI.
----------------------------------------------------------------------------------------------------
AO ELIMINAR A DI DE GRANEL, NÃO HABILITA QTDE DESEMBARCADA NO EMBARQUE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - GRANEL - QUANTIDADE DESEMBARCADA.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
FORM eliminar_fatura.
IF itab_zycit100[] IS INITIAL.
SELECT * FROM /pws/zycit100 "#EC CI_NOFIRST
INTO TABLE itab_zycit100
WHERE nrseq EQ /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
v_di = 'S'.
ELSE.
* >> Início da exclusão: FORM ELIMINAR_FATURA
IF /pws/zycie001-regime EQ '04' AND
/pws/zycie001-tpdecl EQ 'DI' .
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINAR_FATURA
IF ( /pws/zycie001-regime EQ '04' AND
/pws/zycie001-tpdecl EQ 'DI' ) .
* << Fim da inclusão
SELECT * FROM /pws/zycit443 "#EC CI_NOFIRST
INTO TABLE itab_zycit443
WHERE nrseq EQ /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
v_di = 'S'.
ELSE.
CLEAR v_di.
ENDIF.
* >> Início da inclusão: FORM ELIMINAR_FATURA
ELSE.
CLEAR v_di.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
...