Sintoma

Ajustada fatura para definir a data de lançamento da MIRO através do parametro da tabela

/pws/zycit286.

Solução

Ajustada fatura para definir a data de lançamento da MIRO através do parametro da tabela

/pws/zycit286.

Informações Complementares

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

Nota Número 10446 Data: 29/07/2010 Hora: 14:23:12

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

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

Nota Número              : 10446

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00032

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

Referência às notas relacionadas:

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

10410  - 00001 - 8.0    - 00004  - AJUSTE PARA PASSAR O BANCO PARCEIRO PARA A BAPI DA MIRO

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

DEFINIR DATA DE LANÇAMENTO ATRAVÉS DO PARAMETRO DA TAB. /PWS/ZYCIT286

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

Palavras Chave:

FATURA - MIRO - DATA - LANÇAMENTO - PARAMETRO - /PWS/ZYCIT286

/PWS/SAPMZYCI003 - /PWS/SAPMZYCI004

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

Objetos da nota:

REPS /PWS/MZYCI003F02

REPS /PWS/MZYCI004F01

REPS /PWS/MZYCI004F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

            v_codeven = v_codeven

       IMPORTING

            v_xblnr   = v_xblnr

            v_zuonr   = v_zuonr

            v_sgtxt   = v_sgtxt

            v_bktxt   = v_bktxt.

  PERFORM ajustes_46b.

  wa_headerdata-pmnt_block = /pws/zycie006-zlspr.

  wa_headerdata-partner_bk = /pws/zycie006-bcofav.

  wa_headerdata-doc_date     = itab_zycie033-bldat.

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

  wa_headerdata-pstng_date   = itab_zycie033-budat.

* << Fim da exclusão

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

  IF /pws/zycit286-tpfatura NE /pws/zycie006-tpfatura.

    SELECT SINGLE * FROM /pws/zycit286

        WHERE tpfatura = /pws/zycie006-tpfatura.

  ENDIF.

  IF /pws/zycit286-conversao = 'DTDOC'.

    wa_headerdata-pstng_date = /pws/zycie006-dtincl.

  ELSE.

    wa_headerdata-pstng_date = sy-datum.

  ENDIF.

* << Fim da inclusão

  wa_headerdata-ref_doc_no   = itab_zycie033-bktxt.

  wa_headerdata-comp_code    = itab_zycie033-bukrs.

  wa_headerdata-currency     = itab_zycie033-waers.

  wa_headerdata-gross_amount = itab_zycie033-rmwwr.

  wa_headerdata-header_txt   = wa_zycbt007-bktxt.

  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'.

...

...

      CONCATENATE v_belnr_mr1m v_gjahr INTO v_awkey.

      SELECT SINGLE belnr FROM bkpf INTO v_doc_miro

               WHERE   awtyp EQ 'RMRP'

                 AND   awkey EQ v_awkey.

      IF v_parcela = 'X'.

        /pws/zycie006-statusp = 'C'.

        itab_zycit132-miro = 'X'.

        itab_zycit132-status = 'C'.

        itab_zycit132-belnr_mr1m = v_belnr_mr1m.

        itab_zycit132-belnr_p    = v_doc_miro.

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

        itab_zycit132-dt_belnrp  = sy-datum.

* << Fim da exclusão

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

        itab_zycit132-dt_belnrp  =

           wa_headerdata-pstng_date.

* << Fim da inclusão

        itab_zycit132-hr_belnrp  = sy-uzeit.

        MODIFY itab_zycit132 TRANSPORTING  belnr_mr1m  belnr_p

                                           dt_belnrp hr_belnrp

                                           miro status

                            WHERE belnr_p EQ space.

      ELSE.

        /pws/zycie006-statusp_mr1m = 'X'.

        /pws/zycie006-statusp = 'C'.

        /pws/zycie006-belnr_mr1m = v_belnr_mr1m.

        /pws/zycie006-belnr_p    = v_doc_miro.

        /pws/zycie006-dt_mr1m   = sy-datum.

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

        /pws/zycie006-dt_belnrp  = sy-datum.

* << Fim da exclusão

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

        /pws/zycie006-dt_belnrp  = wa_headerdata-pstng_date.

* << Fim da inclusão

        /pws/zycie006-hr_belnrp  = sy-uzeit.

      ENDIF.

      MODIFY /pws/zycit006 FROM /pws/zycie006.

    ELSE.

      LOOP AT itab_return.

        CONCATENATE  itab_return-id itab_return-number

                     itab_return-message INTO v_mensagem

                    SEPARATED BY space.

        MESSAGE i061 WITH v_mensagem+0(50)

                          v_mensagem+50(50)

...

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

Modificações efetuadas em REPS /PWS/MZYCI004F01

...

      PERFORM conta_adu.

    ELSE.

      PERFORM conta_nao_adu.

    ENDIF.

  ENDIF.

  PERFORM verify_null_field USING it_zycbe033-d_newko 'D_NEWKO'

                                                           text-040.

  it_zycbe033-bukrs   = /pws/zycie026-bukrs.

  it_zycbe033-d_valut = /pws/zycie026-dtacerto.

  it_zycbe033-zfbdt   = /pws/zycie026-dtvencto.

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

  MOVE /pws/zycit000-condpgvista TO it_zycbe033-zterm.

* << Fim da inclusão

  APPEND it_zycbe033.

  FREE it_zycbt036. CLEAR it_zycbt036.

  it_zycbt036-tcode  = text-021.

  it_zycbt036-tabela = text-012.

  it_zycbt036-cpochv = v_cpochv.

  it_zycbt036-belnr  = /pws/zycie026-docfat.

  APPEND it_zycbt036.

  REFRESH it_zycbt035. CLEAR it_zycbt035.

  LOOP AT it_docfat.

    it_zycbt035-tcode   = text-021.

...

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

Modificações efetuadas em REPS /PWS/MZYCI004F02

...

    it_zycbe033-d_newko = itab_cta-konts.

    it_zycbe033-newbs   = '50'.

    v_atrib = it_zycbt012-zuonr.

    v_ctarazao = 'X'.

  ENDIF.

  it_zycbe033-wrbtr   =  abs( /pws/zycie026-totdep ).

  PERFORM verify_null_field USING it_zycbe033-d_newko 'D_NEWKO'

                                                       text-040.

  it_zycbe033-d_valut = /pws/zycie026-dtacerto.

  it_zycbe033-zfbdt   = /pws/zycie026-dtvencto.

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

  MOVE /pws/zycit000-condpgvista TO it_zycbe033-zterm.

* << Fim da inclusão

  APPEND it_zycbe033.

  FREE it_zycbt036. CLEAR it_zycbt036.

  it_zycbt036-tcode  = text-021.

  it_zycbt036-tabela = text-012.

  it_zycbt036-cpochv = v_cpochv.

  it_zycbt036-belnr  = /pws/zycie026-docfat.

  APPEND it_zycbt036.

  PERFORM call_function_f51a.

ENDFORM.

...