Sintoma

Necessidade de tratamento sociedade parceira na rotina mensal de financeiro.

Solução

Tratamento sociedade parceira na rotina mensal de financeiro.

Informações Complementares

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

Nota Número 10226 Data: 31/05/2010 Hora: 14:16:52

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

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

Nota Número              : 10226

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00023

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

Referência às notas relacionadas:

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

01258  - 00001 - 6.0    - 00023  - PADRONIZAÇÃO DA CLASSE /PWS/ZYCA

02779  - 00002 - 6.0    - 00026  - ROTINA MENSAL FINANCEIRO - SOMA VALOR À PROVISIONAR

04894  - 00003 - 7.0    - 00003  - ROTINA MENSAL - ERRO NO CALCULO

07611  - 00004 - 7.0    - 00007  - ROTINA MENSAL - NÃO BUSCA CORRETAMENTE DADOS TAB.PARAMETRO /PWS/Z

09802  - 00005 - 8.0    - 00002  - DA EMPRÉSTIMO - INCLUSÃO CAMPO DATA INICIAL/LANCTO E DATA CRÉDITO

09825  - 00006 - 8.0    - 00002  - ROTINA MENSAL IMPORTAÇÃO / EXPORTAÇÃO / FINANCEIRO  MENSAGENS DE

09923  - 00007 - 8.0    - 00002  - VERIFICAÇÃO PERÍODO ABERTO/FECHADO NÃO FUNCIONA - IMPACTO PELO NE

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

10218  - 00009 - 8.0    - 00003  - SOCIEDADE PARCEIRA EMPRÉSTIMO

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

SOCIEDADE PARCEIRA ROTINA MENSAL FINANCEIRO

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

Palavras Chave:

SOCIEDADE PARCEIRA ROTINA MENSAL FINANCEIRO

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

Objetos da nota:

REPS /PWS/ZYCBI113

REPS /PWS/ZYCBR113

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

Modificações efetuadas em REPS /PWS/ZYCBI113

...

              itab_zycbe033-xblnr = itab_contabil-nrcorresp.

            when 'NRCONTR'.

              itab_zycbe033-xblnr = itab_contabil-nrcorresp.

            when 'NRINVOIC'.

              itab_zycbe033-xblnr = itab_contabil-nrcorresp.

          endcase.

      endcase.

    endloop.

    clear itab_zycbt128.

    read table itab_zycbt128 with key nrseq = itab_contabil-nrcorresp.

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

    itab_zycbe033-d_zuonr = itab_zycbt129p-nremprest.

    itab_zycbe033-c_zuonr = itab_zycbt129p-nremprest.

* << Fim da exclusão

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

    itab_zycbe033-d_zuonr = itab_zycbt128-nremprest.

    itab_zycbe033-c_zuonr = itab_zycbt128-nremprest.

* << Fim da inclusão

    itab_zycbe033-kursf   = itab_contabil-kursf.

    itab_zycbe033-blart   = itab_contabil-blart.

    itab_zycbe033-d_sgtxt = itab_contabil-d_sgtxt.

    itab_zycbe033-c_sgtxt = itab_contabil-c_sgtxt.

    itab_zycbe033-d_newko = itab_contabil-d_newko.

    itab_zycbe033-d_gsber = itab_contabil-gsber.

    itab_zycbe033-d_kostl = itab_contabil-kostl.

    itab_zycbe033-d_prctr = itab_zycbt128-prctr.

    itab_zycbe033-d_fipos = itab_contabil-fipos.

    itab_zycbe033-d_fictr = itab_contabil-fictr.

    itab_zycbe033-c_newko = itab_contabil-c_newko.

    itab_zycbe033-c_gsber = itab_contabil-gsber.

    itab_zycbe033-c_prctr = itab_zycbt128-prctr.

    itab_zycbe033-c_fipos = itab_contabil-fipos.

    itab_zycbe033-c_fictr = itab_contabil-fictr.

    perform verifica_pais_filial using itab_zycbt128-bukrs

                                       itab_zycbt128-j_1bbranch.

    itab_zycbe033-brnch   = itab_zycbt128-j_1bbranch.

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

    itab_zycbe033-vbund = itab_zycbt128-vbund.

* << Fim da inclusão

    if itab_zycbe033-wrbtr > 0.

      append itab_zycbe033.

    endif.

    if itab_contabil-vlrprovir > 0.

      itab_zycbe033-wrbtr   = itab_contabil-vlrprovir.

      if itab_contabil-tpcontab is initial.

        concatenate 'IR' itab_contabil-bco

                    itab_contabil-bukrs itab_contabil-gsber

                    itab_contabil-waers itab_contabil-d_newkoir

                    itab_contabil-c_newkoir itab_contabil-nrcorresp

...

...

                                  text-035.

  itab_zycbe033-waers  = itab_contabil-waers.

  itab_zycbe033-kursf  = itab_contabil-kursf.

  perform verify_null_field using wa_zycbt011-blart

                                  'BLART'

                                  text-117.

  itab_zycbe033-blart  = wa_zycbt011-blart.

  perform verifica_pais_filial using itab_zycbt128-bukrs

                                     itab_zycbt128-j_1bbranch.

  itab_zycbe033-brnch   = itab_zycbt128-j_1bbranch.

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

  itab_zycbe033-vbund = itab_zycbt128-vbund.

* << Fim da inclusão

  append itab_zycbe033.

  loop at itab_zycbt034.

    concatenate text-089 itab_contabil-bco itab_contabil-bukrs

             itab_contabil-gsber itab_contabil-nrcorresp

             text-090 itab_zycbt034-descricao text-091

             into v_msg separated by space.

    write: / v_msg.

  endloop.

  if itab_zycbt034[] is initial.

    call function '/PWS/ZYCA_TRANSACAO_F_51T'

...

...

                                  text-035.

  itab_zycbe033-waers  = itab_contabil_estorno-waers.

  itab_zycbe033-kursf  = itab_contabil_estorno-kursf.

  perform verify_null_field using wa_zycbt011-blart

                                  'BLART'

                                  text-117.

  itab_zycbe033-blart  = wa_zycbt011-blart.

  perform verifica_pais_filial using itab_zycbt128-bukrs

                                     itab_zycbt128-j_1bbranch.

  itab_zycbe033-brnch   = itab_zycbt128-j_1bbranch.

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

  itab_zycbe033-vbund = itab_zycbt128-vbund.

* << Fim da inclusão

  append itab_zycbe033.

  loop at itab_zycbt034.

    concatenate text-089 itab_contabil_estorno-bco

                itab_contabil_estorno-bukrs itab_contabil_estorno-gsber

                itab_contabil_estorno-nrcorresp text-090

                itab_zycbt034-descricao text-091

                into v_msg separated by space.

    write: / v_msg.

  endloop.

  if itab_zycbt034[] is initial.

...

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

Modificações efetuadas em REPS /PWS/ZYCBR113

...

         itab_zycbt032,

         itab_zycbt034.

  refresh: itab_zycbe033,

           itab_zycbt032,

           itab_zycbt034.

endform.

form executa_trans_f_02.

  call function '/PWS/ZYCA_TRANSACAO_F_02'

       exporting

            v_modo          = v_modo_bi

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

            rotina_mensal   = 'X'

* << Fim da inclusão

       tables

            t_dados         = itab_zycbe033

            t_campo         = itab_zycbt034

            t_zycbt032      = itab_zycbt032

       exceptions

            campo_em_branco = 1

            others          = 2.

  if sy-subrc = 0.

    if itab_contabil-tpcontab = ' '.

      concatenate 'JU' itab_contabil-bco

...

...

  endif.

  v_nrseq = itab_relat-nrseq.

  v_nrparcj2 = itab_relat-nrparcj.

  v_nrparcp = itab_relat-nrparcp.

  v_tpcontab = itab_relat-tpcontab.

endform.

form executa_trans_f_02_estorno_mes.

  call function '/PWS/ZYCA_TRANSACAO_F_02'

       exporting

            v_modo          = v_modo_bi

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

            rotina_mensal   = 'X'

* << Fim da inclusão

       tables

            t_dados         = itab_zycbe033

            t_campo         = itab_zycbt034

            t_zycbt032      = itab_zycbt032

       exceptions

            campo_em_branco = 1

            others          = 2.

  if sy-subrc = 0.

    if itab_contabil_estorno-tpcontab = ' '.

      concatenate 'JU' itab_contabil_estorno-bco

...