Sintoma

Preenchimento do Campo de Sociedade Parceira na Contabilização da Letra de Juros. (/pws/zycbt086).

Solução

Preenchimento do Campo de Sociedade Parceira na Contabilização da Letra de Juros. (/pws/zycbt086).

Informações Complementares

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

Nota Número 10196 Data: 26/05/2010 Hora: 16:24:50

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

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

Nota Número              : 10196

Categoria                : Melhoria

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

10188  - 00001 - 8.0    - 00003  - MAPEAMENTO SOCIEDADE PARCEIRA NAS CONTABILIZAÇÕES

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

LETRA DE JUROS, CONTABILIZAÇÃO  SOCIEDADE PARCEIRA

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

Palavras Chave:

LETRA DE JUROS, CONTABILIZAÇÃO, SOCIEDADE PARCEIRA

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

Objetos da nota:

DYNP /PWS/SAPMZYCB028                        0102

REPS /PWS/MZYCB028F01

REPS /PWS/MZYCB028O01

TABD /PWS/ZYCBE086

TABD /PWS/ZYCBT086

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

***********************************************

*                                             *

*  SOLICITAR DOWNLOAD DE TELAS                *

*                                             *

*  /PWS/SAPMZYCB028             TELA - 0102   *

*                                             *

***********************************************

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

Modificações efetuadas em REPS /PWS/MZYCB028F01

...

      if v_existe = 'S'.

        wa_zycbt086 = /pws/zycbe086.

        message i061 with text-019 /pws/zycbe086-nrcjur

                          text-020 /pws/zycbe086-nrseq.

        message s011(pc) with text-005.

      endif.

    endif.

  else.

    if /pws/zycbe086-frreceb eq 'C' or

       /pws/zycbe086-frreceb eq 'P'.

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

     select single * from /pws/zyglt009

     where bukrs eq /pws/zycbe086-bukrs.

* << Fim da inclusão

      if /pws/zycbe086-nrinvoic   ne wa_zycbt086-nrinvoic   or

         /pws/zycbe086-nrparcf    ne wa_zycbt086-nrparcf    or

         /pws/zycbe086-j_1bbranch ne wa_zycbt086-j_1bbranch or

         /pws/zycbe086-gsber      ne wa_zycbt086-gsber      or

         /pws/zycbe086-werks      ne wa_zycbt086-werks      or

         /pws/zycbe086-vlme       ne wa_zycbt086-vlme       or

         /pws/zycbe086-dtvencto   ne wa_zycbt086-dtvencto   or

         /pws/zycbe086-codmod     ne wa_zycbt086-codmod     or

         /pws/zycbe086-prctr      ne wa_zycbt086-prctr      or

         /pws/zycbe086-kostl      ne wa_zycbt086-kostl      or

         /pws/zycbe086-fipos      ne wa_zycbt086-fipos      or

         /pws/zycbe086-fictr      ne wa_zycbt086-fictr      or

         /pws/zycbe086-ps_psp_pnr ne wa_zycbt086-ps_psp_pnr or

         /pws/zycbe086-kursf      ne wa_zycbt086-kursf      or

       ( /pws/zycbe086-ftaxa      ne wa_zycbt086-ftaxa      and

         /pws/zycbe086-kursf      is initial )              or

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

         /pws/zycbe086-belnr_pr   is initial.

* << Fim da exclusão

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

         /pws/zycbe086-belnr_pr   is initial                or

       ( /pws/zycbe086-vbund      ne wa_zycbt086-vbund      and

         /pws/zyglt009-flag_soc_parceir eq 'X' ).

* << Fim da inclusão

        if /pws/zycbe086-frreceb eq 'P'.

          perform verifica_pre_edicao using /pws/zycbe086-belnr_pr

                                            /pws/zycbe086-bukrs

                                            /pws/zycbe086-dtincl.

          if sy-subrc eq 0.

            perform estorno_fbv0.

          else.

            perform estorno.

          endif.

        else.

...

...

  itab_zycbe033-c_gsber = /pws/zycbe086-gsber.

  itab_zycbe033-c_kostl = /pws/zycbe086-kostl.

  itab_zycbe033-c_prctr = /pws/zycbe086-prctr.

  itab_zycbe033-c_fipos = /pws/zycbe086-fipos.

  itab_zycbe033-agkoa   = wa_zycbt011-koart.

  itab_zycbe033-newbs   = '01'.

  itab_zycbe033-newbs1  = '50'.

  itab_zycbe033-zterm   = /pws/zycbe017-zterm.

  itab_zycbe033-d_gsber = /pws/zycbe086-gsber.

  itab_zycbe033-zfbdt   = /pws/zycbe086-dtvencto.

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

  itab_zycbe033-vbund   = /pws/zycbe086-vbund.

* << Fim da inclusão

  itab_zycbe033-brnch = /pws/zycbe086-j_1bbranch.

  perform valida_campo_filial

    using

      /pws/zycbe086-bukrs

      /pws/zycbe086-werks

    changing itab_zycbe033-brnch.

  append itab_zycbe033.

  loop at itab_zycbt034.

    message i016 with itab_zycbt034-descricao.

  endloop.

...

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

Modificações efetuadas em REPS /PWS/MZYCB028O01

...

        endif.

        if screen-name eq 'OBJRES'.

          screen-input = 1.

          modify screen.

        endif.

    endcase.

  endloop.

  if wa_zycbt086_aux is initial.

    move-corresponding /pws/zycbe086 to wa_zycbt086_aux.

  endif.

* >> Início da inclusão: MODULE TRATA_CAMPOS

  if sy-tcode ne '/PWS/ZYCB028_E' and v_trans ne 'E'.

     select single * from /pws/zyglt009

     where bukrs eq /pws/zycbe086-bukrs.

     loop at screen.

        if screen-name eq '/PWS/ZYCBE086-VBUND'.

           if not /pws/zyglt009-flag_soc_parceir is initial.

              screen-input = '1'.

           else.

              clear /pws/zycbe086-vbund.

              screen-input = '0'.

           endif.

        endif.

        modify screen.

     endloop.

  endif.

* << Fim da inclusão

endmodule.

module status_0103 output.

  set pf-status '0103'.

endmodule.

form conf_tela.

  select * from /pws/zyglt334

  into table itab_zyglt334

  where grupp eq 'CB'               and

        name  eq '/PWS/SAPMZYCB028' and

        dynr  eq '0101'               .

...

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

Modificações efetuadas em TABD /PWS/ZYCBT086

MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT086

DESCRIÇÃO BREVE: CB - Cobrança de Juros

CARACTERÍSTICAS

* INCLUIR O NOVO CAMPO NO FINAL DA TABELA

CAMPOS NOVOS

CAMPOS:         TP. CAMPO       CH: INI:  TAB.VERIF.:    TAB.REF.:     CPO.RE     TAB.VALORES.:

...

FTAXA         /PWS/ZYCBL243

* >> Início da inclusão:

VBUND         RASSC           ''  ''    T880           ''            ''         T880

* << Fim da inclusão

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

Modificações efetuadas em TABD /PWS/ZYCBE086

MODIFICAR ESTRUTURA: /PWS/ZYCBE086

DESCRIÇÃO BREVE: CB - Cobrança de Juros

COMPONENTES NOVOS

COMPONENTE:     TP. COMP:      TAB.VERIF.:       CPO.REF.:    AJUD. PESQU.

...

FTAXA           /PWS/ZYCBL243

* >> Início da inclusão:

VBUND           RASSC          T880                           CSH_T880

* << Fim da inclusão

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