Sintoma

O rateio das despesas lançado para custo está diferente da do exibido na prestação de contas.

Solução

Ajustado programa para utilizar os valores retornado pela função de rateio para as despesas rateadas

pelo valor CIF.

Informações Complementares

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

Nota Número 10230 Data: 01/06/2010 Hora: 14:45:29

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

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

Nota Número              : 10230

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00026

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

Referência às notas relacionadas:

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

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

RATEIO DE DESPESA PELO VALOR CIF - M8080 - MIRO

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

Palavras Chave:

RATEIO - DESPESA - VALOR - CIF - PRESTAÇÃO - CONTAS - M8080 - MIRO

/PWS/SAPMZYCI007

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

Objetos da nota:

REPS /PWS/MZYCI007F01

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

Modificações efetuadas em REPS /PWS/MZYCI007F01

...

FORM verifica_itens.

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

  DATA: wa_zycit062 TYPE /pws/zycit062,

        itab_zycit020 TYPE /pws/zycit020 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

...

...

    INTO TABLE it_despesa

    WHERE regio EQ adrc-region AND

          land1 EQ t001-land1.

  IF sy-subrc NE 0.

    SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie026-bukrs.

    SELECT * FROM /pws/zycit019

      INTO TABLE it_despesa

      WHERE regio EQ space AND

           land1 EQ t001-land1.

  ENDIF.

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

  SELECT SINGLE * FROM /pws/zycit062 INTO wa_zycit062

       WHERE regio = adrc-region.

  SELECT * FROM /pws/zycit020

    INTO TABLE itab_zycit020

    WHERE regio = adrc-region

      AND baseicms EQ 'X'

      AND land1 EQ t001-land1.

  IF sy-subrc NE 0.

    SELECT  * FROM /pws/zycit020

      INTO TABLE itab_zycit020

      WHERE regio = space

        AND baseicms EQ 'X'

        AND land1 EQ t001-land1.

  ENDIF.

* << Fim da inclusão

  IF NOT it_zycit003[] IS INITIAL.

    SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263

           FOR ALL ENTRIES IN it_zycit003

           WHERE nrseq     EQ it_zycit003-nrseq

             AND ebeln     EQ it_zycit003-ebeln

             AND ebelp     EQ it_zycit003-ebelp

             AND eliminado NE 'X'.

    IF sy-subrc NE 0.

      LOOP AT it_zycit027_aux WHERE vldp > 0.

        CLEAR: itab_zycit039, it_despesa.

...

...

              v_vldp_rat = it_zycit027_aux-vldp *

                it_zycit003-ntgew / v_tot_ntgew.

              it_lanca-lancamento = v_vldp_rat.

              it_lanca-porcent    = it_zycit003-ntgew / v_tot_ntgew.

            ELSEIF itab_zycit039-proporplan = 'X'.

              v_vldp_rat = it_zycit027_aux-vldp *

               ( it_zycit003-netpr * it_zycit003-qtd_iten ) / v_tot.

              it_lanca-lancamento = v_vldp_rat.

              it_lanca-porcent    =

               ( it_zycit003-netpr * it_zycit003-qtd_iten ) / v_tot.

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

            ELSE.

              CLEAR: itab_zycit020, itab_zycit019.

              READ TABLE it_despesa WITH KEY

                      tpdesp = it_zycit027_aux-tpdesp.

              READ TABLE itab_zycit020 WITH KEY

                      codigo = it_despesa-codigo.

              IF wa_zycit062-bs_rat_icms EQ 'CIF' .

                READ TABLE itab_zycit036 WITH KEY

                        ebeln  = it_item-ebeln

                        ebelp  = it_item-ebelp

                        codigo = itab_zycit020-codigo.

                it_lanca-lancamento = itab_zycit036-vlreal.

                it_lanca-porcent    = it_zycit027_aux-vldp /

                                      itab_zycit036-vlreal.

* << Fim da inclusão

            ELSE.

              v_vldp_rat = it_zycit027_aux-vldp *

                ( it_zycit003-vlreal * it_zycit003-qtd_iten )

                     / v_tot_real.

              it_lanca-lancamento = v_vldp_rat.

              it_lanca-porcent    =

               ( it_zycit003-vlreal * it_zycit003-qtd_iten )

                  / v_tot_real.

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

              ENDIF.

* << Fim da inclusão

            ENDIF.

            v_porcentagem = v_porcentagem + it_lanca-porcent.

            v_total = v_total + it_lanca-lancamento.

          ENDIF.

        ENDIF.

        v_totitem = it_lanca-lancamento + v_totitem.

        APPEND it_lanca.

      ENDIF.

    ENDLOOP.

  ENDLOOP.

...