Sintoma

Ao criar uma remessa com origem, não esta seguindo os valores débito(pagamento) ou crédito

(recebimento) na pasta contabilização principal, fazendo divisão absoluta de acordo com o número de

partidas.

Solução

Ratear os valores para pasta contabilização principal, verificando a porcentagem que as partidas

crédito(pagamento) ou débito(recebimento) representa no total do documento contábil e utilizar esta

porcentagem sobre os valores das partidas do contábil que irão para pasta contabilização.

Informações Complementares

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

Nota Número 04824 Data: 26/09/2007 Hora: 10:27:02

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

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

Nota Número              : 04824

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00014

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

REMESSA COM ORIGEM - RATEIO PASTA CONTABILIZAÇÃO PRINCIPAL

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

Palavras Chave:

REMESSA COM ORIGEM RATEIO PASTA CONTABILIZAÇÃO PRINCIPAL

DOCUMENTO CONTÁBIL REGRA DE 3 REGRA DE TRÊS

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

Objetos da nota:

REPS /PWS/MZYCA109F01

REPS /PWS/MZYCA109TOP

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

Modificações efetuadas em REPS /PWS/MZYCA109F01

...

          endif.

      endcase.

    endloop.

    itab_zycbe035-wrbtr      = itab_zycbt141-vlremessa.

    append itab_zycbe035.

  endloop.

endform.

form cria_remessa tables i_bseg structure bseg

                  using  p_bkpf structure bkpf.

  refresh itab_rel.

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

  CLEAR v_total_docto.

* << Fim da inclusão

  loop at i_bseg.

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

    v_total_docto = v_total_docto + i_bseg-wrbtr.

  ENDLOOP.

  LOOP AT i_bseg.

* << Fim da inclusão

    select single * from /pws/zycbt124

                    where belnr   = wa_bkpf-belnr

                      and nrfat   = wa_bkpf-awkey

                      and dtdocto = wa_bkpf-budat

...

...

                            p_bukrs

                   changing p_ano.

  call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

       exporting

            v_bukrs = p_bukrs

            v_date  = p_budat

       importing

            v_year  = p_ano.

endform.

form preenche_pasta_contabilizacao tables i_bseg structure bseg.

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

  data: v_reg(2) type n,

        v_tot    like /pws/zycbt141-vlremessa,

        v_dif    like /pws/zycbt141-vlremessa,

        v_tabix  like sy-tabix.

* << Fim da exclusão

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

  DATA: v_reg(2)      TYPE n,

        v_reg2(2)     TYPE n,

        v_tot         LIKE /pws/zycbt141-vlremessa,

        v_dif         LIKE /pws/zycbt141-vlremessa,

        v_tabix       LIKE sy-tabix.

* << Fim da inclusão

  refresh itab_bseg_aux.

  if /pws/zycbt124-tpoper  = 'R'.

    select * from bseg into table itab_bseg_aux

             where bukrs = i_bseg-bukrs

               and belnr = i_bseg-belnr

               and gjahr = i_bseg-gjahr

               and shkzg = 'H'.

  elseif /pws/zycbt124-tpoper  = 'P'.

    select * from bseg into table itab_bseg_aux

             where bukrs = i_bseg-bukrs

...

...

        itab_zycbt141-ps_posid = itab_bseg_aux-projk.

      endif.

      itab_zycbt141-fipos      = itab_bseg_aux-fipos.

      itab_zycbt141-fictr      = itab_bseg_aux-fistl.

      itab_zycbt141-gsber      = itab_bseg_aux-gsber.

      itab_zycbt141-kstrg      = itab_bseg_aux-kstrg.

      itab_zycbt141-nplnr      = itab_bseg_aux-nplnr.

      itab_zycbt141-matnr      = itab_bseg_aux-matnr.

      itab_zycbt141-geber      = itab_bseg_aux-geber.

      itab_zycbt141-ebeln      = itab_bseg_aux-ebeln.

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

      itab_zycbt141-vlremessa  = /pws/zycbt124-vlme / v_reg.

* << Fim da exclusão

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

      DESCRIBE TABLE itab_bseg LINES v_reg2.

      IF v_reg2 = 1.

        itab_zycbt141-vlremessa  = itab_bseg_aux-wrbtr.

      ELSEIF v_reg2 > 1.

        v_porcentagem = ( itab_bseg-wrbtr * 100 ) / v_total_docto.

        itab_zycbt141-vlremessa =

                          ( itab_bseg_aux-wrbtr * v_porcentagem ) / 100.

      ENDIF.

* << Fim da inclusão

      itab_zycbt141-ebelp      = itab_bseg_aux-ebelp.

      select single * from afko where aufnr = itab_bseg_aux-nplnr.

      if sy-subrc = 0.

        select single * from afvc where aufpl = afko-aufpl

                                    and aplzl = itab_bseg_aux-aplzl.

        if sy-subrc = 0.

          itab_zycbt141-vornr = afvc-vornr.

        endif.

      endif.

      v_tot = v_tot + itab_zycbt141-vlremessa.

...

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

Modificações efetuadas em REPS /PWS/MZYCA109TOP

...

DATA: v_nome_campo(35) TYPE c,

      v_comp(35)       TYPE c,

      v_cod_grupo      LIKE /pws/zyglt320-cod_grupo,

      cont             TYPE i VALUE 0,

      v_tela           LIKE sy-ucomm,

      wa_zycbe141_aux  LIKE /pws/zycbe141,

      v_dtlanc(10)     TYPE c,

      v_vlme_assoc     TYPE /pws/zycbt124-vlme,

      v_sld_associar   TYPE /pws/zycbt124-sld_associar.

DATA: e_subrc       LIKE sy-subrc.

* >> Início da inclusão:

DATA: v_porcentagem TYPE /pws/zycbt124-vlme,

      v_total_docto TYPE bseg-wrbtr.

* << Fim da inclusão