Sintoma

Necessário uma exit antes da execução MIRO.

Solução

criada alteração no programa para geração de nota.

Informações Complementares

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

Nota Número 01850 Data: 01/08/2006 Hora: 10:07:10

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

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

Nota Número              : 01850

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00124

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

Referência às notas relacionadas:

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

01526  - 00001 - 6.0    - 00023  - VARIÁVEL V_MODALIDADE NO COMMON PART PARA UTILIZAÇÃO EM EXIT

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

ABERTURA DA EXIT RCB006 ANTES DA MIRO

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

Palavras Chave:

EXIT - RCB006 - MIRO - RECEBIMENTO

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

Objetos da nota:

REPS /PWS/MZYCI017F01

REPS /PWS/MZYCI017X01

REPS /PWS/MZYCI016TOP

REPS /PWS/MZYCI016X01

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

 * Novo ajustes de arredondamento

   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.

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

   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.

     "Verifica se a Exit está ativa.

     IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

       PERFORM (itab_zyglt100-formulario) IN PROGRAM

           (itab_zyglt100-programa)

                              TABLES

                                         itab_itens_nf

                                         itab_zycie033

                                         itab_zycit034

                                         itab_zycit031

                                         itab_zycit032

                              USING

                                         v_modo_bi

                              CHANGING   wa_nf_aux

                                         e_subrc    "Sucesso na exit

                                         IF FOUND     .

       IF e_subrc EQ '8'.

         EXIT.

       ENDIF.

     ENDIF.

   ENDIF.

* << Fim da inclusão

   CALL FUNCTION 'BAPI_INCOMINGINVOICE_CREATE'

     EXPORTING

       headerdata             = wa_headerdata

     IMPORTING

       invoicedocnumber       = v_belnr_mr1m

       fiscalyear             = v_gjahr

     TABLES

       itemdata               = itab_itemdata

       accountingdata         = itab_account

 *      taxdata                = taxdata

 *      WITHTAXDATA            = WITHTAXDATA

 *      VENDORITEMSPLITDATA    = VENDORITEMSPLITDATA

       return                 = itab_return.

...

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

Modificações efetuadas em REPS /PWS/MZYCI017X01

...

* >> Início da inclusão:

 data:  wa_nf_aux LIKE /pws/zycit043.

* << Fim da inclusão

...

      mark.

DATA: END   OF itab_zycit044.

* >> Início da inclusão:

data: begin of itab_itens_nf occurs 0.

        include structure itab_zycit044.

data: end   of itab_itens_nf.

* << Fim da inclusão

DATA:

* >> Início da inclusão:

      itab_zycie033  LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,

      itab_zycit032  LIKE /pws/zycit032 OCCURS 10 WITH HEADER LINE,

      itab_zycit034  LIKE /pws/zycit034 OCCURS 10 WITH HEADER LINE,

      itab_zycit031  LIKE /pws/zycie031 OCCURS 10 WITH HEADER LINE,

* << Fim da inclusão

      itab_zycbt036  LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE,

      itab_zycbt013  LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,

...

...

  v_fb08_ok,

  v_f_51_ok,

  e_estorno(6)    ,

  v_belnr_ant like /pws/zycie006-belnr_p,

 e_receb(6)    .

* >> Início da inclusão:

DATA:

        e_subrc  VALUE '0',

        v_modo_bi         , "Modo Batch-input

* << Fim da inclusão

        v_f02(5)          ,

        v_f51(5)          ,

        e_exec_okcode,

        v_nrseqdi like /pws/zycie085-nrseqdi.

...

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

Modificações efetuadas em REPS /PWS/MZYCI017TOP

...

DATA: BEGIN OF itab_global OCCURS 0.  "Global p/ contab. impostos

        INCLUDE STRUCTURE /pws/zycit042.

DATA: END   OF itab_global.

DATA: BEGIN OF itab_zycit100 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit100.

DATA: END   OF itab_zycit100.

* >> Início da exclusão:

*DATA: BEGIN OF itab_itens_nf OCCURS 0.

*        INCLUDE STRUCTURE itab_zycit044.

*DATA: END   OF itab_itens_nf.

* << Fim da exclusão

DATA: BEGIN OF itab_itens_nf_imp OCCURS 0.

        INCLUDE STRUCTURE itab_zycit042.

DATA: indice LIKE j_1bnfstx-itmnum.

DATA: END   OF itab_itens_nf_imp.

DATA: BEGIN OF itab_modo OCCURS 0.

...

TYPES: BEGIN OF msg_struc,

         tcode LIKE bdcmsgcoll-tcode,

         dyname LIKE bdcmsgcoll-dyname,

         dynumb LIKE bdcmsgcoll-dynumb,

         msgtyp LIKE bdcmsgcoll-msgtyp,

         msgspra LIKE bdcmsgcoll-msgspra,

         msgid LIKE bdcmsgcoll-msgid,

         msgnr LIKE bdcmsgcoll-msgnr,

         msgv1 LIKE balm-msgv1,

         msgv2 LIKE balm-msgv2,

         msgv3 LIKE balm-msgv3,

         msgv4 LIKE balm-msgv4,

         env LIKE bdcmsgcoll-env,

         fldname LIKE bdcmsgcoll-fldname,

        END OF msg_struc.

DATA: BEGIN OF itab_atrib OCCURS 0.

DATA: buzei LIKE bseg-buzei,

      bschl LIKE bseg-bschl.

DATA: END OF itab_atrib.

* Tabela de BDC do Batch Input

* >> Início da exclusão:

*DATA: itab_zycie033  LIKE /pws/zycie033 OCCURS 10 WITH HEADER LINE,

*      itab_zycit032  LIKE /pws/zycit032 OCCURS 10 WITH HEADER LINE,

*      itab_zycit034  LIKE /pws/zycit034 OCCURS 10 WITH HEADER LINE,

*      itab_zycit031  LIKE /pws/zycie031 OCCURS 10 WITH HEADER LINE,

* << Fim da exclusão

DATA: it_bdc LIKE bdcdata OCCURS 0 WITH HEADER LINE,

      it_msg TYPE msg_struc OCCURS 10 WITH HEADER LINE.

...

...

* >> Início da exclusão:

* data:  wa_nf_aux LIKE /pws/zycit043.

* << Fim da exclusão

...

...

* >> Início da exclusão:

*    e_subrc      VALUE '0'. "Exito no processo

*    v_modo_bi         , "Modo Batch-input

* << Fim da exclusão

...

*Variáveis de campos da table control tela 0111.

DATA:

tc_ebeln LIKE /pws/zycit003-ebeln,

tc_ebelp LIKE /pws/zycit003-ebelp,

tc_matnr LIKE /pws/zycit003-matnr,

tc_message(100) TYPE c.

tc_message(100) TYPE c.

tc_message(100) TYPE c.

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

Modificações efetuadas em REPS /PWS/MZYCI016TOP

...

  v_nf(10),

  v_bktxt like bkpf-bktxt,

  v_zuonr like bseg-zuonr,

  v_forn  like /pws/zycit001-lifnr,

  v_sgtxt like bseg-sgtxt,

* >> Início da exclusão:

  v_modalidade like /pws/zycie001-modalidade,

* << Fim da exclusão

  VAUX_BELNR LIKE RBKP-BELNR,

  V_apaga,

  v_subrc,

  v_urf2(1)   type c,

  v_dir        like rlgrap-filename   ,

...

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

Modificações efetuadas em REPS /PWS/MZYCI016X01

...

      v_othbas      LIKE j_1bdytax-base,

      v_impostos    LIKE /pws/zycit100-vlpis,

      v_despesas    LIKE j_1bdylin-netoth,

      v_ipi         LIKE j_1bdystx-taxval,

      v_icms        LIKE j_1bdystx-taxval,

* >> Início da inclusão:

  v_modalidade like /pws/zycie001-modalidade,

* << Fim da inclusão

      v_tiponf(10)    ,

      e_subrc   value 0,

      v_modo_bi       ,

      e_exec_okcode        ,

      v_total       like j_1bdytax-base,

...