CE PLUS - Nota 013532
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 18/12/2013 11:46:25
Data/Hora Última Alteração: 18/12/2013 13:22:55
Descrição da Nota: ERRO NO RECEBIMENTO COM INBOUND
Sintoma
Ao realizar o recebimento com mais de um inbound o programa está se perdendo e preenchendo a
quantidade no item errado.
Solução
Ajustada função para ordenar a tabela de item por número de Inbound, pedido e item.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13532 Data: 16/12/2013 Hora: 09:03:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13532
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00006
Agrupamento : 00166
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11403 - 00001 - 8.0 - 00008 - INBOUND DELIVERY - DESENVOLVIMENTO ADICIONAL
----------------------------------------------------------------------------------------------------
ERRO NO RECEBIMENTO COM INBOUND
----------------------------------------------------------------------------------------------------
Palavras Chave:
QUANTIDADE - ITEM - DIFERENTE - ERRO - RECEBIMENTO - INBOUND - ORDEM
/PWS/ZYCI_TRANSACAO_MIGO - FUNÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_MIGO
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_MIGO
...
PERFORM bdc_field USING:
'BDC_OKCODE' '=OK_GO'.
IF inbound EQ 'X'.
LOOP AT t_zycit031.
lt_ekes-vbeln = t_zycit031-vbeln.
APPEND lt_ekes.
ENDLOOP.
SORT lt_ekes.
DELETE ADJACENT DUPLICATES FROM lt_ekes.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_MIGO
SORT t_zycit031 BY vbeln ebeln ebelp.
* << Fim da inclusão
LOOP AT lt_ekes.
PERFORM bdc_screen USING 'SAPLMIGO' '0001'.
PERFORM bdc_field USING:
'BDC_OKCODE' '=OK_GO',
'BDC_CURSOR' 'GODYNPRO-INBOUND_DELIVERY',
'GODYNPRO-INBOUND_DELIVERY' lt_ekes-vbeln.
IF v_ok = 'S'.
PERFORM bdc_field USING:
'GOHEAD-OIB_BLTIME' v_time.
ENDIF.
...