Sintoma

Ao executar o relatório de câmbios fechados, qualquer um dos flags do critério de seleção, esta

exibindo contratos encerrados.

Solução

Incluir o tratamento para não selecionar contratos já encerrados(f_encerrado = 'E), para todos os

flag¿s da tela de seleção.

Informações Complementares

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

Nota Número 08235 Data: 24/03/2009 Hora: 15:44:10

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

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

Nota Número              : 08235

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00009

Agrupamento              : 00091

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

RELATORIO DE CAMBIOS FECHADOS - NÃO EXIBIR CONTRATOS ENCERRADOS

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

Palavras Chave:

RELATORIO DE CAMBIOS FECHADOS NÃO EXIBIR CONTRATOS ENCERRADOS

F_ENCERRADO

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

Objetos da nota:

REPS /PWS/ZYCBR047

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

Modificações efetuadas em REPS /PWS/ZYCBR047

...

      v_fat         TYPE c,

      v_salpgo      LIKE /pws/zycbt001-vlme,

      v_jurapgme    LIKE /pws/zycbt005-vljur,

      v_jurapgbrl   LIKE /pws/zycbt005-vljur,

      v_dtpror      LIKE /pws/zycbt003-dtpror,

      v_vlme        TYPE /pws/zycbt001-vlme,

      v_impr(1)     TYPE c,

      v_defator     TYPE tcurr-ffact,

      v_parafator   TYPE tcurr-ffact.

CONSTANTS: c_ctmoed VALUE 'M'.

* >> Início da inclusão:

constants: c_e value 'E',

           c_i value 'I'.

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF BLOCK bloco1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_nrcont   FOR  /pws/zycbt001-nrcontr

                           MATCHCODE OBJECT /pws/zycba053,

                s_bukrs    FOR  /pws/zycbt001-bukrs,

                s_werks    FOR  /pws/zycbt001-werks,

                s_gsber    FOR  /pws/zycbt001-gsber,

                s_vkorg    FOR  /pws/zycet002-vkorg,

                s_vtweg    FOR  /pws/zycet002-vtweg,

                s_spara    FOR  /pws/zycet002-spara,

                s_tpcont   FOR  /pws/zycbt001-tpcontr,

...

...

         dtliquid waers vlme txcneg slvinc slpagar kunnr corret vlmi

         INTO TABLE itab_zycbt001 FROM /pws/zycbt001

         WHERE nrcontr  IN s_nrcont AND

               bukrs    IN s_bukrs  AND

               werks    IN s_werks  AND

               gsber    IN s_gsber  AND

               tpcontr  IN s_tpcont AND

               dtcontr  IN s_dtcont AND

               corret   IN s_corret AND

               bconegoc IN s_bconeg AND

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

               kunnr    IN s_kunnr.                     "#EC CI_NOFIELD

* << Fim da exclusão

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

               kunnr    in s_kunnr                     "#EC CI_NOFIELD

           and f_encerrado ne c_e

           and f_encerrado ne c_i.

* << Fim da inclusão

  IF sy-subrc EQ 0.

    SELECT *

          INTO TABLE itab_lfa1

          FROM lfa1

          FOR ALL ENTRIES IN itab_zycbt001

          WHERE lifnr = itab_zycbt001-corret.

    SELECT nrseqc tppror dtpror nrcontr

           FROM /pws/zycbt003

           INTO TABLE itab_zycbt003

           FOR ALL ENTRIES IN itab_zycbt001

...