Sintoma

Ao realizar o recebimento de um material que possua Categoria de Certificado preenchido na

Administração de Qualidade no cadastro de materiais está ocorrendo erro no batch-input.

Solução

Ajustado programa de recebimento para verificar o preenchimento da Categoria de Certificado no item

do pedido de compra conforme realizado pela MIGO.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 11356 Data: 26/07/2011 Hora: 16:39:46

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 11356

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00008

Agrupamento              : 00080

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

10923  - 00001 - 8.0    - 00006  - CERTIFICADO QM - MIGO - CERTIFIC.EM ANEXO?

----------------------------------------------------------------------------------------------------

VERIFICA CATEGORIA DE CERTIFICADO NO PEDIDO DE COMPRA

----------------------------------------------------------------------------------------------------

Palavras Chave:

RECEBIMENTO - CERTIFICADO - PEDIDO - COMPRA - ERRO - MIGO

/PWS/SAPMZYCI017 - BATCH - INPUT

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI017F01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

FORM fill_date_mb01.

* >> Início da inclusão: FORM FILL_DATE_MB01

  DATA: v_cert_ativ TYPE c,

     BEGIN OF itab_cert OCCURS 0,

      ebeln TYPE ekpo-ebeln,

      ebelp TYPE ekpo-ebelp,

      zgtyp TYPE ekpo-zgtyp,

     END OF itab_cert.

* << Fim da inclusão

...

...

    SELECT a~ebeln a~ebelp a~matnr b~sernp

     FROM ( ekpo AS a INNER JOIN marc AS b

          ON a~matnr EQ b~matnr AND

             a~werks EQ b~werks )

      INTO TABLE itab_serie

      FOR ALL ENTRIES IN itab_itens_nf

      WHERE ebeln = itab_itens_nf-ebeln

        AND ebelp = itab_itens_nf-ebelp.

  ENDIF.

  IF NOT itab_itens_nf[] IS INITIAL.

* >> Início da exclusão: FORM FILL_DATE_MB01

    CLEAR: gt_marc, gt_marc[].

    SELECT matnr werks qzgtp

       FROM marc

       INTO TABLE gt_marc

* << Fim da exclusão

* >> Início da inclusão: FORM FILL_DATE_MB01

    SELECT ebeln ebelp zgtyp FROM ekpo

      INTO TABLE itab_cert

* << Fim da inclusão

       FOR ALL ENTRIES IN itab_itens_nf

* >> Início da exclusão: FORM FILL_DATE_MB01

       WHERE matnr EQ itab_itens_nf-matnr.

* << Fim da exclusão

* >> Início da inclusão: FORM FILL_DATE_MB01

      WHERE ebeln EQ itab_itens_nf-ebeln

        AND ebelp EQ itab_itens_nf-ebelp.

* << Fim da inclusão

  ENDIF.

  FREE itab_zycit031.

  LOOP AT itab_itens_nf.

    itab_zycit031-tcode  = itab_zycie033-tcode.

    itab_zycit031-tabela = itab_zycie033-tabela.

    itab_zycit031-cpochv = itab_zycie033-cpochv.

    itab_zycit031-ebeln  = itab_itens_nf-ebeln.

    itab_zycit031-ebelp  = itab_itens_nf-ebelp.

    itab_zycit031-menge  = itab_itens_nf-qtd_item.

    itab_zycit031-lgort  = itab_itens_nf-lgort.

* >> Início da exclusão: FORM FILL_DATE_MB01

    READ TABLE gt_marc WITH KEY matnr = itab_itens_nf-matnr.

    IF sy-subrc EQ 0 AND NOT gt_marc-qzgtp IS INITIAL.

* << Fim da exclusão

* >> Início da inclusão: FORM FILL_DATE_MB01

    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

           IMPORTING

                e_cert_active = v_cert_ativ

           EXCEPTIONS

                OTHERS        = 1.

      IF sy-subrc EQ 0 AND v_cert_ativ EQ 'X'.

* << Fim da inclusão

      itab_zycit031-answer = 'J'.

* >> Início da inclusão: FORM FILL_DATE_MB01

      ENDIF.

* << Fim da inclusão

    ENDIF.

    IF NOT itab_serie[] IS INITIAL.

      CLEAR itab_serie.

      READ TABLE itab_serie WITH KEY ebeln = itab_itens_nf-ebeln

                                     ebelp = itab_itens_nf-ebelp.

      IF NOT itab_serie-sernp IS INITIAL.

...