CE PLUS - Nota 000924
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 21/02/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:12:04
Descrição da Nota: O SISTEMA PERMITE O ANDAMENTO DO PROCESSO DE PEDIDOS NÃO LIBERADOS
Sintoma
O sistema permite o andamento do processo de pedidos não liberados, do embarque á emissão de Nota
fiscal, fazendo consistência apenas a partir do Recebimento da Mercadoria. Precisamos bloquear o
sistema para que não ocorra vinculação de pedidos não liberados ao embarque, de forma, á não
permitir o andamento da importação.
Solução
Inserida consistencia de verificação da tabela t16fb para ver se o pedido
esta liberado ou não.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00924 Data: 21/02/2006 Hora: 14:24:17
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00924
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00101
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
O SISTEMA PERMITE O ANDAMENTO DO PROCESSO DE PEDIDOS NÃO LIBERADOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
PEDIDOS - LIBERADOS - NOTA - FISCAL - VINCULAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
MSAG /PWS/ZYCIM
REPS /PWS/MZYCI001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MSAG /PWS/ZYCIM
Inserida a mensagem:
131- O documento de compra Nº & ainda não está liberado.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
ENDIF.
IF sy-subrc NE 0.
MESSAGE e015 WITH text-248.
EXIT.
ENDIF.
* >> Início da inclusão: FORM SELECIONAR_ITENS
DATA : BEGIN OF itab_bloqueio OCCURS 0,
ebeln LIKE ekko-ebeln,
frgke LIKE ekko-frgke.
DATA: END OF itab_bloqueio.
TABLES t16fb.
IF NOT itab_itens[] IS INITIAL.
SELECT ebeln frgke FROM ekko
INTO TABLE itab_bloqueio
FOR ALL ENTRIES IN itab_itens
WHERE ebeln EQ itab_itens-ebeln.
ENDIF.
READ TABLE itab_bloqueio INDEX 1.
IF sy-subrc EQ 0 AND
NOT itab_bloqueio-frgke IS INITIAL.
SELECT SINGLE * FROM t16fb
WHERE frgke EQ itab_bloqueio-frgke.
IF t16fb-kzfre NE 'X'.
SELECT SINGLE *
FROM /pws/zyglt217
WHERE arbgb EQ '/PWS/ZYCIM' AND
msgnr EQ '131'.
IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.
IF /pws/zyglt217-msgtp EQ 'E'.
MESSAGE ID '/PWS/ZYCIM' TYPE 'W' NUMBER '131'
WITH itab_bloqueio-ebeln.
ELSE.
MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '131'
WITH itab_bloqueio-ebeln.
ENDIF.
ENDIF.
DELETE itab_itens WHERE ebeln = itab_bloqueio-ebeln.
ENDIF.
ENDIF.
* << Fim da inclusão
IF so_inco1 IS INITIAL.
CLEAR: itab_itens, itab_zycit031, v_inco1a.
REFRESH: itab_zycit031.
READ TABLE itab_itens INDEX 1.
SELECT * FROM /pws/zycit031
...