Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 14/12/2012 00:00:00
Data/Hora Última Alteração: 04/04/2013 13:35:55
Descrição da Nota: VERIFICAÇÃO DE CERTIFICADO PARA PROCESSO COM LOTE
Sintoma
Ao receber um processo com lote em que tenha sido preenchido o campo certificado ocorre erro no
batch input da MIGO.
Solução
Adicionada verificação de certificado para o item na montagem dos dados de Lote para o batch input
da MIGO
9.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12730 Data: 14/12/2012 Hora: 10:13:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12730
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00002
Agrupamento : 00139
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11356 - 00001 - 8.0 - 00008 - VERIFICA CATEGORIA DE CERTIFICADO NO PEDIDO DE COMPRA
----------------------------------------------------------------------------------------------------
VERIFICAÇÃO DE CERTIFICADO PARA PROCESSO COM LOTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
RECEBIMENTO - VERIFICAÇÃO - PREENCHIMENTO - CERTIFICADO - LOTE
/PWS/SAPMZYCI017
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
ENDIF.
ENDIF.
IF NOT itab_zycit223[] IS INITIAL.
LOOP AT itab_zycit031.
* >> Início da inclusão: FORM FILL_DATE_MB01
CLEAR: itab_cert, v_cert_ativ.
READ TABLE itab_cert
WITH KEY ebeln = itab_zycit031-ebeln
ebelp = itab_zycit031-ebelp.
IF sy-subrc EQ 0 AND NOT itab_cert-zgtyp IS INITIAL.
CALL FUNCTION 'QBCK_MIGO_CERT_REL_CHECK'
EXPORTING
i_tq05_zgtyp = itab_cert-zgtyp
IMPORTING
e_cert_active = v_cert_ativ
EXCEPTIONS
OTHERS = 1.
IF sy-subrc NE 0 OR v_cert_ativ NE 'X'.
CLEAR v_cert_ativ.
ENDIF.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycit223 WITH KEY ebeln = itab_zycit031-ebeln
ebelp = itab_zycit031-ebelp.
IF sy-subrc = 0.
DELETE itab_zycit031.
ENDIF.
LOOP AT itab_zycit223 WHERE ebeln = itab_zycit031-ebeln AND
ebelp = itab_zycit031-ebelp.
MOVE: itab_zycit223-ebeln TO itab_zycit031_aux-ebeln,
itab_zycit223-ebelp TO itab_zycit031_aux-ebelp,
itab_zycit223-lote TO itab_zycit031_aux-charg,
itab_zycit223-qtde TO itab_zycit031_aux-menge,
itab_zycit223-nrvolume TO itab_zycit031_aux-anzgeb,
itab_zycit223-tpvolume TO itab_zycit031_aux-gebeh,
itab_zycit223-certificado TO itab_zycit031_aux-answer,
itab_zycit223-lote_forn TO itab_zycit031_aux-lichn,
itab_zycit223-dt_vencto TO itab_zycit031_aux-vfdat,
itab_zycit223-dt_producao TO itab_zycit031_aux-hsdat.
* >> Início da inclusão: FORM FILL_DATE_MB01
IF v_cert_ativ IS INITIAL.
CLEAR itab_zycit031_aux-answer.
ENDIF.
* << Fim da inclusão
itab_zycit031_aux-tcode = itab_zycie033-tcode.
itab_zycit031_aux-tabela = itab_zycie033-tabela.
itab_zycit031_aux-cpochv = itab_zycie033-cpochv.
itab_zycit031_aux-lgort = itab_zycit031-lgort .
APPEND itab_zycit031_aux.
ENDLOOP.
ENDLOOP.
...