Sintoma

Inclusão de Exit para alteração de dados da contabilização da F-30

Solução

Inclusão de Exit para alteração de dados da contabilização da F-30

Informações Complementares

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

Nota Número 11518 Data: 05/10/2011 Hora: 11:14:30

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

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

Nota Número              : 11518

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00009

Agrupamento              : 00088

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

Referência às notas relacionadas:

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

05336  - 00001 - 7.0    - 00003 - ASSOCIAÇÃO - SELEÇÃO DA ATRIBUIÇÃO DO CLEARING

07931  - 00002 - 7.0    - 00008 - DA - SISTEMA DE PAGAMENTOS EM MOEDA LOCAL E ASSOCIAÇÃO(SML)

09894  - 00003 - 8.0    - 00002 - ASSOCIAÇÃO VALORES MANTIDOS NO EXTERIOR - ARBITRAGEM APENAS NO EMB

11123  - 00004 - 8.0    - 00007 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO, CRIAÇÃO DE EXIT

11139  - 00005 - 8.0    - 00007 - ASSOCIAÇÃO ORDEM DE PAGAMENTO - EXIT

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

Texto Rápido:

ASSOCIAÇÃO ORDEM DE PAGAMENTO

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

Palavras Chave:

ASSOCIAÇÃO ORDEM DE PAGAMENTO - EXIT

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

Objetos da nota:

REPS /PWS/MZYCB035F03

REPS /PWS/MZYCB035X01

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

Modificações efetuadas em REPS /PWS/MZYCB035F03

...

endform.

form executa_f30

  using

    value(p_funcao)   type c

    value(p_vinc_tot) type c

    p_itab_zycbe224   type t_t_zycbe224.

  constants:

    c_f30_cl(1) type c value 'C',

    c_f30_p(1)  type c value 'P',

    c_f30_w(1)  type c value 'W'.

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

  v_vinc_tot = p_vinc_tot.

* << Fim da inclusão

  call function '/PWS/ZYCB_ENQUEUE_CONTAS'

       exporting

            i_bloqueia    = space

       tables

            itab_zycbt224 = p_itab_zycbe224

       exceptions

            zycbe224_null = 1

            erro_bloqueio = 2

            others        = 3.

  if sy-subrc <> 0.

...

...

                campo_em_branco = 1

                periodo_fechado = 2

                others          = 3.

      if sy-subrc <> 0.

        exit.

      endif.

    when c_f30_p.

      call function '/PWS/ZYCB_TRANSACAO_F_30_P'

           exporting

                v_modo          = wa_controle-modo_bi

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

                v_vinc_tot      = p_vinc_tot

* << Fim da exclusão

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

                v_vinc_tot      = v_vinc_tot

* << Fim da inclusão

           tables

                t_dados         = itab_zycbe033

                t_campo         = itab_zycbt034

                t_zycbt032      = itab_zycbt032

                t_zycbt036      = itab_zycbt036

           exceptions

                campo_em_branco = 1

                periodo_fechado = 2

                others          = 3.

      if sy-subrc <> 0.

        exit.

      endif.

    when c_f30_w.

      call function '/PWS/ZYCB_TRANSACAO_F_30_W'

           exporting

                v_modo          = wa_controle-modo_bi

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

                v_vinc_tot      = p_vinc_tot

* << Fim da exclusão

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

                v_vinc_tot      = v_vinc_tot

* << Fim da inclusão

                v_op            = 'X'

                v_liqop         = 'X'

                v_assoc         = 'X'

           tables

                t_dados         = itab_zycbe033

                t_campo         = itab_zycbt034

                t_zycbt032      = itab_zycbt032

                t_partidas      = itab_partidas

           exceptions

                campo_em_branco = 1

...

...

          <fs_zycbt209>

          space

        changing itab_zycbe224.

    endif.

    perform preenche_zycbe036_desmemb

      using

        v_cpochv

        v_saldo

        v_zuonr.

    if itab_zycbt034 is initial.

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

      perform executa_exit using 'ASOP005'.

* << Fim da inclusão

      perform executa_f30 using 'P' 'X' itab_zycbe224.

      free itab_zycbe224.

      wa_mensagem-bukrs    = wa_zycbt017-bukrs.

      wa_mensagem-nrinvoic = <fs_zycbt209>-nrinvoic.

      wa_mensagem-nrparcf  = <fs_zycbt209>-nrparcf.

      wa_mensagem-gsberf   = <fs_zycbt209>-gsberf.

      perform verifica_contabilizacao

        using

          c_f30

          c_zycbt228

...

...

      p_saldo

      wa_zycbt209

      space

    changing itab_zycbe224.

  perform preenche_zycbe036_desmemb

    using

      v_cpochv

      p_saldo

      v_zuonr.

  if itab_zycbt034 is initial.

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

    perform executa_exit using 'ASOP006'.

* << Fim da inclusão

    perform executa_f30 using 'P' 'X' itab_zycbe224.

    free itab_zycbe224.

    perform verifica_contabilizacao

      using

        c_f30

        c_zycbt228

        v_cpochv

        v_mensagem

      changing wa_mensagem.

    if not wa_mensagem is initial.

...

...

  perform preenche_partidas

    using

      <fs_codmod>

      <fs_codeven>

      v_cpochv

      p_wa_zycbt228a-nrseq

    changing

      itab_zycbe224.

  if itab_zycbt034 is initial.

    perform preenche_contas_compensacao changing itab_zycbe224.

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

    perform executa_exit using 'ASOP007'.

* << Fim da inclusão

    perform executa_f30 using 'W' 'X' itab_zycbe224.

    free itab_zycbe224.

    perform verifica_contabilizacao

      using

        c_f30

        c_zycbt228

        v_cpochv

        'Compensação da Associação'(m36)

      changing wa_mensagem.

    if not wa_mensagem is initial.

...

...

        <fs_dtdocto_proc>

        v_vlr_associado.

  endif.

  if itab_zycbt034 is initial.

    wa_zycbe224-mandt = sy-mandt.

    wa_zycbe224-modo  = c_modo_bloqueio.

    wa_zycbe224-bukrs = <fs_bukrs>.

    wa_zycbe224-koart = c_koart.

    wa_zycbe224-saknr = <fs_kunnr>.

    append wa_zycbe224 to itab_zycbe224.

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

    perform executa_exit using 'ASOP008'.

* << Fim da inclusão

    perform executa_f30 using 'C' 'X' itab_zycbe224.

    free itab_zycbe224.

    perform verifica_contabilizacao

      using

        c_f30

        c_zycbt228

        v_cpochv

        v_mensagem

      changing wa_mensagem.

    if not wa_mensagem is initial.

...

...

          <fs_zycbt228>-budat

          <fs_zycbt228>-vlr_associado.

    endif.

    if itab_zycbt034 is initial.

      wa_zycbe224-mandt = sy-mandt.

      wa_zycbe224-modo  = c_modo_bloqueio.

      wa_zycbe224-bukrs = <fs_zycbt209>-bukrs.

      wa_zycbe224-koart = <fs_zycbt209>-koart.

      wa_zycbe224-saknr = <fs_zycbt209>-hkont.

      append wa_zycbe224 to itab_zycbe224.

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

      perform executa_exit using 'ASOP009'.

* << Fim da inclusão

      perform executa_f30 using 'C' 'X' itab_zycbe224.

      free itab_zycbe224.

      wa_mensagem-bukrs    = <fs_zycbt209>-bukrs.

      wa_mensagem-nrinvoic = <fs_zycbt209>-nrinvoic.

      wa_mensagem-nrparcf  = <fs_zycbt209>-nrparcf.

      wa_mensagem-gsberf   = <fs_zycbt209>-gsberf.

      perform verifica_contabilizacao

        using

          c_f30

          c_zycbt228

...

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

Modificações efetuadas em REPS /PWS/MZYCB035X01

...

data:

  itab_zycbt032   type t_t_zycbt032,

  itab_zycbe033   type t_t_zycbe033,

  itab_zycbt034   type t_t_zycbt034,

  itab_zycbt036   type t_t_zycbt036,

  itab_partidas   type t_t_zycbe033,

  itab_zycbe224   type t_t_zycbe224.

  data:

    wa_zycbt228a like line of itab_zycbt228a,

    wa_zycbt226  like line of itab_zycbt226.

* >> Início da inclusão:

data: v_vinc_tot(1) type c.

* << Fim da inclusão

data: end of common part.