Sintoma

Quando, na prestação de contas tivermos um imposto que é retido no momento do pagamento, ao invés de

zerarmos a base como faz hoje, devemos lança-la no batch-input. Só não deve calcular o imposto!

Solução

Quando, na prestação de contas tivermos um imposto que é retido no momento do pagamento, ao invés de

zerarmos a base como faz hoje, devemos lança-la no batch-input. Só não deve calcular o imposto!

Informações Complementares

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

Nota Número 04089 Data: 03/07/2007 Hora: 14:03:05

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

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

Nota Número              : 04089

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00002

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

Referência às notas relacionadas:

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

03863  - 00001 - 7.0    - 00002  - NECESSÁRIA UMA EXIT PARA RETENÇÃO DE IMPOSTOS NA PRESTAÇÃO DE CON

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

LANÇA BASE DE CALCULO DE IMPOSTO NO BATCH INPUT MAS NÃO CALCULA O VALOR.

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

Palavras Chave:

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

Objetos da nota:

FUNC /PWS/ZYGL_IMPOSTO

REPS /PWS/MZYCI007F02

TABD /PWS/ZYGLE369

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

Modificações efetuadas em FUNC /PWS/ZYGL_IMPOSTO

*"Interface local:

  IMPORTING

     REFERENCE(P_REGIO) LIKE  /PWS/ZYGLT378-REGIO OPTIONAL

     REFERENCE(P_LAND1) LIKE  /PWS/ZYGLT378-LAND1 OPTIONAL

     REFERENCE(P_BUKRS) LIKE  /PWS/ZYGLT378-BUKRS

     REFERENCE(P_LIFNR) LIKE  LFA1-LIFNR

     REFERENCE(P_WERKS) LIKE  /PWS/ZYCIE001-WERKS

     REFERENCE(P_COD_MOD) LIKE  /PWS/ZYGLT378-CODMOD

     REFERENCE(P_OKCODE) LIKE  SY-UCOMM OPTIONAL

     REFERENCE(P_DTLANC) TYPE  /PWS/ZYCET033-DTLANC OPTIONAL

* >> Início da inclusão: FUNCTION /PWS/ZYGL_IMPOSTO

     REFERENCE(P_ADTO) TYPE  CHAR1 OPTIONAL

* << Fim da inclusão

...

  LOOP AT itab_with_item.

    MOVE-CORRESPONDING itab_with_item TO itab_with_item_aux.

    APPEND itab_with_item_aux.

  ENDLOOP.

  MOVE itab_bkpf[] TO itab_bkpf_aux[].

  LOOP AT itab_imposto.

    SELECT  SINGLE * FROM t059p

      WHERE land1 = t001-land1 AND

            witht = itab_imposto-cod_impo AND

            wt_postm  NE '1'.

* >> Início da exclusão: FUNCTION /PWS/ZYGL_IMPOSTO

    IF sy-subrc = 0.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYGL_IMPOSTO

 IF sy-subrc = 0 and p_adto = ' '.

* << Fim da inclusão

      CLEAR itab_imposto-vl_imposto.

      MODIFY itab_imposto.

* >> Início da inclusão: FUNCTION /PWS/ZYGL_IMPOSTO

    elseif sy-subrc = 0.

      itab_imposto-WT_POSTM = '2'.

      MODIFY itab_imposto.

* << Fim da inclusão

    ENDIF.

  ENDLOOP.

ENDFUNCTION.

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

Modificações efetuadas em REPS /PWS/MZYCI007F02

...

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

  LOOP AT itab_imposto WHERE wt_postm = '2'.

    vldp_neg = vldp_neg - itab_imposto-vl_imposto.

  ENDLOOP.

* << Fim da inclusão

  vresult = vldp_pos - vldp_neg.

ENDFORM.

...

...

FORM existe_imposto.

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

  DATA:  v_adto,

         wa_zycit026_aux TYPE /pws/zycit026.

* << Fim da inclusão

  REFRESH itab_despesa.

  CLEAR itab_despesa.

  LOOP AT it_zycit027_aux WHERE NOT vldp IS initial.

    MOVE: it_zycit027_aux-tpdesp TO itab_despesa-cod_desp,

          it_zycit027_aux-vldp   TO itab_despesa-vl_desp.

    APPEND itab_despesa.

  ENDLOOP.

  IF adrc-region IS INITIAL.

    CLEAR: j_1bbranch, adrc.

    SELECT SINGLE * FROM j_1bbranch

           WHERE bukrs  = /pws/zycie026-bukrs

             AND branch = /pws/zycie026-j_1bbranch.

    SELECT SINGLE * FROM adrc WHERE addrnumber = j_1bbranch-adrnr.

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

  ENDIF.

  SELECT SINGLE * FROM /pws/zycit026 INTO wa_zycit026_aux

    WHERE nrpres = /pws/zycie026-nrpres AND

          nradto NE '          '.

  IF sy-subrc = 0.

    v_adto = 'X'.

  ELSE.

    CLEAR v_adto.

* << Fim da inclusão

  ENDIF.

  CLEAR itab_imposto. REFRESH itab_imposto.

...

...

  ELSE.

    CALL FUNCTION '/PWS/ZYGL_IMPOSTO'

         EXPORTING

              p_regio            = adrc-region

              p_land1            = t001-land1

              p_bukrs            = /pws/zycie026-bukrs

              p_lifnr            = /pws/zycie026-despach

              p_werks            = /pws/zycie026-werks

              p_cod_mod          = 'D'

              p_okcode           = sy-ucomm

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

              p_adto             = v_adto

* << Fim da inclusão

         TABLES

              itab_despesa       = itab_despesa

              itab_imposto       = itab_imposto

              itab_with_item_aux = itab_with_item

              itab_bkpf_aux      = itab_bkpf

         EXCEPTIONS

              centro_em_branco   = 1

              OTHERS             = 2.

    IF sy-subrc <> 0.

    ENDIF.

...

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

Modificações efetuadas em TABD /PWS/ZYGLE369

Nome campo Elem.dados Tab.verif. N CtDt Comp.

MANDT      MANDT                   CLNT     3

COD_IMPO   WITHT                   CHAR     2

VL_BASE    WRBTR                   CURR    13

WAERS_BASE WAERS                   CUKY     5

VL_IMPOSTO WRBTR                   CURR    13

WAERS_IMPO WAERS                   CUKY     5

* >> Início da inclusão:

WT_POSTM   WT_POSTM                CHAR     1

* << Fim da inclusão