Sintoma

No histórico do Pedido de Compra, no campo Referência deveria ter o Número do Embarque.

Solução

O programa deve preencher a Referência de acordo com a parametrização /PWS/ZYCBT013 (se tiver

parametrizado para Nº do Embarque deve levá-lo para Referência) da MIRO, MIGO e F-51 e demais

documentos.

Informações Complementares

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

Nota Número 05302 Data: 23/11/2007 Hora: 17:19:03

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

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

Nota Número              : 05302

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00022

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

FATURA MERCADORIA - RECEBIMENTO

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

Palavras Chave:

RECEBIMENTO; MIRO; MIGO; F-51; REFERÊNCIA; XBLNR;

HISTÓRICO DO PEDIDO

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

Objetos da nota:

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

  wa_headerdata-diff_inv = itab_zycie033-lifnr.

  wa_headerdata-doc_type     = wa_zycbt011-blart.

  wa_headerdata-pmnt_block   = 'A'.

  wa_headerdata-calc_tax_ind = 'X'.

  v_invoice = 'X'.

  v_creditmemo = 'X'.

  CLEAR: v_xblnr.

  CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'

       EXPORTING

            v_nrfat   = /pws/zycie006-nrfat

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

            v_nrseq   = /pws/zycie006-nrseq

* << Fim da exclusão

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

            v_nrseq   = /pws/zycie001-nrseq

* << Fim da inclusão

            v_codeven = '006M'

       IMPORTING

            v_xblnr   = v_xblnr.

  IF NOT v_xblnr IS INITIAL.

    wa_headerdata-ref_doc_no = v_xblnr.

  ELSE.

    wa_headerdata-ref_doc_no = itab_zycie033-bktxt.

  ENDIF.

  e_subrc = '0' .

  PERFORM verifica_exit USING 'D'

...

...

FORM fill_date_mb01.

  DATA: v_chave(10),

        itab_zycit031_aux LIKE itab_zycit031 OCCURS 0 WITH HEADER LINE.

  PERFORM get_parameters_mb01_receb.

  itab_zycie033-mandt = sy-mandt.

  itab_zycie033-tcode = 'MIGO'.

  itab_zycie033-tabela = '/PWS/ZYCIT006'.

  itab_zycie033-cpochv  = /pws/zycie006-nrseq.

  itab_zycie033-bldat   = sy-datum.

  itab_zycie033-budat   = sy-datum.

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

  itab_zycie033-lfsnr   = /pws/zycie006-lfsnr.

* << Fim da exclusão

  itab_zycie033-bktxt   = /pws/zycie006-nrfat.

  itab_zycie033-bwartwe  = '101'.

  itab_zycie033-xabln   = /pws/zycie006-datacheg.

  CLEAR: v_xblnr.

  CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'

       EXPORTING

            v_nrfat   = /pws/zycie006-nrfat

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

            v_nrseq   = /pws/zycie006-nrseq

* << Fim da exclusão

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

            v_nrseq   = /pws/zycie001-nrseq

* << Fim da inclusão

            v_codeven = '006M'

       IMPORTING

            v_xblnr   = v_xblnr.

  IF NOT v_xblnr IS INITIAL.

    itab_zycie033-xblnr = v_xblnr.

  ELSE.

    itab_zycie033-xblnr = itab_zycie033-bktxt.

  ENDIF.

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

  itab_zycie033-lfsnr = itab_zycie033-xblnr.

* << Fim da inclusão

  APPEND itab_zycie033.

  CLEAR itab_ekpo_s.

  IF NOT itab_zycit003[] IS INITIAL.

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

     FROM ( ekpo AS a INNER JOIN marc AS b

          ON a~matnr EQ b~matnr )

      INTO TABLE itab_serie

      FOR ALL ENTRIES IN itab_zycit003

      WHERE ebeln = itab_zycit003-ebeln

        AND ebelp = itab_zycit003-ebelp.

...

...

                 AND bukrs EQ /pws/zycie006-bukrs.

  IF NOT v_sede IS INITIAL.

    itab_zycbe033-d_newko = v_sede.

  ENDIF.

  itab_zycbe033-agkoa    = 'K'.

  LOOP AT itab_zycbt013.

    CASE itab_zycbt013-cpor3.

      WHEN 'XBLNR'.

        CASE itab_zycbt013-cpocb.

          WHEN 'NRSEQ'.

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

            itab_zycbe033-xblnr = /pws/zycie006-nrseq.

* << Fim da exclusão

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

            itab_zycbe033-xblnr = /pws/zycie001-nrseq.

* << Fim da inclusão

          WHEN 'EMBARCA'.

            itab_zycbe033-xblnr = /pws/zycie006-nrfat.

        ENDCASE.

      WHEN 'ZUONR'.

        CASE itab_zycbt013-cpocb.

          WHEN 'NRSEQ'.

            itab_zycbe033-d_zuonr = /pws/zycie006-nrseq.

            itab_zycbe033-c_zuonr = /pws/zycie006-nrseq.

          WHEN 'EMBARCA-NRSEQ'.

            SHIFT v_nrseq LEFT  DELETING LEADING  '0'.

...