CE PLUS - Nota 012730

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

 

Versões Tratadas

9.0


Pré-Requisitos

Produto:

Nota

Descrição

VERIFICA CATEGORIA DE CERTIFICADO NO PEDIDO DE COMPRA

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.

...