Sintoma

Valores Mantidos Exterior - Ajuste de Performance BKPF

Solução

Valores Mantidos Exterior - Ajuste de Performance BKPF

Informações Complementares

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

Nota Número 03912 Data: 13/06/2007 Hora: 17:18:03

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

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

Nota Número              : 03912

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00001

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VALORES MANTIDOS EXTERIOR - AJUSTE DE PERFORMANCE BKPF

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

Palavras Chave:

VALORES MANTIDOS EXTERIOR - AJUSTE DE PERFORMANCE BKPF

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

Objetos da nota:

REPS /PWS/MZYCB034F01

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

Modificações efetuadas em REPS /PWS/MZYCB034F01

...

  IF wa_controle-parametros_carregados IS INITIAL.

    SELECT *

      FROM /pws/zycbt007

      INTO TABLE itab_zycbt007.

    SELECT *

      FROM /pws/zycbt089

      INTO TABLE itab_zycbt089.

    SELECT *

      FROM /pws/zyglt009

      INTO TABLE itab_zyglt009.

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

    SELECT *

      FROM kna1

      INTO TABLE itab_kna1.

    SELECT *

      FROM lfa1

      INTO TABLE itab_lfa1.

* << Fim da exclusão

    SELECT *

      FROM /pws/zyglt321

      INTO TABLE itab_zyglt321

      WHERE ( ktosl = c_chave_oper          OR

              ktosl = c_chv_oper_fat )

        AND ( codeven = c_codeven_op_emb    OR

              codeven = c_codeven_liqand    OR

              codeven = c_codeven_liqand_op OR

              codeven = c_codeven_op_pagant ).

    SELECT *

...

...

    wa_zycbe033-gsber   = <fs_op>-gsberf.

    wa_zycbe033-d_gsber = <fs_op>-gsberf.

    wa_zycbe033-c_gsber = <fs_op>-gsberf.

  ENDIF.

  IF NOT <fs_op>-j_1bbranch IS INITIAL.

    wa_zycbe033-brnch = <fs_op>-j_1bbranch.

  ENDIF.

  IF NOT <fs_op>-werks IS INITIAL.

    wa_zycbe033-werks = <fs_op>-werks.

  ENDIF.

  CONCATENATE 'Des.' <fs_op>-nrinvoic <fs_op>-nrparcf

    INTO wa_zycbe033-d_zuonr

    SEPARATED BY space.

  CONCATENATE 'Des.' <fs_op>-nrinvoic <fs_op>-nrparcf

    INTO wa_zycbe033-c_zuonr

    SEPARATED BY space.

  IF <fs_op>-tipo_op = 'E'.

    v_codeven = c_codeven_op_emb.

  ELSEIF  <fs_op>-tipo_op = 'P'.

    v_codeven = '030'.

  ENDIF.

...

...

    c_cli(23)        TYPE c VALUE 'wa_zycbt089-tx_desm_cli',

    c_est_cli(21)    TYPE c VALUE 'wa_zycbt089-tx_cl_cli',

    c_liqand(27)     TYPE c VALUE 'wa_zycbt089-tx_desm_liq_and',

    c_est_liqand(25) TYPE c VALUE 'wa_zycbt089-tx_cl_liq_and'.

  DATA:

    v_dt_taxa    TYPE d,

    wa_zycet001  TYPE t_s_zycet001,

    wa_zycit054  TYPE t_s_zycit054,

    wa_zycet047  TYPE t_s_zycet047,

    wa_zycet048  TYPE t_s_zycet048,

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

    wa_zycbt030  TYPE t_s_zycbt030,

* << Fim da exclusão

    wa_bkpf      TYPE t_s_bkpf,

    v_op(30)     TYPE c,

    v_cli(23)    TYPE c,

    v_liqand(27) TYPE c.

  CHECK NOT p_dtlanc IS INITIAL.

  IF NOT wa_zycbt007 IS INITIAL AND

     NOT wa_zycbt089 IS INITIAL.

    CASE p_tpcontab.

      WHEN 'O'.

        v_op = c_dtlanc.

...

...

          vktra(2)    TYPE n,

          bezei       TYPE /pws/zycit054-bezei,

          codvias     TYPE /pws/zycit054-codvias,

          dtprescarga TYPE /pws/zycit054-dtprescarga,

          nrdias      TYPE /pws/zycit054-nrdias,

        END OF itab_054.

  SELECT modo descr

    FROM /pws/zycbt039

    INTO CORRESPONDING FIELDS OF TABLE itab_zycbt039.

  IF NOT itab_zycbt226[] IS INITIAL.

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

    SELECT *

      FROM kna1

      INTO TABLE itab_kna1

      FOR ALL ENTRIES IN itab_zycbt226

      WHERE kunnr = itab_zycbt226-kunag.

    SELECT *

      FROM lfa1

      INTO TABLE itab_lfa1

      FOR ALL ENTRIES IN itab_zycbt226

      WHERE lifnr = itab_zycbt226-bco_recebedor.

* << Fim da inclusão

    SELECT *

      FROM /pws/zycbt225

      INTO TABLE itab_zycbt225

      FOR ALL ENTRIES IN itab_zycbt226

      WHERE nrseq = itab_zycbt226-nrseq.

    SELECT dtemb dtvencto viatrans dtaverb dtcruze nrseq

      FROM /pws/zycet001

      INTO CORRESPONDING FIELDS OF TABLE itab_zycet001

      FOR ALL ENTRIES IN itab_zycbt226

      WHERE nrseq EQ itab_zycbt226-nrinvoic(10).

...

...

  ENDIF.

  IF NOT itab_zycbt017[] IS INITIAL.

    SELECT *

      FROM /pws/zycbt030

      INTO TABLE itab_zycbt030

      FOR ALL ENTRIES IN itab_zycbt017

      WHERE nrinvoic EQ itab_zycbt017-nrinvoic AND

            gsberf   EQ itab_zycbt017-gsberf   AND

            nrparcf  EQ itab_zycbt017-nrparcf.

    IF NOT itab_zycbt030[] IS INITIAL.

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

      LOOP AT itab_zycbt030 into wa_zycbt030.

        READ TABLE itab_zycbt017 into wa_zycbt017

                            WITH KEY nrinvoic = wa_zycbt030-nrinvoic

                                     gsberf   = wa_zycbt030-gsberf

                                     nrparcf  = wa_zycbt030-nrparcf.

        IF sy-subrc = 0.

          wa_zycbt030-bukrs = wa_zycbt017-bukrs.

        ENDIF.

        IF NOT wa_zycbt030-budat_t IS INITIAL.

          wa_zycbt030-gjahr = wa_zycbt030-budat_t(4).

        ELSE.

          wa_zycbt030-gjahr = wa_zycbt030-budat(4).

        ENDIF.

        MODIFY itab_zycbt030 from wa_zycbt030

                             TRANSPORTING bukrs gjahr

                             WHERE nrinvoic EQ wa_zycbt030-nrinvoic

                               AND gsberf   EQ wa_zycbt030-gsberf

                               AND nrparcf  EQ wa_zycbt030-nrparcf.

      ENDLOOP.

* << Fim da inclusão

      SELECT *

        FROM bkpf

        INTO CORRESPONDING FIELDS OF TABLE itab_bkpf

        FOR ALL ENTRIES IN itab_zycbt030

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

        WHERE belnr = itab_zycbt030-belnr.

* << Fim da exclusão

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

        WHERE belnr = itab_zycbt030-belnr

        AND   bukrs = itab_zycbt030-bukrs

        AND   gjahr = itab_zycbt030-gjahr.

* << Fim da inclusão

    ENDIF.

    SELECT *

      FROM /pws/zycbt209

      INTO TABLE itab_zycbt209

      FOR ALL ENTRIES IN itab_zycbt017

      WHERE nrinvoic = itab_zycbt017-nrinvoic

        AND nrparcf  = itab_zycbt017-nrparcf

        AND gsberf   = itab_zycbt017-gsberf.

    SELECT *

      FROM /pws/zyglt368

...

...

  IF v_modo_bi EQ '1' OR v_modo_bi EQ 'A'.

    v_modo_bi = 'N'.

  ELSEIF v_modo_bi EQ '3'.

    v_modo_bi = 'A'.

  ELSEIF v_modo_bi EQ '2'.

    v_modo_bi = 'E'.

  ENDIF.

ENDFORM.

FORM armazena_dados_antigos.

  REFRESH itab_zycbt226_ant.

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

  IF NOT itab_zycbt226[] IS INITIAL.

* << Fim da inclusão

  SELECT *

    FROM /pws/zycbt226

    INTO CORRESPONDING FIELDS OF TABLE itab_zycbt226_ant

    FOR ALL ENTRIES IN itab_zycbt226

    WHERE nrinvoic = itab_zycbt226-nrinvoic

      AND gsberf   = itab_zycbt226-gsberf

      AND nrparcf  = itab_zycbt226-nrparcf.

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

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM atualiza_dados_op.

  DATA: wa_anterior TYPE t_s_zycbe226.

  CHECK sy-tcode NE c_transacao_c.

  READ TABLE itab_zycbt226_ant INTO wa_anterior WITH KEY

    nrseq    = <fs_op>-nrseq

    nrinvoic = <fs_op>-nrinvoic

    nrparcf  = <fs_op>-nrparcf

    gsberf   = <fs_op>-gsberf.

  IF sy-subrc = 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCB034TOP

...

        INCLUDE STRUCTURE /pws/zycbt225.

TYPES:

END OF t_s_zycbt225,

BEGIN OF t_s_zycbt017.

        INCLUDE STRUCTURE /pws/zycbt017.

TYPES:

END OF t_s_zycbt017,

BEGIN OF t_s_zycbt030.

        INCLUDE STRUCTURE /pws/zycbt030.

TYPES:

* >> Início da inclusão:

        bukrs TYPE bkpf-bukrs,

        gjahr TYPE bkpf-gjahr,

* << Fim da inclusão

END OF t_s_zycbt030,

BEGIN OF t_s_zycbt209.

        INCLUDE STRUCTURE /pws/zycbt209.

TYPES:

END OF t_s_zycbt209,

BEGIN OF t_s_zycet001.

        INCLUDE STRUCTURE /pws/zycet001.

TYPES:

END OF t_s_zycet001,

BEGIN OF t_s_zycet047.

...

...

      itab_zycit054       TYPE t_t_zycit054,

      itab_kna1           TYPE t_t_kna1,

      itab_lfa1           TYPE t_t_lfa1,

      itab_bkpf           TYPE t_t_bkpf,

      itab_zycbe224       TYPE t_t_zycbe224,

      itab_zycbt032       TYPE t_t_zycbt032,

      itab_zycbe033       TYPE t_t_zycbe033,

      itab_zycbt034       TYPE t_t_zycbt034,

      itab_zycbt036       TYPE t_t_zycbt036,

      itab_partidas       TYPE t_t_zycbe033.

* >> Início da exclusão:

DATA: wa_zycbt007 TYPE t_s_zycbt007,

      wa_zyglt009 TYPE t_s_zyglt009,

      wa_zycbt089 TYPE t_s_zycbt089,

      wa_controle TYPE t_controle,

      wa_fat      TYPE t_s_zycbt017.

* << Fim da exclusão

* >> Início da inclusão:

DATA: wa_zycbt007  TYPE t_s_zycbt007,

      wa_zyglt009  TYPE t_s_zyglt009,

      wa_zycbt089  TYPE t_s_zycbt089,

      wa_controle  TYPE t_controle,

      wa_fat       TYPE t_s_zycbt017,

      wa_zycbt030  TYPE t_s_zycbt030.

* << Fim da inclusão

FIELD-SYMBOLS: <fs_op>  TYPE t_s_zycbe226.

DATA:

  ok_code                TYPE sy-ucomm,

  v_ultimo_nrseq         TYPE /pws/zycbe226-nrseq,

  v_novo_nrseq           TYPE /pws/zycbe226-nrseq,

  v_modo_bi(1)           TYPE c,

  v_desm_cli(1)          TYPE c,

  v_desm_liqand(1)       TYPE c,

  v_sld_liq_and          TYPE wrbtr,

  v_belnr_est_f02        TYPE /pws/zycbt226-belnr_op,

...