Sintoma

Ajustado programa preencher na BAPI da MIRO o montante base de IRF paramentrizado para ter como base

o imposto da MIRO.

Solução

Ajustado programa preencher na BAPI da MIRO o montante base de IRF paramentrizado para ter como base

o imposto da MIRO.

Informações Complementares

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

Nota Número 10221 Data: 31/05/2010 Hora: 09:32:33

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

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

Nota Número              : 10221

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00023

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

Referência às notas relacionadas:

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

10162  - 00001 - 8.0    - 00003  - CRIADA EXIT PRT015

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

PREENCHER BASE DE IRF PARAMENTRIZADO COM BASE NO IVA DA FATURA

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

Palavras Chave:

PRESTAÇÃO - CONTAS - IRF - BASE - IVA - IMPOSTO - MIRO - BAPI

/PWS/SAPMZYCI004

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

Objetos da nota:

REPS /PWS/MZYCI004F01

REPS /PWS/MZYCI004F02

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

Modificações efetuadas em REPS /PWS/MZYCI004F01

...

    ENDLOOP.

    wa_headerdata-gross_amount = wa_headerdata-gross_amount +

                                 v_gross_amount.

  ENDIF.

  CLEAR: itab_account.

  ADD 1 TO itab_glaccount-invoice_doc_item.

  MODIFY itab_glaccount TRANSPORTING invoice_doc_item

      WHERE invoice_doc_item NE itab_glaccount-invoice_doc_item.

  wa_headerdata-gross_amount = wa_headerdata-gross_amount +

                                             itab_retorno-hwste.

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

  itab_withtaxdata-wi_tax_base = v_gross_amount + itab_retorno-hwste.

  MODIFY itab_withtaxdata TRANSPORTING wi_tax_base

                         WHERE wi_tax_base EQ space.

* << Fim da inclusão

  e_subrc = '0' .

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI004'

                              'PRT015'.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY

                   zexit = 'PRT015' BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

...

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

Modificações efetuadas em REPS /PWS/MZYCI004F02

...

form impostos.

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

  DATA: itab_t059p    TYPE t059p OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  DATA: itab_zyglt378 TYPE /pws/zyglt378 OCCURS 0 WITH HEADER LINE,

        itab_lfbw     TYPE lfbw OCCURS 0 WITH HEADER LINE.

  SELECT * FROM lfbw INTO TABLE itab_lfbw

       WHERE lifnr     EQ /pws/zycie026-DESPACH

         AND bukrs     EQ /pws/zycie026-bukrs

         AND wt_subjct NE space.

  LOOP AT itab_lfbw WHERE wt_withcd IS initial.

    SELECT SINGLE wt_withcd

      FROM /pws/zycit353

      INTO itab_lfbw-wt_withcd

...

...

                             regio NE lfa1-regio.

  SORT itab_zyglt378 BY codmod   ASCENDING

                        cod_desp ASCENDING

                        witht    ASCENDING

                        bukrs    DESCENDING

                        land1    DESCENDING

                        regio    DESCENDING.

  DELETE ADJACENT DUPLICATES FROM itab_zyglt378 COMPARING codmod

                                                          cod_desp

                                                          witht.

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

  SELECT * FROM t059p INTO TABLE itab_t059p

      FOR ALL ENTRIES IN itab_lfbw

      WHERE witht EQ itab_lfbw-witht

        AND land1 EQ t001-land1.

  DELETE itab_t059p WHERE wt_base NA '35'.

  refresh itab_withtaxdata.

* << Fim da inclusão

  LOOP AT it_zycit027_aux WHERE vldp > 0.

    PERFORM retorna_decimais USING it_zycit027_aux-waers

                         CHANGING it_zycit027_aux-vldp.

    LOOP AT itab_zyglt378

          WHERE cod_desp EQ it_zycit027_aux-tpdesp.

      READ TABLE itab_lfbw

                 WITH KEY witht = itab_zyglt378-witht.

      IF sy-subrc EQ 0.

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

        READ TABLE itab_t059p

              WITH KEY witht = itab_lfbw-witht.

        CHECK sy-subrc NE 0.

* << Fim da inclusão

        itab_withtaxdata-wi_tax_base = it_zycit027_aux-vldp.

        itab_withtaxdata-wi_tax_type = itab_lfbw-witht.

        itab_withtaxdata-wi_tax_code = itab_lfbw-wt_withcd.

        COLLECT itab_withtaxdata.

      ENDIF.

    ENDLOOP.

  ENDLOOP.

  LOOP AT itab_withtaxdata.

    ADD 1 TO itab_withtaxdata-split_key.

    MODIFY itab_withtaxdata.

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

  ENDLOOP.

  CLEAR: itab_withtaxdata-wi_tax_base.

  LOOP AT itab_t059p.

    READ TABLE itab_lfbw

                  WITH KEY witht = itab_t059p-witht.

    itab_withtaxdata-wi_tax_type = itab_lfbw-witht.

    itab_withtaxdata-wi_tax_code = itab_lfbw-wt_withcd.

    ADD 1 TO itab_withtaxdata-split_key.

    APPEND itab_withtaxdata.

* << Fim da inclusão

  ENDLOOP.

endform.