CE PLUS - Nota 012767
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 15/01/2013 00:00:00
Data/Hora Última Alteração: 04/04/2013 13:46:42
Descrição da Nota: ERRO NO BATCH-INPUT CAMPO QCERT_MIGO-ANSWER NÃO EXISTENTE NA TELA
Sintoma
Ao executar o recebimento ocorre erro no batch input da MIGO e exibe a mensagem "campo de cursor
QCERT_MIGO-ANSWER não existente na tela".
Solução
Ajustada verificação realizada para preenchimento do campo QCERT_MIGO-ANSWER para ficar de acordo
com a realizada pela MIGO.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12767 Data: 15/01/2013 Hora: 10:26:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12767
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00003
Agrupamento : 00144
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11403 - 00001 - 8.0 - 00008 - INBOUND DELIVERY - DESENVOLVIMENTO ADICIONAL
12730 - 00002 - 9.0 - 00002 - VERIFICAÇÃO DE CERTIFICADO PARA PROCESSO COM LOTE
----------------------------------------------------------------------------------------------------
ERRO NO BATCH-INPUT CAMPO QCERT_MIGO-ANSWER NÃO EXISTENTE NA TELA
----------------------------------------------------------------------------------------------------
Palavras Chave:
RECEBIMENTO - ERRO - BATCH - INPUT - MIGO - CAMPO - QCERT_MIGO-ANSWER
/PWS/SAPMZYCI017
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
itab_zycit031-vbeln = itab_ekes-vbeln.
itab_zycit031-menge = itab_ekes-menge.
CLEAR: itab_cert, v_cert_ativ.
READ TABLE itab_cert
WITH KEY ebeln = itab_itens_nf-ebeln
ebelp = itab_itens_nf-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
* >> Início da inclusão: FORM FILL_DATE_MB01
I_WEMNG = itab_zycit031-menge
I_XBLNR = itab_zycie033-lfsnr
* << Fim da inclusão
IMPORTING
e_cert_active = v_cert_ativ
EXCEPTIONS
OTHERS = 1.
IF sy-subrc EQ 0 AND v_cert_ativ EQ 'X'.
itab_zycit031-answer = 'J'.
ENDIF.
ENDIF.
IF NOT itab_serie[] IS INITIAL.
CLEAR itab_serie.
...
...
itab_zycit031-menge = itab_itens_nf-qtd_item.
itab_zycit031-lgort = itab_itens_nf-lgort.
CLEAR: itab_cert, v_cert_ativ.
READ TABLE itab_cert
WITH KEY ebeln = itab_itens_nf-ebeln
ebelp = itab_itens_nf-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
* >> Início da inclusão: FORM FILL_DATE_MB01
I_WEMNG = itab_zycit031-menge
I_XBLNR = itab_zycie033-lfsnr
* << Fim da inclusão
IMPORTING
e_cert_active = v_cert_ativ
EXCEPTIONS
OTHERS = 1.
IF sy-subrc EQ 0 AND v_cert_ativ EQ 'X'.
itab_zycit031-answer = 'J'.
ENDIF.
ENDIF.
IF NOT itab_serie[] IS INITIAL.
CLEAR itab_serie.
...
...
IF NOT itab_zycit223[] IS INITIAL.
LOOP AT itab_zycit031.
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
* >> Início da inclusão: FORM FILL_DATE_MB01
I_WEMNG = itab_zycit031-menge
I_XBLNR = itab_zycie033-lfsnr
* << Fim da inclusão
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.
READ TABLE itab_zycit223 WITH KEY ebeln = itab_zycit031-ebeln
ebelp = itab_zycit031-ebelp.
...