Sintoma

O programa não está preenchendo o campo referencia da MIRO com o texto parametrizado na tabela

/PWS/ZYGLT322.

Solução

O programa foi ajustado para preencher o campo referencia da MIRO de acordo com o texto

parametrizado na tabela /PWS/ZYGLT322 com o código de evento '006M'

Informações Complementares

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

Nota Número 04545 Data: 28/08/2007 Hora: 11:31:31

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

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

Nota Número              : 04545

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00010

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

REFERENCIA DA MIRO NO RECEBIMENTO

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

Palavras Chave:

REFERENCIA MIRO REVISÃO DE FATURA TEXTOS CONTABEIS /PWS/ZYGLT322

RECEBIMENTO XBLNR

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

Objetos da nota:

REPS /PWS/MZYCI017F01

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

    ENDLOOP.

  ENDIF.

  READ TABLE itab_zycie033 INDEX 1.

  IF t001-land1 EQ 'CL'.

    PERFORM trata_decimais USING itab_zycie033-waers

                            CHANGING itab_zycie033-rmwwr.

  ENDIF.

  wa_headerdata-invoice_ind = 'X'.

  wa_headerdata-doc_date = itab_zycie033-bldat.

  wa_headerdata-pstng_date = itab_zycie033-budat.

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

  wa_headerdata-ref_doc_no = itab_zycie033-bktxt.

* << Fim da exclusão

  wa_headerdata-comp_code = itab_zycie033-bukrs.

  wa_headerdata-currency = itab_zycie033-waers.

  wa_headerdata-gross_amount = itab_zycie033-rmwwr.

  wa_headerdata-doc_type = wa_zycbt011-blart.

  wa_headerdata-pmnt_block = 'A'.

  wa_headerdata-calc_tax_ind = 'X'.

  wa_headerdata-header_txt = v_bktxt.

  v_invoice = 'X'.

  v_creditmemo = 'X'.

  wa_headerdata-diff_inv = /pws/zycit048-lifnr.

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

  CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'

       EXPORTING

            v_nrfat   = itab_zycit006-nrfat

            v_nrseq   = /pws/zycie001-nrseq

            v_nfnum   = wa_nf-nfnum

            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.

* << Fim da inclusão

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI017'

                              'RCB006'.

  e_subrc = 0.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB006'  BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa)

...