CE PLUS - Nota 005277
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 22/11/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:18:33
Descrição da Nota: EMBARQUE - VINCULAÇÃO DE PEDIDOS BLOQUEADOS
Sintoma
Sistema está pemitindo criar embarques para pedidos não liberados, quando ao vincular no embarque
colocam varios pedidos sendo uns liberados e outros não liberados.
Solução
Ler todos os itens da tabela de bloqueio para verificar se estão liberados ou não.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05277 Data: 22/11/2007 Hora: 10:29:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05277
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02321 - 00001 - 6.0 - 00025 - VINCULAR PEDIDO BLOQUEADO AO EMBARQUE
----------------------------------------------------------------------------------------------------
EMBARQUE - VINCULAÇÃO DE PEDIDOS BLOQUEADOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO; PEDIDOS BLOQUEADOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
MESSAGE e013 WITH text-314 text-321.
ENDIF.
ENDLOOP.
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.
* >> Início da exclusão: FORM SELECIONAR_ITENS
READ TABLE itab_bloqueio INDEX 1.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
LOOP AT itab_bloqueio.
READ TABLE itab_itens WITH KEY ebeln = itab_bloqueio-ebeln.
* << Fim da inclusão
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.
DELETE itab_itens WHERE ebeln = itab_bloqueio-ebeln.
ELSE.
MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '131'
WITH itab_bloqueio-ebeln.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELECIONAR_ITENS
ENDIF.
ENDLOOP.
IF itab_itens[] IS INITIAL.
EXIT.
* << Fim da inclusão
ENDIF.
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
INTO TABLE itab_zycit031
WHERE inco1_ci EQ itab_itens-inco1
AND codmod EQ 'D' .
IF sy-subrc EQ 0.
...