Sintoma

Solicitação pontos de exit na funcioanlidade de Valores mantidos no exterior, para permitir

alterações após os estornos das contabilizações.

Solução

Criação de ponto de exit na funcionalidade de Valores mantidos no exterior, permitindo a criações de

novos tratamentos para alterações antes e após os estornos das contabilizações.

Informações Complementares

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

Nota Número 10163 Data: 18/05/2010 Hora: 15:21:16

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

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

Nota Número              : 10163

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00022

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

Referência às notas relacionadas:

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

03270  - 00001 - 6.0    - 00026  - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO

05482  - 00002 - 7.0    - 00003  - VALORES MANTIDOS NO EXTERIOR - DA COMPLETO

05967  - 00003 - 7.0    - 00004  - VALORES MANTIDOS NO EXTERIOR - EXIT VME001

06218  - 00004 - 7.0    - 00005  - VALORES MANTIDOS NO EXTERIOR - DISPONIBILIDADE NO EXTERIOR

06371  - 00005 - 7.0    - 00005  - VALORES MANTIDOS NO EXTERIOR - DEVOLUÇÃO

07188  - 00006 - 7.0    - 00006  - VALORES MANTIDOS NO EXTERIOR - SALDO DISPONIBILIDADE - VLSLF NEGA

08195  - 00007 - 7.0    - 00008  - VALORES MANTIDOS NO EXTERIOR - BAIXA DE COMISSÃO DE AGENTE CG NA

08239  - 00008 - 7.0    - 00009  - VALORES MANTIDOS NO EXTERIOR  E LIQUIDAÇÃO - COMISSÃO DE AGENTE

08733  - 00009 - 7.0    - 00010  - SML-SISTEMA DE MOEDA LOCAL-CONSIDERAR SÓ BRL-VME-ATUALIZAÇÃO ZYCB

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

VALORES MANTIDOS NO EXTERIOR - PONTO DE EXIT NOS VALORES MANTIDOS NO EXT

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

Palavras Chave:

VALORES MANTIDOS NO EXTERIOR - PONTO DE EXIT VME002 E VME003

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

Objetos da nota:

REPS /PWS/MZYCB034F01

REPS /PWS/MZYCB034TOP

REPS /PWS/MZYCB034X01

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

Modificações efetuadas em REPS /PWS/MZYCB034F01

...

  endif.

endform.

form contabilizacoes.

  data: v_excecao(1)       type c.

  clear:

    v_desm_cli,

    v_desm_liqand,

    v_sld_liq_and,

    v_belnr_est_f02,

    v_dtlancto_est_f02.

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

  perform trata_exit using 'VME002'.

* << Fim da inclusão

  if <fs_op>-tipo_op = 'E'.

    perform verifica_liq_and.

    perform limpa_dados_bi.

    perform doc_op using ' '

                   changing v_belnr_est_f02

                            v_dtlancto_est_f02.

    perform limpa_dados_bi.

    perform doc_desm_liq_and.

    perform limpa_dados_bi.

    perform doc_desm_cliente.

...

...

    endif.

  endif.

  if <fs_op>-tipo_op = 'P'.

    perform limpa_dados_bi.

    perform doc_op using ' '

                   changing v_belnr_est_f02

                            v_dtlancto_est_f02.

  endif.

  perform bloqueia_contas using    ' '

                          changing v_excecao.

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

  perform trata_exit using 'VME002'.

* << Fim da inclusão

endform.

form preenche_campos_contab_exc

  using

    value(p_bukrs)       type /pws/zycbt011-bukrs

    value(p_ktosl)       type /pws/zyglt321-ktosl

    value(p_codeven)     type /pws/zyglt321-codeven

    value(p_desmemb)     type c

    value(p_wa_zycbt226) type t_s_zycbe226

    value(p_wa_zycbt017) type t_s_zycbt017

  changing

...

...

  data: v_excecao(1)       type c.

  data:

    v_cpochv    type /pws/zycbe033-cpochv,

    wa_zycbe033 type t_s_zycbe033.

  data: begin of itab_zycbt226_aux occurs 0.

          include structure /pws/zycbt226.

  data: end of itab_zycbt226_aux.

  data: v_line type n.

  clear: v_belnr_est_f02,

         v_dtlancto_est_f02.

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

  perform trata_exit using 'VME003'.

* << Fim da inclusão

  if    <fs_op>-tipo_op           eq 'E'     and

        <fs_op>-status            eq 'I'     and

     not <fs_op>-belnr_op         is initial and

         <fs_op>-belnr_desmliqand is initial and

         <fs_op>-belnr_desm_cli   is initial and

         <fs_op>-belnr_compens    is initial.

    concatenate <fs_op>-bukrs

                <fs_op>-nrseq

           into v_cpochv.

    perform estorna_documento

...

...

  where nrinvoic = wa_zycbt226-nrinvoic.

  describe table itab_zycbt226_aux lines v_line.

  if v_line < 2.

    if wa_zycbt007-liq_com_cg ne 'RP'.

      perform estorna_comissao.

    endif.

  endif.

  perform bloqueia_contas using    ' '

                          changing v_excecao.

  perform apaga_registros.

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

  perform trata_exit using 'VME003'.

* << Fim da inclusão

endform.

form estorno

  using value(p_processo)         type c

        value(p_belnr_est_f02)    type /pws/zycbt226-belnr_op

        value(p_dtlancto_est_f02) type /pws/zycbt226-dtlancto.

  data: wa_zycbt032        type t_s_zycbt032,

        wa_zycbe033        type t_s_zycbe033,

        wa_zycbt034        type t_s_zycbt034,

        wa_zycbt036        type t_s_zycbt036,

        wa_zycbt011        type t_s_zycbt011,

...

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

Modificações efetuadas em REPS /PWS/MZYCB034TOP

...

t_t_zycbt030       type table of t_s_zycbt030       with default key,

t_t_zycbt209       type table of t_s_zycbt209       with default key,

t_t_zycet001       type table of t_s_zycet001       with default key,

t_t_zycet047       type table of t_s_zycet047       with default key,

t_t_zycet048       type table of t_s_zycet048       with default key,

t_t_zycit054       type table of t_s_zycit054       with default key,

t_t_bkpf           type table of t_s_bkpf           with default key,

t_t_erro           type table of t_s_erro           with default key,

t_itab_dynpread    type table of dynpread,

t_t_zycbe224       type table of t_s_zycbe224       with default key.

* >> Início da exclusão:

data: itab_zycbt007       type t_t_zycbt007,

      itab_zyglt009       type t_t_zyglt009,

      itab_zycbt089       type t_t_zycbt089,

      itab_zycbt009       type t_t_zycbt009,

      itab_zycbt039       type t_t_zycbt039,

* << Fim da exclusão

* >> Início da inclusão:

data:

* << Fim da inclusão

      itab_zycbt226       type t_t_zycbt226,

* >> Início da exclusão:

      itab_zycbt225       type t_t_zycbt225,

      itab_zycbt226_ant   type t_t_zycbt226,

      itab_zycbt017       type t_t_zycbt017,

      itab_zycbt030       type t_t_zycbt030,

      itab_zycbt209       type t_t_zycbt209,

      itab_zyglt100       type t_t_zyglt100,

      itab_zyglt316       type t_t_zyglt316,

      itab_zyglt321       type t_t_zyglt321,

      itab_zyglt368       type t_t_zyglt368,                "#EC NEEDED

      itab_zycbt011       type t_t_zycbt011,

* << Fim da exclusão

      itab_zycet001       type t_t_zycet001,

      itab_zycet047       type t_t_zycet047,

      itab_zycet048       type t_t_zycet048,

      itab_zycit054       type t_t_zycit054,

      itab_kna1           type t_t_kna1,

      itab_lfa1           type t_t_lfa1,

* >> Início da exclusão:

      itab_bkpf           type t_t_bkpf,

      itab_zycbe224       type t_t_zycbe224,

      itab_devolucao      type t_t_devolucao,

      itab_disp_30        type t_t_disponibilidade,

      itab_disp_70        type t_t_disponibilidade,

      itab_contrato       type t_t_contrato,

      itab_zycbt227       type t_t_zycbt227,

      itab_rendimentos    type t_t_rendimentos,

      itab_disp_00        type t_t_disponibilidade,

      itab_disp_ant       type t_t_disponibilidade,

      itab_contrato_ant   type t_t_contrato,

      itab_doctos         type t_t_doctos,

      itab_rendimentos_ant type t_t_rendimentos,

      itab_contabilizacoes type t_t_contabilizacoes.

* << Fim da exclusão

* >> Início da inclusão:

      itab_bkpf           type t_t_bkpf.

* << Fim da inclusão

data: begin of itab_zycbt005 occurs 0.

        include structure /pws/zycbt005.

data: end of itab_zycbt005.

data: begin of itab_zycbt006 occurs 0.

        include structure /pws/zycbt006.

data: end of itab_zycbt006.

data: begin of itab_selreg occurs 100,

            nrchave(10) type c,

            docto(10)   type c,

            dtlanc      like /pws/zycet010-dtlanc,

...

...

data: end of itab_zycet010.

data: begin of itab_zycet013 occurs 1.

        include structure /pws/zycet013.

data: end of itab_zycet013.

data: begin of itab_zycbt017_cg occurs 1.

        include structure /pws/zycbt017.

data: end of itab_zycbt017_cg.

data: begin of itab_zycbt037_cg occurs 1.

        include structure /pws/zycbt037.

data: end of itab_zycbt037_cg.

* >> Início da exclusão:

data: begin of itab_erro occurs 0,

         vbeln  like /pws/zycbt030-vbeln,

         msg    like /pws/zycbt032-msg,

       end of itab_erro.

data: begin of itab_zycbt032a occurs 10.

        include structure /pws/zycbt032.

data budat  like /pws/zycbe033-budat.

data: end of itab_zycbt032a.

* << Fim da exclusão

data: begin of itab_zycbt012a occurs 2.

        include structure /pws/zycbt012.

data: end of itab_zycbt012a.

data: v_valorc     like /pws/zycbt017-vlcomis,

      v_vlcomis    like /pws/zycbt017-vlcomis,

      v_saliq      like /pws/zycbt006-vlme,

      v_some       like /pws/zycbt006-vlme,

      v_year       like bkpf-gjahr,

      v_dtpagto    like /pws/zycbe006-dtpagto,

      v_cpochv     like /pws/zycbe033-cpochv,

      v_gjahr      like bsid-gjahr,

      v_belnr6     like /pws/zycbt030-belnr6,

      v_taxa       like bkpf-kursf,

      v_dtemb      like /pws/zycet001-dtemb,

      v_ms(5)      type c,

      v_trans(4),

      v_databl     like /pws/zycbe005-dtvincul,

      v_vinculacao type c.

* >> Início da exclusão:

data: begin of itab_doc_f02 occurs 0,

      docto  like /pws/zycbt005-belnr,

      f02(1) type c,

      end of itab_doc_f02.

data: begin of itab_contabil occurs 0,

        nrinvoic like /pws/zycbt030-nrinvoic,

        nrparcf  like /pws/zycbt030-nrparcf,

        vbeln    like /pws/zycbt030-vbeln,

        gsberf   like /pws/zycbt030-gsberf,

        docto    like /pws/zycbt030-belnr,

        msg      like /pws/zycbt032-msg,

        dtdocto  like /pws/zycbt030-budat,

        bukrs    like /pws/zycbe033-bukrs,

      end of itab_contabil.

data: begin of itab_zycbt077 occurs 1.

        include structure /pws/zycbt077.

data: end of itab_zycbt077.

data: wa_zycbt011    like /pws/zycbt011,

      wa_zycbt009    like /pws/zycbt009,

      wa_zycbt034    type t_s_zycbt034,

      wa_zycbe033    type t_s_zycbe033,

      wa_zycbt036    type t_s_zycbt036,

      wa_zycbt032    type t_s_zycbt032,

      wa_t001w       like t001w,

      itab_zycbt013  like /pws/zycbt013 occurs 10 with header line,

      itab_zyglt321_cg type standard table of /pws/zyglt321,

      wa_zyglt321_cg   like line of itab_zyglt321.

* << Fim da exclusão

data: begin of itab_zycbt006_pagos occurs 0.

        include structure /pws/zycbt006.

data: end of itab_zycbt006_pagos.

data: begin of itab_zycbt030_cg occurs 10.

        include structure /pws/zycbt030.

data:

      bukrs   type bkpf-bukrs,

      gjahr   type bkpf-gjahr,

      zterm   like /pws/zycbt017-zterm,

      v_belnr like /pws/zycbt030-belnr,

      s_kwert like /pws/zycbt030-kwert,

      v_kwert like /pws/zycbt030-kwert,

      v_kwert2 like /pws/zycbt030-kwert,

      belnr7  like /pws/zycbt030-belnr,

      flag(1) type c,

      belnr_d like /pws/zycbt030-belnr,

      status_d(1),

      v_duplica(1) type c,

      end of itab_zycbt030_cg.

* >> Início da exclusão:

data: wa_zycbt007  type t_s_zycbt007,

      wa_zyglt009  type t_s_zyglt009,

      wa_zycbt089  type t_s_zycbt089,

      wa_controle  type t_controle,

      wa_fat       type t_s_zycbt017,

      wa_zycbt030  type t_s_zycbt030,

      wa_zycbt209       type t_s_zycbt209.

field-symbols: <fs_op>  type t_s_zycbe226.

* << Fim da exclusão

* >> Início da inclusão:

data:  wa_controle  type t_controle.

* << Fim da inclusão

data:

  v_text_sld_exterior(24) type c,

  v_text_data_cre(27)     type c,

  v_text_bco_cc(22)       type c,

  v_text_descr_bco_cc(25) type c,

  v_wrbtr                type /pws/zycbt030-vlsltrans,

  ok_code                type sy-ucomm,

  v_ok_code_devol        type sy-ucomm,

  v_ultimo_nrseq         type /pws/zycbe226-nrseq,

  v_novo_nrseq           type /pws/zycbe226-nrseq,

  v_modo_bi(1)           type c,

* >> Início da exclusão:

  v_desm_cli(1)          type c,

  v_desm_liqand(1)       type c,

  v_sld_liq_and          type wrbtr,

* << Fim da exclusão

  v_sml                  type c,

  v_vl_liqand            type /pws/zycbt209-vlme,

  v_dif                  type /pws/zycbt209-vlme,

* >> Início da exclusão:

v_belnr_est_f02        type /pws/zycbt226-belnr_op,

v_dtlancto_est_f02     type /pws/zycbt226-dtlancto,

* << Fim da exclusão

v_total_30             type wrbtr,

v_total_70             type wrbtr,

v_msg_previsto(74)     type c,                              "#EC NEEDED

...

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

Modificações efetuadas em REPS /PWS/MZYCB034X01

* >> Início da inclusão:

FIELD-SYMBOLS: <fs_op>  TYPE t_s_zycbe226.

* << Fim da inclusão

data: begin of common part c.                              "#EC PART_OK

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.

data: v_retorno_f_30 type sy-subrc.

* >> Início da inclusão:

DATA: itab_zycbt007       TYPE t_t_zycbt007,

      itab_zyglt009       TYPE t_t_zyglt009,

      itab_zycbt089       TYPE t_t_zycbt089,

      itab_zycbt009       TYPE t_t_zycbt009,

      itab_zycbt039       TYPE t_t_zycbt039,

      itab_zycbt225       TYPE t_t_zycbt225,

      itab_zycbt226_ant   TYPE t_t_zycbt226,

      itab_zycbt017       TYPE t_t_zycbt017,

      itab_zycbt030       TYPE t_t_zycbt030,

      itab_zycbt209       TYPE t_t_zycbt209,

      itab_zyglt100       TYPE t_t_zyglt100,

      itab_zyglt316       TYPE t_t_zyglt316,

      itab_zyglt321       TYPE t_t_zyglt321,

      itab_zyglt368       TYPE t_t_zyglt368,                "#EC NEEDED

      itab_zycbt011       TYPE t_t_zycbt011,

      itab_zycbe224       TYPE t_t_zycbe224,

      itab_devolucao      TYPE t_t_devolucao,

      itab_disp_30        TYPE t_t_disponibilidade,

      itab_disp_70        TYPE t_t_disponibilidade,

      itab_contrato       TYPE t_t_contrato,

      itab_zycbt227       TYPE t_t_zycbt227,

      itab_rendimentos    TYPE t_t_rendimentos,

      itab_disp_00        TYPE t_t_disponibilidade,

      itab_disp_ant       TYPE t_t_disponibilidade,

      itab_contrato_ant   TYPE t_t_contrato,

      itab_doctos         TYPE t_t_doctos,

      itab_rendimentos_ant TYPE t_t_rendimentos,

      itab_contabilizacoes TYPE t_t_contabilizacoes.

DATA: BEGIN OF itab_erro OCCURS 0,

         vbeln  LIKE /pws/zycbt030-vbeln,

         msg    LIKE /pws/zycbt032-msg,

       END OF itab_erro.

DATA: BEGIN OF itab_zycbt032a OCCURS 10.

        INCLUDE STRUCTURE /pws/zycbt032.

DATA budat  LIKE /pws/zycbe033-budat.

DATA: END OF itab_zycbt032a.

DATA: BEGIN OF itab_doc_f02 OCCURS 0,

      docto  LIKE /pws/zycbt005-belnr,

      f02(1) TYPE c,

      END OF itab_doc_f02.

DATA: BEGIN OF itab_contabil OCCURS 0,

        nrinvoic LIKE /pws/zycbt030-nrinvoic,

        nrparcf  LIKE /pws/zycbt030-nrparcf,

        vbeln    LIKE /pws/zycbt030-vbeln,

        gsberf   LIKE /pws/zycbt030-gsberf,

        docto    LIKE /pws/zycbt030-belnr,

        msg      LIKE /pws/zycbt032-msg,

        dtdocto  LIKE /pws/zycbt030-budat,

        bukrs    LIKE /pws/zycbe033-bukrs,

      END OF itab_contabil.

DATA: BEGIN OF itab_zycbt077 OCCURS 1.

        INCLUDE STRUCTURE /pws/zycbt077.

DATA: END OF itab_zycbt077.

DATA: wa_zycbt011    LIKE /pws/zycbt011,

      wa_zycbt009    LIKE /pws/zycbt009,

      wa_zycbt034    TYPE t_s_zycbt034,

      wa_zycbe033    TYPE t_s_zycbe033,

      wa_zycbt036    TYPE t_s_zycbt036,

      wa_zycbt032    TYPE t_s_zycbt032,

      wa_t001w       LIKE t001w,

      itab_zycbt013  LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,

      itab_zyglt321_cg TYPE STANDARD TABLE OF /pws/zyglt321,

      wa_zyglt321_cg   LIKE LINE OF itab_zyglt321.

DATA: wa_zycbt007  TYPE t_s_zycbt007,

      wa_zyglt009  TYPE t_s_zyglt009,

      wa_zycbt089  TYPE t_s_zycbt089,

      wa_fat       TYPE t_s_zycbt017,

      wa_zycbt030  TYPE t_s_zycbt030,

      wa_zycbt209       TYPE t_s_zycbt209.

DATA:

v_belnr_est_f02      TYPE /pws/zycbt226-belnr_op,

v_dtlancto_est_f02   TYPE /pws/zycbt226-dtlancto,

v_desm_cli(1)        TYPE c,

v_desm_liqand(1)     TYPE c,

v_sld_liq_and        TYPE wrbtr.

* << Fim da inclusão

data: end of common part.