Sintoma

O programa gera dump quando o botao de match code é acionado mais de 1 vez.

Solução

Adicionado seleção de dados para o que o erro nao ocorra.

Informações Complementares

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

Nota Número 04316 Data: 31/07/2007 Hora: 16:56:56

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

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

Nota Número              : 04316

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00006

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - DUMP

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

Palavras Chave:

ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - DUMP AO SELECIONAR UMA FAT.POR VEZ

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

Objetos da nota:

REPS /PWS/MZYCB035F01

REPS /PWS/MZYCB035F03

REPS /PWS/MZYCB035T02

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

Modificações efetuadas em REPS /PWS/MZYCB035F01

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

  FIELD-SYMBOLS:

    <fs_zycbt228a> LIKE LINE OF itab_zycbt228a.

* << Fim da inclusão

FORM carrega_constantes.

  CHECK wa_controle-constantes_carregadas IS INITIAL.

  PERFORM:

    cons_define_tabstrips,

    cons_define_tbcontrols,

    cons_define_drilldown.

  wa_controle-nivel_tela = 'HDR'.

  wa_controle-constantes_carregadas = 'X'.

ENDFORM.

FORM cons_define_tabstrips.

...

...

      ok_code = 'DUMMY'.

    WHEN 'UNMARK'.

      PERFORM marca_desmarca

        USING 'MARK' space

        CHANGING itab_zycbt228a.

      ok_code = 'DUMMY'.

    WHEN 'DEL_MK'.

      PERFORM elimina_itens_marcados

        USING 'MARK' 'OPER' 'X'

        CHANGING itab_zycbt228a.

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

      LOOP AT itab_zycbt228a ASSIGNING <fs_zycbt228a>.

        IF <fs_zycbt228a>-oper = 'D'.

          DELETE itab_zycbt226 WHERE nrseq = <fs_zycbt228a>-nrseq.

        ENDIF.

      ENDLOOP.

* << Fim da inclusão

      ok_code = 'DUMMY'.

  ENDCASE.

ENDFORM.

FORM seleciona_modo_bi.

  DATA:

    v_answer(1) TYPE c,

    itab_modo   TYPE STANDARD TABLE OF spopli,

    wa_modo     LIKE LINE OF itab_modo.

  FIELD-SYMBOLS:

    <fs_zycbt039> LIKE LINE OF itab_zycbt039.

...

...

FORM transfere_campos_sh_ordem

  USING  p_itab_nrseq TYPE t_t_ordem_chave

  CHANGING

    p_linha TYPE i

    p_itab_dynpread TYPE t_t_dynpread.

  DATA:

    v_excecao(1)  TYPE c.

  FIELD-SYMBOLS

    <fs_zycbt226> LIKE LINE OF itab_zycbt226.

  CHECK NOT p_itab_nrseq IS INITIAL.

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

  IF itab_zycbt226[] IS INITIAL.

* << Fim da inclusão

  SELECT nrseq gsberf bukrs werks j_1bbranch kunag waers sld_associar

    dtcredext dtlancto dtincl dtlimite ref_op obs belnr_op

    conta_contabil rze tp_conta belnr_assoc dt_assoc

    FROM /pws/zycbt226

    INTO TABLE itab_zycbt226

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

      FOR ALL ENTRIES IN p_itab_nrseq

      WHERE nrseq = p_itab_nrseq-table_line.

      itab_zycbt226a[] = itab_zycbt226[].

      itab_zycbt226a2[] = itab_zycbt226[].

  ELSE.

    SELECT nrseq gsberf bukrs werks j_1bbranch kunag waers sld_associar

      dtcredext dtlancto dtincl dtlimite ref_op obs belnr_op

      conta_contabil rze tp_conta belnr_assoc dt_assoc

      FROM /pws/zycbt226

      APPENDING TABLE itab_zycbt226

* << Fim da inclusão

    FOR ALL ENTRIES IN p_itab_nrseq

    WHERE nrseq = p_itab_nrseq-table_line.

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

      itab_zycbt226a2[] = itab_zycbt226[].

* << Fim da inclusão

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

  LOOP AT itab_zycbt226 ASSIGNING <fs_zycbt226>.

* << Fim da exclusão

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

      LOOP AT itab_zycbt226a.

        DELETE itab_zycbt226a2 WHERE nrseq = itab_zycbt226a-nrseq.

      ENDLOOP.

      itab_zycbt226a[] = itab_zycbt226[].

  ENDIF.

  LOOP AT itab_zycbt226a2 ASSIGNING <fs_zycbt226>.

* << Fim da inclusão

    PERFORM verifica_ordem USING <fs_zycbt226> CHANGING v_excecao.

    IF v_excecao = 'X'.

      CLEAR v_excecao.

    ELSE.

      PERFORM transfere_ordem_itab USING <fs_zycbt226>.

      PERFORM transfere_ordem_tela

        USING <fs_zycbt226> p_linha CHANGING p_itab_dynpread.

      p_linha = p_linha + 1.

    ENDIF.

  ENDLOOP.

...

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

Modificações efetuadas em REPS /PWS/MZYCB035F03

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

Modificações efetuadas em REPS /PWS/MZYCB035T02

...

  wa_zycbt124       TYPE t_s_zycbt124,

  itab_zycbt209     TYPE t_t_zycbt209,

  itab_zycbt226     TYPE t_t_zycbt226,

  itab_zycbt227     TYPE t_t_zycbt227,

  itab_zycbt228     TYPE t_t_zycbt228,

  itab_zycbt229     TYPE t_t_zycbt229,

  itab_zycbt230     TYPE t_t_zycbt230,

  itab_zycbt228a    TYPE t_t_zycbt228a,

  itab_zycet001     TYPE t_t_zycet001,

  wa_zycbe228a_comp TYPE t_s_zycbe228a_comp.

* >> Início da inclusão:

DATA:BEGIN OF itab_zycbt226a OCCURS 0,

      nrseq          TYPE /pws/zycbt226-nrseq,

      gsberf         TYPE /pws/zycbt226-gsberf,

      bukrs          TYPE /pws/zycbt226-bukrs,

      werks          TYPE /pws/zycbt226-werks,

      j_1bbranch     TYPE /pws/zycbt226-j_1bbranch,

      kunag          TYPE /pws/zycbt226-kunag,

      waers          TYPE /pws/zycbt226-waers,

      sld_associar   TYPE /pws/zycbt226-sld_associar,

      dtcredext      TYPE /pws/zycbt226-dtcredext,

      dtlancto       TYPE /pws/zycbt226-dtlancto,

      dtincl         TYPE /pws/zycbt226-dtincl,

      dtlimite       TYPE /pws/zycbt226-dtlimite,

      ref_op         TYPE /pws/zycbt226-ref_op,

      obs            TYPE /pws/zycbt226-obs,

      belnr_op       TYPE /pws/zycbt226-belnr_op,

      conta_contabil TYPE /pws/zycbt226-conta_contabil,

      rze            TYPE /pws/zycbt226-rze,

      tp_conta       TYPE /pws/zycbt226-tp_conta,

      belnr_assoc    TYPE /pws/zycbt226-belnr_assoc,

      dt_assoc       TYPE /pws/zycbt226-dt_assoc,

    END OF itab_zycbt226a.

DATA:BEGIN OF itab_zycbt226a2 OCCURS 0,

      nrseq          TYPE /pws/zycbt226-nrseq,

      gsberf         TYPE /pws/zycbt226-gsberf,

      bukrs          TYPE /pws/zycbt226-bukrs,

      werks          TYPE /pws/zycbt226-werks,

      j_1bbranch     TYPE /pws/zycbt226-j_1bbranch,

      kunag          TYPE /pws/zycbt226-kunag,

      waers          TYPE /pws/zycbt226-waers,

      sld_associar   TYPE /pws/zycbt226-sld_associar,

      dtcredext      TYPE /pws/zycbt226-dtcredext,

      dtlancto       TYPE /pws/zycbt226-dtlancto,

      dtincl         TYPE /pws/zycbt226-dtincl,

      dtlimite       TYPE /pws/zycbt226-dtlimite,

      ref_op         TYPE /pws/zycbt226-ref_op,

      obs            TYPE /pws/zycbt226-obs,

      belnr_op       TYPE /pws/zycbt226-belnr_op,

      conta_contabil TYPE /pws/zycbt226-conta_contabil,

      rze            TYPE /pws/zycbt226-rze,

      tp_conta       TYPE /pws/zycbt226-tp_conta,

      belnr_assoc    TYPE /pws/zycbt226-belnr_assoc,

      dt_assoc       TYPE /pws/zycbt226-dt_assoc,

    END OF itab_zycbt226a2.

* << Fim da inclusão