Sintoma

performance e sintaxe

Solução

Verificação ampliada e code inspector

Informações Complementares

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

Nota Número 05772 Data: 29/01/2008 Hora: 10:14:42

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

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

Nota Número              : 05772

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

VERIFICAÇÃO AMPLIADA, CODE INSPECTOR MODULO DE FUNÇÃO CAMBIO

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

Palavras Chave:

VERIFICAÇÃO AMPLIADA, CODE INSPECTOR MODULO DE FUNÇÃO CAMBIO

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

Objetos da nota:

FUNC /PWS/ZYCA_BASE_CALCULO_IMPOSTO

FUNC /PWS/ZYCA_DEQUEUE_ZYCBT124

FUNC /PWS/ZYCA_DEQUEUE_ZYCBT128

FUNC /PWS/ZYCA_ENQUEUE_ZYCAR019

FUNC /PWS/ZYCA_ENQUEUE_ZYCAR020

FUNC /PWS/ZYCA_ENQUEUE_ZYCBT124

FUNC /PWS/ZYCA_ENQUEUE_ZYCBT128

FUNC /PWS/ZYCA_FLAG_TEXTO

FUNC /PWS/ZYCA_TRANSACAO_FB02

FUNC /PWS/ZYCA_TRANSACAO_FB08

FUNC /PWS/ZYCA_TRANSACAO_FB08A

FUNC /PWS/ZYCA_TRANSACAO_FBRA

FUNC /PWS/ZYCA_TRANSACAO_FBV0

FUNC /PWS/ZYCA_TRANSACAO_F_02A

FUNC /PWS/ZYCA_TRANSACAO_F_02R

FUNC /PWS/ZYCA_TRANSACAO_F_04

FUNC /PWS/ZYCA_TRANSACAO_F_04A

FUNC /PWS/ZYCA_TRANSACAO_F_30

FUNC /PWS/ZYCA_TRANSACAO_F_30R

FUNC /PWS/ZYCA_TRANSACAO_F_51

FUNC /PWS/ZYCA_TRANSACAO_F_51B

FUNC /PWS/ZYCA_TRANSACAO_F_51C

FUNC /PWS/ZYCA_TRANSACAO_F_51D

FUNC /PWS/ZYCA_TRANSACAO_F_51I

FUNC /PWS/ZYCA_TRANSACAO_F_51J

FUNC /PWS/ZYCA_TRANSACAO_F_51P

FUNC /PWS/ZYCA_TRANSACAO_F_51Q

FUNC /PWS/ZYCA_TRANSACAO_F_51T

FUNC /PWS/ZYCA_TRANSACAO_F_63

FUNC /PWS/ZYCA_TRANSACAO_F_63I

FUNC /PWS/ZYCA_TRANSACAO_F_63P

FUNC /PWS/ZYCA_TRANSACAO_F_63R

FUNC /PWS/ZYCB_DEQUEUE_ZYCBT124

FUNC /PWS/ZYCB_ENQUEUE_ZYCBT124

RELE F6DK957163 20080129 100842 PWSCB

REPS /PWS/LZYCAGF2F01

REPS /PWS/LZYCAGF2TOP

REPS /PWS/LZYCAGFF01

REPS /PWS/LZYCAGFTOP

REPS /PWS/MZYCA001F01

REPS /PWS/MZYCA001I01

REPS /PWS/MZYCA001TOP

REPS /PWS/MZYCA026F01

REPT /PWS/SAPLZYCAGF

REPT /PWS/SAPLZYCAGF2

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

Modificações efetuadas em FUNC /PWS/ZYCA_BASE_CALCULO_IMPOSTO

FUNCTION /pws/zyca_base_calculo_imposto.

  DATA: wa_irrf   TYPE /pws/zycat025,

        wa_cide   TYPE /pws/zycat025,

        wa_pis    TYPE /pws/zycat025,

        wa_cofins TYPE /pws/zycat025,

        wa_iss    TYPE /pws/zycat025,

        wa_iof    TYPE /pws/zycat025.

  DATA: v_pos          TYPE i,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_BASE_CALCULO_IMPOSTO

        w_prog         TYPE trdir-name,

* << Fim da exclusão

        v_calculo(140) TYPE c,

        v_chamada(50)  TYPE c.

  DATA: t_prog(150) TYPE c OCCURS 1000 WITH HEADER LINE.

  CLEAR: wa_irrf, wa_cide, wa_pis, wa_cofins, wa_iss, wa_iof, vl_base.

  READ TABLE t_zycat025 WITH KEY tpimp(3) = 'PIS'    INTO wa_pis.

  READ TABLE t_zycat025 WITH KEY tpimp(3) = 'ISS'    INTO wa_iss.

  READ TABLE t_zycat025 WITH KEY tpimp(3) = 'IOF'    INTO wa_iof.

  READ TABLE t_zycat025 WITH KEY tpimp(4) = 'IRRF'   INTO wa_irrf.

  READ TABLE t_zycat025 WITH KEY tpimp(4) = 'CIDE'   INTO wa_cide.

  READ TABLE t_zycat025 WITH KEY tpimp(6) = 'COFINS' INTO wa_cofins.

...

...

                                INTO v_calculo+v_pos SEPARATED BY space.

    ELSEIF v_calculo+v_pos(6) = 'VA_ISS'.

      IF NOT wa_iss-vlimpme > 0. RAISE valor_invalido. ENDIF.

      CLEAR v_calculo+v_pos(6).

      CONDENSE v_calculo+v_pos.

      CONCATENATE 'WA_ISS-VLIMPME' v_calculo+v_pos

                                INTO v_calculo+v_pos SEPARATED BY space.

    ELSEIF v_calculo+v_pos(6) = 'AL_ISS'.

      IF NOT wa_iss-aliqgera > 0.

        SELECT SINGLE aliq FROM /pws/zycat024 INTO wa_iss-aliqgera

* >> Início da exclusão: FUNCTION /PWS/ZYCA_BASE_CALCULO_IMPOSTO

                           WHERE tpimp = 'ISS'.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_BASE_CALCULO_IMPOSTO

                           WHERE tpimp = 'ISS'. "#EC *

* << Fim da inclusão

      ENDIF.

      IF NOT wa_iss-aliqgera > 0. RAISE valor_invalido. ENDIF.

      CLEAR v_calculo+v_pos(6).

      CONDENSE v_calculo+v_pos.

      CONCATENATE 'WA_ISS-ALIQGERA' v_calculo+v_pos

                                INTO v_calculo+v_pos SEPARATED BY space.

    ELSEIF v_calculo+v_pos(6) = 'AD_ISS'.

      IF NOT wa_iss-advalorem > 0.

        SELECT SINGLE aliq FROM /pws/zycat024 INTO wa_iss-advalorem

* >> Início da exclusão: FUNCTION /PWS/ZYCA_BASE_CALCULO_IMPOSTO

                           WHERE tpimp = 'ISS'.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_BASE_CALCULO_IMPOSTO

                           WHERE tpimp = 'ISS'. "#EC *

* << Fim da inclusão

      ENDIF.

      IF NOT wa_iss-advalorem > 0. RAISE valor_invalido. ENDIF.

      CLEAR v_calculo+v_pos(6).

      CONDENSE v_calculo+v_pos.

      CONCATENATE 'WA_ISS-ADVALOREM' v_calculo+v_pos

                                INTO v_calculo+v_pos SEPARATED BY space.

    ELSEIF v_calculo+v_pos(6) = 'BA_ISS'.

      IF NOT wa_iss-basecalc > 0. RAISE valor_invalido. ENDIF.

      CLEAR v_calculo+v_pos(6).

      CONDENSE v_calculo+v_pos.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_DEQUEUE_ZYCBT124

FUNCTION /PWS/ZYCA_DEQUEUE_ZYCBT124.

data: __seqta_tab like seqta occurs 1  with header line,

      __scope like ddenq_like-scope,

      __SYNCHRON LIKE DDENQ_LIKE-SYNCHRON.

__SYNCHRON = _SYNCHRON.

__scope = _scope.

DATA: BEGIN OF %A_zYCBT124,

            MANDT  LIKE /PWS/ZYCBT124-MANDT,

            NRSEQ LIKE /PWS/ZYCBT124-NRSEQ,

      END OF %A_zYCBT124.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_DEQUEUE_ZYCBT124

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_zYCBT124.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_DEQUEUE_ZYCBT124

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_zYCBT124."#EC CI_CCALL

* << Fim da inclusão

if not MANDT is initial.

   move MANDT to:

        %A_zYCBT124-MANDT.

endif.

IF NOT NRSEQ IS INITIAL OR

   NOT X_NRSEQ IS INITIAL.

   MOVE NRSEQ TO:

        %A_zYCBT124-NRSEQ.

endif.

__SEQTA_TAB-GNAME = '/PWS/ZYCBT124'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_DEQUEUE_ZYCBT128

FUNCTION /PWS/ZYCA_DEQUEUE_ZYCBT128.

data: __seqta_tab like seqta occurs 1  with header line,

      __scope like ddenq_like-scope,

      __SYNCHRON LIKE DDENQ_LIKE-SYNCHRON.

__SYNCHRON = _SYNCHRON.

__scope = _scope.

DATA: BEGIN OF %A_zYCBT128,

            MANDT  LIKE /PWS/ZYCBT128-MANDT,

            NRSEQ LIKE /PWS/ZYCBT128-NRSEQ,

      END OF %A_zYCBT128.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_DEQUEUE_ZYCBT128

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_zYCBT128.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_DEQUEUE_ZYCBT128

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_zYCBT128."#EC CI_CCALL

* << Fim da inclusão

if not MANDT is initial.

   move MANDT to:

        %A_zYCBT128-MANDT.

endif.

IF NOT NRSEQ IS INITIAL OR

   NOT X_NRSEQ IS INITIAL.

   MOVE NRSEQ TO:

        %A_zYCBT128-NRSEQ.

endif.

__SEQTA_TAB-GNAME = '/PWS/ZYCBT128'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_ENQUEUE_ZYCAR019

FUNCTION /PWS/ZYCA_ENQUEUE_ZYCAR019 .

data: __seqta_tab like seqta occurs 1  with header line,

      __scope like ddenq_like-scope,

      __wait like ddenq_like-waitflag.

__wait = _wait.

__scope = _scope.

DATA: BEGIN OF %A_ZYCAR019,

            MANDT  LIKE /PWS/ZYCBT124-MANDT,

            NRSEQ  LIKE /PWS/ZYCBT124-NRSEQ,

      END OF %A_ZYCAR019.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_ENQUEUE_ZYCAR019

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_ZYCAR019.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_ENQUEUE_ZYCAR019

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_ZYCAR019."#EC CI_CCALL

* << Fim da inclusão

if not MANDT is initial.

   move MANDT to:

        %A_ZYCAR019-MANDT.

endif.

IF NOT NRSEQ IS INITIAL OR

   NOT X_NRSEQ IS INITIAL.

   MOVE NRSEQ TO:

        %A_ZYCAR019-NRSEQ.

endif.

__SEQTA_TAB-GNAME = '/PWS/ZYCAR019'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_ENQUEUE_ZYCAR020

FUNCTION /PWS/ZYCA_ENQUEUE_ZYCAR020.

data: __seqta_tab like seqta occurs 1  with header line,

      __scope like ddenq_like-scope,

      __wait like ddenq_like-waitflag.

__wait = _wait.

__scope = _scope.

DATA: BEGIN OF %A_ZYCAR020,

            MANDT  LIKE /PWS/ZYCBT118-MANDT,

            NRSEQ  LIKE /PWS/ZYCBT118-NRSEQ,

      END OF %A_ZYCAR020.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_ENQUEUE_ZYCAR020

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_ZYCAR020.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_ENQUEUE_ZYCAR020

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_ZYCAR020."#EC CI_CCALL

* << Fim da inclusão

if not MANDT is initial.

   move MANDT to:

        %A_ZYCAR020-MANDT.

endif.

IF NOT NRSEQ IS INITIAL OR

   NOT X_NRSEQ IS INITIAL.

   MOVE NRSEQ TO:

        %A_ZYCAR020-NRSEQ.

endif.

__SEQTA_TAB-GNAME = '/PWS/ZYCAR020'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_ENQUEUE_ZYCBT124

FUNCTION /PWS/ZYCA_ENQUEUE_ZYCBT124.

data: __seqta_tab like seqta occurs 1  with header line,

      __scope like ddenq_like-scope,

      __wait like ddenq_like-waitflag.

__wait = _wait.

__scope = _scope.

DATA: BEGIN OF %A_zYCBT124,

            MANDT  LIKE /PWS/ZYCBT124-MANDT,

            NRSEQ LIKE /PWS/ZYCBT124-NRSEQ,

      END OF %A_zYCBT124.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_ENQUEUE_ZYCBT124

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_zYCBT124.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_ENQUEUE_ZYCBT124

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_zYCBT124."#EC CI_CCALL

* << Fim da inclusão

if not MANDT is initial.

   move MANDT to:

        %A_zYCBT124-MANDT.

endif.

IF NOT NRSEQ IS INITIAL OR

   NOT X_NRSEQ IS INITIAL.

   MOVE NRSEQ TO:

        %A_zYCBT124-NRSEQ.

endif.

__SEQTA_TAB-GNAME = '/PWS/ZYCBT124'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_ENQUEUE_ZYCBT128

FUNCTION /PWS/ZYCA_ENQUEUE_ZYCBT128.

data: __seqta_tab like seqta occurs 1  with header line,

      __scope like ddenq_like-scope,

      __wait like ddenq_like-waitflag.

__wait = _wait.

__scope = _scope.

DATA: BEGIN OF %A_zYCBT128,

            MANDT  LIKE /PWS/ZYCBT128-MANDT,

            NRSEQ LIKE /PWS/ZYCBT128-NRSEQ,

      END OF %A_zYCBT128.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_ENQUEUE_ZYCBT128

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_zYCBT128.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_ENQUEUE_ZYCBT128

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %A_zYCBT128."#EC CI_CCALL

* << Fim da inclusão

if not MANDT is initial.

   move MANDT to:

        %A_zYCBT128-MANDT.

endif.

IF NOT NRSEQ IS INITIAL OR

   NOT X_NRSEQ IS INITIAL.

   MOVE NRSEQ TO:

        %A_zYCBT128-NRSEQ.

endif.

__SEQTA_TAB-GNAME = '/PWS/ZYCBT128'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_FLAG_TEXTO

function /pws/zyca_flag_texto.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_FLAG_TEXTO

  tables: /pws/zyglt009.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_FLAG_TEXTO

  tables: /pws/zyglt009."#EC *

* << Fim da inclusão

  select single infotext from /pws/zyglt009 into v_flag_texto

                         where bukrs eq v_bukrs.

endfunction.

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_FB02

FUNCTION /pws/zyca_transacao_fb02.

  DATA:

    v_valut(10),

    v_zfbdt(10),

    v_newko(10)          TYPE c,

    v_newko_aux(10)      TYPE c,

    v_conta              LIKE lfb1-akont,

    v_tamanho(2)         TYPE n,

    v_string_credito     LIKE tbsl-faus1,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_FB02

    v_campo(40),

* << Fim da exclusão

    v_nrmsg              TYPE i VALUE 0,

    v_transacao(4)       TYPE c,

    v_mode               TYPE c,

    v_update             TYPE c,

    v_msgid              LIKE t100-arbgb,

    v_msgno              LIKE t100-msgnr.

  LOOP AT t_dados.

    CHECK t_dados-tcode = 'FB02'.

    IF ( t_dados-bukrs = space ).

      t_campo-mandt = t_dados-mandt.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_FB08

...

         IMPORTING

              v_year                 = v_date

         EXCEPTIONS

              variante_de_exercicio  = 1

              data_nao_encontrada    = 2

              empresa_nao_encontrada = 3

              period_in_not_valid    = 4

              period_not_assigned    = 5

              version_undefined      = 6

              OTHERS                 = 7.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_FB08

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    CHECK t_dados-tcode = 'FB08'.

    SELECT SINGLE * FROM /pws/zycbt007

                    WHERE bukrs EQ t_dados-bukrs.

    IF t_dados-stgrd = '01'.

      IF NOT /pws/zycbt007-percorr IS INITIAL.

        t_dados-stgrd = /pws/zycbt007-percorr.

      ENDIF.

    ELSEIF t_dados-stgrd = '02'.

      IF NOT /pws/zycbt007-perencer IS INITIAL.

        t_dados-stgrd = /pws/zycbt007-perencer.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_FB08A

...

        IMPORTING

              V_YEAR                 = v_date

        EXCEPTIONS

              VARIANTE_DE_EXERCICIO  = 1

              DATA_NAO_ENCONTRADA    = 2

              EMPRESA_NAO_ENCONTRADA = 3

              PERIOD_IN_NOT_VALID    = 4

              PERIOD_NOT_ASSIGNED    = 5

              VERSION_UNDEFINED      = 6

              OTHERS                 = 7.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_FB08A

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    check t_dados-tcode = 'FB08'.

select single * from /pws/zycbt007

                where bukrs eq t_dados-bukrs.

  if t_dados-stgrd = '01'.

    if not /pws/zycbt007-percorr is initial.

      t_dados-stgrd = /pws/zycbt007-percorr.

    endif.

  elseif t_dados-stgrd = '02'.

    if not /pws/zycbt007-perencer is initial.

      t_dados-stgrd = /pws/zycbt007-perencer.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_FBRA

...

        importing

              v_year                 = v_date

        EXCEPTIONS

              VARIANTE_DE_EXERCICIO  = 1

              DATA_NAO_ENCONTRADA    = 2

              EMPRESA_NAO_ENCONTRADA = 3

              PERIOD_IN_NOT_VALID    = 4

              PERIOD_NOT_ASSIGNED    = 5

              VERSION_UNDEFINED      = 6

              OTHERS                 = 7.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_FBRA

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    check t_dados-tcode = 'FBRA'.

    if ( t_dados-bukrs = space ).

      t_campo-mandt = t_dados-mandt.

      t_campo-campo = 'RF05R-BUKRS'.

      t_campo-descricao = text-021.

      append t_campo.

      raise campo_em_branco.

    endif.

    if ( t_dados-belnr = space ).

      t_campo-mandt = t_dados-mandt.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_FBV0

...

         IMPORTING

              v_year                 = v_date

         EXCEPTIONS

              variante_de_exercicio  = 1

              data_nao_encontrada    = 2

              empresa_nao_encontrada = 3

              period_in_not_valid    = 4

              period_not_assigned    = 5

              version_undefined      = 6

              OTHERS                 = 7.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_FBV0

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    CHECK t_dados-tcode = 'FBV0'.

    PERFORM bdc_screen USING 'SAPMF05V' '0100'.

    PERFORM bdc_field  USING:

           'RF05V-BELNR' t_dados-belnr,

           'RF05V-BUKRS' t_dados-bukrs,

           'RF05V-GJAHR' v_date,

           'BDC_OKCODE'  '/00'.

    PERFORM bdc_screen USING 'SAPLF040' '0700'.

    PERFORM bdc_field  USING:

           'BKPF-XBLNR'  t_dados-xblnr,

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_02A

...

         IMPORTING

              v_year                       = v_date

         EXCEPTIONS

              VARIANTE_DE_EXERCICIO        = 1

              DATA_NAO_ENCONTRADA          = 2

              EMPRESA_NAO_ENCONTRADA       = 3

              PERIOD_IN_NOT_VALID          = 4

              PERIOD_NOT_ASSIGNED          = 5

              VERSION_UNDEFINED            = 6

              OTHERS                       = 7.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02A

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    CHECK t_dados-tcode = 'F-02'.

    IF ( t_dados-bukrs = space ).

      t_campo-mandt = t_dados-mandt.

      t_campo-campo = 'BKPF-BUKRS'.

      t_campo-descricao = text-021.

      APPEND t_campo.

      RAISE campo_em_branco.

    ENDIF.

    IF ( t_dados-d_newko = space ).

      t_campo-mandt = t_dados-mandt.

...

...

         EXPORTING

              date                = t_dados-budat

              version             = v_periv

         IMPORTING

              period              = v_monat

         EXCEPTIONS

              period_in_not_valid = 1

              period_not_assigned = 2

              version_undefined   = 3

              OTHERS              = 4.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02A

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    v_gjahr = v_date.

    v_koart = 'S'.

    PERFORM check_periodo USING    v_koart

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                                   v_konto

                          CHANGING v_data_lanc_char

                                   v_ok.

    MOVE v_date TO v_gjahr.

...

...

      READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZTERM' chave = 'C'.

      IF sy-subrc <> 0.

        IF NOT t_dados-zterm IS INITIAL.

          PERFORM bdc_field USING 'BSEG-ZTERM' t_dados-zterm.

        ENDIF.

      ENDIF.

      IF v_tela = '0302'.

        CLEAR: lfa1, lfb1.

        SELECT SINGLE * FROM lfa1 INTO lfa1

          WHERE lifnr EQ t_dados-agkon.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02A

        SELECT SINGLE * FROM lfb1 INTO lfb1

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02A

       SELECT * FROM lfb1 up to 1 rows  INTO lfb1

* << Fim da inclusão

          WHERE lifnr EQ t_dados-agkon.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02A

       endselect.

* << Fim da inclusão

        IF NOT lfa1-xlfza IS INITIAL OR NOT lfb1-xlfzb IS INITIAL.

          IF sy-index = 1 OR sy-index = 0.

            PERFORM bdc_field  USING

        'BSEG-EMPFB' t_dados-bcorec.

          ENDIF.

        ENDIF.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_02R

FUNCTION /pws/zyca_transacao_f_02r.

  DATA: t_credito_aux LIKE t_credito.

  DATA:

    v_string_credito       LIKE tbsl-faus1,

    v_string_debito        LIKE tbsl-faus1,

    v_data_doc_char(10)    TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02R

    v_data_conv_char(10)   TYPE c,

* << Fim da exclusão

    v_database(10)         TYPE c,

    v_valut(10)            TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02R

    v_data_conver_char(10) TYPE c,

    v_data_val_char(10)    TYPE c,

* << Fim da exclusão

    v_data_lanc_char(10)   TYPE c,

    v_data_lanc_char2(10)  TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02R

    v_data_venc_char(10)   TYPE c,

* << Fim da exclusão

    v_base_char(16)        TYPE c,

    v_kursf(9)             TYPE c,

    v_wrbtr(16)            TYPE c,

    v_dmbtr(16)            TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02R

    v_wrbtr1(16)           TYPE c,

    v_chave_debito         LIKE tbsl-bschl VALUE '40',

* << Fim da exclusão

    v_nrmsg                TYPE i VALUE 0,

    v_transacao(4)         TYPE c,

    v_mode                 TYPE c,

    v_update               TYPE c,

    v_msgid                LIKE t100-arbgb,

    v_msgno                LIKE t100-msgnr,

    v_koart                LIKE t001b-mkoar,

    v_ok(1)                VALUE 'N',

    v_monat                LIKE t001b-frpe1,

    v_bukrs                LIKE t001-bukrs,

    v_gjahr                LIKE t001b-frye1,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02R

    v_dconta               LIKE /pws/zycbe033-d_newko,

* << Fim da exclusão

    v_conta                LIKE lfb1-akont,

    v_tabix                LIKE sy-tabix,

    v_tabix_aux            LIKE sy-tabix,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02R

    v_skfbt                LIKE bseg-skfbt VALUE 0,

* << Fim da exclusão

    v_newko(10)            TYPE c,

    v_newko_aux(10)        TYPE c,

    v_tamanho(2)           TYPE n,

    v_pep                  LIKE prps-posid,

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_04

FUNCTION /PWS/ZYCA_TRANSACAO_F_04 .

  data:

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

    v_tela(4),

    v_tela2(4),

    v_cont(2)           type n,

    v_belnr        like /pws/zycbt036-belnr,

    v_campo(15),

    v_campo2(15),

* << Fim da exclusão

    v_bldat(10),

    v_budat(10),

    v_valut(10),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

    v_dtdocto(10),

* << Fim da exclusão

    v_kursf(9),

    v_xpos(14),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

    v_xpos_budat(14),

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

    v_xpos_budat(14), "#EC NEEDED

* << Fim da inclusão

    v_xpos_comp(14),

    v_string_debito      like tbsl-faus1,

    v_chave_debito       like tbsl-bschl value '40',

    v_chave_credito      like tbsl-bschl value '50',

    v_newko              like skb1-saknr,

    v_nrmsg              type i value 0,

    v_transacao(4)       type c,

    v_mode               type c,

    v_update             type c,

    v_msgid              like t100-arbgb,

    v_msgno              like t100-msgnr,

    v_koart              like t001b-mkoar,

    v_ok(1)              value 'N',

    v_monat              like t001b-frpe1,

    v_bukrs              like t001-bukrs,

    v_date               like t009b-bdatj,

    v_periv(2),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

    v_periodo(2),

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

    v_periodo(2),"#EC NEEDED

* << Fim da inclusão

    v_gjahr              like t001b-frye1,

    v_xpos1(2)           type n,

    v_xpos2(2)           type n,

    v_xpos_awkey(14),

    v_wrbtr(16)          type c,

    v_konto              like T001B-VKONT.

  data: itab_t041t like t041t occurs 0 with header line.

  move t_zycbt036[] to itab_zycbt036[].

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

  select selps

* << Fim da inclusão

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

  select single selps from t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

    from t021r

      up to 1 rows

* << Fim da inclusão

    into  v_xpos1

    where event = 'SL-AG'

      and feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

  endselect .

* << Fim da inclusão

  add 1 to v_xpos1.

  shift v_xpos1 left deleting leading  '0'.

  concatenate 'RF05A-XPOS1(' v_xpos1 ')' into v_xpos.

  clear v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

  select single selps from t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

  select  selps

    from t021r

      up to 1 rows

* << Fim da inclusão

    into  v_xpos1

    where event = 'SU-AG'

      and feldn = 'BUDAT'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

  endselect .

* << Fim da inclusão

  shift v_xpos1 left deleting leading  '0'.

  concatenate 'RF05A-XPOS1(' v_xpos1 ')' into v_xpos_budat.

  clear v_xpos1.

  select * from t041t into table itab_t041t

...

...

        IMPORTING

              V_YEAR                 = v_date

        EXCEPTIONS

              VARIANTE_DE_EXERCICIO  = 1

              DATA_NAO_ENCONTRADA    = 2

              EMPRESA_NAO_ENCONTRADA = 3

              PERIOD_IN_NOT_VALID    = 4

              PERIOD_NOT_ASSIGNED    = 5

              VERSION_UNDEFINED      = 6

              OTHERS                 = 7.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    check t_dados-tcode = 'F-04'.

    if ( t_dados-bukrs = space ).

      t_campo-mandt = t_dados-mandt.

      t_campo-campo = 'BKPF-BUKRS'.

      t_campo-descricao = text-021.

      append t_campo.

      raise campo_em_branco.

    endif.

    if ( t_dados-d_newko = space ).

      t_campo-mandt = t_dados-mandt.

...

...

         exporting

              date                = t_dados-budat

              version             = v_periv

         importing

              period              = v_monat

         exceptions

              period_in_not_valid = 1

              period_not_assigned = 2

              version_undefined   = 3

              others              = 4.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    v_gjahr = v_date.

    v_koart = 'S'.

    perform check_periodo using    v_koart

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                                   v_konto

                          changing v_budat

                                   v_ok.

    move v_date to v_gjahr.

...

...

    perform bdc_screen using 'SAPMF05A'   '0731'.

    perform bdc_field using:

            'RF05A-SEL01(1)' t_dados-belnr,

            'BDC_OKCODE'     '=PA'.

    perform bdc_screen using 'SAPDF05X'    '3100'.

    perform bdc_field  using 'BDC_SUBSCR'  'SAPDF05X'.

    perform bdc_field  using 'BDC_CURSOR'  'RF05A-ABPOS'.

    perform bdc_field  using 'RF05A-ABPOS' '1'.

    perform bdc_field  using 'BDC_OKCODE'  '=OMX'.

    clear v_xpos2.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

    select single selps from t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

    select  selps

      from t021r

        up to 1 rows

* << Fim da inclusão

      into  v_xpos2

      where event = 'SU-AG'

        and feldn = 'AWKEY'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04

    endselect.

* << Fim da inclusão

    if sy-subrc ne 0.

      clear v_xpos_awkey.

    else.

      shift v_xpos2 left deleting leading  '0'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_04A

FUNCTION /PWS/ZYCA_TRANSACAO_F_04A .

  data:

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

    v_tela(4),

    v_tela2(4),

    v_cont(2)           type n,

    v_belnr        like /pws/zycbt036-belnr,

    v_campo(15),

    v_campo2(15),

* << Fim da exclusão

    v_bldat(10),

    v_budat(10),

    v_valut(10),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

    v_dtdocto(10),

* << Fim da exclusão

    v_kursf(9),

    v_xpos(14),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

    v_xpos_budat(14),

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

    v_xpos_budat(14), "#EC NEEDED

* << Fim da inclusão

    v_xpos_comp(14),

    v_string_debito      like tbsl-faus1,

    v_chave_debito       like tbsl-bschl value '40',

    v_chave_credito      like tbsl-bschl value '50',

    v_newko              like skb1-saknr,

    v_nrmsg              type i value 0,

    v_transacao(4)       type c,

    v_mode               type c,

    v_update             type c,

    v_msgid              like t100-arbgb,

    v_msgno              like t100-msgnr,

    v_koart              like t001b-mkoar,

    v_ok(1)              value 'N',

    v_monat              like t001b-frpe1,

    v_bukrs              like t001-bukrs,

    v_date               like t009b-bdatj,

    v_periv(2),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

    v_periodo(2),

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

    v_periodo(2),  "#EC NEEDED

* << Fim da inclusão

    v_gjahr              like t001b-frye1,

    v_xpos1(2)           type n,

    v_xpos2(2)           type n,

    v_xpos_awkey(14),

    v_wrbtr(16)          type c,

    v_konto              like T001B-VKONT.

  data: itab_t041t like t041t occurs 0 with header line.

  move t_zycbt036[] to itab_zycbt036[].

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

  select selps

* << Fim da inclusão

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

  select single selps from t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

    from t021r

      up to 1 rows

* << Fim da inclusão

    into  v_xpos1

    where event = 'SL-AG'

      and feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

  endselect .

* << Fim da inclusão

  add 1 to v_xpos1.

  shift v_xpos1 left deleting leading  '0'.

  concatenate 'RF05A-XPOS1(' v_xpos1 ')' into v_xpos.

  clear v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

  select single selps from t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

  select selps

    from t021r

      up to 1 rows

* << Fim da inclusão

    into  v_xpos1

    where event = 'SU-AG'

      and feldn = 'BUDAT'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

  endselect .

* << Fim da inclusão

  shift v_xpos1 left deleting leading  '0'.

  concatenate 'RF05A-XPOS1(' v_xpos1 ')' into v_xpos_budat.

  clear v_xpos1.

  select * from t041t into table itab_t041t

...

...

         importing

              v_year  = v_date

         EXCEPTIONS

              VARIANTE_DE_EXERCICIO  = 1

              DATA_NAO_ENCONTRADA    = 2

              EMPRESA_NAO_ENCONTRADA = 3

              PERIOD_IN_NOT_VALID    = 4

              PERIOD_NOT_ASSIGNED    = 5

              VERSION_UNDEFINED      = 6

              OTHERS                 = 7.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    check t_dados-tcode = 'F-04'.

    if ( t_dados-bukrs = space ).

      t_campo-mandt = t_dados-mandt.

      t_campo-campo = 'BKPF-BUKRS'.

      t_campo-descricao = text-021.

      append t_campo.

      raise campo_em_branco.

    endif.

    if ( t_dados-d_newko = space ).

      t_campo-mandt = t_dados-mandt.

...

...

         exporting

              date                = t_dados-budat

              version             = v_periv

         importing

              period              = v_monat

         exceptions

              period_in_not_valid = 1

              period_not_assigned = 2

              version_undefined   = 3

              others              = 4.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    v_gjahr = v_date.

    v_koart = 'S'.

    perform check_periodo using    v_koart

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                                   v_konto

                          changing v_budat

                                   v_ok.

    move v_date to v_gjahr.

...

...

    perform bdc_field using:

            'RF05A-SEL01(1)' t_dados-belnr,

            'RF05A-SEL01(2)' t_dados-belnr2,

            'BDC_OKCODE'     '=PA'.

    perform bdc_screen using 'SAPDF05X'    '3100'.

    perform bdc_field  using 'BDC_SUBSCR'  'SAPDF05X'.

    perform bdc_field  using 'BDC_CURSOR'  'RF05A-ABPOS'.

    perform bdc_field  using 'RF05A-ABPOS' '1'.

    perform bdc_field  using 'BDC_OKCODE'  '=OMX'.

    clear v_xpos2.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

    select single selps from t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

    select selps

      from t021r

        up to 1 rows

* << Fim da inclusão

      into  v_xpos2

      where event = 'SU-AG'

        and feldn = 'AWKEY'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_04A

  endselect .

* << Fim da inclusão

    if sy-subrc ne 0.

      clear v_xpos_awkey.

    else.

      shift v_xpos2 left deleting leading  '0'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_30

...

    v_msgno              like t100-msgnr,

    v_koart              like t001b-mkoar,

    v_ok(1)              value 'N',

    v_monat              like t001b-frpe1,

    v_bukrs              like t001-bukrs,

    v_date               like t009b-bdatj,

    v_gjahr              like t001b-frye1,

    v_xpos_belnr(2) type n,

    v_selecao(2)    TYPE N,

    v_konto              like T001B-VKONT.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30

  data: itab_t041t like t041t occurs 0 with header line.

* << Fim da exclusão

  data: wa_zycbt089 like /pws/zycbt089.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30

  select single selps from t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30

  select selps

    from t021r

      up to 1 rows

* << Fim da inclusão

    into  v_xpos_belnr

    where event = 'SL-AG'

      and feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30

  endselect.

* << Fim da inclusão

  add 1 to v_xpos_belnr.

  move t_zycbt036[] to itab_zycbt036[].

  loop at t_dados.

    select single * from /pws/zycbt089 into  wa_zycbt089

           where bukrs eq t_dados-bukrs.

    CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

      EXPORTING

        v_bukrs                      = t_dados-bukrs

        v_date                       = t_dados-budat

      IMPORTING

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_30R

FUNCTION /pws/zyca_transacao_f_30r .

  DATA:

    v_tela(4),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

    v_tela2(4),

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

    v_tela2(4),  "#EC NEEDED

* << Fim da inclusão

    v_cont(2) TYPE n,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

    v_belnr   LIKE /pws/zycbt036-belnr,

* << Fim da exclusão

    v_campo(15),

    v_bldat(10),

    v_budat(10),

    v_valut(10),

    v_kursf(9),

    v_xpos(15),

    v_xpos_budat(15),

    v_xpos_comp(15),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

    v_xpos_buzei(15),

* << Fim da exclusão

    v_xpos_awkey(15),

    v_string_debito      LIKE tbsl-faus1,

    v_string_credito     LIKE tbsl-faus1,

    v_chave_debito       LIKE tbsl-bschl VALUE '40',

    v_agkon              LIKE skb1-saknr,

    v_nrmsg              TYPE i VALUE 0,

    v_transacao(4)       TYPE c,

    v_mode               TYPE c,

    v_update             TYPE c,

    v_msgid              LIKE t100-arbgb,

...

...

    v_dmbtr(16),

    v_cconta             LIKE /pws/zycbe033-d_newko,

    v_periv(2),

    v_periodo(2),

    v_dtdocto(10),

    v_zfbdt(10),

    v_xpos1(2) TYPE n,

    v_xpos_belnr(2) TYPE n,

    v_selecao(2)    TYPE n,

    v_konto              LIKE t001b-vkont.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

  DATA: itab_t041t LIKE t041t OCCURS 0 WITH HEADER LINE.

* << Fim da exclusão

  DATA: wa_zycbt089 LIKE /pws/zycbt089.

  MOVE t_zycbt036[] TO itab_zycbt036[].

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

  SELECT  selps

    FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos1

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

  endselect .

* << Fim da inclusão

  ADD 1 TO v_xpos1.

  SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

  CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

  SELECT selps

    FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos_belnr

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

  endselect .

* << Fim da inclusão

  ADD 1 TO v_xpos_belnr.

  LOOP AT t_dados.

    SELECT SINGLE * FROM /pws/zycbt089 INTO  wa_zycbt089

           WHERE bukrs EQ t_dados-bukrs.

...

...

        IMPORTING

              V_YEAR                 = v_date

        EXCEPTIONS

              VARIANTE_DE_EXERCICIO  = 1

              DATA_NAO_ENCONTRADA    = 2

              EMPRESA_NAO_ENCONTRADA = 3

              PERIOD_IN_NOT_VALID    = 4

              PERIOD_NOT_ASSIGNED    = 5

              VERSION_UNDEFINED      = 6

              OTHERS                 = 7.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    CHECK t_dados-tcode = 'F-30'.

    IF ( t_dados-bukrs = space ).

      t_campo-mandt = t_dados-mandt.

      t_campo-campo = 'BKPF-BUKRS'.

      t_campo-descricao = text-021.

      APPEND t_campo.

      RAISE campo_em_branco.

    ENDIF.

    IF ( t_dados-agkon = space ).

      t_campo-mandt = t_dados-mandt.

...

...

             t_dados-newbs NE '31' AND

             t_dados-newbs NE '40' ).

      v_chave_debito = t_dados-newbs.

      SELECT SINGLE akont FROM knb1

        INTO knb1-akont

        WHERE kunnr = t_dados-d_newko

          AND bukrs = t_dados-bukrs.

      SELECT SINGLE plcontas FROM /pws/zycbt007

             INTO /pws/zycbt007-plcontas

             WHERE bukrs EQ t_dados-bukrs.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

      SELECT SINGLE skont FROM t074

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

      SELECT skont

        FROM t074

          up to 1 rows

* << Fim da inclusão

        INTO v_cconta

        WHERE ktopl = /pws/zycbt007-plcontas

          AND koart = 'D'

          AND hkont = knb1-akont.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

      endselect .

* << Fim da inclusão

      PERFORM determina_string USING v_chave_debito

                                   t_dados-bukrs

                                   v_cconta

...

...

         EXPORTING

              date                = t_dados-budat

              version             = v_periv

         IMPORTING

              period              = v_monat

         EXCEPTIONS

              period_in_not_valid = 1

              period_not_assigned = 2

              version_undefined   = 3

              OTHERS              = 4.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    v_gjahr = v_date.

    v_koart = 'D'.

    PERFORM check_periodo USING    v_koart

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                                   v_konto

                          CHANGING v_budat

                                   v_ok.

    MOVE v_date TO v_gjahr.

...

...

    ENDLOOP.

    PERFORM bdc_field USING 'BDC_OKCODE'  '=PA'.

    IF t_dados-agkoa = 'S'.

      v_tela = '3100'.

      v_tela2 = '0300'.

    ELSE.

      v_tela = '3100'.

      v_tela2 = '0301'.

    ENDIF.

    CLEAR: v_xpos1, v_xpos_awkey.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

    SELECT selps

      FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos1

      WHERE event = 'SU-AG'

        AND feldn = 'AWKEY'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

    endselect .

* << Fim da inclusão

    IF sy-subrc = 0.

      SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

      CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_awkey.

    ENDIF.

...

...

          PERFORM bdc_field USING v_campo  itab_zycbt036-awkey.

          IF v_cont = 5.

            PERFORM bdc_field  USING 'BDC_OKCODE' '=SU1'.

            PERFORM bdc_screen USING 'SAPDF05X'   '0731'.

            PERFORM bdc_field USING 'BDC_CURSOR'  'RF05A-SEL01(01)'.

            CLEAR v_cont.

          ENDIF.

        ENDLOOP.

      ELSE.

        CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

        SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

        SELECT selps

         FROM t021r

            up to 1  rows

* << Fim da inclusão

          INTO  v_xpos1

          WHERE event = 'SU-AG'

            AND feldn = 'BUDAT'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_30R

        endselect .

* << Fim da inclusão

        IF sy-subrc = 0.

          SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

          CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_budat.

          WHILE v_xpos1 > 10.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_51

FUNCTION /pws/zyca_transacao_f_51.

  DATA:

    v_cont(2) TYPE n,

    v_campo(15),

    v_campo2(15),

    v_bldat(10),

    v_budat(10),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

    v_wrbtr(16),

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

    v_wrbtr(16),   "#EC NEEDED

* << Fim da inclusão

    v_kursf(9),

    v_xpos(15),

    v_xpos_budat(15),

    v_xpos_comp(15),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

    v_taxam              LIKE bkpf-kursf,

* << Fim da exclusão

    v_nrmsg              TYPE i VALUE 0,

    v_transacao(4)       TYPE c,

    v_mode               TYPE c,

...

...

    v_msgid              LIKE t100-arbgb,

    v_msgno              LIKE t100-msgnr,

    v_koart              LIKE t001b-mkoar,

    v_ok(1)              VALUE 'N',

    v_monat              LIKE t001b-frpe1,

    v_bukrs              LIKE t001-bukrs,

    v_gjahr              LIKE t001b-frye1,

    v_periv(2),

    v_periodo(2),

    v_date               LIKE t009b-bdatj,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

    v_valut(10),

* << Fim da exclusão

    v_xpos1(2) TYPE n,

    v_xpos2(2)           TYPE n,

    v_xpos_awkey(15),

    v_dtdocto(10),

    v_xpos_belnr(2)      TYPE n,

    v_selecao(2)         TYPE n,

    v_konto              LIKE t001b-vkont,

    v_fdtdoc             TYPE /pws/zycbt007-fdtdoc,

    v_reg                TYPE i.

  DATA: itab_t041t LIKE t041t OCCURS 0 WITH HEADER LINE.

  DATA: wa_zycbt089 LIKE /pws/zycbt089.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

  SELECT selps FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos1

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

  endselect.

* << Fim da inclusão

  ADD 1 TO v_xpos1.

  SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

  CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

  SELECT selps FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos_belnr

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

  endselect.

* << Fim da inclusão

  ADD 1 TO v_xpos_belnr.

  CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

  SELECT selps FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos1

    WHERE event = 'SU-AG'

      AND feldn = 'BUDAT'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

  endselect.

* << Fim da inclusão

  SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

  CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_budat.

  CLEAR v_xpos1.

  SELECT * FROM t041t INTO TABLE itab_t041t

...

...

         IMPORTING

              v_year                 = v_date

         EXCEPTIONS

              variante_de_exercicio  = 1

              data_nao_encontrada    = 2

              empresa_nao_encontrada = 3

              period_in_not_valid    = 4

              period_not_assigned    = 5

              version_undefined      = 6

              OTHERS                 = 7.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    CHECK t_dados-tcode = 'F-51'.

    IF ( t_dados-bukrs = space ).

      t_campo-mandt = t_dados-mandt.

      t_campo-campo = 'BKPF-BUKRS'.

      t_campo-descricao = text-021.

      APPEND t_campo.

      RAISE campo_em_branco.

    ENDIF.

    IF ( t_dados-d_newko = space ).

      t_campo-mandt = t_dados-mandt.

...

...

         EXPORTING

              date                = t_dados-budat

              version             = v_periv

         IMPORTING

              period              = v_monat

         EXCEPTIONS

              period_in_not_valid = 1

              period_not_assigned = 2

              version_undefined   = 3

              OTHERS              = 4.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    v_gjahr = v_date.

    v_koart = 'K'.

    PERFORM check_periodo USING    v_koart

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                                   v_konto

                          CHANGING v_budat

                                   v_ok.

    MOVE v_monat+1(2) TO v_periodo.

...

...

        ADD 1 TO v_cont.

        CONCATENATE 'RF05A-SEL01(' v_cont ')' INTO v_campo.

        PERFORM bdc_field USING v_campo t_zycbt036-belnr.

        IF v_cont = 5.

          CLEAR v_cont.

          PERFORM bdc_field USING: 'BDC_OKCODE' '/00'.

          PERFORM bdc_screen USING 'SAPMF05A'    '0731'.

        ENDIF.

      ENDLOOP.

      PERFORM bdc_field USING 'BDC_OKCODE' '=SLK'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

      SELECT  selps FROM t021r

* << Fim da inclusão

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

      SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

          up to 1 rows

* << Fim da inclusão

        INTO  v_xpos_belnr

        WHERE event = 'SL-AG'

          AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

      endselect.

* << Fim da inclusão

      ADD 1 TO v_xpos_belnr.

      IF v_selecao GT v_xpos_belnr  .

        SHIFT v_xpos_belnr LEFT DELETING LEADING  '0'.

        PERFORM bdc_screen USING 'SAPMF05A' '0710'.

...

...

          PERFORM bdc_screen USING 'SAPDF05X'   '0732'.

          PERFORM bdc_field USING 'BDC_CURSOR'  'RF05A-VONDT(01)'.

          CLEAR v_cont.

        ENDIF.

      ENDLOOP.

      PERFORM bdc_field  USING 'BDC_OKCODE' '=GO'.

    ENDIF.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING: 'BDC_OKCODE' '=OMX'.

    CLEAR v_xpos2.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

    SELECT selps FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos2

      WHERE event = 'SU-AG'

        AND feldn = 'AWKEY'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51

    endselect.

* << Fim da inclusão

    IF sy-subrc NE 0.

      CLEAR v_xpos_awkey.

    ELSE.

      SHIFT v_xpos2 LEFT DELETING LEADING  '0'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_51B

FUNCTION /pws/zyca_transacao_f_51b.

  DATA:

    v_cont(2) TYPE n,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

    v_tabix   LIKE sy-tabix,

* << Fim da exclusão

    v_campo(15),

    v_bldat(10),

    v_budat(10),

    v_wrbtr(16),

    v_dmbtr(16),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

    v_residuo(15),

* << Fim da exclusão

    v_kursf(9),

    v_xpos(2)            TYPE n,

    v_xpos1(2)           TYPE n,

    v_xpos_awkey(15),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

    v_xpos_buzei(15),

* << Fim da exclusão

    v_xpos_budat(15),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

    v_taxam              LIKE bkpf-kursf,

* << Fim da exclusão

    v_nrmsg              TYPE i VALUE 0,

    v_transacao(4)       TYPE c,

    v_mode               TYPE c,

    v_update             TYPE c,

    v_msgid              LIKE t100-arbgb,

    v_msgno              LIKE t100-msgnr,

    v_koart              LIKE t001b-mkoar,

    v_ok(1)              VALUE 'N',

    v_monat              LIKE t001b-frpe1,

    v_bukrs              LIKE t001-bukrs,

    v_gjahr              LIKE t001b-frye1,

    v_zfbdt(10)          TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

    v_valut(10),

    v_data_val_char(10)  TYPE c,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

    v_data_val_char(10)  TYPE c,"#EC NEEDED

* << Fim da inclusão

    v_dtdocto(10),

    v_xpos_belnr(2) TYPE n,

    v_selecao(2)    TYPE n,

    v_fdtdoc             TYPE /pws/zycbt007-fdtdoc,

    v_konto              LIKE t001b-vkont.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

  DATA: itab_t041t LIKE t041t OCCURS 0 WITH HEADER LINE.

* << Fim da exclusão

  DATA: wa_zycbt089 LIKE /pws/zycbt089.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

  SELECT selps

    FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

  endselect .

* << Fim da inclusão

  ADD 1 TO v_xpos.

  CONCATENATE 'RF05A-XPOS1(' v_xpos ')' INTO v_campo.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

  SELECT selps

    FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos_belnr

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

  endselect .

* << Fim da inclusão

  ADD 1 TO v_xpos_belnr.

  LOOP AT t_dados.

    SELECT SINGLE * FROM /pws/zycbt089 INTO  wa_zycbt089

           WHERE bukrs EQ t_dados-bukrs.

...

...

      ENDLOOP.

      PERFORM bdc_field USING:

        'BDC_OKCODE'     '=PA'.

    ENDIF.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING: 'BDC_OKCODE' 'DBR'.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING 'BDC_CURSOR'  'DF05B-PSDIF(01)'.

    PERFORM bdc_field USING 'BDC_OKCODE'  '=OMX'.

    CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

    SELECT selps

      FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos1

      WHERE event = 'SU-AG'

        AND feldn = 'AWKEY'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

    endselect.

* << Fim da inclusão

    IF sy-subrc NE 0.

      CLEAR v_xpos_awkey.

    ELSE.

      SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

...

...

        IF v_cont = 5.

          PERFORM bdc_field  USING 'BDC_OKCODE' '=SU1'.

          PERFORM bdc_screen USING 'SAPDF05X'   '0731'.

          PERFORM bdc_field USING 'BDC_CURSOR'  'RF05A-SEL01(01)'.

          CLEAR v_cont.

        ENDIF.

      ENDLOOP.

      PERFORM bdc_field  USING 'BDC_OKCODE' '=GO'.

    ELSE.

      CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

      SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

      SELECT selps

        FROM t021r

          up to 1 rows

* << Fim da inclusão

        INTO  v_xpos1

        WHERE event = 'SU-AG'

          AND feldn = 'BUDAT'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51B

      endselect .

* << Fim da inclusão

      SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

      CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_budat.

      PERFORM bdc_screen USING 'SAPDF05X'   '3100'.

      PERFORM bdc_field  USING 'BDC_CURSOR' 'RF05A-ABPOS'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_51C

FUNCTION /pws/zyca_transacao_f_51c.

  DATA:

    v_cont(2) TYPE n,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

    v_tabix   LIKE sy-tabix,

* << Fim da exclusão

    v_campo(15),

    v_bldat(10),

    v_budat(10),

    v_wrbtr(16),

    v_dmbtr(16),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

    v_residuo(15),

* << Fim da exclusão

    v_kursf(9),

    v_xpos(2)            TYPE n,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

    v_taxam              LIKE bkpf-kursf,

* << Fim da exclusão

    v_nrmsg              TYPE i VALUE 0,

    v_transacao(4)       TYPE c,

    v_mode               TYPE c,

    v_update             TYPE c,

    v_msgid              LIKE t100-arbgb,

    v_msgno              LIKE t100-msgnr,

    v_koart              LIKE t001b-mkoar,

    v_ok(1)              VALUE 'N',

    v_monat              LIKE t001b-frpe1,

    v_bukrs              LIKE t001-bukrs,

    v_gjahr              LIKE t001b-frye1,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

    v_valut(10),

    v_data_val_char(10)  TYPE c,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

    v_data_val_char(10)  TYPE c,"#EC NEEDED

* << Fim da inclusão

    v_xpos1(2)           TYPE n,

    v_xpos_awkey(15),

    v_zfbdt(10)          TYPE c,

    v_xpos_belnr(2) TYPE n,

    v_selecao(2)    TYPE n,

    v_fdtdoc             TYPE /pws/zycbt007-fdtdoc,

    v_konto              LIKE t001b-vkont.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

  DATA: itab_t041t LIKE t041t OCCURS 0 WITH HEADER LINE.

* << Fim da exclusão

  DATA: wa_zycbt089 LIKE /pws/zycbt089.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

  SELECT selps

    FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos_belnr

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

  endselect .

* << Fim da inclusão

  ADD 1 TO v_xpos_belnr.

  LOOP AT t_dados.

    SELECT SINGLE * FROM /pws/zycbt089 INTO  wa_zycbt089

           WHERE bukrs EQ t_dados-bukrs.

    CHECK t_dados-tcode = 'F-51'.

    IF ( t_dados-bukrs = space ).

      t_campo-mandt = t_dados-mandt.

      t_campo-campo = 'BKPF-BUKRS'.

      t_campo-descricao = text-021.

      APPEND t_campo.

...

...

      ENDIF.

    ENDLOOP.

    PERFORM bdc_field USING:

      'BDC_OKCODE'     '=PA'.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING: 'BDC_OKCODE' 'DBR'.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING 'BDC_CURSOR'  'DF05B-PSDIF(01)'.

    PERFORM bdc_field USING 'BDC_OKCODE'  '=OMX'.

    CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

    SELECT selps

      FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos1

      WHERE event = 'SU-AG'

        AND feldn = 'AWKEY'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

  endselect .

* << Fim da inclusão

    IF sy-subrc NE 0.

      CLEAR v_xpos_awkey.

    ELSE.

      SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

...

...

          PERFORM bdc_screen USING 'SAPDF05X'   '0731'.

          PERFORM bdc_field USING 'BDC_CURSOR'  'RF05A-SEL01(01)'.

          CLEAR v_cont.

        ENDIF.

      ENDLOOP.

      PERFORM bdc_field  USING 'BDC_OKCODE' '=GO'.

    ENDIF.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING: 'BDC_OKCODE' '=OMX'.

    CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

    SELECT selps

      FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos1

      WHERE event = 'SU-AG'

        AND feldn = 'ZUONR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51C

  endselect .

* << Fim da inclusão

    SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

    CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_awkey.

    PERFORM bdc_screen USING 'SAPDF05X'   '3100'.

    PERFORM bdc_field  USING 'BDC_CURSOR' 'RF05A-ABPOS'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_51D

FUNCTION /PWS/ZYCA_TRANSACAO_F_51D.

  data:

    v_cont(2) type n,

    v_campo(15),

    v_bldat(10),

    v_budat(10),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51D

    v_wrbtr(16),

* << Fim da exclusão

    v_kursf(9),

    v_xpos(15),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51D

    v_taxam              like bkpf-kursf,

* << Fim da exclusão

    v_nrmsg              type i value 0,

    v_transacao(4)       type c,

    v_mode               type c,

    v_update             type c,

    v_msgid              like t100-arbgb,

    v_msgno              like t100-msgnr,

    v_koart              like t001b-mkoar,

    v_ok(1)              value 'N',

    v_monat              like t001b-frpe1,

    v_bukrs              like t001-bukrs,

    v_gjahr              like t001b-frye1,

    v_date               like T009B-BDATJ,

    v_periv(2),

    v_periodo(2),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51D

    v_valut(10),

* << Fim da exclusão

    v_xpos1(2) type n,

    v_xpos_comp(15),

    v_xpos_belnr(2) type n,

    v_selecao(2)    TYPE N,

    v_konto              like T001B-VKONT.

  data: itab_t041t like t041t occurs 0 with header line.

  data: wa_zycbt089 like /pws/zycbt089.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51D

   select single selps from t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51D

   select selps from t021r

       up to 1 rows

* << Fim da inclusão

     into  v_xpos1

     where event = 'SL-AG'

       and feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51D

  endselect.

* << Fim da inclusão

     add 1 to v_xpos1.

  shift v_xpos1 left deleting leading  '0'.

  concatenate 'RF05A-XPOS1(' v_xpos1 ')' into v_xpos.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51D

  select single selps from t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51D

  select selps from t021r

      up to 1 rows

* << Fim da inclusão

    into  v_xpos_belnr

    where event = 'SL-AG'

      and feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51D

  endselect.

* << Fim da inclusão

  add 1 to v_xpos_belnr.

  clear v_xpos1.

  select * from t041t into table itab_t041t

       where spras = sy-langu.

...

...

         EXPORTING

              date                = t_dados-budat

              version             = v_periv

         IMPORTING

              period              = v_monat

         EXCEPTIONS

              period_in_not_valid = 1

              period_not_assigned = 2

              version_undefined   = 3

              OTHERS              = 4.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51D

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    v_gjahr = v_date.

    v_koart = 'K'.

      perform check_periodo using    v_koart

                                     v_monat

                                     v_bukrs

                                     v_gjahr

                                     v_konto

                            changing v_budat

                                     v_ok.

    move v_date to v_gjahr.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_51I

FUNCTION /pws/zyca_transacao_f_51i.

  DATA:

    v_cont(2) TYPE n,

    v_campo(15),

    v_string_debito      LIKE tbsl-faus1,

    v_string_credito     LIKE tbsl-faus1,

    v_data_doc_char(10)  TYPE c,

    v_data_lanc_char(10) TYPE c,

    v_data_val_char(10)  TYPE c,

    v_data_conv_char(10) TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

    v_data_base_char(10) TYPE c,

* << Fim da exclusão

    v_kursf(9)           TYPE c,

    v_wrbtr(16)          TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

    v_wrbtr1(16)         TYPE c,

    v_sel03              LIKE rf05a-sel01,

* << Fim da exclusão

    v_chave_debito       LIKE tbsl-bschl VALUE '31',

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

    v_chave_credito      LIKE tbsl-bschl VALUE '40',

* << Fim da exclusão

    v_nrmsg              TYPE i VALUE 0,

    v_transacao(4)       TYPE c,

    v_mode               TYPE c,

    v_update             TYPE c,

    v_msgid              LIKE t100-arbgb,

    v_msgno              LIKE t100-msgnr,

    v_koart              LIKE t001b-mkoar,

    v_ok(1)              VALUE 'N',

    v_monat              LIKE t001b-frpe1,

    v_bukrs              LIKE t001-bukrs,

    v_gjahr              LIKE t001b-frye1,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

    v_pep                LIKE prps-posid,

    v_skfbt(16)          TYPE c,

    v_dconta      LIKE /pws/zycbe033-d_newko,

    v_xpos_budat(15),

    v_xpos1(15),

* << Fim da exclusão

    v_xpos2(2)           TYPE n,

    v_xpos_awkey(15),

    v_xpos_zuonr(15),

    v_xpos(17)            TYPE n,

    v_xpos_belnr(2) TYPE n,

    v_selecao(2)    TYPE n,

    v_konto              LIKE t001b-vkont.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

  DATA: itab_t041t LIKE t041t OCCURS 0 WITH HEADER LINE.

* << Fim da exclusão

  DATA: wa_zycbt089 LIKE /pws/zycbt089.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

  SELECT selps

    FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos_belnr

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

  endselect.

* << Fim da inclusão

  ADD 1 TO v_xpos_belnr.

  LOOP AT t_dados.

    CHECK t_dados-tcode = 'F-51'.

    SELECT SINGLE * FROM /pws/zycbt089 INTO  wa_zycbt089

           WHERE bukrs EQ t_dados-bukrs.

    IF ( t_dados-bukrs = space ).

      t_campo-mandt = t_dados-mandt.

      t_campo-campo = 'BKPF-BUKRS'.

      t_campo-descricao = text-021.

      APPEND t_campo.

...

...

    LOOP AT t_zycbt036 WHERE tcode  = t_dados-tcode

                         AND tabela = t_dados-tabela

                         AND cpochv = t_dados-cpochv.

      ADD 1 TO v_cont.

      CONCATENATE 'RF05A-SEL01(' v_cont ')' INTO v_campo.

      PERFORM bdc_field USING v_campo t_zycbt036-belnr.

    ENDLOOP.

    PERFORM bdc_field USING:

      'BDC_OKCODE'     '=PA'.

    CLEAR v_xpos2.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

    SELECT selps

      FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos2

      WHERE event = 'SU-AG'

        AND feldn = 'ZUONR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

    endselect.

* << Fim da inclusão

    SHIFT v_xpos2 LEFT DELETING LEADING  '0'.

    CONCATENATE 'RF05A-XPOS1(' v_xpos2 ')' INTO v_xpos_zuonr.

    IF NOT v_zuonr IS INITIAL AND NOT v_xpos_zuonr IS INITIAL.

      PERFORM bdc_screen USING 'SAPDF05X' '3100'.

...

...

                 'BDC_OKCODE'      '=GO'.

      PERFORM bdc_screen USING 'SAPDF05X' '0731'.

      PERFORM bdc_field USING:

                 'RF05A-SEL01(01)' v_zuonr,

                 'BDC_CURSOR'      'RF05A-SEL01(01)',

                 'BDC_OKCODE'      '=GO'.

    ENDIF.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING: 'BDC_OKCODE' '=OMX'.

    CLEAR v_xpos2.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

    SELECT  selps

      FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos2

      WHERE event = 'SU-AG'

        AND feldn = 'AWKEY'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51I

    endselect.

* << Fim da inclusão

    IF sy-subrc NE 0.

      CLEAR v_xpos_awkey.

    ELSE.

      SHIFT v_xpos2 LEFT DELETING LEADING  '0'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_51J

FUNCTION /pws/zyca_transacao_f_51j.

  DATA:

    v_cont(2) TYPE n,

    v_campo(15),

    v_string_debito      LIKE tbsl-faus1,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

    v_string_credito     LIKE tbsl-faus1,

* << Fim da exclusão

    v_data_doc_char(10)  TYPE c,

    v_data_lanc_char(10) TYPE c,

    v_data_val_char(10)  TYPE c,

    v_data_conv_char(10) TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

    v_data_base_char(10) TYPE c,

* << Fim da exclusão

    v_kursf(9)           TYPE c,

    v_wrbtr(16)          TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

    v_wrbtr1(16)         TYPE c,

    v_sel03              LIKE rf05a-sel01,

* << Fim da exclusão

    v_chave_debito       LIKE tbsl-bschl VALUE '31',

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

    v_chave_credito      LIKE tbsl-bschl VALUE '40',

* << Fim da exclusão

    v_nrmsg              TYPE i VALUE 0,

    v_transacao(4)       TYPE c,

    v_mode               TYPE c,

    v_update             TYPE c,

    v_msgid              LIKE t100-arbgb,

    v_msgno              LIKE t100-msgnr,

    v_koart              LIKE t001b-mkoar,

    v_ok(1)              VALUE 'N',

    v_monat              LIKE t001b-frpe1,

    v_bukrs              LIKE t001-bukrs,

    v_gjahr              LIKE t001b-frye1,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

    v_pep                LIKE prps-posid,

    v_skfbt(16)          TYPE c,

    v_dconta             LIKE /pws/zycbe033-d_newko,

    v_xpos_budat(15),

    v_xpos1(15),

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

    v_xpos1(15),"#EC NEEDED

* << Fim da inclusão

    v_xpos2(2)           TYPE n,

    v_xpos_awkey(15),

    v_xpos_zuonr(15),

    v_xpos(17)            TYPE n,

    v_xpos_belnr(2) TYPE n,

    v_selecao(2)    TYPE n,

    v_konto              like T001B-VKONT.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

  DATA: itab_t041t LIKE t041t OCCURS 0 WITH HEADER LINE.

* << Fim da exclusão

  DATA: wa_zycbt089 LIKE /pws/zycbt089.

  SELECT SINGLE posatrib FROM /pws/zycbt007

                        INTO (/pws/zycbt007-posatrib)

                        WHERE bukrs EQ v_empresa.

  CONCATENATE 'RF05A-XPOS1(' /pws/zycbt007-posatrib ')' INTO v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

  SELECT  selps

    FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos_belnr

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

  endselect.

* << Fim da inclusão

  ADD 1 TO v_xpos_belnr.

  LOOP AT t_dados.

    CHECK t_dados-tcode = 'F-51'.

    SELECT SINGLE * FROM /pws/zycbt089 INTO  wa_zycbt089

...

...

        ADD 1 TO v_cont.

        CONCATENATE 'RF05A-SEL01(' v_cont ')' INTO v_campo.

        PERFORM bdc_field USING v_campo t_zycbt036-belnr.

      ENDLOOP.

    ELSE.

      PERFORM bdc_field USING 'RF05A-SEL01(01)' t_dados-belnr.

    ENDIF.

    PERFORM bdc_field USING:

      'BDC_OKCODE'     '=PA'.

    CLEAR: v_xpos2, v_xpos_zuonr.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

    SELECT  selps

      FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos2

      WHERE event = 'SU-AG'

        AND feldn = 'ZUONR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

    endselect.

* << Fim da inclusão

    SHIFT v_xpos2 LEFT DELETING LEADING  '0'.

    CONCATENATE 'RF05A-XPOS1(' v_xpos2 ')' INTO v_xpos_zuonr.

    IF NOT v_zuonr IS INITIAL AND NOT v_xpos_zuonr IS INITIAL.

      PERFORM bdc_screen USING 'SAPDF05X' '3100'.

...

...

                               'BDC_OKCODE' '=GO'.

      PERFORM bdc_screen USING 'SAPDF05X' '0731'.

      PERFORM bdc_field USING:

                 'RF05A-SEL01(01)' v_zuonr,

                 'BDC_CURSOR'      'RF05A-SEL01(01)',

                 'BDC_OKCODE'      '=GO'.

    ENDIF.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING: 'BDC_OKCODE' '=OMX'.

    CLEAR v_xpos2.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

    SELECT  selps

      FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos2

      WHERE event = 'SU-AG'

        AND feldn = 'AWKEY'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51J

  endselect.

* << Fim da inclusão

    IF sy-subrc NE 0.

      CLEAR v_xpos_awkey.

    ELSE.

      SHIFT v_xpos2 LEFT DELETING LEADING  '0'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_51P

FUNCTION /pws/zyca_transacao_f_51p.

  DATA:

    v_cont(2) TYPE n,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

    v_tabix   LIKE sy-tabix,

* << Fim da exclusão

    v_campo(15),

    v_bldat(10),

    v_budat(10),

    v_budat2(10),

    v_wrbtr(16),

    v_dmbtr(16),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

    v_residuo(15),

* << Fim da exclusão

    v_kursf(9),

    v_xpos(2)            TYPE n,

    v_xpos1(2)           TYPE n,

    v_xpos_awkey(15),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

    v_xpos_buzei(15),

* << Fim da exclusão

    v_xpos_budat(15),

    v_xpos_zuonr(15),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

    v_taxam              LIKE bkpf-kursf,

* << Fim da exclusão

    v_nrmsg              TYPE i VALUE 0,

    v_transacao(4)       TYPE c,

    v_mode               TYPE c,

    v_update             TYPE c,

    v_msgid              LIKE t100-arbgb,

    v_msgno              LIKE t100-msgnr,

    v_koart              LIKE t001b-mkoar,

    v_ok(1)              VALUE 'N',

    v_monat              LIKE t001b-frpe1,

    v_bukrs              LIKE t001-bukrs,

    v_gjahr              LIKE t001b-frye1,

    v_zfbdt(10)          TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

    v_valut(10),

    v_data_val_char(10)  TYPE c,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

    v_data_val_char(10)  TYPE c,"#EC NEEDED

* << Fim da inclusão

    v_dtdocto(10),

    v_xpos_belnr(2)   TYPE n,

    v_xpos_belnr2(15),

    v_selecao(2)    TYPE n,

    v_konto              LIKE t001b-vkont.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

  DATA: itab_t041t LIKE t041t OCCURS 0 WITH HEADER LINE.

* << Fim da exclusão

  DATA: wa_zycbt089 LIKE /pws/zycbt089.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

  SELECT selps

    FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

  endselect .

* << Fim da inclusão

  ADD 1 TO v_xpos.

  CONCATENATE 'RF05A-XPOS1(' v_xpos ')' INTO v_campo.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

  SELECT selps

* << Fim da inclusão

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

    FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos_belnr

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

  endselect .

* << Fim da inclusão

  ADD 1 TO v_xpos_belnr.

  LOOP AT t_dados.

    CHECK t_dados-tcode = 'F-51'.

    SELECT SINGLE * FROM /pws/zycbt089 INTO  wa_zycbt089

...

...

      ENDIF.

    ENDLOOP.

    PERFORM bdc_field USING:

      'BDC_OKCODE'     '=PA'.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING: 'BDC_OKCODE' 'DBR'.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING 'BDC_CURSOR'  'DF05B-PSDIF(01)'.

    PERFORM bdc_field USING 'BDC_OKCODE'  '=OMX'.

    CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

    SELECT selps

      FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos1

      WHERE event = 'SU-AG'

        AND feldn = 'AWKEY'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

    endselect .

* << Fim da inclusão

    IF sy-subrc NE 0.

      CLEAR v_xpos_awkey.

    ELSE.

      SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

...

...

          IF v_cont = 5.

            PERFORM bdc_field  USING 'BDC_OKCODE' '=SU1'.

            PERFORM bdc_screen USING 'SAPDF05X'   '0731'.

            PERFORM bdc_field USING 'BDC_CURSOR'  'RF05A-SEL01(01)'.

            CLEAR v_cont.

          ENDIF.

        ENDLOOP.

        PERFORM bdc_field  USING 'BDC_OKCODE' '=GO'.

      ELSE.

        CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

        SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

        SELECT selps

          FROM t021r

            up to 1 rows

* << Fim da inclusão

          INTO  v_xpos1

          WHERE event = 'SU-AG'

            AND feldn = 'BUDAT'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

        endselect .

* << Fim da inclusão

        SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

        CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_budat.

        PERFORM bdc_screen USING 'SAPDF05X'   '3100'.

        PERFORM bdc_field  USING 'BDC_CURSOR' 'RF05A-ABPOS'.

...

...

            PERFORM bdc_screen USING 'SAPDF05X'   '0732'.

            PERFORM bdc_field USING 'BDC_CURSOR'  'RF05A-VONDT(01)'.

            CLEAR v_cont.

          ENDIF.

        ENDLOOP.

        PERFORM bdc_field  USING 'BDC_OKCODE' '=GO'.

      ENDIF.

    ENDIF.

    IF NOT v_zuonr IS INITIAL AND v_processo = 'I'.

      CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

      SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

      SELECT selps

        FROM t021r

          up to 1 rows

* << Fim da inclusão

        INTO  v_xpos1

        WHERE event = 'SU-AG'

          AND feldn = 'ZUONR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

     endselect .

* << Fim da inclusão

      SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

      CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_zuonr.

      PERFORM bdc_screen USING 'SAPDF05X'   '3100'.

      PERFORM bdc_field  USING 'BDC_CURSOR' 'RF05A-ABPOS'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_51Q

FUNCTION /pws/zyca_transacao_f_51q.

  DATA:

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

    v_cont(2) TYPE n,

    v_tabix   LIKE sy-tabix,

    v_campo(15),

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

    v_campo(15),"#EC NEEDED

* << Fim da inclusão

    v_bldat(10),

    v_budat(10),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

    v_budat2(10),

* << Fim da exclusão

    v_wrbtr(16),

    v_dmbtr(16),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

    v_residuo(15),

* << Fim da exclusão

    v_kursf(9),

    v_xpos(2)            TYPE n,

    v_xpos1(2)           TYPE n,

    v_xpos2(15),

    v_xpos_awkey(15),

    v_xpos_buzei(15),

    v_xpos_budat(15),

    v_dtdocto(10),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

    v_taxam              LIKE bkpf-kursf,

* << Fim da exclusão

    v_nrmsg              TYPE i VALUE 0,

    v_transacao(4)       TYPE c,

    v_mode               TYPE c,

    v_update             TYPE c,

    v_msgid              LIKE t100-arbgb,

    v_msgno              LIKE t100-msgnr,

    v_koart              LIKE t001b-mkoar,

    v_ok(1)              VALUE 'N',

    v_monat              LIKE t001b-frpe1,

    v_bukrs              LIKE t001-bukrs,

    v_gjahr              LIKE t001b-frye1,

    v_zfbdt(10)          TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

    v_valut(10),

    v_data_val_char(10)  TYPE c,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

    v_data_val_char(10)  TYPE c,"#EC NEEDED

* << Fim da inclusão

    v_xpos_belnr(2)      TYPE n,

    v_selecao(2)         TYPE n,

    v_konto              LIKE t001b-vkont,

    v_fdtdoc             TYPE /pws/zycbt007-fdtdoc,

    v_waersb             LIKE /pws/zycbt007-waersb.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

  DATA: itab_t041t LIKE t041t OCCURS 0 WITH HEADER LINE.

* << Fim da exclusão

  DATA: wa_zycbt089 LIKE /pws/zycbt089.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

  SELECT selps

    FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

  endselect .

* << Fim da inclusão

  ADD 1 TO v_xpos.

  CONCATENATE 'RF05A-XPOS1(' v_xpos ')' INTO v_campo.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

  SELECT selps

* << Fim da inclusão

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

    FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos_belnr

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

  endselect .

* << Fim da inclusão

  ADD 1 TO v_xpos_belnr.

  LOOP AT t_dados.

    CHECK t_dados-tcode = 'F-51'.

    SELECT SINGLE * FROM /pws/zycbt089 INTO  wa_zycbt089

...

...

    ENDIF.

    PERFORM bdc_screen USING 'SAPMF05A' '0731'.

    PERFORM bdc_field USING  'RF05A-SEL01(01)' t_dados-belnr.

    PERFORM bdc_field USING 'BDC_OKCODE' '=PA'.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING: 'BDC_OKCODE' 'DBR'.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING 'BDC_CURSOR'  'DF05B-PSDIF(01)'.

    PERFORM bdc_field USING 'BDC_OKCODE'  '=OMX'.

    CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

    SELECT selps

      FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos1

      WHERE event = 'SU-AG'

        AND feldn = 'AWKEY'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

    endselect .

* << Fim da inclusão

    IF sy-subrc NE 0.

      CLEAR v_xpos_awkey.

    ELSE.

      SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

...

...

        ENDWHILE.

        PERFORM bdc_screen USING 'SAPDF05X'   '2000'.

        PERFORM bdc_field USING 'BDC_CURSOR'  v_xpos_awkey.

        PERFORM bdc_field  USING v_xpos_awkey 'X'.

        PERFORM bdc_field  USING 'BDC_OKCODE'  '=GO'.

        PERFORM bdc_screen USING 'SAPDF05X'   '0731'.

        PERFORM bdc_field USING 'BDC_CURSOR'  'RF05A-SEL01(01)'.

        PERFORM bdc_field USING 'RF05A-SEL01(01)' t_dados-awkey.

      ELSE.

        CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

        SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

        SELECT selps

          FROM t021r

            up to 1 rows

* << Fim da inclusão

          INTO  v_xpos1

          WHERE event = 'SU-AG'

            AND feldn = 'BUDAT'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

        endselect .

* << Fim da inclusão

        SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

        CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_budat.

        PERFORM bdc_screen USING 'SAPDF05X'   '3100'.

        PERFORM bdc_field  USING 'BDC_CURSOR' 'RF05A-ABPOS'.

...

...

        PERFORM bdc_field  USING 'BDC_OKCODE'  '=GO'.

        PERFORM bdc_screen USING 'SAPDF05X'   '0732'.

        PERFORM bdc_field USING 'BDC_CURSOR'  'RF05A-VONDT(01)'.

        WRITE t_dados-dtdocto TO v_dtdocto.

        PERFORM bdc_field USING 'RF05A-VONDT(01)' v_dtdocto.

      ENDIF.

      PERFORM bdc_field  USING 'BDC_OKCODE' '=GO'.

    ENDIF.

    IF NOT v_buzei IS INITIAL.

      CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

      SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

      SELECT  selps

        FROM t021r

          up to 1 rows

* << Fim da inclusão

        INTO  v_xpos1

        WHERE event = 'SU-AG'

          AND feldn = 'BUZEI'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q

     endselect .

* << Fim da inclusão

      IF sy-subrc = 0.

        SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

        CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_buzei.

      ENDIF.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_51T

...

    v_cont(2) TYPE n,

    v_campo(15),

    v_campo2(15),

    v_bldat(10),

    v_budat(10),

    v_wrbtr(16),

    v_kursf(9),

    v_xpos(15),

    v_xpos_budat(15),

    v_xpos_comp(15),

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

    v_taxam              LIKE bkpf-kursf,

* << Fim da exclusão

    v_chave_debito       LIKE tbsl-bschl VALUE '31',

    v_string_debito      LIKE tbsl-faus1,

    v_nrmsg              TYPE i VALUE 0,

    v_transacao(4)       TYPE c,

    v_mode               TYPE c,

    v_update             TYPE c,

    v_msgid              LIKE t100-arbgb,

    v_msgno              LIKE t100-msgnr,

    v_koart              LIKE t001b-mkoar,

    v_ok(1)              VALUE 'N',

...

...

    v_valut(10),

    v_xpos1(2) TYPE n,

    v_xpos2(2)           TYPE n,

    v_xpos_awkey(15),

    v_dtdocto(10),

    v_xpos_belnr(2) TYPE n,

    v_selecao(2)    TYPE n,

    v_konto              LIKE t001b-vkont.

  DATA: itab_t041t LIKE t041t OCCURS 0 WITH HEADER LINE.

  DATA: wa_zycbt089 LIKE /pws/zycbt089.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

  SELECT  selps

    FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos1

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

  endselect.

* << Fim da inclusão

  ADD 1 TO v_xpos1.

  SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

  CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

  SELECT  selps FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos_belnr

    WHERE event = 'SL-AG'

      AND feldn = 'BELNR'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

  endselect.

* << Fim da inclusão

  ADD 1 TO v_xpos_belnr.

  CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

  SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

  SELECT  selps FROM t021r

      up to 1 rows

* << Fim da inclusão

    INTO  v_xpos1

    WHERE event = 'SU-AG'

      AND feldn = 'BUDAT'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

  endselect.

* << Fim da inclusão

  SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

  CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_budat.

  CLEAR v_xpos1.

  SELECT * FROM t041t INTO TABLE itab_t041t

...

...

         EXPORTING

              date                = t_dados-budat

              version             = v_periv

         IMPORTING

              period              = v_monat

         EXCEPTIONS

              period_in_not_valid = 1

              period_not_assigned = 2

              version_undefined   = 3

              OTHERS              = 4.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    v_gjahr = v_date.

    v_koart = 'K'.

    PERFORM check_periodo USING    v_koart

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                                   v_konto

                          CHANGING v_budat

                                   v_ok.

    MOVE v_monat+1(2) TO v_periodo.

...

...

      PERFORM bdc_field USING v_campo t_zycbt036-belnr.

      IF v_cont = 5.

        CLEAR v_cont.

        PERFORM bdc_field USING: 'BDC_OKCODE' '/00'.

        PERFORM bdc_screen USING 'SAPMF05A'    '0731'.

      ENDIF.

    ENDLOOP.

    PERFORM bdc_field USING:

        'BDC_OKCODE'     '=PA'.

    CLEAR v_xpos1.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

    SELECT selps FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos1

      WHERE event = 'SU-AG'

        AND feldn = 'BUDAT'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

    endselect.

* << Fim da inclusão

    SHIFT v_xpos1 LEFT DELETING LEADING  '0'.

    CONCATENATE 'RF05A-XPOS1(' v_xpos1 ')' INTO v_xpos_budat.

    LOOP AT t_zycbt036 WHERE dtdocto NE '        ' AND

                             dtdocto NE '00000000'.

...

...

          PERFORM bdc_screen USING 'SAPDF05X'   '0732'.

          PERFORM bdc_field USING 'BDC_CURSOR'  'RF05A-VONDT(01)'.

          CLEAR v_cont.

        ENDIF.

      ENDLOOP.

      PERFORM bdc_field  USING 'BDC_OKCODE' '=GO'.

    ENDIF.

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING: 'BDC_OKCODE' '=OMX'.

    CLEAR v_xpos2.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

    SELECT SINGLE selps FROM t021r

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

    SELECT selps FROM t021r

        up to 1 rows

* << Fim da inclusão

      INTO  v_xpos2

      WHERE event = 'SU-AG'

        AND feldn = 'AWKEY'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51T

    endselect.

* << Fim da inclusão

    IF sy-subrc NE 0.

      CLEAR v_xpos_awkey.

    ELSE.

      SHIFT v_xpos2 LEFT DELETING LEADING  '0'.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_63

FUNCTION /pws/zyca_transacao_f_63.

  DATA:

    v_string_debito      LIKE tbsl-faus1,

    v_string_credito     LIKE tbsl-faus1,

    v_data_doc_char(10)  TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63

    v_data_val_char(10)  TYPE c,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63

    v_data_val_char(10)  TYPE c,"#EC NEEDED

* << Fim da inclusão

    v_data_lanc_char(10) TYPE c,

    v_data_venc_char(10) TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63

    v_base_char(16)      TYPE c,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63

    v_base_char(16)      TYPE c,"#EC NEEDED

* << Fim da inclusão

    v_kursf(9)           TYPE c,

    v_wrbtr(16)          TYPE c,

...

...

         IMPORTING

              v_year                 = v_date

         EXCEPTIONS

              variante_de_exercicio  = 1

              data_nao_encontrada    = 2

              empresa_nao_encontrada = 3

              period_in_not_valid    = 4

              period_not_assigned    = 5

              version_undefined      = 6

              OTHERS                 = 7.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    CHECK t_dados-tcode = 'F-63'.

    IF ( t_dados-bukrs = space ).

      t_campo-mandt = t_dados-mandt.

      t_campo-campo = 'BKPF-BUKRS'.

      t_campo-descricao = text-021.

      APPEND t_campo.

      RAISE campo_em_branco.

    ENDIF.

    IF ( t_dados-d_newko = space ).

      t_campo-mandt = t_dados-mandt.

...

...

         EXPORTING

              date                = t_dados-budat

              version             = v_periv

         IMPORTING

              period              = v_monat

         EXCEPTIONS

              period_in_not_valid = 1

              period_not_assigned = 2

              version_undefined   = 3

              OTHERS              = 4.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    v_gjahr = v_date.

    v_koart = 'K'.

    PERFORM check_periodo USING    v_koart

                                   v_monat

                                   v_bukrs

                                   v_gjahr

                                   v_konto

                          CHANGING v_data_lanc_char

                                   v_ok.

    MOVE v_date TO v_gjahr.

...

...

    ENDIF.

    PERFORM bdc_field USING 'BSEG-WRBTR' v_wrbtr.

    IF

       NOT t_dados-brnch IS INITIAL.

      PERFORM bdc_field  USING:

        'BSEG-BUPLA' t_dados-brnch.

    ENDIF.

    CLEAR: lfa1, lfb1.

    SELECT SINGLE * FROM lfa1 INTO lfa1

      WHERE lifnr EQ t_dados-agkon.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63

    SELECT SINGLE * FROM lfb1 INTO lfb1

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63

    SELECT *

      FROM lfb1

        up to 1 rows

      INTO lfb1

* << Fim da inclusão

      WHERE lifnr EQ t_dados-agkon.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63

    endselect.

* << Fim da inclusão

    IF NOT lfa1-xlfza IS INITIAL OR NOT lfb1-xlfzb IS INITIAL.

      IF sy-index = 1 OR sy-index = 0.

        PERFORM bdc_field  USING:

         'BSEG-EMPFB' t_dados-bcorec.

      ENDIF.

    ENDIF.

...

...

          'RF05V-NEWBS' '40'.

    IF NOT ( t_dados-newbs IS INITIAL ).

      PERFORM bdc_field  USING 'RF05V-NEWBS' t_dados-newbs.

    ENDIF.

    PERFORM bdc_field USING 'RF05V-NEWKO' t_dados-d_newko.

    IF NOT ( t_dados-umskz IS INITIAL ) .

      PERFORM bdc_field  USING 'RF05V-NEWUM' t_dados-umskz.

    ENDIF.

    PERFORM bdc_field  USING  'BDC_OKCODE'  '/00'.

    CLEAR lfbw.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63

    SELECT SINGLE * FROM lfbw WHERE lifnr = t_dados-agkon

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63

    SELECT *

      FROM lfbw

        up to 1 rows

     WHERE lifnr = t_dados-agkon

* << Fim da inclusão

                                AND bukrs = t_dados-bukrs.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63

    endselect.

* << Fim da inclusão

    IF sy-subrc EQ 0.

      IF lfbw-wt_subjct = 'X'.

        PERFORM bdc_screen USING 'SAPLFWTD' '0100'.

        PERFORM bdc_field  USING  'BDC_OKCODE'  '/00'.

      ENDIF.

    ENDIF.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_63I

FUNCTION /pws/zyca_transacao_f_63i.

  DATA t_debito_aux LIKE t_debito.

  DATA:

    v_string_debito        LIKE tbsl-faus1,

    v_data_doc_char(10)    TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63I

    v_data_conv_char(10)   TYPE c,

* << Fim da exclusão

    v_database(10)         TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63I

    v_data_conver_char(10) TYPE c,

    v_data_val_char(10)    TYPE c,

* << Fim da exclusão

    v_data_lanc_char(10)   TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63I

    v_data_venc_char(10)   TYPE c,

* << Fim da exclusão

    v_base_char(16)        TYPE c,

    v_kursf(9)             TYPE c,

    v_wrbtr(16)            TYPE c,

    v_dmbtr(16)            TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63I

    v_wrbtr1(16)           TYPE c,

* << Fim da exclusão

    v_chave_debito         LIKE tbsl-bschl VALUE '40',

    v_nrmsg                TYPE i VALUE 0,

    v_transacao(4)         TYPE c,

    v_mode                 TYPE c,

    v_update               TYPE c,

    v_msgid                LIKE t100-arbgb,

    v_msgno                LIKE t100-msgnr,

    v_koart                LIKE t001b-mkoar,

    v_ok(1)                VALUE 'N',

    v_monat                LIKE t001b-frpe1,

    v_bukrs                LIKE t001-bukrs,

    v_gjahr                LIKE t001b-frye1,

    v_dconta               LIKE /pws/zycbe033-d_newko,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63I

    v_conta                LIKE lfb1-akont,

* << Fim da exclusão

    v_tabix                LIKE sy-tabix,

    v_tabix_aux            LIKE sy-tabix,

    v_skfbt                LIKE bseg-skfbt VALUE 0,

    v_konto                like T001B-VKONT.

  READ TABLE t_dados INDEX 1.

  CHECK t_dados-tcode = 'F-63'.

  IF ( t_dados-bukrs = space ).

    t_campo-mandt = t_dados-mandt.

    t_campo-campo = 'BKPF-BUKRS'.

    t_campo-descricao = text-021.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_63P

FUNCTION /pws/zyca_transacao_f_63p.

  DATA:

    v_string_debito      LIKE tbsl-faus1,

    v_string_credito     LIKE tbsl-faus1,

    v_data_doc_char(10)  TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63P

    v_data_val_char(10)  TYPE c,

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63P

    v_data_val_char(10)  TYPE c,"#EC NEEDED

* << Fim da inclusão

    v_data_lanc_char(10) TYPE c,

    v_data_venc_char(10) TYPE c,

    v_data_base_char(10)    TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63P

    v_data_efetiva_char(10) TYPE c,

* << Fim da exclusão

    v_base_char(16)      TYPE c,

    v_kursf(9)           TYPE c,

    v_wrbtr(16)          TYPE c,

    v_dmbtr(16)          TYPE c,

...

...

                              USING  v_string_debito.

    IF NOT ( t_dados-newbs IS INITIAL ).

      PERFORM bdc_field  USING 'RF05V-NEWBS' t_dados-newbs.

    ENDIF.

    PERFORM bdc_field USING 'RF05V-NEWKO' t_dados-d_newko.

    IF NOT ( t_dados-umskz IS INITIAL ) .

      PERFORM bdc_field  USING 'RF05V-NEWUM' t_dados-umskz.

    ENDIF.

    PERFORM bdc_field  USING  'BDC_OKCODE'  '/00'.

    CLEAR lfbw.

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63P

    SELECT SINGLE * FROM lfbw WHERE lifnr = t_dados-agkon

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63P

   SELECT  *

     FROM lfbw

       up to 1 rows

     WHERE lifnr = t_dados-agkon

* << Fim da inclusão

                                AND bukrs = t_dados-bukrs.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63P

   endselect.

* << Fim da inclusão

    IF sy-subrc EQ 0.

      IF lfbw-wt_subjct = 'X'.

        PERFORM bdc_screen USING 'SAPLFWTD' '0100'.

        PERFORM bdc_field  USING  'BDC_OKCODE'  '/00'.

      ENDIF.

    ENDIF.

...

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_63R

FUNCTION /pws/zyca_transacao_f_63r.

  DATA: t_debito_aux LIKE t_debito.

  DATA:

    v_string_credito       LIKE tbsl-faus1,

    v_string_debito        LIKE tbsl-faus1,

    v_data_doc_char(10)    TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R

    v_data_conv_char(10)   TYPE c,

* << Fim da exclusão

    v_database(10)         TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R

    v_data_conver_char(10) TYPE c,

    v_data_val_char(10)    TYPE c,

* << Fim da exclusão

    v_data_lanc_char(10)   TYPE c,

    v_data_lanc_char2(10)  TYPE c,

    v_data_valut(10)       TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R

    v_data_venc_char(10)   TYPE c,

* << Fim da exclusão

    v_base_char(16)        TYPE c,

    v_kursf(9)             TYPE c,

    v_wrbtr(16)            TYPE c,

    v_dmbtr(16)            TYPE c,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R

    v_wrbtr1(16)           TYPE c,

    v_chave_debito         LIKE tbsl-bschl VALUE '40',

* << Fim da exclusão

    v_nrmsg                TYPE i VALUE 0,

    v_transacao(4)         TYPE c,

    v_mode                 TYPE c,

    v_update               TYPE c,

    v_msgid                LIKE t100-arbgb,

    v_msgno                LIKE t100-msgnr,

    v_koart                LIKE t001b-mkoar,

    v_ok(1)                VALUE 'N',

    v_monat                LIKE t001b-frpe1,

    v_bukrs                LIKE t001-bukrs,

    v_gjahr                LIKE t001b-frye1,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R

    v_dconta               LIKE /pws/zycbe033-d_newko,

* << Fim da exclusão

    v_conta                LIKE lfb1-akont,

    v_tabix                LIKE sy-tabix,

    v_tabix_aux            LIKE sy-tabix,

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R

    v_skfbt                LIKE bseg-skfbt VALUE 0,

* << Fim da exclusão

    v_newko(10)            TYPE c,

    v_newko_aux(10)        TYPE c,

    v_tamanho(2)           TYPE n,

    v_pep                  LIKE prps-posid,

...

...

         'BKPF-WAERS'  t_dados-waers,

         'BKPF-KURSF'  v_kursf,

         'BKPF-BKTXT'  t_dados-bktxt,

         'RF05V-NEWBS' t_dados-newbs,

         'RF05V-NEWKO' t_dados-c_newko,

         'BDC_CURSOR'  'RF05V-NEWKO',

         'BDC_OKCODE'  '/00'.

  IF NOT t_dados-xblnr IS INITIAL.

    PERFORM bdc_field  USING 'BKPF-XBLNR'  t_dados-xblnr.

  ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R

  SELECT *

* << Fim da inclusão

* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R

  SELECT SINGLE * FROM lfbw

         WHERE lifnr     EQ t_dados-c_newko

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R

    FROM lfbw

      up to 1 rows

   WHERE lifnr      EQ t_dados-c_newko

* << Fim da inclusão

         AND   bukrs     EQ t_dados-bukrs

         AND   wt_subjct EQ 'X'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R

  endselect .

* << Fim da inclusão

  IF sy-subrc EQ 0 AND v_tabix = 1.

    PERFORM bdc_screen USING 'SAPLFWTD' '0100'.

    PERFORM bdc_field USING  'BDC_OKCODE' '/00'.

  ENDIF.

  IF t_dados-newbs = '31' OR

...

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

Modificações efetuadas em FUNC /PWS/ZYCB_DEQUEUE_ZYCBT124

FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT124.

DATA: __seqta_tab TYPE SEQTA OCCURS 01 WITH HEADER LINE,

      __scope TYPE DDENQSCOPE,

      __synchron TYPE DDENQSYNC.

__synchron = _synchron.

__scope = _scope.

DATA: BEGIN OF %a_ZYCBT124,

            MANDT TYPE /PWS/ZYCBT124-MANDT,

            NRSEQ TYPE /PWS/ZYCBT124-NRSEQ,

      END OF %a_ZYCBT124.

* >> Início da exclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT124

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_ZYCBT124.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCB_DEQUEUE_ZYCBT124

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_ZYCBT124."#EC CI_CCALL

* << Fim da inclusão

IF NOT MANDT IS INITIAL.

   MOVE MANDT TO:

        %a_ZYCBT124-MANDT.

ENDIF.

__seqta_tab-gname = '/PWS/ZYCBT124'.

__seqta_tab-gmode = mode_ZYCBT124.

__seqta_tab-garg = %a_ZYCBT124.

APPEND __seqta_tab.

PERFORM send_enqueue(saplsena)

        TABLES __seqta_tab

...

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

Modificações efetuadas em FUNC /PWS/ZYCB_ENQUEUE_ZYCBT124

FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT124.

DATA: __seqta_tab TYPE SEQTA OCCURS 01 WITH HEADER LINE,

      __scope TYPE DDENQSCOPE,

      __wait TYPE DDENQWAIT.

__wait = _wait.

__scope = _scope.

DATA: BEGIN OF %a_ZYCBT124,

            MANDT TYPE /PWS/ZYCBT124-MANDT,

            NRSEQ TYPE /PWS/ZYCBT124-NRSEQ,

      END OF %a_ZYCBT124.

* >> Início da exclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT124

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_ZYCBT124.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCB_ENQUEUE_ZYCBT124

CALL 'C_ENQ_WILDCARD' ID 'HEX0' FIELD %a_ZYCBT124."#EC CI_CCALL

* << Fim da inclusão

IF NOT MANDT IS INITIAL.

   MOVE MANDT TO:

        %a_ZYCBT124-MANDT.

ENDIF.

__seqta_tab-gname = '/PWS/ZYCBT124'.

__seqta_tab-gmode = mode_ZYCBT124.

__seqta_tab-garg = %a_ZYCBT124.

APPEND __seqta_tab.

PERFORM send_enqueue(saplsena)

        TABLES __seqta_tab

...

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

Modificações efetuadas em RELE F6DK957163 20080129 100842 PWSCB

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

Modificações efetuadas em REPS /PWS/LZYCAGF2F01

...

  IF sy-subrc = 0.

    CALL FUNCTION 'FI_FIELD_SELECTION_DETERMINE'

         EXPORTING

              i_bschl     = p_chave

              i_bukrs     = p_bukrs

              i_saknr     = p_newko

         IMPORTING

              e_faus1     = p_string

         EXCEPTIONS

              customizing = 1

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

              OTHERS      = 2.

* << Fim da exclusão

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

              OTHERS      = 2."#EC *

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

  ELSE.

    CLEAR p_string.

  ENDIF.

ENDFORM.

FORM trata_string_debito TABLES   p_t_dados STRUCTURE /pws/zycbe033

                                  p_t_campo STRUCTURE /pws/zycbt034

                                  p_itab_oculto LIKE itab_oculto[]

                         USING    value(p_string).

  DATA:

    v_string(50) TYPE c.

...

...

FORM  call_transaction TABLES   p_itab_msg   LIKE itab_msg[]

                                p_itab_bdc   STRUCTURE bdcdata

                                p_t_zycbt032 STRUCTURE

 /pws/zycbt032

                                p_t_dados    STRUCTURE /pws/zycbe033

                       USING    value(p_tcode)

                                value(p_mode)

                                value(p_update)

                                value(p_msgid)

                                value(p_msgno)

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

                       CHANGING p_nrmsg.

* << Fim da exclusão

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

                       CHANGING p_nrmsg.   "#EC *

* << Fim da inclusão

  DATA: v_belnr LIKE bseg-belnr.

  AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD p_tcode.

  IF sy-subrc EQ 0.

    CALL TRANSACTION p_tcode USING p_itab_bdc

                           MODE  p_mode

                           UPDATE p_update

                           MESSAGES INTO p_itab_msg.

    IF sy-subrc <> 0.

      LOOP AT p_itab_msg.

        ADD 1 TO p_nrmsg.

...

...

                  msg_var1               = p_itab_msg-msgv1

                  msg_var2               = p_itab_msg-msgv2

                  msg_var3               = p_itab_msg-msgv3

                  msg_var4               = p_itab_msg-msgv4

             IMPORTING

                  msg_text               = p_t_zycbt032-msg

             EXCEPTIONS

                  function_not_completed = 1

                  message_not_found      = 2

                  OTHERS                 = 3.

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

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

        p_t_zycbt032-mandt  = p_t_dados-mandt.

        p_t_zycbt032-tcode  = p_tcode.

        p_t_zycbt032-tabela = p_t_dados-tabela.

        p_t_zycbt032-cpochv = p_t_dados-cpochv.

        p_t_zycbt032-tpmsg  = 'E'.

        p_t_zycbt032-nrmsg  = p_nrmsg.

        APPEND p_t_zycbt032.

      ENDLOOP.

    ELSE.

      ADD 1 TO p_nrmsg.

...

...

                msg_no                 = p_msgno

                msg_var1               = sy-msgv1

                msg_var2               = sy-msgv2

                msg_var3               = sy-msgv3

                msg_var4               = sy-msgv4

           IMPORTING

                msg_text               = p_t_zycbt032-msg

           EXCEPTIONS

                function_not_completed = 1

                message_not_found      = 2

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

                OTHERS                 = 3.

* << Fim da exclusão

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

                OTHERS                 = 3."#EC *

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

      p_t_zycbt032-mandt  = p_t_dados-mandt.

      p_t_zycbt032-tcode  = p_tcode.

      p_t_zycbt032-tabela = p_t_dados-tabela.

      p_t_zycbt032-cpochv = p_t_dados-cpochv.

      p_t_zycbt032-tpmsg  = 'S'.

      p_t_zycbt032-nrmsg  = p_nrmsg.

      p_t_zycbt032-belnr  = sy-msgv1.

      SHIFT p_t_zycbt032-belnr RIGHT DELETING TRAILING space.

      TRANSLATE p_t_zycbt032-belnr USING ' 0'.

      APPEND p_t_zycbt032.

...

...

    p_t_zycbt032-msgid  = 'NOAUTHORITY'.

    p_t_zycbt032-nrmsg  = p_nrmsg.

    CONCATENATE text-043 p_tcode

                INTO p_t_zycbt032-msg SEPARATED BY space.

    APPEND p_t_zycbt032.

  ENDIF.

  REFRESH: p_itab_bdc.

ENDFORM.

FORM  obter_taxa_cambial USING value(p_belnr)

                               value(p_bukrs)

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

                         CHANGING    p_taxa.

* << Fim da exclusão

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

                         CHANGING    p_taxa."#EC CALLED

* << Fim da inclusão

  DATA: wa_bkpf LIKE bkpf.

  CALL FUNCTION 'READ_DOCUMENT_HEADER'

       EXPORTING

            belnr          = p_belnr

            bukrs          = p_bukrs

       IMPORTING

            e_bkpf         = wa_bkpf

       EXCEPTIONS

            exit           = 1

            not_found      = 2

            archive_cancel = 3

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

            OTHERS         = 4.

* << Fim da exclusão

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

            OTHERS         = 4."#EC *

* << Fim da inclusão

  IF sy-subrc EQ 0.

    p_taxa = wa_bkpf-kursf.

  ENDIF.

ENDFORM.

FORM check_periodo USING    value(p_koart)

                            value(p_monat)

                            value(p_bukrs)

                            value(p_gjahr)

                            value(p_konto)

                   CHANGING value(p_novadata)

...

...

  CALL FUNCTION 'FI_PERIOD_CHECK'

       EXPORTING

            i_bukrs          = p_bukrs

            i_gjahr          = p_gjahr

            i_koart          = p_koart

            i_konto          = p_konto

            i_monat          = p_monat

       EXCEPTIONS

            error_period     = 1

            error_period_acc = 2

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

            OTHERS           = 3.

* << Fim da exclusão

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

            OTHERS           = 3."#EC *

* << Fim da inclusão

  IF sy-subrc <> 0.

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

    PERFORM entrar_nova_data USING v_resposta v_novadata.

* << Fim da exclusão

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

    PERFORM entrar_nova_data USING v_resposta v_novadata."#EC *

* << Fim da inclusão

    IF v_resposta = 'A'.

      RAISE periodo_fechado.

    ENDIF.

  ELSE.

    p_ok = 'S'.

  ENDIF.

  p_novadata = v_novadata.

ENDFORM.

FORM entrar_nova_data CHANGING value(p_resposta)

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

                               value(p_novadata).

* << Fim da exclusão

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

                               value(p_novadata)."#EC *

* << Fim da inclusão

  DATA: v_data_ TYPE d.

  WHILE v_data_ IS INITIAL OR

        v_data_ EQ '00000000'.

    IF sy-index > 1.

      MESSAGE i061(/pws/zycbm) WITH text-046.

    ENDIF.

    CALL FUNCTION 'TR_POPUP_INPUT_DATE'

         EXPORTING

              iv_title               = text-012

              iv_description1        = text-010

              iv_description2        = text-011

              iv_date                = v_data_

         IMPORTING

              ev_date                = v_data_

         EXCEPTIONS

              action_aborted_by_user = 1

              value_not_changed      = 2

              OTHERS                 = 3.

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

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    WRITE v_data_ TO p_novadata.

  ENDWHILE.

ENDFORM.

FORM trata_string_credito2 TABLES   p_t_dados STRUCTURE /pws/zycbe033

                                    p_t_campo STRUCTURE /pws/zycbt034

                                    p_itab_oculto2 LIKE itab_oculto2[]

                           USING    value(p_string)

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

                                    value(p_v_conta).

* << Fim da exclusão

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

                                    value(p_v_conta)."#EC CALLED

* << Fim da inclusão

  DATA:

    v_string(50) TYPE c.

  MOVE p_string TO v_string.

  IF v_string+6(1) = '+'.

    IF p_t_dados-zterm = space.

      CLEAR p_t_campo.

      READ TABLE p_t_campo WITH KEY campo = 'BSEG-ZTERM'.

      IF sy-subrc <> 0.

        p_t_campo-mandt = p_t_dados-mandt.

        p_t_campo-campo = 'BSEG-ZTERM'.

...

...

      ENDIF.

    ENDIF.

  ELSEIF v_string+49(1) = '-'.

    p_itab_oculto2-campo = 'COBL-FISTL'.

    p_itab_oculto2-chave = 'C'.

    p_itab_oculto2-conta = p_v_conta.

    APPEND p_itab_oculto2.

  ENDIF.

ENDFORM.

FORM determina_string1 USING    value(p_refer)

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

                       CHANGING value(p_string).

* << Fim da exclusão

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

                       CHANGING value(p_string)."#EC CALLED

* << Fim da inclusão

  CALL FUNCTION '/PWS/ZYCE_SELECT_FIELDS'

       EXPORTING

            i_referencia       = p_refer

       IMPORTING

            e_controle         = p_string

       EXCEPTIONS

            field_status_group = 1

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

            OTHERS             = 2.

* << Fim da exclusão

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

            OTHERS             = 2."#EC *

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM bdc_tela USING    value(par1)

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

                       value(par2).

* << Fim da exclusão

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

                       value(par2)."#EC CALLED

* << Fim da inclusão

  CLEAR itab_bdc.

  itab_bdc-program  = par1.

  itab_bdc-dynpro   = par2.

  itab_bdc-dynbegin = 'X'.

  APPEND itab_bdc.

ENDFORM.

FORM bdc_campo USING    value(par1)

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

                        value(par2).

* << Fim da exclusão

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

                        value(par2)."#EC CALLED

* << Fim da inclusão

  CLEAR itab_bdc.

  itab_bdc-fnam = par1.

  itab_bdc-fval = par2.

  APPEND itab_bdc.

ENDFORM.

FORM trata_campo_obrigatorio TABLES p_t_dados  STRUCTURE /pws/zycee005

                                    p_t_campos STRUCTURE /pws/zycet004

                                    p_itab_oculto LIKE itab_oculto[]

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

                             USING  value(p_string).

* << Fim da exclusão

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

                             USING  value(p_string)."#EC CALLED

* << Fim da inclusão

  DATA: v_string(80) TYPE c.

  MOVE p_string TO v_string.

  IF v_string+0(1) = '+'.

    IF p_t_dados-docdat = space.

      CLEAR p_t_campos.

      READ TABLE p_t_campos WITH KEY campo = 'J_1BDYDOC-DOCDAT'.

      IF sy-subrc <> 0.

        p_t_campos-mandt = p_t_dados-mandt.

        p_t_campos-campo = 'J_1BDYDOC-DOCDAT'.

        p_t_campos-descricao = text-034.

...

...

FORM z_call_transaction TABLES   p_itab_msg   STRUCTURE   itab_msg

                                 p_itab_bdc   STRUCTURE   itab_bdc

                                 p_t_zycet005 STRUCTURE

 /pws/zycet005

                                 p_t_dados    STRUCTURE   /pws/zycee004

                        USING    p_tcode

                                 p_mode

                                 p_update

                                 p_msgid

                                 p_msgno

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

                        CHANGING p_nrmsg.

* << Fim da exclusão

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

                        CHANGING p_nrmsg."#EC *

* << Fim da inclusão

  DATA: v_belnr LIKE bseg-belnr.

  CALL TRANSACTION p_tcode USING p_itab_bdc

                         MODE  p_mode

                         UPDATE p_update

                         MESSAGES INTO p_itab_msg.

  IF sy-subrc <> 0.

    LOOP AT p_itab_msg.

      ADD 1 TO p_nrmsg.

      CALL FUNCTION 'MESSAGE_PREPARE'

           EXPORTING

...

...

                msg_var1               = p_itab_msg-msgv1

                msg_var2               = p_itab_msg-msgv2

                msg_var3               = p_itab_msg-msgv3

                msg_var4               = p_itab_msg-msgv4

           IMPORTING

                msg_text               = p_t_zycet005-msg

           EXCEPTIONS

                function_not_completed = 1

                message_not_found      = 2

                OTHERS                 = 3.

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

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

      p_t_zycet005-mandt  = p_t_dados-mandt.

      p_t_zycet005-tcode  = p_tcode.

      p_t_zycet005-tabela = p_t_dados-tabela.

      p_t_zycet005-cpochv = p_t_dados-cpochv.

      p_t_zycet005-tpmsg  = 'E'.

      p_t_zycet005-nrmsg  = p_nrmsg.

      APPEND p_t_zycet005.

    ENDLOOP.

  ELSE.

    ADD 1 TO p_nrmsg.

...

...

              msg_no                 = p_msgno

              msg_var1               = sy-msgv1

              msg_var2               = sy-msgv2

              msg_var3               = sy-msgv3

              msg_var4               = sy-msgv4

         IMPORTING

              msg_text               = p_t_zycet005-msg

         EXCEPTIONS

              function_not_completed = 1

              message_not_found      = 2

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

              OTHERS                 = 3.

* << Fim da exclusão

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

              OTHERS                 = 3."#EC *

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    p_t_zycet005-mandt  = p_t_dados-mandt.

    p_t_zycet005-tcode  = p_tcode.

    p_t_zycet005-tabela = p_t_dados-tabela.

    p_t_zycet005-cpochv = p_t_dados-cpochv.

    p_t_zycet005-tpmsg  = 'S'.

    p_t_zycet005-nrmsg  = p_nrmsg.

    p_t_zycet005-belnr  = sy-msgv1.

    SHIFT p_t_zycet005-belnr RIGHT DELETING TRAILING space.

    TRANSLATE p_t_zycet005-belnr USING ' 0'.

    APPEND p_t_zycet005.

...

...

FORM call_transaction1 TABLES   p_itab_msg STRUCTURE itab_msg

                                p_itab_bdc STRUCTURE itab_bdc

                                p_t_zycet005 STRUCTURE

 /pws/zycet005

                                p_t_dados STRUCTURE /pws/zycee005

                       USING    p_tcode

                                p_mode

                                p_update

                                p_msgid

                                p_msgno

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

                       CHANGING p_nrmsg.

* << Fim da exclusão

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

                       CHANGING p_nrmsg."#EC *

* << Fim da inclusão

  DATA: v_belnr LIKE bseg-belnr.

  CALL TRANSACTION p_tcode USING p_itab_bdc

                         MODE  p_mode

                         UPDATE p_update

                         MESSAGES INTO p_itab_msg.

  IF sy-subrc <> 0.

    LOOP AT p_itab_msg.

      ADD 1 TO p_nrmsg.

      CALL FUNCTION 'MESSAGE_PREPARE'

           EXPORTING

...

...

                msg_var1               = p_itab_msg-msgv1

                msg_var2               = p_itab_msg-msgv2

                msg_var3               = p_itab_msg-msgv3

                msg_var4               = p_itab_msg-msgv4

           IMPORTING

                msg_text               = p_t_zycet005-msg

           EXCEPTIONS

                function_not_completed = 1

                message_not_found      = 2

                OTHERS                 = 3.

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

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

      p_t_zycet005-mandt  = p_t_dados-mandt.

      p_t_zycet005-tcode  = p_tcode.

      p_t_zycet005-tabela = p_t_dados-tabela.

      p_t_zycet005-cpochv = p_t_dados-cpochv.

      p_t_zycet005-tpmsg  = 'E'.

      p_t_zycet005-nrmsg  = p_nrmsg.

      APPEND p_t_zycet005.

    ENDLOOP.

  ELSE.

    ADD 1 TO p_nrmsg.

...

...

              msg_no                 = p_msgno

              msg_var1               = sy-msgv1

              msg_var2               = sy-msgv2

              msg_var3               = sy-msgv3

              msg_var4               = sy-msgv4

         IMPORTING

              msg_text               = p_t_zycet005-msg

         EXCEPTIONS

              function_not_completed = 1

              message_not_found      = 2

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

              OTHERS                 = 3.

* << Fim da exclusão

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

              OTHERS                 = 3."#EC *

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

    p_t_zycet005-mandt  = p_t_dados-mandt.

    p_t_zycet005-tcode  = p_tcode.

    p_t_zycet005-tabela = p_t_dados-tabela.

    p_t_zycet005-cpochv = p_t_dados-cpochv.

    p_t_zycet005-tpmsg  = 'S'.

    p_t_zycet005-nrmsg  = p_nrmsg.

    p_t_zycet005-belnr  = sy-msgv1.

    SHIFT p_t_zycet005-belnr RIGHT DELETING TRAILING space.

    TRANSLATE p_t_zycet005-belnr USING ' 0'.

    APPEND p_t_zycet005.

...

...

    MODIFY p_t_dados TRANSPORTING belnr WHERE belnr = v_belnr.

    itab_zycet006-belnr = p_t_zycet005-belnr.

    MODIFY itab_zycet006 TRANSPORTING belnr WHERE belnr =

v_belnr.

  ENDIF.

  REFRESH: p_itab_bdc.

ENDFORM.

FORM trata_string_deb1 TABLES   p_t_dados STRUCTURE /pws/zycee005

                                p_t_campo STRUCTURE /pws/zycet004

                                p_itab_oculto STRUCTURE itab_oculto

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

                       USING    value(p_string).

* << Fim da exclusão

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

                       USING    value(p_string)."#EC CALLED

* << Fim da inclusão

  DATA:

    v_string(50) TYPE c.

  MOVE p_string TO v_string.

  IF v_string+5(1) = '+'.

    IF p_t_dados-d_valut = space.

      CLEAR p_t_campo.

      READ TABLE p_t_campo WITH KEY campo = 'BSEG-VALUT'.

      IF sy-subrc <> 0.

        p_t_campo-mandt = p_t_dados-mandt.

        p_t_campo-campo = 'BSEG-VALUT'.

...

...

    ENDIF.

  ELSEIF v_string+11(1) = '-'.

    p_itab_oculto-campo = 'COBL-PS_PSP_PNR'.

    p_itab_oculto-chave = 'D'.

    APPEND p_itab_oculto.

  ENDIF.

ENDFORM.

FORM trata_string_cred1 TABLES   p_t_dados STRUCTURE /pws/zycee005

                                 p_t_campo STRUCTURE /pws/zycet004

                                 p_itab_oculto STRUCTURE itab_oculto

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

                        USING    value(p_string).

* << Fim da exclusão

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

                        USING    value(p_string)."#EC *

* << Fim da inclusão

  DATA:

    v_string(50) TYPE c.

  MOVE p_string TO v_string.

  IF v_string+5(1) = '+'.

    IF p_t_dados-c_valut = space.

      CLEAR p_t_campo.

      READ TABLE p_t_campo WITH KEY campo = 'BSEG-VALUT'.

      IF sy-subrc <> 0.

        p_t_campo-mandt = p_t_dados-mandt.

        p_t_campo-campo = 'BSEG-VALUT'.

...

...

          CLEAR p_t_campo.

        ENDIF.

      ENDIF.

    ENDIF.

  ELSEIF v_string+49(1) = '-'.

    p_itab_oculto-campo = 'COBL-FISTL'.

    p_itab_oculto-chave = 'C'.

    APPEND p_itab_oculto.

  ENDIF.

ENDFORM.

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

FORM mensagem_erro  TABLES  p_t_dados STRUCTURE /pws/zycee005

                            p_t_zycet005 STRUCTURE /pws/zycet005.

* << Fim da exclusão

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

FORM mensagem_erro  TABLES  p_t_dados STRUCTURE  /pws/zycee005

                    p_t_zycet005 STRUCTURE /pws/zycet005."#EC *

* << Fim da inclusão

  IF p_t_dados-d_newko IS INITIAL OR p_t_dados-c_newko IS INITIAL.

    p_t_zycet005-mandt  = p_t_dados-mandt.

    p_t_zycet005-tcode  = p_t_dados-tcode.

    p_t_zycet005-tabela = p_t_dados-tabela.

    p_t_zycet005-cpochv = p_t_dados-cpochv.

    p_t_zycet005-tpmsg  = 'E'.

    p_t_zycet005-msg    = text-042.

    APPEND p_t_zycet005.

  ELSE.

    p_t_zycet005-mandt  = p_t_dados-mandt.

...

...

    p_t_zycet005-tabela = p_t_dados-tabela.

    p_t_zycet005-cpochv = p_t_dados-cpochv.

    p_t_zycet005-tpmsg  = 'E'.

    p_t_zycet005-msg    = text-033.

    APPEND p_t_zycet005.

  ENDIF.

ENDFORM.

FORM trata_string_credito3 TABLES p_t_contas STRUCTURE /pws/zycbe035

                                  p_t_campo STRUCTURE /pws/zycbt034

                                  p_itab_oculto LIKE itab_oculto[]

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

                         USING    value(p_string).

* << Fim da exclusão

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

                         USING    value(p_string)."#EC *

* << Fim da inclusão

  DATA: v_string(50) TYPE c.

  MOVE p_string TO v_string.

  IF v_string+5(1) = '+'.

    IF p_t_contas-c_valut = space.

      CLEAR p_t_campo.

      READ TABLE p_t_campo WITH KEY campo = 'BSEG-VALUT'.

      IF sy-subrc <> 0.

        p_t_campo-mandt = p_t_contas-mandt.

        p_t_campo-campo = 'BSEG-VALUT'.

        p_t_campo-descricao = text-019.

...

...

            date                = p_data

            version             = v_periv

       IMPORTING

            period              = p_period

            year                = p_year

       EXCEPTIONS

            period_in_not_valid = 1

            period_not_assigned = 2

            version_undefined   = 3

            OTHERS              = 4.

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

  IF sy-subrc EQ 0.

  else.

  ENDIF.

* << Fim da inclusão

  CALL FUNCTION 'FI_PERIOD_CHECK'

       EXPORTING

            i_bukrs          = p_bukrs

            i_gjahr          = p_data+0(4)

            i_koart          = '+'

            i_monat          = p_period

       EXCEPTIONS

            error_period     = 1

            error_period_acc = 2

            OTHERS           = 3.

  IF sy-subrc EQ 0.

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

  else.

* << Fim da inclusão

  ENDIF.

ENDFORM.

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

Modificações efetuadas em REPS /PWS/LZYCAGF2TOP

function-pool /pws/zycagf2.

* >> Início da exclusão:

tables: skb1,

* << Fim da exclusão

* >> Início da inclusão:

TABLES: skb1,"#EC NEEDED

* << Fim da inclusão

        lfbw,

        lfa1,

        lfb1,

        knb1,

        tcurx,

        usr01,

* >> Início da exclusão:

        /pws/zycbt011,

        /pws/zycbt007,

        /pws/zycbt009,

        j_1bam,

        /pws/zycet036,

        /pws/zycet037.

* << Fim da exclusão

* >> Início da inclusão:

        /pws/zycbt007.

* << Fim da inclusão

types: begin of msg_struc,

        tcode like bdcmsgcoll-tcode,

        dyname like bdcmsgcoll-dyname,

        dynumb like bdcmsgcoll-dynumb,

        msgtyp like bdcmsgcoll-msgtyp,

        msgspra like bdcmsgcoll-msgspra,

        msgid like bdcmsgcoll-msgid,

        msgnr like bdcmsgcoll-msgnr,

        msgv1 like balm-msgv1,

        msgv2 like balm-msgv2,

        msgv3 like balm-msgv3,

        msgv4 like balm-msgv4,

        env like bdcmsgcoll-env,

        fldname like bdcmsgcoll-fldname,

       end of msg_struc.

data: itab_bdc like bdcdata occurs 50 with header line,

      itab_msg type msg_struc occurs 10 with header line.

* >> Início da exclusão:

data: begin of itab_oculto2 occurs 10,

* << Fim da exclusão

* >> Início da inclusão:

DATA: BEGIN OF itab_oculto2 OCCURS 10,"#EC *

* << Fim da inclusão

        campo(20),

        chave type c,

        conta like lfb1-akont,

      end of itab_oculto2.

data: itab_zycbt036 like /pws/zycbt036 occurs 10 with header line.

data: begin of itab_oculto occurs 10,

        campo(30),

        chave type c,

      end of itab_oculto.

data: itab_zycet006 like /pws/zycet006 occurs 10 with header line.

* >> Início da exclusão:

data: begin of itab_int occurs 0,

        sconrf like j_1bam-sconrf,

      end of itab_int.

data: begin of itab_j1 occurs 0,

        sconrf like j_1bam-sconrf,

        scrcon like j_1bam-scrcon,

      end of itab_j1.

data: begin of t_msg_aux occurs 5.

        include structure /pws/zycee006.

data: end   of t_msg_aux.

* << Fim da exclusão

data:  v_num like itab_zycbt036-belnr,

* >> Início da exclusão:

       v_ok(1) VALUE 'N'.

* << Fim da exclusão

* >> Início da inclusão:

       v_ok(1) VALUE 'N'.  "#EC *

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/LZYCAGFF01

...

    p_record_tab-string+45(10)  = tkna1-kunnr.

    p_record_tab-string+356(35) = tkna1-name1.

    APPEND p_record_tab.

  ENDLOOP.

  LOOP AT tlfa1.

    p_record_tab-string+45(10)  = tlfa1-lifnr.

    p_record_tab-string+356(35) = tlfa1-name1.

    APPEND p_record_tab.

  ENDLOOP.

ENDFORM.

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

FORM cbt031.